mirror of
https://github.com/FiloSpaTeam/plutus-pioneer-program.git
synced 2024-11-25 08:12:00 +01:00
44 lines
1.6 KiB
Haskell
44 lines
1.6 KiB
Haskell
|
{-# LANGUAGE DataKinds #-}
|
||
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
||
|
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
|
{-# LANGUAGE DerivingStrategies #-}
|
||
|
|
{-# LANGUAGE FlexibleContexts #-}
|
||
|
|
{-# LANGUAGE LambdaCase #-}
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
{-# LANGUAGE RankNTypes #-}
|
||
|
|
{-# LANGUAGE TypeApplications #-}
|
||
|
|
{-# LANGUAGE TypeFamilies #-}
|
||
|
|
{-# LANGUAGE TypeOperators #-}
|
||
|
|
|
||
|
|
module Uniswap where
|
||
|
|
|
||
|
|
import Control.Monad (forM_, when)
|
||
|
|
import qualified Data.Semigroup as Semigroup
|
||
|
|
import Ledger
|
||
|
|
import Ledger.Constraints
|
||
|
|
import Ledger.Value as Value
|
||
|
|
import Plutus.Contract hiding (when)
|
||
|
|
import qualified Plutus.Contracts.Currency as Currency
|
||
|
|
import Wallet.Emulator.Types (Wallet (..), walletPubKey)
|
||
|
|
|
||
|
|
initContract :: Contract (Maybe (Semigroup.Last Currency.OneShotCurrency)) Currency.CurrencySchema Currency.CurrencyError ()
|
||
|
|
initContract = do
|
||
|
|
ownPK <- pubKeyHash <$> ownPubKey
|
||
|
|
cur <- Currency.forgeContract ownPK [(tn, fromIntegral (length wallets) * amount) | tn <- tokenNames]
|
||
|
|
let cs = Currency.currencySymbol cur
|
||
|
|
v = mconcat [Value.singleton cs tn amount | tn <- tokenNames]
|
||
|
|
forM_ wallets $ \w -> do
|
||
|
|
let pkh = pubKeyHash $ walletPubKey w
|
||
|
|
when (pkh /= ownPK) $ do
|
||
|
|
tx <- submitTx $ mustPayToPubKey pkh v
|
||
|
|
awaitTxConfirmed $ txId tx
|
||
|
|
tell $ Just $ Semigroup.Last cur
|
||
|
|
where
|
||
|
|
amount = 1000000
|
||
|
|
|
||
|
|
wallets :: [Wallet]
|
||
|
|
wallets = [Wallet i | i <- [1 .. 4]]
|
||
|
|
|
||
|
|
tokenNames :: [TokenName]
|
||
|
|
tokenNames = ["A", "B", "C", "D"]
|