From 58d34eca14d02e6bb388521954938824bb0c8079 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 21 Sep 2007 07:37:47 +0000 Subject: gfc --make now works --- src/GF/Devel/GFC.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/GF/Devel/GFC.hs') diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs index 561d37060..eba212486 100644 --- a/src/GF/Devel/GFC.hs +++ b/src/GF/Devel/GFC.hs @@ -2,6 +2,7 @@ module Main where import GF.Devel.Compile import GF.Devel.GrammarToGFCC +---import GF.Devel.PrGrammar --- import System @@ -12,9 +13,9 @@ main = do "-help":[] -> putStrLn "usage: gfc (--make) FILES" "--make":fs -> do gr <- batchCompile fs - putStrLn $ prGrammar2gfcc gr --- ---- writeFile "a.gfcc" $ prGrammar2gfcc gr ---- putStrLn "wrote file a.gfcc" + --- putStrLn $ prGrammar gr + writeFile "a.gfcc" $ prGrammar2gfcc gr + putStrLn "Wrote file a.gfcc." _ -> do mapM_ batchCompile (map return xx) putStrLn "Done." -- cgit v1.2.3