X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FEncoding%2FIconv.hs;h=1c19b00cf4b9b3ab4f28241007ab6b8d94294a52;hb=d0de62a16dc452a30d849a345344733327c98692;hp=9a9e8c835afa50c378e55c1c8a3584bc123d032e;hpb=4966da6b84e60869c917ffcc4ac8245c37b37b8f;p=ghc-base.git

diff --git a/GHC/IO/Encoding/Iconv.hs b/GHC/IO/Encoding/Iconv.hs
index 9a9e8c8..1c19b00 100644
--- a/GHC/IO/Encoding/Iconv.hs
+++ b/GHC/IO/Encoding/Iconv.hs
@@ -132,6 +132,7 @@ char_shift | charSize == 2 = 1
 mkTextEncoding :: String -> IO TextEncoding
 mkTextEncoding charset = do
   return (TextEncoding { 
+                textEncodingName = charset,
 		mkTextDecoder = newIConv charset haskellChar iconvDecode,
 		mkTextEncoder = newIConv haskellChar charset iconvEncode})