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.2 +version: 0.0.0.3 stability: Experimental author: Yoshikuni Jujo maintainer: Yoshikuni Jujo @@ -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 diff --git a/src/Data/Pipe.hs b/src/Data/Pipe.hs --- a/src/Data/Pipe.hs +++ b/src/Data/Pipe.hs @@ -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