projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ae26ec5
)
(nhc98) use new primitive implementations of h{Put,Get}Buf.
author
Malcolm.Wallace@cs.york.ac.uk
<unknown>
Thu, 16 Nov 2006 17:31:04 +0000
(17:31 +0000)
committer
Malcolm.Wallace@cs.york.ac.uk
<unknown>
Thu, 16 Nov 2006 17:31:04 +0000
(17:31 +0000)
System/IO.hs
patch
|
blob
|
history
diff --git
a/System/IO.hs
b/System/IO.hs
index
f45e51d
..
cebaa98
100644
(file)
--- 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 ()
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
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
#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
)
, IO ()
, FilePath -- :: String
)
-import NHC.IOExtras (fixIO)
+import NHC.IOExtras (fixIO, hPutBuf, hGetBuf)
+import NHC.FFI (Ptr)
#endif
-- -----------------------------------------------------------------------------
#endif
-- -----------------------------------------------------------------------------