zipWith package:io-streams

zipWith :: (a -> b -> c) -> InputStream a -> InputStream b -> IO (InputStream c)
io-streams System.IO.Streams.Combinators
Combines two input streams using the supplied function. Continues yielding elements from both input streams until one of them finishes.
zipWithM :: (a -> b -> IO c) -> InputStream a -> InputStream b -> IO (InputStream c)
io-streams System.IO.Streams.Combinators
Combines two input streams using the supplied monadic function. Continues yielding elements from both input streams until one of them finishes.