made ps -from_TRANSLIT symmetric to -to_TRANSLIT in the sense that unknown characters are returned as themselves and not as question marks

2011-09-15 10:49:40 +00:00
parent f0f73dca17
commit 42b7b0f8c2
1 changed files with 2 additions and 2 deletions
--- 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