diff options
Diffstat (limited to 'src/GF/Devel/GFC.hs')
| -rw-r--r-- | src/GF/Devel/GFC.hs | 7 |
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." |