diff options
| -rw-r--r-- | libraries/base/Data/Traversable.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libraries/base/Data/Traversable.hs b/libraries/base/Data/Traversable.hs index aaea44b23a..cc72392539 100644 --- a/libraries/base/Data/Traversable.hs +++ b/libraries/base/Data/Traversable.hs @@ -145,10 +145,9 @@ import qualified GHC.List as List ( foldr ) class (Functor t, Foldable t) => Traversable t where {-# MINIMAL traverse | sequenceA #-} - -- | Map each element of a structure to an action, evaluate these - -- these actions from left to right, and collect the results. - -- actions from left to right, and collect the results. For a - -- version that ignores the results see 'Data.Foldable.traverse_'. + -- | Map each element of a structure to an action, evaluate these actions + -- from left to right, and collect the results. For a version that ignores + -- the results see 'Data.Foldable.traverse_'. traverse :: Applicative f => (a -> f b) -> t a -> f (t b) traverse f = sequenceA . fmap f |