mirror of
https://github.com/FiloSpaTeam/plutus-pioneer-program.git
synced 2025-03-10 10:02:37 +01:00
19 lines
587 B
Haskell
19 lines
587 B
Haskell
{-# LANGUAGE DeriveAnyClass #-}
|
|
{-# LANGUAGE DeriveGeneric #-}
|
|
|
|
module Week06.Oracle.PAB
|
|
( OracleContracts (..)
|
|
) where
|
|
|
|
import Data.Aeson (FromJSON, ToJSON)
|
|
import Data.Text.Prettyprint.Doc (Pretty (..), viaShow)
|
|
import GHC.Generics (Generic)
|
|
import Ledger
|
|
|
|
import qualified Week06.Oracle.Core as Oracle
|
|
|
|
data OracleContracts = Init | Oracle CurrencySymbol | Swap Oracle.Oracle
|
|
deriving (Eq, Ord, Show, Generic, FromJSON, ToJSON)
|
|
|
|
instance Pretty OracleContracts where
|
|
pretty = viaShow
|