Skip to content

Commit 6a4b5b4

Browse files
ch1boch1bo
committed
Simplify usage of contestation period
By adding Enum, Num and Integral instances we can easily create, compute and convert contestation periods. The same pitfalls as with Natural do exist. This also moves the specs to the hydra-tx package (where the data type is).
1 parent 2b9f5d2 commit 6a4b5b4

File tree

17 files changed

+99
-84
lines changed

17 files changed

+99
-84
lines changed

‎hydra-cluster/bench/Bench/EndToEnd.hs

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -42,7 +42,6 @@ import Hydra.Logging (
4242
)
4343
import Hydra.Network (Host)
4444
import Hydra.Tx (HeadId, txId)
45-
import Hydra.Tx.ContestationPeriod (ContestationPeriod (UnsafeContestationPeriod))
4645
import Hydra.Tx.Crypto (generateSigningKey)
4746
import HydraNode (
4847
HydraClient,
@@ -90,8 +89,7 @@ bench startingNodeId timeoutSeconds workDir dataset = do
9089
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
9190
putStrLn $ "Starting hydra cluster in " <> workDir
9291
let hydraTracer = contramap FromHydraNode tracer
93-
let contestationPeriod = UnsafeContestationPeriod 10
94-
withHydraCluster hydraTracer workDir nodeSocket startingNodeId cardanoKeys hydraKeys hydraScriptsTxId contestationPeriod $ \clients -> do
92+
withHydraCluster hydraTracer workDir nodeSocket startingNodeId cardanoKeys hydraKeys hydraScriptsTxId 10 $ \clients -> do
9593
waitForNodesConnected hydraTracer 20 clients
9694
scenario hydraTracer node workDir dataset clients
9795
systemStats <- readTVarIO statsTvar

‎hydra-cluster/src/Hydra/Cluster/Fixture.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,7 @@ bobVk = getVerificationKey bobSk
2727
carolVk = getVerificationKey carolSk
2828

2929
cperiod :: ContestationPeriod
30-
cperiod = UnsafeContestationPeriod 10
30+
cperiod = 10
3131

3232
-- NOTE: This is hard-coded and needs to correspond to the initial funds set in
3333
-- the genesis-shelley.json file.

‎hydra-cluster/src/Hydra/Cluster/Scenarios.hs

Lines changed: 19 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,6 @@ import Hydra.Logging (Tracer, traceWith)
109109
import Hydra.Node.DepositPeriod (DepositPeriod (..))
110110
import Hydra.Options (DirectChainConfig (..), startChainFrom)
111111
import Hydra.Tx (HeadId, IsTx (balance), Party, txId)
112-
import Hydra.Tx.ContestationPeriod (ContestationPeriod (UnsafeContestationPeriod))
113112
import Hydra.Tx.ContestationPeriod qualified as CP
114113
import Hydra.Tx.Utils (dummyValidatorScript, verificationKeyToOnChainId)
115114
import HydraNode (
@@ -179,7 +178,7 @@ oneOfThreeNodesStopsForAWhile tracer workDir cardanoNode hydraScriptsTxId = do
179178
seedFromFaucet_ cardanoNode bobCardanoVk 100_000_000 (contramap FromFaucet tracer)
180179
seedFromFaucet_ cardanoNode carolCardanoVk 100_000_000 (contramap FromFaucet tracer)
181180

182-
let contestationPeriod = UnsafeContestationPeriod 1
181+
let contestationPeriod = 1
183182
aliceChainConfig <-
184183
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [Bob, Carol] contestationPeriod
185184
<&> setNetworkId networkId
@@ -252,7 +251,7 @@ restartedNodeCanObserveCommitTx tracer workDir cardanoNode hydraScriptsTxId = do
252251
seedFromFaucet_ cardanoNode aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
253252
seedFromFaucet_ cardanoNode bobCardanoVk 100_000_000 (contramap FromFaucet tracer)
254253

255-
let contestationPeriod = UnsafeContestationPeriod 1
254+
let contestationPeriod = 1
256255
aliceChainConfig <-
257256
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [Bob] contestationPeriod
258257
<&> setNetworkId networkId
@@ -283,9 +282,8 @@ restartedNodeCanObserveCommitTx tracer workDir cardanoNode hydraScriptsTxId = do
283282
restartedNodeCanAbort :: Tracer IO EndToEndLog -> FilePath -> RunningNode -> [TxId] -> IO ()
284283
restartedNodeCanAbort tracer workDir cardanoNode hydraScriptsTxId = do
285284
refuelIfNeeded tracer cardanoNode Alice 100_000_000
286-
let contestationPeriod = UnsafeContestationPeriod 2
287285
aliceChainConfig <-
288-
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
286+
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] 2
289287
-- we delibelately do not start from a chain point here to highlight the
290288
-- need for persistence
291289
<&> modifyConfig (\config -> config{networkId, startChainFrom = Nothing})
@@ -312,7 +310,7 @@ nodeReObservesOnChainTxs tracer workDir cardanoNode hydraScriptsTxId = do
312310
refuelIfNeeded tracer cardanoNode Bob 100_000_000
313311
-- Start hydra-node on chain tip
314312
tip <- queryTip networkId nodeSocket
315-
let contestationPeriod = UnsafeContestationPeriod 2
313+
let contestationPeriod = 2
316314
aliceChainConfig <-
317315
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [Bob] contestationPeriod
318316
<&> modifyConfig (\config -> config{networkId, startChainFrom = Nothing})
@@ -504,7 +502,7 @@ singlePartyOpenAHead tracer workDir node hydraScriptsTxId callback =
504502
refuelIfNeeded tracer node Alice 25_000_000
505503
-- Start hydra-node on chain tip
506504
tip <- queryTip networkId nodeSocket
507-
let contestationPeriod = UnsafeContestationPeriod 100
505+
let contestationPeriod = 100
508506
aliceChainConfig <-
509507
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
510508
<&> modifyConfig (\config -> config{networkId, startChainFrom = Just tip})
@@ -544,7 +542,7 @@ singlePartyCommitsFromExternal tracer workDir node hydraScriptsTxId =
544542
)
545543
$ do
546544
refuelIfNeeded tracer node Alice 25_000_000
547-
let contestationPeriod = UnsafeContestationPeriod 100
545+
let contestationPeriod = 100
548546
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
549547
let hydraNodeId = 1
550548
let hydraTracer = contramap FromHydraNode tracer
@@ -588,7 +586,7 @@ singlePartyUsesScriptOnL2 tracer workDir node hydraScriptsTxId =
588586
)
589587
$ do
590588
refuelIfNeeded tracer node Alice 250_000_000
591-
let contestationPeriod = UnsafeContestationPeriod 1
589+
let contestationPeriod = 1
592590
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
593591
let hydraNodeId = 1
594592
let hydraTracer = contramap FromHydraNode tracer
@@ -707,7 +705,7 @@ singlePartyUsesWithdrawZeroTrick tracer workDir node hydraScriptsTxId =
707705
(\_ -> returnFundsToFaucet tracer node AliceFunds)
708706
$ \utxoToCommit -> do
709707
-- Start hydra-node and open a head
710-
let contestationPeriod = UnsafeContestationPeriod 1
708+
let contestationPeriod = 1
711709
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
712710
let hydraNodeId = 1
713711
let hydraTracer = contramap FromHydraNode tracer
@@ -775,7 +773,7 @@ singlePartyCommitsScriptBlueprint ::
775773
singlePartyCommitsScriptBlueprint tracer workDir node hydraScriptsTxId =
776774
(`finally` returnFundsToFaucet tracer node Alice) $ do
777775
refuelIfNeeded tracer node Alice 20_000_000
778-
let contestationPeriod = UnsafeContestationPeriod 100
776+
let contestationPeriod = 100
779777
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
780778
let hydraNodeId = 1
781779
let hydraTracer = contramap FromHydraNode tracer
@@ -860,7 +858,7 @@ persistenceCanLoadWithEmptyCommit ::
860858
persistenceCanLoadWithEmptyCommit tracer workDir node hydraScriptsTxId =
861859
(`finally` returnFundsToFaucet tracer node Alice) $ do
862860
refuelIfNeeded tracer node Alice 20_000_000
863-
let contestationPeriod = UnsafeContestationPeriod 100
861+
let contestationPeriod = 100
864862
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
865863
let hydraNodeId = 1
866864
let hydraTracer = contramap FromHydraNode tracer
@@ -898,7 +896,7 @@ singlePartyCommitsFromExternalTxBlueprint ::
898896
singlePartyCommitsFromExternalTxBlueprint tracer workDir node hydraScriptsTxId =
899897
(`finally` returnFundsToFaucet tracer node Alice) $ do
900898
refuelIfNeeded tracer node Alice 20_000_000
901-
let contestationPeriod = UnsafeContestationPeriod 100
899+
let contestationPeriod = 100
902900
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
903901
let hydraNodeId = 1
904902
let hydraTracer = contramap FromHydraNode tracer
@@ -959,7 +957,7 @@ canCloseWithLongContestationPeriod tracer workDir node hydraScriptsTxId = do
959957
refuelIfNeeded tracer node Alice 100_000_000
960958
-- Start hydra-node on chain tip
961959
tip <- queryTip networkId nodeSocket
962-
let oneWeek = UnsafeContestationPeriod (60 * 60 * 24 * 7)
960+
let oneWeek = 60 * 60 * 24 * 7
963961
aliceChainConfig <-
964962
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] oneWeek
965963
<&> modifyConfig (\config -> config{networkId, startChainFrom = Just tip})
@@ -995,7 +993,7 @@ canSubmitTransactionThroughAPI ::
995993
canSubmitTransactionThroughAPI tracer workDir node hydraScriptsTxId =
996994
(`finally` returnFundsToFaucet tracer node Alice) $ do
997995
refuelIfNeeded tracer node Alice 25_000_000
998-
let contestationPeriod = UnsafeContestationPeriod 100
996+
let contestationPeriod = 100
999997
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
1000998
let hydraNodeId = 1
1001999
let hydraTracer = contramap FromHydraNode tracer
@@ -1049,7 +1047,7 @@ threeNodesNoErrorsOnOpen tracer tmpDir node@RunningNode{nodeSocket} hydraScripts
10491047
let cardanoKeys = [aliceKeys, bobKeys, carolKeys]
10501048
hydraKeys = [aliceSk, bobSk, carolSk]
10511049

