msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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. -- | Pretty-print the module options that are preserved in .gfo files.
moduleOptionsGFO :: ModuleOptions -> [(String,String)] moduleOptionsGFO :: ModuleOptions -> [(String,String)]
moduleOptionsGFO (ModuleOptions o) = 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 where mfs = o defaultModuleFlags