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

made compile from source use optimized modules internally

Browse Source
This commit is contained in:
aarne
2007-11-12 17:25:00 +00:00
parent 6fac1748e1
commit d0a1572370
4 changed files with 25 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/Devel/OptimizeGF.hs
+5 -2
View File
@@ -16,7 +16,8 @@
-----------------------------------------------------------------------------
module GF.Devel.OptimizeGF (
optModule,unshareModule,unsubexpModule,unoptModule) where
optModule,unshareModule,unsubexpModule,unoptModule,subexpModule,shareModule
) where
import GF.Grammar.Grammar
import GF.Grammar.Lookup
@@ -32,7 +33,9 @@ import qualified Data.Map as Map
import Data.List
optModule :: (Ident, SourceModInfo) -> (Ident, SourceModInfo)
optModule = subexpModule . processModule optim
optModule = subexpModule . shareModule
shareModule = processModule optim
unoptModule :: SourceGrammar -> (Ident, SourceModInfo) -> (Ident, SourceModInfo)
unoptModule gr = unshareModule gr . unsubexpModule