From 7e40df7d4c4dc475db08483dac5fd01823598a26 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 12 Nov 2007 17:25:00 +0000
Subject: made compile from source use optimized modules internally

---
 src/GF/Devel/OptimizeGF.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/GF/Devel/OptimizeGF.hs')

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
-- 
cgit v1.2.3