typo in comment

[ghc-base.git] / Data / Traversable.hs

diff --git a/Data/Traversable.hs b/Data/Traversable.hs
index c2c6033..32347d7 100644 (file)
--- 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)