diff options
| author | krasimir <krasimir@chalmers.se> | 2009-02-23 14:17:16 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-02-23 14:17:16 +0000 |
| commit | 6be08d77e01ae418634897de62d44b5b1782566a (patch) | |
| tree | 79e392ca7bfd2ffbb284f804fb6612b748adf5da /src/GF/Text | |
| parent | b7d2916bbed9d1eec92066061d0fc0d5d35739b4 (diff) | |
fix the handling of flag coding
Diffstat (limited to 'src/GF/Text')
| -rw-r--r-- | src/GF/Text/Coding.hs | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/GF/Text/Coding.hs b/src/GF/Text/Coding.hs index 2860b79d2..e3cd7b0ea 100644 --- a/src/GF/Text/Coding.hs +++ b/src/GF/Text/Coding.hs @@ -1,20 +1,21 @@ module GF.Text.Coding where +import GF.Infra.Option 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 + UTF_8 -> encodeUTF8 + CP_1250 -> encodeCP1250 + CP_1251 -> encodeCP1251 + CP_1252 -> encodeCP1252 + _ -> id decodeUnicode e = case e of - "utf8" -> decodeUTF8 - "cp1250" -> decodeCP1250 - "cp1251" -> decodeCP1251 - "cp1252" -> decodeCP1252 - _ -> id + UTF_8 -> decodeUTF8 + CP_1250 -> decodeCP1250 + CP_1251 -> decodeCP1251 + CP_1252 -> decodeCP1252 + _ -> id |