From 36cdb1e753de7242d8ded053dd493bcdd650b514 Mon Sep 17 00:00:00 2001 From: tvman99 Date: Wed, 26 May 2021 03:20:19 +0800 Subject: [PATCH] fixed incorrect datum of give tx --- code/week03/src/Week03/Solution1.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/week03/src/Week03/Solution1.hs b/code/week03/src/Week03/Solution1.hs index 016fef9..e3ad625 100644 --- a/code/week03/src/Week03/Solution1.hs +++ b/code/week03/src/Week03/Solution1.hs @@ -88,8 +88,8 @@ give :: (HasBlockchainActions s, AsContractError e) => GiveParams -> Contract w give gp = do pkh <- pubKeyHash <$> ownPubKey let dat = VestingDatum - { beneficiary1 = gpBeneficiary gp - , beneficiary2 = pkh + { beneficiary1 = pkh + , beneficiary2 = gpBeneficiary gp , deadline = gpDeadline gp } tx = mustPayToTheScript dat $ Ada.lovelaceValueOf $ gpAmount gp