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 49849d7fe3
commit b7e1e31909
14 changed files with 36 additions and 24 deletions

View File

@@ -38,18 +38,18 @@ spoolMarkup s = case s of
'>' : cs -> ('>', -1) : adHocToDigraphWord cs
c1 : cs -> (c1, -1) : spoolMarkup cs
isVowel x = elem x "AäuiïaeoI"
isVowel x = elem x "A\228ui\239aeoI"
vowelOrder :: Char -> Int
vowelOrder x = case x of
'A' -> 0
'ä' -> 0
'\228' -> 0 -- ä
'u' -> 1
'i' -> 2
'a' -> 3
'e' -> 4
'I' -> 5
'ï' -> 5
'\239' -> 5 -- ï
'o' -> 6
c -> 5 -- vowelless