diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Compile/MkConcrete.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Compile/MkConcrete.hs b/src/GF/Compile/MkConcrete.hs index f586435a9..75b4f215e 100644 --- a/src/GF/Compile/MkConcrete.hs +++ b/src/GF/Compile/MkConcrete.hs @@ -44,13 +44,15 @@ mkConcrete :: FilePath -> IO () mkConcrete file = do cont <- liftM lines $ readFileIf file let res = getResPath cont - egr <- appIOE $ optFile2grammar (options [useOptimizer "share"]) res --- for -mcfg + egr <- appIOE $ + optFile2grammar (options [useOptimizer "share",fromSource,beSilent,notEmitCode]) res --- for -mcfg gr <- err (\s -> putStrLn s >> error "resource file rejected") return egr let abs = prt_ $ absId gr let parser cat = errVal ([],"No parse") . optParseArgErrMsg (options [newMParser, firstCat cat, beVerbose]) gr let morpho = isKnownWord gr let out = suffixFile "gf" $ justModuleName file + writeFile out "" mapM_ (mkCnc out parser morpho) cont getResPath :: [String] -> String |