diff options
| author | aarne <aarne@chalmers.se> | 2011-09-15 10:49:40 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-09-15 10:49:40 +0000 |
| commit | 10d79ed05015085b5cf564733c33e635dd3657f2 (patch) | |
| tree | 94ea70f85b391b035f760fd926dc942800c95f01 | |
| parent | 927c8c06783986afba7f9f2733c9ae7782aa3ab4 (diff) | |
made ps -from_TRANSLIT symmetric to -to_TRANSLIT in the sense that unknown characters are returned as themselves and not as question marks
| -rw-r--r-- | src/compiler/GF/Text/Transliterations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Text/Transliterations.hs b/src/compiler/GF/Text/Transliterations.hs index aa9901141..b4ff2a64c 100644 --- a/src/compiler/GF/Text/Transliterations.hs +++ b/src/compiler/GF/Text/Transliterations.hs @@ -75,8 +75,8 @@ appTransToUnicode trans = appTransFromUnicode :: Transliteration -> String -> String appTransFromUnicode trans = concat . - map (maybe "?" id . - flip Map.lookup (trans_from_unicode trans) + map (\c -> maybe [toEnum c] id $ + Map.lookup c (trans_from_unicode trans) ) . map fromEnum |