Skip to content

Commit 2b9f5d2

Browse files
ch1boch1bo
committed
Remove depositPeriod from chainConfigFor
This is now using the default period unless overridden.
1 parent 7d092b1 commit 2b9f5d2

File tree

8 files changed

+66
-109
lines changed

8 files changed

+66
-109
lines changed

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

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,6 @@ import Hydra.Cardano.Api qualified as Api
1010
import Hydra.Tx (Party, deriveParty)
1111
import Hydra.Tx.ContestationPeriod (ContestationPeriod (..))
1212
import Hydra.Tx.Crypto (HydraKey, SigningKey, VerificationKey, generateSigningKey, getVerificationKey)
13-
import Hydra.Node.DepositPeriod (DepositPeriod (..))
1413

1514
alice, bob, carol :: Party
1615
alice = deriveParty aliceSk
@@ -30,9 +29,6 @@ carolVk = getVerificationKey carolSk
3029
cperiod :: ContestationPeriod
3130
cperiod = UnsafeContestationPeriod 10
3231

33-
ddeadline :: DepositPeriod
34-
ddeadline = DepositPeriod 100
35-
3632
-- NOTE: This is hard-coded and needs to correspond to the initial funds set in
3733
-- the genesis-shelley.json file.
3834
availableInitialFunds :: Num a => a

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

Lines changed: 36 additions & 56 deletions
Large diffs are not rendered by default.

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

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,6 @@ import Hydra.Cardano.Api (
1919
textEnvelopeToJSON,
2020
)
2121
import Hydra.Cluster.Fixture (Actor, actorName, fundsOf)
22-
import Hydra.Node.DepositPeriod (DepositPeriod)
2322
import Hydra.Options (ChainConfig (..), DirectChainConfig (..), defaultDirectChainConfig)
2423
import Hydra.Tx.ContestationPeriod (ContestationPeriod)
2524
import Paths_hydra_cluster qualified as Pkg
@@ -71,10 +70,8 @@ chainConfigFor ::
7170
[TxId] ->
7271
[Actor] ->
7372
ContestationPeriod ->
74-
-- TODO: needed?
75-
DepositPeriod ->
7673
IO ChainConfig
77-
chainConfigFor me targetDir nodeSocket hydraScriptsTxId them contestationPeriod depositPeriod = do
74+
chainConfigFor me targetDir nodeSocket hydraScriptsTxId them contestationPeriod = do
7875
when (me `elem` them) $
7976
failure $
8077
show me <> " must not be in " <> show them
@@ -94,7 +91,6 @@ chainConfigFor me targetDir nodeSocket hydraScriptsTxId them contestationPeriod
9491
, cardanoSigningKey = actorFilePath me "sk"
9592
, cardanoVerificationKeys = [actorFilePath himOrHer "vk" | himOrHer <- them]
9693
, contestationPeriod
97-
, depositPeriod
9894
}
9995
where
10096
actorFilePath actor fileType = targetDir </> actorFileName actor fileType

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

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,6 @@ import Hydra.Cluster.Fixture (Actor (..))
2525
import Hydra.Cluster.Util (chainConfigFor, keysFor)
2626
import Hydra.Ledger.Cardano (mkSimpleTx)
2727
import Hydra.Logging (showLogsOnFailure)
28-
import Hydra.Options (defaultDepositPeriod)
2928
import HydraNode (HydraNodeLog, input, output, requestCommitTx, send, waitFor, waitMatch, withHydraNode)
3029
import System.IO.Error (isEOFError, isIllegalOperation)
3130
import System.Process (CreateProcess (std_out), StdStream (..), proc, withCreateProcess)
@@ -45,7 +44,7 @@ spec = do
4544
let hydraTracer = contramap FromHydraNode tracer
4645
hydraScriptsTxId <- publishHydraScriptsAs cardanoNode Faucet
4746
(aliceCardanoVk, _) <- keysFor Alice
48-
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] cperiod defaultDepositPeriod
47+
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] cperiod
4948
withHydraNode hydraTracer aliceChainConfig tmpDir 1 aliceSk [] [1] $ \hydraNode -> do
5049
withChainObserver cardanoNode $ \observer -> do
5150
seedFromFaucet_ cardanoNode aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)

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

