fixup

cardano-scaling · Jan 6, 2025 · 1e65563 · 1e65563
1 parent e943520
commit 1e65563
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs b/hydra-cluster/src/Hydra/Cluster/Scenarios.hs
@@ -44,6 +44,8 @@ import Hydra.Cardano.Api (
   TxId,
   UTxO,
   addTxIns,
+  addTxInsCollateral,
+  addTxOuts,
   defaultTxBodyContent,
   getTxBody,
   getTxId,
@@ -392,7 +394,7 @@ singlePartyUsesSchnorrkelScriptOnL2 ::
   Tracer IO EndToEndLog ->
   FilePath ->
   RunningNode ->
-  TxId ->
+  [TxId] ->
   IO ()
 singlePartyUsesSchnorrkelScriptOnL2 tracer workDir node hydraScriptsTxId =
   (`finally` returnFundsToFaucet tracer node Alice) $ do
@@ -451,11 +453,11 @@ singlePartyUsesSchnorrkelScriptOnL2 tracer workDir node hydraScriptsTxId =
                 mkScriptWitness serializedScript (mkScriptDatum ()) (toScriptData ())
       let tx =
             unsafeBuildTransaction $
-              emptyTxBody
+              defaultTxBodyContent
                 & changePParams pparams
-                & addInputs ([(scriptInput, scriptWitness)] <> normalInput)
-                & addCollateralInput collateralInput
-                & addOutputs [scriptOutput, returnOutput]
+                & addTxIns ([(scriptInput, scriptWitness)] <> normalInput)
+                & addTxInsCollateral [collateralInput]
+                & addTxOuts [scriptOutput, returnOutput]
                 & setTxFee (TxFeeExplicit $ Coin 173_465)
       let signedL2tx = signTx walletSk tx
       send n1 $ input "NewTx" ["transaction" .= signedL2tx]
@@ -483,8 +485,8 @@ singlePartyUsesSchnorrkelScriptOnL2 tracer workDir node hydraScriptsTxId =
               mkScriptWitness serializedScript (mkScriptDatum ()) (toScriptData ())
     let spendingTx =
           unsafeBuildTransaction $
-            emptyTxBody
-              & addInputs [(scriptIn, scriptWitness)]
+            defaultTxBodyContent
+              & addTxIns [(scriptIn, scriptWitness)]
     pure
       ( Aeson.object
           [ "blueprintTx" .= spendingTx