From 927ad7b1355a3b72d30970cac808792f848551a6 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 16 Sep 2006 18:42:46 +0000 Subject: bug fixes in multigrammar handling and GFCC generation --- src/GF/Compile/Optimize.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Compile/Optimize.hs') 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 -- cgit v1.2.3