Permalink
Browse files

traverseLeft doc fix

  • Loading branch information...
1 parent ef34904 commit b75afeac01efc947d00daf889c926cfb7cc3cf2d @ekmett committed Aug 13, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Data/Either/Lens.hs
@@ -20,7 +20,7 @@ import Control.Lens
-- | A traversal for tweaking the left-hand value of an 'Either':
--
--- @traverseLeft :: 'Applicative' f => (a -> f b) -> 'Either' a c -> f ('Either' b c)
+-- @traverseLeft :: 'Applicative' f => (a -> f b) -> 'Either' a c -> f ('Either' b c)@
traverseLeft :: Traversal (Either a c) (Either b c) a b
traverseLeft f (Left a) = Left <$> f a
traverseLeft _ (Right c) = pure $ Right c

0 comments on commit b75afea

Please sign in to comment.