mirror of
https://github.com/ilyakooo0/servant-quickcheck.git
synced 2024-09-11 18:37:09 +03:00
Documenation for jsonEquality
This commit is contained in:
parent
cce3bef538
commit
fa1a03257e
@ -27,6 +27,10 @@ allEquality = ResponseEquality (==)
|
||||
bodyEquality :: Eq b => ResponseEquality b
|
||||
bodyEquality = ResponseEquality ((==) `on` responseBody)
|
||||
|
||||
-- | Equality as 'Value'. This means that if two bodies are equal as JSON
|
||||
-- (e.g., insignificant whitespace difference) they are considered equal.
|
||||
--
|
||||
-- /Since 0.0.3.0/
|
||||
jsonEquality :: (JsonEq b) => ResponseEquality b
|
||||
jsonEquality = ResponseEquality (jsonEq `on` responseBody)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user