From 83c5b57615e35cb21f29766488ff29b95e49f665 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 28 Dec 2006 14:30:25 +0000
Subject: corrections in thai numerals

---
 src/GF/Text/Thai.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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"
-- 
cgit v1.2.3