implement missing (orphan) Eq instance for Response

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/