git.iko.soy/servant
on master help sign in
Two failed responses can be equal even though they don't come from
bf9c84eStevan Andjelkovic
servant-client/src/Servant/Common/Req.hs+2−2
compare with master
unifiedsplit
@@ -72,8 +72,8 @@ data ServantError
72 deriving (Show, Typeable)
72 deriving (Show, Typeable)
73
73
74instance Eq ServantError where
74instance Eq ServantError where
75− FailureResponse a b c d == FailureResponse w x y z =
75+ FailureResponse _ a b c == FailureResponse _ x y z =
76− (show a, b, c, d) == (show w, x, y, z)
76+ (a, b, c) == (x, y, z)
77 DecodeFailure a b c == DecodeFailure x y z =
77 DecodeFailure a b c == DecodeFailure x y z =
78 (a, b, c) == (x, y, z)
78 (a, b, c) == (x, y, z)
79 UnsupportedContentType a b == UnsupportedContentType x y =
79 UnsupportedContentType a b == UnsupportedContentType x y =