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