diff options
Diffstat (limited to 'src/GF/Compile.hs')
| -rw-r--r-- | src/GF/Compile.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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) |