diff --git a/CHANGELOG.md b/CHANGELOG.md index a278136..4b49179 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -7,10 +7,12 @@ Notable changes to this project are documented in this file. The format is based Breaking changes: New features: +- Export `ifindOf`, `iforOf`, and `iforOf_` implemented in #66 by @Rufflewind and #21 by @zrho (#131 by @JordanMartinez) Bugfixes: Other improvements: +- Fix warnings revealed by PS v0.14.1 (#131 by @JordanMartinez) ## [v7.0.0](https://github.com/purescript-contrib/purescript-profunctor-lenses/releases/tag/v7.0.0) - 2021-02-26 diff --git a/src/Data/Lens/Fold.purs b/src/Data/Lens/Fold.purs index 742ea55..0567ed1 100644 --- a/src/Data/Lens/Fold.purs +++ b/src/Data/Lens/Fold.purs @@ -6,7 +6,7 @@ module Data.Lens.Fold , maximumOf, minimumOf, allOf, anyOf, andOf, orOf, elemOf, notElemOf, sumOf , productOf, lengthOf, findOf, sequenceOf_, traverseOf_, has, hasn't , replicated, filtered, folded, unfolded, toArrayOf, toArrayOfOn - , ifoldMapOf, ifoldrOf, ifoldlOf, iallOf, ianyOf, itoListOf, itraverseOf_ + , ifoldMapOf, ifoldrOf, ifoldlOf, iallOf, ianyOf, ifindOf, itoListOf, itraverseOf_, iforOf_ , module ExportTypes ) where @@ -178,7 +178,7 @@ filtered f = replicated :: forall a b t r. Monoid r => Int -> Fold r a b a t replicated i (Forget a) = Forget (go i a) where - go 0 x = mempty + go 0 _ = mempty go n x = x <> go (n - 1) x -- | Folds over a `Foldable` container. diff --git a/src/Data/Lens/Traversal.purs b/src/Data/Lens/Traversal.purs index 888b6d9..0d6bbe2 100644 --- a/src/Data/Lens/Traversal.purs +++ b/src/Data/Lens/Traversal.purs @@ -25,6 +25,7 @@ module Data.Lens.Traversal , failover , elementsOf , itraverseOf + , iforOf , cloneTraversal , module ExportTypes ) where