Use function rather than solution in intOrLengthEven tests.

This commit is contained in:
Andrew McCluskey 2019-02-01 11:38:54 +10:00
parent 489d235be1
commit bf94e2bbee
No known key found for this signature in database
GPG key ID: D001D571DCA8933F

View file

@ -783,13 +783,13 @@ intOrP =
-- |
--
-- >> over intOrP (even . length) (IntOrIsNot "abc")
-- >> intOrLengthEven (IntOrIsNot "abc")
-- IntOrIsNot False
--
-- >>> over intOrP (even . length) (IntOrIsNot "abcd")
-- >>> intOrLengthEven (IntOrIsNot "abcd")
-- IntOrIsNot True
--
-- >>> over intOrP (even . length) (IntOrIs 10)
-- >>> intOrLengthEven (IntOrIs 10)
-- IntOrIs 10
intOrLengthEven ::
IntOr [a]