From b801149fbf5c9eb3f73477d3496cdfd92cb178a1 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 12 Nov 2007 09:17:02 +0000 Subject: merged gfc and gfi to one binary, and a shell script for gfc --- src/GF/Devel/GFC.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/GF/Devel/GFC.hs') 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 -- cgit v1.2.3