From 7dda21a28127add90571f261edea44ff75eaeef0 Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Mon, 20 Nov 2006 11:51:06 +0000 Subject: [PATCH] typo in comment --- Data/Foldable.hs | 2 +- Data/Traversable.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/Foldable.hs b/Data/Foldable.hs index d245aa9..096a347 100644 --- a/Data/Foldable.hs +++ b/Data/Foldable.hs @@ -185,7 +185,7 @@ for_ :: (Foldable t, Applicative f) => t a -> (a -> f b) -> f () {-# INLINE for_ #-} for_ = flip traverse_ --- | Map each element of a structure to an monadic action, evaluate +-- | Map each element of a structure to a monadic action, evaluate -- these actions from left to right, and ignore the results. mapM_ :: (Foldable t, Monad m) => (a -> m b) -> t a -> m () mapM_ f = foldr ((>>) . f) (return ()) diff --git a/Data/Traversable.hs b/Data/Traversable.hs index c2c6033..32347d7 100644 --- a/Data/Traversable.hs +++ b/Data/Traversable.hs @@ -81,7 +81,7 @@ class (Functor t, Foldable t) => Traversable t where sequenceA :: Applicative f => t (f a) -> f (t a) sequenceA = traverse id - -- | Map each element of a structure to an monadic action, evaluate + -- | Map each element of a structure to a monadic action, evaluate -- these actions from left to right, and collect the results. mapM :: Monad m => (a -> m b) -> t a -> m (t b) mapM f = unwrapMonad . traverse (WrapMonad . f) -- 1.7.10.4