From bf9c84eccbba42d055a95b0de0ab40128c772e52 Mon Sep 17 00:00:00 2001 From: Stevan Andjelkovic Date: Fri, 5 May 2017 15:55:21 +0200 Subject: [PATCH] Two failed responses can be equal even though they don't come from the same request. --- servant-client/src/Servant/Common/Req.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/servant-client/src/Servant/Common/Req.hs b/servant-client/src/Servant/Common/Req.hs index 509d4f69..462c5d1e 100644 --- a/servant-client/src/Servant/Common/Req.hs +++ b/servant-client/src/Servant/Common/Req.hs @@ -72,8 +72,8 @@ data ServantError deriving (Show, Typeable) instance Eq ServantError where - FailureResponse a b c d == FailureResponse w x y z = - (show a, b, c, d) == (show w, x, y, z) + FailureResponse _ a b c == FailureResponse _ x y z = + (a, b, c) == (x, y, z) DecodeFailure a b c == DecodeFailure x y z = (a, b, c) == (x, y, z) UnsupportedContentType a b == UnsupportedContentType x y =