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/LatinASupplement.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/LatinASupplement.hs')
| -rw-r--r-- | src/GF/Text/LatinASupplement.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Text/LatinASupplement.hs b/src/GF/Text/LatinASupplement.hs index de6e170ac..f42423c91 100644 --- a/src/GF/Text/LatinASupplement.hs +++ b/src/GF/Text/LatinASupplement.hs @@ -32,7 +32,7 @@ mkLatinASupplementWord str = case str of -- Turkish 'g' : '%' : cs -> toEnum 0x011f : mkLatinASupplementWord cs 'I' : cs -> toEnum 0x0131 : mkLatinASupplementWord cs - 'c' : ',' : cs -> 'ç' : mkLatinASupplementWord cs + 'c' : ',' : cs -> toEnum 0x00e7 : mkLatinASupplementWord cs -- Polish 'e' : ',' : cs -> toEnum 0x0119 : mkLatinASupplementWord cs 'a' : ',' : cs -> toEnum 0x0105 : mkLatinASupplementWord cs |