From 8a98bd5954b24b591156198d89329041c4c0e426 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 27 May 2005 19:26:34 +0000
Subject: [PATCH] [project @ 2005-05-27 19:26:34 by simonmar] hLookAhead:
 don't wait for a completely full buffer

---
 GHC/Handle.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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