1052-
let contestationPeriod = UnsafeContestationPeriod 2
1050+
let contestationPeriod = 2
10531051
let hydraTracer = contramap FromHydraNode tracer
10541052
withHydraCluster hydraTracer tmpDir nodeSocket 1 cardanoKeys hydraKeys hydraScriptsTxId contestationPeriod $ \clients -> do
10551053
let leader = head clients
@@ -1089,7 +1087,7 @@ initWithWrongKeys workDir tracer node@RunningNode{nodeSocket} hydraScriptsTxId =
10891087
(aliceCardanoVk, _) <- keysFor Alice
10901088
(carolCardanoVk, _) <- keysFor Carol
10911089

1092-
let contestationPeriod = UnsafeContestationPeriod 2
1090+
let contestationPeriod = 2
10931091
aliceChainConfig <- chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [Carol] contestationPeriod
10941092
bobChainConfig <- chainConfigFor Bob workDir nodeSocket hydraScriptsTxId [Alice] contestationPeriod
10951093

@@ -1123,7 +1121,7 @@ canCommit tracer workDir node hydraScriptsTxId =
11231121
(`finally` returnFundsToFaucet tracer node Bob) $ do
11241122
refuelIfNeeded tracer node Alice 30_000_000
11251123
refuelIfNeeded tracer node Bob 30_000_000
1126-
let contestationPeriod = UnsafeContestationPeriod 20
1124+
let contestationPeriod = 20
11271125
aliceChainConfig <-
11281126
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [Bob] contestationPeriod
11291127
<&> setNetworkId networkId
@@ -1391,7 +1389,7 @@ canDecommit :: Tracer IO EndToEndLog -> FilePath -> RunningNode -> [TxId] -> IO
13911389
canDecommit tracer workDir node hydraScriptsTxId =
13921390
(`finally` returnFundsToFaucet tracer node Alice) $ do
13931391
refuelIfNeeded tracer node Alice 30_000_000
1394-
let contestationPeriod = UnsafeContestationPeriod 1
1392+
let contestationPeriod = 1
13951393
aliceChainConfig <-
13961394
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [] contestationPeriod
13971395
<&> setNetworkId networkId
@@ -1493,7 +1491,7 @@ canSideLoadSnapshot tracer workDir cardanoNode hydraScriptsTxId = do
14931491
seedFromFaucet_ cardanoNode bobCardanoVk 100_000_000 (contramap FromFaucet tracer)
14941492
seedFromFaucet_ cardanoNode carolCardanoVk 100_000_000 (contramap FromFaucet tracer)
14951493

