Fix contest off-chain

cardano-scaling · Jul 15, 2024 · e79dfed · e79dfed
1 parent 38de24c
commit e79dfed
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/hydra-node/src/Hydra/Chain/Direct/Tx.hs b/hydra-node/src/Hydra/Chain/Direct/Tx.hs
@@ -699,7 +699,7 @@ contestTx scriptRegistry vk Snapshot{number, utxo, utxoToDecommit, version} sig
         Head.ClosedDatum
           { snapshotNumber = toInteger number
           , utxoHash
-          , deltaUTxOHash = toBuiltin . hashUTxO @Tx <$> utxoToDecommit
+          , deltaUTxOHash
           , parties = closedParties
           , contestationDeadline = newContestationDeadline
           , contestationPeriod = onChainConstestationPeriod
@@ -708,6 +708,16 @@ contestTx scriptRegistry vk Snapshot{number, utxo, utxoToDecommit, version} sig
           , version = toInteger version
           }
 
+  -- TODO: DRY with contestRedeemer
+  deltaUTxOHash
+    | offChainVersion == version =
+        Just . toBuiltin $ hashUTxO @Tx $ fromMaybe mempty utxoToDecommit
+    | offChainVersion == version + 1 =
+        Nothing
+    | otherwise =
+        -- XXX: should not be needed
+        Nothing
+
   utxoHash = toBuiltin $ hashUTxO @Tx utxo
 
 data FanoutTxError