diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-12-28 14:30:25 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-12-28 14:30:25 +0000 |
| commit | 83c5b57615e35cb21f29766488ff29b95e49f665 (patch) | |
| tree | 68f025f1016b95db7a98fdea88f2a6ff05a41db2 /src/GF/Text | |
| parent | cef20174f620357c932b59d544034e3c38054295 (diff) | |
corrections in thai numerals
Diffstat (limited to 'src/GF/Text')
| -rw-r--r-- | src/GF/Text/Thai.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Text/Thai.hs b/src/GF/Text/Thai.hs index 7fede0676..e6c1f8003 100644 --- a/src/GF/Text/Thai.hs +++ b/src/GF/Text/Thai.hs @@ -102,12 +102,13 @@ thaiFinalMap = Map.fromList $ zip allThaiTrans finals thaiTable :: String thaiTable = unlines [ + "\t" ++ hex c ++ "\t" ++ encodeUTF8 (showThai s) ++ "\t" ++ s ++ "\t" ++ pronThai s ++ "\t" ++ [f] ++ "\t" ++ - [q] + [q] ++ "\t" | (c,q,f,s) <- zip4 allThaiCodes heights finals allThaiTrans ] @@ -119,7 +120,7 @@ showThai s = case s of pronThai s = case s of [c,p] - | isUpper c && isDigit p -> show p + | isUpper c && isDigit p -> [p] | isDigit p -> c:"h" | p==':' -> c:[c] | elem p "%&" -> c:"y" |