diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-07 21:00:24 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-07 21:00:24 +0000 |
| commit | e90ccb500287de7e5a335340b23e7d1b6d76ffa4 (patch) | |
| tree | fe9af8f0b1a3bb0ed5baa2466422c6bcb432aded /src/GF/Devel/Compile/Compile.hs | |
| parent | d9521d2f4c8fa0eb515beefbe07bab4d16b6a543 (diff) | |
a couple of fixes in new Optimize
Diffstat (limited to 'src/GF/Devel/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Devel/Compile/Compile.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Devel/Compile/Compile.hs b/src/GF/Devel/Compile/Compile.hs index df3ea079e..70ba5e9c0 100644 --- a/src/GF/Devel/Compile/Compile.hs +++ b/src/GF/Devel/Compile/Compile.hs @@ -160,10 +160,10 @@ compileSourceModule opts env@(k,gr) mo@(i,mi) = do moo <- putpp " optimizing " $ ioeErr $ optimizeModule opts gr mox intermOut opts (iOpt "show_optimize") (prMod moo) - mof <- putpp " factorizing " $ ioeErr $ optimizeModule opts gr moo - intermOut opts (iOpt "show_factorize") (prMod mof) +---- mof <- putpp " factorizing " $ ioeErr $ optimizeModule opts gr moo +---- intermOut opts (iOpt "show_factorize") (prMod mof) - return (k,mof) ---- + return (k,moo) ---- {- ---- |