From: simonmar <unknown>
Date: Fri, 27 May 2005 19:26:34 +0000 (+0000)
Subject: [project @ 2005-05-27 19:26:34 by simonmar]
X-Git-Tag: cmm-merge2~72
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8a98bd5954b24b591156198d89329041c4c0e426;p=ghc-base.git

[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
--- 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