X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FHandle.hs;h=d938e7b1a9e87c1a94032926d7d866d58f3d7802;hb=7a499a50c676e36e3d4562652e94fbcabf22e594;hp=18bf135f9c71775526fa4203cfb800f1a260142f;hpb=c6318f69e6af8f22c2d5aa683e6cb067a0068d10;p=haskell-directory.git

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 18bf135..d938e7b 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -594,7 +594,7 @@ writeRawBufferPtr loc fd is_stream buf off len
 
 -- ToDo: we don't have a non-blocking primitve read on Win32
 readRawBufferNoBlock :: String -> FD -> Bool -> RawBuffer -> Int -> CInt -> IO CInt
-readRawBufferNoBlock = readRawBufferNoBlock
+readRawBufferNoBlock = readRawBuffer
 
 -- Async versions of the read/write primitives, for the non-threaded RTS