lens 4.13.2 → 4.13.2.1
raw patch · 3 files changed
+7/−3 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.markdown +4/−0
- lens.cabal +1/−1
- src/Control/Lens/Indexed.hs +2/−2
CHANGELOG.markdown view
@@ -1,3 +1,7 @@+4.13.2.1+------+* Fixed `itraverse_` and `imapM_` returning bottom+ 4.13.2 ------ * Restore default signature for `Control.Lens.At.at`
lens.cabal view
@@ -1,6 +1,6 @@ name: lens category: Data, Lenses, Generics-version: 4.13.2+version: 4.13.2.1 license: BSD3 cabal-version: >= 1.8 license-file: LICENSE
src/Control/Lens/Indexed.hs view
@@ -379,7 +379,7 @@ -- 'traverse_' l = 'itraverse' '.' 'const' -- @ itraverse_ :: (FoldableWithIndex i t, Applicative f) => (i -> a -> f b) -> t a -> f ()-itraverse_ f = getTraversed #. ifoldMap (\i -> Traversed #. void . f i)+itraverse_ f = void . getTraversed #. ifoldMap (\i -> Traversed #. f i) {-# INLINE itraverse_ #-} -- | Traverse elements with access to the index @i@, discarding the results (with the arguments flipped).@@ -406,7 +406,7 @@ -- 'mapM_' ≡ 'imapM' '.' 'const' -- @ imapM_ :: (FoldableWithIndex i t, Monad m) => (i -> a -> m b) -> t a -> m ()-imapM_ f = getSequenced #. ifoldMap (\i -> Sequenced #. liftM skip . f i)+imapM_ f = liftM skip . getSequenced #. ifoldMap (\i -> Sequenced #. f i) {-# INLINE imapM_ #-} -- | Run monadic actions for each target of an 'IndexedFold' or 'Control.Lens.IndexedTraversal.IndexedTraversal' with access to the index,