diff --git a/code/week05/src/Week05/Homework1.hs b/code/week05/src/Week05/Homework1.hs index 2660b0f..c391be6 100644 --- a/code/week05/src/Week05/Homework1.hs +++ b/code/week05/src/Week05/Homework1.hs @@ -65,7 +65,7 @@ mint mp = do else do let val = Value.singleton (curSymbol pkh deadline) (mpTokenName mp) (mpAmount mp) lookups = Constraints.mintingPolicy $ policy pkh deadline - tx = Constraints.mustMintValue val <> Constraints.mustValidatlIn (to $ now + 5000) + tx = Constraints.mustMintValue val <> Constraints.mustValidateIn (to $ now + 5000) ledgerTx <- submitTxConstraintsWith @Void lookups tx void $ awaitTxConfirmed $ txId ledgerTx Contract.logInfo @String $ printf "forged %s" (show val)