diff --git a/simple-pipe.cabal b/simple-pipe.cabal --- a/simple-pipe.cabal +++ b/simple-pipe.cabal @@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: simple-pipe -version: 0.0.0.28 +version: 0.0.0.29 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -80,7 +80,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/simple-pipe.git - tag: simple-pipe-0.0.0.28 + tag: simple-pipe-0.0.0.29 library hs-source-dirs: src @@ -91,7 +91,7 @@ other-modules: Data.Pipe.Core build-depends: - base == 4.*, monad-control == 0.3.*, lifted-base == 0.2.*, + base == 4.*, monad-control == 1.0.*, lifted-base == 0.2.*, monads-tf == 0.1.*, bytestring == 0.10.*, transformers-base == 0.4.*, stm == 2.4.* ghc-options: -Wall diff --git a/src/Data/Pipe/Lazy.hs b/src/Data/Pipe/Lazy.hs --- a/src/Data/Pipe/Lazy.hs +++ b/src/Data/Pipe/Lazy.hs @@ -15,10 +15,10 @@ instance PipeLazy Pipe where toLazy = toLazyP toLazyP :: MonadBaseControl IO m => Pipe i o m r -> m [o] -toLazyP (Ready f o p) = (o :) `liftM` unsafeInterleaveIO (toLazyP p) -toLazyP (Need f p) = toLazyP $ p Nothing -toLazyP (Done f r) = return [] -toLazyP (Make f p) = toLazyP =<< p +toLazyP (Ready _ o p) = (o :) `liftM` unsafeInterleaveIO (toLazyP p) +toLazyP (Need _ p) = toLazyP $ p Nothing +toLazyP (Done _ _) = return [] +toLazyP (Make _ p) = toLazyP =<< p unsafeInterleaveIO :: MonadBaseControl IO m => m a -> m a unsafeInterleaveIO m = control $ \runInIO -> U.unsafeInterleaveIO (runInIO m)