simple-pipe 0.0.0.18 → 0.0.0.19

raw patch · 2 files changed

+15/−3 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• simple-pipe.cabal +3/−3
• src/Data/Pipe/Flow.hs +12/−0

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		simple-pipe-version:	0.0.0.18+version:	0.0.0.19 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -80,12 +80,12 @@ source-repository	this     type:	git     location:	git://github.com/YoshikuniJujo/simple-pipe.git-    tag:	simple-pipe-0.0.0.18+    tag:	simple-pipe-0.0.0.19  library     hs-source-dirs:	src     exposed-modules:-        Data.Pipe,+        Data.Pipe, Data.Pipe.Flow,         Data.Pipe.List, Data.Pipe.IO, Data.Pipe.ByteString     build-depends:         base == 4.*, monad-control == 0.3.*, lifted-base == 0.2.*,

@@ -0,0 +1,12 @@+module Data.Pipe.Flow (before, until) where++import Prelude hiding (until)+import Data.Pipe++before :: (PipeClass p, Monad m, Monad (p a a m)) => (a -> Bool) -> p a a m ()+before p = (await >>=) . maybe (return ()) $ \x ->+	if p x then return () else yield x >> before p++until :: (PipeClass p, Monad m, Monad (p a a m)) => (a -> Bool) -> p a a m ()+until p = (await >>=) . maybe (return ()) $ \x ->+	if p x then yield x else yield x >> before p