msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

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

Browse Source
This commit is contained in:
aarne
2011-09-15 10:49:40 +00:00
parent f0f73dca17
commit 42b7b0f8c2
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/GF/Text/Transliterations.hs
View File

@@ -75,8 +75,8 @@ appTransToUnicode trans =
appTransFromUnicode :: Transliteration -> String -> String appTransFromUnicode :: Transliteration -> String -> String
appTransFromUnicode trans = appTransFromUnicode trans =
concat . concat .
map (maybe "?" id . map (\c -> maybe [toEnum c] id $
flip Map.lookup (trans_from_unicode trans) Map.lookup c (trans_from_unicode trans)
) . ) .
map fromEnum map fromEnum