servant-client: add Eq instance for ServantError

haskell-servant · Apr 21, 2016 · 29be576 · 29be576
1 parent 438912f
commit 29be576
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/servant-client/src/Servant/Common/Req.hs b/servant-client/src/Servant/Common/Req.hs
@@ -55,6 +55,19 @@ data ServantError
     }
   deriving (Show, Typeable)
 
+instance Eq ServantError where
+  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 =
+    (a, b) == (x, y)
+  InvalidContentTypeHeader a b == InvalidContentTypeHeader x y =
+    (a, b) == (x, y)
+  ConnectionError a == ConnectionError x =
+    show a == show x
+  _ == _ = False
+
 instance Exception ServantError
 
 data Req = Req