From 1b8d3f8ad5fd95ce07ae044b69676d5373ed4830 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 20 Feb 2004 17:46:38 +0000
Subject: [PATCH] [project @ 2004-02-20 17:46:38 by panne] Hugs has
 hSetBinaryMode, hPutBuf, and hGetBuf now.

---
 System/IO.hs |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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
-- 
1.7.10.4