From 27b66a7cfd77209ab44e4bce8cb2a9bc19a8c0c3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 5 Oct 2009 10:15:54 +0000 Subject: [PATCH] use UTF32BE/UTF32LE instead of UCS-4/UCS-4LE --- GHC/IO/Encoding/Iconv.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4