Lines changed: 14 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -68,7 +68,6 @@ import Hydra.Cluster.Fixture (
6868
bob,
6969
carol,
7070
cperiod,
71-
ddeadline,
7271
)
7372
import Hydra.Cluster.Util (chainConfigFor, keysFor, modifyConfig, readConfigFile)
7473
import Hydra.Ledger.Cardano (Tx)
@@ -105,10 +104,10 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
105104
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
106105
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
107106
-- Alice setup
108-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [Bob, Carol] cperiod ddeadline
107+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [Bob, Carol] cperiod
109108
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $ \aliceChain@DirectChainTest{postTx} -> do
110109
-- Bob setup
111-
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [Alice, Carol] cperiod ddeadline
110+
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [Alice, Carol] cperiod
112111
withDirectChainTest nullTracer bobChainConfig bob $ \bobChain@DirectChainTest{} -> do
113112
-- Scenario
114113
participants <- loadParticipants [Alice, Bob, Carol]
@@ -131,11 +130,11 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
131130
-- Alice setup
132131
(aliceCardanoVk, _) <- keysFor Alice
133132
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
134-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [Bob, Carol] cperiod ddeadline
133+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [Bob, Carol] cperiod
135134
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
136135
\aliceChain@DirectChainTest{postTx} -> do
137136
-- Bob setup
138-
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [Alice, Carol] cperiod ddeadline
137+
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [Alice, Carol] cperiod
139138
withDirectChainTest (contramap (FromDirectChain "bob") tracer) bobChainConfig bob $
140139
\bobChain@DirectChainTest{} -> do
141140
-- Scenario
@@ -178,14 +177,14 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
178177
-- Alice setup
179178
(aliceCardanoVk, _) <- keysFor Alice
180179
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
181-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
180+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
182181

183182
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
184183
\aliceChain@DirectChainTest{postTx = alicePostTx} -> do
185184
-- Bob setup
186185
(bobCardanoVk, _) <- keysFor Bob
187186
seedFromFaucet_ node bobCardanoVk 100_000_000 (contramap FromFaucet tracer)
188-
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
187+
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [] cperiod
189188

190189
withDirectChainTest nullTracer bobChainConfig bob $
191190
\bobChain@DirectChainTest{postTx = bobPostTx} -> do
@@ -213,7 +212,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
213212
-- Alice setup
214213
(aliceCardanoVk, _) <- keysFor Alice
215214
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
216-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
215+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
217216
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
218217
\aliceChain@DirectChainTest{postTx} -> do
219218
participants <- loadParticipants [Alice]
@@ -234,7 +233,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
234233
-- Alice setup
235234
(aliceCardanoVk, aliceCardanoSk) <- keysFor Alice
236235
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
237-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
236+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
238237
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
239238
\aliceChain@DirectChainTest{postTx} -> do
240239
participants <- loadParticipants [Alice]
@@ -254,7 +253,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
254253
-- Alice setup
255254
(aliceCardanoVk, _) <- keysFor Alice
256255
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
257-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
256+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
258257
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
259258
\aliceChain@DirectChainTest{postTx} -> do
260259
-- Scenario
@@ -274,7 +273,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
274273
-- Alice setup
275274
(aliceCardanoVk, _) <- keysFor Alice
276275
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
277-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
276+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
278277
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
279278
\aliceChain@DirectChainTest{postTx} -> do
280279
-- Scenario
@@ -306,7 +305,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
306305
-- Alice setup
307306
(aliceCardanoVk, _) <- keysFor Alice
308307
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
309-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
308+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
310309
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
311310
\aliceChain@DirectChainTest{postTx} -> do
312311
-- Scenario
@@ -382,7 +381,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
382381
(aliceCardanoVk, _) <- keysFor Alice
383382
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
384383
-- Alice setup
385-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
384+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
386385
participants <- loadParticipants [Alice]
387386
let headParameters = HeadParameters cperiod [alice]
388387
-- Scenario
@@ -410,7 +409,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
410409
let headerHash = fromString (replicate 64 '0')
411410
let fakeTip = ChainPoint 42 headerHash
412411
aliceChainConfig <-
413-
chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
412+
chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
414413
<&> modifyConfig (\cfg -> cfg{startChainFrom = Just fakeTip})
415414
let action = withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $ \_ ->
416415
threadDelay 5 >> fail "should not execute main action but did?"
@@ -445,7 +444,7 @@ spec = around (showLogsOnFailure "DirectChainSpec") $ do
445444
-- Alice setup
446445
(aliceCardanoVk, _) <- keysFor Alice
447446
seedFromFaucet_ node aliceCardanoVk 100_000_000 (contramap FromFaucet tracer)
448-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod ddeadline
447+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] cperiod
449448
withDirectChainTest (contramap (FromDirectChain "alice") tracer) aliceChainConfig alice $
450449
\aliceChain@DirectChainTest{postTx} -> do
451450
(aliceExternalVk, aliceExternalSk) <- generate genKeyPair

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

