diff --git a/code/week03/src/Week03/Solution1.hs b/code/week03/src/Week03/Solution1.hs index e3ad625..016fef9 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 = pkh - , beneficiary2 = gpBeneficiary gp + { beneficiary1 = gpBeneficiary gp + , beneficiary2 = pkh , deadline = gpDeadline gp } tx = mustPayToTheScript dat $ Ada.lovelaceValueOf $ gpAmount gp