From 0b22e975242af27e4276cf3fadbe0fe3c1b1f614 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 24 Jun 2008 14:31:21 +0000 Subject: [PATCH] trying to get the coding flag to work in grammars --- src-3.0/GF/Infra/Option.hs | 6 ++++-- 1 file 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