Lines changed: 12 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -78,7 +78,6 @@ import Hydra.Cluster.Scenarios (
7878
import Hydra.Cluster.Util (chainConfigFor, keysFor, modifyConfig)
7979
import Hydra.Ledger.Cardano (mkRangedTx, mkSimpleTx)
8080
import Hydra.Logging (Tracer, showLogsOnFailure)
81-
import Hydra.Node.DepositPeriod (DepositPeriod (DepositPeriod))
8281
import Hydra.Options
8382
import Hydra.Tx.ContestationPeriod (ContestationPeriod (UnsafeContestationPeriod))
8483
import Hydra.Tx.IsTx (txId)
@@ -375,9 +374,8 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
375374
withCardanoNodeDevnet (contramap FromCardanoNode tracer) tmp $ \node@RunningNode{nodeSocket, networkId} -> do
376375
(aliceCardanoVk, _aliceCardanoSk) <- keysFor Alice
377376
let contestationPeriod = UnsafeContestationPeriod 10
378-
let depositPeriod = DepositPeriod 200
379377
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
380-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] contestationPeriod depositPeriod
378+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [] contestationPeriod
381379
let nodeId = 1
382380
let hydraTracer = contramap FromHydraNode tracer
383381
(tip, aliceHeadId) <- withHydraNode hydraTracer aliceChainConfig tmp nodeId aliceSk [] [1] $ \n1 -> do
@@ -413,9 +411,8 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
413411
tip <- queryTip networkId nodeSocket
414412
let startFromTip = modifyConfig $ \x -> x{startChainFrom = Just tip}
415413
let contestationPeriod = UnsafeContestationPeriod 10
416-
let depositPeriod = DepositPeriod 200
417-
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [Bob] contestationPeriod depositPeriod <&> startFromTip
418-
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [Alice] contestationPeriod depositPeriod <&> startFromTip
414+
aliceChainConfig <- chainConfigFor Alice tmp nodeSocket hydraScriptsTxId [Bob] contestationPeriod <&> startFromTip
415+
bobChainConfig <- chainConfigFor Bob tmp nodeSocket hydraScriptsTxId [Alice] contestationPeriod <&> startFromTip
419416

420417
let hydraTracer = contramap FromHydraNode tracer
421418
let aliceNodeId = 1
@@ -514,10 +511,9 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
514511
(aliceCardanoVk, _aliceCardanoSk) <- keysFor Alice
515512
(bobCardanoVk, _bobCardanoSk) <- keysFor Bob
516513
let contestationPeriod = UnsafeContestationPeriod 10
517-
let depositPeriod = DepositPeriod 200
518514
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
519-
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] contestationPeriod depositPeriod
520-
bobChainConfig <- chainConfigFor Bob tmpDir nodeSocket hydraScriptsTxId [Alice] contestationPeriod depositPeriod
515+
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] contestationPeriod
516+
bobChainConfig <- chainConfigFor Bob tmpDir nodeSocket hydraScriptsTxId [Alice] contestationPeriod
521517
let hydraTracer = contramap FromHydraNode tracer
522518
withHydraNode hydraTracer aliceChainConfig tmpDir 1 aliceSk [] allNodeIds $ \n1 ->
523519
withHydraNode hydraTracer bobChainConfig tmpDir 2 bobSk [aliceVk] allNodeIds $ \n2 -> do
@@ -550,10 +546,9 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
550546
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
551547
let hydraTracer = contramap FromHydraNode tracer
552548
let contestationPeriod = UnsafeContestationPeriod 10
553-
let depositPeriod = DepositPeriod 200
554-
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [Bob, Carol] contestationPeriod depositPeriod
555-
bobChainConfig <- chainConfigFor Bob tmpDir nodeSocket hydraScriptsTxId [Alice, Carol] contestationPeriod depositPeriod
556-
carolChainConfig <- chainConfigFor Carol tmpDir nodeSocket hydraScriptsTxId [Alice, Bob] contestationPeriod depositPeriod
549+
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [Bob, Carol] contestationPeriod
550+
bobChainConfig <- chainConfigFor Bob tmpDir nodeSocket hydraScriptsTxId [Alice, Carol] contestationPeriod
551+
carolChainConfig <- chainConfigFor Carol tmpDir nodeSocket hydraScriptsTxId [Alice, Bob] contestationPeriod
557552
failAfter 20 $
558553
withHydraNode hydraTracer aliceChainConfig tmpDir 1 aliceSk [bobVk, carolVk] allNodeIds $ \n1 ->
559554
withHydraNode hydraTracer bobChainConfig tmpDir 2 bobSk [aliceVk, carolVk] allNodeIds $ \n2 ->
@@ -589,8 +584,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
589584
let hydraTracer = contramap FromHydraNode tracer
590585
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
591586
let contestationPeriod = UnsafeContestationPeriod 100
592-
let depositPeriod = DepositPeriod 200
593-
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod depositPeriod
587+
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod
594588

