pipe: make Pipe instance of MonadIO