diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-05-20 02:56:06 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-05-20 02:56:06 +0000 |
| commit | b7e1e31909fe6e89887ade077c90c5fdb2081434 (patch) | |
| tree | 0a51c14881df222ac5799330a7abddd66eb968b5 /src/GF/Text/Ethiopic.hs | |
| parent | 49849d7fe381bdf20e66e5255ee7d27a8dc300f9 (diff) | |
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.
Diffstat (limited to 'src/GF/Text/Ethiopic.hs')
| -rw-r--r-- | src/GF/Text/Ethiopic.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Text/Ethiopic.hs b/src/GF/Text/Ethiopic.hs index 26ae4b933..81abbf719 100644 --- a/src/GF/Text/Ethiopic.hs +++ b/src/GF/Text/Ethiopic.hs @@ -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 |