simple-pipe 0.0.0.2 → 0.0.0.3

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

simple-pipe.cabal +2/−2
src/Data/Pipe.hs +3/−0

simple-pipe.cabal view

@@ -2,7 +2,7 @@ cabal-version:	>= 1.8  name:		simple-pipe-version:	0.0.0.2+version:	0.0.0.3 stability:	Experimental author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>@@ -87,7 +87,7 @@ source-repository	this     type:	git     location:	git://github.com/YoshikuniJujo/forest.git-    tag:	simple-pipe-0.0.0.2+    tag:	simple-pipe-0.0.0.3  library     hs-source-dirs:	src

src/Data/Pipe.hs view

@@ -57,6 +57,9 @@ instance MonadTrans (Pipe i o) where 	lift = liftP +instance MonadIO m => MonadIO (Pipe i o m) where+	liftIO = lift . liftIO+ runPipe :: Monad m => Pipe i o m r -> m (Maybe r) runPipe (Done f r) = f >> return (Just r) runPipe (Make _ m) = runPipe =<< m