Changes to make GF compile with GHC 6.5 from CVS: remove inlines use of !, change all latin-1 characters in haskell code to escapes.

This commit is contained in:
bringert
2006-05-20 02:56:06 +00:00
parent f757f2ea1e
commit c35890ab2a
14 changed files with 36 additions and 24 deletions

View File

@@ -82,7 +82,7 @@ formatAsTextGen tag para = unwords . format . cap . words where
major = flip elem (map singleton ".!?")
minor = flip elem (map singleton ",:;)")
openp = all (flip elem "(")
spanish = all (flip elem "¡¿")
spanish = all (flip elem "\161\191")
formatAsCode :: String -> String
formatAsCode = rend 0 . words where
@@ -125,10 +125,10 @@ performBindsFinnish :: String -> String
performBindsFinnish = performBindsOpt vowelHarmony where
vowelHarmony w p = if any (flip elem "aouAOU") w then p else map toFront p
toFront c = case c of
'A' -> '
'O' -> '
'a' -> '
'o' -> '
'A' -> '\196'
'O' -> '\214'
'a' -> '\228'
'o' -> '\246'
_ -> c
unStringLit :: String -> String