595589
-- XXX: Need to do something in 'action' otherwise always green?
596590
withHydraNode hydraTracer aliceChainConfig dir 1 aliceSk [] [1] $ \_ -> do
@@ -602,8 +596,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
602596
let hydraTracer = contramap FromHydraNode tracer
603597
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
604598
let contestationPeriod = UnsafeContestationPeriod 100
605-
let depositPeriod = DepositPeriod 200
606-
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod depositPeriod
599+
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod
607600

608601
-- XXX: Need to do something in 'action' otherwise always green?
609602
failAfter 10 $
@@ -620,8 +613,7 @@ spec = around (showLogsOnFailure "EndToEndSpec") $ do
620613
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
621614
refuelIfNeeded tracer node Alice 100_000_000
622615
let contestationPeriod = UnsafeContestationPeriod 2
623-
let depositPeriod = DepositPeriod 200
624-
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod depositPeriod
616+
aliceChainConfig <- chainConfigFor Alice dir nodeSocket hydraScriptsTxId [] contestationPeriod
625617
withHydraNode hydraTracer aliceChainConfig dir 1 aliceSk [] [1] $ \n1 -> do
626618
send n1 $ input "Init" []
627619

@@ -634,8 +626,7 @@ timedTx :: FilePath -> Tracer IO EndToEndLog -> RunningNode -> [TxId] -> IO ()
634626
timedTx tmpDir tracer node@RunningNode{networkId, nodeSocket} hydraScriptsTxId = do
635627
(aliceCardanoVk, _) <- keysFor Alice
636628
let contestationPeriod = UnsafeContestationPeriod 2
637-
let depositPeriod = DepositPeriod 200
638-
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] contestationPeriod depositPeriod
629+
aliceChainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] contestationPeriod
639630
let hydraTracer = contramap FromHydraNode tracer
640631
withHydraNode hydraTracer aliceChainConfig tmpDir 1 aliceSk [] [1] $ \n1 -> do
641632
let lovelaceBalanceValue = 100_000_000

‎hydra-tui/test/Hydra/TUISpec.hs

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -45,17 +45,13 @@ import Hydra.TUI (runWithVty)
4545
import Hydra.TUI.Drawing (renderTime)
4646
import Hydra.TUI.Options (Options (..))
4747
import Hydra.Tx.ContestationPeriod (ContestationPeriod (UnsafeContestationPeriod), toNominalDiffTime)
48-
import Hydra.Node.DepositPeriod (DepositPeriod (DepositPeriod))
4948
import HydraNode (HydraClient (HydraClient, hydraNodeId), HydraNodeLog, withHydraNode)
5049
import System.FilePath ((</>))
5150
import System.Posix (OpenMode (WriteOnly), closeFd, defaultFileFlags, openFd)
5251

5352
tuiContestationPeriod :: ContestationPeriod
5453
tuiContestationPeriod = UnsafeContestationPeriod 10
5554

56-
tuiDepositPeriod :: DepositPeriod
57-
tuiDepositPeriod = DepositPeriod 200
58-
5955
spec :: Spec
6056
spec = do
6157
context "end-to-end smoke tests" $ do
@@ -163,7 +159,7 @@ setupNodeAndTUI' hostname lovelace action =
163159
(aliceCardanoVk, _) <- keysFor Alice
164160
withCardanoNodeDevnet (contramap FromCardano tracer) tmpDir $ \node@RunningNode{nodeSocket, networkId} -> do
165161
hydraScriptsTxId <- publishHydraScriptsAs node Faucet
166-
chainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] tuiContestationPeriod tuiDepositPeriod
162+
chainConfig <- chainConfigFor Alice tmpDir nodeSocket hydraScriptsTxId [] tuiContestationPeriod
167163
-- XXX(SN): API port id is inferred from nodeId, in this case 4001
168164
let nodeId = 1
169165

0 commit comments

Comments
 (0)