diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-24 14:31:21 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-24 14:31:21 +0000 |
| commit | 0b22e975242af27e4276cf3fadbe0fe3c1b1f614 (patch) | |
| tree | da214746526cf3ab1c48034330f0c8c5daddfc48 | |
| parent | 239f310eb560763c215400a41af7e21fa0f2d51f (diff) | |
trying to get the coding flag to work in grammars
| -rw-r--r-- | src-3.0/GF/Infra/Option.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src-3.0/GF/Infra/Option.hs b/src-3.0/GF/Infra/Option.hs index 6c9d3550b..380cb3af7 100644 --- a/src-3.0/GF/Infra/Option.hs +++ b/src-3.0/GF/Infra/Option.hs @@ -186,9 +186,11 @@ moduleOptionsGFO :: ModuleOptions -> [(String,String)] moduleOptionsGFO (ModuleOptions o) = maybe [] (\x -> [("language",x)]) (optSpeechLanguage mfs) ++ maybe [] (\x -> [("startcat",x)]) (optStartCat mfs) +-- ++ maybe [] (\x -> [("coding", e2s x)]) (Just (optEncoding mfs)) ++ (if optErasing mfs then [("erasing","on")] else []) - where mfs = o defaultModuleFlags - + where + mfs = o defaultModuleFlags + e2s e = maybe [] id $ lookup e [(s,e) | (e,s) <- encodings] -- Option manipulation |