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

Merge pull request #22 from input-output-hk/revert-20-fix-week3-solution

Browse source 
Revert "fixed incorrect datum of give tx"
This commit is contained in:
Lars Brünjes 2021-05-26 12:05:20 +02:00 committed by GitHub
commit ee6c4c1bfc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
code/week03/src/Week03/Solution1.hs
View file

@ -88,8 +88,8 @@ give :: (HasBlockchainActions s, AsContractError e) => GiveParams -> Contract w
give gp = do give gp = do
pkh <- pubKeyHash <$> ownPubKey pkh <- pubKeyHash <$> ownPubKey
let dat = VestingDatum let dat = VestingDatum
{ beneficiary1 = pkh { beneficiary1 = gpBeneficiary gp
, beneficiary2 = gpBeneficiary gp , beneficiary2 = pkh
, deadline = gpDeadline gp , deadline = gpDeadline gp
} }
tx = mustPayToTheScript dat $ Ada.lovelaceValueOf $ gpAmount gp tx = mustPayToTheScript dat $ Ada.lovelaceValueOf $ gpAmount gp