diff options
| author | krasimir <krasimir@chalmers.se> | 2008-12-17 23:53:12 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-12-17 23:53:12 +0000 |
| commit | 9d0df9e0b49e06f4e182269f563555e803ff27ac (patch) | |
| tree | 82a680d75a23641b30fcf3a980a5b2015ab609ce /src/GF/Text/Coding.hs | |
| parent | 124738068a401b872369b8f4fb957bbdcd1bda87 (diff) | |
added codepage 1250 i.e. central european. Useful for Polish, Czech, Slovak, Hungarian, Slovene, Bosnian, Croatian, Serbian, Romanian and Albanian
Diffstat (limited to 'src/GF/Text/Coding.hs')
| -rw-r--r-- | src/GF/Text/Coding.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Text/Coding.hs b/src/GF/Text/Coding.hs index ca0322d06..2860b79d2 100644 --- a/src/GF/Text/Coding.hs +++ b/src/GF/Text/Coding.hs @@ -1,17 +1,20 @@ module GF.Text.Coding where import GF.Text.UTF8 +import GF.Text.CP1250 import GF.Text.CP1251 import GF.Text.CP1252 encodeUnicode e = case e of "utf8" -> encodeUTF8 + "cp1250" -> encodeCP1250 "cp1251" -> encodeCP1251 "cp1252" -> encodeCP1252 _ -> id decodeUnicode e = case e of "utf8" -> decodeUTF8 + "cp1250" -> decodeCP1250 "cp1251" -> decodeCP1251 "cp1252" -> decodeCP1252 _ -> id |