From 70ac18e908c5c00390239b2361115f8ab292d49d Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 26 Feb 2006 11:16:53 +0000 Subject: bug fixed (?) in compilation --- src/GF/UseGrammar/Linear.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/GF/UseGrammar') diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs index 9d76442ae..d4483bef5 100644 --- a/src/GF/UseGrammar/Linear.hs +++ b/src/GF/UseGrammar/Linear.hs @@ -121,7 +121,10 @@ expandLinTables gr t = case t of -- Do this for an entire grammar: unoptimizeCanon :: CanonGrammar -> CanonGrammar -unoptimizeCanon g@(M.MGrammar ms) = M.MGrammar $ map convMod ms where +unoptimizeCanon g@(M.MGrammar ms) = M.MGrammar $ map (unoptimizeCanonMod g) ms + +unoptimizeCanonMod :: CanonGrammar -> CanonModule -> CanonModule +unoptimizeCanonMod g = convMod where convMod (m, M.ModMod (M.Module (M.MTConcrete a) x flags me os defs)) = (m, M.ModMod (M.Module (M.MTConcrete a) x flags me os (mapTree convDef defs))) convMod mm = mm -- cgit v1.2.3