typo in comment
authorRoss Paterson <ross@soi.city.ac.uk>
Mon, 20 Nov 2006 11:51:06 +0000 (11:51 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Mon, 20 Nov 2006 11:51:06 +0000 (11:51 +0000)
libraries/base/Data/Foldable.hs
libraries/base/Data/Traversable.hs

index d245aa9..096a347 100644 (file)
@@ -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 ())
index c2c6033..32347d7 100644 (file)
@@ -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)