From 6be08d77e01ae418634897de62d44b5b1782566a Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 23 Feb 2009 14:17:16 +0000 Subject: fix the handling of flag coding --- src/GF/Text/Coding.hs | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'src/GF/Text') 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 -- cgit v1.2.3