claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-11-14 02:42:35 +01:00
Code Issues Projects Releases Packages Wiki Activity

updated 'Signed'

Browse source
This commit is contained in:
Lars Brünjes 2021-05-04 14:40:30 +02:00
parent 34f21a1a47
commit 1c57956054
No known key found for this signature in database
GPG key ID: B488B9045DC1A087
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
code/week05/src/Week05/Signed.hs
View file

@ -39,8 +39,8 @@ mkPolicy pkh ctx = txSignedBy (scriptContextTxInfo ctx) pkh
policy :: PubKeyHash -> Scripts.MonetaryPolicy policy :: PubKeyHash -> Scripts.MonetaryPolicy
policy pkh = mkMonetaryPolicyScript $ policy pkh = mkMonetaryPolicyScript $
$$(PlutusTx.compile [|| Scripts.wrapMonetaryPolicy . mkPolicy ||]) $$(PlutusTx.compile [|| Scripts.wrapMonetaryPolicy . mkPolicy ||])
`PlutusTx.applyCode` `PlutusTx.applyCode`
PlutusTx.liftCode pkh PlutusTx.liftCode pkh
curSymbol :: PubKeyHash -> CurrencySymbol curSymbol :: PubKeyHash -> CurrencySymbol
curSymbol = scriptCurrencySymbol . policy curSymbol = scriptCurrencySymbol . policy
@ -54,7 +54,7 @@ type SignedSchema =
BlockchainActions BlockchainActions
.\/ Endpoint "mint" MintParams .\/ Endpoint "mint" MintParams
mint :: (HasBlockchainActions s, AsContractError e) => MintParams -> Contract w s e () mint :: MintParams -> Contract w SignedSchema Text ()
mint mp = do mint mp = do
pkh <- pubKeyHash <$> Contract.ownPubKey pkh <- pubKeyHash <$> Contract.ownPubKey
let val = Value.singleton (curSymbol pkh) (mpTokenName mp) (mpAmount mp) let val = Value.singleton (curSymbol pkh) (mpTokenName mp) (mpAmount mp)