gfc --make now works

1 files changed, 4 insertions, 3 deletions

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."