From 6e4104ffa98279fcf105dd6386e1f7162f889fc0 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 20 Sep 2007 21:51:54 +0000 Subject: compact printing of gf files --- src/GF/Compile/Compile.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/Compile') 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' -- cgit v1.2.3