From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 5 Oct 2009 10:15:54 +0000 (+0000)
Subject: use UTF32BE/UTF32LE instead of UCS-4/UCS-4LE
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=27b66a7cfd77209ab44e4bce8cb2a9bc19a8c0c3;p=ghc-base.git

use UTF32BE/UTF32LE instead of UCS-4/UCS-4LE
---

diff --git a/GHC/IO/Encoding/Iconv.hs b/GHC/IO/Encoding/Iconv.hs
index cbcc5b9..1f20af2 100644
--- a/GHC/IO/Encoding/Iconv.hs
+++ b/GHC/IO/Encoding/Iconv.hs
@@ -129,10 +129,10 @@ foreign import ccall unsafe "localeEncoding"
 haskellChar :: String
 #ifdef WORDS_BIGENDIAN
 haskellChar | charSize == 2 = "UTF16BE"
-            | otherwise     = "UCS-4"
+            | otherwise     = "UTF32BE"
 #else
 haskellChar | charSize == 2 = "UTF16LE"
-            | otherwise     = "UCS-4LE"
+            | otherwise     = "UTF32LE"
 #endif
 
 char_shift :: Int