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

pass options in given order

Browse Source
This commit is contained in:
eagletmt 2012-03-11 16:40:52 +09:00
parent 41fe35b691
commit 631bbe6be8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GHCMod.hs
View File

@ -62,7 +62,7 @@ argspec = [ Option "l" ["tolisp"]
parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String]) parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String])
parseArgs spec argv parseArgs spec argv
= case getOpt Permute spec argv of = case getOpt Permute spec argv of
(o,n,[] ) -> (foldl (flip id) defaultOptions o, n) (o,n,[] ) -> (foldr id defaultOptions o, n)
(_,_,errs) -> throw (CmdArg errs) (_,_,errs) -> throw (CmdArg errs)
---------------------------------------------------------------- ----------------------------------------------------------------