merged gfc and gfi to one binary, and a shell script for gfc

1 files changed, 4 insertions, 5 deletions

diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs
index 917a469e9..d074cf4fe 100644
--- a/src/GF/Devel/GFC.hs
+++ b/src/GF/Devel/GFC.hs
@@ -1,4 +1,5 @@
-module Main where
+module GF.Devel.GFC (mainGFC) where
+-- module Main where
 
 import GF.Devel.Compile
 import GF.Devel.PrintGFCC
@@ -10,10 +11,8 @@ import GF.GFCC.ParGFCC
 import GF.Devel.UseIO
 import GF.Infra.Option
 
-import System
-
-main = do
-  xx <- getArgs
+mainGFC :: [String] -> IO ()
+mainGFC xx = do
   let (opts,fs) = getOptions "-" xx
   case opts of
     _ | oElem (iOpt "help") opts -> putStrLn usageMsg