Stowage/msgpack-python
2
0
Fork 0
mirror of https://github.com/msgpack/msgpack-python.git synced 2026-02-07 18:29:53 +00:00
Code Issues Projects Releases Packages Wiki Activity

haskell: nonblocking enumerator

Browse source
This commit is contained in:
tanakh 2010-09-06 23:27:50 +09:00
parent dfe19d308c
commit c6424c2ce7
2 changed files with 37 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
haskell/src/Data/MessagePack.hs
View file

@ -45,7 +45,6 @@ import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as L
import Data.Functor.Identity
import qualified Data.Iteratee as I
import qualified Data.Iteratee.IO as I
import System.IO
import Data.MessagePack.Object
@ -111,7 +110,7 @@ unpackFromStringI bs =
-- | Iteratee interface to unpack from Handle
unpackFromHandleI :: CIO.MonadCatchIO m => Handle -> I.Iteratee B.ByteString m a -> m a
unpackFromHandleI h =
I.run . I.joinIM . I.enumHandle bufferSize h
I.run . I.joinIM . enumHandleNonBlocking bufferSize h
-- | Iteratee interface to unpack from File
unpackFromFileI :: CIO.MonadCatchIO m => FilePath -> I.Iteratee B.ByteString m a -> m a