From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 6 Oct 2009 10:02:07 +0000 (+0000)
Subject: Use UTF-32LE instead of UTF32LE
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c72dc997c63a629f6a2a9f82168ac93dda9ee09e;p=ghc-base.git

Use UTF-32LE instead of UTF32LE
The latter is not recognised by some iconv implementations.
---

diff --git a/GHC/IO/Encoding/Iconv.hs b/GHC/IO/Encoding/Iconv.hs
index 1f20af2..8ef87c9 100644
--- a/GHC/IO/Encoding/Iconv.hs
+++ b/GHC/IO/Encoding/Iconv.hs
@@ -128,11 +128,11 @@ foreign import ccall unsafe "localeEncoding"
 
 haskellChar :: String
 #ifdef WORDS_BIGENDIAN
-haskellChar | charSize == 2 = "UTF16BE"
-            | otherwise     = "UTF32BE"
+haskellChar | charSize == 2 = "UTF-16BE"
+            | otherwise     = "UTF-32BE"
 #else
-haskellChar | charSize == 2 = "UTF16LE"
-            | otherwise     = "UTF32LE"
+haskellChar | charSize == 2 = "UTF-16LE"
+            | otherwise     = "UTF-32LE"
 #endif
 
 char_shift :: Int