diff options
| -rw-r--r-- | src-3.0/GF/Infra/Option.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src-3.0/GF/Infra/Option.hs b/src-3.0/GF/Infra/Option.hs index a17613f7f..2d34ae441 100644 --- a/src-3.0/GF/Infra/Option.hs +++ b/src-3.0/GF/Infra/Option.hs @@ -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 |