Merge branch 'main' into week08

This commit is contained in:
Lars Brünjes 2021-05-26 12:28:43 +02:00
commit d4c002927b

View file

@ -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