haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added ISO 2022-JP string to names list

Browse Source 
darcs-hash:20090225073143-a4fee-ec84c9ab6d5baa030e204df92bc5f4450011f9f9
This commit is contained in:
Henning Guenther 2009-02-24 23:31:43 -08:00
parent d2e7eeddd1
commit c2899caa35
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Data/Encoding.hs
View File

@ -74,6 +74,7 @@ import Data.Encoding.GB18030
import Data.Encoding.MacOSRoman import Data.Encoding.MacOSRoman
import Data.Encoding.JISX0201 import Data.Encoding.JISX0201
import Data.Encoding.JISX0208 import Data.Encoding.JISX0208
import Data.Encoding.ISO2022JP
import Data.Char import Data.Char
import Text.Regex import Text.Regex
@ -307,6 +308,8 @@ encodingFromStringMaybe codeName = case (normalizeEncoding codeName) of
"jis_x_0201" -> Just $ DynEncoding JISX0201 "jis_x_0201" -> Just $ DynEncoding JISX0201
-- JIS x 0208 -- JIS x 0208
"jis_x_0208" -> Just $ DynEncoding JISX0208 "jis_x_0208" -> Just $ DynEncoding JISX0208
-- ISO 2022-JP
"iso_2022_jp" -> Just $ DynEncoding ISO2022JP
-- defaults to nothing -- defaults to nothing
_ -> Nothing _ -> Nothing
where where