pipeBind
    :: Monad m
    => (a -> [b]) -> Pipe a b m r
pipeBind f =
    forever $
    do a <- Pipes.await
       forM (f a) yield
pipeBind
    :: Monad m
    => (a -> [b]) -> Pipe a b m r
pipeBind f =
    forever $
    do a <- Pipes.await
       forM (f a) yield
pipeBind f =
    forever $
    do a <- Pipes.await
       forM (f a) yield