refactoring in GF.Compile.Optimize

2009-10-24 16:08:00 +00:00
parent ca5b6b0eec
commit 873363ff9b
2 changed files with 25 additions and 48 deletions
--- 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)