diff options
Diffstat (limited to 'src/GF/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index 1805a6cff..ebdfe1054 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -293,7 +293,7 @@ generateModuleCode opts path minfo@(name,info) = do let pname = prefixPathName path (prt name) minfo0 <- ioeErr $ redModInfo minfo let oopts = addOptions opts (iOpts (flagsModule minfo)) - optims = maybe "share" id $ getOptVal oopts useOptimizer + optims = maybe "all_subs" id $ getOptVal oopts useOptimizer optim = takeWhile (/='_') optims subs = drop 1 (dropWhile (/='_') optims) == "subs" minfo1 <- return $ @@ -316,7 +316,7 @@ generateModuleCode opts path minfo@(name,info) = do case info of ModMod m | emitsGFR m && emit && nomulti -> do let rminfo = if isCompilable info then minfo - else (name,emptyModInfo) + else (name, ModMod emptyModule) let (file,out) = (gfrFile pname, prGrammar (MGrammar [rminfo])) putp (" wrote file" +++ file) $ ioeIO $ writeFile file out _ -> return () |