Make option parser treat additional args as files

GuiltyDolphin · Nov 21, 2015 · c5ec51d · c5ec51d
1 parent 781cecc
commit c5ec51d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/angle-commandline/Angle/Options.hs b/angle-commandline/Angle/Options.hs
@@ -80,10 +80,10 @@ usage = "Usage:  angle [OPTION...] files..."
 getOptions :: IO Options
 getOptions = do
     args <- getArgs
-    (opts, _) <-
+    (opts, nonOpts) <-
         case getOpt RequireOrder options args of
             (opt,nonOpt,[]) -> return (opt,nonOpt)
             (_,_,errs) -> ioError
                 (userError (concat errs ++ usageInfo usage options))
-    foldl' (>>=) (return defaultOptions) opts
+    foldl' (>>=) (return defaultOptions { optFiles = nonOpts }) opts