diff options
| author | aarne <unknown> | 2005-06-26 19:40:31 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-26 19:40:31 +0000 |
| commit | b9e13711db0085b25e9257d1034b43a3a2c47b7e (patch) | |
| tree | 1c107ae9536d56e43c9e9c3891066cd4c04aec63 /src/GF/Compile | |
| parent | 5d6bb705e66343a030ba242175a031e839be2aee (diff) | |
Finnish close to production ; Predef.occurs
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/MkConcrete.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Compile/MkConcrete.hs b/src/GF/Compile/MkConcrete.hs index 7d228de39..d96e3e774 100644 --- a/src/GF/Compile/MkConcrete.hs +++ b/src/GF/Compile/MkConcrete.hs @@ -63,8 +63,8 @@ mkCncGroups (res,files) = do putStrLnFlush $ "Going to preprocess examples in " ++ unwords files putStrLn $ "Compiling resource " ++ res egr <- appIOE $ - optFile2grammar (options - [useOptimizer "share",fromSource,beSilent,notEmitCode]) res --- for -mcfg + optFile2grammar (options [beSilent]) res + -- [useOptimizer "share",fromSource,beSilent,notEmitCode]) res --- for -mcfg gr <- err (\s -> putStrLn s >> error "resource file rejected") return egr let parser cat = errVal ([],"No parse") . optParseArgErrMsg (options [newMParser, firstCat cat, beVerbose]) gr |