[wip] Start updating to PlutusV2 in off-chain tx construction

input-output-hk · May 23, 2022 · 460a69f · 460a69f
1 parent 114e454
commit 460a69f
Showing 1 changed file with 14 additions and 7 deletions.
diff --git a/hydra-node/src/Hydra/Chain/Direct/Tx.hs b/hydra-node/src/Hydra/Chain/Direct/Tx.hs
@@ -219,14 +219,22 @@ collectComTx networkId vk InitialThreadOutput{initialThreadUTxO = (headInput, in
       & addExtraRequiredSigners [verificationKeyHash vk]
  where
   headWitness =
-    BuildTxWith $ ScriptWitness scriptWitnessCtx $ mkScriptWitness headScript headDatumBefore headRedeemer
+    BuildTxWith $
+      ScriptWitness scriptWitnessCtx $
+        Api.PlutusScriptWitness
+          PlutusScriptV2InBabbage
+          PlutusScriptV2
+          headScript
+          headDatum
+          headRedeemer
+          (ExecutionUnits 0 0)
   headScript =
-    fromPlutusScript @PlutusScriptV1 Head.validatorScript
+    fromPlutusScript @PlutusScriptV2 Head.validatorScript
   headRedeemer =
     toScriptData Head.CollectCom
   headOutput =
     TxOut
-      (mkScriptAddress @PlutusScriptV1 networkId headScript)
+      (mkScriptAddress @PlutusScriptV2 networkId headScript)
       (txOutValue initialHeadOutput <> commitValue)
       headDatumAfter
   headDatumAfter =
@@ -369,7 +377,7 @@ contestTx vk Snapshot{number, utxo} sig (slotNo, _) ClosedThreadOutput{closedThr
   headWitness =
     BuildTxWith $ ScriptWitness scriptWitnessCtx $ mkScriptWitness headScript headDatumBefore headRedeemer
   headScript =
-    fromPlutusScript @PlutusScriptV1 Head.validatorScript
+    fromPlutusScript @PlutusScriptV2 Head.validatorScript
   headRedeemer =
     toScriptData
       Head.Contest
@@ -408,8 +416,7 @@ fanoutTx utxo (headInput, headOutput, ScriptDatumForTxIn -> headDatumBefore) hea
     BuildTxWith $ ScriptWitness scriptWitnessCtx $ mkScriptWitness headScript headDatumBefore headRedeemer
 
   headScript =
-    fromPlutusScript @PlutusScriptV1 Head.validatorScript
-
+    fromPlutusScript @PlutusScriptV2 Head.validatorScript
   headRedeemer =
     toScriptData (Head.Fanout $ fromIntegral $ length utxo)
 
@@ -453,7 +460,7 @@ abortTx vk (headInput, initialHeadOutput, ScriptDatumForTxIn -> headDatumBefore)
   headWitness =
     BuildTxWith $ ScriptWitness scriptWitnessCtx $ mkScriptWitness headScript headDatumBefore headRedeemer
   headScript =
-    fromPlutusScript @PlutusScriptV1 Head.validatorScript
+    fromPlutusScript @PlutusScriptV2 Head.validatorScript
   headRedeemer =
     toScriptData Head.Abort