[commit: ghc] wip/ghc710-aix: Workaround broken latin1 iconv on AIX (0c56fff)
git at git.haskell.org
git at git.haskell.org
Mon Nov 16 08:44:11 UTC 2015
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/ghc710-aix
Link : http://ghc.haskell.org/trac/ghc/changeset/0c56fff5ce35d1b3e39b66e5f976d826a7eff1de/ghc
>---------------------------------------------------------------
commit 0c56fff5ce35d1b3e39b66e5f976d826a7eff1de
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date: Mon Nov 16 09:14:42 2015 +0100
Workaround broken latin1 iconv on AIX
>---------------------------------------------------------------
0c56fff5ce35d1b3e39b66e5f976d826a7eff1de
libraries/base/GHC/IO/Encoding.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/libraries/base/GHC/IO/Encoding.hs b/libraries/base/GHC/IO/Encoding.hs
index a690717..6dfc9d0 100644
--- a/libraries/base/GHC/IO/Encoding.hs
+++ b/libraries/base/GHC/IO/Encoding.hs
@@ -237,6 +237,8 @@ mkTextEncoding e = case mb_coding_failure_mode of
mkTextEncoding' :: CodingFailureMode -> String -> IO TextEncoding
mkTextEncoding' cfm enc =
case [toUpper c | c <- enc, c /= '-'] of
+ -- ISO8859-1 we can handle ourself
+ "ISO88591" -> return $ Latin1.mkLatin1 cfm
-- UTF-8 and friends we can handle ourselves
"UTF8" -> return $ UTF8.mkUTF8 cfm
"UTF16" -> return $ UTF16.mkUTF16 cfm
More information about the ghc-commits
mailing list