From e90ccb500287de7e5a335340b23e7d1b6d76ffa4 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 7 Dec 2007 21:00:24 +0000 Subject: a couple of fixes in new Optimize --- src/GF/Devel/Compile/Optimize.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/GF/Devel/Compile/Optimize.hs') diff --git a/src/GF/Devel/Compile/Optimize.hs b/src/GF/Devel/Compile/Optimize.hs index 9ed2860fd..1d5024714 100644 --- a/src/GF/Devel/Compile/Optimize.hs +++ b/src/GF/Devel/Compile/Optimize.hs @@ -37,17 +37,19 @@ import GF.Data.Operations import Control.Monad import Data.List +import qualified Data.Map as Map import Debug.Trace optimizeModule :: Options -> GF -> SourceModule -> Err SourceModule -optimizeModule opts gf sm@(m,mo) = case mtype mo of +optimizeModule opts gf0 sm@(m,mo) = case mtype mo of MTConcrete _ -> opt sm MTInstance _ -> opt sm MTGrammar -> opt sm _ -> return sm where + gf = gf0 {gfmodules = Map.insert m mo (gfmodules gf0)} opt (m,mo) = do mo' <- termOpModule (computeTerm gf) mo return (m,mo') -- cgit v1.2.3