Slightly increase the hard-coded fee to return to faucet address

To work for sanchonet
cardano-scaling · Apr 2, 2024 · fdc23db · fdc23db
1 parent 6c0b994
commit fdc23db
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/hydra-cluster/src/Hydra/Cluster/Faucet.hs b/hydra-cluster/src/Hydra/Cluster/Faucet.hs
@@ -112,15 +112,14 @@ returnFundsToFaucet tracer node@RunningNode{networkId, nodeSocket} sender = do
 
   (senderVk, senderSk) <- keysFor sender
   utxo <- queryUTxOFor networkId nodeSocket QueryTip senderVk
-
   retryOnExceptions tracer $ do
     let utxoValue = balance @Tx utxo
     let allLovelace = selectLovelace utxoValue
     -- select tokens other than ADA here so we can burn it afterwards
     let otherTokens = filterValue (/= AdaAssetId) utxoValue
     -- XXX: Using a hard-coded high-enough value to satisfy the min utxo value.
     -- NOTE: We use the faucet address as the change deliberately here.
-    fee <- calculateTxFee node senderSk utxo faucetAddress 1_000_000
+    fee <- calculateTxFee node senderSk utxo faucetAddress 1_500_000
     let returnBalance = allLovelace - fee
     tx <- sign senderSk <$> buildTxBody utxo faucetAddress returnBalance otherTokens
     submitTransaction networkId nodeSocket tx

diff --git a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs b/hydra-cluster/src/Hydra/Cluster/Scenarios.hs
@@ -249,6 +249,7 @@ singlePartyHeadFullLifeCycle tracer workDir node hydraScriptsTxId =
         waitFor hydraTracer (10 * blockTime) [n1] $
           output "HeadIsFinalized" ["utxo" .= toJSON utxoToCommit, "headId" .= headId]
       traceRemainingFunds Alice
+      traceRemainingFunds AliceFunds
  where
   hydraTracer = contramap FromHydraNode tracer