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 -- IntOrIsNot False
-- --
-- >>> over intOrP (even . length) (IntOrIsNot "abcd") -- >>> intOrLengthEven (IntOrIsNot "abcd")
-- IntOrIsNot True -- IntOrIsNot True
-- --
-- >>> over intOrP (even . length) (IntOrIs 10) -- >>> intOrLengthEven (IntOrIs 10)
-- IntOrIs 10 -- IntOrIs 10
intOrLengthEven :: intOrLengthEven ::
IntOr [a] IntOr [a]