Permalink
Browse files

wrong combinator

  • Loading branch information...
1 parent 280bcd2 commit b21073ceebef0b0ca9d98ccbfe925010c6d049f5 @ekmett committed Aug 28, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Control/Lens/Type.hs
View
@@ -319,7 +319,7 @@ type SimpleOverloaded k f a b = Overloaded k f a a b b
-- | Modify the target of a 'Lens' and return the result
--
--- When you do not need the result of the addition, ('Control.Lens.Setter.+~') is more flexible.
+-- When you do not need the result of the addition, ('Control.Lens.Setter.%~') is more flexible.
(<%~) :: LensLike ((,)d) a b c d -> (c -> d) -> a -> (d, b)
l <%~ f = l $ \c -> let d = f c in (d, d)
{-# INLINE (<%~) #-}

0 comments on commit b21073c

Please sign in to comment.