View on GitHub
File Changes
validateSpend :: MyDataValue -> MyRedeemerValue -> PendingTx -> Bool
validateSpend _myDataValue _myRedeemerValue _ = error () -- Please provide an implementation.

                      
-
-- | Helper function used to build the DataValue.
-
mkDataValue :: Integer -> DataValue
-
mkDataValue =
-
    DataValue . PlutusTx.toData . MyDataValue
-

                      
-
-- | Helper function used to build the RedeemerValue.
-
mkRedeemerValue :: Integer -> RedeemerValue
-
mkRedeemerValue =
-
    RedeemerValue . PlutusTx.toData . MyRedeemerValue
-

                      
-- | The address of the contract (the hash of its validator script).
contractAddress :: Address
contractAddress = Ledger.scriptAddress (Scripts.validatorScript starterInstance)