diff options
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 |