diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-30 14:36:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-30 14:36:40 +0000 |
| commit | 719e75105158932558aaa071d2ede50e41a9454b (patch) | |
| tree | 46f44cb070b3f9c1ec1d30ce019561a7bfdd9e6e /src/GF/Compile/Compile.hs | |
| parent | 5dc1edf50f5c6ae4d0a9ac1c7ff45d95da1a61e2 (diff) | |
BronzeageDan
Diffstat (limited to 'src/GF/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index 0dba7a9ec..c79dd2b4d 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -272,10 +272,8 @@ compileSourceModule opts env@(k,gr,can) mo@(i,mi) = do (k',mo3r:_) <- ioeErr $ refreshModule (k,mos) mo3 mo4 <- ----- case snd mo1b of ----- ModMod n | isModCnc n -> - putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r ----- _ -> return [mo3r] + ---- if oElem "check_only" opts + putpp " optimizing " $ ioeErr $ optimizeModule opts mos mo3r return (k',mo4) where ---- prDebug mo = ioeIO $ putStrLn $ prGrammar $ MGrammar [mo] ---- debug |