Add hGetEncoding :: Handle -> IO (Maybe TextEncoding)

[ghc-base.git] / GHC / IO / Handle / Types.hs

diff --git a/GHC/IO/Handle/Types.hs b/GHC/IO/Handle/Types.hs
index a45f298..6566619 100644 (file)
--- 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