From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 14 Jun 2007 09:42:22 +0000 (+0000)
Subject: FIX hGetBuf001: cut-and-pasto in readRawBufferNoBlock
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=aae18cd2d41801445c16e446227089e101274b1b;p=ghc-base.git

FIX hGetBuf001: cut-and-pasto in readRawBufferNoBlock
---

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)