@@ -111,7 +111,6 @@ hGetContents h = do
111 ts <- readChunks
111 ts <- readChunks
112 (hh', _) <- hClose_help hh
112 (hh', _) <- hClose_help hh
113 return (hh'{haType=ClosedHandle}, T.concat ts)
113 return (hh'{haType=ClosedHandle}, T.concat ts)
116-- | Use a more efficient buffer size if we're reading in
115-- | Use a more efficient buffer size if we're reading in
117-- block-buffered mode with the default buffer size. When we can
116-- block-buffered mode with the default buffer size. When we can
@@ -129,6 +128,7 @@ chooseGoodBuffering h = do
129 else throw e
128 else throw e
130 when (d > 0) . hSetBuffering h . BlockBuffering . Just . fromIntegral $ d
129 when (d > 0) . hSetBuffering h . BlockBuffering . Just . fromIntegral $ d
131 _ -> return ()
130 _ -> return ()
133-- | Read a single line from a handle.
133-- | Read a single line from a handle.
134hGetLine :: Handle -> IO Text
134hGetLine :: Handle -> IO Text