diff options
| author | krasimir <krasimir@chalmers.se> | 2009-10-24 16:08:00 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-10-24 16:08:00 +0000 |
| commit | 873363ff9b8210e3a68f5c078840c1444c19518c (patch) | |
| tree | b7af0ba91501a9a927be50c086a8fb4cec02d6aa /src/GF/Compile.hs | |
| parent | ca5b6b0eecc3e5884a08d43b53cd972ee6d9ec5f (diff) | |
refactoring in GF.Compile.Optimize
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) |