12 lines
354 B
Haskell
12 lines
354 B
Haskell
module Plutarch.These (PThese (..)) where
|
|
|
|
import GHC.Generics qualified as GHC
|
|
import Generics.SOP
|
|
|
|
-- | Plutus These type with Scott-encoded representation.
|
|
data PThese (a :: PType) (b :: PType) (s :: S)
|
|
= PThis (Term s a)
|
|
| PThat (Term s b)
|
|
| PThese (Term s a) (Term s b)
|
|
deriving stock (GHC.Generic)
|
|
deriving anyclass (Generic, PlutusType)
|