GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-10-21 15:13:11 -06:00
Code Issues Packages Projects Releases Wiki Activity

bug fixed (?) in compilation

Browse Source
This commit is contained in:
aarne committed 2006-02-26 11:16:53 +00:00
1 parent 38a2d080f9
commit 70ac18e908
2 files changed
+8 -3
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/GF/UseGrammar/Linear.hs
+4 -1
View File
@@ -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