1496-
let contestationPeriod = UnsafeContestationPeriod 1
1494+
let contestationPeriod = 1
14971495
aliceChainConfig <-
14981496
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [Bob, Carol] contestationPeriod
14991497
<&> setNetworkId networkId
@@ -1617,7 +1615,7 @@ threeNodesWithMirrorParty tracer workDir cardanoNode@RunningNode{nodeSocket, net
16171615
seedFromFaucet_ cardanoNode aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
16181616
seedFromFaucet_ cardanoNode bobCardanoVk 100_000_000 (contramap FromFaucet tracer)
16191617

1620-
let contestationPeriod = UnsafeContestationPeriod 1
1618+
let contestationPeriod = 1
16211619
aliceChainConfig <-
16221620
chainConfigFor Alice workDir nodeSocket hydraScriptsTxId [Bob] contestationPeriod
16231621
<&> setNetworkId networkId

‎hydra-cluster/test/Test/EndToEndSpec.hs

Lines changed: 10 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -79,7 +79,6 @@ import Hydra.Cluster.Util (chainConfigFor, keysFor, modifyConfig)
7979
import Hydra.Ledger.Cardano (mkRangedTx, mkSimpleTx)
8080
import Hydra.Logging (Tracer, showLogsOnFailure)
8181
import Hydra.Options
82-
import Hydra.Tx.ContestationPeriod (ContestationPeriod (UnsafeContestationPeriod))
8382
import Hydra.Tx.IsTx (txId)
8483
import HydraNode (
8584
HydraClient (..),
@@ -303,7 +302,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
303302
let firstNodeId = clusterIx * 3
304303

305304
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
306-
let contestationPeriod = UnsafeContestationPeriod 2
305+
let contestationPeriod = 2
307306
let hydraTracer = contramap FromHydraNode tracer
308307
withHydraCluster hydraTracer tmpDir nodeSocket firstNodeId cardanoKeys hydraKeys hydraScriptsTxId contestationPeriod $ \nodes -> do
309308
waitForNodesConnected hydraTracer 20 nodes
@@ -373,7 +372,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
373372
withClusterTempDir $ \tmp ->
374373
withCardanoNodeDevnet (contramap FromCardanoNode tracer) tmp $ \node@RunningNode{nodeSocket, networkId} -> do
375374
(aliceCardanoVk, _aliceCardanoSk) <- keysFor Alice
376-
let contestationPeriod = UnsafeContestationPeriod 10
375+
let contestationPeriod = 10
377376
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
378377
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] contestationPeriod
379378
let nodeId = 1
@@ -410,7 +409,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
410409

411410
tip <- queryTip networkId nodeSocket
412411
let startFromTip = modifyConfig $ \x -> x{startChainFrom = Just tip}
413-
let contestationPeriod = UnsafeContestationPeriod 10
412+
let contestationPeriod = 10
414413
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [Bob] contestationPeriod <&> startFromTip
415414
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [Alice] contestationPeriod <&> startFromTip
416415

@@ -510,7 +509,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
510509
withCardanoNodeDevnet (contramap FromCardanoNode tracer) tmpDir $ \node@RunningNode{nodeSocket} -> do
511510
(aliceCardanoVk, _aliceCardanoSk) <- keysFor Alice
512511
(bobCardanoVk, _bobCardanoSk) <- keysFor Bob
513-
let contestationPeriod = UnsafeContestationPeriod 10
512+
let contestationPeriod = 10
514513
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
515514
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] contestationPeriod
516515
bobChainConfig <- chainConfigFor Bob tmpDir nodeSocket hydraScriptsTxId [Alice] contestationPeriod
@@ -545,7 +544,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
545544
withCardanoNodeDevnet (contramap FromCardanoNode tracer) tmpDir $ \node@RunningNode{nodeSocket} -> do
546545
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
547546
let hydraTracer = contramap FromHydraNode tracer
548-
let contestationPeriod = UnsafeContestationPeriod 10
547+
let contestationPeriod = 10
549548
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [Bob, Carol] contestationPeriod
550549
bobChainConfig <- chainConfigFor Bob tmpDir nodeSocket hydraScriptsTxId [Alice, Carol] contestationPeriod
551550
carolChainConfig <- chainConfigFor Carol tmpDir nodeSocket hydraScriptsTxId [Alice, Bob] contestationPeriod
@@ -583,7 +582,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
583582
withCardanoNodeDevnet (contramap FromCardanoNode tracer) dir $ \node@RunningNode{nodeSocket} -> do
584583
let hydraTracer = contramap FromHydraNode tracer
585584
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
586-
let contestationPeriod = UnsafeContestationPeriod 100
585+
let contestationPeriod = 100
587586
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod
588587

