Merge pull request #215 from exFalso/ghc-modi-flag

added -g option to ghc-modi
This commit is contained in:
Kazu Yamamoto 2014-04-11 10:04:31 +09:00
commit 29eead23b8
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])