@@ -425,6 +425,9 @@ module Control.Monad where
425425 when true m = m
426426 when false _ = return {}
427427
428+ zipWithM :: forall m a b c. (Monad m) => (a -> b -> m c) -> [a] -> [b] -> m [c]
429+ zipWithM f xs ys = sequence $ zipWith f xs ys
430+
428431module Data.Maybe where
429432
430433 import Prelude