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/OCSCyrillic.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/OCSCyrillic.hs')
| -rw-r--r-- | src/GF/Text/OCSCyrillic.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Text/OCSCyrillic.hs b/src/GF/Text/OCSCyrillic.hs index 7bbd1a773..0d4696944 100644 --- a/src/GF/Text/OCSCyrillic.hs +++ b/src/GF/Text/OCSCyrillic.hs @@ -21,7 +21,7 @@ mkOCSCyrillicWord str = case str of [] -> [] ' ' : cs -> ' ' : mkOCSCyrillicWord cs '<' : cs -> '<' : spoolMarkup cs - 'ä' : cs -> toEnum 0x0463 : mkOCSCyrillicWord cs + '\228' : cs -> toEnum 0x0463 : mkOCSCyrillicWord cs -- ä 'j' : 'e' : '~' : cs -> toEnum 0x0469 : mkOCSCyrillicWord cs 'j' : 'o' : '~' : cs -> toEnum 0x046d : mkOCSCyrillicWord cs 'j' : 'e' : cs -> toEnum 0x0465 : mkOCSCyrillicWord cs |