@@ -111,7 +111,6 @@ hGetContents h = do
111111 ts <- readChunks
112112 (hh', _) <- hClose_help hh
113113 return (hh'{haType=ClosedHandle}, T.concat ts)
114−#endif
115114
116115-- | Use a more efficient buffer size if we're reading in
117116-- block-buffered mode with the default buffer size. When we can
@@ -129,6 +128,7 @@ chooseGoodBuffering h = do
129128 else throw e
130129 when (d > 0) . hSetBuffering h . BlockBuffering . Just . fromIntegral $ d
131130 _ -> return ()
131+#endif
132132
133133-- | Read a single line from a handle.
134134hGetLine :: Handle -> IO Text