added -g option to ghc-modi

This commit is contained in:
exfalso 2014-04-10 15:21:30 +02:00
parent 9cd3d521d4
commit b1f6388cf5
1 changed files with 3 additions and 0 deletions

View File

@ -61,12 +61,15 @@ argspec :: [OptDescr (Options -> Options)]
argspec = [ Option "b" ["boundary"]
(ReqArg (\s opts -> opts { lineSeparator = LineSeparator s }) "sep")
"specify line separator (default is Nul string)"
, Option "g" []
(ReqArg (\s opts -> opts { ghcOpts = s : ghcOpts opts }) "flag") "specify a ghc flag"
]
usage :: String
usage = "ghc-modi version " ++ showVersion version ++ "\n"
++ "Usage:\n"
++ "\t ghc-modi [-b sep]\n"
++ "\t ghc-modi [-g flag]\n"
++ "\t ghc-modi help\n"
parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String])