thai word list corrections

This commit is contained in:
aarne
2007-02-11 22:15:37 +00:00
parent f204abaf15
commit d5b8c4d6c6
3 changed files with 21 additions and 18 deletions

View File

@@ -138,6 +138,9 @@ pronSyllable s =
([0x0e42],[0x0e30],_,_,_,_) -> "o" -- o:-a.
([],[0x0e2d],_,[0x0e22],_,_) -> "OOy" -- Oy
([],[0x0e2d],_,_,_,_) -> "OO" -- O
([],[],[],_,_,_) -> "o"
(i,m,f,_,_,_) -> concatMap pronThaiChar (reverse $ f ++ m ++ i) ----