runArgs :: [String] -> HisgM ()
runArgs args =
    case (getOpt (ReturnInOrder File) options args) of
        (o, [], []) -> mapM_ decide o
        (_, _, errs) -> fail (concat errs)
runArgs :: [String] -> HisgM ()
runArgs args =
    case (getOpt (ReturnInOrder File) options args) of
        (o, [], []) -> mapM_ decide o
        (_, _, errs) -> fail (concat errs)
runArgs args =
    case (getOpt (ReturnInOrder File) options args) of
        (o, [], []) -> mapM_ decide o
        (_, _, errs) -> fail (concat errs)