mirror of
https://github.com/FiloSpaTeam/plutus-pioneer-program.git
synced 2024-11-15 03:12:34 +01:00
36 lines
1.5 KiB
Haskell
36 lines
1.5 KiB
Haskell
|
{-# LANGUAGE DataKinds #-}
|
||
|
|
{-# LANGUAGE DeriveAnyClass #-}
|
||
|
|
{-# LANGUAGE DeriveGeneric #-}
|
||
|
|
{-# LANGUAGE FlexibleContexts #-}
|
||
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||
|
|
{-# LANGUAGE TemplateHaskell #-}
|
||
|
|
{-# LANGUAGE TypeApplications #-}
|
||
|
|
{-# LANGUAGE TypeFamilies #-}
|
||
|
|
{-# LANGUAGE TypeOperators #-}
|
||
|
|
|
||
|
|
module Week08.TestTokenSale where
|
||
|
|
|
||
|
|
import Control.Monad hiding (fmap)
|
||
|
|
import Data.Aeson (FromJSON, ToJSON)
|
||
|
|
import Data.Monoid (Last (..))
|
||
|
|
import Data.Text (Text, pack)
|
||
|
|
import GHC.Generics (Generic)
|
||
|
|
import Plutus.Contract as Contract hiding (when)
|
||
|
|
import Plutus.Contract.StateMachine
|
||
|
|
import Plutus.Contract.Test
|
||
|
|
import qualified Plutus.Contracts.Currency as C
|
||
|
|
import qualified PlutusTx
|
||
|
|
import PlutusTx.Prelude hiding (Semigroup(..), check, unless)
|
||
|
|
import Ledger hiding (singleton)
|
||
|
|
import Ledger.Ada as Ada
|
||
|
|
import Ledger.Constraints as Constraints
|
||
|
|
import qualified Ledger.Typed.Scripts as Scripts
|
||
|
|
import Ledger.Value
|
||
|
|
import Prelude (Semigroup (..))
|
||
|
|
import qualified Prelude
|
||
|
|
|
||
|
|
import Week08.TokenSale
|