From 927ad7b1355a3b72d30970cac808792f848551a6 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 16 Sep 2006 18:42:46 +0000 Subject: bug fixes in multigrammar handling and GFCC generation --- src/GF/Compile/GrammarToCanon.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/Compile/GrammarToCanon.hs') diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index 8ca328032..089773824 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -73,7 +73,8 @@ redModInfo (c,info) = do let defs0 = concat defss let lgh = length defs0 defs <- return $ sorted2tree $ defs0 -- sorted, but reduced - let flags' = G.Flg (identC "modulesize") (identC ("n"++show lgh)) : flags + let flags1 = if isIncompl then C.flagIncomplete : flags else flags + let flags' = G.Flg (identC "modulesize") (identC ("n"++show lgh)) : flags1 return $ ModMod $ Module mt MSComplete flags' e os defs return (c',info') where -- cgit v1.2.3