Copyright	(c) 2025 GYELD GMBH
License	Apache 2.0
Maintainer	[email protected]
Stability	develop
Safe Haskell	None
Language	GHC2021

GeniusYield.Types.Pool

Description

Synopsis

data GYStakePoolRelay
- = GYSingleHostAddr !(Maybe Port) !(Maybe IPv4) !(Maybe IPv6)
- | GYSingleHostName !(Maybe Port) !DnsName
- | GYMultiHostName !DnsName
data GYPoolParams = GYPoolParams {
- poolId :: !(GYKeyHash 'GYKeyRoleStakePool)
- poolVrf :: !(GYVRFVerKeyHash 'GYKeyRoleVRFStakePool)
- poolPledge :: !Natural
- poolCost :: !Natural
- poolMargin :: !UnitInterval
- poolRewardAccount :: !GYStakeAddress
- poolOwners :: !(Set (GYKeyHash 'GYKeyRoleStaking))
- poolRelays :: ![GYStakePoolRelay]
- poolMetadata :: !(Maybe GYAnchor)
}
poolParamsToLedger :: GYPoolParams -> PoolParams
poolParamsFromLedger :: PoolParams -> GYPoolParams

Documentation

data GYStakePoolRelay #

Constructors

GYSingleHostAddr !(Maybe Port) !(Maybe IPv4) !(Maybe IPv6)	One or both of IPv4 & IPv6
GYSingleHostName !(Maybe Port) !DnsName	An `A` or `AAAA` DNS record
GYMultiHostName !DnsName	A `SRV` DNS record

Instances

Instances details

Generic GYStakePoolRelay #

Instance details

Defined in GeniusYield.Types.Pool

Associated Types

type Rep GYStakePoolRelay

Instance details

Defined in GeniusYield.Types.Pool

type Rep GYStakePoolRelay = D1 ('MetaData "GYStakePoolRelay" "GeniusYield.Types.Pool" "atlas-cardano-0.14.0-inplace" 'False) (C1 ('MetaCons "GYSingleHostAddr" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe Port)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe IPv4)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe IPv6)))) :+: (C1 ('MetaCons "GYSingleHostName" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe Port)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 DnsName)) :+: C1 ('MetaCons "GYMultiHostName" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 DnsName))))

Methods

from :: GYStakePoolRelay -> Rep GYStakePoolRelay x #

to :: Rep GYStakePoolRelay x -> GYStakePoolRelay #

Show GYStakePoolRelay #

Instance details

Defined in GeniusYield.Types.Pool

Methods

showsPrec :: Int -> GYStakePoolRelay -> ShowS #

show :: GYStakePoolRelay -> String #

showList :: [GYStakePoolRelay] -> ShowS #

Eq GYStakePoolRelay #

Instance details

Defined in GeniusYield.Types.Pool

Methods

(==) :: GYStakePoolRelay -> GYStakePoolRelay -> Bool #

(/=) :: GYStakePoolRelay -> GYStakePoolRelay -> Bool #

Ord GYStakePoolRelay #

Instance details

Defined in GeniusYield.Types.Pool

Methods

compare :: GYStakePoolRelay -> GYStakePoolRelay -> Ordering #

(<) :: GYStakePoolRelay -> GYStakePoolRelay -> Bool #

(<=) :: GYStakePoolRelay -> GYStakePoolRelay -> Bool #

(>) :: GYStakePoolRelay -> GYStakePoolRelay -> Bool #

(>=) :: GYStakePoolRelay -> GYStakePoolRelay -> Bool #

max :: GYStakePoolRelay -> GYStakePoolRelay -> GYStakePoolRelay #

min :: GYStakePoolRelay -> GYStakePoolRelay -> GYStakePoolRelay #

type Rep GYStakePoolRelay #

Instance details

Defined in GeniusYield.Types.Pool

type Rep GYStakePoolRelay = D1 ('MetaData "GYStakePoolRelay" "GeniusYield.Types.Pool" "atlas-cardano-0.14.0-inplace" 'False) (C1 ('MetaCons "GYSingleHostAddr" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe Port)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe IPv4)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe IPv6)))) :+: (C1 ('MetaCons "GYSingleHostName" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe Port)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 DnsName)) :+: C1 ('MetaCons "GYMultiHostName" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 DnsName))))

data GYPoolParams #

Stake pool parameters.

Constructors

GYPoolParams
Fields poolId :: !(GYKeyHash 'GYKeyRoleStakePool) poolVrf :: !(GYVRFVerKeyHash 'GYKeyRoleVRFStakePool) poolPledge :: !Natural poolCost :: !Natural poolMargin :: !UnitInterval poolRewardAccount :: !GYStakeAddress poolOwners :: !(Set (GYKeyHash 'GYKeyRoleStaking)) poolRelays :: ![GYStakePoolRelay] poolMetadata :: !(Maybe GYAnchor)

Instances

Instances details

Show GYPoolParams #
Instance details Defined in GeniusYield.Types.Pool Methods showsPrec :: Int -> GYPoolParams -> ShowS # show :: GYPoolParams -> String # showList :: [GYPoolParams] -> ShowS #
Eq GYPoolParams #
Instance details Defined in GeniusYield.Types.Pool Methods (==) :: GYPoolParams -> GYPoolParams -> Bool # (/=) :: GYPoolParams -> GYPoolParams -> Bool #
Ord GYPoolParams #
Instance details Defined in GeniusYield.Types.Pool Methods compare :: GYPoolParams -> GYPoolParams -> Ordering # (<) :: GYPoolParams -> GYPoolParams -> Bool # (<=) :: GYPoolParams -> GYPoolParams -> Bool # (>) :: GYPoolParams -> GYPoolParams -> Bool # (>=) :: GYPoolParams -> GYPoolParams -> Bool # max :: GYPoolParams -> GYPoolParams -> GYPoolParams # min :: GYPoolParams -> GYPoolParams -> GYPoolParams #

poolParamsToLedger :: GYPoolParams -> PoolParams #

poolParamsFromLedger :: PoolParams -> GYPoolParams #