GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Copy startcat flag to .gfo file.

Browse Source
This commit is contained in:
bjorn
2008-05-29 08:01:55 +00:00
parent d55f529a6e
commit 972df6996f
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src-3.0/GF/Infra/Option.hs
View File

@@ -157,7 +157,8 @@ parseModuleOptions args
-- | Pretty-print the module options that are preserved in .gfo files.
moduleOptionsGFO :: ModuleOptions -> [(String,String)]
moduleOptionsGFO (ModuleOptions o) =
maybe [] (\l -> [("language",l)]) (optSpeechLanguage mfs)
maybe [] (\x -> [("language",x)]) (optSpeechLanguage mfs)
++ maybe [] (\x -> [("startcat",x)]) (optStartCat mfs)
where mfs = o defaultModuleFlags