diff --git a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs b/hydra-cluster/src/Hydra/Cluster/Scenarios.hs index e97cd8c1db8..ae5ce1772e3 100644 --- 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