diff --git a/handle-like.cabal b/handle-like.cabal --- a/handle-like.cabal +++ b/handle-like.cabal @@ -2,7 +2,7 @@ build-type: Simple name: handle-like -version: 0.1.0.1 +version: 0.1.0.2 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo diff --git a/src/Data/HandleLike.hs b/src/Data/HandleLike.hs --- a/src/Data/HandleLike.hs +++ b/src/Data/HandleLike.hs @@ -51,6 +51,9 @@ "critical" -> Critical _ -> Moderate +bufferSize :: Int +bufferSize = 65536 + instance HandleLike Handle where type HandleMonad Handle = IO hlPut = BS.hPut @@ -58,6 +61,7 @@ -- hlGetByte h = do [b] <- BS.unpack <$> BS.hGet h 1; return b hlGetLine = (chopCR `liftM`) . BS.hGetLine -- hlGetContent = flip BS.hGet 1 + hlGetContent = flip BS.hGetSome bufferSize hlDebug _ Critical = BS.hPutStr stderr hlDebug _ _ = const $ return () hlFlush = hFlush