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:
86f17a7
)
export hGetBufSome (#4046)
author
Simon Marlow
<marlowsd@gmail.com>
Thu, 20 May 2010 09:35:38 +0000
(09:35 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Thu, 20 May 2010 09:35:38 +0000
(09:35 +0000)
System/IO.hs
patch
|
blob
|
history
diff --git
a/System/IO.hs
b/System/IO.hs
index
248af31
..
a543f2b
100644
(file)
--- a/
System/IO.hs
+++ b/
System/IO.hs
@@
-151,6
+151,7
@@
module System.IO (
hPutBuf, -- :: Handle -> Ptr a -> Int -> IO ()
hGetBuf, -- :: Handle -> Ptr a -> Int -> IO Int
#if !defined(__NHC__) && !defined(__HUGS__)
hPutBuf, -- :: Handle -> Ptr a -> Int -> IO ()
hGetBuf, -- :: Handle -> Ptr a -> Int -> IO Int
#if !defined(__NHC__) && !defined(__HUGS__)
+ hGetBufSome, -- :: Handle -> Ptr a -> Int -> IO Int
hPutBufNonBlocking, -- :: Handle -> Ptr a -> Int -> IO Int
hGetBufNonBlocking, -- :: Handle -> Ptr a -> Int -> IO Int
#endif
hPutBufNonBlocking, -- :: Handle -> Ptr a -> Int -> IO Int
hGetBufNonBlocking, -- :: Handle -> Ptr a -> Int -> IO Int
#endif
@@
-240,6
+241,7
@@
import GHC.IO.IOMode
import GHC.IO.Handle.FD
import qualified GHC.IO.FD as FD
import GHC.IO.Handle
import GHC.IO.Handle.FD
import qualified GHC.IO.FD as FD
import GHC.IO.Handle
+import GHC.IO.Handle.Text ( hGetBufSome )
import GHC.IORef
import GHC.IO.Exception ( userError )
import GHC.IO.Encoding
import GHC.IORef
import GHC.IO.Exception ( userError )
import GHC.IO.Encoding