From c2899caa35800b67f5fba77cf2b49efcdfa87205 Mon Sep 17 00:00:00 2001 From: Henning Guenther Date: Tue, 24 Feb 2009 23:31:43 -0800 Subject: [PATCH] Added ISO 2022-JP string to names list darcs-hash:20090225073143-a4fee-ec84c9ab6d5baa030e204df92bc5f4450011f9f9 --- Data/Encoding.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Data/Encoding.hs b/Data/Encoding.hs index 6905a03..cc04b8f 100644 --- a/Data/Encoding.hs +++ b/Data/Encoding.hs @@ -74,6 +74,7 @@ import Data.Encoding.GB18030 import Data.Encoding.MacOSRoman import Data.Encoding.JISX0201 import Data.Encoding.JISX0208 +import Data.Encoding.ISO2022JP import Data.Char import Text.Regex @@ -307,6 +308,8 @@ encodingFromStringMaybe codeName = case (normalizeEncoding codeName) of "jis_x_0201" -> Just $ DynEncoding JISX0201 -- JIS x 0208 "jis_x_0208" -> Just $ DynEncoding JISX0208 + -- ISO 2022-JP + "iso_2022_jp" -> Just $ DynEncoding ISO2022JP -- defaults to nothing _ -> Nothing where