-
Notifications
You must be signed in to change notification settings - Fork 50
/
Core.hs
32 lines (28 loc) · 1.66 KB
/
Core.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
module Plutus.Contracts.NftMarketplace.OnChain.Core
( module Export
, module Plutus.Contracts.NftMarketplace.OnChain.Core
) where
import qualified Data.Aeson as J
import qualified Data.Text as T
import qualified GHC.Generics as Haskell
import Ledger
import qualified Ledger.Typed.Scripts as Scripts
import Ledger.Value
import Plutus.Contract
import Plutus.Contract.StateMachine
import Plutus.Contracts.NftMarketplace.OnChain.Core.ID as Export
import Plutus.Contracts.NftMarketplace.OnChain.Core.Marketplace as Export
import Plutus.Contracts.NftMarketplace.OnChain.Core.NFT as Export
import Plutus.Contracts.NftMarketplace.OnChain.Core.StateMachine as Export
import qualified PlutusTx
import qualified PlutusTx.AssocMap as AssocMap
import PlutusTx.Prelude hiding
(Semigroup (..))
import Prelude (Semigroup (..))
import qualified Prelude as Haskell
marketplaceValidator :: Marketplace -> Validator
marketplaceValidator = Scripts.validatorScript . marketplaceInst
marketplaceAddress :: Marketplace -> Ledger.Address
marketplaceAddress = scriptAddress . marketplaceValidator