diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Text/Transliterations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Text/Transliterations.hs b/src/GF/Text/Transliterations.hs index 3190efb9a..e77d30fc4 100644 --- a/src/GF/Text/Transliterations.hs +++ b/src/GF/Text/Transliterations.hs @@ -3,6 +3,7 @@ module GF.Text.Transliterations (transliterate,transliteration,characterTable) w import GF.Text.UTF8 import Data.Char +import Numeric import qualified Data.Map as Map -- transliterations between ASCII and a Unicode character set @@ -34,7 +35,7 @@ transliteration s = case s of characterTable :: Transliteration -> String characterTable = unlines . map prOne . Map.assocs . trans_from_unicode where - prOne (i,s) = unwords ["|", show i, "|", [toEnum i], "|", s, "|"] + prOne (i,s) = unwords ["|", showHex i "", "|", [toEnum i], "|", s, "|"] data Transliteration = Trans { trans_to_unicode :: Map.Map String Int, |