| Safe Haskell | None |
|---|---|
| Language | Haskell2010 |
Cardano.Protocol.TPraos.Rules.Prtcl
Synopsis
- data PRTCL c
- type family State a
- data PrtclEnv = PrtclEnv UnitInterval PoolDistr GenDelegs Nonce
- data PrtclState = PrtclState !(Map (KeyHash 'BlockIssuer) Word64) !Nonce !Nonce
- data PrtclPredicateFailure c
- = OverlayFailure (PredicateFailure (OVERLAY c))
- | UpdnFailure (PredicateFailure (UPDN c))
- type family PredicateFailure a
- data PrtlSeqFailure
- prtlSeqChecks ∷ (MonadError PrtlSeqFailure m, Crypto c) ⇒ WithOrigin LastAppliedBlock → BHeader c → m ()
Documentation
Instances
Type of the state which the system transitions between.
Instances
| type State TICKN Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Tickn | |
| type State (AllegraUTXO era) | |
Defined in Cardano.Ledger.Allegra.Rules.Utxo | |
| type State (AllegraUTXOW era) | |
Defined in Cardano.Ledger.Allegra.Rules.Utxow | |
| type State (AlonzoBBODY era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Bbody | |
| type State (AlonzoLEDGER era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Ledger | |
| type State (AlonzoUTXO era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Utxo | |
| type State (AlonzoUTXOS era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Utxos | |
| type State (AlonzoUTXOW era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Utxow | |
| type State (BabbageLEDGER era) | |
Defined in Cardano.Ledger.Babbage.Rules.Ledger | |
| type State (BabbageUTXO era) | |
Defined in Cardano.Ledger.Babbage.Rules.Utxo | |
| type State (BabbageUTXOS era) | |
Defined in Cardano.Ledger.Babbage.Rules.Utxos | |
| type State (BabbageUTXOW era) | |
Defined in Cardano.Ledger.Babbage.Rules.Utxow | |
| type State (ConwayBBODY era) | |
Defined in Cardano.Ledger.Conway.Rules.Bbody | |
| type State (ConwayCERT era) | |
Defined in Cardano.Ledger.Conway.Rules.Cert | |
| type State (ConwayCERTS era) | |
Defined in Cardano.Ledger.Conway.Rules.Certs | |
| type State (ConwayDELEG era) | |
Defined in Cardano.Ledger.Conway.Rules.Deleg | |
| type State (ConwayENACT era) | |
Defined in Cardano.Ledger.Conway.Rules.Enact | |
| type State (ConwayEPOCH era) | |
Defined in Cardano.Ledger.Conway.Rules.Epoch | |
| type State (ConwayGOV era) | |
Defined in Cardano.Ledger.Conway.Rules.Gov | |
| type State (ConwayGOVCERT era) | |
Defined in Cardano.Ledger.Conway.Rules.GovCert | |
| type State (ConwayHARDFORK era) | |
Defined in Cardano.Ledger.Conway.Rules.HardFork | |
| type State (ConwayLEDGER era) | |
Defined in Cardano.Ledger.Conway.Rules.Ledger | |
| type State (ConwayMEMPOOL era) | |
Defined in Cardano.Ledger.Conway.Rules.Mempool | |
| type State (ConwayNEWEPOCH era) | |
Defined in Cardano.Ledger.Conway.Rules.NewEpoch | |
| type State (ConwayRATIFY era) | |
Defined in Cardano.Ledger.Conway.Rules.Ratify | |
| type State (ConwayTICKF era) | |
Defined in Cardano.Ledger.Conway.Rules.Tickf | |
| type State (ConwayUTXO era) | |
Defined in Cardano.Ledger.Conway.Rules.Utxo | |
| type State (ConwayUTXOS era) | |
Defined in Cardano.Ledger.Conway.Rules.Utxos | |
| type State (ConwayUTXOW era) | |
Defined in Cardano.Ledger.Conway.Rules.Utxow | |
| type State (DijkstraBBODY era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Bbody | |
| type State (DijkstraCERT era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Cert | |
| type State (DijkstraGOV era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Gov | |
| type State (DijkstraGOVCERT era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.GovCert | |
| type State (DijkstraLEDGER era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Ledger | |
| type State (DijkstraMEMPOOL era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Mempool | |
| type State (DijkstraUTXO era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Utxo | |
| type State (DijkstraUTXOW era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Utxow | |
| type State (ShelleyBBODY era) | |
Defined in Cardano.Ledger.Shelley.Rules.Bbody | |
| type State (ShelleyDELEG era) | |
Defined in Cardano.Ledger.Shelley.Rules.Deleg | |
| type State (ShelleyDELEGS era) | |
Defined in Cardano.Ledger.Shelley.Rules.Delegs | |
| type State (ShelleyDELPL era) | |
Defined in Cardano.Ledger.Shelley.Rules.Delpl | |
| type State (ShelleyEPOCH era) | |
Defined in Cardano.Ledger.Shelley.Rules.Epoch | |
| type State (ShelleyLEDGER era) | |
Defined in Cardano.Ledger.Shelley.Rules.Ledger | |
| type State (ShelleyLEDGERS era) | |
Defined in Cardano.Ledger.Shelley.Rules.Ledgers | |
| type State (ShelleyMIR era) | |
Defined in Cardano.Ledger.Shelley.Rules.Mir | |
| type State (ShelleyNEWEPOCH era) | |
Defined in Cardano.Ledger.Shelley.Rules.NewEpoch | |
| type State (ShelleyNEWPP era) | |
Defined in Cardano.Ledger.Shelley.Rules.Newpp | |
| type State (ShelleyPOOL era) | |
Defined in Cardano.Ledger.Shelley.Rules.Pool | |
| type State (ShelleyPOOLREAP era) | |
Defined in Cardano.Ledger.Shelley.Rules.PoolReap | |
| type State (ShelleyPPUP era) | |
Defined in Cardano.Ledger.Shelley.Rules.Ppup | |
| type State (ShelleyRUPD era) | |
Defined in Cardano.Ledger.Shelley.Rules.Rupd | |
| type State (ShelleySNAP era) | |
Defined in Cardano.Ledger.Shelley.Rules.Snap | |
| type State (ShelleyTICK era) | |
Defined in Cardano.Ledger.Shelley.Rules.Tick | |
| type State (ShelleyTICKF era) | |
Defined in Cardano.Ledger.Shelley.Rules.Tick | |
| type State (ShelleyUPEC era) | |
Defined in Cardano.Ledger.Shelley.Rules.Upec | |
| type State (ShelleyUTXO era) | |
Defined in Cardano.Ledger.Shelley.Rules.Utxo | |
| type State (ShelleyUTXOW era) | |
Defined in Cardano.Ledger.Shelley.Rules.Utxow | |
| type State (OCERT c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.OCert | |
| type State (OVERLAY c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Overlay | |
| type State (PRTCL c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |
| type State (UPDN c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Updn | |
| type State (STUB e st si f m) | |
Defined in Control.State.Transition.Extended | |
Constructors
| PrtclEnv UnitInterval PoolDistr GenDelegs Nonce |
Instances
| Generic PrtclEnv Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Associated Types
| |||||
| NoThunks PrtclEnv Source # | |||||
| type Rep PrtclEnv Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl type Rep PrtclEnv = D1 ('MetaData "PrtclEnv" "Cardano.Protocol.TPraos.Rules.Prtcl" "cardano-protocol-tpraos-1.5.0.0-inplace" 'False) (C1 ('MetaCons "PrtclEnv" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UnitInterval) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PoolDistr)) :*: (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 GenDelegs) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Nonce)))) | |||||
data PrtclState Source #
Constructors
| PrtclState | |
Instances
| FromCBOR PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |||||
| ToCBOR PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Methods toCBOR ∷ PrtclState → Encoding Source # encodedSizeExpr ∷ (∀ t. ToCBOR t ⇒ Proxy t → Size) → Proxy PrtclState → Size Source # encodedListSizeExpr ∷ (∀ t. ToCBOR t ⇒ Proxy t → Size) → Proxy [PrtclState] → Size Source # | |||||
| DecCBOR PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |||||
| EncCBOR PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Methods encCBOR ∷ PrtclState → Encoding Source # | |||||
| Generic PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Associated Types
| |||||
| Show PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Methods showsPrec ∷ Int → PrtclState → ShowS # show ∷ PrtclState → String # showList ∷ [PrtclState] → ShowS # | |||||
| Eq PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |||||
| NoThunks PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |||||
| type Rep PrtclState Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl type Rep PrtclState = D1 ('MetaData "PrtclState" "Cardano.Protocol.TPraos.Rules.Prtcl" "cardano-protocol-tpraos-1.5.0.0-inplace" 'False) (C1 ('MetaCons "PrtclState" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Map (KeyHash 'BlockIssuer) Word64)) :*: (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Nonce) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Nonce)))) | |||||
data PrtclPredicateFailure c Source #
Constructors
| OverlayFailure (PredicateFailure (OVERLAY c)) | |
| UpdnFailure (PredicateFailure (UPDN c)) |
Instances
| Generic (PrtclPredicateFailure c) Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Associated Types
Methods from ∷ PrtclPredicateFailure c → Rep (PrtclPredicateFailure c) x # to ∷ Rep (PrtclPredicateFailure c) x → PrtclPredicateFailure c # | |||||
| VRFAlgorithm (VRF c) ⇒ Show (PrtclPredicateFailure c) Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Methods showsPrec ∷ Int → PrtclPredicateFailure c → ShowS # show ∷ PrtclPredicateFailure c → String # showList ∷ [PrtclPredicateFailure c] → ShowS # | |||||
| VRFAlgorithm (VRF c) ⇒ Eq (PrtclPredicateFailure c) Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Methods (==) ∷ PrtclPredicateFailure c → PrtclPredicateFailure c → Bool # (/=) ∷ PrtclPredicateFailure c → PrtclPredicateFailure c → Bool # | |||||
| Crypto c ⇒ NoThunks (PrtclPredicateFailure c) Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |||||
| type Rep (PrtclPredicateFailure c) Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl type Rep (PrtclPredicateFailure c) = D1 ('MetaData "PrtclPredicateFailure" "Cardano.Protocol.TPraos.Rules.Prtcl" "cardano-protocol-tpraos-1.5.0.0-inplace" 'False) (C1 ('MetaCons "OverlayFailure" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (PredicateFailure (OVERLAY c)))) :+: C1 ('MetaCons "UpdnFailure" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (PredicateFailure (UPDN c))))) | |||||
type family PredicateFailure a Source #
Descriptive type for the possible failures which might cause a transition to fail.
As a convention, PredicateFailures which are "structural" (meaning that
they are not "throwable" in practice, and are used to pass control from
one transition rule to another) are prefixed with S_.
Structural PredicateFailures represent conditions between rules where
the disjunction of all rules' preconditions is equal to True. That is,
either one rule will throw a structural PredicateFailure and the other
will succeed, or vice-versa.
Instances
| type PredicateFailure TICKN Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Tickn | |
| type PredicateFailure (AllegraUTXO era) | |
Defined in Cardano.Ledger.Allegra.Rules.Utxo | |
| type PredicateFailure (AllegraUTXOW era) | |
Defined in Cardano.Ledger.Allegra.Rules.Utxow | |
| type PredicateFailure (AlonzoBBODY era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Bbody | |
| type PredicateFailure (AlonzoLEDGER era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Ledger | |
| type PredicateFailure (AlonzoUTXO era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Utxo | |
| type PredicateFailure (AlonzoUTXOS era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Utxos | |
| type PredicateFailure (AlonzoUTXOW era) | |
Defined in Cardano.Ledger.Alonzo.Rules.Utxow | |
| type PredicateFailure (BabbageLEDGER era) | |
Defined in Cardano.Ledger.Babbage.Rules.Ledger | |
| type PredicateFailure (BabbageUTXO era) | |
Defined in Cardano.Ledger.Babbage.Rules.Utxo | |
| type PredicateFailure (BabbageUTXOS era) | |
Defined in Cardano.Ledger.Babbage.Rules.Utxos | |
| type PredicateFailure (BabbageUTXOW era) | |
Defined in Cardano.Ledger.Babbage.Rules.Utxow | |
| type PredicateFailure (ConwayBBODY era) | |
Defined in Cardano.Ledger.Conway.Rules.Bbody | |
| type PredicateFailure (ConwayCERT era) | |
Defined in Cardano.Ledger.Conway.Rules.Cert | |
| type PredicateFailure (ConwayCERTS era) | |
Defined in Cardano.Ledger.Conway.Rules.Certs | |
| type PredicateFailure (ConwayDELEG era) | |
Defined in Cardano.Ledger.Conway.Rules.Deleg | |
| type PredicateFailure (ConwayENACT era) | |
Defined in Cardano.Ledger.Conway.Rules.Enact | |
| type PredicateFailure (ConwayEPOCH era) | |
Defined in Cardano.Ledger.Conway.Rules.Epoch | |
| type PredicateFailure (ConwayGOV era) | |
Defined in Cardano.Ledger.Conway.Rules.Gov | |
| type PredicateFailure (ConwayGOVCERT era) | |
Defined in Cardano.Ledger.Conway.Rules.GovCert | |
| type PredicateFailure (ConwayHARDFORK era) | |
Defined in Cardano.Ledger.Conway.Rules.HardFork | |
| type PredicateFailure (ConwayLEDGER era) | |
Defined in Cardano.Ledger.Conway.Rules.Ledger | |
| type PredicateFailure (ConwayMEMPOOL era) | |
Defined in Cardano.Ledger.Conway.Rules.Mempool | |
| type PredicateFailure (ConwayNEWEPOCH era) | |
Defined in Cardano.Ledger.Conway.Rules.NewEpoch | |
| type PredicateFailure (ConwayRATIFY era) | |
Defined in Cardano.Ledger.Conway.Rules.Ratify | |
| type PredicateFailure (ConwayTICKF era) | |
Defined in Cardano.Ledger.Conway.Rules.Tickf | |
| type PredicateFailure (ConwayUTXO era) | |
Defined in Cardano.Ledger.Conway.Rules.Utxo | |
| type PredicateFailure (ConwayUTXOS era) | |
Defined in Cardano.Ledger.Conway.Rules.Utxos | |
| type PredicateFailure (ConwayUTXOW era) | |
Defined in Cardano.Ledger.Conway.Rules.Utxow | |
| type PredicateFailure (DijkstraBBODY era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Bbody | |
| type PredicateFailure (DijkstraCERT era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Cert | |
| type PredicateFailure (DijkstraGOV era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Gov | |
| type PredicateFailure (DijkstraGOVCERT era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.GovCert | |
| type PredicateFailure (DijkstraLEDGER era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Ledger | |
| type PredicateFailure (DijkstraMEMPOOL era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Mempool | |
| type PredicateFailure (DijkstraUTXO era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Utxo | |
| type PredicateFailure (DijkstraUTXOW era) | |
Defined in Cardano.Ledger.Dijkstra.Rules.Utxow | |
| type PredicateFailure (ShelleyBBODY era) | |
Defined in Cardano.Ledger.Shelley.Rules.Bbody | |
| type PredicateFailure (ShelleyDELEG era) | |
Defined in Cardano.Ledger.Shelley.Rules.Deleg | |
| type PredicateFailure (ShelleyDELEGS era) | |
Defined in Cardano.Ledger.Shelley.Rules.Delegs | |
| type PredicateFailure (ShelleyDELPL era) | |
Defined in Cardano.Ledger.Shelley.Rules.Delpl | |
| type PredicateFailure (ShelleyEPOCH era) | |
Defined in Cardano.Ledger.Shelley.Rules.Epoch | |
| type PredicateFailure (ShelleyLEDGER era) | |
Defined in Cardano.Ledger.Shelley.Rules.Ledger | |
| type PredicateFailure (ShelleyLEDGERS era) | |
Defined in Cardano.Ledger.Shelley.Rules.Ledgers | |
| type PredicateFailure (ShelleyMIR era) | |
Defined in Cardano.Ledger.Shelley.Rules.Mir | |
| type PredicateFailure (ShelleyNEWEPOCH era) | |
Defined in Cardano.Ledger.Shelley.Rules.NewEpoch | |
| type PredicateFailure (ShelleyNEWPP era) | |
Defined in Cardano.Ledger.Shelley.Rules.Newpp | |
| type PredicateFailure (ShelleyPOOL era) | |
Defined in Cardano.Ledger.Shelley.Rules.Pool | |
| type PredicateFailure (ShelleyPOOLREAP era) | |
Defined in Cardano.Ledger.Shelley.Rules.PoolReap | |
| type PredicateFailure (ShelleyPPUP era) | |
Defined in Cardano.Ledger.Shelley.Rules.Ppup | |
| type PredicateFailure (ShelleyRUPD era) | |
Defined in Cardano.Ledger.Shelley.Rules.Rupd | |
| type PredicateFailure (ShelleySNAP era) | |
Defined in Cardano.Ledger.Shelley.Rules.Snap | |
| type PredicateFailure (ShelleyTICK era) | |
Defined in Cardano.Ledger.Shelley.Rules.Tick | |
| type PredicateFailure (ShelleyTICKF era) | |
Defined in Cardano.Ledger.Shelley.Rules.Tick | |
| type PredicateFailure (ShelleyUPEC era) | |
Defined in Cardano.Ledger.Shelley.Rules.Upec | |
| type PredicateFailure (ShelleyUTXO era) | |
Defined in Cardano.Ledger.Shelley.Rules.Utxo | |
| type PredicateFailure (ShelleyUTXOW era) | |
Defined in Cardano.Ledger.Shelley.Rules.Utxow | |
| type PredicateFailure (OCERT c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.OCert | |
| type PredicateFailure (OVERLAY c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Overlay | |
| type PredicateFailure (PRTCL c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |
| type PredicateFailure (UPDN c) Source # | |
Defined in Cardano.Protocol.TPraos.Rules.Updn | |
| type PredicateFailure (STUB e st si f m) | |
Defined in Control.State.Transition.Extended | |
data PrtlSeqFailure Source #
Constructors
| WrongSlotIntervalPrtclSeq | |
| WrongBlockNoPrtclSeq | |
Fields
| |
| WrongBlockSequencePrtclSeq | |
Instances
| Generic PrtlSeqFailure Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Associated Types
| |||||
| Show PrtlSeqFailure Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Methods showsPrec ∷ Int → PrtlSeqFailure → ShowS # show ∷ PrtlSeqFailure → String # showList ∷ [PrtlSeqFailure] → ShowS # | |||||
| Eq PrtlSeqFailure Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl Methods (==) ∷ PrtlSeqFailure → PrtlSeqFailure → Bool # (/=) ∷ PrtlSeqFailure → PrtlSeqFailure → Bool # | |||||
| NoThunks PrtlSeqFailure Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl | |||||
| type Rep PrtlSeqFailure Source # | |||||
Defined in Cardano.Protocol.TPraos.Rules.Prtcl type Rep PrtlSeqFailure = D1 ('MetaData "PrtlSeqFailure" "Cardano.Protocol.TPraos.Rules.Prtcl" "cardano-protocol-tpraos-1.5.0.0-inplace" 'False) (C1 ('MetaCons "WrongSlotIntervalPrtclSeq" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SlotNo) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SlotNo)) :+: (C1 ('MetaCons "WrongBlockNoPrtclSeq" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (WithOrigin LastAppliedBlock)) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 BlockNo)) :+: C1 ('MetaCons "WrongBlockSequencePrtclSeq" 'PrefixI 'False) (S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PrevHash) :*: S1 ('MetaSel ('Nothing ∷ Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PrevHash)))) | |||||
prtlSeqChecks ∷ (MonadError PrtlSeqFailure m, Crypto c) ⇒ WithOrigin LastAppliedBlock → BHeader c → m () Source #