WIP: minimum reproducer for initTx choking

cardano-scaling · Aug 13, 2024 · d8e7112 · d8e7112
1 parent ec7fd00
commit d8e7112
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/hydra-plutus/src/Hydra/Contract/HeadTokens.hs b/hydra-plutus/src/Hydra/Contract/HeadTokens.hs
@@ -188,10 +188,9 @@ unappliedMintingPolicy =
 
 -- | Get the applied head minting policy script given a seed 'TxOutRef'.
 mintingPolicyScript :: TxOutRef -> SerialisedScript
-mintingPolicyScript txOutRef =
-  serialiseCompiledCode $
-    unappliedMintingPolicy
-      `PlutusTx.unsafeApplyCode` PlutusTx.liftCode plcVersion110 txOutRef
+mintingPolicyScript _txOutRef =
+  serialiseCompiledCode
+    $$(PlutusTx.compile [||\ctx -> check $ not $ null $ txInfoInputs $ scriptContextTxInfo ctx||])
 
 -- * Create PolicyId