Fix definition of elemOf
This commit is contained in:
parent
a7152cd582
commit
253467ebae
|
@ -218,7 +218,7 @@ ianyOf = ifoldMapOf @{Any}
|
||||||
||| Return `True` if the element occurs in the focuses of the optic.
|
||| Return `True` if the element occurs in the focuses of the optic.
|
||||||
public export
|
public export
|
||||||
elemOf : Eq a => Fold s a -> a -> s -> Bool
|
elemOf : Eq a => Fold s a -> a -> s -> Bool
|
||||||
elemOf l = allOf l . (==)
|
elemOf l = anyOf l . (==)
|
||||||
|
|
||||||
||| Calculate the number of focuses of the optic.
|
||| Calculate the number of focuses of the optic.
|
||||||
public export
|
public export
|
||||||
|
|
Loading…
Reference in a new issue