simple-pipe-0.0.0.13: src/Data/Pipe/Basic.hs
module Data.Pipe.Basic (convert) where import Data.Pipe 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)
module Data.Pipe.Basic (convert) where import Data.Pipe 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)