diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-26 16:35:45 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-26 16:35:45 +0000 |
| commit | ed708ffda6d1a60be801c4563274c8b9218aa9de (patch) | |
| tree | bf33e6f48fecfacbfa08f146bd00c8d9147401a6 /src/GF/Compile/GrammarToGFCC.hs | |
| parent | f7622321de4e3fe7acee646a0fb8a817576621c3 (diff) | |
uniform encoding: gfo and pgf in UTF8, internal in unicode
Diffstat (limited to 'src/GF/Compile/GrammarToGFCC.hs')
| -rw-r--r-- | src/GF/Compile/GrammarToGFCC.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs index e13c8edf2..2b4156bec 100644 --- a/src/GF/Compile/GrammarToGFCC.hs +++ b/src/GF/Compile/GrammarToGFCC.hs @@ -97,8 +97,10 @@ canon2gfcc opts pars cgr@(M.MGrammar ((a,M.ModMod abm):cms)) = js = tree2list (M.jments mo) flags = Map.fromList [(mkCId f,x) | (f,x) <- moduleOptionsGFO (M.flags mo)] opers = Map.fromAscList [] -- opers will be created as optimization - utf = if moduleFlag optEncoding (moduleOptions (M.flags mo)) == UTF_8 - then D.convertStringsInTerm decodeUTF8 else id + utf = id -- trace (show lang0 +++ show flags) $ + -- if moduleFlag optEncoding (moduleOptions (M.flags mo)) == UTF_8 + -- then id else id + ---- then (trace "decode" D.convertStringsInTerm decodeUTF8) else id umkTerm = utf . mkTerm lins = Map.fromAscList [(i2i f, umkTerm tr) | (f,CncFun _ (Yes tr) _) <- js] |