1
0
forked from GitHub/gf-core

Improved unicode output.

This commit is contained in:
aarne
2004-01-26 08:39:52 +00:00
parent 7362e70af9
commit f807f76211
6 changed files with 39 additions and 28 deletions

View File

@@ -1,13 +1,15 @@
module Hebrew where
mkHebrew :: String -> String
mkHebrew = mkHebrewWord
mkHebrew = reverse . mkHebrewWord
--- reverse : assumes everything's on same line
type HebrewChar = Char
-- HH 031103 added code for spooling the markup
-- removed reverse, words, unwords (seemed obsolete and come out wrong on the screen)
-- removed reverse, words, unwords
-- (seemed obsolete and come out wrong on the screen)
-- AR 26/1/2004 put reverse back - needed in Fudgets (but not in Java?)
mkHebrewWord :: String -> [HebrewChar]
-- mkHebrewWord = map mkHebrewChar