mirror of
https://github.com/FiloSpaTeam/plutus-pioneer-program.git
synced 2025-03-10 18:12:51 +01:00
46 lines
1.5 KiB
Haskell
46 lines
1.5 KiB
Haskell
|
{-# LANGUAGE DataKinds #-}
|
||
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
||
|
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
{-# LANGUAGE TypeApplications #-}
|
||
|
|
{-# LANGUAGE TypeOperators #-}
|
||
|
|
|
||
|
|
module Week04.Homework where
|
||
|
|
|
||
|
|
import Data.Aeson (FromJSON, ToJSON)
|
||
|
|
import Data.Functor (void)
|
||
|
|
import Data.Text (Text, unpack)
|
||
|
|
import GHC.Generics (Generic)
|
||
|
|
import Ledger
|
||
|
|
import Ledger.Ada as Ada
|
||
|
|
import Ledger.Constraints as Constraints
|
||
|
|
import Plutus.Contract as Contract
|
||
|
|
import Plutus.Trace.Emulator as Emulator
|
||
|
|
import Wallet.Emulator.Wallet
|
||
|
|
|
||
|
|
data PayParams = PayParams
|
||
|
|
{ ppRecipient :: PubKeyHash
|
||
|
|
, ppLovelace :: Integer
|
||
|
|
} deriving (Show, Generic, FromJSON, ToJSON)
|
||
|
|
|
||
|
|
type PaySchema = BlockchainActions .\/ Endpoint "pay" PayParams
|
||
|
|
|
||
|
|
payContract :: Contract () PaySchema Text ()
|
||
|
|
payContract = do
|
||
|
|
pp <- endpoint @"pay"
|
||
|
|
let tx = mustPayToPubKey (ppRecipient pp) $ lovelaceValueOf $ ppLovelace pp
|
||
|
|
void $ submitTx tx
|
||
|
|
payContract
|
||
|
|
|
||
|
|
-- A trace that invokes the pay endpoint of payContract on Wallet 1 twice, each time with Wallet 2 as
|
||
|
|
-- recipient, but with amounts given by the two arguments. There should be a delay of one slot
|
||
|
|
-- after each endpoint call.
|
||
|
|
payTrace :: Integer -> Integer -> EmulatorTrace ()
|
||
|
|
payTrace x y = undefined -- IMPLEMENT ME!
|
||
|
|
|
||
|
|
payTest1 :: IO ()
|
||
|
|
payTest1 = runEmulatorTraceIO $ payTrace 1000000 2000000
|
||
|
|
|
||
|
|
payTest2 :: IO ()
|
||
|
|
payTest2 = runEmulatorTraceIO $ payTrace 1000000000 2000000
|