hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/GHCModi.hs
View File

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