From d83fd0ab2997e0d96d59651f9f4e629a67886725 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Thu, 18 Jan 2024 09:57:52 +0100 Subject: [PATCH] implement missing (orphan) Eq instance for Response --- src/Servant/QuickCheck/Internal/Equality.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/Servant/QuickCheck/Internal/Equality.hs b/src/Servant/QuickCheck/Internal/Equality.hs index a05704f..411d353 100644 --- a/src/Servant/QuickCheck/Internal/Equality.hs +++ b/src/Servant/QuickCheck/Internal/Equality.hs @@ -4,7 +4,7 @@ import Data.Aeson (Value, decode, decodeStrict) import Data.ByteString (ByteString) import qualified Data.ByteString.Lazy as LB import Data.Function (on) -import Network.HTTP.Client (Response, responseBody) +import Network.HTTP.Client (Response, responseBody, responseStatus, responseVersion, responseHeaders) import Data.Semigroup (Semigroup (..)) import Prelude.Compat @@ -19,6 +19,11 @@ instance Monoid (ResponseEquality b) where mempty = ResponseEquality $ \_ _ -> True mappend = (<>) +instance Eq a => Eq (Response a) where + a == b = responseBody a == responseBody b + && responseStatus a == responseStatus b + && responseHeaders a == responseHeaders b + -- | Use `Eq` instance for `Response` -- -- /Since 0.0.0.0/