Derive Eq instance for AcquiringFailure

This is often used in tests where we would like to assert that we receive one or the other.
IntersectMBO · Nov 30, 2022 · 9d98394 · 9d98394
1 parent 15556f3
commit 9d98394
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/cardano-api/ChangeLog.md b/cardano-api/ChangeLog.md
@@ -14,6 +14,8 @@
 
 - **Breaking change** - Reduce exposed modules in cardano-api ([PR4546](https://github.com/input-output-hk/cardano-node/pull/4546))
 
+- **Breaking change** Change return type of `queryNodeLocalState` to new `AcquiringFailure` type.
+
 ### Bugs
 
 - Allow reading text envelopes from pipes ([PR 4384](https://github.com/input-output-hk/cardano-node/pull/4384))

diff --git a/cardano-api/src/Cardano/Api/IPC.hs b/cardano-api/src/Cardano/Api/IPC.hs
@@ -574,7 +574,7 @@ mapLocalTxMonitoringClient convTxid convTx ltxmc =
 
 data AcquiringFailure = AFPointTooOld
                       | AFPointNotOnChain
-                      deriving Show
+                      deriving (Eq, Show)
 
 toAcquiringFailure :: Net.Query.AcquireFailure -> AcquiringFailure
 toAcquiringFailure AcquireFailurePointTooOld = AFPointTooOld