This is not a generally available stuff

No need to call this "healthy" as it cannot be used outside of the healthyCloseInitialTx context.
input-output-hk · Jan 31, 2023 · 9094f20 · 9094f20
1 parent f2aade0
commit 9094f20
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/hydra-node/test/Hydra/Chain/Direct/Contract/Close.hs b/hydra-node/test/Hydra/Chain/Direct/Contract/Close.hs
@@ -43,7 +43,7 @@ healthyCloseTx =
   tx =
     closeTx
       somePartyCardanoVerificationKey
-      healthyClosingSnapshot
+      closingSnapshot
       healthyCloseLowerBoundSlot
       healthyCloseUpperBoundPointInTime
       openThreadOutput
@@ -59,8 +59,8 @@ healthyCloseTx =
       , openParties = healthyOnChainParties
       , openContestationPeriod = healthyContestationPeriod
       }
-  healthyClosingSnapshot :: ClosingSnapshot
-  healthyClosingSnapshot =
+  closingSnapshot :: ClosingSnapshot
+  closingSnapshot =
     CloseWithConfirmedSnapshot
       { snapshotNumber = healthySnapshotNumber
       , closeUtxoHash = UTxOHash $ hashUTxO @Tx healthyCloseUTxO
@@ -74,7 +74,7 @@ healthyCloseInitialTx =
   tx =
     closeTx
       somePartyCardanoVerificationKey
-      healthyClosingSnapshot
+      closingSnapshot
       healthyCloseLowerBoundSlot
       healthyCloseUpperBoundPointInTime
       openThreadOutput
@@ -90,8 +90,8 @@ healthyCloseInitialTx =
       , openParties = healthyOnChainParties
       , openContestationPeriod = healthyContestationPeriod
       }
-  healthyClosingSnapshot :: ClosingSnapshot
-  healthyClosingSnapshot =
+  closingSnapshot :: ClosingSnapshot
+  closingSnapshot =
     CloseWithInitialSnapshot
       { openUtxoHash = UTxOHash $ hashUTxO @Tx healthyUTxO
       }