From aae18cd2d41801445c16e446227089e101274b1b Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 14 Jun 2007 09:42:22 +0000 Subject: [PATCH] FIX hGetBuf001: cut-and-pasto in readRawBufferNoBlock --- GHC/Handle.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/GHC/Handle.hs b/GHC/Handle.hs index ebcd75e..7ae3fe6 100644 --- a/GHC/Handle.hs +++ b/GHC/Handle.hs @@ -589,7 +589,7 @@ readRawBufferNoBlock loc fd is_nonblock buf off len else return 0 -- XXX see note [nonblock] where - do_read call = throwErrnoIfMinus1RetryMayBlock loc call (return 0) + do_read call = throwErrnoIfMinus1RetryOnBlock loc call (return 0) unsafe_read = do_read (read_rawBuffer fd buf off len) safe_read = do_read (safe_read_rawBuffer fd buf off len) -- 1.7.10.4