From 873363ff9b8210e3a68f5c078840c1444c19518c Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sat, 24 Oct 2009 16:08:00 +0000
Subject: refactoring in GF.Compile.Optimize

---
 src/GF/Compile.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/GF/Compile.hs')

diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs
index ce9a051fd..33f5e44ea 100644
--- a/src/GF/Compile.hs
+++ b/src/GF/Compile.hs
@@ -219,8 +219,7 @@ compileSourceModule opts env@(k,gr,_) mo@(i,mi) = do
       (k',mo3r:_) <- putpp "  refreshing " $ ioeErr $ refreshModule (k,mos) mo3
       intermOut opts DumpRefresh (ppModule Qualified mo3r)
 
-      let eenv = () --- emptyEEnv
-      (mo4,eenv') <- putpp "  optimizing " $ ioeErr $ optimizeModule opts (mos,eenv) mo3r
+      mo4 <- putpp "  optimizing " $ ioeErr $ optimizeModule opts mos mo3r
       intermOut opts DumpOptimize (ppModule Qualified mo4)
 
       return (k',mo4)
-- 
cgit v1.2.3