From: Ross Paterson <ross@soi.city.ac.uk>
Date: Mon, 20 Nov 2006 11:51:06 +0000 (+0000)
Subject: typo in comment
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7dda21a28127add90571f261edea44ff75eaeef0;p=ghc-base.git

typo in comment
---

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)