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/Text.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/Text.hs')
| -rw-r--r-- | src/GF/Text/Text.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/Text/Text.hs b/src/GF/Text/Text.hs index a2a69f70c..b55355c20 100644 --- a/src/GF/Text/Text.hs +++ b/src/GF/Text/Text.hs @@ -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 |