simple-pipe 0.0.0.26 → 0.0.0.27
raw patch · 2 files changed
+6/−3 lines, 2 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ Data.Pipe: runPipe_ :: (PipeClass p, Monad m) => p i o m r -> m ()
Files
- simple-pipe.cabal +2/−2
- src/Data/Pipe.hs +4/−1
simple-pipe.cabal view
@@ -2,7 +2,7 @@ cabal-version: >= 1.8 name: simple-pipe-version: 0.0.0.26+version: 0.0.0.27 stability: Experimental author: Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer: Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -80,7 +80,7 @@ source-repository this type: git location: git://github.com/YoshikuniJujo/simple-pipe.git- tag: simple-pipe-0.0.0.26+ tag: simple-pipe-0.0.0.27 library hs-source-dirs: src
src/Data/Pipe.hs view
@@ -2,7 +2,7 @@ PackageImports #-} module Data.Pipe (- PipeClass(..), PipeChoice(..), (=@=), convert,+ PipeClass(..), PipeChoice(..), (=@=), runPipe_, convert, Pipe, finally, bracket ) where import Control.Applicative@@ -32,6 +32,9 @@ mapIn :: Monad m => (i' -> i) -> p i o m r -> p i' o m r p `finalize` f = p `onBreak` f `onDone` f++runPipe_ :: (PipeClass p, Monad m) => p i o m r -> m ()+runPipe_ = (>> return ()) . runPipe convert :: (PipeClass p, Monad m, Monad (p a b m)) => (a -> b) -> p a b m () convert f = await >>= maybe (return ()) ((>> convert f) . yield . f)