diff options
Diffstat (limited to 'src/GF/Compile/Optimize.hs')
| -rw-r--r-- | src/GF/Compile/Optimize.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Compile/Optimize.hs b/src/GF/Compile/Optimize.hs index 374c79d01..715cd796a 100644 --- a/src/GF/Compile/Optimize.hs +++ b/src/GF/Compile/Optimize.hs @@ -50,7 +50,7 @@ optimizeModule opts ms mo@(_,mi) = case mi of _ -> evalModule oopts ms mo where oopts = addOptions opts (iOpts (flagsModule mo)) - optim = maybe "none" id $ getOptVal oopts useOptimizer + optim = maybe "all" id $ getOptVal oopts useOptimizer evalModule :: Options -> [(Ident,SourceModInfo)] -> (Ident,SourceModInfo) -> Err (Ident,SourceModInfo) @@ -92,7 +92,7 @@ evalResInfo oopts gr (c,info) = case info of where comp = if optres then computeConcrete gr else computeConcreteRec gr eIn cat = errIn ("Error optimizing" +++ cat +++ prt c +++ ":") - optim = maybe "none" id $ getOptVal oopts useOptimizer + optim = maybe "all" id $ getOptVal oopts useOptimizer optres = case optim of "noexpand" -> False _ -> True |