From 6dd66061e863deb0d526e8680a2735f1b4d5aa2d Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Thu, 16 Nov 2006 17:31:04 +0000
Subject: [PATCH] (nhc98) use new primitive implementations of h{Put,Get}Buf.

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

diff --git a/System/IO.hs b/System/IO.hs
index f45e51d..cebaa98 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -148,10 +148,8 @@ module System.IO (
     withBinaryFile,
     openBinaryFile,	       -- :: FilePath -> IOMode -> IO Handle
     hSetBinaryMode,	       -- :: Handle -> Bool -> IO ()
-#if !defined(__NHC__)
     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
@@ -222,7 +220,8 @@ import IO
   , IO ()
   , FilePath                  -- :: String
   )
-import NHC.IOExtras (fixIO)
+import NHC.IOExtras (fixIO, hPutBuf, hGetBuf)
+import NHC.FFI (Ptr)
 #endif
 
 -- -----------------------------------------------------------------------------
-- 
1.7.10.4