mirror of
https://github.com/FiloSpaTeam/plutus-pioneer-program.git
synced 2024-11-21 22:32:00 +01:00
updated 'Signed'
This commit is contained in:
parent
34f21a1a47
commit
1c57956054
1 changed files with 3 additions and 3 deletions
|
@ -39,8 +39,8 @@ mkPolicy pkh ctx = txSignedBy (scriptContextTxInfo ctx) pkh
|
|||
policy :: PubKeyHash -> Scripts.MonetaryPolicy
|
||||
policy pkh = mkMonetaryPolicyScript $
|
||||
$$(PlutusTx.compile [|| Scripts.wrapMonetaryPolicy . mkPolicy ||])
|
||||
`PlutusTx.applyCode`
|
||||
PlutusTx.liftCode pkh
|
||||
`PlutusTx.applyCode`
|
||||
PlutusTx.liftCode pkh
|
||||
|
||||
curSymbol :: PubKeyHash -> CurrencySymbol
|
||||
curSymbol = scriptCurrencySymbol . policy
|
||||
|
@ -54,7 +54,7 @@ type SignedSchema =
|
|||
BlockchainActions
|
||||
.\/ Endpoint "mint" MintParams
|
||||
|
||||
mint :: (HasBlockchainActions s, AsContractError e) => MintParams -> Contract w s e ()
|
||||
mint :: MintParams -> Contract w SignedSchema Text ()
|
||||
mint mp = do
|
||||
pkh <- pubKeyHash <$> Contract.ownPubKey
|
||||
let val = Value.singleton (curSymbol pkh) (mpTokenName mp) (mpAmount mp)
|
||||
|
|
Loading…
Reference in a new issue