Add a manual Eq QueryException instance

This is to work around a missing Eq AcquiringFailure, see IntersectMBO/cardano-node#4683
input-output-hk · Nov 30, 2022 · be95c75 · be95c75
1 parent 7b61d2c
commit be95c75
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/hydra-node/src/Hydra/Chain/CardanoClient.hs b/hydra-node/src/Hydra/Chain/CardanoClient.hs
@@ -20,7 +20,16 @@ type NodeSocket = FilePath
 data QueryException
   = QueryAcquireException AcquiringFailure
   | QueryEraMismatchException EraMismatch
-  deriving (Eq, Show)
+  deriving (Show)
+
+instance Eq QueryException where
+  a == b = case (a, b) of
+    (QueryAcquireException af1, QueryAcquireException af2) -> case (af1, af2) of
+      (AFPointTooOld, AFPointTooOld) -> True
+      (AFPointNotOnChain, AFPointNotOnChain) -> True
+      _ -> False
+    (QueryEraMismatchException em1, QueryEraMismatchException em2) -> em1 == em2
+    _ -> False
 
 instance Exception QueryException