From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Thu, 16 Nov 2006 17:31:04 +0000 (+0000)
Subject: (nhc98) use new primitive implementations of h{Put,Get}Buf.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6dd66061e863deb0d526e8680a2735f1b4d5aa2d;p=haskell-directory.git

(nhc98) use new primitive implementations of h{Put,Get}Buf.
---

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