@@ -72,8 +72,8 @@ data ServantError
7272 deriving (Show, Typeable)
7373
7474instance Eq ServantError where
75− FailureResponse a b c d == FailureResponse w x y z =
76− (show a, b, c, d) == (show w, x, y, z)
75+ FailureResponse _ a b c == FailureResponse _ x y z =
76+ (a, b, c) == (x, y, z)
7777 DecodeFailure a b c == DecodeFailure x y z =
7878 (a, b, c) == (x, y, z)
7979 UnsupportedContentType a b == UnsupportedContentType x y =