mirror of
https://github.com/FiloSpaTeam/plutus-pioneer-program.git
synced 2024-11-14 02:42:35 +01:00
Merge branch 'main' into week08
This commit is contained in:
commit
d4c002927b
1 changed files with 2 additions and 2 deletions
|
@ -88,8 +88,8 @@ give :: (HasBlockchainActions s, AsContractError e) => GiveParams -> Contract w
|
|||
give gp = do
|
||||
pkh <- pubKeyHash <$> ownPubKey
|
||||
let dat = VestingDatum
|
||||
{ beneficiary1 = pkh
|
||||
, beneficiary2 = gpBeneficiary gp
|
||||
{ beneficiary1 = gpBeneficiary gp
|
||||
, beneficiary2 = pkh
|
||||
, deadline = gpDeadline gp
|
||||
}
|
||||
tx = mustPayToTheScript dat $ Ada.lovelaceValueOf $ gpAmount gp
|
||||
|
|
Loading…
Reference in a new issue