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