use UTF32BE/UTF32LE instead of UCS-4/UCS-4LE
authorSimon Marlow <marlowsd@gmail.com>
Mon, 5 Oct 2009 10:15:54 +0000 (10:15 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 5 Oct 2009 10:15:54 +0000 (10:15 +0000)
GHC/IO/Encoding/Iconv.hs

index cbcc5b9..1f20af2 100644 (file)
@@ -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