diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-20 21:51:54 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-20 21:51:54 +0000 |
| commit | 6e4104ffa98279fcf105dd6386e1f7162f889fc0 (patch) | |
| tree | 4a137525f2ac44994260c5f2520bb6c526c96f14 /src/GF/Compile/Compile.hs | |
| parent | 46013f103cf23d875aa3a2f853080a4fbe23ebd8 (diff) | |
compact printing of gf files
Diffstat (limited to 'src/GF/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index 00b89ec59..d78d49b09 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -19,6 +19,7 @@ module GF.Compile.Compile (compileModule, compileEnvShSt, compileOne, import GF.Grammar.Grammar import GF.Infra.Ident import GF.Infra.Option +import GF.Infra.CompactPrint import GF.Grammar.PrGrammar import GF.Compile.Update import GF.Grammar.Lookup @@ -331,7 +332,7 @@ generateModuleCode opts path minfo@(name,info) = do let rminfo = if isCompilable info then minfo else (name, ModMod emptyModule) let (file,out) = (gfrFile pname, prGrammar (MGrammar [rminfo])) - putp (" wrote file" +++ file) $ ioeIO $ writeFile file out + putp (" wrote file" +++ file) $ ioeIO $ writeFile file $ compactPrint out _ -> return () (file,out) <- do code <- return $ MkGFC.prCanonModInfo minfo' |