| Safe Haskell | None |
|---|---|
| Language | Haskell2010 |
Cardano.Ledger.Shelley.TxCert
Synopsis
- class (EraTxCert era, AtMostEra "Conway" era) ⇒ ShelleyEraTxCert era where
- mkRegTxCert ∷ Credential 'Staking → TxCert era
- getRegTxCert ∷ TxCert era → Maybe (Credential 'Staking)
- mkUnRegTxCert ∷ Credential 'Staking → TxCert era
- getUnRegTxCert ∷ TxCert era → Maybe (Credential 'Staking)
- mkDelegStakeTxCert ∷ Credential 'Staking → KeyHash 'StakePool → TxCert era
- getDelegStakeTxCert ∷ TxCert era → Maybe (Credential 'Staking, KeyHash 'StakePool)
- mkGenesisDelegTxCert ∷ GenesisDelegCert → TxCert era
- getGenesisDelegTxCert ∷ TxCert era → Maybe GenesisDelegCert
- mkMirTxCert ∷ MIRCert → TxCert era
- getMirTxCert ∷ TxCert era → Maybe MIRCert
- pattern MirTxCert ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ MIRCert → TxCert era
- pattern GenesisDelegTxCert ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ KeyHash 'GenesisRole → KeyHash 'GenesisDelegate → VRFVerKeyHash 'GenDelegVRF → TxCert era
- pattern RegTxCert ∷ ShelleyEraTxCert era ⇒ Credential 'Staking → TxCert era
- pattern UnRegTxCert ∷ ShelleyEraTxCert era ⇒ Credential 'Staking → TxCert era
- pattern DelegStakeTxCert ∷ ShelleyEraTxCert era ⇒ Credential 'Staking → KeyHash 'StakePool → TxCert era
- data ShelleyDelegCert
- = ShelleyRegCert !(Credential 'Staking)
- | ShelleyUnRegCert !(Credential 'Staking)
- | ShelleyDelegCert !(Credential 'Staking) !(KeyHash 'StakePool)
- getVKeyWitnessShelleyTxCert ∷ ShelleyTxCert era → Maybe (KeyHash 'Witness)
- getScriptWitnessShelleyTxCert ∷ ShelleyTxCert era → Maybe ScriptHash
- data ShelleyTxCert era
- upgradeShelleyTxCert ∷ ShelleyTxCert era1 → ShelleyTxCert era2
- data GenesisDelegCert = GenesisDelegCert !(KeyHash 'GenesisRole) !(KeyHash 'GenesisDelegate) !(VRFVerKeyHash 'GenDelegVRF)
- genesisCWitness ∷ GenesisDelegCert → KeyHash 'GenesisRole
- genesisKeyHashWitness ∷ GenesisDelegCert → KeyHash 'Witness
- data MIRCert = MIRCert {
- mirPot ∷ !MIRPot
- mirRewards ∷ !MIRTarget
- data MIRPot
- data MIRTarget
- isDelegation ∷ ShelleyEraTxCert era ⇒ TxCert era → Bool
- isRegPool ∷ EraTxCert era ⇒ TxCert era → Bool
- isRetirePool ∷ EraTxCert era ⇒ TxCert era → Bool
- isGenesisDelegation ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool
- isInstantaneousRewards ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool
- isReservesMIRCert ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool
- isTreasuryMIRCert ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool
- shelleyTxCertDelegDecoder ∷ ShelleyEraTxCert era ⇒ Word → Decoder s (Int, TxCert era)
- poolTxCertDecoder ∷ EraTxCert era ⇒ Word → Decoder s (Int, TxCert era)
- encodeShelleyDelegCert ∷ ShelleyDelegCert → Encoding
- encodePoolCert ∷ PoolCert → Encoding
- encodeGenesisDelegCert ∷ GenesisDelegCert → Encoding
- shelleyTotalDepositsTxCerts ∷ (EraPParams era, Foldable f, EraTxCert era) ⇒ PParams era → (KeyHash 'StakePool → Bool) → f (TxCert era) → Coin
- shelleyTotalRefundsTxCerts ∷ (EraPParams era, Foldable f, EraTxCert era) ⇒ PParams era → (Credential 'Staking → Maybe Coin) → f (TxCert era) → Coin
- class (Era era, ToJSON (TxCert era), DecCBOR (TxCert era), EncCBOR (TxCert era), ToCBOR (TxCert era), FromCBOR (TxCert era), NoThunks (TxCert era), NFData (TxCert era), Show (TxCert era), Ord (TxCert era), Eq (TxCert era)) ⇒ EraTxCert era where
- type TxCert era = (r ∷ Type) | r → era
- type TxCertUpgradeError era
- upgradeTxCert ∷ TxCert (PreviousEra era) → Either (TxCertUpgradeError era) (TxCert era)
- getVKeyWitnessTxCert ∷ TxCert era → Maybe (KeyHash 'Witness)
- getScriptWitnessTxCert ∷ TxCert era → Maybe ScriptHash
- mkRegPoolTxCert ∷ StakePoolParams → TxCert era
- getRegPoolTxCert ∷ TxCert era → Maybe StakePoolParams
- mkRetirePoolTxCert ∷ KeyHash 'StakePool → EpochNo → TxCert era
- getRetirePoolTxCert ∷ TxCert era → Maybe (KeyHash 'StakePool, EpochNo)
- lookupRegStakeTxCert ∷ TxCert era → Maybe (Credential 'Staking)
- lookupUnRegStakeTxCert ∷ TxCert era → Maybe (Credential 'Staking)
- getTotalDepositsTxCerts ∷ Foldable f ⇒ PParams era → (KeyHash 'StakePool → Bool) → f (TxCert era) → Coin
- getTotalRefundsTxCerts ∷ Foldable f ⇒ PParams era → (Credential 'Staking → Maybe Coin) → (Credential 'DRepRole → Maybe Coin) → f (TxCert era) → Coin
- pattern RegPoolTxCert ∷ EraTxCert era ⇒ StakePoolParams → TxCert era
- pattern RetirePoolTxCert ∷ EraTxCert era ⇒ KeyHash 'StakePool → EpochNo → TxCert era
- data PoolCert
- = RegPool !StakePoolParams
- | RetirePool !(KeyHash 'StakePool) !EpochNo
- isRegStakeTxCert ∷ EraTxCert era ⇒ TxCert era → Bool
- isUnRegStakeTxCert ∷ EraTxCert era ⇒ TxCert era → Bool
Documentation
class (EraTxCert era, AtMostEra "Conway" era) ⇒ ShelleyEraTxCert era where Source #
All of the Shelley related certificate functionality that has been fully deprecated in Dijkstra.
Methods
mkRegTxCert ∷ Credential 'Staking → TxCert era Source #
getRegTxCert ∷ TxCert era → Maybe (Credential 'Staking) Source #
mkUnRegTxCert ∷ Credential 'Staking → TxCert era Source #
getUnRegTxCert ∷ TxCert era → Maybe (Credential 'Staking) Source #
mkDelegStakeTxCert ∷ Credential 'Staking → KeyHash 'StakePool → TxCert era Source #
getDelegStakeTxCert ∷ TxCert era → Maybe (Credential 'Staking, KeyHash 'StakePool) Source #
mkGenesisDelegTxCert ∷ GenesisDelegCert → TxCert era Source #
getGenesisDelegTxCert ∷ TxCert era → Maybe GenesisDelegCert Source #
mkMirTxCert ∷ MIRCert → TxCert era Source #
Instances
pattern GenesisDelegTxCert ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ KeyHash 'GenesisRole → KeyHash 'GenesisDelegate → VRFVerKeyHash 'GenDelegVRF → TxCert era Source #
pattern RegTxCert ∷ ShelleyEraTxCert era ⇒ Credential 'Staking → TxCert era Source #
pattern UnRegTxCert ∷ ShelleyEraTxCert era ⇒ Credential 'Staking → TxCert era Source #
pattern DelegStakeTxCert ∷ ShelleyEraTxCert era ⇒ Credential 'Staking → KeyHash 'StakePool → TxCert era Source #
data ShelleyDelegCert Source #
Constructors
| ShelleyRegCert !(Credential 'Staking) | A stake credential registration certificate. |
| ShelleyUnRegCert !(Credential 'Staking) | A stake credential deregistration certificate. |
| ShelleyDelegCert !(Credential 'Staking) !(KeyHash 'StakePool) | A stake delegation certificate. |
Instances
getVKeyWitnessShelleyTxCert ∷ ShelleyTxCert era → Maybe (KeyHash 'Witness) Source #
data ShelleyTxCert era Source #
A heavyweight certificate.
Constructors
| ShelleyTxCertDelegCert !ShelleyDelegCert | |
| ShelleyTxCertPool !PoolCert | |
| ShelleyTxCertGenesisDeleg !GenesisDelegCert | |
| ShelleyTxCertMir !MIRCert |
Instances
| Era era ⇒ ToJSON (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods toJSON ∷ ShelleyTxCert era → Value Source # toEncoding ∷ ShelleyTxCert era → Encoding Source # toJSONList ∷ [ShelleyTxCert era] → Value Source # toEncodingList ∷ [ShelleyTxCert era] → Encoding Source # omitField ∷ ShelleyTxCert era → Bool Source # | |||||
| (ShelleyEraTxCert era, TxCert era ~ ShelleyTxCert era) ⇒ FromCBOR (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert | |||||
| Era era ⇒ ToCBOR (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods toCBOR ∷ ShelleyTxCert era → Encoding Source # encodedSizeExpr ∷ (∀ t. ToCBOR t ⇒ Proxy t → Size) → Proxy (ShelleyTxCert era) → Size Source # encodedListSizeExpr ∷ (∀ t. ToCBOR t ⇒ Proxy t → Size) → Proxy [ShelleyTxCert era] → Size Source # | |||||
| (ShelleyEraTxCert era, TxCert era ~ ShelleyTxCert era) ⇒ DecCBOR (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert | |||||
| Era era ⇒ EncCBOR (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods encCBOR ∷ ShelleyTxCert era → Encoding Source # | |||||
| NFData (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods rnf ∷ ShelleyTxCert era → () # | |||||
| Generic (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Associated Types
Methods from ∷ ShelleyTxCert era → Rep (ShelleyTxCert era) x # to ∷ Rep (ShelleyTxCert era) x → ShelleyTxCert era # | |||||
| Show (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods showsPrec ∷ Int → ShelleyTxCert era → ShowS # show ∷ ShelleyTxCert era → String # showList ∷ [ShelleyTxCert era] → ShowS # | |||||
| Eq (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods (==) ∷ ShelleyTxCert era → ShelleyTxCert era → Bool # (/=) ∷ ShelleyTxCert era → ShelleyTxCert era → Bool # | |||||
| Ord (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods compare ∷ ShelleyTxCert era → ShelleyTxCert era → Ordering # (<) ∷ ShelleyTxCert era → ShelleyTxCert era → Bool # (<=) ∷ ShelleyTxCert era → ShelleyTxCert era → Bool # (>) ∷ ShelleyTxCert era → ShelleyTxCert era → Bool # (>=) ∷ ShelleyTxCert era → ShelleyTxCert era → Bool # max ∷ ShelleyTxCert era → ShelleyTxCert era → ShelleyTxCert era # min ∷ ShelleyTxCert era → ShelleyTxCert era → ShelleyTxCert era # | |||||
| NoThunks (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert | |||||
| type Rep (ShelleyTxCert era) Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert type Rep (ShelleyTxCert era) = D1 ('MetaData "ShelleyTxCert" "Cardano.Ledger.Shelley.TxCert" "cardano-ledger-shelley-1.18.0.0-inplace" 'False) ((C1 ('MetaCons "ShelleyTxCertDelegCert" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ShelleyDelegCert)) :+: C1 ('MetaCons "ShelleyTxCertPool" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 PoolCert))) :+: (C1 ('MetaCons "ShelleyTxCertGenesisDeleg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 GenesisDelegCert)) :+: C1 ('MetaCons "ShelleyTxCertMir" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 MIRCert)))) | |||||
upgradeShelleyTxCert ∷ ShelleyTxCert era1 → ShelleyTxCert era2 Source #
GenesisDelegCert
data GenesisDelegCert Source #
Genesis key delegation certificate
Constructors
| GenesisDelegCert !(KeyHash 'GenesisRole) !(KeyHash 'GenesisDelegate) !(VRFVerKeyHash 'GenDelegVRF) |
Instances
| ToJSON GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods toJSON ∷ GenesisDelegCert → Value Source # toEncoding ∷ GenesisDelegCert → Encoding Source # toJSONList ∷ [GenesisDelegCert] → Value Source # | |||||
| NFData GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods rnf ∷ GenesisDelegCert → () # | |||||
| Generic GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Associated Types
Methods from ∷ GenesisDelegCert → Rep GenesisDelegCert x # to ∷ Rep GenesisDelegCert x → GenesisDelegCert # | |||||
| Show GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods showsPrec ∷ Int → GenesisDelegCert → ShowS # show ∷ GenesisDelegCert → String # showList ∷ [GenesisDelegCert] → ShowS # | |||||
| Eq GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods | |||||
| Ord GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Methods compare ∷ GenesisDelegCert → GenesisDelegCert → Ordering # (<) ∷ GenesisDelegCert → GenesisDelegCert → Bool # (<=) ∷ GenesisDelegCert → GenesisDelegCert → Bool # (>) ∷ GenesisDelegCert → GenesisDelegCert → Bool # (>=) ∷ GenesisDelegCert → GenesisDelegCert → Bool # max ∷ GenesisDelegCert → GenesisDelegCert → GenesisDelegCert # min ∷ GenesisDelegCert → GenesisDelegCert → GenesisDelegCert # | |||||
| NoThunks GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert | |||||
| type Rep GenesisDelegCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert type Rep GenesisDelegCert = D1 ('MetaData "GenesisDelegCert" "Cardano.Ledger.Shelley.TxCert" "cardano-ledger-shelley-1.18.0.0-inplace" 'False) (C1 ('MetaCons "GenesisDelegCert" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (KeyHash 'GenesisRole)) :*: (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (KeyHash 'GenesisDelegate)) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (VRFVerKeyHash 'GenDelegVRF))))) | |||||
MIRCert
Move instantaneous rewards certificate
Constructors
| MIRCert | |
Fields
| |
Instances
| ToJSON MIRCert Source # | |||||
| DecCBOR MIRCert Source # | |||||
| EncCBOR MIRCert Source # | |||||
| NFData MIRCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert | |||||
| Generic MIRCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Associated Types
| |||||
| Show MIRCert Source # | |||||
| Eq MIRCert Source # | |||||
| Ord MIRCert Source # | |||||
| NoThunks MIRCert Source # | |||||
| type Rep MIRCert Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert type Rep MIRCert = D1 ('MetaData "MIRCert" "Cardano.Ledger.Shelley.TxCert" "cardano-ledger-shelley-1.18.0.0-inplace" 'False) (C1 ('MetaCons "MIRCert" 'PrefixI 'True) (S1 ('MetaSel ('Just "mirPot") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 MIRPot) :*: S1 ('MetaSel ('Just "mirRewards") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 MIRTarget))) | |||||
Constructors
| ReservesMIR | |
| TreasuryMIR |
Instances
| ToJSON MIRPot Source # | |
| DecCBOR MIRPot Source # | |
| EncCBOR MIRPot Source # | |
| NFData MIRPot Source # | |
Defined in Cardano.Ledger.Shelley.TxCert | |
| Bounded MIRPot Source # | |
| Enum MIRPot Source # | |
Defined in Cardano.Ledger.Shelley.TxCert | |
| Generic MIRPot Source # | |
Defined in Cardano.Ledger.Shelley.TxCert | |
| Show MIRPot Source # | |
| Eq MIRPot Source # | |
| Ord MIRPot Source # | |
| NoThunks MIRPot Source # | |
| type Rep MIRPot Source # | |
MIRTarget specifies if funds from either the reserves or the treasury are to be handed out to a collection of reward accounts or instead transfered to the opposite pot.
Constructors
| StakeAddressesMIR !(Map (Credential 'Staking) DeltaCoin) | |
| SendToOppositePotMIR !Coin |
Instances
| ToJSON MIRTarget Source # | |||||
| DecCBOR MIRTarget Source # | |||||
| EncCBOR MIRTarget Source # | |||||
| NFData MIRTarget Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert | |||||
| Generic MIRTarget Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert Associated Types
| |||||
| Show MIRTarget Source # | |||||
| Eq MIRTarget Source # | |||||
| Ord MIRTarget Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert | |||||
| NoThunks MIRTarget Source # | |||||
| type Rep MIRTarget Source # | |||||
Defined in Cardano.Ledger.Shelley.TxCert type Rep MIRTarget = D1 ('MetaData "MIRTarget" "Cardano.Ledger.Shelley.TxCert" "cardano-ledger-shelley-1.18.0.0-inplace" 'False) (C1 ('MetaCons "StakeAddressesMIR" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Map (Credential 'Staking) DeltaCoin))) :+: C1 ('MetaCons "SendToOppositePotMIR" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Coin))) | |||||
isDelegation ∷ ShelleyEraTxCert era ⇒ TxCert era → Bool Source #
Check for ShelleyDelegCert constructor
isRetirePool ∷ EraTxCert era ⇒ TxCert era → Bool Source #
Check for RetirePool constructor
isGenesisDelegation ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool Source #
Check for GenesisDelegate' constructor
isInstantaneousRewards ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool Source #
isReservesMIRCert ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool Source #
isTreasuryMIRCert ∷ (ShelleyEraTxCert era, AtMostEra "Babbage" era) ⇒ TxCert era → Bool Source #
Serialization helpers
shelleyTxCertDelegDecoder ∷ ShelleyEraTxCert era ⇒ Word → Decoder s (Int, TxCert era) Source #
Deposits and Refunds
shelleyTotalDepositsTxCerts Source #
Arguments
| ∷ (EraPParams era, Foldable f, EraTxCert era) | |
| ⇒ PParams era | |
| → (KeyHash 'StakePool → Bool) | Check whether a pool with a supplied PoolStakeId is already registered. |
| → f (TxCert era) | |
| → Coin |
Determine the total deposit amount needed from a TxBody. The block may (legitimately) contain multiple registration certificates for the same pool, where the first will be treated as a registration and any subsequent ones as re-registration. As such, we must only take a deposit for the first such registration. It is even possible for a single transaction to have multiple pool registration for the same pool, so as we process pool registrations, we must keep track of those that are already registered, so we do not add a Deposit for the same pool twice.
Note that this is not an issue for key registrations since subsequent registration certificates would be invalid.
shelleyTotalRefundsTxCerts Source #
Arguments
| ∷ (EraPParams era, Foldable f, EraTxCert era) | |
| ⇒ PParams era | |
| → (Credential 'Staking → Maybe Coin) | Function that can lookup current deposit, in case when the stake key is registered. |
| → f (TxCert era) | |
| → Coin |
Compute the key deregistration refunds in a transaction
Re-exports
class (Era era, ToJSON (TxCert era), DecCBOR (TxCert era), EncCBOR (TxCert era), ToCBOR (TxCert era), FromCBOR (TxCert era), NoThunks (TxCert era), NFData (TxCert era), Show (TxCert era), Ord (TxCert era), Eq (TxCert era)) ⇒ EraTxCert era where Source #
Associated Types
type TxCert era = (r ∷ Type) | r → era Source #
type TxCertUpgradeError era Source #
type TxCertUpgradeError era = Void
Methods
upgradeTxCert ∷ TxCert (PreviousEra era) → Either (TxCertUpgradeError era) (TxCert era) Source #
Every era, except Shelley, must be able to upgrade a TxCert from a previous
era. However, not all certificates can be upgraded, because some eras lose some of
the certificates, thus return type is an Either. Eg. from Babbage to Conway: MIR
and Genesis certificates were removed.
getVKeyWitnessTxCert ∷ TxCert era → Maybe (KeyHash 'Witness) Source #
Return a witness key whenever a certificate requires one
getScriptWitnessTxCert ∷ TxCert era → Maybe ScriptHash Source #
Return a ScriptHash for certificate types that require a witness
mkRegPoolTxCert ∷ StakePoolParams → TxCert era Source #
getRegPoolTxCert ∷ TxCert era → Maybe StakePoolParams Source #
mkRetirePoolTxCert ∷ KeyHash 'StakePool → EpochNo → TxCert era Source #
getRetirePoolTxCert ∷ TxCert era → Maybe (KeyHash 'StakePool, EpochNo) Source #
lookupRegStakeTxCert ∷ TxCert era → Maybe (Credential 'Staking) Source #
Extract staking credential from any certificate that can register such credential
lookupUnRegStakeTxCert ∷ TxCert era → Maybe (Credential 'Staking) Source #
Extract staking credential from any certificate that can unregister such credential
getTotalDepositsTxCerts Source #
Arguments
| ∷ Foldable f | |
| ⇒ PParams era | |
| → (KeyHash 'StakePool → Bool) | Check whether stake pool is registered or not |
| → f (TxCert era) | |
| → Coin |
Compute the total deposits from a list of certificates.
getTotalRefundsTxCerts Source #
Arguments
| ∷ Foldable f | |
| ⇒ PParams era | |
| → (Credential 'Staking → Maybe Coin) | Lookup current deposit for Staking credential if one is registered |
| → (Credential 'DRepRole → Maybe Coin) | Lookup current deposit for DRep credential if one is registered |
| → f (TxCert era) | |
| → Coin |
Compute the total refunds from a list of certificates.
Instances
| EraTxCert ShelleyEra Source # | |||||||||
Defined in Cardano.Ledger.Shelley.TxCert Associated Types
Methods upgradeTxCert ∷ TxCert (PreviousEra ShelleyEra) → Either (TxCertUpgradeError ShelleyEra) (TxCert ShelleyEra) Source # getVKeyWitnessTxCert ∷ TxCert ShelleyEra → Maybe (KeyHash 'Witness) Source # getScriptWitnessTxCert ∷ TxCert ShelleyEra → Maybe ScriptHash Source # mkRegPoolTxCert ∷ StakePoolParams → TxCert ShelleyEra Source # getRegPoolTxCert ∷ TxCert ShelleyEra → Maybe StakePoolParams Source # mkRetirePoolTxCert ∷ KeyHash 'StakePool → EpochNo → TxCert ShelleyEra Source # getRetirePoolTxCert ∷ TxCert ShelleyEra → Maybe (KeyHash 'StakePool, EpochNo) Source # lookupRegStakeTxCert ∷ TxCert ShelleyEra → Maybe (Credential 'Staking) Source # lookupUnRegStakeTxCert ∷ TxCert ShelleyEra → Maybe (Credential 'Staking) Source # getTotalDepositsTxCerts ∷ Foldable f ⇒ PParams ShelleyEra → (KeyHash 'StakePool → Bool) → f (TxCert ShelleyEra) → Coin Source # getTotalRefundsTxCerts ∷ Foldable f ⇒ PParams ShelleyEra → (Credential 'Staking → Maybe Coin) → (Credential 'DRepRole → Maybe Coin) → f (TxCert ShelleyEra) → Coin Source # | |||||||||
pattern RegPoolTxCert ∷ EraTxCert era ⇒ StakePoolParams → TxCert era Source #
Constructors
| RegPool !StakePoolParams | A stake pool registration certificate. |
| RetirePool !(KeyHash 'StakePool) !EpochNo | A stake pool retirement certificate. |
Instances
| ToJSON PoolCert | |||||
| EncCBOR PoolCert | |||||
| NFData PoolCert | |||||
Defined in Cardano.Ledger.Core.TxCert | |||||
| Generic PoolCert | |||||
Defined in Cardano.Ledger.Core.TxCert Associated Types
| |||||
| Show PoolCert | |||||
| Eq PoolCert | |||||
| Ord PoolCert | |||||
Defined in Cardano.Ledger.Core.TxCert | |||||
| NoThunks PoolCert | |||||
| type Rep PoolCert | |||||
Defined in Cardano.Ledger.Core.TxCert type Rep PoolCert = D1 ('MetaData "PoolCert" "Cardano.Ledger.Core.TxCert" "cardano-ledger-core-1.19.0.0-inplace" 'False) (C1 ('MetaCons "RegPool" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 StakePoolParams)) :+: C1 ('MetaCons "RetirePool" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (KeyHash 'StakePool)) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedUnpack) (Rec0 EpochNo))) | |||||
isRegStakeTxCert ∷ EraTxCert era ⇒ TxCert era → Bool Source #
Check if supplied TxCert is a stake registering certificate
isUnRegStakeTxCert ∷ EraTxCert era ⇒ TxCert era → Bool Source #
Check if supplied TxCert is a stake un-registering certificate
Orphan instances
| EraTxCert ShelleyEra Source # | |||||||||
Associated Types
Methods upgradeTxCert ∷ TxCert (PreviousEra ShelleyEra) → Either (TxCertUpgradeError ShelleyEra) (TxCert ShelleyEra) Source # getVKeyWitnessTxCert ∷ TxCert ShelleyEra → Maybe (KeyHash 'Witness) Source # getScriptWitnessTxCert ∷ TxCert ShelleyEra → Maybe ScriptHash Source # mkRegPoolTxCert ∷ StakePoolParams → TxCert ShelleyEra Source # getRegPoolTxCert ∷ TxCert ShelleyEra → Maybe StakePoolParams Source # mkRetirePoolTxCert ∷ KeyHash 'StakePool → EpochNo → TxCert ShelleyEra Source # getRetirePoolTxCert ∷ TxCert ShelleyEra → Maybe (KeyHash 'StakePool, EpochNo) Source # lookupRegStakeTxCert ∷ TxCert ShelleyEra → Maybe (Credential 'Staking) Source # lookupUnRegStakeTxCert ∷ TxCert ShelleyEra → Maybe (Credential 'Staking) Source # getTotalDepositsTxCerts ∷ Foldable f ⇒ PParams ShelleyEra → (KeyHash 'StakePool → Bool) → f (TxCert ShelleyEra) → Coin Source # getTotalRefundsTxCerts ∷ Foldable f ⇒ PParams ShelleyEra → (Credential 'Staking → Maybe Coin) → (Credential 'DRepRole → Maybe Coin) → f (TxCert ShelleyEra) → Coin Source # | |||||||||