[project @ 2005-05-27 19:26:34 by simonmar]

hLookAhead: don't wait for a completely full buffer

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 49ab6dc..a3cf25b 100644 (file)
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -1146,7 +1146,7 @@ hLookAhead handle = do
 
   -- fill up the read buffer if necessary
   new_buf <- if bufferEmpty buf
-               then fillReadBuffer fd is_line (haIsStream handle_) buf
+               then fillReadBuffer fd True (haIsStream handle_) buf
                else return buf
   
   writeIORef ref new_buf