From: panne <unknown>
Date: Fri, 20 Feb 2004 17:46:38 +0000 (+0000)
Subject: [project @ 2004-02-20 17:46:38 by panne]
X-Git-Tag: nhc98-1-18-release~370
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1b8d3f8ad5fd95ce07ae044b69676d5373ed4830;p=haskell-directory.git

[project @ 2004-02-20 17:46:38 by panne]
Hugs has hSetBinaryMode, hPutBuf, and hGetBuf now.
---

diff --git a/System/IO.hs b/System/IO.hs
index 460c2bb..877623a 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -143,12 +143,11 @@ module System.IO (
 
 #if !defined(__NHC__)
     openBinaryFile,	       -- :: FilePath -> IOMode -> IO Handle
-#endif
-
-#if !defined(__HUGS__) && !defined(__NHC__)
     hSetBinaryMode,	       -- :: Handle -> Bool -> IO ()
     hPutBuf,		       -- :: Handle -> Ptr a -> Int -> IO ()
     hGetBuf,		       -- :: Handle -> Ptr a -> Int -> IO Int
+#endif
+#if !defined(__NHC__) && !defined(__HUGS__)
     hPutBufNonBlocking,	       -- :: Handle -> Ptr a -> Int -> IO Int
     hGetBufNonBlocking,	       -- :: Handle -> Ptr a -> Int -> IO Int
 #endif