X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FHandle%2FTypes.hs;fp=GHC%2FIO%2FHandle%2FTypes.hs;h=6566619c8e11d38ad04eb7d88a10438ff002e171;hb=36544e286811d7ae98870fd427ff379fb47336c1;hp=a45f298bfa59c31f94e6372255e90e247b5264d9;hpb=609efe0b2f279af4616b2881b51212a8af94e3f1;p=ghc-base.git

diff --git a/GHC/IO/Handle/Types.hs b/GHC/IO/Handle/Types.hs
index a45f298..6566619 100644
--- a/GHC/IO/Handle/Types.hs
+++ b/GHC/IO/Handle/Types.hs
@@ -132,6 +132,7 @@ data Handle__
       haBuffers     :: !(IORef (BufferList CharBufElem)),  -- spare buffers
       haEncoder     :: Maybe (TextEncoder enc_state),
       haDecoder     :: Maybe (TextDecoder dec_state),
+      haCodec       :: Maybe TextEncoding,
       haInputNL     :: Newline,
       haOutputNL    :: Newline,
       haOtherSide   :: Maybe (MVar Handle__) -- ptr to the write side of a