diff options
| author | bjorn <bjorn@bringert.net> | 2008-05-29 08:01:55 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-05-29 08:01:55 +0000 |
| commit | d459573c80a45f5368dd743a1b149a53e3129567 (patch) | |
| tree | 8c10375b04c8afd164cabd4522e60714857248a1 | |
| parent | 152c5698ce52ba0f496036a106650a6d6bf3a1d3 (diff) | |
Copy startcat flag to .gfo file.
| -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 |