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 · Mar 1, 2023 · a339626 · a339626
1 parent 101e247
commit a339626
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
@@ -27,6 +27,8 @@
 - **Breaking change** - `queryExpr` to return `IO (Either UnsupportedNtcVersionError a)` instead of `IO a`.
   ([PR4788](https://github.com/input-output-hk/cardano-node/pull/4788))
 
+- **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
@@ -575,7 +575,7 @@ mapLocalTxMonitoringClient convTxid convTx ltxmc =
 
 data AcquiringFailure = AFPointTooOld
                       | AFPointNotOnChain
-                      deriving Show
+                      deriving (Eq, Show)
 
 toAcquiringFailure :: Net.Query.AcquireFailure -> AcquiringFailure
 toAcquiringFailure AcquireFailurePointTooOld = AFPointTooOld