fixed reading argvars from gfc in gf-to-gfcc

1 files changed, 7 insertions, 5 deletions

diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs
index ba2759c87..da5725d3d 100644
--- a/src/GF/Devel/GFC.hs
+++ b/src/GF/Devel/GFC.hs
@@ -3,6 +3,7 @@ module Main where
 import GF.Devel.Compile
 import GF.Devel.GrammarToGFCC
 import GF.Devel.UseIO
+import GF.Infra.Option
 ---import GF.Devel.PrGrammar ---
 
 import System
@@ -10,15 +11,16 @@ import System
 
 main = do
   xx <- getArgs
-  case xx of
-    "-help":[] -> putStrLn "usage: gfc (--make) FILES"
-    "--make":fs -> do
-      gr <- batchCompile fs
+  let (opts,fs) = getOptions "-" xx
+  case opts of
+    _ | oElem (iOpt "help") opts -> putStrLn "usage: gfc (--make) FILES"
+    _ | oElem (iOpt "-make") opts -> do
+      gr <- batchCompile opts fs
       let name = justModuleName (last fs)
       let (abs,gc) = prGrammar2gfcc name gr
       let target = abs ++ ".gfcc"
       writeFile target gc
       putStrLn $ "wrote file " ++ target
     _ -> do
-      mapM_ batchCompile (map return xx)
+      mapM_ (batchCompile opts) (map return fs)
       putStrLn "Done."