Fix command line parsing
This commit is contained in:
parent
e6fc3dd8d2
commit
133ec67350
@ -270,7 +270,7 @@ globalArgSpec =
|
||||
|
||||
parseGlobalArgs :: [String] -> Either InvalidCommandLine (Options, [String])
|
||||
parseGlobalArgs argv
|
||||
= case O.getOpt' Permute globalArgSpec argv of
|
||||
= case O.getOpt' RequireOrder globalArgSpec argv of
|
||||
(o,r,u,[]) -> Right $ (foldr id defaultOptions o, u ++ r)
|
||||
(_,_,u,e) -> Left $ InvalidCommandLine $ Right $
|
||||
"Parsing command line options failed: "
|
||||
|
Loading…
Reference in New Issue
Block a user