eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Two failed responses can be equal even though they don't come from

Browse source 
the same request.
This commit is contained in:
Stevan Andjelkovic 2017-05-05 15:55:21 +02:00
parent b8de9c8527
commit bf9c84eccb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-client/src/Servant/Common/Req.hs
View file

@ -72,8 +72,8 @@ data ServantError
deriving (Show, Typeable) deriving (Show, Typeable)
instance Eq ServantError where instance Eq ServantError where
FailureResponse a b c d == FailureResponse w x y z = FailureResponse _ a b c == FailureResponse _ x y z =
(show a, b, c, d) == (show w, x, y, z) (a, b, c) == (x, y, z)
DecodeFailure a b c == DecodeFailure x y z = DecodeFailure a b c == DecodeFailure x y z =
(a, b, c) == (x, y, z) (a, b, c) == (x, y, z)
UnsupportedContentType a b == UnsupportedContentType x y = UnsupportedContentType a b == UnsupportedContentType x y =