Fix build under 6.10

--HG--
extra : convert_revision : 69e527fa935d1e8c07de86a51f5a1c9cb880137b

Data/Text/IO.hs

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