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

Unicode. Batch transl into HTML.

Browse Source
This commit is contained in:
aarne
2004-01-28 12:42:20 +00:00
parent fdda9fac0a
commit dec8e76616
12 changed files with 84 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Text/Arabic.hs
View File

@@ -1,7 +1,8 @@
module Arabic where
mkArabic :: String -> String
mkArabic = reverse . unwords . (map mkArabicWord) . words
mkArabic = unwords . (map mkArabicWord) . words
----mkArabic = reverse . unwords . (map mkArabicWord) . words
--- reverse : assumes everything's on same line
type ArabicChar = Char