@@ -425,6 +425,9 @@ module Control.Monad where
425 when true m = m
425 when true m = m
426 when false _ = return {}
426 when false _ = return {}
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
428module Data.Maybe where
431module Data.Maybe where
430 import Prelude
433 import Prelude