diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-12 17:25:00 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-12 17:25:00 +0000 |
| commit | 7e40df7d4c4dc475db08483dac5fd01823598a26 (patch) | |
| tree | 9d324298e7104fac03b8cff732500d3125494712 /src/GF/Devel/OptimizeGF.hs | |
| parent | 5d06a3107825aae976181cdc6aac0af4dbc2f2c8 (diff) | |
made compile from source use optimized modules internally
Diffstat (limited to 'src/GF/Devel/OptimizeGF.hs')
| -rw-r--r-- | src/GF/Devel/OptimizeGF.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/GF/Devel/OptimizeGF.hs b/src/GF/Devel/OptimizeGF.hs index d095d3ae7..de05ed428 100644 --- a/src/GF/Devel/OptimizeGF.hs +++ b/src/GF/Devel/OptimizeGF.hs @@ -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 |