From 9132d1b28137971d905fa2cc7ec87b213fdc0682 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lars=20Br=C3=BCnjes?= Date: Sat, 17 Jul 2021 23:43:36 +0200 Subject: [PATCH] adjusted Trace example --- code/week04/src/Week04/Trace.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/week04/src/Week04/Trace.hs b/code/week04/src/Week04/Trace.hs index 7ccdcd0..9179827 100644 --- a/code/week04/src/Week04/Trace.hs +++ b/code/week04/src/Week04/Trace.hs @@ -26,7 +26,7 @@ myTrace = do callEndpoint @"give" h1 $ GiveParams { gpBeneficiary = pubKeyHash $ walletPubKey $ Wallet 2 , gpDeadline = slotToBeginPOSIXTime def 20 - , gpAmount = 1000 + , gpAmount = 10000000 } void $ waitUntilSlot 20 callEndpoint @"grab" h2 ()