589588
-- XXX: Need to do something in 'action' otherwise always green?
@@ -595,7 +594,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
595594
withCardanoNodeDevnet (contramap FromCardanoNode tracer) dir $ \node@RunningNode{nodeSocket} -> do
596595
let hydraTracer = contramap FromHydraNode tracer
597596
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
598-
let contestationPeriod = UnsafeContestationPeriod 100
597+
let contestationPeriod = 100
599598
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod
600599

601600
-- XXX: Need to do something in 'action' otherwise always green?
@@ -612,7 +611,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
612611
let hydraTracer = contramap FromHydraNode tracer
613612
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
614613
refuelIfNeeded tracer node Alice 100_000_000
615-
let contestationPeriod = UnsafeContestationPeriod 2
614+
let contestationPeriod = 2
616615
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod
617616
withHydraNode hydraTracer aliceChainConfig dir 1 aliceSk [] [1] $ \n1 -> do
618617
send n1 $ input "Init" []
@@ -625,7 +624,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
625624
timedTx :: FilePath -> Tracer IO EndToEndLog -> RunningNode -> [TxId] -> IO ()
626625
timedTx tmpDir tracer node@RunningNode{networkId, nodeSocket} hydraScriptsTxId = do
627626
(aliceCardanoVk, _) <- keysFor Alice
628-
let contestationPeriod = UnsafeContestationPeriod 2
627+
let contestationPeriod = 2
629628
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] contestationPeriod
630629
let hydraTracer = contramap FromHydraNode tracer
631630
withHydraNode hydraTracer aliceChainConfig tmpDir 1 aliceSk [] [1] $ \n1 -> do
@@ -695,7 +694,7 @@ initAndClose tmpDir tracer clusterIx hydraScriptsTxId node@RunningNode{nodeSocke
695694
hydraKeys = [aliceSk, bobSk, carolSk]
696695

697696
let firstNodeId = clusterIx * 3
698-
let contestationPeriod = UnsafeContestationPeriod 2
697+
let contestationPeriod = 2
699698
let hydraTracer = contramap FromHydraNode tracer
700699
withHydraCluster hydraTracer tmpDir nodeSocket firstNodeId cardanoKeys hydraKeys hydraScriptsTxId contestationPeriod $ \nodes -> do
701700
let [n1, n2, n3] = toList nodes

‎hydra-cluster/test/Test/Hydra/Cluster/HydraClientSpec.hs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -42,7 +42,6 @@ import Hydra.Cluster.Scenarios (
4242
import Hydra.Ledger.Cardano (mkSimpleTx, mkTransferTx)
4343
import Hydra.Logging (Tracer, showLogsOnFailure)
4444
import Hydra.Tx (HeadId, IsTx (..))
45-
import Hydra.Tx.ContestationPeriod (ContestationPeriod (UnsafeContestationPeriod))
4645
import HydraNode (
4746
HydraClient (..),
4847
HydraNodeLog,
@@ -259,7 +258,7 @@ scenarioSetup tracer tmpDir action = do
259258

260259
let firstNodeId = 1
261260
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
262-
let contestationPeriod = UnsafeContestationPeriod 2
261+
let contestationPeriod = 2
263262
let hydraTracer = contramap FromHydraNode tracer
264263
withHydraCluster hydraTracer tmpDir nodeSocket firstNodeId cardanoKeys hydraKeys hydraScriptsTxId contestationPeriod $ \nodes -> do
265264
let [n1, n2, n3] = toList nodes

‎hydra-node/hydra-node.cabal

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -271,7 +271,6 @@ test-suite tests
271271
Hydra.Chain.Direct.TxSpec
272272
Hydra.Chain.Direct.TxTraceSpec
273273
Hydra.Chain.Direct.WalletSpec
274-
Hydra.ContestationPeriodSpec
275274
Hydra.CryptoSpec
276275
Hydra.Events.FileBasedSpec
277276
Hydra.HeadLogicSnapshotSpec

0 commit comments

Comments
 (0)