From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 20 May 2010 09:35:38 +0000 (+0000)
Subject: export hGetBufSome (#4046)
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=4dc0a6fa50f56444c76e84387a16b179df2549ee

export hGetBufSome (#4046)
---

diff --git a/System/IO.hs b/System/IO.hs
index 248af31..a543f2b 100644
--- 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__)
+    hGetBufSome,               -- :: Handle -> Ptr a -> Int -> IO Int
     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.Text ( hGetBufSome )
 import GHC.IORef
 import GHC.IO.Exception ( userError )
 import GHC.IO.Encoding