From: simonmar <unknown>
Date: Wed, 24 Sep 2003 10:41:11 +0000 (+0000)
Subject: [project @ 2003-09-24 10:41:11 by simonmar]
X-Git-Tag: nhc98-1-18-release~494
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=30431f0b3a07f49177b6f3d4eb68f403b46bd0b0;hp=e7dbf3af1879d01e70f8a35b8b83926f35404aa9;p=ghc-base.git

[project @ 2003-09-24 10:41:11 by simonmar]
Add non-blocking versions of hGetBuf, hPutBuf.
---

diff --git a/System/IO.hs b/System/IO.hs
index f3e0212..23e7428 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -149,6 +149,8 @@ module System.IO (
     hSetBinaryMode,	       -- :: Handle -> Bool -> IO ()
     hPutBuf,		       -- :: Handle -> Ptr a -> Int -> IO ()
     hGetBuf,		       -- :: Handle -> Ptr a -> Int -> IO Int
+    hPutBufNonBlocking,	       -- :: Handle -> Ptr a -> Int -> IO Int
+    hGetBufNonBlocking,	       -- :: Handle -> Ptr a -> Int -> IO Int
 #endif
 
     module System.IO.Error,