From fa1a03257e7084ae4b67177e2a0408a54a82c966 Mon Sep 17 00:00:00 2001 From: "Julian K. Arni" Date: Mon, 16 Oct 2017 09:11:43 -0700 Subject: [PATCH] Documenation for jsonEquality --- src/Servant/QuickCheck/Internal/Equality.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Servant/QuickCheck/Internal/Equality.hs b/src/Servant/QuickCheck/Internal/Equality.hs index a4ae9d6..aa0b53e 100644 --- a/src/Servant/QuickCheck/Internal/Equality.hs +++ b/src/Servant/QuickCheck/Internal/Equality.hs @@ -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)