{- This file was auto-generated from utxorpc/v1beta/cardano/cardano.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Utxorpc.V1beta.Cardano.Cardano (
        AddressPattern(), Anchor(), Asset(), AssetPattern(),
        AuthCommitteeHotCert(), AuxData(), BigInt(), BigInt'BigInt(..),
        _BigInt'Int, _BigInt'BigUInt, _BigInt'BigNInt, Block(),
        BlockBody(), BlockHeader(), BlockVersionData(), BootstrapWitness(),
        Certificate(), Certificate'Certificate(..),
        _Certificate'StakeRegistration, _Certificate'StakeDeregistration,
        _Certificate'StakeDelegation, _Certificate'PoolRegistration,
        _Certificate'PoolRetirement, _Certificate'GenesisKeyDelegation,
        _Certificate'MirCert, _Certificate'RegCert, _Certificate'UnregCert,
        _Certificate'VoteDelegCert, _Certificate'StakeVoteDelegCert,
        _Certificate'StakeRegDelegCert, _Certificate'VoteRegDelegCert,
        _Certificate'StakeVoteRegDelegCert,
        _Certificate'AuthCommitteeHotCert,
        _Certificate'ResignCommitteeColdCert, _Certificate'RegDrepCert,
        _Certificate'UnregDrepCert, _Certificate'UpdateDrepCert,
        CertificatePattern(), CertificatePattern'CertificateType(..),
        _CertificatePattern'StakeRegistration,
        _CertificatePattern'StakeDeregistration,
        _CertificatePattern'StakeDelegation,
        _CertificatePattern'PoolRegistration,
        _CertificatePattern'PoolRetirement,
        _CertificatePattern'AnyStakeCredential,
        _CertificatePattern'AnyPoolKeyhash, _CertificatePattern'AnyDrep,
        Collateral(), Committee(), Committee'MembersEntry(),
        Constitution(), Constr(), CostModel(), CostModelMap(),
        CostModels(), DRep(), DRep'Drep(..), _DRep'AddrKeyHash,
        _DRep'ScriptHash, _DRep'Abstain, _DRep'NoConfidence,
        DRepVotingThresholds(), Datum(), EraBoundary(), EraSummaries(),
        EraSummary(), EvalError(), EvalTrace(), ExPrices(), ExUnits(),
        ExtraEntropy(), GenDelegs(), Genesis(), Genesis'AvvmDistrEntry(),
        Genesis'BootStakeholdersEntry(), Genesis'GenDelegsEntry(),
        Genesis'HeavyDelegationEntry(), Genesis'InitialFundsEntry(),
        Genesis'NonAvvmBalancesEntry(), Genesis'VssCertsEntry(),
        GenesisKeyDelegationCert(), GovernanceAction(),
        GovernanceAction'GovernanceAction(..),
        _GovernanceAction'ParameterChangeAction,
        _GovernanceAction'HardForkInitiationAction,
        _GovernanceAction'TreasuryWithdrawalsAction,
        _GovernanceAction'NoConfidenceAction,
        _GovernanceAction'UpdateCommitteeAction,
        _GovernanceAction'NewConstitutionAction,
        _GovernanceAction'InfoAction, GovernanceActionId(),
        GovernanceActionProposal(), HardForkInitiationAction(),
        HeavyDelegation(), InfoAction(), Metadata(), Metadatum(),
        Metadatum'Metadatum(..), _Metadatum'Int, _Metadatum'Bytes,
        _Metadatum'Text, _Metadatum'Array, _Metadatum'Map,
        MetadatumArray(), MetadatumMap(), MetadatumPair(), MirCert(),
        MirSource(..), MirSource(), MirSource'UnrecognizedValue,
        MirTarget(), Multiasset(), NativeScript(),
        NativeScript'NativeScript(..), _NativeScript'ScriptPubkeyHash,
        _NativeScript'ScriptAll, _NativeScript'ScriptAny,
        _NativeScript'ScriptNOfK, _NativeScript'InvalidBefore,
        _NativeScript'InvalidHereafter, NativeScriptList(),
        NewCommitteeCredentials(), NewConstitutionAction(),
        NoConfidenceAction(), PParams(), ParameterChangeAction(),
        PlutusData(), PlutusData'PlutusData(..), _PlutusData'Constr,
        _PlutusData'Map, _PlutusData'BigInt, _PlutusData'BoundedBytes,
        _PlutusData'Array, PlutusDataArray(), PlutusDataMap(),
        PlutusDataPair(), PoolMetadata(), PoolRegistrationCert(),
        PoolRegistrationPattern(), PoolRetirementCert(),
        PoolRetirementPattern(), PoolVotingThresholds(), ProtocolConsts(),
        ProtocolVersion(), RationalNumber(), Redeemer(),
        RedeemerPurpose(..), RedeemerPurpose(),
        RedeemerPurpose'UnrecognizedValue, RegCert(), RegDRepCert(),
        Relay(), ResignCommitteeColdCert(), Script(), Script'Script(..),
        _Script'Native, _Script'PlutusV1, _Script'PlutusV2,
        _Script'PlutusV3, _Script'PlutusV4, ScriptNOfK(), SoftforkRule(),
        StakeCredential(), StakeCredential'StakeCredential(..),
        _StakeCredential'AddrKeyHash, _StakeCredential'ScriptHash,
        StakeDelegationCert(), StakeDelegationPattern(),
        StakeRegDelegCert(), StakeVoteDelegCert(), StakeVoteRegDelegCert(),
        TreasuryWithdrawalsAction(), Tx(), TxEval(), TxFeePolicy(),
        TxInput(), TxOutput(), TxOutputPattern(), TxPattern(),
        TxValidity(), UnRegCert(), UnRegDRepCert(),
        UpdateCommitteeAction(), UpdateDRepCert(), VKeyWitness(),
        VoteDelegCert(), VoteRegDelegCert(), VotingThresholds(), VssCert(),
        Withdrawal(), WithdrawalAmount(), WitnessSet()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.exactAddress' @:: Lens' AddressPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'exactAddress' @:: Lens' AddressPattern (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.paymentPart' @:: Lens' AddressPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'paymentPart' @:: Lens' AddressPattern (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.delegationPart' @:: Lens' AddressPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'delegationPart' @:: Lens' AddressPattern (Prelude.Maybe Data.ByteString.ByteString)@ -}
data AddressPattern
  = AddressPattern'_constructor {AddressPattern -> Maybe ByteString
_AddressPattern'exactAddress :: !(Prelude.Maybe Data.ByteString.ByteString),
                                 AddressPattern -> Maybe ByteString
_AddressPattern'paymentPart :: !(Prelude.Maybe Data.ByteString.ByteString),
                                 AddressPattern -> Maybe ByteString
_AddressPattern'delegationPart :: !(Prelude.Maybe Data.ByteString.ByteString),
                                 AddressPattern -> FieldSet
_AddressPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AddressPattern -> AddressPattern -> Bool
(AddressPattern -> AddressPattern -> Bool)
-> (AddressPattern -> AddressPattern -> Bool) -> Eq AddressPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddressPattern -> AddressPattern -> Bool
== :: AddressPattern -> AddressPattern -> Bool
$c/= :: AddressPattern -> AddressPattern -> Bool
/= :: AddressPattern -> AddressPattern -> Bool
Prelude.Eq, Eq AddressPattern
Eq AddressPattern =>
(AddressPattern -> AddressPattern -> Ordering)
-> (AddressPattern -> AddressPattern -> Bool)
-> (AddressPattern -> AddressPattern -> Bool)
-> (AddressPattern -> AddressPattern -> Bool)
-> (AddressPattern -> AddressPattern -> Bool)
-> (AddressPattern -> AddressPattern -> AddressPattern)
-> (AddressPattern -> AddressPattern -> AddressPattern)
-> Ord AddressPattern
AddressPattern -> AddressPattern -> Bool
AddressPattern -> AddressPattern -> Ordering
AddressPattern -> AddressPattern -> AddressPattern
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: AddressPattern -> AddressPattern -> Ordering
compare :: AddressPattern -> AddressPattern -> Ordering
$c< :: AddressPattern -> AddressPattern -> Bool
< :: AddressPattern -> AddressPattern -> Bool
$c<= :: AddressPattern -> AddressPattern -> Bool
<= :: AddressPattern -> AddressPattern -> Bool
$c> :: AddressPattern -> AddressPattern -> Bool
> :: AddressPattern -> AddressPattern -> Bool
$c>= :: AddressPattern -> AddressPattern -> Bool
>= :: AddressPattern -> AddressPattern -> Bool
$cmax :: AddressPattern -> AddressPattern -> AddressPattern
max :: AddressPattern -> AddressPattern -> AddressPattern
$cmin :: AddressPattern -> AddressPattern -> AddressPattern
min :: AddressPattern -> AddressPattern -> AddressPattern
Prelude.Ord)
instance Prelude.Show AddressPattern where
  showsPrec :: Int -> AddressPattern -> ShowS
showsPrec Int
_ AddressPattern
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AddressPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AddressPattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AddressPattern "exactAddress" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "exactAddress"
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
fieldOf Proxy# "exactAddress"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AddressPattern -> f AddressPattern)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> Maybe ByteString)
-> (AddressPattern -> Maybe ByteString -> AddressPattern)
-> Lens
     AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> Maybe ByteString
_AddressPattern'exactAddress
           (\ AddressPattern
x__ Maybe ByteString
y__ -> AddressPattern
x__ {_AddressPattern'exactAddress = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField AddressPattern "maybe'exactAddress" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'exactAddress"
-> (Maybe ByteString -> f (Maybe ByteString))
-> AddressPattern
-> f AddressPattern
fieldOf Proxy# "maybe'exactAddress"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AddressPattern -> f AddressPattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> Maybe ByteString)
-> (AddressPattern -> Maybe ByteString -> AddressPattern)
-> Lens
     AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> Maybe ByteString
_AddressPattern'exactAddress
           (\ AddressPattern
x__ Maybe ByteString
y__ -> AddressPattern
x__ {_AddressPattern'exactAddress = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AddressPattern "paymentPart" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "paymentPart"
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
fieldOf Proxy# "paymentPart"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AddressPattern -> f AddressPattern)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> Maybe ByteString)
-> (AddressPattern -> Maybe ByteString -> AddressPattern)
-> Lens
     AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> Maybe ByteString
_AddressPattern'paymentPart
           (\ AddressPattern
x__ Maybe ByteString
y__ -> AddressPattern
x__ {_AddressPattern'paymentPart = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField AddressPattern "maybe'paymentPart" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'paymentPart"
-> (Maybe ByteString -> f (Maybe ByteString))
-> AddressPattern
-> f AddressPattern
fieldOf Proxy# "maybe'paymentPart"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AddressPattern -> f AddressPattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> Maybe ByteString)
-> (AddressPattern -> Maybe ByteString -> AddressPattern)
-> Lens
     AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> Maybe ByteString
_AddressPattern'paymentPart
           (\ AddressPattern
x__ Maybe ByteString
y__ -> AddressPattern
x__ {_AddressPattern'paymentPart = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AddressPattern "delegationPart" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "delegationPart"
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
fieldOf Proxy# "delegationPart"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AddressPattern -> f AddressPattern)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> Maybe ByteString)
-> (AddressPattern -> Maybe ByteString -> AddressPattern)
-> Lens
     AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> Maybe ByteString
_AddressPattern'delegationPart
           (\ AddressPattern
x__ Maybe ByteString
y__ -> AddressPattern
x__ {_AddressPattern'delegationPart = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField AddressPattern "maybe'delegationPart" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'delegationPart"
-> (Maybe ByteString -> f (Maybe ByteString))
-> AddressPattern
-> f AddressPattern
fieldOf Proxy# "maybe'delegationPart"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AddressPattern -> f AddressPattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> Maybe ByteString)
-> (AddressPattern -> Maybe ByteString -> AddressPattern)
-> Lens
     AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> Maybe ByteString
_AddressPattern'delegationPart
           (\ AddressPattern
x__ Maybe ByteString
y__ -> AddressPattern
x__ {_AddressPattern'delegationPart = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AddressPattern where
  messageName :: Proxy AddressPattern -> Text
messageName Proxy AddressPattern
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.AddressPattern"
  packedMessageDescriptor :: Proxy AddressPattern -> ByteString
packedMessageDescriptor Proxy AddressPattern
_
    = ByteString
"\n\
      \\SOAddressPattern\DC2(\n\
      \\rexact_address\CAN\SOH \SOH(\fH\NULR\fexactAddress\136\SOH\SOH\DC2&\n\
      \\fpayment_part\CAN\STX \SOH(\fH\SOHR\vpaymentPart\136\SOH\SOH\DC2,\n\
      \\SIdelegation_part\CAN\ETX \SOH(\fH\STXR\SOdelegationPart\136\SOH\SOHB\DLE\n\
      \\SO_exact_addressB\SI\n\
      \\r_payment_partB\DC2\n\
      \\DLE_delegation_part"
  packedFileDescriptor :: Proxy AddressPattern -> ByteString
packedFileDescriptor Proxy AddressPattern
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AddressPattern)
fieldsByTag
    = let
        exactAddress__field_descriptor :: FieldDescriptor AddressPattern
exactAddress__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AddressPattern ByteString
-> FieldDescriptor AddressPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"exact_address"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor AddressPattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'exactAddress")) ::
              Data.ProtoLens.FieldDescriptor AddressPattern
        paymentPart__field_descriptor :: FieldDescriptor AddressPattern
paymentPart__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AddressPattern ByteString
-> FieldDescriptor AddressPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"payment_part"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor AddressPattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'paymentPart")) ::
              Data.ProtoLens.FieldDescriptor AddressPattern
        delegationPart__field_descriptor :: FieldDescriptor AddressPattern
delegationPart__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AddressPattern ByteString
-> FieldDescriptor AddressPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"delegation_part"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  AddressPattern AddressPattern (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor AddressPattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'delegationPart")) ::
              Data.ProtoLens.FieldDescriptor AddressPattern
      in
        [(Tag, FieldDescriptor AddressPattern)]
-> Map Tag (FieldDescriptor AddressPattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AddressPattern
exactAddress__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AddressPattern
paymentPart__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AddressPattern
delegationPart__field_descriptor)]
  unknownFields :: Lens' AddressPattern FieldSet
unknownFields
    = (AddressPattern -> FieldSet)
-> (AddressPattern -> FieldSet -> AddressPattern)
-> Lens' AddressPattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AddressPattern -> FieldSet
_AddressPattern'_unknownFields
        (\ AddressPattern
x__ FieldSet
y__ -> AddressPattern
x__ {_AddressPattern'_unknownFields = y__})
  defMessage :: AddressPattern
defMessage
    = AddressPattern'_constructor
        {_AddressPattern'exactAddress :: Maybe ByteString
_AddressPattern'exactAddress = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         _AddressPattern'paymentPart :: Maybe ByteString
_AddressPattern'paymentPart = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         _AddressPattern'delegationPart :: Maybe ByteString
_AddressPattern'delegationPart = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         _AddressPattern'_unknownFields :: FieldSet
_AddressPattern'_unknownFields = []}
  parseMessage :: Parser AddressPattern
parseMessage
    = let
        loop ::
          AddressPattern
          -> Data.ProtoLens.Encoding.Bytes.Parser AddressPattern
        loop :: AddressPattern -> Parser AddressPattern
loop AddressPattern
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"exact_address"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"exactAddress") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"payment_part"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentPart") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"delegation_part"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"delegationPart") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser AddressPattern -> String -> Parser AddressPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AddressPattern -> Parser AddressPattern
loop AddressPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AddressPattern"
  buildMessage :: AddressPattern -> Builder
buildMessage
    = \ AddressPattern
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ByteString)
  AddressPattern
  AddressPattern
  (Maybe ByteString)
  (Maybe ByteString)
-> AddressPattern -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'exactAddress") AddressPattern
_x
              of
                Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ByteString
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe ByteString)
  AddressPattern
  AddressPattern
  (Maybe ByteString)
  (Maybe ByteString)
-> AddressPattern -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'paymentPart") AddressPattern
_x
                 of
                   Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just ByteString
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             ByteString
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe ByteString)
  AddressPattern
  AddressPattern
  (Maybe ByteString)
  (Maybe ByteString)
-> AddressPattern -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'delegationPart") AddressPattern
_x
                    of
                      Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just ByteString
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                ByteString
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet AddressPattern AddressPattern FieldSet FieldSet
-> AddressPattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AddressPattern AddressPattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddressPattern FieldSet
Data.ProtoLens.unknownFields AddressPattern
_x))))
instance Control.DeepSeq.NFData AddressPattern where
  rnf :: AddressPattern -> ()
rnf
    = \ AddressPattern
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AddressPattern -> FieldSet
_AddressPattern'_unknownFields AddressPattern
x__)
             (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AddressPattern -> Maybe ByteString
_AddressPattern'exactAddress AddressPattern
x__)
                (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AddressPattern -> Maybe ByteString
_AddressPattern'paymentPart AddressPattern
x__)
                   (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AddressPattern -> Maybe ByteString
_AddressPattern'delegationPart AddressPattern
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.url' @:: Lens' Anchor Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.contentHash' @:: Lens' Anchor Data.ByteString.ByteString@ -}
data Anchor
  = Anchor'_constructor {Anchor -> Text
_Anchor'url :: !Data.Text.Text,
                         Anchor -> ByteString
_Anchor'contentHash :: !Data.ByteString.ByteString,
                         Anchor -> FieldSet
_Anchor'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Anchor -> Anchor -> Bool
(Anchor -> Anchor -> Bool)
-> (Anchor -> Anchor -> Bool) -> Eq Anchor
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Anchor -> Anchor -> Bool
== :: Anchor -> Anchor -> Bool
$c/= :: Anchor -> Anchor -> Bool
/= :: Anchor -> Anchor -> Bool
Prelude.Eq, Eq Anchor
Eq Anchor =>
(Anchor -> Anchor -> Ordering)
-> (Anchor -> Anchor -> Bool)
-> (Anchor -> Anchor -> Bool)
-> (Anchor -> Anchor -> Bool)
-> (Anchor -> Anchor -> Bool)
-> (Anchor -> Anchor -> Anchor)
-> (Anchor -> Anchor -> Anchor)
-> Ord Anchor
Anchor -> Anchor -> Bool
Anchor -> Anchor -> Ordering
Anchor -> Anchor -> Anchor
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Anchor -> Anchor -> Ordering
compare :: Anchor -> Anchor -> Ordering
$c< :: Anchor -> Anchor -> Bool
< :: Anchor -> Anchor -> Bool
$c<= :: Anchor -> Anchor -> Bool
<= :: Anchor -> Anchor -> Bool
$c> :: Anchor -> Anchor -> Bool
> :: Anchor -> Anchor -> Bool
$c>= :: Anchor -> Anchor -> Bool
>= :: Anchor -> Anchor -> Bool
$cmax :: Anchor -> Anchor -> Anchor
max :: Anchor -> Anchor -> Anchor
$cmin :: Anchor -> Anchor -> Anchor
min :: Anchor -> Anchor -> Anchor
Prelude.Ord)
instance Prelude.Show Anchor where
  showsPrec :: Int -> Anchor -> ShowS
showsPrec Int
_ Anchor
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Anchor -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Anchor
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Anchor "url" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "url" -> (Text -> f Text) -> Anchor -> f Anchor
fieldOf Proxy# "url"
_
    = ((Text -> f Text) -> Anchor -> f Anchor)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Anchor
-> f Anchor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Anchor -> Text)
-> (Anchor -> Text -> Anchor) -> Lens Anchor Anchor Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Anchor -> Text
_Anchor'url (\ Anchor
x__ Text
y__ -> Anchor
x__ {_Anchor'url = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Anchor "contentHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "contentHash"
-> (ByteString -> f ByteString) -> Anchor -> f Anchor
fieldOf Proxy# "contentHash"
_
    = ((ByteString -> f ByteString) -> Anchor -> f Anchor)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Anchor
-> f Anchor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Anchor -> ByteString)
-> (Anchor -> ByteString -> Anchor)
-> Lens Anchor Anchor ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Anchor -> ByteString
_Anchor'contentHash (\ Anchor
x__ ByteString
y__ -> Anchor
x__ {_Anchor'contentHash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Anchor where
  messageName :: Proxy Anchor -> Text
messageName Proxy Anchor
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Anchor"
  packedMessageDescriptor :: Proxy Anchor -> ByteString
packedMessageDescriptor Proxy Anchor
_
    = ByteString
"\n\
      \\ACKAnchor\DC2\DLE\n\
      \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2!\n\
      \\fcontent_hash\CAN\STX \SOH(\fR\vcontentHash"
  packedFileDescriptor :: Proxy Anchor -> ByteString
packedFileDescriptor Proxy Anchor
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Anchor)
fieldsByTag
    = let
        url__field_descriptor :: FieldDescriptor Anchor
url__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Anchor Text
-> FieldDescriptor Anchor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"url"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Anchor Anchor Text Text -> FieldAccessor Anchor Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"url")) ::
              Data.ProtoLens.FieldDescriptor Anchor
        contentHash__field_descriptor :: FieldDescriptor Anchor
contentHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Anchor ByteString
-> FieldDescriptor Anchor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"content_hash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Anchor Anchor ByteString ByteString
-> FieldAccessor Anchor ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"contentHash")) ::
              Data.ProtoLens.FieldDescriptor Anchor
      in
        [(Tag, FieldDescriptor Anchor)] -> Map Tag (FieldDescriptor Anchor)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Anchor
url__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Anchor
contentHash__field_descriptor)]
  unknownFields :: Lens' Anchor FieldSet
unknownFields
    = (Anchor -> FieldSet)
-> (Anchor -> FieldSet -> Anchor) -> Lens' Anchor FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Anchor -> FieldSet
_Anchor'_unknownFields
        (\ Anchor
x__ FieldSet
y__ -> Anchor
x__ {_Anchor'_unknownFields = y__})
  defMessage :: Anchor
defMessage
    = Anchor'_constructor
        {_Anchor'url :: Text
_Anchor'url = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Anchor'contentHash :: ByteString
_Anchor'contentHash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Anchor'_unknownFields :: FieldSet
_Anchor'_unknownFields = []}
  parseMessage :: Parser Anchor
parseMessage
    = let
        loop :: Anchor -> Data.ProtoLens.Encoding.Bytes.Parser Anchor
        loop :: Anchor -> Parser Anchor
loop Anchor
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"url"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"url") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"content_hash"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"contentHash") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Anchor -> String -> Parser Anchor
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Anchor -> Parser Anchor
loop Anchor
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Anchor"
  buildMessage :: Anchor -> Builder
buildMessage
    = \ Anchor
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text Anchor Anchor Text Text -> Anchor -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"url") Anchor
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: ByteString
_v
                     = FoldLike ByteString Anchor Anchor ByteString ByteString
-> Anchor -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"contentHash") Anchor
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            ByteString
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Anchor Anchor FieldSet FieldSet
-> Anchor -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Anchor Anchor FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Anchor FieldSet
Data.ProtoLens.unknownFields Anchor
_x)))
instance Control.DeepSeq.NFData Anchor where
  rnf :: Anchor -> ()
rnf
    = \ Anchor
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Anchor -> FieldSet
_Anchor'_unknownFields Anchor
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Anchor -> Text
_Anchor'url Anchor
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Anchor -> ByteString
_Anchor'contentHash Anchor
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.name' @:: Lens' Asset Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.quantity' @:: Lens' Asset BigInt@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'quantity' @:: Lens' Asset (Prelude.Maybe BigInt)@ -}
data Asset
  = Asset'_constructor {Asset -> ByteString
_Asset'name :: !Data.ByteString.ByteString,
                        Asset -> Maybe BigInt
_Asset'quantity :: !(Prelude.Maybe BigInt),
                        Asset -> FieldSet
_Asset'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Asset -> Asset -> Bool
(Asset -> Asset -> Bool) -> (Asset -> Asset -> Bool) -> Eq Asset
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Asset -> Asset -> Bool
== :: Asset -> Asset -> Bool
$c/= :: Asset -> Asset -> Bool
/= :: Asset -> Asset -> Bool
Prelude.Eq, Eq Asset
Eq Asset =>
(Asset -> Asset -> Ordering)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Asset)
-> (Asset -> Asset -> Asset)
-> Ord Asset
Asset -> Asset -> Bool
Asset -> Asset -> Ordering
Asset -> Asset -> Asset
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Asset -> Asset -> Ordering
compare :: Asset -> Asset -> Ordering
$c< :: Asset -> Asset -> Bool
< :: Asset -> Asset -> Bool
$c<= :: Asset -> Asset -> Bool
<= :: Asset -> Asset -> Bool
$c> :: Asset -> Asset -> Bool
> :: Asset -> Asset -> Bool
$c>= :: Asset -> Asset -> Bool
>= :: Asset -> Asset -> Bool
$cmax :: Asset -> Asset -> Asset
max :: Asset -> Asset -> Asset
$cmin :: Asset -> Asset -> Asset
min :: Asset -> Asset -> Asset
Prelude.Ord)
instance Prelude.Show Asset where
  showsPrec :: Int -> Asset -> ShowS
showsPrec Int
_ Asset
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Asset -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Asset
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Asset "name" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (ByteString -> f ByteString) -> Asset -> f Asset
fieldOf Proxy# "name"
_
    = ((ByteString -> f ByteString) -> Asset -> f Asset)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> ByteString)
-> (Asset -> ByteString -> Asset)
-> Lens Asset Asset ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> ByteString
_Asset'name (\ Asset
x__ ByteString
y__ -> Asset
x__ {_Asset'name = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Asset "quantity" BigInt where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "quantity" -> (BigInt -> f BigInt) -> Asset -> f Asset
fieldOf Proxy# "quantity"
_
    = ((Maybe BigInt -> f (Maybe BigInt)) -> Asset -> f Asset)
-> ((BigInt -> f BigInt) -> Maybe BigInt -> f (Maybe BigInt))
-> (BigInt -> f BigInt)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Maybe BigInt)
-> (Asset -> Maybe BigInt -> Asset)
-> Lens Asset Asset (Maybe BigInt) (Maybe BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Maybe BigInt
_Asset'quantity (\ Asset
x__ Maybe BigInt
y__ -> Asset
x__ {_Asset'quantity = y__}))
        (BigInt -> Lens' (Maybe BigInt) BigInt
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BigInt
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Asset "maybe'quantity" (Prelude.Maybe BigInt) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'quantity"
-> (Maybe BigInt -> f (Maybe BigInt)) -> Asset -> f Asset
fieldOf Proxy# "maybe'quantity"
_
    = ((Maybe BigInt -> f (Maybe BigInt)) -> Asset -> f Asset)
-> ((Maybe BigInt -> f (Maybe BigInt))
    -> Maybe BigInt -> f (Maybe BigInt))
-> (Maybe BigInt -> f (Maybe BigInt))
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Maybe BigInt)
-> (Asset -> Maybe BigInt -> Asset)
-> Lens Asset Asset (Maybe BigInt) (Maybe BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Maybe BigInt
_Asset'quantity (\ Asset
x__ Maybe BigInt
y__ -> Asset
x__ {_Asset'quantity = y__}))
        (Maybe BigInt -> f (Maybe BigInt))
-> Maybe BigInt -> f (Maybe BigInt)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Asset where
  messageName :: Proxy Asset -> Text
messageName Proxy Asset
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Asset"
  packedMessageDescriptor :: Proxy Asset -> ByteString
packedMessageDescriptor Proxy Asset
_
    = ByteString
"\n\
      \\ENQAsset\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2:\n\
      \\bquantity\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\bquantity"
  packedFileDescriptor :: Proxy Asset -> ByteString
packedFileDescriptor Proxy Asset
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Asset)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor Asset
name__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Asset ByteString
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Asset Asset ByteString ByteString
-> FieldAccessor Asset ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor Asset
        quantity__field_descriptor :: FieldDescriptor Asset
quantity__field_descriptor
          = String
-> FieldTypeDescriptor BigInt
-> FieldAccessor Asset BigInt
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"quantity"
              (MessageOrGroup -> FieldTypeDescriptor BigInt
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BigInt)
              (Lens Asset Asset (Maybe BigInt) (Maybe BigInt)
-> FieldAccessor Asset BigInt
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'quantity")) ::
              Data.ProtoLens.FieldDescriptor Asset
      in
        [(Tag, FieldDescriptor Asset)] -> Map Tag (FieldDescriptor Asset)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Asset
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Asset
quantity__field_descriptor)]
  unknownFields :: Lens' Asset FieldSet
unknownFields
    = (Asset -> FieldSet)
-> (Asset -> FieldSet -> Asset) -> Lens' Asset FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Asset -> FieldSet
_Asset'_unknownFields
        (\ Asset
x__ FieldSet
y__ -> Asset
x__ {_Asset'_unknownFields = y__})
  defMessage :: Asset
defMessage
    = Asset'_constructor
        {_Asset'name :: ByteString
_Asset'name = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Asset'quantity :: Maybe BigInt
_Asset'quantity = Maybe BigInt
forall a. Maybe a
Prelude.Nothing, _Asset'_unknownFields :: FieldSet
_Asset'_unknownFields = []}
  parseMessage :: Parser Asset
parseMessage
    = let
        loop :: Asset -> Data.ProtoLens.Encoding.Bytes.Parser Asset
        loop :: Asset -> Parser Asset
loop Asset
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
18
                          -> do y <- Parser BigInt -> String -> Parser BigInt
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"quantity"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"quantity") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Asset -> String -> Parser Asset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Asset -> Parser Asset
loop Asset
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Asset"
  buildMessage :: Asset -> Builder
buildMessage
    = \ Asset
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString Asset Asset ByteString ByteString
-> Asset -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Asset
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike (Maybe BigInt) Asset Asset (Maybe BigInt) (Maybe BigInt)
-> Asset -> Maybe BigInt
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'quantity") Asset
_x
                 of
                   Maybe BigInt
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just BigInt
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (BigInt -> ByteString) -> BigInt -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             BigInt -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BigInt
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Asset Asset FieldSet FieldSet
-> Asset -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Asset Asset FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Asset FieldSet
Data.ProtoLens.unknownFields Asset
_x)))
instance Control.DeepSeq.NFData Asset where
  rnf :: Asset -> ()
rnf
    = \ Asset
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Asset -> FieldSet
_Asset'_unknownFields Asset
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Asset -> ByteString
_Asset'name Asset
x__)
                (Maybe BigInt -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Asset -> Maybe BigInt
_Asset'quantity Asset
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.policyId' @:: Lens' AssetPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'policyId' @:: Lens' AssetPattern (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.assetName' @:: Lens' AssetPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'assetName' @:: Lens' AssetPattern (Prelude.Maybe Data.ByteString.ByteString)@ -}
data AssetPattern
  = AssetPattern'_constructor {AssetPattern -> Maybe ByteString
_AssetPattern'policyId :: !(Prelude.Maybe Data.ByteString.ByteString),
                               AssetPattern -> Maybe ByteString
_AssetPattern'assetName :: !(Prelude.Maybe Data.ByteString.ByteString),
                               AssetPattern -> FieldSet
_AssetPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AssetPattern -> AssetPattern -> Bool
(AssetPattern -> AssetPattern -> Bool)
-> (AssetPattern -> AssetPattern -> Bool) -> Eq AssetPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AssetPattern -> AssetPattern -> Bool
== :: AssetPattern -> AssetPattern -> Bool
$c/= :: AssetPattern -> AssetPattern -> Bool
/= :: AssetPattern -> AssetPattern -> Bool
Prelude.Eq, Eq AssetPattern
Eq AssetPattern =>
(AssetPattern -> AssetPattern -> Ordering)
-> (AssetPattern -> AssetPattern -> Bool)
-> (AssetPattern -> AssetPattern -> Bool)
-> (AssetPattern -> AssetPattern -> Bool)
-> (AssetPattern -> AssetPattern -> Bool)
-> (AssetPattern -> AssetPattern -> AssetPattern)
-> (AssetPattern -> AssetPattern -> AssetPattern)
-> Ord AssetPattern
AssetPattern -> AssetPattern -> Bool
AssetPattern -> AssetPattern -> Ordering
AssetPattern -> AssetPattern -> AssetPattern
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: AssetPattern -> AssetPattern -> Ordering
compare :: AssetPattern -> AssetPattern -> Ordering
$c< :: AssetPattern -> AssetPattern -> Bool
< :: AssetPattern -> AssetPattern -> Bool
$c<= :: AssetPattern -> AssetPattern -> Bool
<= :: AssetPattern -> AssetPattern -> Bool
$c> :: AssetPattern -> AssetPattern -> Bool
> :: AssetPattern -> AssetPattern -> Bool
$c>= :: AssetPattern -> AssetPattern -> Bool
>= :: AssetPattern -> AssetPattern -> Bool
$cmax :: AssetPattern -> AssetPattern -> AssetPattern
max :: AssetPattern -> AssetPattern -> AssetPattern
$cmin :: AssetPattern -> AssetPattern -> AssetPattern
min :: AssetPattern -> AssetPattern -> AssetPattern
Prelude.Ord)
instance Prelude.Show AssetPattern where
  showsPrec :: Int -> AssetPattern -> ShowS
showsPrec Int
_ AssetPattern
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AssetPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AssetPattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AssetPattern "policyId" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "policyId"
-> (ByteString -> f ByteString) -> AssetPattern -> f AssetPattern
fieldOf Proxy# "policyId"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AssetPattern -> f AssetPattern)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> AssetPattern
-> f AssetPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetPattern -> Maybe ByteString)
-> (AssetPattern -> Maybe ByteString -> AssetPattern)
-> Lens
     AssetPattern AssetPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetPattern -> Maybe ByteString
_AssetPattern'policyId
           (\ AssetPattern
x__ Maybe ByteString
y__ -> AssetPattern
x__ {_AssetPattern'policyId = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField AssetPattern "maybe'policyId" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'policyId"
-> (Maybe ByteString -> f (Maybe ByteString))
-> AssetPattern
-> f AssetPattern
fieldOf Proxy# "maybe'policyId"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AssetPattern -> f AssetPattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> AssetPattern
-> f AssetPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetPattern -> Maybe ByteString)
-> (AssetPattern -> Maybe ByteString -> AssetPattern)
-> Lens
     AssetPattern AssetPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetPattern -> Maybe ByteString
_AssetPattern'policyId
           (\ AssetPattern
x__ Maybe ByteString
y__ -> AssetPattern
x__ {_AssetPattern'policyId = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AssetPattern "assetName" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "assetName"
-> (ByteString -> f ByteString) -> AssetPattern -> f AssetPattern
fieldOf Proxy# "assetName"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AssetPattern -> f AssetPattern)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> AssetPattern
-> f AssetPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetPattern -> Maybe ByteString)
-> (AssetPattern -> Maybe ByteString -> AssetPattern)
-> Lens
     AssetPattern AssetPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetPattern -> Maybe ByteString
_AssetPattern'assetName
           (\ AssetPattern
x__ Maybe ByteString
y__ -> AssetPattern
x__ {_AssetPattern'assetName = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField AssetPattern "maybe'assetName" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'assetName"
-> (Maybe ByteString -> f (Maybe ByteString))
-> AssetPattern
-> f AssetPattern
fieldOf Proxy# "maybe'assetName"
_
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> AssetPattern -> f AssetPattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> AssetPattern
-> f AssetPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetPattern -> Maybe ByteString)
-> (AssetPattern -> Maybe ByteString -> AssetPattern)
-> Lens
     AssetPattern AssetPattern (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetPattern -> Maybe ByteString
_AssetPattern'assetName
           (\ AssetPattern
x__ Maybe ByteString
y__ -> AssetPattern
x__ {_AssetPattern'assetName = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AssetPattern where
  messageName :: Proxy AssetPattern -> Text
messageName Proxy AssetPattern
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.AssetPattern"
  packedMessageDescriptor :: Proxy AssetPattern -> ByteString
packedMessageDescriptor Proxy AssetPattern
_
    = ByteString
"\n\
      \\fAssetPattern\DC2 \n\
      \\tpolicy_id\CAN\SOH \SOH(\fH\NULR\bpolicyId\136\SOH\SOH\DC2\"\n\
      \\n\
      \asset_name\CAN\STX \SOH(\fH\SOHR\tassetName\136\SOH\SOHB\f\n\
      \\n\
      \_policy_idB\r\n\
      \\v_asset_name"
  packedFileDescriptor :: Proxy AssetPattern -> ByteString
packedFileDescriptor Proxy AssetPattern
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AssetPattern)
fieldsByTag
    = let
        policyId__field_descriptor :: FieldDescriptor AssetPattern
policyId__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AssetPattern ByteString
-> FieldDescriptor AssetPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"policy_id"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  AssetPattern AssetPattern (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor AssetPattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'policyId")) ::
              Data.ProtoLens.FieldDescriptor AssetPattern
        assetName__field_descriptor :: FieldDescriptor AssetPattern
assetName__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AssetPattern ByteString
-> FieldDescriptor AssetPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"asset_name"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  AssetPattern AssetPattern (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor AssetPattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'assetName")) ::
              Data.ProtoLens.FieldDescriptor AssetPattern
      in
        [(Tag, FieldDescriptor AssetPattern)]
-> Map Tag (FieldDescriptor AssetPattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AssetPattern
policyId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AssetPattern
assetName__field_descriptor)]
  unknownFields :: Lens' AssetPattern FieldSet
unknownFields
    = (AssetPattern -> FieldSet)
-> (AssetPattern -> FieldSet -> AssetPattern)
-> Lens' AssetPattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AssetPattern -> FieldSet
_AssetPattern'_unknownFields
        (\ AssetPattern
x__ FieldSet
y__ -> AssetPattern
x__ {_AssetPattern'_unknownFields = y__})
  defMessage :: AssetPattern
defMessage
    = AssetPattern'_constructor
        {_AssetPattern'policyId :: Maybe ByteString
_AssetPattern'policyId = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         _AssetPattern'assetName :: Maybe ByteString
_AssetPattern'assetName = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         _AssetPattern'_unknownFields :: FieldSet
_AssetPattern'_unknownFields = []}
  parseMessage :: Parser AssetPattern
parseMessage
    = let
        loop ::
          AssetPattern -> Data.ProtoLens.Encoding.Bytes.Parser AssetPattern
        loop :: AssetPattern -> Parser AssetPattern
loop AssetPattern
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"policy_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"policyId") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"asset_name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"assetName") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser AssetPattern -> String -> Parser AssetPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AssetPattern -> Parser AssetPattern
loop AssetPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AssetPattern"
  buildMessage :: AssetPattern -> Builder
buildMessage
    = \ AssetPattern
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ByteString)
  AssetPattern
  AssetPattern
  (Maybe ByteString)
  (Maybe ByteString)
-> AssetPattern -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'policyId") AssetPattern
_x
              of
                Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ByteString
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe ByteString)
  AssetPattern
  AssetPattern
  (Maybe ByteString)
  (Maybe ByteString)
-> AssetPattern -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'assetName") AssetPattern
_x
                 of
                   Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just ByteString
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             ByteString
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet AssetPattern AssetPattern FieldSet FieldSet
-> AssetPattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AssetPattern AssetPattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AssetPattern FieldSet
Data.ProtoLens.unknownFields AssetPattern
_x)))
instance Control.DeepSeq.NFData AssetPattern where
  rnf :: AssetPattern -> ()
rnf
    = \ AssetPattern
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AssetPattern -> FieldSet
_AssetPattern'_unknownFields AssetPattern
x__)
             (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AssetPattern -> Maybe ByteString
_AssetPattern'policyId AssetPattern
x__)
                (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AssetPattern -> Maybe ByteString
_AssetPattern'assetName AssetPattern
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeColdCredential' @:: Lens' AuthCommitteeHotCert StakeCredential@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeColdCredential' @:: Lens' AuthCommitteeHotCert (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeHotCredential' @:: Lens' AuthCommitteeHotCert StakeCredential@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeHotCredential' @:: Lens' AuthCommitteeHotCert (Prelude.Maybe StakeCredential)@ -}
data AuthCommitteeHotCert
  = AuthCommitteeHotCert'_constructor {AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeColdCredential :: !(Prelude.Maybe StakeCredential),
                                       AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeHotCredential :: !(Prelude.Maybe StakeCredential),
                                       AuthCommitteeHotCert -> FieldSet
_AuthCommitteeHotCert'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
(AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool)
-> (AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool)
-> Eq AuthCommitteeHotCert
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
== :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
$c/= :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
/= :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
Prelude.Eq, Eq AuthCommitteeHotCert
Eq AuthCommitteeHotCert =>
(AuthCommitteeHotCert -> AuthCommitteeHotCert -> Ordering)
-> (AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool)
-> (AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool)
-> (AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool)
-> (AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool)
-> (AuthCommitteeHotCert
    -> AuthCommitteeHotCert -> AuthCommitteeHotCert)
-> (AuthCommitteeHotCert
    -> AuthCommitteeHotCert -> AuthCommitteeHotCert)
-> Ord AuthCommitteeHotCert
AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
AuthCommitteeHotCert -> AuthCommitteeHotCert -> Ordering
AuthCommitteeHotCert
-> AuthCommitteeHotCert -> AuthCommitteeHotCert
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Ordering
compare :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Ordering
$c< :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
< :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
$c<= :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
<= :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
$c> :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
> :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
$c>= :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
>= :: AuthCommitteeHotCert -> AuthCommitteeHotCert -> Bool
$cmax :: AuthCommitteeHotCert
-> AuthCommitteeHotCert -> AuthCommitteeHotCert
max :: AuthCommitteeHotCert
-> AuthCommitteeHotCert -> AuthCommitteeHotCert
$cmin :: AuthCommitteeHotCert
-> AuthCommitteeHotCert -> AuthCommitteeHotCert
min :: AuthCommitteeHotCert
-> AuthCommitteeHotCert -> AuthCommitteeHotCert
Prelude.Ord)
instance Prelude.Show AuthCommitteeHotCert where
  showsPrec :: Int -> AuthCommitteeHotCert -> ShowS
showsPrec Int
_ AuthCommitteeHotCert
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthCommitteeHotCert -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthCommitteeHotCert
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "committeeColdCredential" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "committeeColdCredential"
-> (StakeCredential -> f StakeCredential)
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
fieldOf Proxy# "committeeColdCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> AuthCommitteeHotCert -> f AuthCommitteeHotCert)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthCommitteeHotCert -> Maybe StakeCredential)
-> (AuthCommitteeHotCert
    -> Maybe StakeCredential -> AuthCommitteeHotCert)
-> Lens
     AuthCommitteeHotCert
     AuthCommitteeHotCert
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeColdCredential
           (\ AuthCommitteeHotCert
x__ Maybe StakeCredential
y__
              -> AuthCommitteeHotCert
x__ {_AuthCommitteeHotCert'committeeColdCredential = y__}))
        (StakeCredential -> Lens' (Maybe StakeCredential) StakeCredential
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeCredential
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "maybe'committeeColdCredential" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'committeeColdCredential"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
fieldOf Proxy# "maybe'committeeColdCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> AuthCommitteeHotCert -> f AuthCommitteeHotCert)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthCommitteeHotCert -> Maybe StakeCredential)
-> (AuthCommitteeHotCert
    -> Maybe StakeCredential -> AuthCommitteeHotCert)
-> Lens
     AuthCommitteeHotCert
     AuthCommitteeHotCert
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeColdCredential
           (\ AuthCommitteeHotCert
x__ Maybe StakeCredential
y__
              -> AuthCommitteeHotCert
x__ {_AuthCommitteeHotCert'committeeColdCredential = y__}))
        (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Maybe StakeCredential -> f (Maybe StakeCredential)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "committeeHotCredential" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "committeeHotCredential"
-> (StakeCredential -> f StakeCredential)
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
fieldOf Proxy# "committeeHotCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> AuthCommitteeHotCert -> f AuthCommitteeHotCert)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthCommitteeHotCert -> Maybe StakeCredential)
-> (AuthCommitteeHotCert
    -> Maybe StakeCredential -> AuthCommitteeHotCert)
-> Lens
     AuthCommitteeHotCert
     AuthCommitteeHotCert
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeHotCredential
           (\ AuthCommitteeHotCert
x__ Maybe StakeCredential
y__
              -> AuthCommitteeHotCert
x__ {_AuthCommitteeHotCert'committeeHotCredential = y__}))
        (StakeCredential -> Lens' (Maybe StakeCredential) StakeCredential
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeCredential
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "maybe'committeeHotCredential" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'committeeHotCredential"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
fieldOf Proxy# "maybe'committeeHotCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> AuthCommitteeHotCert -> f AuthCommitteeHotCert)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> AuthCommitteeHotCert
-> f AuthCommitteeHotCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthCommitteeHotCert -> Maybe StakeCredential)
-> (AuthCommitteeHotCert
    -> Maybe StakeCredential -> AuthCommitteeHotCert)
-> Lens
     AuthCommitteeHotCert
     AuthCommitteeHotCert
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeHotCredential
           (\ AuthCommitteeHotCert
x__ Maybe StakeCredential
y__
              -> AuthCommitteeHotCert
x__ {_AuthCommitteeHotCert'committeeHotCredential = y__}))
        (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Maybe StakeCredential -> f (Maybe StakeCredential)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthCommitteeHotCert where
  messageName :: Proxy AuthCommitteeHotCert -> Text
messageName Proxy AuthCommitteeHotCert
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.AuthCommitteeHotCert"
  packedMessageDescriptor :: Proxy AuthCommitteeHotCert -> ByteString
packedMessageDescriptor Proxy AuthCommitteeHotCert
_
    = ByteString
"\n\
      \\DC4AuthCommitteeHotCert\DC2c\n\
      \\EMcommittee_cold_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\ETBcommitteeColdCredential\DC2a\n\
      \\CANcommittee_hot_credential\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SYNcommitteeHotCredential"
  packedFileDescriptor :: Proxy AuthCommitteeHotCert -> ByteString
packedFileDescriptor Proxy AuthCommitteeHotCert
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthCommitteeHotCert)
fieldsByTag
    = let
        committeeColdCredential__field_descriptor :: FieldDescriptor AuthCommitteeHotCert
committeeColdCredential__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor AuthCommitteeHotCert StakeCredential
-> FieldDescriptor AuthCommitteeHotCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"committee_cold_credential"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens
  AuthCommitteeHotCert
  AuthCommitteeHotCert
  (Maybe StakeCredential)
  (Maybe StakeCredential)
-> FieldAccessor AuthCommitteeHotCert StakeCredential
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeColdCredential")) ::
              Data.ProtoLens.FieldDescriptor AuthCommitteeHotCert
        committeeHotCredential__field_descriptor :: FieldDescriptor AuthCommitteeHotCert
committeeHotCredential__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor AuthCommitteeHotCert StakeCredential
-> FieldDescriptor AuthCommitteeHotCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"committee_hot_credential"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens
  AuthCommitteeHotCert
  AuthCommitteeHotCert
  (Maybe StakeCredential)
  (Maybe StakeCredential)
-> FieldAccessor AuthCommitteeHotCert StakeCredential
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeHotCredential")) ::
              Data.ProtoLens.FieldDescriptor AuthCommitteeHotCert
      in
        [(Tag, FieldDescriptor AuthCommitteeHotCert)]
-> Map Tag (FieldDescriptor AuthCommitteeHotCert)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthCommitteeHotCert
committeeColdCredential__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthCommitteeHotCert
committeeHotCredential__field_descriptor)]
  unknownFields :: Lens' AuthCommitteeHotCert FieldSet
unknownFields
    = (AuthCommitteeHotCert -> FieldSet)
-> (AuthCommitteeHotCert -> FieldSet -> AuthCommitteeHotCert)
-> Lens' AuthCommitteeHotCert FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthCommitteeHotCert -> FieldSet
_AuthCommitteeHotCert'_unknownFields
        (\ AuthCommitteeHotCert
x__ FieldSet
y__ -> AuthCommitteeHotCert
x__ {_AuthCommitteeHotCert'_unknownFields = y__})
  defMessage :: AuthCommitteeHotCert
defMessage
    = AuthCommitteeHotCert'_constructor
        {_AuthCommitteeHotCert'committeeColdCredential :: Maybe StakeCredential
_AuthCommitteeHotCert'committeeColdCredential = Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing,
         _AuthCommitteeHotCert'committeeHotCredential :: Maybe StakeCredential
_AuthCommitteeHotCert'committeeHotCredential = Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing,
         _AuthCommitteeHotCert'_unknownFields :: FieldSet
_AuthCommitteeHotCert'_unknownFields = []}
  parseMessage :: Parser AuthCommitteeHotCert
parseMessage
    = let
        loop ::
          AuthCommitteeHotCert
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthCommitteeHotCert
        loop :: AuthCommitteeHotCert -> Parser AuthCommitteeHotCert
loop AuthCommitteeHotCert
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"committee_cold_credential"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"committeeColdCredential") y x)
                        Word64
18
                          -> do y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"committee_hot_credential"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"committeeHotCredential") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser AuthCommitteeHotCert
-> String -> Parser AuthCommitteeHotCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthCommitteeHotCert -> Parser AuthCommitteeHotCert
loop AuthCommitteeHotCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthCommitteeHotCert"
  buildMessage :: AuthCommitteeHotCert -> Builder
buildMessage
    = \ AuthCommitteeHotCert
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe StakeCredential)
  AuthCommitteeHotCert
  AuthCommitteeHotCert
  (Maybe StakeCredential)
  (Maybe StakeCredential)
-> AuthCommitteeHotCert -> Maybe StakeCredential
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeColdCredential") AuthCommitteeHotCert
_x
              of
                Maybe StakeCredential
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just StakeCredential
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (StakeCredential -> ByteString) -> StakeCredential -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          StakeCredential -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeCredential
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe StakeCredential)
  AuthCommitteeHotCert
  AuthCommitteeHotCert
  (Maybe StakeCredential)
  (Maybe StakeCredential)
-> AuthCommitteeHotCert -> Maybe StakeCredential
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeHotCredential") AuthCommitteeHotCert
_x
                 of
                   Maybe StakeCredential
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just StakeCredential
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (StakeCredential -> ByteString) -> StakeCredential -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StakeCredential -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeCredential
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AuthCommitteeHotCert
  AuthCommitteeHotCert
  FieldSet
  FieldSet
-> AuthCommitteeHotCert -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthCommitteeHotCert
  AuthCommitteeHotCert
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthCommitteeHotCert FieldSet
Data.ProtoLens.unknownFields AuthCommitteeHotCert
_x)))
instance Control.DeepSeq.NFData AuthCommitteeHotCert where
  rnf :: AuthCommitteeHotCert -> ()
rnf
    = \ AuthCommitteeHotCert
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthCommitteeHotCert -> FieldSet
_AuthCommitteeHotCert'_unknownFields AuthCommitteeHotCert
x__)
             (Maybe StakeCredential -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeColdCredential AuthCommitteeHotCert
x__)
                (Maybe StakeCredential -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AuthCommitteeHotCert -> Maybe StakeCredential
_AuthCommitteeHotCert'committeeHotCredential AuthCommitteeHotCert
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.metadata' @:: Lens' AuxData [Metadata]@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'metadata' @:: Lens' AuxData (Data.Vector.Vector Metadata)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scripts' @:: Lens' AuxData [Script]@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'scripts' @:: Lens' AuxData (Data.Vector.Vector Script)@ -}
data AuxData
  = AuxData'_constructor {AuxData -> Vector Metadata
_AuxData'metadata :: !(Data.Vector.Vector Metadata),
                          AuxData -> Vector Script
_AuxData'scripts :: !(Data.Vector.Vector Script),
                          AuxData -> FieldSet
_AuxData'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuxData -> AuxData -> Bool
(AuxData -> AuxData -> Bool)
-> (AuxData -> AuxData -> Bool) -> Eq AuxData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuxData -> AuxData -> Bool
== :: AuxData -> AuxData -> Bool
$c/= :: AuxData -> AuxData -> Bool
/= :: AuxData -> AuxData -> Bool
Prelude.Eq, Eq AuxData
Eq AuxData =>
(AuxData -> AuxData -> Ordering)
-> (AuxData -> AuxData -> Bool)
-> (AuxData -> AuxData -> Bool)
-> (AuxData -> AuxData -> Bool)
-> (AuxData -> AuxData -> Bool)
-> (AuxData -> AuxData -> AuxData)
-> (AuxData -> AuxData -> AuxData)
-> Ord AuxData
AuxData -> AuxData -> Bool
AuxData -> AuxData -> Ordering
AuxData -> AuxData -> AuxData
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: AuxData -> AuxData -> Ordering
compare :: AuxData -> AuxData -> Ordering
$c< :: AuxData -> AuxData -> Bool
< :: AuxData -> AuxData -> Bool
$c<= :: AuxData -> AuxData -> Bool
<= :: AuxData -> AuxData -> Bool
$c> :: AuxData -> AuxData -> Bool
> :: AuxData -> AuxData -> Bool
$c>= :: AuxData -> AuxData -> Bool
>= :: AuxData -> AuxData -> Bool
$cmax :: AuxData -> AuxData -> AuxData
max :: AuxData -> AuxData -> AuxData
$cmin :: AuxData -> AuxData -> AuxData
min :: AuxData -> AuxData -> AuxData
Prelude.Ord)
instance Prelude.Show AuxData where
  showsPrec :: Int -> AuxData -> ShowS
showsPrec Int
_ AuxData
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuxData -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuxData
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuxData "metadata" [Metadata] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "metadata"
-> ([Metadata] -> f [Metadata]) -> AuxData -> f AuxData
fieldOf Proxy# "metadata"
_
    = ((Vector Metadata -> f (Vector Metadata)) -> AuxData -> f AuxData)
-> (([Metadata] -> f [Metadata])
    -> Vector Metadata -> f (Vector Metadata))
-> ([Metadata] -> f [Metadata])
-> AuxData
-> f AuxData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuxData -> Vector Metadata)
-> (AuxData -> Vector Metadata -> AuxData)
-> Lens AuxData AuxData (Vector Metadata) (Vector Metadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuxData -> Vector Metadata
_AuxData'metadata (\ AuxData
x__ Vector Metadata
y__ -> AuxData
x__ {_AuxData'metadata = y__}))
        ((Vector Metadata -> [Metadata])
-> (Vector Metadata -> [Metadata] -> Vector Metadata)
-> Lens (Vector Metadata) (Vector Metadata) [Metadata] [Metadata]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Metadata -> [Metadata]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Metadata
_ [Metadata]
y__ -> [Metadata] -> Vector Metadata
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Metadata]
y__))
instance Data.ProtoLens.Field.HasField AuxData "vec'metadata" (Data.Vector.Vector Metadata) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'metadata"
-> (Vector Metadata -> f (Vector Metadata)) -> AuxData -> f AuxData
fieldOf Proxy# "vec'metadata"
_
    = ((Vector Metadata -> f (Vector Metadata)) -> AuxData -> f AuxData)
-> ((Vector Metadata -> f (Vector Metadata))
    -> Vector Metadata -> f (Vector Metadata))
-> (Vector Metadata -> f (Vector Metadata))
-> AuxData
-> f AuxData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuxData -> Vector Metadata)
-> (AuxData -> Vector Metadata -> AuxData)
-> Lens AuxData AuxData (Vector Metadata) (Vector Metadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuxData -> Vector Metadata
_AuxData'metadata (\ AuxData
x__ Vector Metadata
y__ -> AuxData
x__ {_AuxData'metadata = y__}))
        (Vector Metadata -> f (Vector Metadata))
-> Vector Metadata -> f (Vector Metadata)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuxData "scripts" [Script] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scripts"
-> ([Script] -> f [Script]) -> AuxData -> f AuxData
fieldOf Proxy# "scripts"
_
    = ((Vector Script -> f (Vector Script)) -> AuxData -> f AuxData)
-> (([Script] -> f [Script]) -> Vector Script -> f (Vector Script))
-> ([Script] -> f [Script])
-> AuxData
-> f AuxData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuxData -> Vector Script)
-> (AuxData -> Vector Script -> AuxData)
-> Lens AuxData AuxData (Vector Script) (Vector Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuxData -> Vector Script
_AuxData'scripts (\ AuxData
x__ Vector Script
y__ -> AuxData
x__ {_AuxData'scripts = y__}))
        ((Vector Script -> [Script])
-> (Vector Script -> [Script] -> Vector Script)
-> Lens (Vector Script) (Vector Script) [Script] [Script]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Script -> [Script]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Script
_ [Script]
y__ -> [Script] -> Vector Script
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Script]
y__))
instance Data.ProtoLens.Field.HasField AuxData "vec'scripts" (Data.Vector.Vector Script) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'scripts"
-> (Vector Script -> f (Vector Script)) -> AuxData -> f AuxData
fieldOf Proxy# "vec'scripts"
_
    = ((Vector Script -> f (Vector Script)) -> AuxData -> f AuxData)
-> ((Vector Script -> f (Vector Script))
    -> Vector Script -> f (Vector Script))
-> (Vector Script -> f (Vector Script))
-> AuxData
-> f AuxData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuxData -> Vector Script)
-> (AuxData -> Vector Script -> AuxData)
-> Lens AuxData AuxData (Vector Script) (Vector Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuxData -> Vector Script
_AuxData'scripts (\ AuxData
x__ Vector Script
y__ -> AuxData
x__ {_AuxData'scripts = y__}))
        (Vector Script -> f (Vector Script))
-> Vector Script -> f (Vector Script)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuxData where
  messageName :: Proxy AuxData -> Text
messageName Proxy AuxData
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.AuxData"
  packedMessageDescriptor :: Proxy AuxData -> ByteString
packedMessageDescriptor Proxy AuxData
_
    = ByteString
"\n\
      \\aAuxData\DC2<\n\
      \\bmetadata\CAN\SOH \ETX(\v2 .utxorpc.v1beta.cardano.MetadataR\bmetadata\DC28\n\
      \\ascripts\CAN\STX \ETX(\v2\RS.utxorpc.v1beta.cardano.ScriptR\ascripts"
  packedFileDescriptor :: Proxy AuxData -> ByteString
packedFileDescriptor Proxy AuxData
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuxData)
fieldsByTag
    = let
        metadata__field_descriptor :: FieldDescriptor AuxData
metadata__field_descriptor
          = String
-> FieldTypeDescriptor Metadata
-> FieldAccessor AuxData Metadata
-> FieldDescriptor AuxData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"metadata"
              (MessageOrGroup -> FieldTypeDescriptor Metadata
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Metadata)
              (Packing
-> Lens' AuxData [Metadata] -> FieldAccessor AuxData Metadata
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metadata")) ::
              Data.ProtoLens.FieldDescriptor AuxData
        scripts__field_descriptor :: FieldDescriptor AuxData
scripts__field_descriptor
          = String
-> FieldTypeDescriptor Script
-> FieldAccessor AuxData Script
-> FieldDescriptor AuxData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"scripts"
              (MessageOrGroup -> FieldTypeDescriptor Script
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Script)
              (Packing -> Lens' AuxData [Script] -> FieldAccessor AuxData Script
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scripts")) ::
              Data.ProtoLens.FieldDescriptor AuxData
      in
        [(Tag, FieldDescriptor AuxData)]
-> Map Tag (FieldDescriptor AuxData)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuxData
metadata__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuxData
scripts__field_descriptor)]
  unknownFields :: Lens' AuxData FieldSet
unknownFields
    = (AuxData -> FieldSet)
-> (AuxData -> FieldSet -> AuxData) -> Lens' AuxData FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuxData -> FieldSet
_AuxData'_unknownFields
        (\ AuxData
x__ FieldSet
y__ -> AuxData
x__ {_AuxData'_unknownFields = y__})
  defMessage :: AuxData
defMessage
    = AuxData'_constructor
        {_AuxData'metadata :: Vector Metadata
_AuxData'metadata = Vector Metadata
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AuxData'scripts :: Vector Script
_AuxData'scripts = Vector Script
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AuxData'_unknownFields :: FieldSet
_AuxData'_unknownFields = []}
  parseMessage :: Parser AuxData
parseMessage
    = let
        loop ::
          AuxData
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadata
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script
                -> Data.ProtoLens.Encoding.Bytes.Parser AuxData
        loop :: AuxData
-> Growing Vector RealWorld Metadata
-> Growing Vector RealWorld Script
-> Parser AuxData
loop AuxData
x Growing Vector RealWorld Metadata
mutable'metadata Growing Vector RealWorld Script
mutable'scripts
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'metadata)
                      frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'scripts)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'metadata") frozen'metadata
                              (Lens.Family2.set
                                 (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x)))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser Metadata -> String -> Parser Metadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"metadata"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'metadata y)
                                loop x v mutable'scripts
                        Word64
18
                          -> do !y <- Parser Script -> String -> Parser Script
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"scripts"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'scripts y)
                                loop x mutable'metadata v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'metadata mutable'scripts
      in
        Parser AuxData -> String -> Parser AuxData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'metadata <- IO (Growing Vector RealWorld Metadata)
-> Parser (Growing Vector RealWorld Metadata)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld Metadata)
IO (Growing Vector (PrimState IO) Metadata)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'metadata mutable'scripts)
          String
"AuxData"
  buildMessage :: AuxData -> Builder
buildMessage
    = \ AuxData
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Metadata -> Builder) -> Vector Metadata -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ Metadata
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (Metadata -> ByteString) -> Metadata -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           Metadata -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Metadata
_v))
                (FoldLike
  (Vector Metadata)
  AuxData
  AuxData
  (Vector Metadata)
  (Vector Metadata)
-> AuxData -> Vector Metadata
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'metadata") AuxData
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Script -> Builder) -> Vector Script -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Script
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Script -> ByteString) -> Script -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              Script -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Script
_v))
                   (FoldLike
  (Vector Script) AuxData AuxData (Vector Script) (Vector Script)
-> AuxData -> Vector Script
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'scripts") AuxData
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet AuxData AuxData FieldSet FieldSet
-> AuxData -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AuxData AuxData FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuxData FieldSet
Data.ProtoLens.unknownFields AuxData
_x)))
instance Control.DeepSeq.NFData AuxData where
  rnf :: AuxData -> ()
rnf
    = \ AuxData
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuxData -> FieldSet
_AuxData'_unknownFields AuxData
x__)
             (Vector Metadata -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuxData -> Vector Metadata
_AuxData'metadata AuxData
x__)
                (Vector Script -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuxData -> Vector Script
_AuxData'scripts AuxData
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' BigInt (Prelude.Maybe BigInt'BigInt)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'int' @:: Lens' BigInt (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.int' @:: Lens' BigInt Data.Int.Int64@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bigUInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bigUInt' @:: Lens' BigInt Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bigNInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bigNInt' @:: Lens' BigInt Data.ByteString.ByteString@ -}
data BigInt
  = BigInt'_constructor {BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt :: !(Prelude.Maybe BigInt'BigInt),
                         BigInt -> FieldSet
_BigInt'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BigInt -> BigInt -> Bool
(BigInt -> BigInt -> Bool)
-> (BigInt -> BigInt -> Bool) -> Eq BigInt
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BigInt -> BigInt -> Bool
== :: BigInt -> BigInt -> Bool
$c/= :: BigInt -> BigInt -> Bool
/= :: BigInt -> BigInt -> Bool
Prelude.Eq, Eq BigInt
Eq BigInt =>
(BigInt -> BigInt -> Ordering)
-> (BigInt -> BigInt -> Bool)
-> (BigInt -> BigInt -> Bool)
-> (BigInt -> BigInt -> Bool)
-> (BigInt -> BigInt -> Bool)
-> (BigInt -> BigInt -> BigInt)
-> (BigInt -> BigInt -> BigInt)
-> Ord BigInt
BigInt -> BigInt -> Bool
BigInt -> BigInt -> Ordering
BigInt -> BigInt -> BigInt
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: BigInt -> BigInt -> Ordering
compare :: BigInt -> BigInt -> Ordering
$c< :: BigInt -> BigInt -> Bool
< :: BigInt -> BigInt -> Bool
$c<= :: BigInt -> BigInt -> Bool
<= :: BigInt -> BigInt -> Bool
$c> :: BigInt -> BigInt -> Bool
> :: BigInt -> BigInt -> Bool
$c>= :: BigInt -> BigInt -> Bool
>= :: BigInt -> BigInt -> Bool
$cmax :: BigInt -> BigInt -> BigInt
max :: BigInt -> BigInt -> BigInt
$cmin :: BigInt -> BigInt -> BigInt
min :: BigInt -> BigInt -> BigInt
Prelude.Ord)
instance Prelude.Show BigInt where
  showsPrec :: Int -> BigInt -> ShowS
showsPrec Int
_ BigInt
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BigInt -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BigInt
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data BigInt'BigInt
  = BigInt'Int !Data.Int.Int64 |
    BigInt'BigUInt !Data.ByteString.ByteString |
    BigInt'BigNInt !Data.ByteString.ByteString
  deriving stock (Int -> BigInt'BigInt -> ShowS
[BigInt'BigInt] -> ShowS
BigInt'BigInt -> String
(Int -> BigInt'BigInt -> ShowS)
-> (BigInt'BigInt -> String)
-> ([BigInt'BigInt] -> ShowS)
-> Show BigInt'BigInt
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BigInt'BigInt -> ShowS
showsPrec :: Int -> BigInt'BigInt -> ShowS
$cshow :: BigInt'BigInt -> String
show :: BigInt'BigInt -> String
$cshowList :: [BigInt'BigInt] -> ShowS
showList :: [BigInt'BigInt] -> ShowS
Prelude.Show, BigInt'BigInt -> BigInt'BigInt -> Bool
(BigInt'BigInt -> BigInt'BigInt -> Bool)
-> (BigInt'BigInt -> BigInt'BigInt -> Bool) -> Eq BigInt'BigInt
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BigInt'BigInt -> BigInt'BigInt -> Bool
== :: BigInt'BigInt -> BigInt'BigInt -> Bool
$c/= :: BigInt'BigInt -> BigInt'BigInt -> Bool
/= :: BigInt'BigInt -> BigInt'BigInt -> Bool
Prelude.Eq, Eq BigInt'BigInt
Eq BigInt'BigInt =>
(BigInt'BigInt -> BigInt'BigInt -> Ordering)
-> (BigInt'BigInt -> BigInt'BigInt -> Bool)
-> (BigInt'BigInt -> BigInt'BigInt -> Bool)
-> (BigInt'BigInt -> BigInt'BigInt -> Bool)
-> (BigInt'BigInt -> BigInt'BigInt -> Bool)
-> (BigInt'BigInt -> BigInt'BigInt -> BigInt'BigInt)
-> (BigInt'BigInt -> BigInt'BigInt -> BigInt'BigInt)
-> Ord BigInt'BigInt
BigInt'BigInt -> BigInt'BigInt -> Bool
BigInt'BigInt -> BigInt'BigInt -> Ordering
BigInt'BigInt -> BigInt'BigInt -> BigInt'BigInt
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: BigInt'BigInt -> BigInt'BigInt -> Ordering
compare :: BigInt'BigInt -> BigInt'BigInt -> Ordering
$c< :: BigInt'BigInt -> BigInt'BigInt -> Bool
< :: BigInt'BigInt -> BigInt'BigInt -> Bool
$c<= :: BigInt'BigInt -> BigInt'BigInt -> Bool
<= :: BigInt'BigInt -> BigInt'BigInt -> Bool
$c> :: BigInt'BigInt -> BigInt'BigInt -> Bool
> :: BigInt'BigInt -> BigInt'BigInt -> Bool
$c>= :: BigInt'BigInt -> BigInt'BigInt -> Bool
>= :: BigInt'BigInt -> BigInt'BigInt -> Bool
$cmax :: BigInt'BigInt -> BigInt'BigInt -> BigInt'BigInt
max :: BigInt'BigInt -> BigInt'BigInt -> BigInt'BigInt
$cmin :: BigInt'BigInt -> BigInt'BigInt -> BigInt'BigInt
min :: BigInt'BigInt -> BigInt'BigInt -> BigInt'BigInt
Prelude.Ord)
instance Data.ProtoLens.Field.HasField BigInt "maybe'bigInt" (Prelude.Maybe BigInt'BigInt) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'bigInt"
-> (Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> BigInt
-> f BigInt
fieldOf Proxy# "maybe'bigInt"
_
    = ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
 -> BigInt -> f BigInt)
-> ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
    -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> (Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> BigInt
-> f BigInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BigInt -> Maybe BigInt'BigInt)
-> (BigInt -> Maybe BigInt'BigInt -> BigInt)
-> Lens BigInt BigInt (Maybe BigInt'BigInt) (Maybe BigInt'BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt (\ BigInt
x__ Maybe BigInt'BigInt
y__ -> BigInt
x__ {_BigInt'bigInt = y__}))
        (Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BigInt "maybe'int" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'int"
-> (Maybe Int64 -> f (Maybe Int64)) -> BigInt -> f BigInt
fieldOf Proxy# "maybe'int"
_
    = ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
 -> BigInt -> f BigInt)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> (Maybe Int64 -> f (Maybe Int64))
-> BigInt
-> f BigInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BigInt -> Maybe BigInt'BigInt)
-> (BigInt -> Maybe BigInt'BigInt -> BigInt)
-> Lens BigInt BigInt (Maybe BigInt'BigInt) (Maybe BigInt'BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt (\ BigInt
x__ Maybe BigInt'BigInt
y__ -> BigInt
x__ {_BigInt'bigInt = y__}))
        ((Maybe BigInt'BigInt -> Maybe Int64)
-> (Maybe BigInt'BigInt -> Maybe Int64 -> Maybe BigInt'BigInt)
-> Lens
     (Maybe BigInt'BigInt)
     (Maybe BigInt'BigInt)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe BigInt'BigInt
x__
              -> case Maybe BigInt'BigInt
x__ of
                   (Prelude.Just (BigInt'Int Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe BigInt'BigInt
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe BigInt'BigInt
_ Maybe Int64
y__ -> (Int64 -> BigInt'BigInt) -> Maybe Int64 -> Maybe BigInt'BigInt
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> BigInt'BigInt
BigInt'Int Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField BigInt "int" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "int" -> (Int64 -> f Int64) -> BigInt -> f BigInt
fieldOf Proxy# "int"
_
    = ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
 -> BigInt -> f BigInt)
-> ((Int64 -> f Int64)
    -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> (Int64 -> f Int64)
-> BigInt
-> f BigInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BigInt -> Maybe BigInt'BigInt)
-> (BigInt -> Maybe BigInt'BigInt -> BigInt)
-> Lens BigInt BigInt (Maybe BigInt'BigInt) (Maybe BigInt'BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt (\ BigInt
x__ Maybe BigInt'BigInt
y__ -> BigInt
x__ {_BigInt'bigInt = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe BigInt'BigInt
-> f (Maybe BigInt'BigInt)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe BigInt'BigInt -> Maybe Int64)
-> (Maybe BigInt'BigInt -> Maybe Int64 -> Maybe BigInt'BigInt)
-> Lens
     (Maybe BigInt'BigInt)
     (Maybe BigInt'BigInt)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe BigInt'BigInt
x__
                 -> case Maybe BigInt'BigInt
x__ of
                      (Prelude.Just (BigInt'Int Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe BigInt'BigInt
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe BigInt'BigInt
_ Maybe Int64
y__ -> (Int64 -> BigInt'BigInt) -> Maybe Int64 -> Maybe BigInt'BigInt
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> BigInt'BigInt
BigInt'Int Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField BigInt "maybe'bigUInt" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'bigUInt"
-> (Maybe ByteString -> f (Maybe ByteString)) -> BigInt -> f BigInt
fieldOf Proxy# "maybe'bigUInt"
_
    = ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
 -> BigInt -> f BigInt)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> (Maybe ByteString -> f (Maybe ByteString))
-> BigInt
-> f BigInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BigInt -> Maybe BigInt'BigInt)
-> (BigInt -> Maybe BigInt'BigInt -> BigInt)
-> Lens BigInt BigInt (Maybe BigInt'BigInt) (Maybe BigInt'BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt (\ BigInt
x__ Maybe BigInt'BigInt
y__ -> BigInt
x__ {_BigInt'bigInt = y__}))
        ((Maybe BigInt'BigInt -> Maybe ByteString)
-> (Maybe BigInt'BigInt -> Maybe ByteString -> Maybe BigInt'BigInt)
-> Lens
     (Maybe BigInt'BigInt)
     (Maybe BigInt'BigInt)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe BigInt'BigInt
x__
              -> case Maybe BigInt'BigInt
x__ of
                   (Prelude.Just (BigInt'BigUInt ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe BigInt'BigInt
_ Maybe ByteString
y__ -> (ByteString -> BigInt'BigInt)
-> Maybe ByteString -> Maybe BigInt'BigInt
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> BigInt'BigInt
BigInt'BigUInt Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField BigInt "bigUInt" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "bigUInt"
-> (ByteString -> f ByteString) -> BigInt -> f BigInt
fieldOf Proxy# "bigUInt"
_
    = ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
 -> BigInt -> f BigInt)
-> ((ByteString -> f ByteString)
    -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> (ByteString -> f ByteString)
-> BigInt
-> f BigInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BigInt -> Maybe BigInt'BigInt)
-> (BigInt -> Maybe BigInt'BigInt -> BigInt)
-> Lens BigInt BigInt (Maybe BigInt'BigInt) (Maybe BigInt'BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt (\ BigInt
x__ Maybe BigInt'BigInt
y__ -> BigInt
x__ {_BigInt'bigInt = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe BigInt'BigInt
-> f (Maybe BigInt'BigInt)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe BigInt'BigInt -> Maybe ByteString)
-> (Maybe BigInt'BigInt -> Maybe ByteString -> Maybe BigInt'BigInt)
-> Lens
     (Maybe BigInt'BigInt)
     (Maybe BigInt'BigInt)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe BigInt'BigInt
x__
                 -> case Maybe BigInt'BigInt
x__ of
                      (Prelude.Just (BigInt'BigUInt ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe BigInt'BigInt
_ Maybe ByteString
y__ -> (ByteString -> BigInt'BigInt)
-> Maybe ByteString -> Maybe BigInt'BigInt
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> BigInt'BigInt
BigInt'BigUInt Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField BigInt "maybe'bigNInt" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'bigNInt"
-> (Maybe ByteString -> f (Maybe ByteString)) -> BigInt -> f BigInt
fieldOf Proxy# "maybe'bigNInt"
_
    = ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
 -> BigInt -> f BigInt)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> (Maybe ByteString -> f (Maybe ByteString))
-> BigInt
-> f BigInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BigInt -> Maybe BigInt'BigInt)
-> (BigInt -> Maybe BigInt'BigInt -> BigInt)
-> Lens BigInt BigInt (Maybe BigInt'BigInt) (Maybe BigInt'BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt (\ BigInt
x__ Maybe BigInt'BigInt
y__ -> BigInt
x__ {_BigInt'bigInt = y__}))
        ((Maybe BigInt'BigInt -> Maybe ByteString)
-> (Maybe BigInt'BigInt -> Maybe ByteString -> Maybe BigInt'BigInt)
-> Lens
     (Maybe BigInt'BigInt)
     (Maybe BigInt'BigInt)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe BigInt'BigInt
x__
              -> case Maybe BigInt'BigInt
x__ of
                   (Prelude.Just (BigInt'BigNInt ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe BigInt'BigInt
_ Maybe ByteString
y__ -> (ByteString -> BigInt'BigInt)
-> Maybe ByteString -> Maybe BigInt'BigInt
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> BigInt'BigInt
BigInt'BigNInt Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField BigInt "bigNInt" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "bigNInt"
-> (ByteString -> f ByteString) -> BigInt -> f BigInt
fieldOf Proxy# "bigNInt"
_
    = ((Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
 -> BigInt -> f BigInt)
-> ((ByteString -> f ByteString)
    -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> (ByteString -> f ByteString)
-> BigInt
-> f BigInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BigInt -> Maybe BigInt'BigInt)
-> (BigInt -> Maybe BigInt'BigInt -> BigInt)
-> Lens BigInt BigInt (Maybe BigInt'BigInt) (Maybe BigInt'BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt (\ BigInt
x__ Maybe BigInt'BigInt
y__ -> BigInt
x__ {_BigInt'bigInt = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe BigInt'BigInt -> f (Maybe BigInt'BigInt))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe BigInt'BigInt
-> f (Maybe BigInt'BigInt)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe BigInt'BigInt -> Maybe ByteString)
-> (Maybe BigInt'BigInt -> Maybe ByteString -> Maybe BigInt'BigInt)
-> Lens
     (Maybe BigInt'BigInt)
     (Maybe BigInt'BigInt)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe BigInt'BigInt
x__
                 -> case Maybe BigInt'BigInt
x__ of
                      (Prelude.Just (BigInt'BigNInt ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe BigInt'BigInt
_ Maybe ByteString
y__ -> (ByteString -> BigInt'BigInt)
-> Maybe ByteString -> Maybe BigInt'BigInt
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> BigInt'BigInt
BigInt'BigNInt Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message BigInt where
  messageName :: Proxy BigInt -> Text
messageName Proxy BigInt
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.BigInt"
  packedMessageDescriptor :: Proxy BigInt -> ByteString
packedMessageDescriptor Proxy BigInt
_
    = ByteString
"\n\
      \\ACKBigInt\DC2\DC2\n\
      \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\FS\n\
      \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\
      \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\
      \\abig_int"
  packedFileDescriptor :: Proxy BigInt -> ByteString
packedFileDescriptor Proxy BigInt
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BigInt)
fieldsByTag
    = let
        int__field_descriptor :: FieldDescriptor BigInt
int__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor BigInt Int64
-> FieldDescriptor BigInt
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"int"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens' BigInt (Maybe Int64) -> FieldAccessor BigInt Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'int")) ::
              Data.ProtoLens.FieldDescriptor BigInt
        bigUInt__field_descriptor :: FieldDescriptor BigInt
bigUInt__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BigInt ByteString
-> FieldDescriptor BigInt
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"big_u_int"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' BigInt (Maybe ByteString) -> FieldAccessor BigInt ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'bigUInt")) ::
              Data.ProtoLens.FieldDescriptor BigInt
        bigNInt__field_descriptor :: FieldDescriptor BigInt
bigNInt__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BigInt ByteString
-> FieldDescriptor BigInt
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"big_n_int"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' BigInt (Maybe ByteString) -> FieldAccessor BigInt ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'bigNInt")) ::
              Data.ProtoLens.FieldDescriptor BigInt
      in
        [(Tag, FieldDescriptor BigInt)] -> Map Tag (FieldDescriptor BigInt)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BigInt
int__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BigInt
bigUInt__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BigInt
bigNInt__field_descriptor)]
  unknownFields :: Lens' BigInt FieldSet
unknownFields
    = (BigInt -> FieldSet)
-> (BigInt -> FieldSet -> BigInt) -> Lens' BigInt FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BigInt -> FieldSet
_BigInt'_unknownFields
        (\ BigInt
x__ FieldSet
y__ -> BigInt
x__ {_BigInt'_unknownFields = y__})
  defMessage :: BigInt
defMessage
    = BigInt'_constructor
        {_BigInt'bigInt :: Maybe BigInt'BigInt
_BigInt'bigInt = Maybe BigInt'BigInt
forall a. Maybe a
Prelude.Nothing, _BigInt'_unknownFields :: FieldSet
_BigInt'_unknownFields = []}
  parseMessage :: Parser BigInt
parseMessage
    = let
        loop :: BigInt -> Data.ProtoLens.Encoding.Bytes.Parser BigInt
        loop :: BigInt -> Parser BigInt
loop BigInt
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"int"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"big_u_int"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigUInt") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"big_n_int"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigNInt") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser BigInt -> String -> Parser BigInt
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BigInt -> Parser BigInt
loop BigInt
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BigInt"
  buildMessage :: BigInt -> Builder
buildMessage
    = \ BigInt
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe BigInt'BigInt)
  BigInt
  BigInt
  (Maybe BigInt'BigInt)
  (Maybe BigInt'BigInt)
-> BigInt -> Maybe BigInt'BigInt
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'bigInt") BigInt
_x
              of
                Maybe BigInt'BigInt
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (BigInt'Int Int64
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                       ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
v)
                (Prelude.Just (BigInt'BigUInt ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v)
                (Prelude.Just (BigInt'BigNInt ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet BigInt BigInt FieldSet FieldSet
-> BigInt -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BigInt BigInt FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BigInt FieldSet
Data.ProtoLens.unknownFields BigInt
_x))
instance Control.DeepSeq.NFData BigInt where
  rnf :: BigInt -> ()
rnf
    = \ BigInt
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BigInt -> FieldSet
_BigInt'_unknownFields BigInt
x__)
             (Maybe BigInt'BigInt -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt BigInt
x__) ())
instance Control.DeepSeq.NFData BigInt'BigInt where
  rnf :: BigInt'BigInt -> ()
rnf (BigInt'Int Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (BigInt'BigUInt ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (BigInt'BigNInt ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
_BigInt'Int ::
  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.Int.Int64
_BigInt'Int :: Prism' BigInt'BigInt Int64
_BigInt'Int
  = (Int64 -> BigInt'BigInt)
-> (BigInt'BigInt -> Maybe Int64) -> Prism' BigInt'BigInt Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> BigInt'BigInt
BigInt'Int
      (\ BigInt'BigInt
p__
         -> case BigInt'BigInt
p__ of
              (BigInt'Int Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              BigInt'BigInt
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_BigInt'BigUInt ::
  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString
_BigInt'BigUInt :: Prism' BigInt'BigInt ByteString
_BigInt'BigUInt
  = (ByteString -> BigInt'BigInt)
-> (BigInt'BigInt -> Maybe ByteString)
-> Prism' BigInt'BigInt ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> BigInt'BigInt
BigInt'BigUInt
      (\ BigInt'BigInt
p__
         -> case BigInt'BigInt
p__ of
              (BigInt'BigUInt ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_BigInt'BigNInt ::
  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString
_BigInt'BigNInt :: Prism' BigInt'BigInt ByteString
_BigInt'BigNInt
  = (ByteString -> BigInt'BigInt)
-> (BigInt'BigInt -> Maybe ByteString)
-> Prism' BigInt'BigInt ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> BigInt'BigInt
BigInt'BigNInt
      (\ BigInt'BigInt
p__
         -> case BigInt'BigInt
p__ of
              (BigInt'BigNInt ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.header' @:: Lens' Block BlockHeader@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'header' @:: Lens' Block (Prelude.Maybe BlockHeader)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.body' @:: Lens' Block BlockBody@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'body' @:: Lens' Block (Prelude.Maybe BlockBody)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.timestamp' @:: Lens' Block Data.Word.Word64@ -}
data Block
  = Block'_constructor {Block -> Maybe BlockHeader
_Block'header :: !(Prelude.Maybe BlockHeader),
                        Block -> Maybe BlockBody
_Block'body :: !(Prelude.Maybe BlockBody),
                        Block -> Word64
_Block'timestamp :: !Data.Word.Word64,
                        Block -> FieldSet
_Block'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Block -> Block -> Bool
(Block -> Block -> Bool) -> (Block -> Block -> Bool) -> Eq Block
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Block -> Block -> Bool
== :: Block -> Block -> Bool
$c/= :: Block -> Block -> Bool
/= :: Block -> Block -> Bool
Prelude.Eq, Eq Block
Eq Block =>
(Block -> Block -> Ordering)
-> (Block -> Block -> Bool)
-> (Block -> Block -> Bool)
-> (Block -> Block -> Bool)
-> (Block -> Block -> Bool)
-> (Block -> Block -> Block)
-> (Block -> Block -> Block)
-> Ord Block
Block -> Block -> Bool
Block -> Block -> Ordering
Block -> Block -> Block
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Block -> Block -> Ordering
compare :: Block -> Block -> Ordering
$c< :: Block -> Block -> Bool
< :: Block -> Block -> Bool
$c<= :: Block -> Block -> Bool
<= :: Block -> Block -> Bool
$c> :: Block -> Block -> Bool
> :: Block -> Block -> Bool
$c>= :: Block -> Block -> Bool
>= :: Block -> Block -> Bool
$cmax :: Block -> Block -> Block
max :: Block -> Block -> Block
$cmin :: Block -> Block -> Block
min :: Block -> Block -> Block
Prelude.Ord)
instance Prelude.Show Block where
  showsPrec :: Int -> Block -> ShowS
showsPrec Int
_ Block
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Block -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Block
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Block "header" BlockHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (BlockHeader -> f BlockHeader) -> Block -> f Block
fieldOf Proxy# "header"
_
    = ((Maybe BlockHeader -> f (Maybe BlockHeader)) -> Block -> f Block)
-> ((BlockHeader -> f BlockHeader)
    -> Maybe BlockHeader -> f (Maybe BlockHeader))
-> (BlockHeader -> f BlockHeader)
-> Block
-> f Block
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Block -> Maybe BlockHeader)
-> (Block -> Maybe BlockHeader -> Block)
-> Lens Block Block (Maybe BlockHeader) (Maybe BlockHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Block -> Maybe BlockHeader
_Block'header (\ Block
x__ Maybe BlockHeader
y__ -> Block
x__ {_Block'header = y__}))
        (BlockHeader -> Lens' (Maybe BlockHeader) BlockHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BlockHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Block "maybe'header" (Prelude.Maybe BlockHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe BlockHeader -> f (Maybe BlockHeader)) -> Block -> f Block
fieldOf Proxy# "maybe'header"
_
    = ((Maybe BlockHeader -> f (Maybe BlockHeader)) -> Block -> f Block)
-> ((Maybe BlockHeader -> f (Maybe BlockHeader))
    -> Maybe BlockHeader -> f (Maybe BlockHeader))
-> (Maybe BlockHeader -> f (Maybe BlockHeader))
-> Block
-> f Block
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Block -> Maybe BlockHeader)
-> (Block -> Maybe BlockHeader -> Block)
-> Lens Block Block (Maybe BlockHeader) (Maybe BlockHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Block -> Maybe BlockHeader
_Block'header (\ Block
x__ Maybe BlockHeader
y__ -> Block
x__ {_Block'header = y__}))
        (Maybe BlockHeader -> f (Maybe BlockHeader))
-> Maybe BlockHeader -> f (Maybe BlockHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Block "body" BlockBody where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "body" -> (BlockBody -> f BlockBody) -> Block -> f Block
fieldOf Proxy# "body"
_
    = ((Maybe BlockBody -> f (Maybe BlockBody)) -> Block -> f Block)
-> ((BlockBody -> f BlockBody)
    -> Maybe BlockBody -> f (Maybe BlockBody))
-> (BlockBody -> f BlockBody)
-> Block
-> f Block
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Block -> Maybe BlockBody)
-> (Block -> Maybe BlockBody -> Block)
-> Lens Block Block (Maybe BlockBody) (Maybe BlockBody)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Block -> Maybe BlockBody
_Block'body (\ Block
x__ Maybe BlockBody
y__ -> Block
x__ {_Block'body = y__}))
        (BlockBody -> Lens' (Maybe BlockBody) BlockBody
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BlockBody
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Block "maybe'body" (Prelude.Maybe BlockBody) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'body"
-> (Maybe BlockBody -> f (Maybe BlockBody)) -> Block -> f Block
fieldOf Proxy# "maybe'body"
_
    = ((Maybe BlockBody -> f (Maybe BlockBody)) -> Block -> f Block)
-> ((Maybe BlockBody -> f (Maybe BlockBody))
    -> Maybe BlockBody -> f (Maybe BlockBody))
-> (Maybe BlockBody -> f (Maybe BlockBody))
-> Block
-> f Block
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Block -> Maybe BlockBody)
-> (Block -> Maybe BlockBody -> Block)
-> Lens Block Block (Maybe BlockBody) (Maybe BlockBody)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Block -> Maybe BlockBody
_Block'body (\ Block
x__ Maybe BlockBody
y__ -> Block
x__ {_Block'body = y__}))
        (Maybe BlockBody -> f (Maybe BlockBody))
-> Maybe BlockBody -> f (Maybe BlockBody)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Block "timestamp" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timestamp" -> (Word64 -> f Word64) -> Block -> f Block
fieldOf Proxy# "timestamp"
_
    = ((Word64 -> f Word64) -> Block -> f Block)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Block
-> f Block
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Block -> Word64)
-> (Block -> Word64 -> Block) -> Lens Block Block Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Block -> Word64
_Block'timestamp (\ Block
x__ Word64
y__ -> Block
x__ {_Block'timestamp = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Block where
  messageName :: Proxy Block -> Text
messageName Proxy Block
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Block"
  packedMessageDescriptor :: Proxy Block -> ByteString
packedMessageDescriptor Proxy Block
_
    = ByteString
"\n\
      \\ENQBlock\DC2;\n\
      \\ACKheader\CAN\SOH \SOH(\v2#.utxorpc.v1beta.cardano.BlockHeaderR\ACKheader\DC25\n\
      \\EOTbody\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.BlockBodyR\EOTbody\DC2\FS\n\
      \\ttimestamp\CAN\ETX \SOH(\EOTR\ttimestamp"
  packedFileDescriptor :: Proxy Block -> ByteString
packedFileDescriptor Proxy Block
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Block)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor Block
header__field_descriptor
          = String
-> FieldTypeDescriptor BlockHeader
-> FieldAccessor Block BlockHeader
-> FieldDescriptor Block
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor BlockHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BlockHeader)
              (Lens Block Block (Maybe BlockHeader) (Maybe BlockHeader)
-> FieldAccessor Block BlockHeader
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'header")) ::
              Data.ProtoLens.FieldDescriptor Block
        body__field_descriptor :: FieldDescriptor Block
body__field_descriptor
          = String
-> FieldTypeDescriptor BlockBody
-> FieldAccessor Block BlockBody
-> FieldDescriptor Block
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"body"
              (MessageOrGroup -> FieldTypeDescriptor BlockBody
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BlockBody)
              (Lens Block Block (Maybe BlockBody) (Maybe BlockBody)
-> FieldAccessor Block BlockBody
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'body")) ::
              Data.ProtoLens.FieldDescriptor Block
        timestamp__field_descriptor :: FieldDescriptor Block
timestamp__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Block Word64
-> FieldDescriptor Block
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"timestamp"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens Block Block Word64 Word64 -> FieldAccessor Block Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timestamp")) ::
              Data.ProtoLens.FieldDescriptor Block
      in
        [(Tag, FieldDescriptor Block)] -> Map Tag (FieldDescriptor Block)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Block
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Block
body__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Block
timestamp__field_descriptor)]
  unknownFields :: Lens' Block FieldSet
unknownFields
    = (Block -> FieldSet)
-> (Block -> FieldSet -> Block) -> Lens' Block FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Block -> FieldSet
_Block'_unknownFields
        (\ Block
x__ FieldSet
y__ -> Block
x__ {_Block'_unknownFields = y__})
  defMessage :: Block
defMessage
    = Block'_constructor
        {_Block'header :: Maybe BlockHeader
_Block'header = Maybe BlockHeader
forall a. Maybe a
Prelude.Nothing, _Block'body :: Maybe BlockBody
_Block'body = Maybe BlockBody
forall a. Maybe a
Prelude.Nothing,
         _Block'timestamp :: Word64
_Block'timestamp = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Block'_unknownFields :: FieldSet
_Block'_unknownFields = []}
  parseMessage :: Parser Block
parseMessage
    = let
        loop :: Block -> Data.ProtoLens.Encoding.Bytes.Parser Block
        loop :: Block -> Parser Block
loop Block
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser BlockHeader -> String -> Parser BlockHeader
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                        Word64
18
                          -> do y <- Parser BlockBody -> String -> Parser BlockBody
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"body"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x)
                        Word64
24
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"timestamp"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Block -> String -> Parser Block
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Block -> Parser Block
loop Block
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Block"
  buildMessage :: Block -> Builder
buildMessage
    = \ Block
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe BlockHeader)
  Block
  Block
  (Maybe BlockHeader)
  (Maybe BlockHeader)
-> Block -> Maybe BlockHeader
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'header") Block
_x
              of
                Maybe BlockHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just BlockHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (BlockHeader -> ByteString) -> BlockHeader -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          BlockHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BlockHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe BlockBody) Block Block (Maybe BlockBody) (Maybe BlockBody)
-> Block -> Maybe BlockBody
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'body") Block
_x
                 of
                   Maybe BlockBody
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just BlockBody
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (BlockBody -> ByteString) -> BlockBody -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             BlockBody -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BlockBody
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Word64
_v = FoldLike Word64 Block Block Word64 Word64 -> Block -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timestamp") Block
_x
                    in
                      if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Block Block FieldSet FieldSet
-> Block -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Block Block FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Block FieldSet
Data.ProtoLens.unknownFields Block
_x))))
instance Control.DeepSeq.NFData Block where
  rnf :: Block -> ()
rnf
    = \ Block
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Block -> FieldSet
_Block'_unknownFields Block
x__)
             (Maybe BlockHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Block -> Maybe BlockHeader
_Block'header Block
x__)
                (Maybe BlockBody -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Block -> Maybe BlockBody
_Block'body Block
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Block -> Word64
_Block'timestamp Block
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.tx' @:: Lens' BlockBody [Tx]@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'tx' @:: Lens' BlockBody (Data.Vector.Vector Tx)@ -}
data BlockBody
  = BlockBody'_constructor {BlockBody -> Vector Tx
_BlockBody'tx :: !(Data.Vector.Vector Tx),
                            BlockBody -> FieldSet
_BlockBody'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BlockBody -> BlockBody -> Bool
(BlockBody -> BlockBody -> Bool)
-> (BlockBody -> BlockBody -> Bool) -> Eq BlockBody
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BlockBody -> BlockBody -> Bool
== :: BlockBody -> BlockBody -> Bool
$c/= :: BlockBody -> BlockBody -> Bool
/= :: BlockBody -> BlockBody -> Bool
Prelude.Eq, Eq BlockBody
Eq BlockBody =>
(BlockBody -> BlockBody -> Ordering)
-> (BlockBody -> BlockBody -> Bool)
-> (BlockBody -> BlockBody -> Bool)
-> (BlockBody -> BlockBody -> Bool)
-> (BlockBody -> BlockBody -> Bool)
-> (BlockBody -> BlockBody -> BlockBody)
-> (BlockBody -> BlockBody -> BlockBody)
-> Ord BlockBody
BlockBody -> BlockBody -> Bool
BlockBody -> BlockBody -> Ordering
BlockBody -> BlockBody -> BlockBody
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: BlockBody -> BlockBody -> Ordering
compare :: BlockBody -> BlockBody -> Ordering
$c< :: BlockBody -> BlockBody -> Bool
< :: BlockBody -> BlockBody -> Bool
$c<= :: BlockBody -> BlockBody -> Bool
<= :: BlockBody -> BlockBody -> Bool
$c> :: BlockBody -> BlockBody -> Bool
> :: BlockBody -> BlockBody -> Bool
$c>= :: BlockBody -> BlockBody -> Bool
>= :: BlockBody -> BlockBody -> Bool
$cmax :: BlockBody -> BlockBody -> BlockBody
max :: BlockBody -> BlockBody -> BlockBody
$cmin :: BlockBody -> BlockBody -> BlockBody
min :: BlockBody -> BlockBody -> BlockBody
Prelude.Ord)
instance Prelude.Show BlockBody where
  showsPrec :: Int -> BlockBody -> ShowS
showsPrec Int
_ BlockBody
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BlockBody -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BlockBody
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BlockBody "tx" [Tx] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "tx" -> ([Tx] -> f [Tx]) -> BlockBody -> f BlockBody
fieldOf Proxy# "tx"
_
    = ((Vector Tx -> f (Vector Tx)) -> BlockBody -> f BlockBody)
-> (([Tx] -> f [Tx]) -> Vector Tx -> f (Vector Tx))
-> ([Tx] -> f [Tx])
-> BlockBody
-> f BlockBody
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockBody -> Vector Tx)
-> (BlockBody -> Vector Tx -> BlockBody)
-> Lens BlockBody BlockBody (Vector Tx) (Vector Tx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockBody -> Vector Tx
_BlockBody'tx (\ BlockBody
x__ Vector Tx
y__ -> BlockBody
x__ {_BlockBody'tx = y__}))
        ((Vector Tx -> [Tx])
-> (Vector Tx -> [Tx] -> Vector Tx)
-> Lens (Vector Tx) (Vector Tx) [Tx] [Tx]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Tx -> [Tx]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Tx
_ [Tx]
y__ -> [Tx] -> Vector Tx
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Tx]
y__))
instance Data.ProtoLens.Field.HasField BlockBody "vec'tx" (Data.Vector.Vector Tx) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'tx"
-> (Vector Tx -> f (Vector Tx)) -> BlockBody -> f BlockBody
fieldOf Proxy# "vec'tx"
_
    = ((Vector Tx -> f (Vector Tx)) -> BlockBody -> f BlockBody)
-> ((Vector Tx -> f (Vector Tx)) -> Vector Tx -> f (Vector Tx))
-> (Vector Tx -> f (Vector Tx))
-> BlockBody
-> f BlockBody
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockBody -> Vector Tx)
-> (BlockBody -> Vector Tx -> BlockBody)
-> Lens BlockBody BlockBody (Vector Tx) (Vector Tx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockBody -> Vector Tx
_BlockBody'tx (\ BlockBody
x__ Vector Tx
y__ -> BlockBody
x__ {_BlockBody'tx = y__}))
        (Vector Tx -> f (Vector Tx)) -> Vector Tx -> f (Vector Tx)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BlockBody where
  messageName :: Proxy BlockBody -> Text
messageName Proxy BlockBody
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.BlockBody"
  packedMessageDescriptor :: Proxy BlockBody -> ByteString
packedMessageDescriptor Proxy BlockBody
_
    = ByteString
"\n\
      \\tBlockBody\DC2*\n\
      \\STXtx\CAN\SOH \ETX(\v2\SUB.utxorpc.v1beta.cardano.TxR\STXtx"
  packedFileDescriptor :: Proxy BlockBody -> ByteString
packedFileDescriptor Proxy BlockBody
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BlockBody)
fieldsByTag
    = let
        tx__field_descriptor :: FieldDescriptor BlockBody
tx__field_descriptor
          = String
-> FieldTypeDescriptor Tx
-> FieldAccessor BlockBody Tx
-> FieldDescriptor BlockBody
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx"
              (MessageOrGroup -> FieldTypeDescriptor Tx
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Tx)
              (Packing -> Lens' BlockBody [Tx] -> FieldAccessor BlockBody Tx
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tx")) ::
              Data.ProtoLens.FieldDescriptor BlockBody
      in [(Tag, FieldDescriptor BlockBody)]
-> Map Tag (FieldDescriptor BlockBody)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BlockBody
tx__field_descriptor)]
  unknownFields :: Lens' BlockBody FieldSet
unknownFields
    = (BlockBody -> FieldSet)
-> (BlockBody -> FieldSet -> BlockBody) -> Lens' BlockBody FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BlockBody -> FieldSet
_BlockBody'_unknownFields
        (\ BlockBody
x__ FieldSet
y__ -> BlockBody
x__ {_BlockBody'_unknownFields = y__})
  defMessage :: BlockBody
defMessage
    = BlockBody'_constructor
        {_BlockBody'tx :: Vector Tx
_BlockBody'tx = Vector Tx
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _BlockBody'_unknownFields :: FieldSet
_BlockBody'_unknownFields = []}
  parseMessage :: Parser BlockBody
parseMessage
    = let
        loop ::
          BlockBody
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Tx
             -> Data.ProtoLens.Encoding.Bytes.Parser BlockBody
        loop :: BlockBody -> Growing Vector RealWorld Tx -> Parser BlockBody
loop BlockBody
x Growing Vector RealWorld Tx
mutable'tx
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tx)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'tx") frozen'tx x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser Tx -> String -> Parser Tx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"tx"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'tx y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'tx
      in
        Parser BlockBody -> String -> Parser BlockBody
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'tx <- IO (Growing Vector RealWorld Tx)
-> Parser (Growing Vector RealWorld Tx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                              IO (Growing Vector RealWorld Tx)
IO (Growing Vector (PrimState IO) Tx)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'tx)
          String
"BlockBody"
  buildMessage :: BlockBody -> Builder
buildMessage
    = \ BlockBody
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Tx -> Builder) -> Vector Tx -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ Tx
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder) -> (Tx -> ByteString) -> Tx -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           Tx -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Tx
_v))
                (FoldLike (Vector Tx) BlockBody BlockBody (Vector Tx) (Vector Tx)
-> BlockBody -> Vector Tx
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'tx") BlockBody
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet BlockBody BlockBody FieldSet FieldSet
-> BlockBody -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BlockBody BlockBody FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BlockBody FieldSet
Data.ProtoLens.unknownFields BlockBody
_x))
instance Control.DeepSeq.NFData BlockBody where
  rnf :: BlockBody -> ()
rnf
    = \ BlockBody
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BlockBody -> FieldSet
_BlockBody'_unknownFields BlockBody
x__)
             (Vector Tx -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BlockBody -> Vector Tx
_BlockBody'tx BlockBody
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slot' @:: Lens' BlockHeader Data.Word.Word64@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' BlockHeader Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.height' @:: Lens' BlockHeader Data.Word.Word64@ -}
data BlockHeader
  = BlockHeader'_constructor {BlockHeader -> Word64
_BlockHeader'slot :: !Data.Word.Word64,
                              BlockHeader -> ByteString
_BlockHeader'hash :: !Data.ByteString.ByteString,
                              BlockHeader -> Word64
_BlockHeader'height :: !Data.Word.Word64,
                              BlockHeader -> FieldSet
_BlockHeader'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BlockHeader -> BlockHeader -> Bool
(BlockHeader -> BlockHeader -> Bool)
-> (BlockHeader -> BlockHeader -> Bool) -> Eq BlockHeader
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BlockHeader -> BlockHeader -> Bool
== :: BlockHeader -> BlockHeader -> Bool
$c/= :: BlockHeader -> BlockHeader -> Bool
/= :: BlockHeader -> BlockHeader -> Bool
Prelude.Eq, Eq BlockHeader
Eq BlockHeader =>
(BlockHeader -> BlockHeader -> Ordering)
-> (BlockHeader -> BlockHeader -> Bool)
-> (BlockHeader -> BlockHeader -> Bool)
-> (BlockHeader -> BlockHeader -> Bool)
-> (BlockHeader -> BlockHeader -> Bool)
-> (BlockHeader -> BlockHeader -> BlockHeader)
-> (BlockHeader -> BlockHeader -> BlockHeader)
-> Ord BlockHeader
BlockHeader -> BlockHeader -> Bool
BlockHeader -> BlockHeader -> Ordering
BlockHeader -> BlockHeader -> BlockHeader
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: BlockHeader -> BlockHeader -> Ordering
compare :: BlockHeader -> BlockHeader -> Ordering
$c< :: BlockHeader -> BlockHeader -> Bool
< :: BlockHeader -> BlockHeader -> Bool
$c<= :: BlockHeader -> BlockHeader -> Bool
<= :: BlockHeader -> BlockHeader -> Bool
$c> :: BlockHeader -> BlockHeader -> Bool
> :: BlockHeader -> BlockHeader -> Bool
$c>= :: BlockHeader -> BlockHeader -> Bool
>= :: BlockHeader -> BlockHeader -> Bool
$cmax :: BlockHeader -> BlockHeader -> BlockHeader
max :: BlockHeader -> BlockHeader -> BlockHeader
$cmin :: BlockHeader -> BlockHeader -> BlockHeader
min :: BlockHeader -> BlockHeader -> BlockHeader
Prelude.Ord)
instance Prelude.Show BlockHeader where
  showsPrec :: Int -> BlockHeader -> ShowS
showsPrec Int
_ BlockHeader
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BlockHeader -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BlockHeader
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BlockHeader "slot" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "slot"
-> (Word64 -> f Word64) -> BlockHeader -> f BlockHeader
fieldOf Proxy# "slot"
_
    = ((Word64 -> f Word64) -> BlockHeader -> f BlockHeader)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> BlockHeader
-> f BlockHeader
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockHeader -> Word64)
-> (BlockHeader -> Word64 -> BlockHeader)
-> Lens BlockHeader BlockHeader Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockHeader -> Word64
_BlockHeader'slot (\ BlockHeader
x__ Word64
y__ -> BlockHeader
x__ {_BlockHeader'slot = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockHeader "hash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash"
-> (ByteString -> f ByteString) -> BlockHeader -> f BlockHeader
fieldOf Proxy# "hash"
_
    = ((ByteString -> f ByteString) -> BlockHeader -> f BlockHeader)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> BlockHeader
-> f BlockHeader
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockHeader -> ByteString)
-> (BlockHeader -> ByteString -> BlockHeader)
-> Lens BlockHeader BlockHeader ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockHeader -> ByteString
_BlockHeader'hash (\ BlockHeader
x__ ByteString
y__ -> BlockHeader
x__ {_BlockHeader'hash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockHeader "height" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "height"
-> (Word64 -> f Word64) -> BlockHeader -> f BlockHeader
fieldOf Proxy# "height"
_
    = ((Word64 -> f Word64) -> BlockHeader -> f BlockHeader)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> BlockHeader
-> f BlockHeader
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockHeader -> Word64)
-> (BlockHeader -> Word64 -> BlockHeader)
-> Lens BlockHeader BlockHeader Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockHeader -> Word64
_BlockHeader'height (\ BlockHeader
x__ Word64
y__ -> BlockHeader
x__ {_BlockHeader'height = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BlockHeader where
  messageName :: Proxy BlockHeader -> Text
messageName Proxy BlockHeader
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.BlockHeader"
  packedMessageDescriptor :: Proxy BlockHeader -> ByteString
packedMessageDescriptor Proxy BlockHeader
_
    = ByteString
"\n\
      \\vBlockHeader\DC2\DC2\n\
      \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\
      \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\
      \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight"
  packedFileDescriptor :: Proxy BlockHeader -> ByteString
packedFileDescriptor Proxy BlockHeader
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BlockHeader)
fieldsByTag
    = let
        slot__field_descriptor :: FieldDescriptor BlockHeader
slot__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor BlockHeader Word64
-> FieldDescriptor BlockHeader
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"slot"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens BlockHeader BlockHeader Word64 Word64
-> FieldAccessor BlockHeader Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot")) ::
              Data.ProtoLens.FieldDescriptor BlockHeader
        hash__field_descriptor :: FieldDescriptor BlockHeader
hash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BlockHeader ByteString
-> FieldDescriptor BlockHeader
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens BlockHeader BlockHeader ByteString ByteString
-> FieldAccessor BlockHeader ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash")) ::
              Data.ProtoLens.FieldDescriptor BlockHeader
        height__field_descriptor :: FieldDescriptor BlockHeader
height__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor BlockHeader Word64
-> FieldDescriptor BlockHeader
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"height"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens BlockHeader BlockHeader Word64 Word64
-> FieldAccessor BlockHeader Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"height")) ::
              Data.ProtoLens.FieldDescriptor BlockHeader
      in
        [(Tag, FieldDescriptor BlockHeader)]
-> Map Tag (FieldDescriptor BlockHeader)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BlockHeader
slot__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BlockHeader
hash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BlockHeader
height__field_descriptor)]
  unknownFields :: Lens' BlockHeader FieldSet
unknownFields
    = (BlockHeader -> FieldSet)
-> (BlockHeader -> FieldSet -> BlockHeader)
-> Lens' BlockHeader FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BlockHeader -> FieldSet
_BlockHeader'_unknownFields
        (\ BlockHeader
x__ FieldSet
y__ -> BlockHeader
x__ {_BlockHeader'_unknownFields = y__})
  defMessage :: BlockHeader
defMessage
    = BlockHeader'_constructor
        {_BlockHeader'slot :: Word64
_BlockHeader'slot = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockHeader'hash :: ByteString
_BlockHeader'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockHeader'height :: Word64
_BlockHeader'height = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockHeader'_unknownFields :: FieldSet
_BlockHeader'_unknownFields = []}
  parseMessage :: Parser BlockHeader
parseMessage
    = let
        loop ::
          BlockHeader -> Data.ProtoLens.Encoding.Bytes.Parser BlockHeader
        loop :: BlockHeader -> Parser BlockHeader
loop BlockHeader
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"slot"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"hash"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)
                        Word64
24
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"height"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser BlockHeader -> String -> Parser BlockHeader
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BlockHeader -> Parser BlockHeader
loop BlockHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BlockHeader"
  buildMessage :: BlockHeader -> Builder
buildMessage
    = \ BlockHeader
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word64
_v = FoldLike Word64 BlockHeader BlockHeader Word64 Word64
-> BlockHeader -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot") BlockHeader
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: ByteString
_v = FoldLike ByteString BlockHeader BlockHeader ByteString ByteString
-> BlockHeader -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") BlockHeader
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            ByteString
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Word64
_v = FoldLike Word64 BlockHeader BlockHeader Word64 Word64
-> BlockHeader -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"height") BlockHeader
_x
                    in
                      if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet BlockHeader BlockHeader FieldSet FieldSet
-> BlockHeader -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BlockHeader BlockHeader FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BlockHeader FieldSet
Data.ProtoLens.unknownFields BlockHeader
_x))))
instance Control.DeepSeq.NFData BlockHeader where
  rnf :: BlockHeader -> ()
rnf
    = \ BlockHeader
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BlockHeader -> FieldSet
_BlockHeader'_unknownFields BlockHeader
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BlockHeader -> Word64
_BlockHeader'slot BlockHeader
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BlockHeader -> ByteString
_BlockHeader'hash BlockHeader
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BlockHeader -> Word64
_BlockHeader'height BlockHeader
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptVersion' @:: Lens' BlockVersionData Data.Word.Word32@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slotDuration' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxBlockSize' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxHeaderSize' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxTxSize' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxProposalSize' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.mpcThd' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.heavyDelThd' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateVoteThd' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateProposalThd' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateImplicit' @:: Lens' BlockVersionData Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.softforkRule' @:: Lens' BlockVersionData SoftforkRule@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'softforkRule' @:: Lens' BlockVersionData (Prelude.Maybe SoftforkRule)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.txFeePolicy' @:: Lens' BlockVersionData TxFeePolicy@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'txFeePolicy' @:: Lens' BlockVersionData (Prelude.Maybe TxFeePolicy)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.unlockStakeEpoch' @:: Lens' BlockVersionData Data.Text.Text@ -}
data BlockVersionData
  = BlockVersionData'_constructor {BlockVersionData -> Word32
_BlockVersionData'scriptVersion :: !Data.Word.Word32,
                                   BlockVersionData -> Text
_BlockVersionData'slotDuration :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'maxBlockSize :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'maxHeaderSize :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'maxTxSize :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'maxProposalSize :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'mpcThd :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'heavyDelThd :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'updateVoteThd :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'updateProposalThd :: !Data.Text.Text,
                                   BlockVersionData -> Text
_BlockVersionData'updateImplicit :: !Data.Text.Text,
                                   BlockVersionData -> Maybe SoftforkRule
_BlockVersionData'softforkRule :: !(Prelude.Maybe SoftforkRule),
                                   BlockVersionData -> Maybe TxFeePolicy
_BlockVersionData'txFeePolicy :: !(Prelude.Maybe TxFeePolicy),
                                   BlockVersionData -> Text
_BlockVersionData'unlockStakeEpoch :: !Data.Text.Text,
                                   BlockVersionData -> FieldSet
_BlockVersionData'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BlockVersionData -> BlockVersionData -> Bool
(BlockVersionData -> BlockVersionData -> Bool)
-> (BlockVersionData -> BlockVersionData -> Bool)
-> Eq BlockVersionData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BlockVersionData -> BlockVersionData -> Bool
== :: BlockVersionData -> BlockVersionData -> Bool
$c/= :: BlockVersionData -> BlockVersionData -> Bool
/= :: BlockVersionData -> BlockVersionData -> Bool
Prelude.Eq, Eq BlockVersionData
Eq BlockVersionData =>
(BlockVersionData -> BlockVersionData -> Ordering)
-> (BlockVersionData -> BlockVersionData -> Bool)
-> (BlockVersionData -> BlockVersionData -> Bool)
-> (BlockVersionData -> BlockVersionData -> Bool)
-> (BlockVersionData -> BlockVersionData -> Bool)
-> (BlockVersionData -> BlockVersionData -> BlockVersionData)
-> (BlockVersionData -> BlockVersionData -> BlockVersionData)
-> Ord BlockVersionData
BlockVersionData -> BlockVersionData -> Bool
BlockVersionData -> BlockVersionData -> Ordering
BlockVersionData -> BlockVersionData -> BlockVersionData
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: BlockVersionData -> BlockVersionData -> Ordering
compare :: BlockVersionData -> BlockVersionData -> Ordering
$c< :: BlockVersionData -> BlockVersionData -> Bool
< :: BlockVersionData -> BlockVersionData -> Bool
$c<= :: BlockVersionData -> BlockVersionData -> Bool
<= :: BlockVersionData -> BlockVersionData -> Bool
$c> :: BlockVersionData -> BlockVersionData -> Bool
> :: BlockVersionData -> BlockVersionData -> Bool
$c>= :: BlockVersionData -> BlockVersionData -> Bool
>= :: BlockVersionData -> BlockVersionData -> Bool
$cmax :: BlockVersionData -> BlockVersionData -> BlockVersionData
max :: BlockVersionData -> BlockVersionData -> BlockVersionData
$cmin :: BlockVersionData -> BlockVersionData -> BlockVersionData
min :: BlockVersionData -> BlockVersionData -> BlockVersionData
Prelude.Ord)
instance Prelude.Show BlockVersionData where
  showsPrec :: Int -> BlockVersionData -> ShowS
showsPrec Int
_ BlockVersionData
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BlockVersionData -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BlockVersionData
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BlockVersionData "scriptVersion" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scriptVersion"
-> (Word32 -> f Word32) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "scriptVersion"
_
    = ((Word32 -> f Word32) -> BlockVersionData -> f BlockVersionData)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Word32)
-> (BlockVersionData -> Word32 -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Word32
_BlockVersionData'scriptVersion
           (\ BlockVersionData
x__ Word32
y__ -> BlockVersionData
x__ {_BlockVersionData'scriptVersion = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "slotDuration" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "slotDuration"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "slotDuration"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'slotDuration
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'slotDuration = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "maxBlockSize" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxBlockSize"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "maxBlockSize"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'maxBlockSize
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'maxBlockSize = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "maxHeaderSize" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxHeaderSize"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "maxHeaderSize"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'maxHeaderSize
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'maxHeaderSize = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "maxTxSize" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxTxSize"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "maxTxSize"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'maxTxSize
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'maxTxSize = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "maxProposalSize" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxProposalSize"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "maxProposalSize"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'maxProposalSize
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'maxProposalSize = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "mpcThd" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "mpcThd"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "mpcThd"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'mpcThd
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'mpcThd = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "heavyDelThd" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "heavyDelThd"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "heavyDelThd"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'heavyDelThd
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'heavyDelThd = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "updateVoteThd" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateVoteThd"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "updateVoteThd"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'updateVoteThd
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'updateVoteThd = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "updateProposalThd" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateProposalThd"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "updateProposalThd"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'updateProposalThd
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'updateProposalThd = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "updateImplicit" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateImplicit"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "updateImplicit"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'updateImplicit
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'updateImplicit = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "softforkRule" SoftforkRule where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "softforkRule"
-> (SoftforkRule -> f SoftforkRule)
-> BlockVersionData
-> f BlockVersionData
fieldOf Proxy# "softforkRule"
_
    = ((Maybe SoftforkRule -> f (Maybe SoftforkRule))
 -> BlockVersionData -> f BlockVersionData)
-> ((SoftforkRule -> f SoftforkRule)
    -> Maybe SoftforkRule -> f (Maybe SoftforkRule))
-> (SoftforkRule -> f SoftforkRule)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Maybe SoftforkRule)
-> (BlockVersionData -> Maybe SoftforkRule -> BlockVersionData)
-> Lens
     BlockVersionData
     BlockVersionData
     (Maybe SoftforkRule)
     (Maybe SoftforkRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Maybe SoftforkRule
_BlockVersionData'softforkRule
           (\ BlockVersionData
x__ Maybe SoftforkRule
y__ -> BlockVersionData
x__ {_BlockVersionData'softforkRule = y__}))
        (SoftforkRule -> Lens' (Maybe SoftforkRule) SoftforkRule
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SoftforkRule
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField BlockVersionData "maybe'softforkRule" (Prelude.Maybe SoftforkRule) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'softforkRule"
-> (Maybe SoftforkRule -> f (Maybe SoftforkRule))
-> BlockVersionData
-> f BlockVersionData
fieldOf Proxy# "maybe'softforkRule"
_
    = ((Maybe SoftforkRule -> f (Maybe SoftforkRule))
 -> BlockVersionData -> f BlockVersionData)
-> ((Maybe SoftforkRule -> f (Maybe SoftforkRule))
    -> Maybe SoftforkRule -> f (Maybe SoftforkRule))
-> (Maybe SoftforkRule -> f (Maybe SoftforkRule))
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Maybe SoftforkRule)
-> (BlockVersionData -> Maybe SoftforkRule -> BlockVersionData)
-> Lens
     BlockVersionData
     BlockVersionData
     (Maybe SoftforkRule)
     (Maybe SoftforkRule)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Maybe SoftforkRule
_BlockVersionData'softforkRule
           (\ BlockVersionData
x__ Maybe SoftforkRule
y__ -> BlockVersionData
x__ {_BlockVersionData'softforkRule = y__}))
        (Maybe SoftforkRule -> f (Maybe SoftforkRule))
-> Maybe SoftforkRule -> f (Maybe SoftforkRule)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "txFeePolicy" TxFeePolicy where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "txFeePolicy"
-> (TxFeePolicy -> f TxFeePolicy)
-> BlockVersionData
-> f BlockVersionData
fieldOf Proxy# "txFeePolicy"
_
    = ((Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
 -> BlockVersionData -> f BlockVersionData)
-> ((TxFeePolicy -> f TxFeePolicy)
    -> Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
-> (TxFeePolicy -> f TxFeePolicy)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Maybe TxFeePolicy)
-> (BlockVersionData -> Maybe TxFeePolicy -> BlockVersionData)
-> Lens
     BlockVersionData
     BlockVersionData
     (Maybe TxFeePolicy)
     (Maybe TxFeePolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Maybe TxFeePolicy
_BlockVersionData'txFeePolicy
           (\ BlockVersionData
x__ Maybe TxFeePolicy
y__ -> BlockVersionData
x__ {_BlockVersionData'txFeePolicy = y__}))
        (TxFeePolicy -> Lens' (Maybe TxFeePolicy) TxFeePolicy
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxFeePolicy
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField BlockVersionData "maybe'txFeePolicy" (Prelude.Maybe TxFeePolicy) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'txFeePolicy"
-> (Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
-> BlockVersionData
-> f BlockVersionData
fieldOf Proxy# "maybe'txFeePolicy"
_
    = ((Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
 -> BlockVersionData -> f BlockVersionData)
-> ((Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
    -> Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
-> (Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Maybe TxFeePolicy)
-> (BlockVersionData -> Maybe TxFeePolicy -> BlockVersionData)
-> Lens
     BlockVersionData
     BlockVersionData
     (Maybe TxFeePolicy)
     (Maybe TxFeePolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Maybe TxFeePolicy
_BlockVersionData'txFeePolicy
           (\ BlockVersionData
x__ Maybe TxFeePolicy
y__ -> BlockVersionData
x__ {_BlockVersionData'txFeePolicy = y__}))
        (Maybe TxFeePolicy -> f (Maybe TxFeePolicy))
-> Maybe TxFeePolicy -> f (Maybe TxFeePolicy)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BlockVersionData "unlockStakeEpoch" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "unlockStakeEpoch"
-> (Text -> f Text) -> BlockVersionData -> f BlockVersionData
fieldOf Proxy# "unlockStakeEpoch"
_
    = ((Text -> f Text) -> BlockVersionData -> f BlockVersionData)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BlockVersionData
-> f BlockVersionData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BlockVersionData -> Text)
-> (BlockVersionData -> Text -> BlockVersionData)
-> Lens BlockVersionData BlockVersionData Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BlockVersionData -> Text
_BlockVersionData'unlockStakeEpoch
           (\ BlockVersionData
x__ Text
y__ -> BlockVersionData
x__ {_BlockVersionData'unlockStakeEpoch = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BlockVersionData where
  messageName :: Proxy BlockVersionData -> Text
messageName Proxy BlockVersionData
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.BlockVersionData"
  packedMessageDescriptor :: Proxy BlockVersionData -> ByteString
packedMessageDescriptor Proxy BlockVersionData
_
    = ByteString
"\n\
      \\DLEBlockVersionData\DC2%\n\
      \\SOscript_version\CAN\SOH \SOH(\rR\rscriptVersion\DC2#\n\
      \\rslot_duration\CAN\STX \SOH(\tR\fslotDuration\DC2$\n\
      \\SOmax_block_size\CAN\ETX \SOH(\tR\fmaxBlockSize\DC2&\n\
      \\SImax_header_size\CAN\EOT \SOH(\tR\rmaxHeaderSize\DC2\RS\n\
      \\vmax_tx_size\CAN\ENQ \SOH(\tR\tmaxTxSize\DC2*\n\
      \\DC1max_proposal_size\CAN\ACK \SOH(\tR\SImaxProposalSize\DC2\ETB\n\
      \\ampc_thd\CAN\a \SOH(\tR\ACKmpcThd\DC2\"\n\
      \\rheavy_del_thd\CAN\b \SOH(\tR\vheavyDelThd\DC2&\n\
      \\SIupdate_vote_thd\CAN\t \SOH(\tR\rupdateVoteThd\DC2.\n\
      \\DC3update_proposal_thd\CAN\n\
      \ \SOH(\tR\DC1updateProposalThd\DC2'\n\
      \\SIupdate_implicit\CAN\v \SOH(\tR\SOupdateImplicit\DC2I\n\
      \\rsoftfork_rule\CAN\f \SOH(\v2$.utxorpc.v1beta.cardano.SoftforkRuleR\fsoftforkRule\DC2G\n\
      \\rtx_fee_policy\CAN\r \SOH(\v2#.utxorpc.v1beta.cardano.TxFeePolicyR\vtxFeePolicy\DC2,\n\
      \\DC2unlock_stake_epoch\CAN\SO \SOH(\tR\DLEunlockStakeEpoch"
  packedFileDescriptor :: Proxy BlockVersionData -> ByteString
packedFileDescriptor Proxy BlockVersionData
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BlockVersionData)
fieldsByTag
    = let
        scriptVersion__field_descriptor :: FieldDescriptor BlockVersionData
scriptVersion__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor BlockVersionData Word32
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script_version"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens BlockVersionData BlockVersionData Word32 Word32
-> FieldAccessor BlockVersionData Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scriptVersion")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        slotDuration__field_descriptor :: FieldDescriptor BlockVersionData
slotDuration__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"slot_duration"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotDuration")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        maxBlockSize__field_descriptor :: FieldDescriptor BlockVersionData
maxBlockSize__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_block_size"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxBlockSize")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        maxHeaderSize__field_descriptor :: FieldDescriptor BlockVersionData
maxHeaderSize__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_header_size"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxHeaderSize")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        maxTxSize__field_descriptor :: FieldDescriptor BlockVersionData
maxTxSize__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_tx_size"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxTxSize")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        maxProposalSize__field_descriptor :: FieldDescriptor BlockVersionData
maxProposalSize__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_proposal_size"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxProposalSize")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        mpcThd__field_descriptor :: FieldDescriptor BlockVersionData
mpcThd__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"mpc_thd"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mpcThd")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        heavyDelThd__field_descriptor :: FieldDescriptor BlockVersionData
heavyDelThd__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"heavy_del_thd"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"heavyDelThd")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        updateVoteThd__field_descriptor :: FieldDescriptor BlockVersionData
updateVoteThd__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"update_vote_thd"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"updateVoteThd")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        updateProposalThd__field_descriptor :: FieldDescriptor BlockVersionData
updateProposalThd__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"update_proposal_thd"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"updateProposalThd")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        updateImplicit__field_descriptor :: FieldDescriptor BlockVersionData
updateImplicit__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"update_implicit"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"updateImplicit")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        softforkRule__field_descriptor :: FieldDescriptor BlockVersionData
softforkRule__field_descriptor
          = String
-> FieldTypeDescriptor SoftforkRule
-> FieldAccessor BlockVersionData SoftforkRule
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"softfork_rule"
              (MessageOrGroup -> FieldTypeDescriptor SoftforkRule
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor SoftforkRule)
              (Lens
  BlockVersionData
  BlockVersionData
  (Maybe SoftforkRule)
  (Maybe SoftforkRule)
-> FieldAccessor BlockVersionData SoftforkRule
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'softforkRule")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        txFeePolicy__field_descriptor :: FieldDescriptor BlockVersionData
txFeePolicy__field_descriptor
          = String
-> FieldTypeDescriptor TxFeePolicy
-> FieldAccessor BlockVersionData TxFeePolicy
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx_fee_policy"
              (MessageOrGroup -> FieldTypeDescriptor TxFeePolicy
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxFeePolicy)
              (Lens
  BlockVersionData
  BlockVersionData
  (Maybe TxFeePolicy)
  (Maybe TxFeePolicy)
-> FieldAccessor BlockVersionData TxFeePolicy
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'txFeePolicy")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
        unlockStakeEpoch__field_descriptor :: FieldDescriptor BlockVersionData
unlockStakeEpoch__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BlockVersionData Text
-> FieldDescriptor BlockVersionData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"unlock_stake_epoch"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BlockVersionData BlockVersionData Text Text
-> FieldAccessor BlockVersionData Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"unlockStakeEpoch")) ::
              Data.ProtoLens.FieldDescriptor BlockVersionData
      in
        [(Tag, FieldDescriptor BlockVersionData)]
-> Map Tag (FieldDescriptor BlockVersionData)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BlockVersionData
scriptVersion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BlockVersionData
slotDuration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BlockVersionData
maxBlockSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor BlockVersionData
maxHeaderSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor BlockVersionData
maxTxSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor BlockVersionData
maxProposalSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor BlockVersionData
mpcThd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor BlockVersionData
heavyDelThd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor BlockVersionData
updateVoteThd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor BlockVersionData
updateProposalThd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor BlockVersionData
updateImplicit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor BlockVersionData
softforkRule__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor BlockVersionData
txFeePolicy__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
14, FieldDescriptor BlockVersionData
unlockStakeEpoch__field_descriptor)]
  unknownFields :: Lens' BlockVersionData FieldSet
unknownFields
    = (BlockVersionData -> FieldSet)
-> (BlockVersionData -> FieldSet -> BlockVersionData)
-> Lens' BlockVersionData FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BlockVersionData -> FieldSet
_BlockVersionData'_unknownFields
        (\ BlockVersionData
x__ FieldSet
y__ -> BlockVersionData
x__ {_BlockVersionData'_unknownFields = y__})
  defMessage :: BlockVersionData
defMessage
    = BlockVersionData'_constructor
        {_BlockVersionData'scriptVersion :: Word32
_BlockVersionData'scriptVersion = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'slotDuration :: Text
_BlockVersionData'slotDuration = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'maxBlockSize :: Text
_BlockVersionData'maxBlockSize = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'maxHeaderSize :: Text
_BlockVersionData'maxHeaderSize = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'maxTxSize :: Text
_BlockVersionData'maxTxSize = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'maxProposalSize :: Text
_BlockVersionData'maxProposalSize = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'mpcThd :: Text
_BlockVersionData'mpcThd = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'heavyDelThd :: Text
_BlockVersionData'heavyDelThd = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'updateVoteThd :: Text
_BlockVersionData'updateVoteThd = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'updateProposalThd :: Text
_BlockVersionData'updateProposalThd = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'updateImplicit :: Text
_BlockVersionData'updateImplicit = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'softforkRule :: Maybe SoftforkRule
_BlockVersionData'softforkRule = Maybe SoftforkRule
forall a. Maybe a
Prelude.Nothing,
         _BlockVersionData'txFeePolicy :: Maybe TxFeePolicy
_BlockVersionData'txFeePolicy = Maybe TxFeePolicy
forall a. Maybe a
Prelude.Nothing,
         _BlockVersionData'unlockStakeEpoch :: Text
_BlockVersionData'unlockStakeEpoch = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BlockVersionData'_unknownFields :: FieldSet
_BlockVersionData'_unknownFields = []}
  parseMessage :: Parser BlockVersionData
parseMessage
    = let
        loop ::
          BlockVersionData
          -> Data.ProtoLens.Encoding.Bytes.Parser BlockVersionData
        loop :: BlockVersionData -> Parser BlockVersionData
loop BlockVersionData
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"script_version"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"scriptVersion") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"slot_duration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"slotDuration") y x)
                        Word64
26
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"max_block_size"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxBlockSize") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"max_header_size"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxHeaderSize") y x)
                        Word64
42
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"max_tx_size"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"maxTxSize") y x)
                        Word64
50
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"max_proposal_size"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxProposalSize") y x)
                        Word64
58
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"mpc_thd"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mpcThd") y x)
                        Word64
66
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"heavy_del_thd"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"heavyDelThd") y x)
                        Word64
74
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"update_vote_thd"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"updateVoteThd") y x)
                        Word64
82
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"update_proposal_thd"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"updateProposalThd") y x)
                        Word64
90
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"update_implicit"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"updateImplicit") y x)
                        Word64
98
                          -> do y <- Parser SoftforkRule -> String -> Parser SoftforkRule
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"softfork_rule"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"softforkRule") y x)
                        Word64
106
                          -> do y <- Parser TxFeePolicy -> String -> Parser TxFeePolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"tx_fee_policy"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"txFeePolicy") y x)
                        Word64
114
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"unlock_stake_epoch"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"unlockStakeEpoch") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser BlockVersionData -> String -> Parser BlockVersionData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BlockVersionData -> Parser BlockVersionData
loop BlockVersionData
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BlockVersionData"
  buildMessage :: BlockVersionData -> Builder
buildMessage
    = \ BlockVersionData
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word32
_v
                  = FoldLike Word32 BlockVersionData BlockVersionData Word32 Word32
-> BlockVersionData -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scriptVersion") BlockVersionData
_x
              in
                if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v
                     = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotDuration") BlockVersionData
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxBlockSize") BlockVersionData
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ ByteString
bs
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Text
_v
                           = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxHeaderSize") BlockVersionData
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Text
_v = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxTxSize") BlockVersionData
_x
                          in
                            if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            else
                                Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                  ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     (\ ByteString
bs
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                             (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                     Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Text
_v
                                 = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxProposalSize") BlockVersionData
_x
                             in
                               if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                   Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               else
                                   Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                     ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        (\ ByteString
bs
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                      (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                        Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (let
                                  _v :: Text
_v = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mpcThd") BlockVersionData
_x
                                in
                                  if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                      Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  else
                                      Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                        ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                           (\ ByteString
bs
                                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                         (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                           Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (let
                                     _v :: Text
_v
                                       = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                           (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"heavyDelThd") BlockVersionData
_x
                                   in
                                     if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                         Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                     else
                                         Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                           ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                              (\ ByteString
bs
                                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                            (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                              Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (let
                                        _v :: Text
_v
                                          = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"updateVoteThd") BlockVersionData
_x
                                      in
                                        if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                            Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                        else
                                            Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
                                              ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                 (\ ByteString
bs
                                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                               (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                            ByteString
bs))
                                                 Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (let
                                           _v :: Text
_v
                                             = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"updateProposalThd")
                                                 BlockVersionData
_x
                                         in
                                           if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                               Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                           else
                                               Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
                                                 ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                    (\ ByteString
bs
                                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                               (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                  (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                            (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                               ByteString
bs))
                                                    Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (let
                                              _v :: Text
_v
                                                = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"updateImplicit")
                                                    BlockVersionData
_x
                                            in
                                              if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                                  Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                              else
                                                  Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
                                                    ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                       (\ ByteString
bs
                                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                  ByteString
bs))
                                                       Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                                           (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (case
                                                   FoldLike
  (Maybe SoftforkRule)
  BlockVersionData
  BlockVersionData
  (Maybe SoftforkRule)
  (Maybe SoftforkRule)
-> BlockVersionData -> Maybe SoftforkRule
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                        @"maybe'softforkRule")
                                                     BlockVersionData
_x
                                               of
                                                 Maybe SoftforkRule
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                 (Prelude.Just SoftforkRule
_v)
                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
                                                        ((ByteString -> Builder)
-> (SoftforkRule -> ByteString) -> SoftforkRule -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                           (\ ByteString
bs
                                                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                         (ByteString -> Int
Data.ByteString.length
                                                                            ByteString
bs)))
                                                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                      ByteString
bs))
                                                           SoftforkRule -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SoftforkRule
_v))
                                              (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                 (case
                                                      FoldLike
  (Maybe TxFeePolicy)
  BlockVersionData
  BlockVersionData
  (Maybe TxFeePolicy)
  (Maybe TxFeePolicy)
-> BlockVersionData -> Maybe TxFeePolicy
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                        (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                           @"maybe'txFeePolicy")
                                                        BlockVersionData
_x
                                                  of
                                                    Maybe TxFeePolicy
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                    (Prelude.Just TxFeePolicy
_v)
                                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                              Word64
106)
                                                           ((ByteString -> Builder)
-> (TxFeePolicy -> ByteString) -> TxFeePolicy -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                              (\ ByteString
bs
                                                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                            (ByteString -> Int
Data.ByteString.length
                                                                               ByteString
bs)))
                                                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                         ByteString
bs))
                                                              TxFeePolicy -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxFeePolicy
_v))
                                                 (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (let
                                                       _v :: Text
_v
                                                         = FoldLike Text BlockVersionData BlockVersionData Text Text
-> BlockVersionData -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                             (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                @"unlockStakeEpoch")
                                                             BlockVersionData
_x
                                                     in
                                                       if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==)
                                                            Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                                           Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                       else
                                                           Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                Word64
114)
                                                             ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                (\ ByteString
bs
                                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                              (ByteString -> Int
Data.ByteString.length
                                                                                 ByteString
bs)))
                                                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                           ByteString
bs))
                                                                Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                                                    (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                                       (FoldLike
  FieldSet BlockVersionData BlockVersionData FieldSet FieldSet
-> BlockVersionData -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                          FoldLike
  FieldSet BlockVersionData BlockVersionData FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BlockVersionData FieldSet
Data.ProtoLens.unknownFields
                                                          BlockVersionData
_x)))))))))))))))
instance Control.DeepSeq.NFData BlockVersionData where
  rnf :: BlockVersionData -> ()
rnf
    = \ BlockVersionData
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BlockVersionData -> FieldSet
_BlockVersionData'_unknownFields BlockVersionData
x__)
             (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BlockVersionData -> Word32
_BlockVersionData'scriptVersion BlockVersionData
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BlockVersionData -> Text
_BlockVersionData'slotDuration BlockVersionData
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (BlockVersionData -> Text
_BlockVersionData'maxBlockSize BlockVersionData
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (BlockVersionData -> Text
_BlockVersionData'maxHeaderSize BlockVersionData
x__)
                         (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (BlockVersionData -> Text
_BlockVersionData'maxTxSize BlockVersionData
x__)
                            (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (BlockVersionData -> Text
_BlockVersionData'maxProposalSize BlockVersionData
x__)
                               (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (BlockVersionData -> Text
_BlockVersionData'mpcThd BlockVersionData
x__)
                                  (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (BlockVersionData -> Text
_BlockVersionData'heavyDelThd BlockVersionData
x__)
                                     (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (BlockVersionData -> Text
_BlockVersionData'updateVoteThd BlockVersionData
x__)
                                        (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (BlockVersionData -> Text
_BlockVersionData'updateProposalThd BlockVersionData
x__)
                                           (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (BlockVersionData -> Text
_BlockVersionData'updateImplicit BlockVersionData
x__)
                                              (Maybe SoftforkRule -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (BlockVersionData -> Maybe SoftforkRule
_BlockVersionData'softforkRule BlockVersionData
x__)
                                                 (Maybe TxFeePolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                    (BlockVersionData -> Maybe TxFeePolicy
_BlockVersionData'txFeePolicy BlockVersionData
x__)
                                                    (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                       (BlockVersionData -> Text
_BlockVersionData'unlockStakeEpoch BlockVersionData
x__)
                                                       ()))))))))))))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vkey' @:: Lens' BootstrapWitness Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.signature' @:: Lens' BootstrapWitness Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.chainCode' @:: Lens' BootstrapWitness Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.attributes' @:: Lens' BootstrapWitness Data.ByteString.ByteString@ -}
data BootstrapWitness
  = BootstrapWitness'_constructor {BootstrapWitness -> ByteString
_BootstrapWitness'vkey :: !Data.ByteString.ByteString,
                                   BootstrapWitness -> ByteString
_BootstrapWitness'signature :: !Data.ByteString.ByteString,
                                   BootstrapWitness -> ByteString
_BootstrapWitness'chainCode :: !Data.ByteString.ByteString,
                                   BootstrapWitness -> ByteString
_BootstrapWitness'attributes :: !Data.ByteString.ByteString,
                                   BootstrapWitness -> FieldSet
_BootstrapWitness'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BootstrapWitness -> BootstrapWitness -> Bool
(BootstrapWitness -> BootstrapWitness -> Bool)
-> (BootstrapWitness -> BootstrapWitness -> Bool)
-> Eq BootstrapWitness
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BootstrapWitness -> BootstrapWitness -> Bool
== :: BootstrapWitness -> BootstrapWitness -> Bool
$c/= :: BootstrapWitness -> BootstrapWitness -> Bool
/= :: BootstrapWitness -> BootstrapWitness -> Bool
Prelude.Eq, Eq BootstrapWitness
Eq BootstrapWitness =>
(BootstrapWitness -> BootstrapWitness -> Ordering)
-> (BootstrapWitness -> BootstrapWitness -> Bool)
-> (BootstrapWitness -> BootstrapWitness -> Bool)
-> (BootstrapWitness -> BootstrapWitness -> Bool)
-> (BootstrapWitness -> BootstrapWitness -> Bool)
-> (BootstrapWitness -> BootstrapWitness -> BootstrapWitness)
-> (BootstrapWitness -> BootstrapWitness -> BootstrapWitness)
-> Ord BootstrapWitness
BootstrapWitness -> BootstrapWitness -> Bool
BootstrapWitness -> BootstrapWitness -> Ordering
BootstrapWitness -> BootstrapWitness -> BootstrapWitness
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: BootstrapWitness -> BootstrapWitness -> Ordering
compare :: BootstrapWitness -> BootstrapWitness -> Ordering
$c< :: BootstrapWitness -> BootstrapWitness -> Bool
< :: BootstrapWitness -> BootstrapWitness -> Bool
$c<= :: BootstrapWitness -> BootstrapWitness -> Bool
<= :: BootstrapWitness -> BootstrapWitness -> Bool
$c> :: BootstrapWitness -> BootstrapWitness -> Bool
> :: BootstrapWitness -> BootstrapWitness -> Bool
$c>= :: BootstrapWitness -> BootstrapWitness -> Bool
>= :: BootstrapWitness -> BootstrapWitness -> Bool
$cmax :: BootstrapWitness -> BootstrapWitness -> BootstrapWitness
max :: BootstrapWitness -> BootstrapWitness -> BootstrapWitness
$cmin :: BootstrapWitness -> BootstrapWitness -> BootstrapWitness
min :: BootstrapWitness -> BootstrapWitness -> BootstrapWitness
Prelude.Ord)
instance Prelude.Show BootstrapWitness where
  showsPrec :: Int -> BootstrapWitness -> ShowS
showsPrec Int
_ BootstrapWitness
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (BootstrapWitness -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BootstrapWitness
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField BootstrapWitness "vkey" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vkey"
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
fieldOf Proxy# "vkey"
_
    = ((ByteString -> f ByteString)
 -> BootstrapWitness -> f BootstrapWitness)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BootstrapWitness -> ByteString)
-> (BootstrapWitness -> ByteString -> BootstrapWitness)
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BootstrapWitness -> ByteString
_BootstrapWitness'vkey
           (\ BootstrapWitness
x__ ByteString
y__ -> BootstrapWitness
x__ {_BootstrapWitness'vkey = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BootstrapWitness "signature" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "signature"
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
fieldOf Proxy# "signature"
_
    = ((ByteString -> f ByteString)
 -> BootstrapWitness -> f BootstrapWitness)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BootstrapWitness -> ByteString)
-> (BootstrapWitness -> ByteString -> BootstrapWitness)
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BootstrapWitness -> ByteString
_BootstrapWitness'signature
           (\ BootstrapWitness
x__ ByteString
y__ -> BootstrapWitness
x__ {_BootstrapWitness'signature = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BootstrapWitness "chainCode" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "chainCode"
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
fieldOf Proxy# "chainCode"
_
    = ((ByteString -> f ByteString)
 -> BootstrapWitness -> f BootstrapWitness)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BootstrapWitness -> ByteString)
-> (BootstrapWitness -> ByteString -> BootstrapWitness)
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BootstrapWitness -> ByteString
_BootstrapWitness'chainCode
           (\ BootstrapWitness
x__ ByteString
y__ -> BootstrapWitness
x__ {_BootstrapWitness'chainCode = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BootstrapWitness "attributes" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "attributes"
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
fieldOf Proxy# "attributes"
_
    = ((ByteString -> f ByteString)
 -> BootstrapWitness -> f BootstrapWitness)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> BootstrapWitness
-> f BootstrapWitness
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BootstrapWitness -> ByteString)
-> (BootstrapWitness -> ByteString -> BootstrapWitness)
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BootstrapWitness -> ByteString
_BootstrapWitness'attributes
           (\ BootstrapWitness
x__ ByteString
y__ -> BootstrapWitness
x__ {_BootstrapWitness'attributes = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BootstrapWitness where
  messageName :: Proxy BootstrapWitness -> Text
messageName Proxy BootstrapWitness
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.BootstrapWitness"
  packedMessageDescriptor :: Proxy BootstrapWitness -> ByteString
packedMessageDescriptor Proxy BootstrapWitness
_
    = ByteString
"\n\
      \\DLEBootstrapWitness\DC2\DC2\n\
      \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\
      \\tsignature\CAN\STX \SOH(\fR\tsignature\DC2\GS\n\
      \\n\
      \chain_code\CAN\ETX \SOH(\fR\tchainCode\DC2\RS\n\
      \\n\
      \attributes\CAN\EOT \SOH(\fR\n\
      \attributes"
  packedFileDescriptor :: Proxy BootstrapWitness -> ByteString
packedFileDescriptor Proxy BootstrapWitness
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BootstrapWitness)
fieldsByTag
    = let
        vkey__field_descriptor :: FieldDescriptor BootstrapWitness
vkey__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BootstrapWitness ByteString
-> FieldDescriptor BootstrapWitness
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"vkey"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
-> FieldAccessor BootstrapWitness ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vkey")) ::
              Data.ProtoLens.FieldDescriptor BootstrapWitness
        signature__field_descriptor :: FieldDescriptor BootstrapWitness
signature__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BootstrapWitness ByteString
-> FieldDescriptor BootstrapWitness
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"signature"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
-> FieldAccessor BootstrapWitness ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signature")) ::
              Data.ProtoLens.FieldDescriptor BootstrapWitness
        chainCode__field_descriptor :: FieldDescriptor BootstrapWitness
chainCode__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BootstrapWitness ByteString
-> FieldDescriptor BootstrapWitness
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"chain_code"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
-> FieldAccessor BootstrapWitness ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"chainCode")) ::
              Data.ProtoLens.FieldDescriptor BootstrapWitness
        attributes__field_descriptor :: FieldDescriptor BootstrapWitness
attributes__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BootstrapWitness ByteString
-> FieldDescriptor BootstrapWitness
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"attributes"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens BootstrapWitness BootstrapWitness ByteString ByteString
-> FieldAccessor BootstrapWitness ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attributes")) ::
              Data.ProtoLens.FieldDescriptor BootstrapWitness
      in
        [(Tag, FieldDescriptor BootstrapWitness)]
-> Map Tag (FieldDescriptor BootstrapWitness)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BootstrapWitness
vkey__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BootstrapWitness
signature__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BootstrapWitness
chainCode__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor BootstrapWitness
attributes__field_descriptor)]
  unknownFields :: Lens' BootstrapWitness FieldSet
unknownFields
    = (BootstrapWitness -> FieldSet)
-> (BootstrapWitness -> FieldSet -> BootstrapWitness)
-> Lens' BootstrapWitness FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BootstrapWitness -> FieldSet
_BootstrapWitness'_unknownFields
        (\ BootstrapWitness
x__ FieldSet
y__ -> BootstrapWitness
x__ {_BootstrapWitness'_unknownFields = y__})
  defMessage :: BootstrapWitness
defMessage
    = BootstrapWitness'_constructor
        {_BootstrapWitness'vkey :: ByteString
_BootstrapWitness'vkey = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BootstrapWitness'signature :: ByteString
_BootstrapWitness'signature = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BootstrapWitness'chainCode :: ByteString
_BootstrapWitness'chainCode = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BootstrapWitness'attributes :: ByteString
_BootstrapWitness'attributes = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BootstrapWitness'_unknownFields :: FieldSet
_BootstrapWitness'_unknownFields = []}
  parseMessage :: Parser BootstrapWitness
parseMessage
    = let
        loop ::
          BootstrapWitness
          -> Data.ProtoLens.Encoding.Bytes.Parser BootstrapWitness
        loop :: BootstrapWitness -> Parser BootstrapWitness
loop BootstrapWitness
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"vkey"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"vkey") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"signature"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"chain_code"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"chainCode") y x)
                        Word64
34
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"attributes"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"attributes") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser BootstrapWitness -> String -> Parser BootstrapWitness
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BootstrapWitness -> Parser BootstrapWitness
loop BootstrapWitness
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BootstrapWitness"
  buildMessage :: BootstrapWitness -> Builder
buildMessage
    = \ BootstrapWitness
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike
  ByteString BootstrapWitness BootstrapWitness ByteString ByteString
-> BootstrapWitness -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vkey") BootstrapWitness
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: ByteString
_v = FoldLike
  ByteString BootstrapWitness BootstrapWitness ByteString ByteString
-> BootstrapWitness -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signature") BootstrapWitness
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            ByteString
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: ByteString
_v = FoldLike
  ByteString BootstrapWitness BootstrapWitness ByteString ByteString
-> BootstrapWitness -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"chainCode") BootstrapWitness
_x
                    in
                      if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                            ((\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               ByteString
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: ByteString
_v
                           = FoldLike
  ByteString BootstrapWitness BootstrapWitness ByteString ByteString
-> BootstrapWitness -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attributes") BootstrapWitness
_x
                       in
                         if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                             Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         else
                             Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                               ((\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  ByteString
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet BootstrapWitness BootstrapWitness FieldSet FieldSet
-> BootstrapWitness -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet BootstrapWitness BootstrapWitness FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BootstrapWitness FieldSet
Data.ProtoLens.unknownFields BootstrapWitness
_x)))))
instance Control.DeepSeq.NFData BootstrapWitness where
  rnf :: BootstrapWitness -> ()
rnf
    = \ BootstrapWitness
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BootstrapWitness -> FieldSet
_BootstrapWitness'_unknownFields BootstrapWitness
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BootstrapWitness -> ByteString
_BootstrapWitness'vkey BootstrapWitness
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BootstrapWitness -> ByteString
_BootstrapWitness'signature BootstrapWitness
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (BootstrapWitness -> ByteString
_BootstrapWitness'chainCode BootstrapWitness
x__)
                      (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BootstrapWitness -> ByteString
_BootstrapWitness'attributes BootstrapWitness
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.redeemer' @:: Lens' Certificate Redeemer@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Certificate (Prelude.Maybe Redeemer)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'certificate' @:: Lens' Certificate (Prelude.Maybe Certificate'Certificate)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeRegistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeRegistration' @:: Lens' Certificate StakeCredential@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDeregistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDeregistration' @:: Lens' Certificate StakeCredential@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDelegation' @:: Lens' Certificate (Prelude.Maybe StakeDelegationCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDelegation' @:: Lens' Certificate StakeDelegationCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRegistration' @:: Lens' Certificate (Prelude.Maybe PoolRegistrationCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRegistration' @:: Lens' Certificate PoolRegistrationCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRetirement' @:: Lens' Certificate (Prelude.Maybe PoolRetirementCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRetirement' @:: Lens' Certificate PoolRetirementCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'genesisKeyDelegation' @:: Lens' Certificate (Prelude.Maybe GenesisKeyDelegationCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.genesisKeyDelegation' @:: Lens' Certificate GenesisKeyDelegationCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'mirCert' @:: Lens' Certificate (Prelude.Maybe MirCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.mirCert' @:: Lens' Certificate MirCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'regCert' @:: Lens' Certificate (Prelude.Maybe RegCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.regCert' @:: Lens' Certificate RegCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'unregCert' @:: Lens' Certificate (Prelude.Maybe UnRegCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.unregCert' @:: Lens' Certificate UnRegCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'voteDelegCert' @:: Lens' Certificate (Prelude.Maybe VoteDelegCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.voteDelegCert' @:: Lens' Certificate VoteDelegCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeVoteDelegCert' @:: Lens' Certificate (Prelude.Maybe StakeVoteDelegCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeVoteDelegCert' @:: Lens' Certificate StakeVoteDelegCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeRegDelegCert' @:: Lens' Certificate (Prelude.Maybe StakeRegDelegCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeRegDelegCert' @:: Lens' Certificate StakeRegDelegCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'voteRegDelegCert' @:: Lens' Certificate (Prelude.Maybe VoteRegDelegCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.voteRegDelegCert' @:: Lens' Certificate VoteRegDelegCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeVoteRegDelegCert' @:: Lens' Certificate (Prelude.Maybe StakeVoteRegDelegCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeVoteRegDelegCert' @:: Lens' Certificate StakeVoteRegDelegCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'authCommitteeHotCert' @:: Lens' Certificate (Prelude.Maybe AuthCommitteeHotCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.authCommitteeHotCert' @:: Lens' Certificate AuthCommitteeHotCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'resignCommitteeColdCert' @:: Lens' Certificate (Prelude.Maybe ResignCommitteeColdCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.resignCommitteeColdCert' @:: Lens' Certificate ResignCommitteeColdCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'regDrepCert' @:: Lens' Certificate (Prelude.Maybe RegDRepCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.regDrepCert' @:: Lens' Certificate RegDRepCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'unregDrepCert' @:: Lens' Certificate (Prelude.Maybe UnRegDRepCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.unregDrepCert' @:: Lens' Certificate UnRegDRepCert@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'updateDrepCert' @:: Lens' Certificate (Prelude.Maybe UpdateDRepCert)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateDrepCert' @:: Lens' Certificate UpdateDRepCert@ -}
data Certificate
  = Certificate'_constructor {Certificate -> Maybe Redeemer
_Certificate'redeemer :: !(Prelude.Maybe Redeemer),
                              Certificate -> Maybe Certificate'Certificate
_Certificate'certificate :: !(Prelude.Maybe Certificate'Certificate),
                              Certificate -> FieldSet
_Certificate'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Certificate -> Certificate -> Bool
(Certificate -> Certificate -> Bool)
-> (Certificate -> Certificate -> Bool) -> Eq Certificate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Certificate -> Certificate -> Bool
== :: Certificate -> Certificate -> Bool
$c/= :: Certificate -> Certificate -> Bool
/= :: Certificate -> Certificate -> Bool
Prelude.Eq, Eq Certificate
Eq Certificate =>
(Certificate -> Certificate -> Ordering)
-> (Certificate -> Certificate -> Bool)
-> (Certificate -> Certificate -> Bool)
-> (Certificate -> Certificate -> Bool)
-> (Certificate -> Certificate -> Bool)
-> (Certificate -> Certificate -> Certificate)
-> (Certificate -> Certificate -> Certificate)
-> Ord Certificate
Certificate -> Certificate -> Bool
Certificate -> Certificate -> Ordering
Certificate -> Certificate -> Certificate
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Certificate -> Certificate -> Ordering
compare :: Certificate -> Certificate -> Ordering
$c< :: Certificate -> Certificate -> Bool
< :: Certificate -> Certificate -> Bool
$c<= :: Certificate -> Certificate -> Bool
<= :: Certificate -> Certificate -> Bool
$c> :: Certificate -> Certificate -> Bool
> :: Certificate -> Certificate -> Bool
$c>= :: Certificate -> Certificate -> Bool
>= :: Certificate -> Certificate -> Bool
$cmax :: Certificate -> Certificate -> Certificate
max :: Certificate -> Certificate -> Certificate
$cmin :: Certificate -> Certificate -> Certificate
min :: Certificate -> Certificate -> Certificate
Prelude.Ord)
instance Prelude.Show Certificate where
  showsPrec :: Int -> Certificate -> ShowS
showsPrec Int
_ Certificate
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Certificate -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Certificate
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Certificate'Certificate
  = Certificate'StakeRegistration !StakeCredential |
    Certificate'StakeDeregistration !StakeCredential |
    Certificate'StakeDelegation !StakeDelegationCert |
    Certificate'PoolRegistration !PoolRegistrationCert |
    Certificate'PoolRetirement !PoolRetirementCert |
    Certificate'GenesisKeyDelegation !GenesisKeyDelegationCert |
    Certificate'MirCert !MirCert |
    Certificate'RegCert !RegCert |
    Certificate'UnregCert !UnRegCert |
    Certificate'VoteDelegCert !VoteDelegCert |
    Certificate'StakeVoteDelegCert !StakeVoteDelegCert |
    Certificate'StakeRegDelegCert !StakeRegDelegCert |
    Certificate'VoteRegDelegCert !VoteRegDelegCert |
    Certificate'StakeVoteRegDelegCert !StakeVoteRegDelegCert |
    Certificate'AuthCommitteeHotCert !AuthCommitteeHotCert |
    Certificate'ResignCommitteeColdCert !ResignCommitteeColdCert |
    Certificate'RegDrepCert !RegDRepCert |
    Certificate'UnregDrepCert !UnRegDRepCert |
    Certificate'UpdateDrepCert !UpdateDRepCert
  deriving stock (Int -> Certificate'Certificate -> ShowS
[Certificate'Certificate] -> ShowS
Certificate'Certificate -> String
(Int -> Certificate'Certificate -> ShowS)
-> (Certificate'Certificate -> String)
-> ([Certificate'Certificate] -> ShowS)
-> Show Certificate'Certificate
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Certificate'Certificate -> ShowS
showsPrec :: Int -> Certificate'Certificate -> ShowS
$cshow :: Certificate'Certificate -> String
show :: Certificate'Certificate -> String
$cshowList :: [Certificate'Certificate] -> ShowS
showList :: [Certificate'Certificate] -> ShowS
Prelude.Show, Certificate'Certificate -> Certificate'Certificate -> Bool
(Certificate'Certificate -> Certificate'Certificate -> Bool)
-> (Certificate'Certificate -> Certificate'Certificate -> Bool)
-> Eq Certificate'Certificate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Certificate'Certificate -> Certificate'Certificate -> Bool
== :: Certificate'Certificate -> Certificate'Certificate -> Bool
$c/= :: Certificate'Certificate -> Certificate'Certificate -> Bool
/= :: Certificate'Certificate -> Certificate'Certificate -> Bool
Prelude.Eq, Eq Certificate'Certificate
Eq Certificate'Certificate =>
(Certificate'Certificate -> Certificate'Certificate -> Ordering)
-> (Certificate'Certificate -> Certificate'Certificate -> Bool)
-> (Certificate'Certificate -> Certificate'Certificate -> Bool)
-> (Certificate'Certificate -> Certificate'Certificate -> Bool)
-> (Certificate'Certificate -> Certificate'Certificate -> Bool)
-> (Certificate'Certificate
    -> Certificate'Certificate -> Certificate'Certificate)
-> (Certificate'Certificate
    -> Certificate'Certificate -> Certificate'Certificate)
-> Ord Certificate'Certificate
Certificate'Certificate -> Certificate'Certificate -> Bool
Certificate'Certificate -> Certificate'Certificate -> Ordering
Certificate'Certificate
-> Certificate'Certificate -> Certificate'Certificate
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Certificate'Certificate -> Certificate'Certificate -> Ordering
compare :: Certificate'Certificate -> Certificate'Certificate -> Ordering
$c< :: Certificate'Certificate -> Certificate'Certificate -> Bool
< :: Certificate'Certificate -> Certificate'Certificate -> Bool
$c<= :: Certificate'Certificate -> Certificate'Certificate -> Bool
<= :: Certificate'Certificate -> Certificate'Certificate -> Bool
$c> :: Certificate'Certificate -> Certificate'Certificate -> Bool
> :: Certificate'Certificate -> Certificate'Certificate -> Bool
$c>= :: Certificate'Certificate -> Certificate'Certificate -> Bool
>= :: Certificate'Certificate -> Certificate'Certificate -> Bool
$cmax :: Certificate'Certificate
-> Certificate'Certificate -> Certificate'Certificate
max :: Certificate'Certificate
-> Certificate'Certificate -> Certificate'Certificate
$cmin :: Certificate'Certificate
-> Certificate'Certificate -> Certificate'Certificate
min :: Certificate'Certificate
-> Certificate'Certificate -> Certificate'Certificate
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Certificate "redeemer" Redeemer where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "redeemer"
-> (Redeemer -> f Redeemer) -> Certificate -> f Certificate
fieldOf Proxy# "redeemer"
_
    = ((Maybe Redeemer -> f (Maybe Redeemer))
 -> Certificate -> f Certificate)
-> ((Redeemer -> f Redeemer)
    -> Maybe Redeemer -> f (Maybe Redeemer))
-> (Redeemer -> f Redeemer)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Redeemer)
-> (Certificate -> Maybe Redeemer -> Certificate)
-> Lens Certificate Certificate (Maybe Redeemer) (Maybe Redeemer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Redeemer
_Certificate'redeemer
           (\ Certificate
x__ Maybe Redeemer
y__ -> Certificate
x__ {_Certificate'redeemer = y__}))
        (Redeemer -> Lens' (Maybe Redeemer) Redeemer
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Redeemer
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Certificate "maybe'redeemer" (Prelude.Maybe Redeemer) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'redeemer"
-> (Maybe Redeemer -> f (Maybe Redeemer))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'redeemer"
_
    = ((Maybe Redeemer -> f (Maybe Redeemer))
 -> Certificate -> f Certificate)
-> ((Maybe Redeemer -> f (Maybe Redeemer))
    -> Maybe Redeemer -> f (Maybe Redeemer))
-> (Maybe Redeemer -> f (Maybe Redeemer))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Redeemer)
-> (Certificate -> Maybe Redeemer -> Certificate)
-> Lens Certificate Certificate (Maybe Redeemer) (Maybe Redeemer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Redeemer
_Certificate'redeemer
           (\ Certificate
x__ Maybe Redeemer
y__ -> Certificate
x__ {_Certificate'redeemer = y__}))
        (Maybe Redeemer -> f (Maybe Redeemer))
-> Maybe Redeemer -> f (Maybe Redeemer)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Certificate "maybe'certificate" (Prelude.Maybe Certificate'Certificate) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'certificate"
-> (Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'certificate"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe Certificate'Certificate
     -> f (Maybe Certificate'Certificate))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeRegistration" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeRegistration"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'stakeRegistration"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe StakeCredential)
-> (Maybe Certificate'Certificate
    -> Maybe StakeCredential -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'StakeRegistration StakeCredential
x__val))
                     -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe StakeCredential
y__ -> (StakeCredential -> Certificate'Certificate)
-> Maybe StakeCredential -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> Certificate'Certificate
Certificate'StakeRegistration Maybe StakeCredential
y__))
instance Data.ProtoLens.Field.HasField Certificate "stakeRegistration" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeRegistration"
-> (StakeCredential -> f StakeCredential)
-> Certificate
-> f Certificate
fieldOf Proxy# "stakeRegistration"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (StakeCredential -> f StakeCredential)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe StakeCredential)
-> (Maybe Certificate'Certificate
    -> Maybe StakeCredential -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'StakeRegistration StakeCredential
x__val))
                        -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe StakeCredential
y__ -> (StakeCredential -> Certificate'Certificate)
-> Maybe StakeCredential -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> Certificate'Certificate
Certificate'StakeRegistration Maybe StakeCredential
y__))
           (StakeCredential -> Lens' (Maybe StakeCredential) StakeCredential
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeCredential
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDeregistration" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeDeregistration"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'stakeDeregistration"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe StakeCredential)
-> (Maybe Certificate'Certificate
    -> Maybe StakeCredential -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'StakeDeregistration StakeCredential
x__val))
                     -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe StakeCredential
y__ -> (StakeCredential -> Certificate'Certificate)
-> Maybe StakeCredential -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> Certificate'Certificate
Certificate'StakeDeregistration Maybe StakeCredential
y__))
instance Data.ProtoLens.Field.HasField Certificate "stakeDeregistration" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeDeregistration"
-> (StakeCredential -> f StakeCredential)
-> Certificate
-> f Certificate
fieldOf Proxy# "stakeDeregistration"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (StakeCredential -> f StakeCredential)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe StakeCredential)
-> (Maybe Certificate'Certificate
    -> Maybe StakeCredential -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'StakeDeregistration StakeCredential
x__val))
                        -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe StakeCredential
y__ -> (StakeCredential -> Certificate'Certificate)
-> Maybe StakeCredential -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> Certificate'Certificate
Certificate'StakeDeregistration Maybe StakeCredential
y__))
           (StakeCredential -> Lens' (Maybe StakeCredential) StakeCredential
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeCredential
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDelegation" (Prelude.Maybe StakeDelegationCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeDelegation"
-> (Maybe StakeDelegationCert -> f (Maybe StakeDelegationCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'stakeDelegation"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe StakeDelegationCert -> f (Maybe StakeDelegationCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe StakeDelegationCert -> f (Maybe StakeDelegationCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe StakeDelegationCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeDelegationCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeDelegationCert)
     (Maybe StakeDelegationCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'StakeDelegation StakeDelegationCert
x__val))
                     -> StakeDelegationCert -> Maybe StakeDelegationCert
forall a. a -> Maybe a
Prelude.Just StakeDelegationCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe StakeDelegationCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe StakeDelegationCert
y__ -> (StakeDelegationCert -> Certificate'Certificate)
-> Maybe StakeDelegationCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeDelegationCert -> Certificate'Certificate
Certificate'StakeDelegation Maybe StakeDelegationCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "stakeDelegation" StakeDelegationCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeDelegation"
-> (StakeDelegationCert -> f StakeDelegationCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "stakeDelegation"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((StakeDelegationCert -> f StakeDelegationCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (StakeDelegationCert -> f StakeDelegationCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe StakeDelegationCert -> f (Maybe StakeDelegationCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((StakeDelegationCert -> f StakeDelegationCert)
    -> Maybe StakeDelegationCert -> f (Maybe StakeDelegationCert))
-> (StakeDelegationCert -> f StakeDelegationCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe StakeDelegationCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeDelegationCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeDelegationCert)
     (Maybe StakeDelegationCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'StakeDelegation StakeDelegationCert
x__val))
                        -> StakeDelegationCert -> Maybe StakeDelegationCert
forall a. a -> Maybe a
Prelude.Just StakeDelegationCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe StakeDelegationCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe StakeDelegationCert
y__ -> (StakeDelegationCert -> Certificate'Certificate)
-> Maybe StakeDelegationCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeDelegationCert -> Certificate'Certificate
Certificate'StakeDelegation Maybe StakeDelegationCert
y__))
           (StakeDelegationCert
-> Lens' (Maybe StakeDelegationCert) StakeDelegationCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeDelegationCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRegistration" (Prelude.Maybe PoolRegistrationCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolRegistration"
-> (Maybe PoolRegistrationCert -> f (Maybe PoolRegistrationCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'poolRegistration"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe PoolRegistrationCert -> f (Maybe PoolRegistrationCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe PoolRegistrationCert -> f (Maybe PoolRegistrationCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe PoolRegistrationCert)
-> (Maybe Certificate'Certificate
    -> Maybe PoolRegistrationCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe PoolRegistrationCert)
     (Maybe PoolRegistrationCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'PoolRegistration PoolRegistrationCert
x__val))
                     -> PoolRegistrationCert -> Maybe PoolRegistrationCert
forall a. a -> Maybe a
Prelude.Just PoolRegistrationCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe PoolRegistrationCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe PoolRegistrationCert
y__ -> (PoolRegistrationCert -> Certificate'Certificate)
-> Maybe PoolRegistrationCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRegistrationCert -> Certificate'Certificate
Certificate'PoolRegistration Maybe PoolRegistrationCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "poolRegistration" PoolRegistrationCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolRegistration"
-> (PoolRegistrationCert -> f PoolRegistrationCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "poolRegistration"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((PoolRegistrationCert -> f PoolRegistrationCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (PoolRegistrationCert -> f PoolRegistrationCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe PoolRegistrationCert -> f (Maybe PoolRegistrationCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((PoolRegistrationCert -> f PoolRegistrationCert)
    -> Maybe PoolRegistrationCert -> f (Maybe PoolRegistrationCert))
-> (PoolRegistrationCert -> f PoolRegistrationCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe PoolRegistrationCert)
-> (Maybe Certificate'Certificate
    -> Maybe PoolRegistrationCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe PoolRegistrationCert)
     (Maybe PoolRegistrationCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'PoolRegistration PoolRegistrationCert
x__val))
                        -> PoolRegistrationCert -> Maybe PoolRegistrationCert
forall a. a -> Maybe a
Prelude.Just PoolRegistrationCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe PoolRegistrationCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe PoolRegistrationCert
y__ -> (PoolRegistrationCert -> Certificate'Certificate)
-> Maybe PoolRegistrationCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRegistrationCert -> Certificate'Certificate
Certificate'PoolRegistration Maybe PoolRegistrationCert
y__))
           (PoolRegistrationCert
-> Lens' (Maybe PoolRegistrationCert) PoolRegistrationCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PoolRegistrationCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRetirement" (Prelude.Maybe PoolRetirementCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolRetirement"
-> (Maybe PoolRetirementCert -> f (Maybe PoolRetirementCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'poolRetirement"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe PoolRetirementCert -> f (Maybe PoolRetirementCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe PoolRetirementCert -> f (Maybe PoolRetirementCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe PoolRetirementCert)
-> (Maybe Certificate'Certificate
    -> Maybe PoolRetirementCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe PoolRetirementCert)
     (Maybe PoolRetirementCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'PoolRetirement PoolRetirementCert
x__val))
                     -> PoolRetirementCert -> Maybe PoolRetirementCert
forall a. a -> Maybe a
Prelude.Just PoolRetirementCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe PoolRetirementCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe PoolRetirementCert
y__ -> (PoolRetirementCert -> Certificate'Certificate)
-> Maybe PoolRetirementCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRetirementCert -> Certificate'Certificate
Certificate'PoolRetirement Maybe PoolRetirementCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "poolRetirement" PoolRetirementCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolRetirement"
-> (PoolRetirementCert -> f PoolRetirementCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "poolRetirement"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((PoolRetirementCert -> f PoolRetirementCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (PoolRetirementCert -> f PoolRetirementCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe PoolRetirementCert -> f (Maybe PoolRetirementCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((PoolRetirementCert -> f PoolRetirementCert)
    -> Maybe PoolRetirementCert -> f (Maybe PoolRetirementCert))
-> (PoolRetirementCert -> f PoolRetirementCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe PoolRetirementCert)
-> (Maybe Certificate'Certificate
    -> Maybe PoolRetirementCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe PoolRetirementCert)
     (Maybe PoolRetirementCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'PoolRetirement PoolRetirementCert
x__val))
                        -> PoolRetirementCert -> Maybe PoolRetirementCert
forall a. a -> Maybe a
Prelude.Just PoolRetirementCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe PoolRetirementCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe PoolRetirementCert
y__ -> (PoolRetirementCert -> Certificate'Certificate)
-> Maybe PoolRetirementCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRetirementCert -> Certificate'Certificate
Certificate'PoolRetirement Maybe PoolRetirementCert
y__))
           (PoolRetirementCert
-> Lens' (Maybe PoolRetirementCert) PoolRetirementCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PoolRetirementCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'genesisKeyDelegation" (Prelude.Maybe GenesisKeyDelegationCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'genesisKeyDelegation"
-> (Maybe GenesisKeyDelegationCert
    -> f (Maybe GenesisKeyDelegationCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'genesisKeyDelegation"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe GenesisKeyDelegationCert
     -> f (Maybe GenesisKeyDelegationCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe GenesisKeyDelegationCert
    -> f (Maybe GenesisKeyDelegationCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe GenesisKeyDelegationCert)
-> (Maybe Certificate'Certificate
    -> Maybe GenesisKeyDelegationCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe GenesisKeyDelegationCert)
     (Maybe GenesisKeyDelegationCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'GenesisKeyDelegation GenesisKeyDelegationCert
x__val))
                     -> GenesisKeyDelegationCert -> Maybe GenesisKeyDelegationCert
forall a. a -> Maybe a
Prelude.Just GenesisKeyDelegationCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe GenesisKeyDelegationCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe GenesisKeyDelegationCert
y__ -> (GenesisKeyDelegationCert -> Certificate'Certificate)
-> Maybe GenesisKeyDelegationCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap GenesisKeyDelegationCert -> Certificate'Certificate
Certificate'GenesisKeyDelegation Maybe GenesisKeyDelegationCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "genesisKeyDelegation" GenesisKeyDelegationCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "genesisKeyDelegation"
-> (GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "genesisKeyDelegation"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe GenesisKeyDelegationCert
  -> f (Maybe GenesisKeyDelegationCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
    -> Maybe GenesisKeyDelegationCert
    -> f (Maybe GenesisKeyDelegationCert))
-> (GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe GenesisKeyDelegationCert)
-> (Maybe Certificate'Certificate
    -> Maybe GenesisKeyDelegationCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe GenesisKeyDelegationCert)
     (Maybe GenesisKeyDelegationCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'GenesisKeyDelegation GenesisKeyDelegationCert
x__val))
                        -> GenesisKeyDelegationCert -> Maybe GenesisKeyDelegationCert
forall a. a -> Maybe a
Prelude.Just GenesisKeyDelegationCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe GenesisKeyDelegationCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe GenesisKeyDelegationCert
y__ -> (GenesisKeyDelegationCert -> Certificate'Certificate)
-> Maybe GenesisKeyDelegationCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap GenesisKeyDelegationCert -> Certificate'Certificate
Certificate'GenesisKeyDelegation Maybe GenesisKeyDelegationCert
y__))
           (GenesisKeyDelegationCert
-> Lens' (Maybe GenesisKeyDelegationCert) GenesisKeyDelegationCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GenesisKeyDelegationCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'mirCert" (Prelude.Maybe MirCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'mirCert"
-> (Maybe MirCert -> f (Maybe MirCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'mirCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe MirCert -> f (Maybe MirCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe MirCert -> f (Maybe MirCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe MirCert)
-> (Maybe Certificate'Certificate
    -> Maybe MirCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe MirCert)
     (Maybe MirCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'MirCert MirCert
x__val)) -> MirCert -> Maybe MirCert
forall a. a -> Maybe a
Prelude.Just MirCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe MirCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe MirCert
y__ -> (MirCert -> Certificate'Certificate)
-> Maybe MirCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap MirCert -> Certificate'Certificate
Certificate'MirCert Maybe MirCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "mirCert" MirCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "mirCert"
-> (MirCert -> f MirCert) -> Certificate -> f Certificate
fieldOf Proxy# "mirCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((MirCert -> f MirCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (MirCert -> f MirCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe MirCert -> f (Maybe MirCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((MirCert -> f MirCert) -> Maybe MirCert -> f (Maybe MirCert))
-> (MirCert -> f MirCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe MirCert)
-> (Maybe Certificate'Certificate
    -> Maybe MirCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe MirCert)
     (Maybe MirCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'MirCert MirCert
x__val)) -> MirCert -> Maybe MirCert
forall a. a -> Maybe a
Prelude.Just MirCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe MirCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe MirCert
y__ -> (MirCert -> Certificate'Certificate)
-> Maybe MirCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap MirCert -> Certificate'Certificate
Certificate'MirCert Maybe MirCert
y__))
           (MirCert -> Lens' (Maybe MirCert) MirCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MirCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'regCert" (Prelude.Maybe RegCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'regCert"
-> (Maybe RegCert -> f (Maybe RegCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'regCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe RegCert -> f (Maybe RegCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe RegCert -> f (Maybe RegCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe RegCert)
-> (Maybe Certificate'Certificate
    -> Maybe RegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe RegCert)
     (Maybe RegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'RegCert RegCert
x__val)) -> RegCert -> Maybe RegCert
forall a. a -> Maybe a
Prelude.Just RegCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe RegCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe RegCert
y__ -> (RegCert -> Certificate'Certificate)
-> Maybe RegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RegCert -> Certificate'Certificate
Certificate'RegCert Maybe RegCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "regCert" RegCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "regCert"
-> (RegCert -> f RegCert) -> Certificate -> f Certificate
fieldOf Proxy# "regCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((RegCert -> f RegCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (RegCert -> f RegCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe RegCert -> f (Maybe RegCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((RegCert -> f RegCert) -> Maybe RegCert -> f (Maybe RegCert))
-> (RegCert -> f RegCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe RegCert)
-> (Maybe Certificate'Certificate
    -> Maybe RegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe RegCert)
     (Maybe RegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'RegCert RegCert
x__val)) -> RegCert -> Maybe RegCert
forall a. a -> Maybe a
Prelude.Just RegCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe RegCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe RegCert
y__ -> (RegCert -> Certificate'Certificate)
-> Maybe RegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RegCert -> Certificate'Certificate
Certificate'RegCert Maybe RegCert
y__))
           (RegCert -> Lens' (Maybe RegCert) RegCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RegCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'unregCert" (Prelude.Maybe UnRegCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'unregCert"
-> (Maybe UnRegCert -> f (Maybe UnRegCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'unregCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe UnRegCert -> f (Maybe UnRegCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe UnRegCert -> f (Maybe UnRegCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe UnRegCert)
-> (Maybe Certificate'Certificate
    -> Maybe UnRegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe UnRegCert)
     (Maybe UnRegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'UnregCert UnRegCert
x__val))
                     -> UnRegCert -> Maybe UnRegCert
forall a. a -> Maybe a
Prelude.Just UnRegCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe UnRegCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe UnRegCert
y__ -> (UnRegCert -> Certificate'Certificate)
-> Maybe UnRegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UnRegCert -> Certificate'Certificate
Certificate'UnregCert Maybe UnRegCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "unregCert" UnRegCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "unregCert"
-> (UnRegCert -> f UnRegCert) -> Certificate -> f Certificate
fieldOf Proxy# "unregCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((UnRegCert -> f UnRegCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (UnRegCert -> f UnRegCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe UnRegCert -> f (Maybe UnRegCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((UnRegCert -> f UnRegCert)
    -> Maybe UnRegCert -> f (Maybe UnRegCert))
-> (UnRegCert -> f UnRegCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe UnRegCert)
-> (Maybe Certificate'Certificate
    -> Maybe UnRegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe UnRegCert)
     (Maybe UnRegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'UnregCert UnRegCert
x__val))
                        -> UnRegCert -> Maybe UnRegCert
forall a. a -> Maybe a
Prelude.Just UnRegCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe UnRegCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe UnRegCert
y__ -> (UnRegCert -> Certificate'Certificate)
-> Maybe UnRegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UnRegCert -> Certificate'Certificate
Certificate'UnregCert Maybe UnRegCert
y__))
           (UnRegCert -> Lens' (Maybe UnRegCert) UnRegCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UnRegCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'voteDelegCert" (Prelude.Maybe VoteDelegCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'voteDelegCert"
-> (Maybe VoteDelegCert -> f (Maybe VoteDelegCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'voteDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe VoteDelegCert -> f (Maybe VoteDelegCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe VoteDelegCert -> f (Maybe VoteDelegCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe VoteDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe VoteDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe VoteDelegCert)
     (Maybe VoteDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'VoteDelegCert VoteDelegCert
x__val))
                     -> VoteDelegCert -> Maybe VoteDelegCert
forall a. a -> Maybe a
Prelude.Just VoteDelegCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe VoteDelegCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe VoteDelegCert
y__ -> (VoteDelegCert -> Certificate'Certificate)
-> Maybe VoteDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap VoteDelegCert -> Certificate'Certificate
Certificate'VoteDelegCert Maybe VoteDelegCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "voteDelegCert" VoteDelegCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "voteDelegCert"
-> (VoteDelegCert -> f VoteDelegCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "voteDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((VoteDelegCert -> f VoteDelegCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (VoteDelegCert -> f VoteDelegCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe VoteDelegCert -> f (Maybe VoteDelegCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((VoteDelegCert -> f VoteDelegCert)
    -> Maybe VoteDelegCert -> f (Maybe VoteDelegCert))
-> (VoteDelegCert -> f VoteDelegCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe VoteDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe VoteDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe VoteDelegCert)
     (Maybe VoteDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'VoteDelegCert VoteDelegCert
x__val))
                        -> VoteDelegCert -> Maybe VoteDelegCert
forall a. a -> Maybe a
Prelude.Just VoteDelegCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe VoteDelegCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe VoteDelegCert
y__ -> (VoteDelegCert -> Certificate'Certificate)
-> Maybe VoteDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap VoteDelegCert -> Certificate'Certificate
Certificate'VoteDelegCert Maybe VoteDelegCert
y__))
           (VoteDelegCert -> Lens' (Maybe VoteDelegCert) VoteDelegCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VoteDelegCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeVoteDelegCert" (Prelude.Maybe StakeVoteDelegCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeVoteDelegCert"
-> (Maybe StakeVoteDelegCert -> f (Maybe StakeVoteDelegCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'stakeVoteDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe StakeVoteDelegCert -> f (Maybe StakeVoteDelegCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe StakeVoteDelegCert -> f (Maybe StakeVoteDelegCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe StakeVoteDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeVoteDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeVoteDelegCert)
     (Maybe StakeVoteDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'StakeVoteDelegCert StakeVoteDelegCert
x__val))
                     -> StakeVoteDelegCert -> Maybe StakeVoteDelegCert
forall a. a -> Maybe a
Prelude.Just StakeVoteDelegCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe StakeVoteDelegCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe StakeVoteDelegCert
y__ -> (StakeVoteDelegCert -> Certificate'Certificate)
-> Maybe StakeVoteDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeVoteDelegCert -> Certificate'Certificate
Certificate'StakeVoteDelegCert Maybe StakeVoteDelegCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "stakeVoteDelegCert" StakeVoteDelegCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeVoteDelegCert"
-> (StakeVoteDelegCert -> f StakeVoteDelegCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "stakeVoteDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((StakeVoteDelegCert -> f StakeVoteDelegCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (StakeVoteDelegCert -> f StakeVoteDelegCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe StakeVoteDelegCert -> f (Maybe StakeVoteDelegCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((StakeVoteDelegCert -> f StakeVoteDelegCert)
    -> Maybe StakeVoteDelegCert -> f (Maybe StakeVoteDelegCert))
-> (StakeVoteDelegCert -> f StakeVoteDelegCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe StakeVoteDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeVoteDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeVoteDelegCert)
     (Maybe StakeVoteDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'StakeVoteDelegCert StakeVoteDelegCert
x__val))
                        -> StakeVoteDelegCert -> Maybe StakeVoteDelegCert
forall a. a -> Maybe a
Prelude.Just StakeVoteDelegCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe StakeVoteDelegCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe StakeVoteDelegCert
y__ -> (StakeVoteDelegCert -> Certificate'Certificate)
-> Maybe StakeVoteDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeVoteDelegCert -> Certificate'Certificate
Certificate'StakeVoteDelegCert Maybe StakeVoteDelegCert
y__))
           (StakeVoteDelegCert
-> Lens' (Maybe StakeVoteDelegCert) StakeVoteDelegCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeVoteDelegCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeRegDelegCert" (Prelude.Maybe StakeRegDelegCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeRegDelegCert"
-> (Maybe StakeRegDelegCert -> f (Maybe StakeRegDelegCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'stakeRegDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe StakeRegDelegCert -> f (Maybe StakeRegDelegCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe StakeRegDelegCert -> f (Maybe StakeRegDelegCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe StakeRegDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeRegDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeRegDelegCert)
     (Maybe StakeRegDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'StakeRegDelegCert StakeRegDelegCert
x__val))
                     -> StakeRegDelegCert -> Maybe StakeRegDelegCert
forall a. a -> Maybe a
Prelude.Just StakeRegDelegCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe StakeRegDelegCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe StakeRegDelegCert
y__ -> (StakeRegDelegCert -> Certificate'Certificate)
-> Maybe StakeRegDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeRegDelegCert -> Certificate'Certificate
Certificate'StakeRegDelegCert Maybe StakeRegDelegCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "stakeRegDelegCert" StakeRegDelegCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeRegDelegCert"
-> (StakeRegDelegCert -> f StakeRegDelegCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "stakeRegDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((StakeRegDelegCert -> f StakeRegDelegCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (StakeRegDelegCert -> f StakeRegDelegCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe StakeRegDelegCert -> f (Maybe StakeRegDelegCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((StakeRegDelegCert -> f StakeRegDelegCert)
    -> Maybe StakeRegDelegCert -> f (Maybe StakeRegDelegCert))
-> (StakeRegDelegCert -> f StakeRegDelegCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe StakeRegDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeRegDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeRegDelegCert)
     (Maybe StakeRegDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'StakeRegDelegCert StakeRegDelegCert
x__val))
                        -> StakeRegDelegCert -> Maybe StakeRegDelegCert
forall a. a -> Maybe a
Prelude.Just StakeRegDelegCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe StakeRegDelegCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe StakeRegDelegCert
y__ -> (StakeRegDelegCert -> Certificate'Certificate)
-> Maybe StakeRegDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeRegDelegCert -> Certificate'Certificate
Certificate'StakeRegDelegCert Maybe StakeRegDelegCert
y__))
           (StakeRegDelegCert
-> Lens' (Maybe StakeRegDelegCert) StakeRegDelegCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeRegDelegCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'voteRegDelegCert" (Prelude.Maybe VoteRegDelegCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'voteRegDelegCert"
-> (Maybe VoteRegDelegCert -> f (Maybe VoteRegDelegCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'voteRegDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe VoteRegDelegCert -> f (Maybe VoteRegDelegCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe VoteRegDelegCert -> f (Maybe VoteRegDelegCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe VoteRegDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe VoteRegDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe VoteRegDelegCert)
     (Maybe VoteRegDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'VoteRegDelegCert VoteRegDelegCert
x__val))
                     -> VoteRegDelegCert -> Maybe VoteRegDelegCert
forall a. a -> Maybe a
Prelude.Just VoteRegDelegCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe VoteRegDelegCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe VoteRegDelegCert
y__ -> (VoteRegDelegCert -> Certificate'Certificate)
-> Maybe VoteRegDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap VoteRegDelegCert -> Certificate'Certificate
Certificate'VoteRegDelegCert Maybe VoteRegDelegCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "voteRegDelegCert" VoteRegDelegCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "voteRegDelegCert"
-> (VoteRegDelegCert -> f VoteRegDelegCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "voteRegDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((VoteRegDelegCert -> f VoteRegDelegCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (VoteRegDelegCert -> f VoteRegDelegCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe VoteRegDelegCert -> f (Maybe VoteRegDelegCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((VoteRegDelegCert -> f VoteRegDelegCert)
    -> Maybe VoteRegDelegCert -> f (Maybe VoteRegDelegCert))
-> (VoteRegDelegCert -> f VoteRegDelegCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe VoteRegDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe VoteRegDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe VoteRegDelegCert)
     (Maybe VoteRegDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'VoteRegDelegCert VoteRegDelegCert
x__val))
                        -> VoteRegDelegCert -> Maybe VoteRegDelegCert
forall a. a -> Maybe a
Prelude.Just VoteRegDelegCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe VoteRegDelegCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe VoteRegDelegCert
y__ -> (VoteRegDelegCert -> Certificate'Certificate)
-> Maybe VoteRegDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap VoteRegDelegCert -> Certificate'Certificate
Certificate'VoteRegDelegCert Maybe VoteRegDelegCert
y__))
           (VoteRegDelegCert -> Lens' (Maybe VoteRegDelegCert) VoteRegDelegCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VoteRegDelegCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeVoteRegDelegCert" (Prelude.Maybe StakeVoteRegDelegCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeVoteRegDelegCert"
-> (Maybe StakeVoteRegDelegCert -> f (Maybe StakeVoteRegDelegCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'stakeVoteRegDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe StakeVoteRegDelegCert
     -> f (Maybe StakeVoteRegDelegCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe StakeVoteRegDelegCert -> f (Maybe StakeVoteRegDelegCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe StakeVoteRegDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeVoteRegDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeVoteRegDelegCert)
     (Maybe StakeVoteRegDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'StakeVoteRegDelegCert StakeVoteRegDelegCert
x__val))
                     -> StakeVoteRegDelegCert -> Maybe StakeVoteRegDelegCert
forall a. a -> Maybe a
Prelude.Just StakeVoteRegDelegCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe StakeVoteRegDelegCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe StakeVoteRegDelegCert
y__ -> (StakeVoteRegDelegCert -> Certificate'Certificate)
-> Maybe StakeVoteRegDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeVoteRegDelegCert -> Certificate'Certificate
Certificate'StakeVoteRegDelegCert Maybe StakeVoteRegDelegCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "stakeVoteRegDelegCert" StakeVoteRegDelegCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeVoteRegDelegCert"
-> (StakeVoteRegDelegCert -> f StakeVoteRegDelegCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "stakeVoteRegDelegCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((StakeVoteRegDelegCert -> f StakeVoteRegDelegCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (StakeVoteRegDelegCert -> f StakeVoteRegDelegCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe StakeVoteRegDelegCert -> f (Maybe StakeVoteRegDelegCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((StakeVoteRegDelegCert -> f StakeVoteRegDelegCert)
    -> Maybe StakeVoteRegDelegCert -> f (Maybe StakeVoteRegDelegCert))
-> (StakeVoteRegDelegCert -> f StakeVoteRegDelegCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe StakeVoteRegDelegCert)
-> (Maybe Certificate'Certificate
    -> Maybe StakeVoteRegDelegCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe StakeVoteRegDelegCert)
     (Maybe StakeVoteRegDelegCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'StakeVoteRegDelegCert StakeVoteRegDelegCert
x__val))
                        -> StakeVoteRegDelegCert -> Maybe StakeVoteRegDelegCert
forall a. a -> Maybe a
Prelude.Just StakeVoteRegDelegCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe StakeVoteRegDelegCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe StakeVoteRegDelegCert
y__ -> (StakeVoteRegDelegCert -> Certificate'Certificate)
-> Maybe StakeVoteRegDelegCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeVoteRegDelegCert -> Certificate'Certificate
Certificate'StakeVoteRegDelegCert Maybe StakeVoteRegDelegCert
y__))
           (StakeVoteRegDelegCert
-> Lens' (Maybe StakeVoteRegDelegCert) StakeVoteRegDelegCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeVoteRegDelegCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'authCommitteeHotCert" (Prelude.Maybe AuthCommitteeHotCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'authCommitteeHotCert"
-> (Maybe AuthCommitteeHotCert -> f (Maybe AuthCommitteeHotCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'authCommitteeHotCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe AuthCommitteeHotCert -> f (Maybe AuthCommitteeHotCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe AuthCommitteeHotCert -> f (Maybe AuthCommitteeHotCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe AuthCommitteeHotCert)
-> (Maybe Certificate'Certificate
    -> Maybe AuthCommitteeHotCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe AuthCommitteeHotCert)
     (Maybe AuthCommitteeHotCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'AuthCommitteeHotCert AuthCommitteeHotCert
x__val))
                     -> AuthCommitteeHotCert -> Maybe AuthCommitteeHotCert
forall a. a -> Maybe a
Prelude.Just AuthCommitteeHotCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe AuthCommitteeHotCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe AuthCommitteeHotCert
y__ -> (AuthCommitteeHotCert -> Certificate'Certificate)
-> Maybe AuthCommitteeHotCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap AuthCommitteeHotCert -> Certificate'Certificate
Certificate'AuthCommitteeHotCert Maybe AuthCommitteeHotCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "authCommitteeHotCert" AuthCommitteeHotCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "authCommitteeHotCert"
-> (AuthCommitteeHotCert -> f AuthCommitteeHotCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "authCommitteeHotCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((AuthCommitteeHotCert -> f AuthCommitteeHotCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (AuthCommitteeHotCert -> f AuthCommitteeHotCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe AuthCommitteeHotCert -> f (Maybe AuthCommitteeHotCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((AuthCommitteeHotCert -> f AuthCommitteeHotCert)
    -> Maybe AuthCommitteeHotCert -> f (Maybe AuthCommitteeHotCert))
-> (AuthCommitteeHotCert -> f AuthCommitteeHotCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe AuthCommitteeHotCert)
-> (Maybe Certificate'Certificate
    -> Maybe AuthCommitteeHotCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe AuthCommitteeHotCert)
     (Maybe AuthCommitteeHotCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'AuthCommitteeHotCert AuthCommitteeHotCert
x__val))
                        -> AuthCommitteeHotCert -> Maybe AuthCommitteeHotCert
forall a. a -> Maybe a
Prelude.Just AuthCommitteeHotCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe AuthCommitteeHotCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe AuthCommitteeHotCert
y__ -> (AuthCommitteeHotCert -> Certificate'Certificate)
-> Maybe AuthCommitteeHotCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap AuthCommitteeHotCert -> Certificate'Certificate
Certificate'AuthCommitteeHotCert Maybe AuthCommitteeHotCert
y__))
           (AuthCommitteeHotCert
-> Lens' (Maybe AuthCommitteeHotCert) AuthCommitteeHotCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AuthCommitteeHotCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'resignCommitteeColdCert" (Prelude.Maybe ResignCommitteeColdCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'resignCommitteeColdCert"
-> (Maybe ResignCommitteeColdCert
    -> f (Maybe ResignCommitteeColdCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'resignCommitteeColdCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe ResignCommitteeColdCert
     -> f (Maybe ResignCommitteeColdCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe ResignCommitteeColdCert
    -> f (Maybe ResignCommitteeColdCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe ResignCommitteeColdCert)
-> (Maybe Certificate'Certificate
    -> Maybe ResignCommitteeColdCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe ResignCommitteeColdCert)
     (Maybe ResignCommitteeColdCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'ResignCommitteeColdCert ResignCommitteeColdCert
x__val))
                     -> ResignCommitteeColdCert -> Maybe ResignCommitteeColdCert
forall a. a -> Maybe a
Prelude.Just ResignCommitteeColdCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe ResignCommitteeColdCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe ResignCommitteeColdCert
y__ -> (ResignCommitteeColdCert -> Certificate'Certificate)
-> Maybe ResignCommitteeColdCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ResignCommitteeColdCert -> Certificate'Certificate
Certificate'ResignCommitteeColdCert Maybe ResignCommitteeColdCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "resignCommitteeColdCert" ResignCommitteeColdCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "resignCommitteeColdCert"
-> (ResignCommitteeColdCert -> f ResignCommitteeColdCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "resignCommitteeColdCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((ResignCommitteeColdCert -> f ResignCommitteeColdCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (ResignCommitteeColdCert -> f ResignCommitteeColdCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe ResignCommitteeColdCert
  -> f (Maybe ResignCommitteeColdCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((ResignCommitteeColdCert -> f ResignCommitteeColdCert)
    -> Maybe ResignCommitteeColdCert
    -> f (Maybe ResignCommitteeColdCert))
-> (ResignCommitteeColdCert -> f ResignCommitteeColdCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe ResignCommitteeColdCert)
-> (Maybe Certificate'Certificate
    -> Maybe ResignCommitteeColdCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe ResignCommitteeColdCert)
     (Maybe ResignCommitteeColdCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'ResignCommitteeColdCert ResignCommitteeColdCert
x__val))
                        -> ResignCommitteeColdCert -> Maybe ResignCommitteeColdCert
forall a. a -> Maybe a
Prelude.Just ResignCommitteeColdCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe ResignCommitteeColdCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe ResignCommitteeColdCert
y__ -> (ResignCommitteeColdCert -> Certificate'Certificate)
-> Maybe ResignCommitteeColdCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ResignCommitteeColdCert -> Certificate'Certificate
Certificate'ResignCommitteeColdCert Maybe ResignCommitteeColdCert
y__))
           (ResignCommitteeColdCert
-> Lens' (Maybe ResignCommitteeColdCert) ResignCommitteeColdCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResignCommitteeColdCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'regDrepCert" (Prelude.Maybe RegDRepCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'regDrepCert"
-> (Maybe RegDRepCert -> f (Maybe RegDRepCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'regDrepCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe RegDRepCert -> f (Maybe RegDRepCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe RegDRepCert -> f (Maybe RegDRepCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe RegDRepCert)
-> (Maybe Certificate'Certificate
    -> Maybe RegDRepCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe RegDRepCert)
     (Maybe RegDRepCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'RegDrepCert RegDRepCert
x__val))
                     -> RegDRepCert -> Maybe RegDRepCert
forall a. a -> Maybe a
Prelude.Just RegDRepCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe RegDRepCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe RegDRepCert
y__ -> (RegDRepCert -> Certificate'Certificate)
-> Maybe RegDRepCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RegDRepCert -> Certificate'Certificate
Certificate'RegDrepCert Maybe RegDRepCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "regDrepCert" RegDRepCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "regDrepCert"
-> (RegDRepCert -> f RegDRepCert) -> Certificate -> f Certificate
fieldOf Proxy# "regDrepCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((RegDRepCert -> f RegDRepCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (RegDRepCert -> f RegDRepCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe RegDRepCert -> f (Maybe RegDRepCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((RegDRepCert -> f RegDRepCert)
    -> Maybe RegDRepCert -> f (Maybe RegDRepCert))
-> (RegDRepCert -> f RegDRepCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe RegDRepCert)
-> (Maybe Certificate'Certificate
    -> Maybe RegDRepCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe RegDRepCert)
     (Maybe RegDRepCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'RegDrepCert RegDRepCert
x__val))
                        -> RegDRepCert -> Maybe RegDRepCert
forall a. a -> Maybe a
Prelude.Just RegDRepCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe RegDRepCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe RegDRepCert
y__ -> (RegDRepCert -> Certificate'Certificate)
-> Maybe RegDRepCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RegDRepCert -> Certificate'Certificate
Certificate'RegDrepCert Maybe RegDRepCert
y__))
           (RegDRepCert -> Lens' (Maybe RegDRepCert) RegDRepCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RegDRepCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'unregDrepCert" (Prelude.Maybe UnRegDRepCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'unregDrepCert"
-> (Maybe UnRegDRepCert -> f (Maybe UnRegDRepCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'unregDrepCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe UnRegDRepCert -> f (Maybe UnRegDRepCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe UnRegDRepCert -> f (Maybe UnRegDRepCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe UnRegDRepCert)
-> (Maybe Certificate'Certificate
    -> Maybe UnRegDRepCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe UnRegDRepCert)
     (Maybe UnRegDRepCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'UnregDrepCert UnRegDRepCert
x__val))
                     -> UnRegDRepCert -> Maybe UnRegDRepCert
forall a. a -> Maybe a
Prelude.Just UnRegDRepCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe UnRegDRepCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe UnRegDRepCert
y__ -> (UnRegDRepCert -> Certificate'Certificate)
-> Maybe UnRegDRepCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UnRegDRepCert -> Certificate'Certificate
Certificate'UnregDrepCert Maybe UnRegDRepCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "unregDrepCert" UnRegDRepCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "unregDrepCert"
-> (UnRegDRepCert -> f UnRegDRepCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "unregDrepCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((UnRegDRepCert -> f UnRegDRepCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (UnRegDRepCert -> f UnRegDRepCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe UnRegDRepCert -> f (Maybe UnRegDRepCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((UnRegDRepCert -> f UnRegDRepCert)
    -> Maybe UnRegDRepCert -> f (Maybe UnRegDRepCert))
-> (UnRegDRepCert -> f UnRegDRepCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe UnRegDRepCert)
-> (Maybe Certificate'Certificate
    -> Maybe UnRegDRepCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe UnRegDRepCert)
     (Maybe UnRegDRepCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'UnregDrepCert UnRegDRepCert
x__val))
                        -> UnRegDRepCert -> Maybe UnRegDRepCert
forall a. a -> Maybe a
Prelude.Just UnRegDRepCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe UnRegDRepCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe UnRegDRepCert
y__ -> (UnRegDRepCert -> Certificate'Certificate)
-> Maybe UnRegDRepCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UnRegDRepCert -> Certificate'Certificate
Certificate'UnregDrepCert Maybe UnRegDRepCert
y__))
           (UnRegDRepCert -> Lens' (Maybe UnRegDRepCert) UnRegDRepCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UnRegDRepCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Certificate "maybe'updateDrepCert" (Prelude.Maybe UpdateDRepCert) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'updateDrepCert"
-> (Maybe UpdateDRepCert -> f (Maybe UpdateDRepCert))
-> Certificate
-> f Certificate
fieldOf Proxy# "maybe'updateDrepCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((Maybe UpdateDRepCert -> f (Maybe UpdateDRepCert))
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (Maybe UpdateDRepCert -> f (Maybe UpdateDRepCert))
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        ((Maybe Certificate'Certificate -> Maybe UpdateDRepCert)
-> (Maybe Certificate'Certificate
    -> Maybe UpdateDRepCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe UpdateDRepCert)
     (Maybe UpdateDRepCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Certificate'Certificate
x__
              -> case Maybe Certificate'Certificate
x__ of
                   (Prelude.Just (Certificate'UpdateDrepCert UpdateDRepCert
x__val))
                     -> UpdateDRepCert -> Maybe UpdateDRepCert
forall a. a -> Maybe a
Prelude.Just UpdateDRepCert
x__val
                   Maybe Certificate'Certificate
_otherwise -> Maybe UpdateDRepCert
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Certificate'Certificate
_ Maybe UpdateDRepCert
y__ -> (UpdateDRepCert -> Certificate'Certificate)
-> Maybe UpdateDRepCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UpdateDRepCert -> Certificate'Certificate
Certificate'UpdateDrepCert Maybe UpdateDRepCert
y__))
instance Data.ProtoLens.Field.HasField Certificate "updateDrepCert" UpdateDRepCert where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateDrepCert"
-> (UpdateDRepCert -> f UpdateDRepCert)
-> Certificate
-> f Certificate
fieldOf Proxy# "updateDrepCert"
_
    = ((Maybe Certificate'Certificate
  -> f (Maybe Certificate'Certificate))
 -> Certificate -> f Certificate)
-> ((UpdateDRepCert -> f UpdateDRepCert)
    -> Maybe Certificate'Certificate
    -> f (Maybe Certificate'Certificate))
-> (UpdateDRepCert -> f UpdateDRepCert)
-> Certificate
-> f Certificate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Certificate -> Maybe Certificate'Certificate)
-> (Certificate -> Maybe Certificate'Certificate -> Certificate)
-> Lens
     Certificate
     Certificate
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Certificate -> Maybe Certificate'Certificate
_Certificate'certificate
           (\ Certificate
x__ Maybe Certificate'Certificate
y__ -> Certificate
x__ {_Certificate'certificate = y__}))
        (((Maybe UpdateDRepCert -> f (Maybe UpdateDRepCert))
 -> Maybe Certificate'Certificate
 -> f (Maybe Certificate'Certificate))
-> ((UpdateDRepCert -> f UpdateDRepCert)
    -> Maybe UpdateDRepCert -> f (Maybe UpdateDRepCert))
-> (UpdateDRepCert -> f UpdateDRepCert)
-> Maybe Certificate'Certificate
-> f (Maybe Certificate'Certificate)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Certificate'Certificate -> Maybe UpdateDRepCert)
-> (Maybe Certificate'Certificate
    -> Maybe UpdateDRepCert -> Maybe Certificate'Certificate)
-> Lens
     (Maybe Certificate'Certificate)
     (Maybe Certificate'Certificate)
     (Maybe UpdateDRepCert)
     (Maybe UpdateDRepCert)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Certificate'Certificate
x__
                 -> case Maybe Certificate'Certificate
x__ of
                      (Prelude.Just (Certificate'UpdateDrepCert UpdateDRepCert
x__val))
                        -> UpdateDRepCert -> Maybe UpdateDRepCert
forall a. a -> Maybe a
Prelude.Just UpdateDRepCert
x__val
                      Maybe Certificate'Certificate
_otherwise -> Maybe UpdateDRepCert
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Certificate'Certificate
_ Maybe UpdateDRepCert
y__ -> (UpdateDRepCert -> Certificate'Certificate)
-> Maybe UpdateDRepCert -> Maybe Certificate'Certificate
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap UpdateDRepCert -> Certificate'Certificate
Certificate'UpdateDrepCert Maybe UpdateDRepCert
y__))
           (UpdateDRepCert -> Lens' (Maybe UpdateDRepCert) UpdateDRepCert
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UpdateDRepCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Certificate where
  messageName :: Proxy Certificate -> Text
messageName Proxy Certificate
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Certificate"
  packedMessageDescriptor :: Proxy Certificate -> ByteString
packedMessageDescriptor Proxy Certificate
_
    = ByteString
"\n\
      \\vCertificate\DC2X\n\
      \\DC2stake_registration\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2\\\n\
      \\DC4stake_deregistration\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2X\n\
      \\DLEstake_delegation\CAN\ETX \SOH(\v2+.utxorpc.v1beta.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2[\n\
      \\DC1pool_registration\CAN\EOT \SOH(\v2,.utxorpc.v1beta.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2U\n\
      \\SIpool_retirement\CAN\ENQ \SOH(\v2*.utxorpc.v1beta.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2h\n\
      \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v20.utxorpc.v1beta.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2<\n\
      \\bmir_cert\CAN\a \SOH(\v2\US.utxorpc.v1beta.cardano.MirCertH\NULR\amirCert\DC2<\n\
      \\breg_cert\CAN\b \SOH(\v2\US.utxorpc.v1beta.cardano.RegCertH\NULR\aregCert\DC2B\n\
      \\n\
      \unreg_cert\CAN\t \SOH(\v2!.utxorpc.v1beta.cardano.UnRegCertH\NULR\tunregCert\DC2O\n\
      \\SIvote_deleg_cert\CAN\n\
      \ \SOH(\v2%.utxorpc.v1beta.cardano.VoteDelegCertH\NULR\rvoteDelegCert\DC2_\n\
      \\NAKstake_vote_deleg_cert\CAN\v \SOH(\v2*.utxorpc.v1beta.cardano.StakeVoteDelegCertH\NULR\DC2stakeVoteDelegCert\DC2\\\n\
      \\DC4stake_reg_deleg_cert\CAN\f \SOH(\v2).utxorpc.v1beta.cardano.StakeRegDelegCertH\NULR\DC1stakeRegDelegCert\DC2Y\n\
      \\DC3vote_reg_deleg_cert\CAN\r \SOH(\v2(.utxorpc.v1beta.cardano.VoteRegDelegCertH\NULR\DLEvoteRegDelegCert\DC2i\n\
      \\EMstake_vote_reg_deleg_cert\CAN\SO \SOH(\v2-.utxorpc.v1beta.cardano.StakeVoteRegDelegCertH\NULR\NAKstakeVoteRegDelegCert\DC2e\n\
      \\ETBauth_committee_hot_cert\CAN\SI \SOH(\v2,.utxorpc.v1beta.cardano.AuthCommitteeHotCertH\NULR\DC4authCommitteeHotCert\DC2n\n\
      \\SUBresign_committee_cold_cert\CAN\DLE \SOH(\v2/.utxorpc.v1beta.cardano.ResignCommitteeColdCertH\NULR\ETBresignCommitteeColdCert\DC2I\n\
      \\rreg_drep_cert\CAN\DC1 \SOH(\v2#.utxorpc.v1beta.cardano.RegDRepCertH\NULR\vregDrepCert\DC2O\n\
      \\SIunreg_drep_cert\CAN\DC2 \SOH(\v2%.utxorpc.v1beta.cardano.UnRegDRepCertH\NULR\runregDrepCert\DC2R\n\
      \\DLEupdate_drep_cert\CAN\DC3 \SOH(\v2&.utxorpc.v1beta.cardano.UpdateDRepCertH\NULR\SOupdateDrepCert\DC2<\n\
      \\bredeemer\CANd \SOH(\v2 .utxorpc.v1beta.cardano.RedeemerR\bredeemerB\r\n\
      \\vcertificate"
  packedFileDescriptor :: Proxy Certificate -> ByteString
packedFileDescriptor Proxy Certificate
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Certificate)
fieldsByTag
    = let
        redeemer__field_descriptor :: FieldDescriptor Certificate
redeemer__field_descriptor
          = String
-> FieldTypeDescriptor Redeemer
-> FieldAccessor Certificate Redeemer
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"redeemer"
              (MessageOrGroup -> FieldTypeDescriptor Redeemer
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Redeemer)
              (Lens Certificate Certificate (Maybe Redeemer) (Maybe Redeemer)
-> FieldAccessor Certificate Redeemer
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'redeemer")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        stakeRegistration__field_descriptor :: FieldDescriptor Certificate
stakeRegistration__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor Certificate StakeCredential
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_registration"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens' Certificate (Maybe StakeCredential)
-> FieldAccessor Certificate StakeCredential
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeRegistration")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        stakeDeregistration__field_descriptor :: FieldDescriptor Certificate
stakeDeregistration__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor Certificate StakeCredential
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_deregistration"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens' Certificate (Maybe StakeCredential)
-> FieldAccessor Certificate StakeCredential
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeDeregistration")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        stakeDelegation__field_descriptor :: FieldDescriptor Certificate
stakeDelegation__field_descriptor
          = String
-> FieldTypeDescriptor StakeDelegationCert
-> FieldAccessor Certificate StakeDelegationCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_delegation"
              (MessageOrGroup -> FieldTypeDescriptor StakeDelegationCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeDelegationCert)
              (Lens' Certificate (Maybe StakeDelegationCert)
-> FieldAccessor Certificate StakeDelegationCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeDelegation")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        poolRegistration__field_descriptor :: FieldDescriptor Certificate
poolRegistration__field_descriptor
          = String
-> FieldTypeDescriptor PoolRegistrationCert
-> FieldAccessor Certificate PoolRegistrationCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_registration"
              (MessageOrGroup -> FieldTypeDescriptor PoolRegistrationCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PoolRegistrationCert)
              (Lens' Certificate (Maybe PoolRegistrationCert)
-> FieldAccessor Certificate PoolRegistrationCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'poolRegistration")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        poolRetirement__field_descriptor :: FieldDescriptor Certificate
poolRetirement__field_descriptor
          = String
-> FieldTypeDescriptor PoolRetirementCert
-> FieldAccessor Certificate PoolRetirementCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_retirement"
              (MessageOrGroup -> FieldTypeDescriptor PoolRetirementCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PoolRetirementCert)
              (Lens' Certificate (Maybe PoolRetirementCert)
-> FieldAccessor Certificate PoolRetirementCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'poolRetirement")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        genesisKeyDelegation__field_descriptor :: FieldDescriptor Certificate
genesisKeyDelegation__field_descriptor
          = String
-> FieldTypeDescriptor GenesisKeyDelegationCert
-> FieldAccessor Certificate GenesisKeyDelegationCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"genesis_key_delegation"
              (MessageOrGroup -> FieldTypeDescriptor GenesisKeyDelegationCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor GenesisKeyDelegationCert)
              (Lens' Certificate (Maybe GenesisKeyDelegationCert)
-> FieldAccessor Certificate GenesisKeyDelegationCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'genesisKeyDelegation")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        mirCert__field_descriptor :: FieldDescriptor Certificate
mirCert__field_descriptor
          = String
-> FieldTypeDescriptor MirCert
-> FieldAccessor Certificate MirCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"mir_cert"
              (MessageOrGroup -> FieldTypeDescriptor MirCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MirCert)
              (Lens' Certificate (Maybe MirCert)
-> FieldAccessor Certificate MirCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'mirCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        regCert__field_descriptor :: FieldDescriptor Certificate
regCert__field_descriptor
          = String
-> FieldTypeDescriptor RegCert
-> FieldAccessor Certificate RegCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reg_cert"
              (MessageOrGroup -> FieldTypeDescriptor RegCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RegCert)
              (Lens' Certificate (Maybe RegCert)
-> FieldAccessor Certificate RegCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'regCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        unregCert__field_descriptor :: FieldDescriptor Certificate
unregCert__field_descriptor
          = String
-> FieldTypeDescriptor UnRegCert
-> FieldAccessor Certificate UnRegCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"unreg_cert"
              (MessageOrGroup -> FieldTypeDescriptor UnRegCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UnRegCert)
              (Lens' Certificate (Maybe UnRegCert)
-> FieldAccessor Certificate UnRegCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'unregCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        voteDelegCert__field_descriptor :: FieldDescriptor Certificate
voteDelegCert__field_descriptor
          = String
-> FieldTypeDescriptor VoteDelegCert
-> FieldAccessor Certificate VoteDelegCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"vote_deleg_cert"
              (MessageOrGroup -> FieldTypeDescriptor VoteDelegCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor VoteDelegCert)
              (Lens' Certificate (Maybe VoteDelegCert)
-> FieldAccessor Certificate VoteDelegCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'voteDelegCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        stakeVoteDelegCert__field_descriptor :: FieldDescriptor Certificate
stakeVoteDelegCert__field_descriptor
          = String
-> FieldTypeDescriptor StakeVoteDelegCert
-> FieldAccessor Certificate StakeVoteDelegCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_vote_deleg_cert"
              (MessageOrGroup -> FieldTypeDescriptor StakeVoteDelegCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeVoteDelegCert)
              (Lens' Certificate (Maybe StakeVoteDelegCert)
-> FieldAccessor Certificate StakeVoteDelegCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeVoteDelegCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        stakeRegDelegCert__field_descriptor :: FieldDescriptor Certificate
stakeRegDelegCert__field_descriptor
          = String
-> FieldTypeDescriptor StakeRegDelegCert
-> FieldAccessor Certificate StakeRegDelegCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_reg_deleg_cert"
              (MessageOrGroup -> FieldTypeDescriptor StakeRegDelegCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeRegDelegCert)
              (Lens' Certificate (Maybe StakeRegDelegCert)
-> FieldAccessor Certificate StakeRegDelegCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeRegDelegCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        voteRegDelegCert__field_descriptor :: FieldDescriptor Certificate
voteRegDelegCert__field_descriptor
          = String
-> FieldTypeDescriptor VoteRegDelegCert
-> FieldAccessor Certificate VoteRegDelegCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"vote_reg_deleg_cert"
              (MessageOrGroup -> FieldTypeDescriptor VoteRegDelegCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor VoteRegDelegCert)
              (Lens' Certificate (Maybe VoteRegDelegCert)
-> FieldAccessor Certificate VoteRegDelegCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'voteRegDelegCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        stakeVoteRegDelegCert__field_descriptor :: FieldDescriptor Certificate
stakeVoteRegDelegCert__field_descriptor
          = String
-> FieldTypeDescriptor StakeVoteRegDelegCert
-> FieldAccessor Certificate StakeVoteRegDelegCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_vote_reg_deleg_cert"
              (MessageOrGroup -> FieldTypeDescriptor StakeVoteRegDelegCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeVoteRegDelegCert)
              (Lens' Certificate (Maybe StakeVoteRegDelegCert)
-> FieldAccessor Certificate StakeVoteRegDelegCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeVoteRegDelegCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        authCommitteeHotCert__field_descriptor :: FieldDescriptor Certificate
authCommitteeHotCert__field_descriptor
          = String
-> FieldTypeDescriptor AuthCommitteeHotCert
-> FieldAccessor Certificate AuthCommitteeHotCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"auth_committee_hot_cert"
              (MessageOrGroup -> FieldTypeDescriptor AuthCommitteeHotCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AuthCommitteeHotCert)
              (Lens' Certificate (Maybe AuthCommitteeHotCert)
-> FieldAccessor Certificate AuthCommitteeHotCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'authCommitteeHotCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        resignCommitteeColdCert__field_descriptor :: FieldDescriptor Certificate
resignCommitteeColdCert__field_descriptor
          = String
-> FieldTypeDescriptor ResignCommitteeColdCert
-> FieldAccessor Certificate ResignCommitteeColdCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"resign_committee_cold_cert"
              (MessageOrGroup -> FieldTypeDescriptor ResignCommitteeColdCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResignCommitteeColdCert)
              (Lens' Certificate (Maybe ResignCommitteeColdCert)
-> FieldAccessor Certificate ResignCommitteeColdCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'resignCommitteeColdCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        regDrepCert__field_descriptor :: FieldDescriptor Certificate
regDrepCert__field_descriptor
          = String
-> FieldTypeDescriptor RegDRepCert
-> FieldAccessor Certificate RegDRepCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reg_drep_cert"
              (MessageOrGroup -> FieldTypeDescriptor RegDRepCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RegDRepCert)
              (Lens' Certificate (Maybe RegDRepCert)
-> FieldAccessor Certificate RegDRepCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'regDrepCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        unregDrepCert__field_descriptor :: FieldDescriptor Certificate
unregDrepCert__field_descriptor
          = String
-> FieldTypeDescriptor UnRegDRepCert
-> FieldAccessor Certificate UnRegDRepCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"unreg_drep_cert"
              (MessageOrGroup -> FieldTypeDescriptor UnRegDRepCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UnRegDRepCert)
              (Lens' Certificate (Maybe UnRegDRepCert)
-> FieldAccessor Certificate UnRegDRepCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'unregDrepCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
        updateDrepCert__field_descriptor :: FieldDescriptor Certificate
updateDrepCert__field_descriptor
          = String
-> FieldTypeDescriptor UpdateDRepCert
-> FieldAccessor Certificate UpdateDRepCert
-> FieldDescriptor Certificate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"update_drep_cert"
              (MessageOrGroup -> FieldTypeDescriptor UpdateDRepCert
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UpdateDRepCert)
              (Lens' Certificate (Maybe UpdateDRepCert)
-> FieldAccessor Certificate UpdateDRepCert
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'updateDrepCert")) ::
              Data.ProtoLens.FieldDescriptor Certificate
      in
        [(Tag, FieldDescriptor Certificate)]
-> Map Tag (FieldDescriptor Certificate)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
100, FieldDescriptor Certificate
redeemer__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Certificate
stakeRegistration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Certificate
stakeDeregistration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Certificate
stakeDelegation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Certificate
poolRegistration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Certificate
poolRetirement__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Certificate
genesisKeyDelegation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor Certificate
mirCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor Certificate
regCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor Certificate
unregCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor Certificate
voteDelegCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor Certificate
stakeVoteDelegCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor Certificate
stakeRegDelegCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor Certificate
voteRegDelegCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
14, FieldDescriptor Certificate
stakeVoteRegDelegCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
15, FieldDescriptor Certificate
authCommitteeHotCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
16, FieldDescriptor Certificate
resignCommitteeColdCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
17, FieldDescriptor Certificate
regDrepCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
18, FieldDescriptor Certificate
unregDrepCert__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
19, FieldDescriptor Certificate
updateDrepCert__field_descriptor)]
  unknownFields :: Lens' Certificate FieldSet
unknownFields
    = (Certificate -> FieldSet)
-> (Certificate -> FieldSet -> Certificate)
-> Lens' Certificate FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Certificate -> FieldSet
_Certificate'_unknownFields
        (\ Certificate
x__ FieldSet
y__ -> Certificate
x__ {_Certificate'_unknownFields = y__})
  defMessage :: Certificate
defMessage
    = Certificate'_constructor
        {_Certificate'redeemer :: Maybe Redeemer
_Certificate'redeemer = Maybe Redeemer
forall a. Maybe a
Prelude.Nothing,
         _Certificate'certificate :: Maybe Certificate'Certificate
_Certificate'certificate = Maybe Certificate'Certificate
forall a. Maybe a
Prelude.Nothing,
         _Certificate'_unknownFields :: FieldSet
_Certificate'_unknownFields = []}
  parseMessage :: Parser Certificate
parseMessage
    = let
        loop ::
          Certificate -> Data.ProtoLens.Encoding.Bytes.Parser Certificate
        loop :: Certificate -> Parser Certificate
loop Certificate
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
802
                          -> do y <- Parser Redeemer -> String -> Parser Redeemer
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"redeemer"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)
                        Word64
10
                          -> do y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_registration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeRegistration") y x)
                        Word64
18
                          -> do y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_deregistration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeDeregistration") y x)
                        Word64
26
                          -> do y <- Parser StakeDelegationCert -> String -> Parser StakeDelegationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_delegation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeDelegation") y x)
                        Word64
34
                          -> do y <- Parser PoolRegistrationCert
-> String -> Parser PoolRegistrationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pool_registration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"poolRegistration") y x)
                        Word64
42
                          -> do y <- Parser PoolRetirementCert -> String -> Parser PoolRetirementCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pool_retirement"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"poolRetirement") y x)
                        Word64
50
                          -> do y <- Parser GenesisKeyDelegationCert
-> String -> Parser GenesisKeyDelegationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"genesis_key_delegation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"genesisKeyDelegation") y x)
                        Word64
58
                          -> do y <- Parser MirCert -> String -> Parser MirCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"mir_cert"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mirCert") y x)
                        Word64
66
                          -> do y <- Parser RegCert -> String -> Parser RegCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"reg_cert"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"regCert") y x)
                        Word64
74
                          -> do y <- Parser UnRegCert -> String -> Parser UnRegCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"unreg_cert"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"unregCert") y x)
                        Word64
82
                          -> do y <- Parser VoteDelegCert -> String -> Parser VoteDelegCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"vote_deleg_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"voteDelegCert") y x)
                        Word64
90
                          -> do y <- Parser StakeVoteDelegCert -> String -> Parser StakeVoteDelegCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_vote_deleg_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeVoteDelegCert") y x)
                        Word64
98
                          -> do y <- Parser StakeRegDelegCert -> String -> Parser StakeRegDelegCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_reg_deleg_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeRegDelegCert") y x)
                        Word64
106
                          -> do y <- Parser VoteRegDelegCert -> String -> Parser VoteRegDelegCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"vote_reg_deleg_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"voteRegDelegCert") y x)
                        Word64
114
                          -> do y <- Parser StakeVoteRegDelegCert
-> String -> Parser StakeVoteRegDelegCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_vote_reg_deleg_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeVoteRegDelegCert") y x)
                        Word64
122
                          -> do y <- Parser AuthCommitteeHotCert
-> String -> Parser AuthCommitteeHotCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"auth_committee_hot_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"authCommitteeHotCert") y x)
                        Word64
130
                          -> do y <- Parser ResignCommitteeColdCert
-> String -> Parser ResignCommitteeColdCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"resign_committee_cold_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"resignCommitteeColdCert") y x)
                        Word64
138
                          -> do y <- Parser RegDRepCert -> String -> Parser RegDRepCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"reg_drep_cert"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"regDrepCert") y x)
                        Word64
146
                          -> do y <- Parser UnRegDRepCert -> String -> Parser UnRegDRepCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"unreg_drep_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"unregDrepCert") y x)
                        Word64
154
                          -> do y <- Parser UpdateDRepCert -> String -> Parser UpdateDRepCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"update_drep_cert"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"updateDrepCert") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Certificate -> String -> Parser Certificate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Certificate -> Parser Certificate
loop Certificate
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Certificate"
  buildMessage :: Certificate -> Builder
buildMessage
    = \ Certificate
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Redeemer)
  Certificate
  Certificate
  (Maybe Redeemer)
  (Maybe Redeemer)
-> Certificate -> Maybe Redeemer
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'redeemer") Certificate
_x
              of
                Maybe Redeemer
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Redeemer
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
802)
                       ((ByteString -> Builder)
-> (Redeemer -> ByteString) -> Redeemer -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Redeemer -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Redeemer
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Certificate'Certificate)
  Certificate
  Certificate
  (Maybe Certificate'Certificate)
  (Maybe Certificate'Certificate)
-> Certificate -> Maybe Certificate'Certificate
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'certificate") Certificate
_x
                 of
                   Maybe Certificate'Certificate
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just (Certificate'StakeRegistration StakeCredential
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                          ((ByteString -> Builder)
-> (StakeCredential -> ByteString) -> StakeCredential -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StakeCredential -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeCredential
v)
                   (Prelude.Just (Certificate'StakeDeregistration StakeCredential
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (StakeCredential -> ByteString) -> StakeCredential -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StakeCredential -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeCredential
v)
                   (Prelude.Just (Certificate'StakeDelegation StakeDelegationCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                          ((ByteString -> Builder)
-> (StakeDelegationCert -> ByteString)
-> StakeDelegationCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StakeDelegationCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeDelegationCert
v)
                   (Prelude.Just (Certificate'PoolRegistration PoolRegistrationCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                          ((ByteString -> Builder)
-> (PoolRegistrationCert -> ByteString)
-> PoolRegistrationCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             PoolRegistrationCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PoolRegistrationCert
v)
                   (Prelude.Just (Certificate'PoolRetirement PoolRetirementCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                          ((ByteString -> Builder)
-> (PoolRetirementCert -> ByteString)
-> PoolRetirementCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             PoolRetirementCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PoolRetirementCert
v)
                   (Prelude.Just (Certificate'GenesisKeyDelegation GenesisKeyDelegationCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                          ((ByteString -> Builder)
-> (GenesisKeyDelegationCert -> ByteString)
-> GenesisKeyDelegationCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             GenesisKeyDelegationCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage GenesisKeyDelegationCert
v)
                   (Prelude.Just (Certificate'MirCert MirCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                          ((ByteString -> Builder)
-> (MirCert -> ByteString) -> MirCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             MirCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MirCert
v)
                   (Prelude.Just (Certificate'RegCert RegCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                          ((ByteString -> Builder)
-> (RegCert -> ByteString) -> RegCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             RegCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RegCert
v)
                   (Prelude.Just (Certificate'UnregCert UnRegCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
                          ((ByteString -> Builder)
-> (UnRegCert -> ByteString) -> UnRegCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             UnRegCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UnRegCert
v)
                   (Prelude.Just (Certificate'VoteDelegCert VoteDelegCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
                          ((ByteString -> Builder)
-> (VoteDelegCert -> ByteString) -> VoteDelegCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             VoteDelegCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage VoteDelegCert
v)
                   (Prelude.Just (Certificate'StakeVoteDelegCert StakeVoteDelegCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
                          ((ByteString -> Builder)
-> (StakeVoteDelegCert -> ByteString)
-> StakeVoteDelegCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StakeVoteDelegCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeVoteDelegCert
v)
                   (Prelude.Just (Certificate'StakeRegDelegCert StakeRegDelegCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
                          ((ByteString -> Builder)
-> (StakeRegDelegCert -> ByteString)
-> StakeRegDelegCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StakeRegDelegCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeRegDelegCert
v)
                   (Prelude.Just (Certificate'VoteRegDelegCert VoteRegDelegCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
106)
                          ((ByteString -> Builder)
-> (VoteRegDelegCert -> ByteString) -> VoteRegDelegCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             VoteRegDelegCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage VoteRegDelegCert
v)
                   (Prelude.Just (Certificate'StakeVoteRegDelegCert StakeVoteRegDelegCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
114)
                          ((ByteString -> Builder)
-> (StakeVoteRegDelegCert -> ByteString)
-> StakeVoteRegDelegCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             StakeVoteRegDelegCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeVoteRegDelegCert
v)
                   (Prelude.Just (Certificate'AuthCommitteeHotCert AuthCommitteeHotCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
122)
                          ((ByteString -> Builder)
-> (AuthCommitteeHotCert -> ByteString)
-> AuthCommitteeHotCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             AuthCommitteeHotCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AuthCommitteeHotCert
v)
                   (Prelude.Just (Certificate'ResignCommitteeColdCert ResignCommitteeColdCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
130)
                          ((ByteString -> Builder)
-> (ResignCommitteeColdCert -> ByteString)
-> ResignCommitteeColdCert
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             ResignCommitteeColdCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResignCommitteeColdCert
v)
                   (Prelude.Just (Certificate'RegDrepCert RegDRepCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
138)
                          ((ByteString -> Builder)
-> (RegDRepCert -> ByteString) -> RegDRepCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             RegDRepCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RegDRepCert
v)
                   (Prelude.Just (Certificate'UnregDrepCert UnRegDRepCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
146)
                          ((ByteString -> Builder)
-> (UnRegDRepCert -> ByteString) -> UnRegDRepCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             UnRegDRepCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UnRegDRepCert
v)
                   (Prelude.Just (Certificate'UpdateDrepCert UpdateDRepCert
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
154)
                          ((ByteString -> Builder)
-> (UpdateDRepCert -> ByteString) -> UpdateDRepCert -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             UpdateDRepCert -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UpdateDRepCert
v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Certificate Certificate FieldSet FieldSet
-> Certificate -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Certificate Certificate FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Certificate FieldSet
Data.ProtoLens.unknownFields Certificate
_x)))
instance Control.DeepSeq.NFData Certificate where
  rnf :: Certificate -> ()
rnf
    = \ Certificate
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Certificate -> FieldSet
_Certificate'_unknownFields Certificate
x__)
             (Maybe Redeemer -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Certificate -> Maybe Redeemer
_Certificate'redeemer Certificate
x__)
                (Maybe Certificate'Certificate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Certificate -> Maybe Certificate'Certificate
_Certificate'certificate Certificate
x__) ()))
instance Control.DeepSeq.NFData Certificate'Certificate where
  rnf :: Certificate'Certificate -> ()
rnf (Certificate'StakeRegistration StakeCredential
x__) = StakeCredential -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeCredential
x__
  rnf (Certificate'StakeDeregistration StakeCredential
x__) = StakeCredential -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeCredential
x__
  rnf (Certificate'StakeDelegation StakeDelegationCert
x__) = StakeDelegationCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeDelegationCert
x__
  rnf (Certificate'PoolRegistration PoolRegistrationCert
x__) = PoolRegistrationCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PoolRegistrationCert
x__
  rnf (Certificate'PoolRetirement PoolRetirementCert
x__) = PoolRetirementCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PoolRetirementCert
x__
  rnf (Certificate'GenesisKeyDelegation GenesisKeyDelegationCert
x__)
    = GenesisKeyDelegationCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf GenesisKeyDelegationCert
x__
  rnf (Certificate'MirCert MirCert
x__) = MirCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf MirCert
x__
  rnf (Certificate'RegCert RegCert
x__) = RegCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RegCert
x__
  rnf (Certificate'UnregCert UnRegCert
x__) = UnRegCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf UnRegCert
x__
  rnf (Certificate'VoteDelegCert VoteDelegCert
x__) = VoteDelegCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf VoteDelegCert
x__
  rnf (Certificate'StakeVoteDelegCert StakeVoteDelegCert
x__) = StakeVoteDelegCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeVoteDelegCert
x__
  rnf (Certificate'StakeRegDelegCert StakeRegDelegCert
x__) = StakeRegDelegCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeRegDelegCert
x__
  rnf (Certificate'VoteRegDelegCert VoteRegDelegCert
x__) = VoteRegDelegCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf VoteRegDelegCert
x__
  rnf (Certificate'StakeVoteRegDelegCert StakeVoteRegDelegCert
x__)
    = StakeVoteRegDelegCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeVoteRegDelegCert
x__
  rnf (Certificate'AuthCommitteeHotCert AuthCommitteeHotCert
x__)
    = AuthCommitteeHotCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf AuthCommitteeHotCert
x__
  rnf (Certificate'ResignCommitteeColdCert ResignCommitteeColdCert
x__)
    = ResignCommitteeColdCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ResignCommitteeColdCert
x__
  rnf (Certificate'RegDrepCert RegDRepCert
x__) = RegDRepCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RegDRepCert
x__
  rnf (Certificate'UnregDrepCert UnRegDRepCert
x__) = UnRegDRepCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf UnRegDRepCert
x__
  rnf (Certificate'UpdateDrepCert UpdateDRepCert
x__) = UpdateDRepCert -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf UpdateDRepCert
x__
_Certificate'StakeRegistration ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential
_Certificate'StakeRegistration :: Prism' Certificate'Certificate StakeCredential
_Certificate'StakeRegistration
  = (StakeCredential -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe StakeCredential)
-> Prism' Certificate'Certificate StakeCredential
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeCredential -> Certificate'Certificate
Certificate'StakeRegistration
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'StakeRegistration StakeCredential
p__val) -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
p__val
              Certificate'Certificate
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
_Certificate'StakeDeregistration ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential
_Certificate'StakeDeregistration :: Prism' Certificate'Certificate StakeCredential
_Certificate'StakeDeregistration
  = (StakeCredential -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe StakeCredential)
-> Prism' Certificate'Certificate StakeCredential
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeCredential -> Certificate'Certificate
Certificate'StakeDeregistration
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'StakeDeregistration StakeCredential
p__val) -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
p__val
              Certificate'Certificate
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
_Certificate'StakeDelegation ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeDelegationCert
_Certificate'StakeDelegation :: Prism' Certificate'Certificate StakeDelegationCert
_Certificate'StakeDelegation
  = (StakeDelegationCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe StakeDelegationCert)
-> Prism' Certificate'Certificate StakeDelegationCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeDelegationCert -> Certificate'Certificate
Certificate'StakeDelegation
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'StakeDelegation StakeDelegationCert
p__val) -> StakeDelegationCert -> Maybe StakeDelegationCert
forall a. a -> Maybe a
Prelude.Just StakeDelegationCert
p__val
              Certificate'Certificate
_otherwise -> Maybe StakeDelegationCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'PoolRegistration ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRegistrationCert
_Certificate'PoolRegistration :: Prism' Certificate'Certificate PoolRegistrationCert
_Certificate'PoolRegistration
  = (PoolRegistrationCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe PoolRegistrationCert)
-> Prism' Certificate'Certificate PoolRegistrationCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PoolRegistrationCert -> Certificate'Certificate
Certificate'PoolRegistration
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'PoolRegistration PoolRegistrationCert
p__val) -> PoolRegistrationCert -> Maybe PoolRegistrationCert
forall a. a -> Maybe a
Prelude.Just PoolRegistrationCert
p__val
              Certificate'Certificate
_otherwise -> Maybe PoolRegistrationCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'PoolRetirement ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRetirementCert
_Certificate'PoolRetirement :: Prism' Certificate'Certificate PoolRetirementCert
_Certificate'PoolRetirement
  = (PoolRetirementCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe PoolRetirementCert)
-> Prism' Certificate'Certificate PoolRetirementCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PoolRetirementCert -> Certificate'Certificate
Certificate'PoolRetirement
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'PoolRetirement PoolRetirementCert
p__val) -> PoolRetirementCert -> Maybe PoolRetirementCert
forall a. a -> Maybe a
Prelude.Just PoolRetirementCert
p__val
              Certificate'Certificate
_otherwise -> Maybe PoolRetirementCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'GenesisKeyDelegation ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate GenesisKeyDelegationCert
_Certificate'GenesisKeyDelegation :: Prism' Certificate'Certificate GenesisKeyDelegationCert
_Certificate'GenesisKeyDelegation
  = (GenesisKeyDelegationCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe GenesisKeyDelegationCert)
-> Prism' Certificate'Certificate GenesisKeyDelegationCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      GenesisKeyDelegationCert -> Certificate'Certificate
Certificate'GenesisKeyDelegation
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'GenesisKeyDelegation GenesisKeyDelegationCert
p__val) -> GenesisKeyDelegationCert -> Maybe GenesisKeyDelegationCert
forall a. a -> Maybe a
Prelude.Just GenesisKeyDelegationCert
p__val
              Certificate'Certificate
_otherwise -> Maybe GenesisKeyDelegationCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'MirCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate MirCert
_Certificate'MirCert :: Prism' Certificate'Certificate MirCert
_Certificate'MirCert
  = (MirCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe MirCert)
-> Prism' Certificate'Certificate MirCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      MirCert -> Certificate'Certificate
Certificate'MirCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'MirCert MirCert
p__val) -> MirCert -> Maybe MirCert
forall a. a -> Maybe a
Prelude.Just MirCert
p__val
              Certificate'Certificate
_otherwise -> Maybe MirCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'RegCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate RegCert
_Certificate'RegCert :: Prism' Certificate'Certificate RegCert
_Certificate'RegCert
  = (RegCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe RegCert)
-> Prism' Certificate'Certificate RegCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      RegCert -> Certificate'Certificate
Certificate'RegCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'RegCert RegCert
p__val) -> RegCert -> Maybe RegCert
forall a. a -> Maybe a
Prelude.Just RegCert
p__val
              Certificate'Certificate
_otherwise -> Maybe RegCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'UnregCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate UnRegCert
_Certificate'UnregCert :: Prism' Certificate'Certificate UnRegCert
_Certificate'UnregCert
  = (UnRegCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe UnRegCert)
-> Prism' Certificate'Certificate UnRegCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      UnRegCert -> Certificate'Certificate
Certificate'UnregCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'UnregCert UnRegCert
p__val) -> UnRegCert -> Maybe UnRegCert
forall a. a -> Maybe a
Prelude.Just UnRegCert
p__val
              Certificate'Certificate
_otherwise -> Maybe UnRegCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'VoteDelegCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate VoteDelegCert
_Certificate'VoteDelegCert :: Prism' Certificate'Certificate VoteDelegCert
_Certificate'VoteDelegCert
  = (VoteDelegCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe VoteDelegCert)
-> Prism' Certificate'Certificate VoteDelegCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      VoteDelegCert -> Certificate'Certificate
Certificate'VoteDelegCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'VoteDelegCert VoteDelegCert
p__val) -> VoteDelegCert -> Maybe VoteDelegCert
forall a. a -> Maybe a
Prelude.Just VoteDelegCert
p__val
              Certificate'Certificate
_otherwise -> Maybe VoteDelegCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'StakeVoteDelegCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeVoteDelegCert
_Certificate'StakeVoteDelegCert :: Prism' Certificate'Certificate StakeVoteDelegCert
_Certificate'StakeVoteDelegCert
  = (StakeVoteDelegCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe StakeVoteDelegCert)
-> Prism' Certificate'Certificate StakeVoteDelegCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeVoteDelegCert -> Certificate'Certificate
Certificate'StakeVoteDelegCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'StakeVoteDelegCert StakeVoteDelegCert
p__val) -> StakeVoteDelegCert -> Maybe StakeVoteDelegCert
forall a. a -> Maybe a
Prelude.Just StakeVoteDelegCert
p__val
              Certificate'Certificate
_otherwise -> Maybe StakeVoteDelegCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'StakeRegDelegCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeRegDelegCert
_Certificate'StakeRegDelegCert :: Prism' Certificate'Certificate StakeRegDelegCert
_Certificate'StakeRegDelegCert
  = (StakeRegDelegCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe StakeRegDelegCert)
-> Prism' Certificate'Certificate StakeRegDelegCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeRegDelegCert -> Certificate'Certificate
Certificate'StakeRegDelegCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'StakeRegDelegCert StakeRegDelegCert
p__val) -> StakeRegDelegCert -> Maybe StakeRegDelegCert
forall a. a -> Maybe a
Prelude.Just StakeRegDelegCert
p__val
              Certificate'Certificate
_otherwise -> Maybe StakeRegDelegCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'VoteRegDelegCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate VoteRegDelegCert
_Certificate'VoteRegDelegCert :: Prism' Certificate'Certificate VoteRegDelegCert
_Certificate'VoteRegDelegCert
  = (VoteRegDelegCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe VoteRegDelegCert)
-> Prism' Certificate'Certificate VoteRegDelegCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      VoteRegDelegCert -> Certificate'Certificate
Certificate'VoteRegDelegCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'VoteRegDelegCert VoteRegDelegCert
p__val) -> VoteRegDelegCert -> Maybe VoteRegDelegCert
forall a. a -> Maybe a
Prelude.Just VoteRegDelegCert
p__val
              Certificate'Certificate
_otherwise -> Maybe VoteRegDelegCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'StakeVoteRegDelegCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeVoteRegDelegCert
_Certificate'StakeVoteRegDelegCert :: Prism' Certificate'Certificate StakeVoteRegDelegCert
_Certificate'StakeVoteRegDelegCert
  = (StakeVoteRegDelegCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe StakeVoteRegDelegCert)
-> Prism' Certificate'Certificate StakeVoteRegDelegCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeVoteRegDelegCert -> Certificate'Certificate
Certificate'StakeVoteRegDelegCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'StakeVoteRegDelegCert StakeVoteRegDelegCert
p__val) -> StakeVoteRegDelegCert -> Maybe StakeVoteRegDelegCert
forall a. a -> Maybe a
Prelude.Just StakeVoteRegDelegCert
p__val
              Certificate'Certificate
_otherwise -> Maybe StakeVoteRegDelegCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'AuthCommitteeHotCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate AuthCommitteeHotCert
_Certificate'AuthCommitteeHotCert :: Prism' Certificate'Certificate AuthCommitteeHotCert
_Certificate'AuthCommitteeHotCert
  = (AuthCommitteeHotCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe AuthCommitteeHotCert)
-> Prism' Certificate'Certificate AuthCommitteeHotCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      AuthCommitteeHotCert -> Certificate'Certificate
Certificate'AuthCommitteeHotCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'AuthCommitteeHotCert AuthCommitteeHotCert
p__val) -> AuthCommitteeHotCert -> Maybe AuthCommitteeHotCert
forall a. a -> Maybe a
Prelude.Just AuthCommitteeHotCert
p__val
              Certificate'Certificate
_otherwise -> Maybe AuthCommitteeHotCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'ResignCommitteeColdCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate ResignCommitteeColdCert
_Certificate'ResignCommitteeColdCert :: Prism' Certificate'Certificate ResignCommitteeColdCert
_Certificate'ResignCommitteeColdCert
  = (ResignCommitteeColdCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe ResignCommitteeColdCert)
-> Prism' Certificate'Certificate ResignCommitteeColdCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ResignCommitteeColdCert -> Certificate'Certificate
Certificate'ResignCommitteeColdCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'ResignCommitteeColdCert ResignCommitteeColdCert
p__val) -> ResignCommitteeColdCert -> Maybe ResignCommitteeColdCert
forall a. a -> Maybe a
Prelude.Just ResignCommitteeColdCert
p__val
              Certificate'Certificate
_otherwise -> Maybe ResignCommitteeColdCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'RegDrepCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate RegDRepCert
_Certificate'RegDrepCert :: Prism' Certificate'Certificate RegDRepCert
_Certificate'RegDrepCert
  = (RegDRepCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe RegDRepCert)
-> Prism' Certificate'Certificate RegDRepCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      RegDRepCert -> Certificate'Certificate
Certificate'RegDrepCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'RegDrepCert RegDRepCert
p__val) -> RegDRepCert -> Maybe RegDRepCert
forall a. a -> Maybe a
Prelude.Just RegDRepCert
p__val
              Certificate'Certificate
_otherwise -> Maybe RegDRepCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'UnregDrepCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate UnRegDRepCert
_Certificate'UnregDrepCert :: Prism' Certificate'Certificate UnRegDRepCert
_Certificate'UnregDrepCert
  = (UnRegDRepCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe UnRegDRepCert)
-> Prism' Certificate'Certificate UnRegDRepCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      UnRegDRepCert -> Certificate'Certificate
Certificate'UnregDrepCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'UnregDrepCert UnRegDRepCert
p__val) -> UnRegDRepCert -> Maybe UnRegDRepCert
forall a. a -> Maybe a
Prelude.Just UnRegDRepCert
p__val
              Certificate'Certificate
_otherwise -> Maybe UnRegDRepCert
forall a. Maybe a
Prelude.Nothing)
_Certificate'UpdateDrepCert ::
  Data.ProtoLens.Prism.Prism' Certificate'Certificate UpdateDRepCert
_Certificate'UpdateDrepCert :: Prism' Certificate'Certificate UpdateDRepCert
_Certificate'UpdateDrepCert
  = (UpdateDRepCert -> Certificate'Certificate)
-> (Certificate'Certificate -> Maybe UpdateDRepCert)
-> Prism' Certificate'Certificate UpdateDRepCert
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      UpdateDRepCert -> Certificate'Certificate
Certificate'UpdateDrepCert
      (\ Certificate'Certificate
p__
         -> case Certificate'Certificate
p__ of
              (Certificate'UpdateDrepCert UpdateDRepCert
p__val) -> UpdateDRepCert -> Maybe UpdateDRepCert
forall a. a -> Maybe a
Prelude.Just UpdateDRepCert
p__val
              Certificate'Certificate
_otherwise -> Maybe UpdateDRepCert
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'certificateType' @:: Lens' CertificatePattern (Prelude.Maybe CertificatePattern'CertificateType)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeRegistration' @:: Lens' CertificatePattern (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeRegistration' @:: Lens' CertificatePattern StakeCredential@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDeregistration' @:: Lens' CertificatePattern (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDeregistration' @:: Lens' CertificatePattern StakeCredential@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDelegation' @:: Lens' CertificatePattern (Prelude.Maybe StakeDelegationPattern)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDelegation' @:: Lens' CertificatePattern StakeDelegationPattern@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRegistration' @:: Lens' CertificatePattern (Prelude.Maybe PoolRegistrationPattern)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRegistration' @:: Lens' CertificatePattern PoolRegistrationPattern@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRetirement' @:: Lens' CertificatePattern (Prelude.Maybe PoolRetirementPattern)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRetirement' @:: Lens' CertificatePattern PoolRetirementPattern@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anyStakeCredential' @:: Lens' CertificatePattern (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyStakeCredential' @:: Lens' CertificatePattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anyPoolKeyhash' @:: Lens' CertificatePattern (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyPoolKeyhash' @:: Lens' CertificatePattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anyDrep' @:: Lens' CertificatePattern (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyDrep' @:: Lens' CertificatePattern Data.ByteString.ByteString@ -}
data CertificatePattern
  = CertificatePattern'_constructor {CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType :: !(Prelude.Maybe CertificatePattern'CertificateType),
                                     CertificatePattern -> FieldSet
_CertificatePattern'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CertificatePattern -> CertificatePattern -> Bool
(CertificatePattern -> CertificatePattern -> Bool)
-> (CertificatePattern -> CertificatePattern -> Bool)
-> Eq CertificatePattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CertificatePattern -> CertificatePattern -> Bool
== :: CertificatePattern -> CertificatePattern -> Bool
$c/= :: CertificatePattern -> CertificatePattern -> Bool
/= :: CertificatePattern -> CertificatePattern -> Bool
Prelude.Eq, Eq CertificatePattern
Eq CertificatePattern =>
(CertificatePattern -> CertificatePattern -> Ordering)
-> (CertificatePattern -> CertificatePattern -> Bool)
-> (CertificatePattern -> CertificatePattern -> Bool)
-> (CertificatePattern -> CertificatePattern -> Bool)
-> (CertificatePattern -> CertificatePattern -> Bool)
-> (CertificatePattern -> CertificatePattern -> CertificatePattern)
-> (CertificatePattern -> CertificatePattern -> CertificatePattern)
-> Ord CertificatePattern
CertificatePattern -> CertificatePattern -> Bool
CertificatePattern -> CertificatePattern -> Ordering
CertificatePattern -> CertificatePattern -> CertificatePattern
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CertificatePattern -> CertificatePattern -> Ordering
compare :: CertificatePattern -> CertificatePattern -> Ordering
$c< :: CertificatePattern -> CertificatePattern -> Bool
< :: CertificatePattern -> CertificatePattern -> Bool
$c<= :: CertificatePattern -> CertificatePattern -> Bool
<= :: CertificatePattern -> CertificatePattern -> Bool
$c> :: CertificatePattern -> CertificatePattern -> Bool
> :: CertificatePattern -> CertificatePattern -> Bool
$c>= :: CertificatePattern -> CertificatePattern -> Bool
>= :: CertificatePattern -> CertificatePattern -> Bool
$cmax :: CertificatePattern -> CertificatePattern -> CertificatePattern
max :: CertificatePattern -> CertificatePattern -> CertificatePattern
$cmin :: CertificatePattern -> CertificatePattern -> CertificatePattern
min :: CertificatePattern -> CertificatePattern -> CertificatePattern
Prelude.Ord)
instance Prelude.Show CertificatePattern where
  showsPrec :: Int -> CertificatePattern -> ShowS
showsPrec Int
_ CertificatePattern
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CertificatePattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CertificatePattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data CertificatePattern'CertificateType
  = CertificatePattern'StakeRegistration !StakeCredential |
    CertificatePattern'StakeDeregistration !StakeCredential |
    CertificatePattern'StakeDelegation !StakeDelegationPattern |
    CertificatePattern'PoolRegistration !PoolRegistrationPattern |
    CertificatePattern'PoolRetirement !PoolRetirementPattern |
    CertificatePattern'AnyStakeCredential !Data.ByteString.ByteString |
    CertificatePattern'AnyPoolKeyhash !Data.ByteString.ByteString |
    CertificatePattern'AnyDrep !Data.ByteString.ByteString
  deriving stock (Int -> CertificatePattern'CertificateType -> ShowS
[CertificatePattern'CertificateType] -> ShowS
CertificatePattern'CertificateType -> String
(Int -> CertificatePattern'CertificateType -> ShowS)
-> (CertificatePattern'CertificateType -> String)
-> ([CertificatePattern'CertificateType] -> ShowS)
-> Show CertificatePattern'CertificateType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CertificatePattern'CertificateType -> ShowS
showsPrec :: Int -> CertificatePattern'CertificateType -> ShowS
$cshow :: CertificatePattern'CertificateType -> String
show :: CertificatePattern'CertificateType -> String
$cshowList :: [CertificatePattern'CertificateType] -> ShowS
showList :: [CertificatePattern'CertificateType] -> ShowS
Prelude.Show, CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
(CertificatePattern'CertificateType
 -> CertificatePattern'CertificateType -> Bool)
-> (CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType -> Bool)
-> Eq CertificatePattern'CertificateType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
== :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
$c/= :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
/= :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
Prelude.Eq, Eq CertificatePattern'CertificateType
Eq CertificatePattern'CertificateType =>
(CertificatePattern'CertificateType
 -> CertificatePattern'CertificateType -> Ordering)
-> (CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType -> Bool)
-> (CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType -> Bool)
-> (CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType -> Bool)
-> (CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType -> Bool)
-> (CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType
    -> CertificatePattern'CertificateType)
-> Ord CertificatePattern'CertificateType
CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Ordering
CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Ordering
compare :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Ordering
$c< :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
< :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
$c<= :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
<= :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
$c> :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
> :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
$c>= :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
>= :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType -> Bool
$cmax :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
max :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
$cmin :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
min :: CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
-> CertificatePattern'CertificateType
Prelude.Ord)
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'certificateType" (Prelude.Maybe CertificatePattern'CertificateType) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'certificateType"
-> (Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'certificateType"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe CertificatePattern'CertificateType
     -> f (Maybe CertificatePattern'CertificateType))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'stakeRegistration" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeRegistration"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'stakeRegistration"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType -> Maybe StakeCredential)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe StakeCredential
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'StakeRegistration StakeCredential
x__val))
                     -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe StakeCredential
y__ -> (StakeCredential -> CertificatePattern'CertificateType)
-> Maybe StakeCredential
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> CertificatePattern'CertificateType
CertificatePattern'StakeRegistration Maybe StakeCredential
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "stakeRegistration" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeRegistration"
-> (StakeCredential -> f StakeCredential)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "stakeRegistration"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (StakeCredential -> f StakeCredential)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType -> Maybe StakeCredential)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe StakeCredential
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'StakeRegistration StakeCredential
x__val))
                        -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe StakeCredential
y__ -> (StakeCredential -> CertificatePattern'CertificateType)
-> Maybe StakeCredential
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> CertificatePattern'CertificateType
CertificatePattern'StakeRegistration Maybe StakeCredential
y__))
           (StakeCredential -> Lens' (Maybe StakeCredential) StakeCredential
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeCredential
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'stakeDeregistration" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeDeregistration"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'stakeDeregistration"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType -> Maybe StakeCredential)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe StakeCredential
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'StakeDeregistration StakeCredential
x__val))
                     -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe StakeCredential
y__
              -> (StakeCredential -> CertificatePattern'CertificateType)
-> Maybe StakeCredential
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> CertificatePattern'CertificateType
CertificatePattern'StakeDeregistration Maybe StakeCredential
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "stakeDeregistration" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeDeregistration"
-> (StakeCredential -> f StakeCredential)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "stakeDeregistration"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (StakeCredential -> f StakeCredential)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType -> Maybe StakeCredential)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe StakeCredential
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'StakeDeregistration StakeCredential
x__val))
                        -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe StakeCredential
y__
                 -> (StakeCredential -> CertificatePattern'CertificateType)
-> Maybe StakeCredential
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeCredential -> CertificatePattern'CertificateType
CertificatePattern'StakeDeregistration Maybe StakeCredential
y__))
           (StakeCredential -> Lens' (Maybe StakeCredential) StakeCredential
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeCredential
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'stakeDelegation" (Prelude.Maybe StakeDelegationPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeDelegation"
-> (Maybe StakeDelegationPattern
    -> f (Maybe StakeDelegationPattern))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'stakeDelegation"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe StakeDelegationPattern
     -> f (Maybe StakeDelegationPattern))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe StakeDelegationPattern
    -> f (Maybe StakeDelegationPattern))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType
 -> Maybe StakeDelegationPattern)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe StakeDelegationPattern
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe StakeDelegationPattern)
     (Maybe StakeDelegationPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'StakeDelegation StakeDelegationPattern
x__val))
                     -> StakeDelegationPattern -> Maybe StakeDelegationPattern
forall a. a -> Maybe a
Prelude.Just StakeDelegationPattern
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe StakeDelegationPattern
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe StakeDelegationPattern
y__ -> (StakeDelegationPattern -> CertificatePattern'CertificateType)
-> Maybe StakeDelegationPattern
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeDelegationPattern -> CertificatePattern'CertificateType
CertificatePattern'StakeDelegation Maybe StakeDelegationPattern
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "stakeDelegation" StakeDelegationPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeDelegation"
-> (StakeDelegationPattern -> f StakeDelegationPattern)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "stakeDelegation"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((StakeDelegationPattern -> f StakeDelegationPattern)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (StakeDelegationPattern -> f StakeDelegationPattern)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe StakeDelegationPattern -> f (Maybe StakeDelegationPattern))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((StakeDelegationPattern -> f StakeDelegationPattern)
    -> Maybe StakeDelegationPattern
    -> f (Maybe StakeDelegationPattern))
-> (StakeDelegationPattern -> f StakeDelegationPattern)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType
 -> Maybe StakeDelegationPattern)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe StakeDelegationPattern
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe StakeDelegationPattern)
     (Maybe StakeDelegationPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'StakeDelegation StakeDelegationPattern
x__val))
                        -> StakeDelegationPattern -> Maybe StakeDelegationPattern
forall a. a -> Maybe a
Prelude.Just StakeDelegationPattern
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe StakeDelegationPattern
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe StakeDelegationPattern
y__ -> (StakeDelegationPattern -> CertificatePattern'CertificateType)
-> Maybe StakeDelegationPattern
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StakeDelegationPattern -> CertificatePattern'CertificateType
CertificatePattern'StakeDelegation Maybe StakeDelegationPattern
y__))
           (StakeDelegationPattern
-> Lens' (Maybe StakeDelegationPattern) StakeDelegationPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StakeDelegationPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'poolRegistration" (Prelude.Maybe PoolRegistrationPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolRegistration"
-> (Maybe PoolRegistrationPattern
    -> f (Maybe PoolRegistrationPattern))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'poolRegistration"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe PoolRegistrationPattern
     -> f (Maybe PoolRegistrationPattern))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe PoolRegistrationPattern
    -> f (Maybe PoolRegistrationPattern))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType
 -> Maybe PoolRegistrationPattern)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe PoolRegistrationPattern
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe PoolRegistrationPattern)
     (Maybe PoolRegistrationPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'PoolRegistration PoolRegistrationPattern
x__val))
                     -> PoolRegistrationPattern -> Maybe PoolRegistrationPattern
forall a. a -> Maybe a
Prelude.Just PoolRegistrationPattern
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe PoolRegistrationPattern
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe PoolRegistrationPattern
y__ -> (PoolRegistrationPattern -> CertificatePattern'CertificateType)
-> Maybe PoolRegistrationPattern
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRegistrationPattern -> CertificatePattern'CertificateType
CertificatePattern'PoolRegistration Maybe PoolRegistrationPattern
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "poolRegistration" PoolRegistrationPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolRegistration"
-> (PoolRegistrationPattern -> f PoolRegistrationPattern)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "poolRegistration"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((PoolRegistrationPattern -> f PoolRegistrationPattern)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (PoolRegistrationPattern -> f PoolRegistrationPattern)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe PoolRegistrationPattern
  -> f (Maybe PoolRegistrationPattern))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((PoolRegistrationPattern -> f PoolRegistrationPattern)
    -> Maybe PoolRegistrationPattern
    -> f (Maybe PoolRegistrationPattern))
-> (PoolRegistrationPattern -> f PoolRegistrationPattern)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType
 -> Maybe PoolRegistrationPattern)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe PoolRegistrationPattern
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe PoolRegistrationPattern)
     (Maybe PoolRegistrationPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'PoolRegistration PoolRegistrationPattern
x__val))
                        -> PoolRegistrationPattern -> Maybe PoolRegistrationPattern
forall a. a -> Maybe a
Prelude.Just PoolRegistrationPattern
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe PoolRegistrationPattern
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe PoolRegistrationPattern
y__ -> (PoolRegistrationPattern -> CertificatePattern'CertificateType)
-> Maybe PoolRegistrationPattern
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRegistrationPattern -> CertificatePattern'CertificateType
CertificatePattern'PoolRegistration Maybe PoolRegistrationPattern
y__))
           (PoolRegistrationPattern
-> Lens' (Maybe PoolRegistrationPattern) PoolRegistrationPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PoolRegistrationPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'poolRetirement" (Prelude.Maybe PoolRetirementPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolRetirement"
-> (Maybe PoolRetirementPattern -> f (Maybe PoolRetirementPattern))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'poolRetirement"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe PoolRetirementPattern
     -> f (Maybe PoolRetirementPattern))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe PoolRetirementPattern -> f (Maybe PoolRetirementPattern))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType
 -> Maybe PoolRetirementPattern)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe PoolRetirementPattern
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe PoolRetirementPattern)
     (Maybe PoolRetirementPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'PoolRetirement PoolRetirementPattern
x__val))
                     -> PoolRetirementPattern -> Maybe PoolRetirementPattern
forall a. a -> Maybe a
Prelude.Just PoolRetirementPattern
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe PoolRetirementPattern
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe PoolRetirementPattern
y__ -> (PoolRetirementPattern -> CertificatePattern'CertificateType)
-> Maybe PoolRetirementPattern
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRetirementPattern -> CertificatePattern'CertificateType
CertificatePattern'PoolRetirement Maybe PoolRetirementPattern
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "poolRetirement" PoolRetirementPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolRetirement"
-> (PoolRetirementPattern -> f PoolRetirementPattern)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "poolRetirement"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((PoolRetirementPattern -> f PoolRetirementPattern)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (PoolRetirementPattern -> f PoolRetirementPattern)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe PoolRetirementPattern -> f (Maybe PoolRetirementPattern))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((PoolRetirementPattern -> f PoolRetirementPattern)
    -> Maybe PoolRetirementPattern -> f (Maybe PoolRetirementPattern))
-> (PoolRetirementPattern -> f PoolRetirementPattern)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType
 -> Maybe PoolRetirementPattern)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe PoolRetirementPattern
    -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe PoolRetirementPattern)
     (Maybe PoolRetirementPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'PoolRetirement PoolRetirementPattern
x__val))
                        -> PoolRetirementPattern -> Maybe PoolRetirementPattern
forall a. a -> Maybe a
Prelude.Just PoolRetirementPattern
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe PoolRetirementPattern
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe PoolRetirementPattern
y__ -> (PoolRetirementPattern -> CertificatePattern'CertificateType)
-> Maybe PoolRetirementPattern
-> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PoolRetirementPattern -> CertificatePattern'CertificateType
CertificatePattern'PoolRetirement Maybe PoolRetirementPattern
y__))
           (PoolRetirementPattern
-> Lens' (Maybe PoolRetirementPattern) PoolRetirementPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PoolRetirementPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'anyStakeCredential" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'anyStakeCredential"
-> (Maybe ByteString -> f (Maybe ByteString))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'anyStakeCredential"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe ByteString -> f (Maybe ByteString))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType -> Maybe ByteString)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe ByteString -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'AnyStakeCredential ByteString
x__val))
                     -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe ByteString
y__
              -> (ByteString -> CertificatePattern'CertificateType)
-> Maybe ByteString -> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyStakeCredential Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "anyStakeCredential" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "anyStakeCredential"
-> (ByteString -> f ByteString)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "anyStakeCredential"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((ByteString -> f ByteString)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (ByteString -> f ByteString)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType -> Maybe ByteString)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe ByteString -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'AnyStakeCredential ByteString
x__val))
                        -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe ByteString
y__
                 -> (ByteString -> CertificatePattern'CertificateType)
-> Maybe ByteString -> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyStakeCredential Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'anyPoolKeyhash" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'anyPoolKeyhash"
-> (Maybe ByteString -> f (Maybe ByteString))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'anyPoolKeyhash"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe ByteString -> f (Maybe ByteString))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType -> Maybe ByteString)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe ByteString -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'AnyPoolKeyhash ByteString
x__val))
                     -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe ByteString
y__ -> (ByteString -> CertificatePattern'CertificateType)
-> Maybe ByteString -> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyPoolKeyhash Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "anyPoolKeyhash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "anyPoolKeyhash"
-> (ByteString -> f ByteString)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "anyPoolKeyhash"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((ByteString -> f ByteString)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (ByteString -> f ByteString)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType -> Maybe ByteString)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe ByteString -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'AnyPoolKeyhash ByteString
x__val))
                        -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe ByteString
y__ -> (ByteString -> CertificatePattern'CertificateType)
-> Maybe ByteString -> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyPoolKeyhash Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'anyDrep" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'anyDrep"
-> (Maybe ByteString -> f (Maybe ByteString))
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "maybe'anyDrep"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (Maybe ByteString -> f (Maybe ByteString))
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        ((Maybe CertificatePattern'CertificateType -> Maybe ByteString)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe ByteString -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe CertificatePattern'CertificateType
x__
              -> case Maybe CertificatePattern'CertificateType
x__ of
                   (Prelude.Just (CertificatePattern'AnyDrep ByteString
x__val))
                     -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe CertificatePattern'CertificateType
_ Maybe ByteString
y__ -> (ByteString -> CertificatePattern'CertificateType)
-> Maybe ByteString -> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyDrep Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField CertificatePattern "anyDrep" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "anyDrep"
-> (ByteString -> f ByteString)
-> CertificatePattern
-> f CertificatePattern
fieldOf Proxy# "anyDrep"
_
    = ((Maybe CertificatePattern'CertificateType
  -> f (Maybe CertificatePattern'CertificateType))
 -> CertificatePattern -> f CertificatePattern)
-> ((ByteString -> f ByteString)
    -> Maybe CertificatePattern'CertificateType
    -> f (Maybe CertificatePattern'CertificateType))
-> (ByteString -> f ByteString)
-> CertificatePattern
-> f CertificatePattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CertificatePattern -> Maybe CertificatePattern'CertificateType)
-> (CertificatePattern
    -> Maybe CertificatePattern'CertificateType -> CertificatePattern)
-> Lens
     CertificatePattern
     CertificatePattern
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType
           (\ CertificatePattern
x__ Maybe CertificatePattern'CertificateType
y__ -> CertificatePattern
x__ {_CertificatePattern'certificateType = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe CertificatePattern'CertificateType
 -> f (Maybe CertificatePattern'CertificateType))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe CertificatePattern'CertificateType
-> f (Maybe CertificatePattern'CertificateType)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CertificatePattern'CertificateType -> Maybe ByteString)
-> (Maybe CertificatePattern'CertificateType
    -> Maybe ByteString -> Maybe CertificatePattern'CertificateType)
-> Lens
     (Maybe CertificatePattern'CertificateType)
     (Maybe CertificatePattern'CertificateType)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe CertificatePattern'CertificateType
x__
                 -> case Maybe CertificatePattern'CertificateType
x__ of
                      (Prelude.Just (CertificatePattern'AnyDrep ByteString
x__val))
                        -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe CertificatePattern'CertificateType
_ Maybe ByteString
y__ -> (ByteString -> CertificatePattern'CertificateType)
-> Maybe ByteString -> Maybe CertificatePattern'CertificateType
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyDrep Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message CertificatePattern where
  messageName :: Proxy CertificatePattern -> Text
messageName Proxy CertificatePattern
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.CertificatePattern"
  packedMessageDescriptor :: Proxy CertificatePattern -> ByteString
packedMessageDescriptor Proxy CertificatePattern
_
    = ByteString
"\n\
      \\DC2CertificatePattern\DC2X\n\
      \\DC2stake_registration\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2\\\n\
      \\DC4stake_deregistration\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2[\n\
      \\DLEstake_delegation\CAN\ETX \SOH(\v2..utxorpc.v1beta.cardano.StakeDelegationPatternH\NULR\SIstakeDelegation\DC2^\n\
      \\DC1pool_registration\CAN\EOT \SOH(\v2/.utxorpc.v1beta.cardano.PoolRegistrationPatternH\NULR\DLEpoolRegistration\DC2X\n\
      \\SIpool_retirement\CAN\ENQ \SOH(\v2-.utxorpc.v1beta.cardano.PoolRetirementPatternH\NULR\SOpoolRetirement\DC22\n\
      \\DC4any_stake_credential\CAN\ACK \SOH(\fH\NULR\DC2anyStakeCredential\DC2*\n\
      \\DLEany_pool_keyhash\CAN\a \SOH(\fH\NULR\SOanyPoolKeyhash\DC2\ESC\n\
      \\bany_drep\CAN\b \SOH(\fH\NULR\aanyDrepB\DC2\n\
      \\DLEcertificate_type"
  packedFileDescriptor :: Proxy CertificatePattern -> ByteString
packedFileDescriptor Proxy CertificatePattern
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CertificatePattern)
fieldsByTag
    = let
        stakeRegistration__field_descriptor :: FieldDescriptor CertificatePattern
stakeRegistration__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor CertificatePattern StakeCredential
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_registration"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens' CertificatePattern (Maybe StakeCredential)
-> FieldAccessor CertificatePattern StakeCredential
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeRegistration")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
        stakeDeregistration__field_descriptor :: FieldDescriptor CertificatePattern
stakeDeregistration__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor CertificatePattern StakeCredential
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_deregistration"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens' CertificatePattern (Maybe StakeCredential)
-> FieldAccessor CertificatePattern StakeCredential
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeDeregistration")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
        stakeDelegation__field_descriptor :: FieldDescriptor CertificatePattern
stakeDelegation__field_descriptor
          = String
-> FieldTypeDescriptor StakeDelegationPattern
-> FieldAccessor CertificatePattern StakeDelegationPattern
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_delegation"
              (MessageOrGroup -> FieldTypeDescriptor StakeDelegationPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeDelegationPattern)
              (Lens' CertificatePattern (Maybe StakeDelegationPattern)
-> FieldAccessor CertificatePattern StakeDelegationPattern
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stakeDelegation")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
        poolRegistration__field_descriptor :: FieldDescriptor CertificatePattern
poolRegistration__field_descriptor
          = String
-> FieldTypeDescriptor PoolRegistrationPattern
-> FieldAccessor CertificatePattern PoolRegistrationPattern
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_registration"
              (MessageOrGroup -> FieldTypeDescriptor PoolRegistrationPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PoolRegistrationPattern)
              (Lens' CertificatePattern (Maybe PoolRegistrationPattern)
-> FieldAccessor CertificatePattern PoolRegistrationPattern
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'poolRegistration")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
        poolRetirement__field_descriptor :: FieldDescriptor CertificatePattern
poolRetirement__field_descriptor
          = String
-> FieldTypeDescriptor PoolRetirementPattern
-> FieldAccessor CertificatePattern PoolRetirementPattern
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_retirement"
              (MessageOrGroup -> FieldTypeDescriptor PoolRetirementPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PoolRetirementPattern)
              (Lens' CertificatePattern (Maybe PoolRetirementPattern)
-> FieldAccessor CertificatePattern PoolRetirementPattern
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'poolRetirement")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
        anyStakeCredential__field_descriptor :: FieldDescriptor CertificatePattern
anyStakeCredential__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor CertificatePattern ByteString
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"any_stake_credential"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' CertificatePattern (Maybe ByteString)
-> FieldAccessor CertificatePattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'anyStakeCredential")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
        anyPoolKeyhash__field_descriptor :: FieldDescriptor CertificatePattern
anyPoolKeyhash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor CertificatePattern ByteString
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"any_pool_keyhash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' CertificatePattern (Maybe ByteString)
-> FieldAccessor CertificatePattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'anyPoolKeyhash")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
        anyDrep__field_descriptor :: FieldDescriptor CertificatePattern
anyDrep__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor CertificatePattern ByteString
-> FieldDescriptor CertificatePattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"any_drep"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' CertificatePattern (Maybe ByteString)
-> FieldAccessor CertificatePattern ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'anyDrep")) ::
              Data.ProtoLens.FieldDescriptor CertificatePattern
      in
        [(Tag, FieldDescriptor CertificatePattern)]
-> Map Tag (FieldDescriptor CertificatePattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CertificatePattern
stakeRegistration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CertificatePattern
stakeDeregistration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor CertificatePattern
stakeDelegation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor CertificatePattern
poolRegistration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor CertificatePattern
poolRetirement__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor CertificatePattern
anyStakeCredential__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor CertificatePattern
anyPoolKeyhash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor CertificatePattern
anyDrep__field_descriptor)]
  unknownFields :: Lens' CertificatePattern FieldSet
unknownFields
    = (CertificatePattern -> FieldSet)
-> (CertificatePattern -> FieldSet -> CertificatePattern)
-> Lens' CertificatePattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CertificatePattern -> FieldSet
_CertificatePattern'_unknownFields
        (\ CertificatePattern
x__ FieldSet
y__ -> CertificatePattern
x__ {_CertificatePattern'_unknownFields = y__})
  defMessage :: CertificatePattern
defMessage
    = CertificatePattern'_constructor
        {_CertificatePattern'certificateType :: Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType = Maybe CertificatePattern'CertificateType
forall a. Maybe a
Prelude.Nothing,
         _CertificatePattern'_unknownFields :: FieldSet
_CertificatePattern'_unknownFields = []}
  parseMessage :: Parser CertificatePattern
parseMessage
    = let
        loop ::
          CertificatePattern
          -> Data.ProtoLens.Encoding.Bytes.Parser CertificatePattern
        loop :: CertificatePattern -> Parser CertificatePattern
loop CertificatePattern
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_registration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeRegistration") y x)
                        Word64
18
                          -> do y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_deregistration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeDeregistration") y x)
                        Word64
26
                          -> do y <- Parser StakeDelegationPattern
-> String -> Parser StakeDelegationPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"stake_delegation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeDelegation") y x)
                        Word64
34
                          -> do y <- Parser PoolRegistrationPattern
-> String -> Parser PoolRegistrationPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pool_registration"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"poolRegistration") y x)
                        Word64
42
                          -> do y <- Parser PoolRetirementPattern
-> String -> Parser PoolRetirementPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pool_retirement"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"poolRetirement") y x)
                        Word64
50
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"any_stake_credential"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"anyStakeCredential") y x)
                        Word64
58
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"any_pool_keyhash"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"anyPoolKeyhash") y x)
                        Word64
66
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"any_drep"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anyDrep") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser CertificatePattern -> String -> Parser CertificatePattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CertificatePattern -> Parser CertificatePattern
loop CertificatePattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CertificatePattern"
  buildMessage :: CertificatePattern -> Builder
buildMessage
    = \ CertificatePattern
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe CertificatePattern'CertificateType)
  CertificatePattern
  CertificatePattern
  (Maybe CertificatePattern'CertificateType)
  (Maybe CertificatePattern'CertificateType)
-> CertificatePattern -> Maybe CertificatePattern'CertificateType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'certificateType") CertificatePattern
_x
              of
                Maybe CertificatePattern'CertificateType
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (CertificatePattern'StakeRegistration StakeCredential
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (StakeCredential -> ByteString) -> StakeCredential -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          StakeCredential -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeCredential
v)
                (Prelude.Just (CertificatePattern'StakeDeregistration StakeCredential
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (StakeCredential -> ByteString) -> StakeCredential -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          StakeCredential -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeCredential
v)
                (Prelude.Just (CertificatePattern'StakeDelegation StakeDelegationPattern
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (StakeDelegationPattern -> ByteString)
-> StakeDelegationPattern
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          StakeDelegationPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StakeDelegationPattern
v)
                (Prelude.Just (CertificatePattern'PoolRegistration PoolRegistrationPattern
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                       ((ByteString -> Builder)
-> (PoolRegistrationPattern -> ByteString)
-> PoolRegistrationPattern
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          PoolRegistrationPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PoolRegistrationPattern
v)
                (Prelude.Just (CertificatePattern'PoolRetirement PoolRetirementPattern
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                       ((ByteString -> Builder)
-> (PoolRetirementPattern -> ByteString)
-> PoolRetirementPattern
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          PoolRetirementPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PoolRetirementPattern
v)
                (Prelude.Just (CertificatePattern'AnyStakeCredential ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v)
                (Prelude.Just (CertificatePattern'AnyPoolKeyhash ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v)
                (Prelude.Just (CertificatePattern'AnyDrep ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet CertificatePattern CertificatePattern FieldSet FieldSet
-> CertificatePattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet CertificatePattern CertificatePattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CertificatePattern FieldSet
Data.ProtoLens.unknownFields CertificatePattern
_x))
instance Control.DeepSeq.NFData CertificatePattern where
  rnf :: CertificatePattern -> ()
rnf
    = \ CertificatePattern
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CertificatePattern -> FieldSet
_CertificatePattern'_unknownFields CertificatePattern
x__)
             (Maybe CertificatePattern'CertificateType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CertificatePattern -> Maybe CertificatePattern'CertificateType
_CertificatePattern'certificateType CertificatePattern
x__) ())
instance Control.DeepSeq.NFData CertificatePattern'CertificateType where
  rnf :: CertificatePattern'CertificateType -> ()
rnf (CertificatePattern'StakeRegistration StakeCredential
x__)
    = StakeCredential -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeCredential
x__
  rnf (CertificatePattern'StakeDeregistration StakeCredential
x__)
    = StakeCredential -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeCredential
x__
  rnf (CertificatePattern'StakeDelegation StakeDelegationPattern
x__)
    = StakeDelegationPattern -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StakeDelegationPattern
x__
  rnf (CertificatePattern'PoolRegistration PoolRegistrationPattern
x__)
    = PoolRegistrationPattern -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PoolRegistrationPattern
x__
  rnf (CertificatePattern'PoolRetirement PoolRetirementPattern
x__)
    = PoolRetirementPattern -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PoolRetirementPattern
x__
  rnf (CertificatePattern'AnyStakeCredential ByteString
x__)
    = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (CertificatePattern'AnyPoolKeyhash ByteString
x__)
    = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (CertificatePattern'AnyDrep ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
_CertificatePattern'StakeRegistration ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType StakeCredential
_CertificatePattern'StakeRegistration :: Prism' CertificatePattern'CertificateType StakeCredential
_CertificatePattern'StakeRegistration
  = (StakeCredential -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType -> Maybe StakeCredential)
-> Prism' CertificatePattern'CertificateType StakeCredential
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeCredential -> CertificatePattern'CertificateType
CertificatePattern'StakeRegistration
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'StakeRegistration StakeCredential
p__val)
                -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
_CertificatePattern'StakeDeregistration ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType StakeCredential
_CertificatePattern'StakeDeregistration :: Prism' CertificatePattern'CertificateType StakeCredential
_CertificatePattern'StakeDeregistration
  = (StakeCredential -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType -> Maybe StakeCredential)
-> Prism' CertificatePattern'CertificateType StakeCredential
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeCredential -> CertificatePattern'CertificateType
CertificatePattern'StakeDeregistration
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'StakeDeregistration StakeCredential
p__val)
                -> StakeCredential -> Maybe StakeCredential
forall a. a -> Maybe a
Prelude.Just StakeCredential
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing)
_CertificatePattern'StakeDelegation ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType StakeDelegationPattern
_CertificatePattern'StakeDelegation :: Prism' CertificatePattern'CertificateType StakeDelegationPattern
_CertificatePattern'StakeDelegation
  = (StakeDelegationPattern -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType
    -> Maybe StakeDelegationPattern)
-> Prism' CertificatePattern'CertificateType StakeDelegationPattern
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      StakeDelegationPattern -> CertificatePattern'CertificateType
CertificatePattern'StakeDelegation
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'StakeDelegation StakeDelegationPattern
p__val) -> StakeDelegationPattern -> Maybe StakeDelegationPattern
forall a. a -> Maybe a
Prelude.Just StakeDelegationPattern
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe StakeDelegationPattern
forall a. Maybe a
Prelude.Nothing)
_CertificatePattern'PoolRegistration ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType PoolRegistrationPattern
_CertificatePattern'PoolRegistration :: Prism' CertificatePattern'CertificateType PoolRegistrationPattern
_CertificatePattern'PoolRegistration
  = (PoolRegistrationPattern -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType
    -> Maybe PoolRegistrationPattern)
-> Prism'
     CertificatePattern'CertificateType PoolRegistrationPattern
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PoolRegistrationPattern -> CertificatePattern'CertificateType
CertificatePattern'PoolRegistration
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'PoolRegistration PoolRegistrationPattern
p__val) -> PoolRegistrationPattern -> Maybe PoolRegistrationPattern
forall a. a -> Maybe a
Prelude.Just PoolRegistrationPattern
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe PoolRegistrationPattern
forall a. Maybe a
Prelude.Nothing)
_CertificatePattern'PoolRetirement ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType PoolRetirementPattern
_CertificatePattern'PoolRetirement :: Prism' CertificatePattern'CertificateType PoolRetirementPattern
_CertificatePattern'PoolRetirement
  = (PoolRetirementPattern -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType
    -> Maybe PoolRetirementPattern)
-> Prism' CertificatePattern'CertificateType PoolRetirementPattern
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PoolRetirementPattern -> CertificatePattern'CertificateType
CertificatePattern'PoolRetirement
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'PoolRetirement PoolRetirementPattern
p__val) -> PoolRetirementPattern -> Maybe PoolRetirementPattern
forall a. a -> Maybe a
Prelude.Just PoolRetirementPattern
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe PoolRetirementPattern
forall a. Maybe a
Prelude.Nothing)
_CertificatePattern'AnyStakeCredential ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType Data.ByteString.ByteString
_CertificatePattern'AnyStakeCredential :: Prism' CertificatePattern'CertificateType ByteString
_CertificatePattern'AnyStakeCredential
  = (ByteString -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType -> Maybe ByteString)
-> Prism' CertificatePattern'CertificateType ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyStakeCredential
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'AnyStakeCredential ByteString
p__val)
                -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_CertificatePattern'AnyPoolKeyhash ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType Data.ByteString.ByteString
_CertificatePattern'AnyPoolKeyhash :: Prism' CertificatePattern'CertificateType ByteString
_CertificatePattern'AnyPoolKeyhash
  = (ByteString -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType -> Maybe ByteString)
-> Prism' CertificatePattern'CertificateType ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyPoolKeyhash
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'AnyPoolKeyhash ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_CertificatePattern'AnyDrep ::
  Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType Data.ByteString.ByteString
_CertificatePattern'AnyDrep :: Prism' CertificatePattern'CertificateType ByteString
_CertificatePattern'AnyDrep
  = (ByteString -> CertificatePattern'CertificateType)
-> (CertificatePattern'CertificateType -> Maybe ByteString)
-> Prism' CertificatePattern'CertificateType ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> CertificatePattern'CertificateType
CertificatePattern'AnyDrep
      (\ CertificatePattern'CertificateType
p__
         -> case CertificatePattern'CertificateType
p__ of
              (CertificatePattern'AnyDrep ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              CertificatePattern'CertificateType
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.collateral' @:: Lens' Collateral [TxInput]@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'collateral' @:: Lens' Collateral (Data.Vector.Vector TxInput)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.collateralReturn' @:: Lens' Collateral TxOutput@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'collateralReturn' @:: Lens' Collateral (Prelude.Maybe TxOutput)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.totalCollateral' @:: Lens' Collateral BigInt@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'totalCollateral' @:: Lens' Collateral (Prelude.Maybe BigInt)@ -}
data Collateral
  = Collateral'_constructor {Collateral -> Vector TxInput
_Collateral'collateral :: !(Data.Vector.Vector TxInput),
                             Collateral -> Maybe TxOutput
_Collateral'collateralReturn :: !(Prelude.Maybe TxOutput),
                             Collateral -> Maybe BigInt
_Collateral'totalCollateral :: !(Prelude.Maybe BigInt),
                             Collateral -> FieldSet
_Collateral'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Collateral -> Collateral -> Bool
(Collateral -> Collateral -> Bool)
-> (Collateral -> Collateral -> Bool) -> Eq Collateral
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Collateral -> Collateral -> Bool
== :: Collateral -> Collateral -> Bool
$c/= :: Collateral -> Collateral -> Bool
/= :: Collateral -> Collateral -> Bool
Prelude.Eq, Eq Collateral
Eq Collateral =>
(Collateral -> Collateral -> Ordering)
-> (Collateral -> Collateral -> Bool)
-> (Collateral -> Collateral -> Bool)
-> (Collateral -> Collateral -> Bool)
-> (Collateral -> Collateral -> Bool)
-> (Collateral -> Collateral -> Collateral)
-> (Collateral -> Collateral -> Collateral)
-> Ord Collateral
Collateral -> Collateral -> Bool
Collateral -> Collateral -> Ordering
Collateral -> Collateral -> Collateral
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Collateral -> Collateral -> Ordering
compare :: Collateral -> Collateral -> Ordering
$c< :: Collateral -> Collateral -> Bool
< :: Collateral -> Collateral -> Bool
$c<= :: Collateral -> Collateral -> Bool
<= :: Collateral -> Collateral -> Bool
$c> :: Collateral -> Collateral -> Bool
> :: Collateral -> Collateral -> Bool
$c>= :: Collateral -> Collateral -> Bool
>= :: Collateral -> Collateral -> Bool
$cmax :: Collateral -> Collateral -> Collateral
max :: Collateral -> Collateral -> Collateral
$cmin :: Collateral -> Collateral -> Collateral
min :: Collateral -> Collateral -> Collateral
Prelude.Ord)
instance Prelude.Show Collateral where
  showsPrec :: Int -> Collateral -> ShowS
showsPrec Int
_ Collateral
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Collateral -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Collateral
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Collateral "collateral" [TxInput] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "collateral"
-> ([TxInput] -> f [TxInput]) -> Collateral -> f Collateral
fieldOf Proxy# "collateral"
_
    = ((Vector TxInput -> f (Vector TxInput))
 -> Collateral -> f Collateral)
-> (([TxInput] -> f [TxInput])
    -> Vector TxInput -> f (Vector TxInput))
-> ([TxInput] -> f [TxInput])
-> Collateral
-> f Collateral
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Collateral -> Vector TxInput)
-> (Collateral -> Vector TxInput -> Collateral)
-> Lens Collateral Collateral (Vector TxInput) (Vector TxInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Collateral -> Vector TxInput
_Collateral'collateral
           (\ Collateral
x__ Vector TxInput
y__ -> Collateral
x__ {_Collateral'collateral = y__}))
        ((Vector TxInput -> [TxInput])
-> (Vector TxInput -> [TxInput] -> Vector TxInput)
-> Lens (Vector TxInput) (Vector TxInput) [TxInput] [TxInput]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TxInput -> [TxInput]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector TxInput
_ [TxInput]
y__ -> [TxInput] -> Vector TxInput
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxInput]
y__))
instance Data.ProtoLens.Field.HasField Collateral "vec'collateral" (Data.Vector.Vector TxInput) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'collateral"
-> (Vector TxInput -> f (Vector TxInput))
-> Collateral
-> f Collateral
fieldOf Proxy# "vec'collateral"
_
    = ((Vector TxInput -> f (Vector TxInput))
 -> Collateral -> f Collateral)
-> ((Vector TxInput -> f (Vector TxInput))
    -> Vector TxInput -> f (Vector TxInput))
-> (Vector TxInput -> f (Vector TxInput))
-> Collateral
-> f Collateral
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Collateral -> Vector TxInput)
-> (Collateral -> Vector TxInput -> Collateral)
-> Lens Collateral Collateral (Vector TxInput) (Vector TxInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Collateral -> Vector TxInput
_Collateral'collateral
           (\ Collateral
x__ Vector TxInput
y__ -> Collateral
x__ {_Collateral'collateral = y__}))
        (Vector TxInput -> f (Vector TxInput))
-> Vector TxInput -> f (Vector TxInput)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Collateral "collateralReturn" TxOutput where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "collateralReturn"
-> (TxOutput -> f TxOutput) -> Collateral -> f Collateral
fieldOf Proxy# "collateralReturn"
_
    = ((Maybe TxOutput -> f (Maybe TxOutput))
 -> Collateral -> f Collateral)
-> ((TxOutput -> f TxOutput)
    -> Maybe TxOutput -> f (Maybe TxOutput))
-> (TxOutput -> f TxOutput)
-> Collateral
-> f Collateral
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Collateral -> Maybe TxOutput)
-> (Collateral -> Maybe TxOutput -> Collateral)
-> Lens Collateral Collateral (Maybe TxOutput) (Maybe TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Collateral -> Maybe TxOutput
_Collateral'collateralReturn
           (\ Collateral
x__ Maybe TxOutput
y__ -> Collateral
x__ {_Collateral'collateralReturn = y__}))
        (TxOutput -> Lens' (Maybe TxOutput) TxOutput
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxOutput
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Collateral "maybe'collateralReturn" (Prelude.Maybe TxOutput) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'collateralReturn"
-> (Maybe TxOutput -> f (Maybe TxOutput))
-> Collateral
-> f Collateral
fieldOf Proxy# "maybe'collateralReturn"
_
    = ((Maybe TxOutput -> f (Maybe TxOutput))
 -> Collateral -> f Collateral)
-> ((Maybe TxOutput -> f (Maybe TxOutput))
    -> Maybe TxOutput -> f (Maybe TxOutput))
-> (Maybe TxOutput -> f (Maybe TxOutput))
-> Collateral
-> f Collateral
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Collateral -> Maybe TxOutput)
-> (Collateral -> Maybe TxOutput -> Collateral)
-> Lens Collateral Collateral (Maybe TxOutput) (Maybe TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Collateral -> Maybe TxOutput
_Collateral'collateralReturn
           (\ Collateral
x__ Maybe TxOutput
y__ -> Collateral
x__ {_Collateral'collateralReturn = y__}))
        (Maybe TxOutput -> f (Maybe TxOutput))
-> Maybe TxOutput -> f (Maybe TxOutput)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Collateral "totalCollateral" BigInt where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "totalCollateral"
-> (BigInt -> f BigInt) -> Collateral -> f Collateral
fieldOf Proxy# "totalCollateral"
_
    = ((Maybe BigInt -> f (Maybe BigInt)) -> Collateral -> f Collateral)
-> ((BigInt -> f BigInt) -> Maybe BigInt -> f (Maybe BigInt))
-> (BigInt -> f BigInt)
-> Collateral
-> f Collateral
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Collateral -> Maybe BigInt)
-> (Collateral -> Maybe BigInt -> Collateral)
-> Lens Collateral Collateral (Maybe BigInt) (Maybe BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Collateral -> Maybe BigInt
_Collateral'totalCollateral
           (\ Collateral
x__ Maybe BigInt
y__ -> Collateral
x__ {_Collateral'totalCollateral = y__}))
        (BigInt -> Lens' (Maybe BigInt) BigInt
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BigInt
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Collateral "maybe'totalCollateral" (Prelude.Maybe BigInt) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'totalCollateral"
-> (Maybe BigInt -> f (Maybe BigInt)) -> Collateral -> f Collateral
fieldOf Proxy# "maybe'totalCollateral"
_
    = ((Maybe BigInt -> f (Maybe BigInt)) -> Collateral -> f Collateral)
-> ((Maybe BigInt -> f (Maybe BigInt))
    -> Maybe BigInt -> f (Maybe BigInt))
-> (Maybe BigInt -> f (Maybe BigInt))
-> Collateral
-> f Collateral
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Collateral -> Maybe BigInt)
-> (Collateral -> Maybe BigInt -> Collateral)
-> Lens Collateral Collateral (Maybe BigInt) (Maybe BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Collateral -> Maybe BigInt
_Collateral'totalCollateral
           (\ Collateral
x__ Maybe BigInt
y__ -> Collateral
x__ {_Collateral'totalCollateral = y__}))
        (Maybe BigInt -> f (Maybe BigInt))
-> Maybe BigInt -> f (Maybe BigInt)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Collateral where
  messageName :: Proxy Collateral -> Text
messageName Proxy Collateral
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Collateral"
  packedMessageDescriptor :: Proxy Collateral -> ByteString
packedMessageDescriptor Proxy Collateral
_
    = ByteString
"\n\
      \\n\
      \Collateral\DC2?\n\
      \\n\
      \collateral\CAN\SOH \ETX(\v2\US.utxorpc.v1beta.cardano.TxInputR\n\
      \collateral\DC2M\n\
      \\DC1collateral_return\CAN\STX \SOH(\v2 .utxorpc.v1beta.cardano.TxOutputR\DLEcollateralReturn\DC2I\n\
      \\DLEtotal_collateral\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\SItotalCollateral"
  packedFileDescriptor :: Proxy Collateral -> ByteString
packedFileDescriptor Proxy Collateral
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Collateral)
fieldsByTag
    = let
        collateral__field_descriptor :: FieldDescriptor Collateral
collateral__field_descriptor
          = String
-> FieldTypeDescriptor TxInput
-> FieldAccessor Collateral TxInput
-> FieldDescriptor Collateral
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"collateral"
              (MessageOrGroup -> FieldTypeDescriptor TxInput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxInput)
              (Packing
-> Lens' Collateral [TxInput] -> FieldAccessor Collateral TxInput
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collateral")) ::
              Data.ProtoLens.FieldDescriptor Collateral
        collateralReturn__field_descriptor :: FieldDescriptor Collateral
collateralReturn__field_descriptor
          = String
-> FieldTypeDescriptor TxOutput
-> FieldAccessor Collateral TxOutput
-> FieldDescriptor Collateral
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"collateral_return"
              (MessageOrGroup -> FieldTypeDescriptor TxOutput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxOutput)
              (Lens Collateral Collateral (Maybe TxOutput) (Maybe TxOutput)
-> FieldAccessor Collateral TxOutput
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'collateralReturn")) ::
              Data.ProtoLens.FieldDescriptor Collateral
        totalCollateral__field_descriptor :: FieldDescriptor Collateral
totalCollateral__field_descriptor
          = String
-> FieldTypeDescriptor BigInt
-> FieldAccessor Collateral BigInt
-> FieldDescriptor Collateral
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"total_collateral"
              (MessageOrGroup -> FieldTypeDescriptor BigInt
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BigInt)
              (Lens Collateral Collateral (Maybe BigInt) (Maybe BigInt)
-> FieldAccessor Collateral BigInt
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'totalCollateral")) ::
              Data.ProtoLens.FieldDescriptor Collateral
      in
        [(Tag, FieldDescriptor Collateral)]
-> Map Tag (FieldDescriptor Collateral)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Collateral
collateral__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Collateral
collateralReturn__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Collateral
totalCollateral__field_descriptor)]
  unknownFields :: Lens' Collateral FieldSet
unknownFields
    = (Collateral -> FieldSet)
-> (Collateral -> FieldSet -> Collateral)
-> Lens' Collateral FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Collateral -> FieldSet
_Collateral'_unknownFields
        (\ Collateral
x__ FieldSet
y__ -> Collateral
x__ {_Collateral'_unknownFields = y__})
  defMessage :: Collateral
defMessage
    = Collateral'_constructor
        {_Collateral'collateral :: Vector TxInput
_Collateral'collateral = Vector TxInput
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Collateral'collateralReturn :: Maybe TxOutput
_Collateral'collateralReturn = Maybe TxOutput
forall a. Maybe a
Prelude.Nothing,
         _Collateral'totalCollateral :: Maybe BigInt
_Collateral'totalCollateral = Maybe BigInt
forall a. Maybe a
Prelude.Nothing,
         _Collateral'_unknownFields :: FieldSet
_Collateral'_unknownFields = []}
  parseMessage :: Parser Collateral
parseMessage
    = let
        loop ::
          Collateral
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput
             -> Data.ProtoLens.Encoding.Bytes.Parser Collateral
        loop :: Collateral -> Growing Vector RealWorld TxInput -> Parser Collateral
loop Collateral
x Growing Vector RealWorld TxInput
mutable'collateral
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'collateral <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                mutable'collateral)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'collateral") frozen'collateral
                              x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser TxInput -> String -> Parser TxInput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"collateral"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'collateral y)
                                loop x v
                        Word64
18
                          -> do y <- Parser TxOutput -> String -> Parser TxOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"collateral_return"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"collateralReturn") y x)
                                  mutable'collateral
                        Word64
26
                          -> do y <- Parser BigInt -> String -> Parser BigInt
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"total_collateral"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"totalCollateral") y x)
                                  mutable'collateral
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'collateral
      in
        Parser Collateral -> String -> Parser Collateral
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'collateral <- IO (Growing Vector RealWorld TxInput)
-> Parser (Growing Vector RealWorld TxInput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld TxInput)
IO (Growing Vector (PrimState IO) TxInput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'collateral)
          String
"Collateral"
  buildMessage :: Collateral -> Builder
buildMessage
    = \ Collateral
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((TxInput -> Builder) -> Vector TxInput -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ TxInput
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (TxInput -> ByteString) -> TxInput -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           TxInput -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxInput
_v))
                (FoldLike
  (Vector TxInput)
  Collateral
  Collateral
  (Vector TxInput)
  (Vector TxInput)
-> Collateral -> Vector TxInput
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'collateral") Collateral
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe TxOutput)
  Collateral
  Collateral
  (Maybe TxOutput)
  (Maybe TxOutput)
-> Collateral -> Maybe TxOutput
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'collateralReturn") Collateral
_x
                 of
                   Maybe TxOutput
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just TxOutput
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (TxOutput -> ByteString) -> TxOutput -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             TxOutput -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxOutput
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe BigInt) Collateral Collateral (Maybe BigInt) (Maybe BigInt)
-> Collateral -> Maybe BigInt
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'totalCollateral") Collateral
_x
                    of
                      Maybe BigInt
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just BigInt
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (BigInt -> ByteString) -> BigInt -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                BigInt -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage BigInt
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Collateral Collateral FieldSet FieldSet
-> Collateral -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Collateral Collateral FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Collateral FieldSet
Data.ProtoLens.unknownFields Collateral
_x))))
instance Control.DeepSeq.NFData Collateral where
  rnf :: Collateral -> ()
rnf
    = \ Collateral
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Collateral -> FieldSet
_Collateral'_unknownFields Collateral
x__)
             (Vector TxInput -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Collateral -> Vector TxInput
_Collateral'collateral Collateral
x__)
                (Maybe TxOutput -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Collateral -> Maybe TxOutput
_Collateral'collateralReturn Collateral
x__)
                   (Maybe BigInt -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Collateral -> Maybe BigInt
_Collateral'totalCollateral Collateral
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.members' @:: Lens' Committee (Data.Map.Map Data.Text.Text Data.Word.Word64)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.threshold' @:: Lens' Committee RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'threshold' @:: Lens' Committee (Prelude.Maybe RationalNumber)@ -}
data Committee
  = Committee'_constructor {Committee -> Map Text Word64
_Committee'members :: !(Data.Map.Map Data.Text.Text Data.Word.Word64),
                            Committee -> Maybe RationalNumber
_Committee'threshold :: !(Prelude.Maybe RationalNumber),
                            Committee -> FieldSet
_Committee'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Committee -> Committee -> Bool
(Committee -> Committee -> Bool)
-> (Committee -> Committee -> Bool) -> Eq Committee
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Committee -> Committee -> Bool
== :: Committee -> Committee -> Bool
$c/= :: Committee -> Committee -> Bool
/= :: Committee -> Committee -> Bool
Prelude.Eq, Eq Committee
Eq Committee =>
(Committee -> Committee -> Ordering)
-> (Committee -> Committee -> Bool)
-> (Committee -> Committee -> Bool)
-> (Committee -> Committee -> Bool)
-> (Committee -> Committee -> Bool)
-> (Committee -> Committee -> Committee)
-> (Committee -> Committee -> Committee)
-> Ord Committee
Committee -> Committee -> Bool
Committee -> Committee -> Ordering
Committee -> Committee -> Committee
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Committee -> Committee -> Ordering
compare :: Committee -> Committee -> Ordering
$c< :: Committee -> Committee -> Bool
< :: Committee -> Committee -> Bool
$c<= :: Committee -> Committee -> Bool
<= :: Committee -> Committee -> Bool
$c> :: Committee -> Committee -> Bool
> :: Committee -> Committee -> Bool
$c>= :: Committee -> Committee -> Bool
>= :: Committee -> Committee -> Bool
$cmax :: Committee -> Committee -> Committee
max :: Committee -> Committee -> Committee
$cmin :: Committee -> Committee -> Committee
min :: Committee -> Committee -> Committee
Prelude.Ord)
instance Prelude.Show Committee where
  showsPrec :: Int -> Committee -> ShowS
showsPrec Int
_ Committee
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Committee -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Committee
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Committee "members" (Data.Map.Map Data.Text.Text Data.Word.Word64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "members"
-> (Map Text Word64 -> f (Map Text Word64))
-> Committee
-> f Committee
fieldOf Proxy# "members"
_
    = ((Map Text Word64 -> f (Map Text Word64))
 -> Committee -> f Committee)
-> ((Map Text Word64 -> f (Map Text Word64))
    -> Map Text Word64 -> f (Map Text Word64))
-> (Map Text Word64 -> f (Map Text Word64))
-> Committee
-> f Committee
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Committee -> Map Text Word64)
-> (Committee -> Map Text Word64 -> Committee)
-> Lens Committee Committee (Map Text Word64) (Map Text Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Committee -> Map Text Word64
_Committee'members (\ Committee
x__ Map Text Word64
y__ -> Committee
x__ {_Committee'members = y__}))
        (Map Text Word64 -> f (Map Text Word64))
-> Map Text Word64 -> f (Map Text Word64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Committee "threshold" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "threshold"
-> (RationalNumber -> f RationalNumber) -> Committee -> f Committee
fieldOf Proxy# "threshold"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> Committee -> f Committee)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> Committee
-> f Committee
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Committee -> Maybe RationalNumber)
-> (Committee -> Maybe RationalNumber -> Committee)
-> Lens
     Committee Committee (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Committee -> Maybe RationalNumber
_Committee'threshold
           (\ Committee
x__ Maybe RationalNumber
y__ -> Committee
x__ {_Committee'threshold = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Committee "maybe'threshold" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'threshold"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Committee
-> f Committee
fieldOf Proxy# "maybe'threshold"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> Committee -> f Committee)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Committee
-> f Committee
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Committee -> Maybe RationalNumber)
-> (Committee -> Maybe RationalNumber -> Committee)
-> Lens
     Committee Committee (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Committee -> Maybe RationalNumber
_Committee'threshold
           (\ Committee
x__ Maybe RationalNumber
y__ -> Committee
x__ {_Committee'threshold = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Committee where
  messageName :: Proxy Committee -> Text
messageName Proxy Committee
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Committee"
  packedMessageDescriptor :: Proxy Committee -> ByteString
packedMessageDescriptor Proxy Committee
_
    = ByteString
"\n\
      \\tCommittee\DC2H\n\
      \\amembers\CAN\SOH \ETX(\v2..utxorpc.v1beta.cardano.Committee.MembersEntryR\amembers\DC2D\n\
      \\tthreshold\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\tthreshold\SUB:\n\
      \\fMembersEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy Committee -> ByteString
packedFileDescriptor Proxy Committee
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Committee)
fieldsByTag
    = let
        members__field_descriptor :: FieldDescriptor Committee
members__field_descriptor
          = String
-> FieldTypeDescriptor Committee'MembersEntry
-> FieldAccessor Committee Committee'MembersEntry
-> FieldDescriptor Committee
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"members"
              (MessageOrGroup -> FieldTypeDescriptor Committee'MembersEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Committee'MembersEntry)
              (Lens' Committee'MembersEntry Text
-> Lens' Committee'MembersEntry Word64
-> Lens Committee Committee (Map Text Word64) (Map Text Word64)
-> FieldAccessor Committee Committee'MembersEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"members")) ::
              Data.ProtoLens.FieldDescriptor Committee
        threshold__field_descriptor :: FieldDescriptor Committee
threshold__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor Committee RationalNumber
-> FieldDescriptor Committee
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"threshold"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  Committee Committee (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor Committee RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'threshold")) ::
              Data.ProtoLens.FieldDescriptor Committee
      in
        [(Tag, FieldDescriptor Committee)]
-> Map Tag (FieldDescriptor Committee)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Committee
members__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Committee
threshold__field_descriptor)]
  unknownFields :: Lens' Committee FieldSet
unknownFields
    = (Committee -> FieldSet)
-> (Committee -> FieldSet -> Committee) -> Lens' Committee FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Committee -> FieldSet
_Committee'_unknownFields
        (\ Committee
x__ FieldSet
y__ -> Committee
x__ {_Committee'_unknownFields = y__})
  defMessage :: Committee
defMessage
    = Committee'_constructor
        {_Committee'members :: Map Text Word64
_Committee'members = Map Text Word64
forall k a. Map k a
Data.Map.empty,
         _Committee'threshold :: Maybe RationalNumber
_Committee'threshold = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _Committee'_unknownFields :: FieldSet
_Committee'_unknownFields = []}
  parseMessage :: Parser Committee
parseMessage
    = let
        loop :: Committee -> Data.ProtoLens.Encoding.Bytes.Parser Committee
        loop :: Committee -> Parser Committee
loop Committee
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !(entry :: Committee'MembersEntry) <- Parser Committee'MembersEntry
-> String -> Parser Committee'MembersEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                            Data.ProtoLens.Encoding.Bytes.isolate
                                                                              (Prelude.fromIntegral
                                                                                 len)
                                                                              Data.ProtoLens.parseMessage)
                                                                        String
"members"
                                (let
                                   key = FoldLike
  Text Committee'MembersEntry Committee'MembersEntry Text Text
-> Committee'MembersEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Committee'MembersEntry
entry
                                   value
                                     = FoldLike
  Word64 Committee'MembersEntry Committee'MembersEntry Word64 Word64
-> Committee'MembersEntry -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Committee'MembersEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"members")
                                        (\ !Map Text Word64
t -> Text -> Word64 -> Map Text Word64 -> Map Text Word64
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Word64
value Map Text Word64
t) x))
                        Word64
18
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"threshold"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"threshold") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Committee -> String -> Parser Committee
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Committee -> Parser Committee
loop Committee
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Committee"
  buildMessage :: Committee -> Builder
buildMessage
    = \ Committee
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                (((Text, Word64) -> Builder) -> [(Text, Word64)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                   (\ (Text, Word64)
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                           ((ByteString -> Builder)
-> (Committee'MembersEntry -> ByteString)
-> Committee'MembersEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              Committee'MembersEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              (Setter Committee'MembersEntry Committee'MembersEntry Text Text
-> Text -> Committee'MembersEntry -> Committee'MembersEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Word64) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Word64)
_v)
                                 (Setter Committee'MembersEntry Committee'MembersEntry Word64 Word64
-> Word64 -> Committee'MembersEntry -> Committee'MembersEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, Word64) -> Word64
forall a b. (a, b) -> b
Prelude.snd (Text, Word64)
_v)
                                    (Committee'MembersEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: Committee'MembersEntry)))))
                   (Map Text Word64 -> [(Text, Word64)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                      (FoldLike
  (Map Text Word64)
  Committee
  Committee
  (Map Text Word64)
  (Map Text Word64)
-> Committee -> Map Text Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"members") Committee
_x))))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe RationalNumber)
  Committee
  Committee
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> Committee -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'threshold") Committee
_x
                 of
                   Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just RationalNumber
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Committee Committee FieldSet FieldSet
-> Committee -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Committee Committee FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Committee FieldSet
Data.ProtoLens.unknownFields Committee
_x)))
instance Control.DeepSeq.NFData Committee where
  rnf :: Committee -> ()
rnf
    = \ Committee
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Committee -> FieldSet
_Committee'_unknownFields Committee
x__)
             (Map Text Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Committee -> Map Text Word64
_Committee'members Committee
x__)
                (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Committee -> Maybe RationalNumber
_Committee'threshold Committee
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Committee'MembersEntry Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Committee'MembersEntry Data.Word.Word64@ -}
data Committee'MembersEntry
  = Committee'MembersEntry'_constructor {Committee'MembersEntry -> Text
_Committee'MembersEntry'key :: !Data.Text.Text,
                                         Committee'MembersEntry -> Word64
_Committee'MembersEntry'value :: !Data.Word.Word64,
                                         Committee'MembersEntry -> FieldSet
_Committee'MembersEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Committee'MembersEntry -> Committee'MembersEntry -> Bool
(Committee'MembersEntry -> Committee'MembersEntry -> Bool)
-> (Committee'MembersEntry -> Committee'MembersEntry -> Bool)
-> Eq Committee'MembersEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
== :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
$c/= :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
/= :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
Prelude.Eq, Eq Committee'MembersEntry
Eq Committee'MembersEntry =>
(Committee'MembersEntry -> Committee'MembersEntry -> Ordering)
-> (Committee'MembersEntry -> Committee'MembersEntry -> Bool)
-> (Committee'MembersEntry -> Committee'MembersEntry -> Bool)
-> (Committee'MembersEntry -> Committee'MembersEntry -> Bool)
-> (Committee'MembersEntry -> Committee'MembersEntry -> Bool)
-> (Committee'MembersEntry
    -> Committee'MembersEntry -> Committee'MembersEntry)
-> (Committee'MembersEntry
    -> Committee'MembersEntry -> Committee'MembersEntry)
-> Ord Committee'MembersEntry
Committee'MembersEntry -> Committee'MembersEntry -> Bool
Committee'MembersEntry -> Committee'MembersEntry -> Ordering
Committee'MembersEntry
-> Committee'MembersEntry -> Committee'MembersEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Committee'MembersEntry -> Committee'MembersEntry -> Ordering
compare :: Committee'MembersEntry -> Committee'MembersEntry -> Ordering
$c< :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
< :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
$c<= :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
<= :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
$c> :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
> :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
$c>= :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
>= :: Committee'MembersEntry -> Committee'MembersEntry -> Bool
$cmax :: Committee'MembersEntry
-> Committee'MembersEntry -> Committee'MembersEntry
max :: Committee'MembersEntry
-> Committee'MembersEntry -> Committee'MembersEntry
$cmin :: Committee'MembersEntry
-> Committee'MembersEntry -> Committee'MembersEntry
min :: Committee'MembersEntry
-> Committee'MembersEntry -> Committee'MembersEntry
Prelude.Ord)
instance Prelude.Show Committee'MembersEntry where
  showsPrec :: Int -> Committee'MembersEntry -> ShowS
showsPrec Int
_ Committee'MembersEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Committee'MembersEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Committee'MembersEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Committee'MembersEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> Committee'MembersEntry
-> f Committee'MembersEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> Committee'MembersEntry -> f Committee'MembersEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Committee'MembersEntry
-> f Committee'MembersEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Committee'MembersEntry -> Text)
-> (Committee'MembersEntry -> Text -> Committee'MembersEntry)
-> Lens' Committee'MembersEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Committee'MembersEntry -> Text
_Committee'MembersEntry'key
           (\ Committee'MembersEntry
x__ Text
y__ -> Committee'MembersEntry
x__ {_Committee'MembersEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Committee'MembersEntry "value" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Word64 -> f Word64)
-> Committee'MembersEntry
-> f Committee'MembersEntry
fieldOf Proxy# "value"
_
    = ((Word64 -> f Word64)
 -> Committee'MembersEntry -> f Committee'MembersEntry)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Committee'MembersEntry
-> f Committee'MembersEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Committee'MembersEntry -> Word64)
-> (Committee'MembersEntry -> Word64 -> Committee'MembersEntry)
-> Lens' Committee'MembersEntry Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Committee'MembersEntry -> Word64
_Committee'MembersEntry'value
           (\ Committee'MembersEntry
x__ Word64
y__ -> Committee'MembersEntry
x__ {_Committee'MembersEntry'value = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Committee'MembersEntry where
  messageName :: Proxy Committee'MembersEntry -> Text
messageName Proxy Committee'MembersEntry
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Committee.MembersEntry"
  packedMessageDescriptor :: Proxy Committee'MembersEntry -> ByteString
packedMessageDescriptor Proxy Committee'MembersEntry
_
    = ByteString
"\n\
      \\fMembersEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy Committee'MembersEntry -> ByteString
packedFileDescriptor Proxy Committee'MembersEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Committee'MembersEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor Committee'MembersEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Committee'MembersEntry Text
-> FieldDescriptor Committee'MembersEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' Committee'MembersEntry Text
-> FieldAccessor Committee'MembersEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor Committee'MembersEntry
        value__field_descriptor :: FieldDescriptor Committee'MembersEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Committee'MembersEntry Word64
-> FieldDescriptor Committee'MembersEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens' Committee'MembersEntry Word64
-> FieldAccessor Committee'MembersEntry Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor Committee'MembersEntry
      in
        [(Tag, FieldDescriptor Committee'MembersEntry)]
-> Map Tag (FieldDescriptor Committee'MembersEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Committee'MembersEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Committee'MembersEntry
value__field_descriptor)]
  unknownFields :: Lens' Committee'MembersEntry FieldSet
unknownFields
    = (Committee'MembersEntry -> FieldSet)
-> (Committee'MembersEntry -> FieldSet -> Committee'MembersEntry)
-> Lens' Committee'MembersEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Committee'MembersEntry -> FieldSet
_Committee'MembersEntry'_unknownFields
        (\ Committee'MembersEntry
x__ FieldSet
y__ -> Committee'MembersEntry
x__ {_Committee'MembersEntry'_unknownFields = y__})
  defMessage :: Committee'MembersEntry
defMessage
    = Committee'MembersEntry'_constructor
        {_Committee'MembersEntry'key :: Text
_Committee'MembersEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Committee'MembersEntry'value :: Word64
_Committee'MembersEntry'value = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Committee'MembersEntry'_unknownFields :: FieldSet
_Committee'MembersEntry'_unknownFields = []}
  parseMessage :: Parser Committee'MembersEntry
parseMessage
    = let
        loop ::
          Committee'MembersEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser Committee'MembersEntry
        loop :: Committee'MembersEntry -> Parser Committee'MembersEntry
loop Committee'MembersEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Committee'MembersEntry
-> String -> Parser Committee'MembersEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Committee'MembersEntry -> Parser Committee'MembersEntry
loop Committee'MembersEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MembersEntry"
  buildMessage :: Committee'MembersEntry -> Builder
buildMessage
    = \ Committee'MembersEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text Committee'MembersEntry Committee'MembersEntry Text Text
-> Committee'MembersEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Committee'MembersEntry
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v = FoldLike
  Word64 Committee'MembersEntry Committee'MembersEntry Word64 Word64
-> Committee'MembersEntry -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Committee'MembersEntry
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  Committee'MembersEntry
  Committee'MembersEntry
  FieldSet
  FieldSet
-> Committee'MembersEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  Committee'MembersEntry
  Committee'MembersEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Committee'MembersEntry FieldSet
Data.ProtoLens.unknownFields Committee'MembersEntry
_x)))
instance Control.DeepSeq.NFData Committee'MembersEntry where
  rnf :: Committee'MembersEntry -> ()
rnf
    = \ Committee'MembersEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Committee'MembersEntry -> FieldSet
_Committee'MembersEntry'_unknownFields Committee'MembersEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Committee'MembersEntry -> Text
_Committee'MembersEntry'key Committee'MembersEntry
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Committee'MembersEntry -> Word64
_Committee'MembersEntry'value Committee'MembersEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anchor' @:: Lens' Constitution Anchor@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anchor' @:: Lens' Constitution (Prelude.Maybe Anchor)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' Constitution Data.ByteString.ByteString@ -}
data Constitution
  = Constitution'_constructor {Constitution -> Maybe Anchor
_Constitution'anchor :: !(Prelude.Maybe Anchor),
                               Constitution -> ByteString
_Constitution'hash :: !Data.ByteString.ByteString,
                               Constitution -> FieldSet
_Constitution'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Constitution -> Constitution -> Bool
(Constitution -> Constitution -> Bool)
-> (Constitution -> Constitution -> Bool) -> Eq Constitution
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Constitution -> Constitution -> Bool
== :: Constitution -> Constitution -> Bool
$c/= :: Constitution -> Constitution -> Bool
/= :: Constitution -> Constitution -> Bool
Prelude.Eq, Eq Constitution
Eq Constitution =>
(Constitution -> Constitution -> Ordering)
-> (Constitution -> Constitution -> Bool)
-> (Constitution -> Constitution -> Bool)
-> (Constitution -> Constitution -> Bool)
-> (Constitution -> Constitution -> Bool)
-> (Constitution -> Constitution -> Constitution)
-> (Constitution -> Constitution -> Constitution)
-> Ord Constitution
Constitution -> Constitution -> Bool
Constitution -> Constitution -> Ordering
Constitution -> Constitution -> Constitution
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Constitution -> Constitution -> Ordering
compare :: Constitution -> Constitution -> Ordering
$c< :: Constitution -> Constitution -> Bool
< :: Constitution -> Constitution -> Bool
$c<= :: Constitution -> Constitution -> Bool
<= :: Constitution -> Constitution -> Bool
$c> :: Constitution -> Constitution -> Bool
> :: Constitution -> Constitution -> Bool
$c>= :: Constitution -> Constitution -> Bool
>= :: Constitution -> Constitution -> Bool
$cmax :: Constitution -> Constitution -> Constitution
max :: Constitution -> Constitution -> Constitution
$cmin :: Constitution -> Constitution -> Constitution
min :: Constitution -> Constitution -> Constitution
Prelude.Ord)
instance Prelude.Show Constitution where
  showsPrec :: Int -> Constitution -> ShowS
showsPrec Int
_ Constitution
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Constitution -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Constitution
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Constitution "anchor" Anchor where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "anchor"
-> (Anchor -> f Anchor) -> Constitution -> f Constitution
fieldOf Proxy# "anchor"
_
    = ((Maybe Anchor -> f (Maybe Anchor))
 -> Constitution -> f Constitution)
-> ((Anchor -> f Anchor) -> Maybe Anchor -> f (Maybe Anchor))
-> (Anchor -> f Anchor)
-> Constitution
-> f Constitution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Constitution -> Maybe Anchor)
-> (Constitution -> Maybe Anchor -> Constitution)
-> Lens Constitution Constitution (Maybe Anchor) (Maybe Anchor)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Constitution -> Maybe Anchor
_Constitution'anchor
           (\ Constitution
x__ Maybe Anchor
y__ -> Constitution
x__ {_Constitution'anchor = y__}))
        (Anchor -> Lens' (Maybe Anchor) Anchor
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Anchor
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Constitution "maybe'anchor" (Prelude.Maybe Anchor) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'anchor"
-> (Maybe Anchor -> f (Maybe Anchor))
-> Constitution
-> f Constitution
fieldOf Proxy# "maybe'anchor"
_
    = ((Maybe Anchor -> f (Maybe Anchor))
 -> Constitution -> f Constitution)
-> ((Maybe Anchor -> f (Maybe Anchor))
    -> Maybe Anchor -> f (Maybe Anchor))
-> (Maybe Anchor -> f (Maybe Anchor))
-> Constitution
-> f Constitution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Constitution -> Maybe Anchor)
-> (Constitution -> Maybe Anchor -> Constitution)
-> Lens Constitution Constitution (Maybe Anchor) (Maybe Anchor)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Constitution -> Maybe Anchor
_Constitution'anchor
           (\ Constitution
x__ Maybe Anchor
y__ -> Constitution
x__ {_Constitution'anchor = y__}))
        (Maybe Anchor -> f (Maybe Anchor))
-> Maybe Anchor -> f (Maybe Anchor)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Constitution "hash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash"
-> (ByteString -> f ByteString) -> Constitution -> f Constitution
fieldOf Proxy# "hash"
_
    = ((ByteString -> f ByteString) -> Constitution -> f Constitution)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Constitution
-> f Constitution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Constitution -> ByteString)
-> (Constitution -> ByteString -> Constitution)
-> Lens Constitution Constitution ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Constitution -> ByteString
_Constitution'hash (\ Constitution
x__ ByteString
y__ -> Constitution
x__ {_Constitution'hash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Constitution where
  messageName :: Proxy Constitution -> Text
messageName Proxy Constitution
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Constitution"
  packedMessageDescriptor :: Proxy Constitution -> ByteString
packedMessageDescriptor Proxy Constitution
_
    = ByteString
"\n\
      \\fConstitution\DC26\n\
      \\ACKanchor\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor\DC2\DC2\n\
      \\EOThash\CAN\STX \SOH(\fR\EOThash"
  packedFileDescriptor :: Proxy Constitution -> ByteString
packedFileDescriptor Proxy Constitution
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Constitution)
fieldsByTag
    = let
        anchor__field_descriptor :: FieldDescriptor Constitution
anchor__field_descriptor
          = String
-> FieldTypeDescriptor Anchor
-> FieldAccessor Constitution Anchor
-> FieldDescriptor Constitution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"anchor"
              (MessageOrGroup -> FieldTypeDescriptor Anchor
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Anchor)
              (Lens Constitution Constitution (Maybe Anchor) (Maybe Anchor)
-> FieldAccessor Constitution Anchor
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'anchor")) ::
              Data.ProtoLens.FieldDescriptor Constitution
        hash__field_descriptor :: FieldDescriptor Constitution
hash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Constitution ByteString
-> FieldDescriptor Constitution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Constitution Constitution ByteString ByteString
-> FieldAccessor Constitution ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash")) ::
              Data.ProtoLens.FieldDescriptor Constitution
      in
        [(Tag, FieldDescriptor Constitution)]
-> Map Tag (FieldDescriptor Constitution)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Constitution
anchor__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Constitution
hash__field_descriptor)]
  unknownFields :: Lens' Constitution FieldSet
unknownFields
    = (Constitution -> FieldSet)
-> (Constitution -> FieldSet -> Constitution)
-> Lens' Constitution FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Constitution -> FieldSet
_Constitution'_unknownFields
        (\ Constitution
x__ FieldSet
y__ -> Constitution
x__ {_Constitution'_unknownFields = y__})
  defMessage :: Constitution
defMessage
    = Constitution'_constructor
        {_Constitution'anchor :: Maybe Anchor
_Constitution'anchor = Maybe Anchor
forall a. Maybe a
Prelude.Nothing,
         _Constitution'hash :: ByteString
_Constitution'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Constitution'_unknownFields :: FieldSet
_Constitution'_unknownFields = []}
  parseMessage :: Parser Constitution
parseMessage
    = let
        loop ::
          Constitution -> Data.ProtoLens.Encoding.Bytes.Parser Constitution
        loop :: Constitution -> Parser Constitution
loop Constitution
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Anchor -> String -> Parser Anchor
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"anchor"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anchor") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"hash"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Constitution -> String -> Parser Constitution
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Constitution -> Parser Constitution
loop Constitution
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Constitution"
  buildMessage :: Constitution -> Builder
buildMessage
    = \ Constitution
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Anchor)
  Constitution
  Constitution
  (Maybe Anchor)
  (Maybe Anchor)
-> Constitution -> Maybe Anchor
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'anchor") Constitution
_x
              of
                Maybe Anchor
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Anchor
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Anchor -> ByteString) -> Anchor -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Anchor -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Anchor
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: ByteString
_v = FoldLike ByteString Constitution Constitution ByteString ByteString
-> Constitution -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") Constitution
_x
                 in
                   if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            ByteString
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Constitution Constitution FieldSet FieldSet
-> Constitution -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Constitution Constitution FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Constitution FieldSet
Data.ProtoLens.unknownFields Constitution
_x)))
instance Control.DeepSeq.NFData Constitution where
  rnf :: Constitution -> ()
rnf
    = \ Constitution
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Constitution -> FieldSet
_Constitution'_unknownFields Constitution
x__)
             (Maybe Anchor -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Constitution -> Maybe Anchor
_Constitution'anchor Constitution
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Constitution -> ByteString
_Constitution'hash Constitution
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.tag' @:: Lens' Constr Data.Word.Word32@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyConstructor' @:: Lens' Constr Data.Word.Word64@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.fields' @:: Lens' Constr [PlutusData]@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'fields' @:: Lens' Constr (Data.Vector.Vector PlutusData)@ -}
data Constr
  = Constr'_constructor {Constr -> Word32
_Constr'tag :: !Data.Word.Word32,
                         Constr -> Word64
_Constr'anyConstructor :: !Data.Word.Word64,
                         Constr -> Vector PlutusData
_Constr'fields :: !(Data.Vector.Vector PlutusData),
                         Constr -> FieldSet
_Constr'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Constr -> Constr -> Bool
(Constr -> Constr -> Bool)
-> (Constr -> Constr -> Bool) -> Eq Constr
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Constr -> Constr -> Bool
== :: Constr -> Constr -> Bool
$c/= :: Constr -> Constr -> Bool
/= :: Constr -> Constr -> Bool
Prelude.Eq, Eq Constr
Eq Constr =>
(Constr -> Constr -> Ordering)
-> (Constr -> Constr -> Bool)
-> (Constr -> Constr -> Bool)
-> (Constr -> Constr -> Bool)
-> (Constr -> Constr -> Bool)
-> (Constr -> Constr -> Constr)
-> (Constr -> Constr -> Constr)
-> Ord Constr
Constr -> Constr -> Bool
Constr -> Constr -> Ordering
Constr -> Constr -> Constr
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Constr -> Constr -> Ordering
compare :: Constr -> Constr -> Ordering
$c< :: Constr -> Constr -> Bool
< :: Constr -> Constr -> Bool
$c<= :: Constr -> Constr -> Bool
<= :: Constr -> Constr -> Bool
$c> :: Constr -> Constr -> Bool
> :: Constr -> Constr -> Bool
$c>= :: Constr -> Constr -> Bool
>= :: Constr -> Constr -> Bool
$cmax :: Constr -> Constr -> Constr
max :: Constr -> Constr -> Constr
$cmin :: Constr -> Constr -> Constr
min :: Constr -> Constr -> Constr
Prelude.Ord)
instance Prelude.Show Constr where
  showsPrec :: Int -> Constr -> ShowS
showsPrec Int
_ Constr
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Constr -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Constr
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Constr "tag" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "tag" -> (Word32 -> f Word32) -> Constr -> f Constr
fieldOf Proxy# "tag"
_
    = ((Word32 -> f Word32) -> Constr -> f Constr)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> Constr
-> f Constr
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Constr -> Word32)
-> (Constr -> Word32 -> Constr) -> Lens Constr Constr Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Constr -> Word32
_Constr'tag (\ Constr
x__ Word32
y__ -> Constr
x__ {_Constr'tag = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Constr "anyConstructor" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "anyConstructor"
-> (Word64 -> f Word64) -> Constr -> f Constr
fieldOf Proxy# "anyConstructor"
_
    = ((Word64 -> f Word64) -> Constr -> f Constr)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Constr
-> f Constr
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Constr -> Word64)
-> (Constr -> Word64 -> Constr) -> Lens Constr Constr Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Constr -> Word64
_Constr'anyConstructor
           (\ Constr
x__ Word64
y__ -> Constr
x__ {_Constr'anyConstructor = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Constr "fields" [PlutusData] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fields"
-> ([PlutusData] -> f [PlutusData]) -> Constr -> f Constr
fieldOf Proxy# "fields"
_
    = ((Vector PlutusData -> f (Vector PlutusData))
 -> Constr -> f Constr)
-> (([PlutusData] -> f [PlutusData])
    -> Vector PlutusData -> f (Vector PlutusData))
-> ([PlutusData] -> f [PlutusData])
-> Constr
-> f Constr
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Constr -> Vector PlutusData)
-> (Constr -> Vector PlutusData -> Constr)
-> Lens Constr Constr (Vector PlutusData) (Vector PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Constr -> Vector PlutusData
_Constr'fields (\ Constr
x__ Vector PlutusData
y__ -> Constr
x__ {_Constr'fields = y__}))
        ((Vector PlutusData -> [PlutusData])
-> (Vector PlutusData -> [PlutusData] -> Vector PlutusData)
-> Lens
     (Vector PlutusData) (Vector PlutusData) [PlutusData] [PlutusData]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector PlutusData -> [PlutusData]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector PlutusData
_ [PlutusData]
y__ -> [PlutusData] -> Vector PlutusData
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [PlutusData]
y__))
instance Data.ProtoLens.Field.HasField Constr "vec'fields" (Data.Vector.Vector PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'fields"
-> (Vector PlutusData -> f (Vector PlutusData))
-> Constr
-> f Constr
fieldOf Proxy# "vec'fields"
_
    = ((Vector PlutusData -> f (Vector PlutusData))
 -> Constr -> f Constr)
-> ((Vector PlutusData -> f (Vector PlutusData))
    -> Vector PlutusData -> f (Vector PlutusData))
-> (Vector PlutusData -> f (Vector PlutusData))
-> Constr
-> f Constr
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Constr -> Vector PlutusData)
-> (Constr -> Vector PlutusData -> Constr)
-> Lens Constr Constr (Vector PlutusData) (Vector PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Constr -> Vector PlutusData
_Constr'fields (\ Constr
x__ Vector PlutusData
y__ -> Constr
x__ {_Constr'fields = y__}))
        (Vector PlutusData -> f (Vector PlutusData))
-> Vector PlutusData -> f (Vector PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Constr where
  messageName :: Proxy Constr -> Text
messageName Proxy Constr
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Constr"
  packedMessageDescriptor :: Proxy Constr -> ByteString
packedMessageDescriptor Proxy Constr
_
    = ByteString
"\n\
      \\ACKConstr\DC2\DLE\n\
      \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\
      \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2:\n\
      \\ACKfields\CAN\ETX \ETX(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ACKfields"
  packedFileDescriptor :: Proxy Constr -> ByteString
packedFileDescriptor Proxy Constr
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Constr)
fieldsByTag
    = let
        tag__field_descriptor :: FieldDescriptor Constr
tag__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor Constr Word32
-> FieldDescriptor Constr
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tag"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens Constr Constr Word32 Word32 -> FieldAccessor Constr Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tag")) ::
              Data.ProtoLens.FieldDescriptor Constr
        anyConstructor__field_descriptor :: FieldDescriptor Constr
anyConstructor__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Constr Word64
-> FieldDescriptor Constr
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"any_constructor"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens Constr Constr Word64 Word64 -> FieldAccessor Constr Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"anyConstructor")) ::
              Data.ProtoLens.FieldDescriptor Constr
        fields__field_descriptor :: FieldDescriptor Constr
fields__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor Constr PlutusData
-> FieldDescriptor Constr
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"fields"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Packing
-> Lens' Constr [PlutusData] -> FieldAccessor Constr PlutusData
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fields")) ::
              Data.ProtoLens.FieldDescriptor Constr
      in
        [(Tag, FieldDescriptor Constr)] -> Map Tag (FieldDescriptor Constr)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Constr
tag__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Constr
anyConstructor__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Constr
fields__field_descriptor)]
  unknownFields :: Lens' Constr FieldSet
unknownFields
    = (Constr -> FieldSet)
-> (Constr -> FieldSet -> Constr) -> Lens' Constr FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Constr -> FieldSet
_Constr'_unknownFields
        (\ Constr
x__ FieldSet
y__ -> Constr
x__ {_Constr'_unknownFields = y__})
  defMessage :: Constr
defMessage
    = Constr'_constructor
        {_Constr'tag :: Word32
_Constr'tag = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Constr'anyConstructor :: Word64
_Constr'anyConstructor = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Constr'fields :: Vector PlutusData
_Constr'fields = Vector PlutusData
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Constr'_unknownFields :: FieldSet
_Constr'_unknownFields = []}
  parseMessage :: Parser Constr
parseMessage
    = let
        loop ::
          Constr
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData
             -> Data.ProtoLens.Encoding.Bytes.Parser Constr
        loop :: Constr -> Growing Vector RealWorld PlutusData -> Parser Constr
loop Constr
x Growing Vector RealWorld PlutusData
mutable'fields
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'fields)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'fields") frozen'fields x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"tag"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x)
                                  mutable'fields
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"any_constructor"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"anyConstructor") y x)
                                  mutable'fields
                        Word64
26
                          -> do !y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"fields"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'fields y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'fields
      in
        Parser Constr -> String -> Parser Constr
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'fields <- IO (Growing Vector RealWorld PlutusData)
-> Parser (Growing Vector RealWorld PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld PlutusData)
IO (Growing Vector (PrimState IO) PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'fields)
          String
"Constr"
  buildMessage :: Constr -> Builder
buildMessage
    = \ Constr
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word32
_v = FoldLike Word32 Constr Constr Word32 Word32 -> Constr -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tag") Constr
_x
              in
                if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v
                     = FoldLike Word64 Constr Constr Word64 Word64 -> Constr -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"anyConstructor") Constr
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((PlutusData -> Builder) -> Vector PlutusData -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ PlutusData
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (PlutusData -> ByteString) -> PlutusData -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 PlutusData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusData
_v))
                      (FoldLike
  (Vector PlutusData)
  Constr
  Constr
  (Vector PlutusData)
  (Vector PlutusData)
-> Constr -> Vector PlutusData
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'fields") Constr
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Constr Constr FieldSet FieldSet
-> Constr -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Constr Constr FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Constr FieldSet
Data.ProtoLens.unknownFields Constr
_x))))
instance Control.DeepSeq.NFData Constr where
  rnf :: Constr -> ()
rnf
    = \ Constr
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Constr -> FieldSet
_Constr'_unknownFields Constr
x__)
             (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Constr -> Word32
_Constr'tag Constr
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Constr -> Word64
_Constr'anyConstructor Constr
x__)
                   (Vector PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Constr -> Vector PlutusData
_Constr'fields Constr
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.values' @:: Lens' CostModel [Data.Int.Int64]@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'values' @:: Lens' CostModel (Data.Vector.Unboxed.Vector Data.Int.Int64)@ -}
data CostModel
  = CostModel'_constructor {CostModel -> Vector Int64
_CostModel'values :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
                            CostModel -> FieldSet
_CostModel'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CostModel -> CostModel -> Bool
(CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool) -> Eq CostModel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CostModel -> CostModel -> Bool
== :: CostModel -> CostModel -> Bool
$c/= :: CostModel -> CostModel -> Bool
/= :: CostModel -> CostModel -> Bool
Prelude.Eq, Eq CostModel
Eq CostModel =>
(CostModel -> CostModel -> Ordering)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> CostModel)
-> (CostModel -> CostModel -> CostModel)
-> Ord CostModel
CostModel -> CostModel -> Bool
CostModel -> CostModel -> Ordering
CostModel -> CostModel -> CostModel
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CostModel -> CostModel -> Ordering
compare :: CostModel -> CostModel -> Ordering
$c< :: CostModel -> CostModel -> Bool
< :: CostModel -> CostModel -> Bool
$c<= :: CostModel -> CostModel -> Bool
<= :: CostModel -> CostModel -> Bool
$c> :: CostModel -> CostModel -> Bool
> :: CostModel -> CostModel -> Bool
$c>= :: CostModel -> CostModel -> Bool
>= :: CostModel -> CostModel -> Bool
$cmax :: CostModel -> CostModel -> CostModel
max :: CostModel -> CostModel -> CostModel
$cmin :: CostModel -> CostModel -> CostModel
min :: CostModel -> CostModel -> CostModel
Prelude.Ord)
instance Prelude.Show CostModel where
  showsPrec :: Int -> CostModel -> ShowS
showsPrec Int
_ CostModel
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CostModel -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CostModel
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CostModel "values" [Data.Int.Int64] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "values"
-> ([Int64] -> f [Int64]) -> CostModel -> f CostModel
fieldOf Proxy# "values"
_
    = ((Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> CostModel
-> f CostModel
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModel -> Vector Int64)
-> (CostModel -> Vector Int64 -> CostModel)
-> Lens CostModel CostModel (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModel -> Vector Int64
_CostModel'values (\ CostModel
x__ Vector Int64
y__ -> CostModel
x__ {_CostModel'values = y__}))
        ((Vector Int64 -> [Int64])
-> (Vector Int64 -> [Int64] -> Vector Int64)
-> Lens (Vector Int64) (Vector Int64) [Int64] [Int64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int64 -> [Int64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Int64
_ [Int64]
y__ -> [Int64] -> Vector Int64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int64]
y__))
instance Data.ProtoLens.Field.HasField CostModel "vec'values" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'values"
-> (Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel
fieldOf Proxy# "vec'values"
_
    = ((Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel)
-> ((Vector Int64 -> f (Vector Int64))
    -> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> CostModel
-> f CostModel
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModel -> Vector Int64)
-> (CostModel -> Vector Int64 -> CostModel)
-> Lens CostModel CostModel (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModel -> Vector Int64
_CostModel'values (\ CostModel
x__ Vector Int64
y__ -> CostModel
x__ {_CostModel'values = y__}))
        (Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CostModel where
  messageName :: Proxy CostModel -> Text
messageName Proxy CostModel
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.CostModel"
  packedMessageDescriptor :: Proxy CostModel -> ByteString
packedMessageDescriptor Proxy CostModel
_
    = ByteString
"\n\
      \\tCostModel\DC2\SYN\n\
      \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues"
  packedFileDescriptor :: Proxy CostModel -> ByteString
packedFileDescriptor Proxy CostModel
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CostModel)
fieldsByTag
    = let
        values__field_descriptor :: FieldDescriptor CostModel
values__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CostModel Int64
-> FieldDescriptor CostModel
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"values"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Packing -> Lens' CostModel [Int64] -> FieldAccessor CostModel Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values")) ::
              Data.ProtoLens.FieldDescriptor CostModel
      in
        [(Tag, FieldDescriptor CostModel)]
-> Map Tag (FieldDescriptor CostModel)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CostModel
values__field_descriptor)]
  unknownFields :: Lens' CostModel FieldSet
unknownFields
    = (CostModel -> FieldSet)
-> (CostModel -> FieldSet -> CostModel) -> Lens' CostModel FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CostModel -> FieldSet
_CostModel'_unknownFields
        (\ CostModel
x__ FieldSet
y__ -> CostModel
x__ {_CostModel'_unknownFields = y__})
  defMessage :: CostModel
defMessage
    = CostModel'_constructor
        {_CostModel'values :: Vector Int64
_CostModel'values = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CostModel'_unknownFields :: FieldSet
_CostModel'_unknownFields = []}
  parseMessage :: Parser CostModel
parseMessage
    = let
        loop ::
          CostModel
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
             -> Data.ProtoLens.Encoding.Bytes.Parser CostModel
        loop :: CostModel -> Growing Vector RealWorld Int64 -> Parser CostModel
loop CostModel
x Growing Vector RealWorld Int64
mutable'values
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'values)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'values") frozen'values x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do !y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        String
"values"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'values y)
                                loop x v
                        Word64
10
                          -> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Data.ProtoLens.Encoding.Bytes.isolate
                                          (Prelude.fromIntegral len)
                                          ((let
                                              ploop Growing v RealWorld a
qs
                                                = do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if packedEnd then
                                                         Prelude.return qs
                                                     else
                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    (Prelude.fmap
                                                                       Prelude.fromIntegral
                                                                       Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "values"
                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Data.ProtoLens.Encoding.Growing.append
                                                                        qs q)
                                                            ploop qs'
                                            in ploop)
                                             mutable'values)
                                loop x y
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'values
      in
        Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'values <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Int64)
IO (Growing Vector (PrimState IO) Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'values)
          String
"CostModel"
  buildMessage :: CostModel -> Builder
buildMessage
    = \ CostModel
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Int64
p = FoldLike
  (Vector Int64) CostModel CostModel (Vector Int64) (Vector Int64)
-> CostModel -> Vector Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") CostModel
_x
              in
                if Vector Int64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int64
p then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                               Vector Int64
p))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet CostModel CostModel FieldSet FieldSet
-> CostModel -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CostModel CostModel FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModel FieldSet
Data.ProtoLens.unknownFields CostModel
_x))
instance Control.DeepSeq.NFData CostModel where
  rnf :: CostModel -> ()
rnf
    = \ CostModel
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CostModel -> FieldSet
_CostModel'_unknownFields CostModel
x__)
             (Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CostModel -> Vector Int64
_CostModel'values CostModel
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModelMap CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModelMap CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV3' @:: Lens' CostModelMap CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV4' @:: Lens' CostModelMap CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@ -}
data CostModelMap
  = CostModelMap'_constructor {CostModelMap -> Maybe CostModel
_CostModelMap'plutusV1 :: !(Prelude.Maybe CostModel),
                               CostModelMap -> Maybe CostModel
_CostModelMap'plutusV2 :: !(Prelude.Maybe CostModel),
                               CostModelMap -> Maybe CostModel
_CostModelMap'plutusV3 :: !(Prelude.Maybe CostModel),
                               CostModelMap -> Maybe CostModel
_CostModelMap'plutusV4 :: !(Prelude.Maybe CostModel),
                               CostModelMap -> FieldSet
_CostModelMap'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CostModelMap -> CostModelMap -> Bool
(CostModelMap -> CostModelMap -> Bool)
-> (CostModelMap -> CostModelMap -> Bool) -> Eq CostModelMap
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CostModelMap -> CostModelMap -> Bool
== :: CostModelMap -> CostModelMap -> Bool
$c/= :: CostModelMap -> CostModelMap -> Bool
/= :: CostModelMap -> CostModelMap -> Bool
Prelude.Eq, Eq CostModelMap
Eq CostModelMap =>
(CostModelMap -> CostModelMap -> Ordering)
-> (CostModelMap -> CostModelMap -> Bool)
-> (CostModelMap -> CostModelMap -> Bool)
-> (CostModelMap -> CostModelMap -> Bool)
-> (CostModelMap -> CostModelMap -> Bool)
-> (CostModelMap -> CostModelMap -> CostModelMap)
-> (CostModelMap -> CostModelMap -> CostModelMap)
-> Ord CostModelMap
CostModelMap -> CostModelMap -> Bool
CostModelMap -> CostModelMap -> Ordering
CostModelMap -> CostModelMap -> CostModelMap
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CostModelMap -> CostModelMap -> Ordering
compare :: CostModelMap -> CostModelMap -> Ordering
$c< :: CostModelMap -> CostModelMap -> Bool
< :: CostModelMap -> CostModelMap -> Bool
$c<= :: CostModelMap -> CostModelMap -> Bool
<= :: CostModelMap -> CostModelMap -> Bool
$c> :: CostModelMap -> CostModelMap -> Bool
> :: CostModelMap -> CostModelMap -> Bool
$c>= :: CostModelMap -> CostModelMap -> Bool
>= :: CostModelMap -> CostModelMap -> Bool
$cmax :: CostModelMap -> CostModelMap -> CostModelMap
max :: CostModelMap -> CostModelMap -> CostModelMap
$cmin :: CostModelMap -> CostModelMap -> CostModelMap
min :: CostModelMap -> CostModelMap -> CostModelMap
Prelude.Ord)
instance Prelude.Show CostModelMap where
  showsPrec :: Int -> CostModelMap -> ShowS
showsPrec Int
_ CostModelMap
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CostModelMap -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CostModelMap
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CostModelMap "plutusV1" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV1"
-> (CostModel -> f CostModel) -> CostModelMap -> f CostModelMap
fieldOf Proxy# "plutusV1"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV1
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV1 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV1" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV1"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
fieldOf Proxy# "maybe'plutusV1"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV1
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV1 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModelMap "plutusV2" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV2"
-> (CostModel -> f CostModel) -> CostModelMap -> f CostModelMap
fieldOf Proxy# "plutusV2"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV2
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV2 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV2" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV2"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
fieldOf Proxy# "maybe'plutusV2"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV2
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV2 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModelMap "plutusV3" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV3"
-> (CostModel -> f CostModel) -> CostModelMap -> f CostModelMap
fieldOf Proxy# "plutusV3"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV3
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV3 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV3" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV3"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
fieldOf Proxy# "maybe'plutusV3"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV3
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV3 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModelMap "plutusV4" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV4"
-> (CostModel -> f CostModel) -> CostModelMap -> f CostModelMap
fieldOf Proxy# "plutusV4"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV4
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV4 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV4" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV4"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
fieldOf Proxy# "maybe'plutusV4"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModelMap -> f CostModelMap)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModelMap
-> f CostModelMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModelMap -> Maybe CostModel)
-> (CostModelMap -> Maybe CostModel -> CostModelMap)
-> Lens
     CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModelMap -> Maybe CostModel
_CostModelMap'plutusV4
           (\ CostModelMap
x__ Maybe CostModel
y__ -> CostModelMap
x__ {_CostModelMap'plutusV4 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CostModelMap where
  messageName :: Proxy CostModelMap -> Text
messageName Proxy CostModelMap
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.CostModelMap"
  packedMessageDescriptor :: Proxy CostModelMap -> ByteString
packedMessageDescriptor Proxy CostModelMap
_
    = ByteString
"\n\
      \\fCostModelMap\DC2>\n\
      \\tplutus_v1\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV1\DC2>\n\
      \\tplutus_v2\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV2\DC2>\n\
      \\tplutus_v3\CAN\ETX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV3\DC2>\n\
      \\tplutus_v4\CAN\EOT \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV4"
  packedFileDescriptor :: Proxy CostModelMap -> ByteString
packedFileDescriptor Proxy CostModelMap
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CostModelMap)
fieldsByTag
    = let
        plutusV1__field_descriptor :: FieldDescriptor CostModelMap
plutusV1__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModelMap CostModel
-> FieldDescriptor CostModelMap
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v1"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModelMap CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV1")) ::
              Data.ProtoLens.FieldDescriptor CostModelMap
        plutusV2__field_descriptor :: FieldDescriptor CostModelMap
plutusV2__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModelMap CostModel
-> FieldDescriptor CostModelMap
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v2"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModelMap CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV2")) ::
              Data.ProtoLens.FieldDescriptor CostModelMap
        plutusV3__field_descriptor :: FieldDescriptor CostModelMap
plutusV3__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModelMap CostModel
-> FieldDescriptor CostModelMap
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v3"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModelMap CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV3")) ::
              Data.ProtoLens.FieldDescriptor CostModelMap
        plutusV4__field_descriptor :: FieldDescriptor CostModelMap
plutusV4__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModelMap CostModel
-> FieldDescriptor CostModelMap
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v4"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModelMap CostModelMap (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModelMap CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV4")) ::
              Data.ProtoLens.FieldDescriptor CostModelMap
      in
        [(Tag, FieldDescriptor CostModelMap)]
-> Map Tag (FieldDescriptor CostModelMap)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CostModelMap
plutusV1__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CostModelMap
plutusV2__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor CostModelMap
plutusV3__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor CostModelMap
plutusV4__field_descriptor)]
  unknownFields :: Lens' CostModelMap FieldSet
unknownFields
    = (CostModelMap -> FieldSet)
-> (CostModelMap -> FieldSet -> CostModelMap)
-> Lens' CostModelMap FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CostModelMap -> FieldSet
_CostModelMap'_unknownFields
        (\ CostModelMap
x__ FieldSet
y__ -> CostModelMap
x__ {_CostModelMap'_unknownFields = y__})
  defMessage :: CostModelMap
defMessage
    = CostModelMap'_constructor
        {_CostModelMap'plutusV1 :: Maybe CostModel
_CostModelMap'plutusV1 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModelMap'plutusV2 :: Maybe CostModel
_CostModelMap'plutusV2 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModelMap'plutusV3 :: Maybe CostModel
_CostModelMap'plutusV3 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModelMap'plutusV4 :: Maybe CostModel
_CostModelMap'plutusV4 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModelMap'_unknownFields :: FieldSet
_CostModelMap'_unknownFields = []}
  parseMessage :: Parser CostModelMap
parseMessage
    = let
        loop ::
          CostModelMap -> Data.ProtoLens.Encoding.Bytes.Parser CostModelMap
        loop :: CostModelMap -> Parser CostModelMap
loop CostModelMap
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v1"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x)
                        Word64
18
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v2"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x)
                        Word64
26
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v3"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x)
                        Word64
34
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v4"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser CostModelMap -> String -> Parser CostModelMap
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CostModelMap -> Parser CostModelMap
loop CostModelMap
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CostModelMap"
  buildMessage :: CostModelMap -> Builder
buildMessage
    = \ CostModelMap
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe CostModel)
  CostModelMap
  CostModelMap
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModelMap -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV1") CostModelMap
_x
              of
                Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just CostModel
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe CostModel)
  CostModelMap
  CostModelMap
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModelMap -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV2") CostModelMap
_x
                 of
                   Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just CostModel
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe CostModel)
  CostModelMap
  CostModelMap
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModelMap -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV3") CostModelMap
_x
                    of
                      Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just CostModel
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe CostModel)
  CostModelMap
  CostModelMap
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModelMap -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV4") CostModelMap
_x
                       of
                         Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just CostModel
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet CostModelMap CostModelMap FieldSet FieldSet
-> CostModelMap -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CostModelMap CostModelMap FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModelMap FieldSet
Data.ProtoLens.unknownFields CostModelMap
_x)))))
instance Control.DeepSeq.NFData CostModelMap where
  rnf :: CostModelMap -> ()
rnf
    = \ CostModelMap
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CostModelMap -> FieldSet
_CostModelMap'_unknownFields CostModelMap
x__)
             (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CostModelMap -> Maybe CostModel
_CostModelMap'plutusV1 CostModelMap
x__)
                (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (CostModelMap -> Maybe CostModel
_CostModelMap'plutusV2 CostModelMap
x__)
                   (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (CostModelMap -> Maybe CostModel
_CostModelMap'plutusV3 CostModelMap
x__)
                      (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CostModelMap -> Maybe CostModel
_CostModelMap'plutusV4 CostModelMap
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModels (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' CostModels (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV3' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' CostModels (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV4' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' CostModels (Prelude.Maybe CostModel)@ -}
data CostModels
  = CostModels'_constructor {CostModels -> Maybe CostModel
_CostModels'plutusV1 :: !(Prelude.Maybe CostModel),
                             CostModels -> Maybe CostModel
_CostModels'plutusV2 :: !(Prelude.Maybe CostModel),
                             CostModels -> Maybe CostModel
_CostModels'plutusV3 :: !(Prelude.Maybe CostModel),
                             CostModels -> Maybe CostModel
_CostModels'plutusV4 :: !(Prelude.Maybe CostModel),
                             CostModels -> FieldSet
_CostModels'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CostModels -> CostModels -> Bool
(CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool) -> Eq CostModels
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CostModels -> CostModels -> Bool
== :: CostModels -> CostModels -> Bool
$c/= :: CostModels -> CostModels -> Bool
/= :: CostModels -> CostModels -> Bool
Prelude.Eq, Eq CostModels
Eq CostModels =>
(CostModels -> CostModels -> Ordering)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> CostModels)
-> (CostModels -> CostModels -> CostModels)
-> Ord CostModels
CostModels -> CostModels -> Bool
CostModels -> CostModels -> Ordering
CostModels -> CostModels -> CostModels
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CostModels -> CostModels -> Ordering
compare :: CostModels -> CostModels -> Ordering
$c< :: CostModels -> CostModels -> Bool
< :: CostModels -> CostModels -> Bool
$c<= :: CostModels -> CostModels -> Bool
<= :: CostModels -> CostModels -> Bool
$c> :: CostModels -> CostModels -> Bool
> :: CostModels -> CostModels -> Bool
$c>= :: CostModels -> CostModels -> Bool
>= :: CostModels -> CostModels -> Bool
$cmax :: CostModels -> CostModels -> CostModels
max :: CostModels -> CostModels -> CostModels
$cmin :: CostModels -> CostModels -> CostModels
min :: CostModels -> CostModels -> CostModels
Prelude.Ord)
instance Prelude.Show CostModels where
  showsPrec :: Int -> CostModels -> ShowS
showsPrec Int
_ CostModels
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CostModels -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CostModels
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CostModels "plutusV1" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV1"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV1"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV1
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV1 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV1" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV1"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV1"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV1
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV1 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModels "plutusV2" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV2"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV2"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV2
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV2 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV2" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV2"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV2"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV2
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV2 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModels "plutusV3" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV3"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV3"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV3
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV3 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV3" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV3"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV3"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV3
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV3 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModels "plutusV4" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV4"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV4"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV4
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV4 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV4" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV4"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV4"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV4
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV4 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CostModels where
  messageName :: Proxy CostModels -> Text
messageName Proxy CostModels
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.CostModels"
  packedMessageDescriptor :: Proxy CostModels -> ByteString
packedMessageDescriptor Proxy CostModels
_
    = ByteString
"\n\
      \\n\
      \CostModels\DC2>\n\
      \\tplutus_v1\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV1\DC2>\n\
      \\tplutus_v2\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV2\DC2>\n\
      \\tplutus_v3\CAN\ETX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV3\DC2>\n\
      \\tplutus_v4\CAN\EOT \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV4"
  packedFileDescriptor :: Proxy CostModels -> ByteString
packedFileDescriptor Proxy CostModels
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CostModels)
fieldsByTag
    = let
        plutusV1__field_descriptor :: FieldDescriptor CostModels
plutusV1__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v1"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV1")) ::
              Data.ProtoLens.FieldDescriptor CostModels
        plutusV2__field_descriptor :: FieldDescriptor CostModels
plutusV2__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v2"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV2")) ::
              Data.ProtoLens.FieldDescriptor CostModels
        plutusV3__field_descriptor :: FieldDescriptor CostModels
plutusV3__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v3"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV3")) ::
              Data.ProtoLens.FieldDescriptor CostModels
        plutusV4__field_descriptor :: FieldDescriptor CostModels
plutusV4__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v4"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV4")) ::
              Data.ProtoLens.FieldDescriptor CostModels
      in
        [(Tag, FieldDescriptor CostModels)]
-> Map Tag (FieldDescriptor CostModels)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CostModels
plutusV1__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CostModels
plutusV2__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor CostModels
plutusV3__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor CostModels
plutusV4__field_descriptor)]
  unknownFields :: Lens' CostModels FieldSet
unknownFields
    = (CostModels -> FieldSet)
-> (CostModels -> FieldSet -> CostModels)
-> Lens' CostModels FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CostModels -> FieldSet
_CostModels'_unknownFields
        (\ CostModels
x__ FieldSet
y__ -> CostModels
x__ {_CostModels'_unknownFields = y__})
  defMessage :: CostModels
defMessage
    = CostModels'_constructor
        {_CostModels'plutusV1 :: Maybe CostModel
_CostModels'plutusV1 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'plutusV2 :: Maybe CostModel
_CostModels'plutusV2 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'plutusV3 :: Maybe CostModel
_CostModels'plutusV3 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'plutusV4 :: Maybe CostModel
_CostModels'plutusV4 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'_unknownFields :: FieldSet
_CostModels'_unknownFields = []}
  parseMessage :: Parser CostModels
parseMessage
    = let
        loop ::
          CostModels -> Data.ProtoLens.Encoding.Bytes.Parser CostModels
        loop :: CostModels -> Parser CostModels
loop CostModels
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v1"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x)
                        Word64
18
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v2"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x)
                        Word64
26
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v3"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x)
                        Word64
34
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v4"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser CostModels -> String -> Parser CostModels
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CostModels -> Parser CostModels
loop CostModels
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CostModels"
  buildMessage :: CostModels -> Builder
buildMessage
    = \ CostModels
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV1") CostModels
_x
              of
                Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just CostModel
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV2") CostModels
_x
                 of
                   Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just CostModel
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV3") CostModels
_x
                    of
                      Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just CostModel
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV4") CostModels
_x
                       of
                         Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just CostModel
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet CostModels CostModels FieldSet FieldSet
-> CostModels -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CostModels CostModels FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModels FieldSet
Data.ProtoLens.unknownFields CostModels
_x)))))
instance Control.DeepSeq.NFData CostModels where
  rnf :: CostModels -> ()
rnf
    = \ CostModels
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CostModels -> FieldSet
_CostModels'_unknownFields CostModels
x__)
             (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CostModels -> Maybe CostModel
_CostModels'plutusV1 CostModels
x__)
                (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (CostModels -> Maybe CostModel
_CostModels'plutusV2 CostModels
x__)
                   (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (CostModels -> Maybe CostModel
_CostModels'plutusV3 CostModels
x__)
                      (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CostModels -> Maybe CostModel
_CostModels'plutusV4 CostModels
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drep' @:: Lens' DRep (Prelude.Maybe DRep'Drep)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'addrKeyHash' @:: Lens' DRep (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.addrKeyHash' @:: Lens' DRep Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'scriptHash' @:: Lens' DRep (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptHash' @:: Lens' DRep Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'abstain' @:: Lens' DRep (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.abstain' @:: Lens' DRep Prelude.Bool@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'noConfidence' @:: Lens' DRep (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.noConfidence' @:: Lens' DRep Prelude.Bool@ -}
data DRep
  = DRep'_constructor {DRep -> Maybe DRep'Drep
_DRep'drep :: !(Prelude.Maybe DRep'Drep),
                       DRep -> FieldSet
_DRep'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DRep -> DRep -> Bool
(DRep -> DRep -> Bool) -> (DRep -> DRep -> Bool) -> Eq DRep
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DRep -> DRep -> Bool
== :: DRep -> DRep -> Bool
$c/= :: DRep -> DRep -> Bool
/= :: DRep -> DRep -> Bool
Prelude.Eq, Eq DRep
Eq DRep =>
(DRep -> DRep -> Ordering)
-> (DRep -> DRep -> Bool)
-> (DRep -> DRep -> Bool)
-> (DRep -> DRep -> Bool)
-> (DRep -> DRep -> Bool)
-> (DRep -> DRep -> DRep)
-> (DRep -> DRep -> DRep)
-> Ord DRep
DRep -> DRep -> Bool
DRep -> DRep -> Ordering
DRep -> DRep -> DRep
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: DRep -> DRep -> Ordering
compare :: DRep -> DRep -> Ordering
$c< :: DRep -> DRep -> Bool
< :: DRep -> DRep -> Bool
$c<= :: DRep -> DRep -> Bool
<= :: DRep -> DRep -> Bool
$c> :: DRep -> DRep -> Bool
> :: DRep -> DRep -> Bool
$c>= :: DRep -> DRep -> Bool
>= :: DRep -> DRep -> Bool
$cmax :: DRep -> DRep -> DRep
max :: DRep -> DRep -> DRep
$cmin :: DRep -> DRep -> DRep
min :: DRep -> DRep -> DRep
Prelude.Ord)
instance Prelude.Show DRep where
  showsPrec :: Int -> DRep -> ShowS
showsPrec Int
_ DRep
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DRep -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DRep
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data DRep'Drep
  = DRep'AddrKeyHash !Data.ByteString.ByteString |
    DRep'ScriptHash !Data.ByteString.ByteString |
    DRep'Abstain !Prelude.Bool |
    DRep'NoConfidence !Prelude.Bool
  deriving stock (Int -> DRep'Drep -> ShowS
[DRep'Drep] -> ShowS
DRep'Drep -> String
(Int -> DRep'Drep -> ShowS)
-> (DRep'Drep -> String)
-> ([DRep'Drep] -> ShowS)
-> Show DRep'Drep
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DRep'Drep -> ShowS
showsPrec :: Int -> DRep'Drep -> ShowS
$cshow :: DRep'Drep -> String
show :: DRep'Drep -> String
$cshowList :: [DRep'Drep] -> ShowS
showList :: [DRep'Drep] -> ShowS
Prelude.Show, DRep'Drep -> DRep'Drep -> Bool
(DRep'Drep -> DRep'Drep -> Bool)
-> (DRep'Drep -> DRep'Drep -> Bool) -> Eq DRep'Drep
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DRep'Drep -> DRep'Drep -> Bool
== :: DRep'Drep -> DRep'Drep -> Bool
$c/= :: DRep'Drep -> DRep'Drep -> Bool
/= :: DRep'Drep -> DRep'Drep -> Bool
Prelude.Eq, Eq DRep'Drep
Eq DRep'Drep =>
(DRep'Drep -> DRep'Drep -> Ordering)
-> (DRep'Drep -> DRep'Drep -> Bool)
-> (DRep'Drep -> DRep'Drep -> Bool)
-> (DRep'Drep -> DRep'Drep -> Bool)
-> (DRep'Drep -> DRep'Drep -> Bool)
-> (DRep'Drep -> DRep'Drep -> DRep'Drep)
-> (DRep'Drep -> DRep'Drep -> DRep'Drep)
-> Ord DRep'Drep
DRep'Drep -> DRep'Drep -> Bool
DRep'Drep -> DRep'Drep -> Ordering
DRep'Drep -> DRep'Drep -> DRep'Drep
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: DRep'Drep -> DRep'Drep -> Ordering
compare :: DRep'Drep -> DRep'Drep -> Ordering
$c< :: DRep'Drep -> DRep'Drep -> Bool
< :: DRep'Drep -> DRep'Drep -> Bool
$c<= :: DRep'Drep -> DRep'Drep -> Bool
<= :: DRep'Drep -> DRep'Drep -> Bool
$c> :: DRep'Drep -> DRep'Drep -> Bool
> :: DRep'Drep -> DRep'Drep -> Bool
$c>= :: DRep'Drep -> DRep'Drep -> Bool
>= :: DRep'Drep -> DRep'Drep -> Bool
$cmax :: DRep'Drep -> DRep'Drep -> DRep'Drep
max :: DRep'Drep -> DRep'Drep -> DRep'Drep
$cmin :: DRep'Drep -> DRep'Drep -> DRep'Drep
min :: DRep'Drep -> DRep'Drep -> DRep'Drep
Prelude.Ord)
instance Data.ProtoLens.Field.HasField DRep "maybe'drep" (Prelude.Maybe DRep'Drep) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'drep"
-> (Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep
fieldOf Proxy# "maybe'drep"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((Maybe DRep'Drep -> f (Maybe DRep'Drep))
    -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        (Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> Maybe DRep'Drep -> f (Maybe DRep'Drep)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRep "maybe'addrKeyHash" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'addrKeyHash"
-> (Maybe ByteString -> f (Maybe ByteString)) -> DRep -> f DRep
fieldOf Proxy# "maybe'addrKeyHash"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (Maybe ByteString -> f (Maybe ByteString))
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        ((Maybe DRep'Drep -> Maybe ByteString)
-> (Maybe DRep'Drep -> Maybe ByteString -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep)
     (Maybe DRep'Drep)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe DRep'Drep
x__
              -> case Maybe DRep'Drep
x__ of
                   (Prelude.Just (DRep'AddrKeyHash ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe DRep'Drep
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe DRep'Drep
_ Maybe ByteString
y__ -> (ByteString -> DRep'Drep) -> Maybe ByteString -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> DRep'Drep
DRep'AddrKeyHash Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField DRep "addrKeyHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "addrKeyHash"
-> (ByteString -> f ByteString) -> DRep -> f DRep
fieldOf Proxy# "addrKeyHash"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((ByteString -> f ByteString)
    -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (ByteString -> f ByteString)
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe DRep'Drep
-> f (Maybe DRep'Drep)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe DRep'Drep -> Maybe ByteString)
-> (Maybe DRep'Drep -> Maybe ByteString -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep)
     (Maybe DRep'Drep)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe DRep'Drep
x__
                 -> case Maybe DRep'Drep
x__ of
                      (Prelude.Just (DRep'AddrKeyHash ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe DRep'Drep
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe DRep'Drep
_ Maybe ByteString
y__ -> (ByteString -> DRep'Drep) -> Maybe ByteString -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> DRep'Drep
DRep'AddrKeyHash Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField DRep "maybe'scriptHash" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scriptHash"
-> (Maybe ByteString -> f (Maybe ByteString)) -> DRep -> f DRep
fieldOf Proxy# "maybe'scriptHash"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (Maybe ByteString -> f (Maybe ByteString))
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        ((Maybe DRep'Drep -> Maybe ByteString)
-> (Maybe DRep'Drep -> Maybe ByteString -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep)
     (Maybe DRep'Drep)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe DRep'Drep
x__
              -> case Maybe DRep'Drep
x__ of
                   (Prelude.Just (DRep'ScriptHash ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe DRep'Drep
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe DRep'Drep
_ Maybe ByteString
y__ -> (ByteString -> DRep'Drep) -> Maybe ByteString -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> DRep'Drep
DRep'ScriptHash Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField DRep "scriptHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scriptHash"
-> (ByteString -> f ByteString) -> DRep -> f DRep
fieldOf Proxy# "scriptHash"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((ByteString -> f ByteString)
    -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (ByteString -> f ByteString)
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe DRep'Drep
-> f (Maybe DRep'Drep)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe DRep'Drep -> Maybe ByteString)
-> (Maybe DRep'Drep -> Maybe ByteString -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep)
     (Maybe DRep'Drep)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe DRep'Drep
x__
                 -> case Maybe DRep'Drep
x__ of
                      (Prelude.Just (DRep'ScriptHash ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe DRep'Drep
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe DRep'Drep
_ Maybe ByteString
y__ -> (ByteString -> DRep'Drep) -> Maybe ByteString -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> DRep'Drep
DRep'ScriptHash Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField DRep "maybe'abstain" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'abstain"
-> (Maybe Bool -> f (Maybe Bool)) -> DRep -> f DRep
fieldOf Proxy# "maybe'abstain"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((Maybe Bool -> f (Maybe Bool))
    -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (Maybe Bool -> f (Maybe Bool))
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        ((Maybe DRep'Drep -> Maybe Bool)
-> (Maybe DRep'Drep -> Maybe Bool -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep) (Maybe DRep'Drep) (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe DRep'Drep
x__
              -> case Maybe DRep'Drep
x__ of
                   (Prelude.Just (DRep'Abstain Bool
x__val)) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                   Maybe DRep'Drep
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe DRep'Drep
_ Maybe Bool
y__ -> (Bool -> DRep'Drep) -> Maybe Bool -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> DRep'Drep
DRep'Abstain Maybe Bool
y__))
instance Data.ProtoLens.Field.HasField DRep "abstain" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "abstain" -> (Bool -> f Bool) -> DRep -> f DRep
fieldOf Proxy# "abstain"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((Bool -> f Bool) -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (Bool -> f Bool)
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        (((Maybe Bool -> f (Maybe Bool))
 -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> Maybe DRep'Drep
-> f (Maybe DRep'Drep)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe DRep'Drep -> Maybe Bool)
-> (Maybe DRep'Drep -> Maybe Bool -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep) (Maybe DRep'Drep) (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe DRep'Drep
x__
                 -> case Maybe DRep'Drep
x__ of
                      (Prelude.Just (DRep'Abstain Bool
x__val)) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                      Maybe DRep'Drep
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe DRep'Drep
_ Maybe Bool
y__ -> (Bool -> DRep'Drep) -> Maybe Bool -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> DRep'Drep
DRep'Abstain Maybe Bool
y__))
           (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField DRep "maybe'noConfidence" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'noConfidence"
-> (Maybe Bool -> f (Maybe Bool)) -> DRep -> f DRep
fieldOf Proxy# "maybe'noConfidence"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((Maybe Bool -> f (Maybe Bool))
    -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (Maybe Bool -> f (Maybe Bool))
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        ((Maybe DRep'Drep -> Maybe Bool)
-> (Maybe DRep'Drep -> Maybe Bool -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep) (Maybe DRep'Drep) (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe DRep'Drep
x__
              -> case Maybe DRep'Drep
x__ of
                   (Prelude.Just (DRep'NoConfidence Bool
x__val)) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                   Maybe DRep'Drep
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe DRep'Drep
_ Maybe Bool
y__ -> (Bool -> DRep'Drep) -> Maybe Bool -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> DRep'Drep
DRep'NoConfidence Maybe Bool
y__))
instance Data.ProtoLens.Field.HasField DRep "noConfidence" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "noConfidence" -> (Bool -> f Bool) -> DRep -> f DRep
fieldOf Proxy# "noConfidence"
_
    = ((Maybe DRep'Drep -> f (Maybe DRep'Drep)) -> DRep -> f DRep)
-> ((Bool -> f Bool) -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> (Bool -> f Bool)
-> DRep
-> f DRep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRep -> Maybe DRep'Drep)
-> (DRep -> Maybe DRep'Drep -> DRep)
-> Lens DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRep -> Maybe DRep'Drep
_DRep'drep (\ DRep
x__ Maybe DRep'Drep
y__ -> DRep
x__ {_DRep'drep = y__}))
        (((Maybe Bool -> f (Maybe Bool))
 -> Maybe DRep'Drep -> f (Maybe DRep'Drep))
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> Maybe DRep'Drep
-> f (Maybe DRep'Drep)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe DRep'Drep -> Maybe Bool)
-> (Maybe DRep'Drep -> Maybe Bool -> Maybe DRep'Drep)
-> Lens
     (Maybe DRep'Drep) (Maybe DRep'Drep) (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe DRep'Drep
x__
                 -> case Maybe DRep'Drep
x__ of
                      (Prelude.Just (DRep'NoConfidence Bool
x__val)) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
x__val
                      Maybe DRep'Drep
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe DRep'Drep
_ Maybe Bool
y__ -> (Bool -> DRep'Drep) -> Maybe Bool -> Maybe DRep'Drep
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Bool -> DRep'Drep
DRep'NoConfidence Maybe Bool
y__))
           (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message DRep where
  messageName :: Proxy DRep -> Text
messageName Proxy DRep
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.DRep"
  packedMessageDescriptor :: Proxy DRep -> ByteString
packedMessageDescriptor Proxy DRep
_
    = ByteString
"\n\
      \\EOTDRep\DC2$\n\
      \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\
      \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\
      \scriptHash\DC2\SUB\n\
      \\aabstain\CAN\ETX \SOH(\bH\NULR\aabstain\DC2%\n\
      \\rno_confidence\CAN\EOT \SOH(\bH\NULR\fnoConfidenceB\ACK\n\
      \\EOTdrep"
  packedFileDescriptor :: Proxy DRep -> ByteString
packedFileDescriptor Proxy DRep
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DRep)
fieldsByTag
    = let
        addrKeyHash__field_descriptor :: FieldDescriptor DRep
addrKeyHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor DRep ByteString
-> FieldDescriptor DRep
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"addr_key_hash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' DRep (Maybe ByteString) -> FieldAccessor DRep ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'addrKeyHash")) ::
              Data.ProtoLens.FieldDescriptor DRep
        scriptHash__field_descriptor :: FieldDescriptor DRep
scriptHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor DRep ByteString
-> FieldDescriptor DRep
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script_hash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' DRep (Maybe ByteString) -> FieldAccessor DRep ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'scriptHash")) ::
              Data.ProtoLens.FieldDescriptor DRep
        abstain__field_descriptor :: FieldDescriptor DRep
abstain__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor DRep Bool
-> FieldDescriptor DRep
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"abstain"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens' DRep (Maybe Bool) -> FieldAccessor DRep Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'abstain")) ::
              Data.ProtoLens.FieldDescriptor DRep
        noConfidence__field_descriptor :: FieldDescriptor DRep
noConfidence__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor DRep Bool
-> FieldDescriptor DRep
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"no_confidence"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens' DRep (Maybe Bool) -> FieldAccessor DRep Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'noConfidence")) ::
              Data.ProtoLens.FieldDescriptor DRep
      in
        [(Tag, FieldDescriptor DRep)] -> Map Tag (FieldDescriptor DRep)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DRep
addrKeyHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DRep
scriptHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor DRep
abstain__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor DRep
noConfidence__field_descriptor)]
  unknownFields :: Lens' DRep FieldSet
unknownFields
    = (DRep -> FieldSet)
-> (DRep -> FieldSet -> DRep) -> Lens' DRep FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DRep -> FieldSet
_DRep'_unknownFields
        (\ DRep
x__ FieldSet
y__ -> DRep
x__ {_DRep'_unknownFields = y__})
  defMessage :: DRep
defMessage
    = DRep'_constructor
        {_DRep'drep :: Maybe DRep'Drep
_DRep'drep = Maybe DRep'Drep
forall a. Maybe a
Prelude.Nothing, _DRep'_unknownFields :: FieldSet
_DRep'_unknownFields = []}
  parseMessage :: Parser DRep
parseMessage
    = let
        loop :: DRep -> Data.ProtoLens.Encoding.Bytes.Parser DRep
        loop :: DRep -> Parser DRep
loop DRep
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"addr_key_hash"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"addrKeyHash") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"script_hash"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptHash") y x)
                        Word64
24
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"abstain"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"abstain") y x)
                        Word64
32
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"no_confidence"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"noConfidence") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser DRep -> String -> Parser DRep
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DRep -> Parser DRep
loop DRep
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DRep"
  buildMessage :: DRep -> Builder
buildMessage
    = \ DRep
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe DRep'Drep) DRep DRep (Maybe DRep'Drep) (Maybe DRep'Drep)
-> DRep -> Maybe DRep'Drep
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'drep") DRep
_x
              of
                Maybe DRep'Drep
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (DRep'AddrKeyHash ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v)
                (Prelude.Just (DRep'ScriptHash ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v)
                (Prelude.Just (DRep'Abstain Bool
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                          Bool
v)
                (Prelude.Just (DRep'NoConfidence Bool
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                          Bool
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet DRep DRep FieldSet FieldSet -> DRep -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet DRep DRep FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DRep FieldSet
Data.ProtoLens.unknownFields DRep
_x))
instance Control.DeepSeq.NFData DRep where
  rnf :: DRep -> ()
rnf
    = \ DRep
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DRep -> FieldSet
_DRep'_unknownFields DRep
x__)
             (Maybe DRep'Drep -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DRep -> Maybe DRep'Drep
_DRep'drep DRep
x__) ())
instance Control.DeepSeq.NFData DRep'Drep where
  rnf :: DRep'Drep -> ()
rnf (DRep'AddrKeyHash ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (DRep'ScriptHash ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (DRep'Abstain Bool
x__) = Bool -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Bool
x__
  rnf (DRep'NoConfidence Bool
x__) = Bool -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Bool
x__
_DRep'AddrKeyHash ::
  Data.ProtoLens.Prism.Prism' DRep'Drep Data.ByteString.ByteString
_DRep'AddrKeyHash :: Prism' DRep'Drep ByteString
_DRep'AddrKeyHash
  = (ByteString -> DRep'Drep)
-> (DRep'Drep -> Maybe ByteString) -> Prism' DRep'Drep ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> DRep'Drep
DRep'AddrKeyHash
      (\ DRep'Drep
p__
         -> case DRep'Drep
p__ of
              (DRep'AddrKeyHash ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              DRep'Drep
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_DRep'ScriptHash ::
  Data.ProtoLens.Prism.Prism' DRep'Drep Data.ByteString.ByteString
_DRep'ScriptHash :: Prism' DRep'Drep ByteString
_DRep'ScriptHash
  = (ByteString -> DRep'Drep)
-> (DRep'Drep -> Maybe ByteString) -> Prism' DRep'Drep ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> DRep'Drep
DRep'ScriptHash
      (\ DRep'Drep
p__
         -> case DRep'Drep
p__ of
              (DRep'ScriptHash ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              DRep'Drep
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_DRep'Abstain :: Data.ProtoLens.Prism.Prism' DRep'Drep Prelude.Bool
_DRep'Abstain :: Prism' DRep'Drep Bool
_DRep'Abstain
  = (Bool -> DRep'Drep)
-> (DRep'Drep -> Maybe Bool) -> Prism' DRep'Drep Bool
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Bool -> DRep'Drep
DRep'Abstain
      (\ DRep'Drep
p__
         -> case DRep'Drep
p__ of
              (DRep'Abstain Bool
p__val) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
p__val
              DRep'Drep
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
_DRep'NoConfidence ::
  Data.ProtoLens.Prism.Prism' DRep'Drep Prelude.Bool
_DRep'NoConfidence :: Prism' DRep'Drep Bool
_DRep'NoConfidence
  = (Bool -> DRep'Drep)
-> (DRep'Drep -> Maybe Bool) -> Prism' DRep'Drep Bool
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Bool -> DRep'Drep
DRep'NoConfidence
      (\ DRep'Drep
p__
         -> case DRep'Drep
p__ of
              (DRep'NoConfidence Bool
p__val) -> Bool -> Maybe Bool
forall a. a -> Maybe a
Prelude.Just Bool
p__val
              DRep'Drep
_otherwise -> Maybe Bool
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.motionNoConfidence' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'motionNoConfidence' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeNormal' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeNormal' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeNoConfidence' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeNoConfidence' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateToConstitution' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'updateToConstitution' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hardForkInitiation' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'hardForkInitiation' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppNetworkGroup' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppNetworkGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppEconomicGroup' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppEconomicGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppTechnicalGroup' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppTechnicalGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppGovGroup' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppGovGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.treasuryWithdrawal' @:: Lens' DRepVotingThresholds RationalNumber@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'treasuryWithdrawal' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ -}
data DRepVotingThresholds
  = DRepVotingThresholds'_constructor {DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'motionNoConfidence :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNormal :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNoConfidence :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'updateToConstitution :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'hardForkInitiation :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppNetworkGroup :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppEconomicGroup :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppTechnicalGroup :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppGovGroup :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'treasuryWithdrawal :: !(Prelude.Maybe RationalNumber),
                                       DRepVotingThresholds -> FieldSet
_DRepVotingThresholds'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DRepVotingThresholds -> DRepVotingThresholds -> Bool
(DRepVotingThresholds -> DRepVotingThresholds -> Bool)
-> (DRepVotingThresholds -> DRepVotingThresholds -> Bool)
-> Eq DRepVotingThresholds
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
== :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
$c/= :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
/= :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
Prelude.Eq, Eq DRepVotingThresholds
Eq DRepVotingThresholds =>
(DRepVotingThresholds -> DRepVotingThresholds -> Ordering)
-> (DRepVotingThresholds -> DRepVotingThresholds -> Bool)
-> (DRepVotingThresholds -> DRepVotingThresholds -> Bool)
-> (DRepVotingThresholds -> DRepVotingThresholds -> Bool)
-> (DRepVotingThresholds -> DRepVotingThresholds -> Bool)
-> (DRepVotingThresholds
    -> DRepVotingThresholds -> DRepVotingThresholds)
-> (DRepVotingThresholds
    -> DRepVotingThresholds -> DRepVotingThresholds)
-> Ord DRepVotingThresholds
DRepVotingThresholds -> DRepVotingThresholds -> Bool
DRepVotingThresholds -> DRepVotingThresholds -> Ordering
DRepVotingThresholds
-> DRepVotingThresholds -> DRepVotingThresholds
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: DRepVotingThresholds -> DRepVotingThresholds -> Ordering
compare :: DRepVotingThresholds -> DRepVotingThresholds -> Ordering
$c< :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
< :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
$c<= :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
<= :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
$c> :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
> :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
$c>= :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
>= :: DRepVotingThresholds -> DRepVotingThresholds -> Bool
$cmax :: DRepVotingThresholds
-> DRepVotingThresholds -> DRepVotingThresholds
max :: DRepVotingThresholds
-> DRepVotingThresholds -> DRepVotingThresholds
$cmin :: DRepVotingThresholds
-> DRepVotingThresholds -> DRepVotingThresholds
min :: DRepVotingThresholds
-> DRepVotingThresholds -> DRepVotingThresholds
Prelude.Ord)
instance Prelude.Show DRepVotingThresholds where
  showsPrec :: Int -> DRepVotingThresholds -> ShowS
showsPrec Int
_ DRepVotingThresholds
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DRepVotingThresholds -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DRepVotingThresholds
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "motionNoConfidence" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "motionNoConfidence"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "motionNoConfidence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'motionNoConfidence
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'motionNoConfidence = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'motionNoConfidence" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'motionNoConfidence"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'motionNoConfidence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'motionNoConfidence
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'motionNoConfidence = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "committeeNormal" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "committeeNormal"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "committeeNormal"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNormal
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'committeeNormal = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'committeeNormal" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'committeeNormal"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'committeeNormal"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNormal
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'committeeNormal = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "committeeNoConfidence" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "committeeNoConfidence"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "committeeNoConfidence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNoConfidence
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'committeeNoConfidence = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'committeeNoConfidence" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'committeeNoConfidence"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'committeeNoConfidence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNoConfidence
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'committeeNoConfidence = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "updateToConstitution" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "updateToConstitution"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "updateToConstitution"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'updateToConstitution
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'updateToConstitution = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'updateToConstitution" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'updateToConstitution"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'updateToConstitution"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'updateToConstitution
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'updateToConstitution = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "hardForkInitiation" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hardForkInitiation"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "hardForkInitiation"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'hardForkInitiation
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'hardForkInitiation = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'hardForkInitiation" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'hardForkInitiation"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'hardForkInitiation"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'hardForkInitiation
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'hardForkInitiation = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppNetworkGroup" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ppNetworkGroup"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "ppNetworkGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppNetworkGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppNetworkGroup = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppNetworkGroup" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ppNetworkGroup"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'ppNetworkGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppNetworkGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppNetworkGroup = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppEconomicGroup" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ppEconomicGroup"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "ppEconomicGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppEconomicGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppEconomicGroup = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppEconomicGroup" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ppEconomicGroup"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'ppEconomicGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppEconomicGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppEconomicGroup = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppTechnicalGroup" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ppTechnicalGroup"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "ppTechnicalGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppTechnicalGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppTechnicalGroup = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppTechnicalGroup" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ppTechnicalGroup"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'ppTechnicalGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppTechnicalGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppTechnicalGroup = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppGovGroup" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ppGovGroup"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "ppGovGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppGovGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppGovGroup = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppGovGroup" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ppGovGroup"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'ppGovGroup"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppGovGroup
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'ppGovGroup = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "treasuryWithdrawal" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "treasuryWithdrawal"
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "treasuryWithdrawal"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'treasuryWithdrawal
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'treasuryWithdrawal = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'treasuryWithdrawal" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'treasuryWithdrawal"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
fieldOf Proxy# "maybe'treasuryWithdrawal"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> DRepVotingThresholds -> f DRepVotingThresholds)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> DRepVotingThresholds
-> f DRepVotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DRepVotingThresholds -> Maybe RationalNumber)
-> (DRepVotingThresholds
    -> Maybe RationalNumber -> DRepVotingThresholds)
-> Lens
     DRepVotingThresholds
     DRepVotingThresholds
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'treasuryWithdrawal
           (\ DRepVotingThresholds
x__ Maybe RationalNumber
y__
              -> DRepVotingThresholds
x__ {_DRepVotingThresholds'treasuryWithdrawal = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DRepVotingThresholds where
  messageName :: Proxy DRepVotingThresholds -> Text
messageName Proxy DRepVotingThresholds
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.DRepVotingThresholds"
  packedMessageDescriptor :: Proxy DRepVotingThresholds -> ByteString
packedMessageDescriptor Proxy DRepVotingThresholds
_
    = ByteString
"\n\
      \\DC4DRepVotingThresholds\DC2X\n\
      \\DC4motion_no_confidence\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2motionNoConfidence\DC2Q\n\
      \\DLEcommittee_normal\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIcommitteeNormal\DC2^\n\
      \\ETBcommittee_no_confidence\CAN\ETX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\NAKcommitteeNoConfidence\DC2\\\n\
      \\SYNupdate_to_constitution\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC4updateToConstitution\DC2X\n\
      \\DC4hard_fork_initiation\CAN\ENQ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2hardForkInitiation\DC2P\n\
      \\DLEpp_network_group\CAN\ACK \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SOppNetworkGroup\DC2R\n\
      \\DC1pp_economic_group\CAN\a \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIppEconomicGroup\DC2T\n\
      \\DC2pp_technical_group\CAN\b \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DLEppTechnicalGroup\DC2H\n\
      \\fpp_gov_group\CAN\t \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\n\
      \ppGovGroup\DC2W\n\
      \\DC3treasury_withdrawal\CAN\n\
      \ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2treasuryWithdrawal"
  packedFileDescriptor :: Proxy DRepVotingThresholds -> ByteString
packedFileDescriptor Proxy DRepVotingThresholds
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DRepVotingThresholds)
fieldsByTag
    = let
        motionNoConfidence__field_descriptor :: FieldDescriptor DRepVotingThresholds
motionNoConfidence__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"motion_no_confidence"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'motionNoConfidence")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        committeeNormal__field_descriptor :: FieldDescriptor DRepVotingThresholds
committeeNormal__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"committee_normal"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeNormal")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        committeeNoConfidence__field_descriptor :: FieldDescriptor DRepVotingThresholds
committeeNoConfidence__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"committee_no_confidence"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeNoConfidence")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        updateToConstitution__field_descriptor :: FieldDescriptor DRepVotingThresholds
updateToConstitution__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"update_to_constitution"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'updateToConstitution")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        hardForkInitiation__field_descriptor :: FieldDescriptor DRepVotingThresholds
hardForkInitiation__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hard_fork_initiation"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'hardForkInitiation")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        ppNetworkGroup__field_descriptor :: FieldDescriptor DRepVotingThresholds
ppNetworkGroup__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pp_network_group"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppNetworkGroup")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        ppEconomicGroup__field_descriptor :: FieldDescriptor DRepVotingThresholds
ppEconomicGroup__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pp_economic_group"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppEconomicGroup")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        ppTechnicalGroup__field_descriptor :: FieldDescriptor DRepVotingThresholds
ppTechnicalGroup__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pp_technical_group"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppTechnicalGroup")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        ppGovGroup__field_descriptor :: FieldDescriptor DRepVotingThresholds
ppGovGroup__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pp_gov_group"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppGovGroup")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
        treasuryWithdrawal__field_descriptor :: FieldDescriptor DRepVotingThresholds
treasuryWithdrawal__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor DRepVotingThresholds RationalNumber
-> FieldDescriptor DRepVotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"treasury_withdrawal"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor DRepVotingThresholds RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'treasuryWithdrawal")) ::
              Data.ProtoLens.FieldDescriptor DRepVotingThresholds
      in
        [(Tag, FieldDescriptor DRepVotingThresholds)]
-> Map Tag (FieldDescriptor DRepVotingThresholds)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DRepVotingThresholds
motionNoConfidence__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DRepVotingThresholds
committeeNormal__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor DRepVotingThresholds
committeeNoConfidence__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor DRepVotingThresholds
updateToConstitution__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor DRepVotingThresholds
hardForkInitiation__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor DRepVotingThresholds
ppNetworkGroup__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor DRepVotingThresholds
ppEconomicGroup__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor DRepVotingThresholds
ppTechnicalGroup__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor DRepVotingThresholds
ppGovGroup__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor DRepVotingThresholds
treasuryWithdrawal__field_descriptor)]
  unknownFields :: Lens' DRepVotingThresholds FieldSet
unknownFields
    = (DRepVotingThresholds -> FieldSet)
-> (DRepVotingThresholds -> FieldSet -> DRepVotingThresholds)
-> Lens' DRepVotingThresholds FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DRepVotingThresholds -> FieldSet
_DRepVotingThresholds'_unknownFields
        (\ DRepVotingThresholds
x__ FieldSet
y__ -> DRepVotingThresholds
x__ {_DRepVotingThresholds'_unknownFields = y__})
  defMessage :: DRepVotingThresholds
defMessage
    = DRepVotingThresholds'_constructor
        {_DRepVotingThresholds'motionNoConfidence :: Maybe RationalNumber
_DRepVotingThresholds'motionNoConfidence = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'committeeNormal :: Maybe RationalNumber
_DRepVotingThresholds'committeeNormal = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'committeeNoConfidence :: Maybe RationalNumber
_DRepVotingThresholds'committeeNoConfidence = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'updateToConstitution :: Maybe RationalNumber
_DRepVotingThresholds'updateToConstitution = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'hardForkInitiation :: Maybe RationalNumber
_DRepVotingThresholds'hardForkInitiation = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'ppNetworkGroup :: Maybe RationalNumber
_DRepVotingThresholds'ppNetworkGroup = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'ppEconomicGroup :: Maybe RationalNumber
_DRepVotingThresholds'ppEconomicGroup = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'ppTechnicalGroup :: Maybe RationalNumber
_DRepVotingThresholds'ppTechnicalGroup = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'ppGovGroup :: Maybe RationalNumber
_DRepVotingThresholds'ppGovGroup = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'treasuryWithdrawal :: Maybe RationalNumber
_DRepVotingThresholds'treasuryWithdrawal = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _DRepVotingThresholds'_unknownFields :: FieldSet
_DRepVotingThresholds'_unknownFields = []}
  parseMessage :: Parser DRepVotingThresholds
parseMessage
    = let
        loop ::
          DRepVotingThresholds
          -> Data.ProtoLens.Encoding.Bytes.Parser DRepVotingThresholds
        loop :: DRepVotingThresholds -> Parser DRepVotingThresholds
loop DRepVotingThresholds
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"motion_no_confidence"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"motionNoConfidence") y x)
                        Word64
18
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"committee_normal"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"committeeNormal") y x)
                        Word64
26
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"committee_no_confidence"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"committeeNoConfidence") y x)
                        Word64
34
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"update_to_constitution"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"updateToConstitution") y x)
                        Word64
42
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"hard_fork_initiation"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"hardForkInitiation") y x)
                        Word64
50
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pp_network_group"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"ppNetworkGroup") y x)
                        Word64
58
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pp_economic_group"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"ppEconomicGroup") y x)
                        Word64
66
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pp_technical_group"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"ppTechnicalGroup") y x)
                        Word64
74
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pp_gov_group"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"ppGovGroup") y x)
                        Word64
82
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"treasury_withdrawal"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"treasuryWithdrawal") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser DRepVotingThresholds
-> String -> Parser DRepVotingThresholds
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DRepVotingThresholds -> Parser DRepVotingThresholds
loop DRepVotingThresholds
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DRepVotingThresholds"
  buildMessage :: DRepVotingThresholds -> Builder
buildMessage
    = \ DRepVotingThresholds
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'motionNoConfidence") DRepVotingThresholds
_x
              of
                Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just RationalNumber
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeNormal") DRepVotingThresholds
_x
                 of
                   Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just RationalNumber
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'committeeNoConfidence") DRepVotingThresholds
_x
                    of
                      Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just RationalNumber
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                             (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'updateToConstitution") DRepVotingThresholds
_x
                       of
                         Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just RationalNumber
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'hardForkInitiation") DRepVotingThresholds
_x
                          of
                            Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just RationalNumber
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                   ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ ByteString
bs
                                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                 (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                              (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                      RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppNetworkGroup") DRepVotingThresholds
_x
                             of
                               Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just RationalNumber
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                      ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         (\ ByteString
bs
                                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                       (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                         RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppEconomicGroup") DRepVotingThresholds
_x
                                of
                                  Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just RationalNumber
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                         ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (case
                                       FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppTechnicalGroup") DRepVotingThresholds
_x
                                   of
                                     Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                     (Prelude.Just RationalNumber
_v)
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                            ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                               (\ ByteString
bs
                                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                             (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                               RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (case
                                          FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                            (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ppGovGroup") DRepVotingThresholds
_x
                                      of
                                        Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                        (Prelude.Just RationalNumber
_v)
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
                                               ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                  (\ ByteString
bs
                                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                             ByteString
bs))
                                                  RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (case
                                             FoldLike
  (Maybe RationalNumber)
  DRepVotingThresholds
  DRepVotingThresholds
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> DRepVotingThresholds -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                               (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                  @"maybe'treasuryWithdrawal")
                                               DRepVotingThresholds
_x
                                         of
                                           Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                           (Prelude.Just RationalNumber
_v)
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
                                                  ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                     (\ ByteString
bs
                                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                   (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                             (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                ByteString
bs))
                                                     RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                                        (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                           (FoldLike
  FieldSet
  DRepVotingThresholds
  DRepVotingThresholds
  FieldSet
  FieldSet
-> DRepVotingThresholds -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              FoldLike
  FieldSet
  DRepVotingThresholds
  DRepVotingThresholds
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DRepVotingThresholds FieldSet
Data.ProtoLens.unknownFields DRepVotingThresholds
_x)))))))))))
instance Control.DeepSeq.NFData DRepVotingThresholds where
  rnf :: DRepVotingThresholds -> ()
rnf
    = \ DRepVotingThresholds
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DRepVotingThresholds -> FieldSet
_DRepVotingThresholds'_unknownFields DRepVotingThresholds
x__)
             (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'motionNoConfidence DRepVotingThresholds
x__)
                (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNormal DRepVotingThresholds
x__)
                   (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'committeeNoConfidence DRepVotingThresholds
x__)
                      (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'updateToConstitution DRepVotingThresholds
x__)
                         (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'hardForkInitiation DRepVotingThresholds
x__)
                            (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppNetworkGroup DRepVotingThresholds
x__)
                               (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppEconomicGroup DRepVotingThresholds
x__)
                                  (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppTechnicalGroup DRepVotingThresholds
x__)
                                     (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'ppGovGroup DRepVotingThresholds
x__)
                                        (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (DRepVotingThresholds -> Maybe RationalNumber
_DRepVotingThresholds'treasuryWithdrawal DRepVotingThresholds
x__)
                                           ()))))))))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' Datum Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.payload' @:: Lens' Datum PlutusData@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'payload' @:: Lens' Datum (Prelude.Maybe PlutusData)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.originalCbor' @:: Lens' Datum Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'originalCbor' @:: Lens' Datum (Prelude.Maybe Data.ByteString.ByteString)@ -}
data Datum
  = Datum'_constructor {Datum -> ByteString
_Datum'hash :: !Data.ByteString.ByteString,
                        Datum -> Maybe PlutusData
_Datum'payload :: !(Prelude.Maybe PlutusData),
                        Datum -> Maybe ByteString
_Datum'originalCbor :: !(Prelude.Maybe Data.ByteString.ByteString),
                        Datum -> FieldSet
_Datum'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Datum -> Datum -> Bool
(Datum -> Datum -> Bool) -> (Datum -> Datum -> Bool) -> Eq Datum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Datum -> Datum -> Bool
== :: Datum -> Datum -> Bool
$c/= :: Datum -> Datum -> Bool
/= :: Datum -> Datum -> Bool
Prelude.Eq, Eq Datum
Eq Datum =>
(Datum -> Datum -> Ordering)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Datum)
-> (Datum -> Datum -> Datum)
-> Ord Datum
Datum -> Datum -> Bool
Datum -> Datum -> Ordering
Datum -> Datum -> Datum
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Datum -> Datum -> Ordering
compare :: Datum -> Datum -> Ordering
$c< :: Datum -> Datum -> Bool
< :: Datum -> Datum -> Bool
$c<= :: Datum -> Datum -> Bool
<= :: Datum -> Datum -> Bool
$c> :: Datum -> Datum -> Bool
> :: Datum -> Datum -> Bool
$c>= :: Datum -> Datum -> Bool
>= :: Datum -> Datum -> Bool
$cmax :: Datum -> Datum -> Datum
max :: Datum -> Datum -> Datum
$cmin :: Datum -> Datum -> Datum
min :: Datum -> Datum -> Datum
Prelude.Ord)
instance Prelude.Show Datum where
  showsPrec :: Int -> Datum -> ShowS
showsPrec Int
_ Datum
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Datum -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Datum
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Datum "hash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash" -> (ByteString -> f ByteString) -> Datum -> f Datum
fieldOf Proxy# "hash"
_
    = ((ByteString -> f ByteString) -> Datum -> f Datum)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> ByteString)
-> (Datum -> ByteString -> Datum)
-> Lens Datum Datum ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> ByteString
_Datum'hash (\ Datum
x__ ByteString
y__ -> Datum
x__ {_Datum'hash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Datum "payload" PlutusData where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "payload"
-> (PlutusData -> f PlutusData) -> Datum -> f Datum
fieldOf Proxy# "payload"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData)) -> Datum -> f Datum)
-> ((PlutusData -> f PlutusData)
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (PlutusData -> f PlutusData)
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe PlutusData)
-> (Datum -> Maybe PlutusData -> Datum)
-> Lens Datum Datum (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe PlutusData
_Datum'payload (\ Datum
x__ Maybe PlutusData
y__ -> Datum
x__ {_Datum'payload = y__}))
        (PlutusData -> Lens' (Maybe PlutusData) PlutusData
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PlutusData
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Datum "maybe'payload" (Prelude.Maybe PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'payload"
-> (Maybe PlutusData -> f (Maybe PlutusData)) -> Datum -> f Datum
fieldOf Proxy# "maybe'payload"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData)) -> Datum -> f Datum)
-> ((Maybe PlutusData -> f (Maybe PlutusData))
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe PlutusData)
-> (Datum -> Maybe PlutusData -> Datum)
-> Lens Datum Datum (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe PlutusData
_Datum'payload (\ Datum
x__ Maybe PlutusData
y__ -> Datum
x__ {_Datum'payload = y__}))
        (Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe PlutusData -> f (Maybe PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Datum "originalCbor" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "originalCbor"
-> (ByteString -> f ByteString) -> Datum -> f Datum
fieldOf Proxy# "originalCbor"
_
    = ((Maybe ByteString -> f (Maybe ByteString)) -> Datum -> f Datum)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe ByteString)
-> (Datum -> Maybe ByteString -> Datum)
-> Lens Datum Datum (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe ByteString
_Datum'originalCbor (\ Datum
x__ Maybe ByteString
y__ -> Datum
x__ {_Datum'originalCbor = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField Datum "maybe'originalCbor" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'originalCbor"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Datum -> f Datum
fieldOf Proxy# "maybe'originalCbor"
_
    = ((Maybe ByteString -> f (Maybe ByteString)) -> Datum -> f Datum)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe ByteString)
-> (Datum -> Maybe ByteString -> Datum)
-> Lens Datum Datum (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe ByteString
_Datum'originalCbor (\ Datum
x__ Maybe ByteString
y__ -> Datum
x__ {_Datum'originalCbor = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Datum where
  messageName :: Proxy Datum -> Text
messageName Proxy Datum
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.Datum"
  packedMessageDescriptor :: Proxy Datum -> ByteString
packedMessageDescriptor Proxy Datum
_
    = ByteString
"\n\
      \\ENQDatum\DC2\DC2\n\
      \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2A\n\
      \\apayload\CAN\STX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataH\NULR\apayload\136\SOH\SOH\DC2(\n\
      \\roriginal_cbor\CAN\ETX \SOH(\fH\SOHR\foriginalCbor\136\SOH\SOHB\n\
      \\n\
      \\b_payloadB\DLE\n\
      \\SO_original_cbor"
  packedFileDescriptor :: Proxy Datum -> ByteString
packedFileDescriptor Proxy Datum
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Datum)
fieldsByTag
    = let
        hash__field_descriptor :: FieldDescriptor Datum
hash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Datum ByteString
-> FieldDescriptor Datum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Datum Datum ByteString ByteString
-> FieldAccessor Datum ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash")) ::
              Data.ProtoLens.FieldDescriptor Datum
        payload__field_descriptor :: FieldDescriptor Datum
payload__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor Datum PlutusData
-> FieldDescriptor Datum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"payload"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Lens Datum Datum (Maybe PlutusData) (Maybe PlutusData)
-> FieldAccessor Datum PlutusData
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'payload")) ::
              Data.ProtoLens.FieldDescriptor Datum
        originalCbor__field_descriptor :: FieldDescriptor Datum
originalCbor__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Datum ByteString
-> FieldDescriptor Datum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"original_cbor"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens Datum Datum (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor Datum ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalCbor")) ::
              Data.ProtoLens.FieldDescriptor Datum
      in
        [(Tag, FieldDescriptor Datum)] -> Map Tag (FieldDescriptor Datum)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Datum
hash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Datum
payload__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Datum
originalCbor__field_descriptor)]
  unknownFields :: Lens' Datum FieldSet
unknownFields
    = (Datum -> FieldSet)
-> (Datum -> FieldSet -> Datum) -> Lens' Datum FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Datum -> FieldSet
_Datum'_unknownFields
        (\ Datum
x__ FieldSet
y__ -> Datum
x__ {_Datum'_unknownFields = y__})
  defMessage :: Datum
defMessage
    = Datum'_constructor
        {_Datum'hash :: ByteString
_Datum'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Datum'payload :: Maybe PlutusData
_Datum'payload = Maybe PlutusData
forall a. Maybe a
Prelude.Nothing,
         _Datum'originalCbor :: Maybe ByteString
_Datum'originalCbor = Maybe ByteString
forall a. Maybe a
Prelude.Nothing, _Datum'_unknownFields :: FieldSet
_Datum'_unknownFields = []}
  parseMessage :: Parser Datum
parseMessage
    = let
        loop :: Datum -> Data.ProtoLens.Encoding.Bytes.Parser Datum
        loop :: Datum -> Parser Datum
loop Datum
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"hash"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)
                        Word64
18
                          -> do y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"payload"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"original_cbor"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"originalCbor") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Datum -> String -> Parser Datum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Datum -> Parser Datum
loop Datum
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Datum"
  buildMessage :: Datum -> Builder
buildMessage
    = \ Datum
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString Datum Datum ByteString ByteString
-> Datum -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") Datum
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe PlutusData)
  Datum
  Datum
  (Maybe PlutusData)
  (Maybe PlutusData)
-> Datum -> Maybe PlutusData
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'payload") Datum
_x
                 of
                   Maybe PlutusData
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just PlutusData
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (PlutusData -> ByteString) -> PlutusData -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             PlutusData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusData
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe ByteString)
  Datum
  Datum
  (Maybe ByteString)
  (Maybe ByteString)
-> Datum -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalCbor") Datum
_x
                    of
                      Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just ByteString
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                ByteString
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Datum Datum FieldSet FieldSet
-> Datum -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Datum Datum FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Datum FieldSet
Data.ProtoLens.unknownFields Datum
_x))))
instance Control.DeepSeq.NFData Datum where
  rnf :: Datum -> ()
rnf
    = \ Datum
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Datum -> FieldSet
_Datum'_unknownFields Datum
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Datum -> ByteString
_Datum'hash Datum
x__)
                (Maybe PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Datum -> Maybe PlutusData
_Datum'payload Datum
x__)
                   (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Datum -> Maybe ByteString
_Datum'originalCbor Datum
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.time' @:: Lens' EraBoundary Data.Word.Word64@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slot' @:: Lens' EraBoundary Data.Word.Word64@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.epoch' @:: Lens' EraBoundary Data.Word.Word64@ -}
data EraBoundary
  = EraBoundary'_constructor {EraBoundary -> Word64
_EraBoundary'time :: !Data.Word.Word64,
                              EraBoundary -> Word64
_EraBoundary'slot :: !Data.Word.Word64,
                              EraBoundary -> Word64
_EraBoundary'epoch :: !Data.Word.Word64,
                              EraBoundary -> FieldSet
_EraBoundary'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EraBoundary -> EraBoundary -> Bool
(EraBoundary -> EraBoundary -> Bool)
-> (EraBoundary -> EraBoundary -> Bool) -> Eq EraBoundary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EraBoundary -> EraBoundary -> Bool
== :: EraBoundary -> EraBoundary -> Bool
$c/= :: EraBoundary -> EraBoundary -> Bool
/= :: EraBoundary -> EraBoundary -> Bool
Prelude.Eq, Eq EraBoundary
Eq EraBoundary =>
(EraBoundary -> EraBoundary -> Ordering)
-> (EraBoundary -> EraBoundary -> Bool)
-> (EraBoundary -> EraBoundary -> Bool)
-> (EraBoundary -> EraBoundary -> Bool)
-> (EraBoundary -> EraBoundary -> Bool)
-> (EraBoundary -> EraBoundary -> EraBoundary)
-> (EraBoundary -> EraBoundary -> EraBoundary)
-> Ord EraBoundary
EraBoundary -> EraBoundary -> Bool
EraBoundary -> EraBoundary -> Ordering
EraBoundary -> EraBoundary -> EraBoundary
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: EraBoundary -> EraBoundary -> Ordering
compare :: EraBoundary -> EraBoundary -> Ordering
$c< :: EraBoundary -> EraBoundary -> Bool
< :: EraBoundary -> EraBoundary -> Bool
$c<= :: EraBoundary -> EraBoundary -> Bool
<= :: EraBoundary -> EraBoundary -> Bool
$c> :: EraBoundary -> EraBoundary -> Bool
> :: EraBoundary -> EraBoundary -> Bool
$c>= :: EraBoundary -> EraBoundary -> Bool
>= :: EraBoundary -> EraBoundary -> Bool
$cmax :: EraBoundary -> EraBoundary -> EraBoundary
max :: EraBoundary -> EraBoundary -> EraBoundary
$cmin :: EraBoundary -> EraBoundary -> EraBoundary
min :: EraBoundary -> EraBoundary -> EraBoundary
Prelude.Ord)
instance Prelude.Show EraBoundary where
  showsPrec :: Int -> EraBoundary -> ShowS
showsPrec Int
_ EraBoundary
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EraBoundary -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EraBoundary
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EraBoundary "time" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "time"
-> (Word64 -> f Word64) -> EraBoundary -> f EraBoundary
fieldOf Proxy# "time"
_
    = ((Word64 -> f Word64) -> EraBoundary -> f EraBoundary)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> EraBoundary
-> f EraBoundary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraBoundary -> Word64)
-> (EraBoundary -> Word64 -> EraBoundary)
-> Lens EraBoundary EraBoundary Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraBoundary -> Word64
_EraBoundary'time (\ EraBoundary
x__ Word64
y__ -> EraBoundary
x__ {_EraBoundary'time = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EraBoundary "slot" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "slot"
-> (Word64 -> f Word64) -> EraBoundary -> f EraBoundary
fieldOf Proxy# "slot"
_
    = ((Word64 -> f Word64) -> EraBoundary -> f EraBoundary)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> EraBoundary
-> f EraBoundary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraBoundary -> Word64)
-> (EraBoundary -> Word64 -> EraBoundary)
-> Lens EraBoundary EraBoundary Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraBoundary -> Word64
_EraBoundary'slot (\ EraBoundary
x__ Word64
y__ -> EraBoundary
x__ {_EraBoundary'slot = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EraBoundary "epoch" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "epoch"
-> (Word64 -> f Word64) -> EraBoundary -> f EraBoundary
fieldOf Proxy# "epoch"
_
    = ((Word64 -> f Word64) -> EraBoundary -> f EraBoundary)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> EraBoundary
-> f EraBoundary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraBoundary -> Word64)
-> (EraBoundary -> Word64 -> EraBoundary)
-> Lens EraBoundary EraBoundary Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraBoundary -> Word64
_EraBoundary'epoch (\ EraBoundary
x__ Word64
y__ -> EraBoundary
x__ {_EraBoundary'epoch = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EraBoundary where
  messageName :: Proxy EraBoundary -> Text
messageName Proxy EraBoundary
_ = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.EraBoundary"
  packedMessageDescriptor :: Proxy EraBoundary -> ByteString
packedMessageDescriptor Proxy EraBoundary
_
    = ByteString
"\n\
      \\vEraBoundary\DC2\DC2\n\
      \\EOTtime\CAN\SOH \SOH(\EOTR\EOTtime\DC2\DC2\n\
      \\EOTslot\CAN\STX \SOH(\EOTR\EOTslot\DC2\DC4\n\
      \\ENQepoch\CAN\ETX \SOH(\EOTR\ENQepoch"
  packedFileDescriptor :: Proxy EraBoundary -> ByteString
packedFileDescriptor Proxy EraBoundary
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EraBoundary)
fieldsByTag
    = let
        time__field_descriptor :: FieldDescriptor EraBoundary
time__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor EraBoundary Word64
-> FieldDescriptor EraBoundary
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"time"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens EraBoundary EraBoundary Word64 Word64
-> FieldAccessor EraBoundary Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"time")) ::
              Data.ProtoLens.FieldDescriptor EraBoundary
        slot__field_descriptor :: FieldDescriptor EraBoundary
slot__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor EraBoundary Word64
-> FieldDescriptor EraBoundary
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"slot"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens EraBoundary EraBoundary Word64 Word64
-> FieldAccessor EraBoundary Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot")) ::
              Data.ProtoLens.FieldDescriptor EraBoundary
        epoch__field_descriptor :: FieldDescriptor EraBoundary
epoch__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor EraBoundary Word64
-> FieldDescriptor EraBoundary
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"epoch"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens EraBoundary EraBoundary Word64 Word64
-> FieldAccessor EraBoundary Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"epoch")) ::
              Data.ProtoLens.FieldDescriptor EraBoundary
      in
        [(Tag, FieldDescriptor EraBoundary)]
-> Map Tag (FieldDescriptor EraBoundary)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EraBoundary
time__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor EraBoundary
slot__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor EraBoundary
epoch__field_descriptor)]
  unknownFields :: Lens' EraBoundary FieldSet
unknownFields
    = (EraBoundary -> FieldSet)
-> (EraBoundary -> FieldSet -> EraBoundary)
-> Lens' EraBoundary FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EraBoundary -> FieldSet
_EraBoundary'_unknownFields
        (\ EraBoundary
x__ FieldSet
y__ -> EraBoundary
x__ {_EraBoundary'_unknownFields = y__})
  defMessage :: EraBoundary
defMessage
    = EraBoundary'_constructor
        {_EraBoundary'time :: Word64
_EraBoundary'time = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EraBoundary'slot :: Word64
_EraBoundary'slot = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EraBoundary'epoch :: Word64
_EraBoundary'epoch = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EraBoundary'_unknownFields :: FieldSet
_EraBoundary'_unknownFields = []}
  parseMessage :: Parser EraBoundary
parseMessage
    = let
        loop ::
          EraBoundary -> Data.ProtoLens.Encoding.Bytes.Parser EraBoundary
        loop :: EraBoundary -> Parser EraBoundary
loop EraBoundary
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"time"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"time") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"slot"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x)
                        Word64
24
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"epoch"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epoch") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser EraBoundary -> String -> Parser EraBoundary
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EraBoundary -> Parser EraBoundary
loop EraBoundary
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"EraBoundary"
  buildMessage :: EraBoundary -> Builder
buildMessage
    = \ EraBoundary
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word64
_v = FoldLike Word64 EraBoundary EraBoundary Word64 Word64
-> EraBoundary -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"time") EraBoundary
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Word64
_v = FoldLike Word64 EraBoundary EraBoundary Word64 Word64
-> EraBoundary -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot") EraBoundary
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Word64
_v = FoldLike Word64 EraBoundary EraBoundary Word64 Word64
-> EraBoundary -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"epoch") EraBoundary
_x
                    in
                      if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet EraBoundary EraBoundary FieldSet FieldSet
-> EraBoundary -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EraBoundary EraBoundary FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EraBoundary FieldSet
Data.ProtoLens.unknownFields EraBoundary
_x))))
instance Control.DeepSeq.NFData EraBoundary where
  rnf :: EraBoundary -> ()
rnf
    = \ EraBoundary
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EraBoundary -> FieldSet
_EraBoundary'_unknownFields EraBoundary
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EraBoundary -> Word64
_EraBoundary'time EraBoundary
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EraBoundary -> Word64
_EraBoundary'slot EraBoundary
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EraBoundary -> Word64
_EraBoundary'epoch EraBoundary
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.summaries' @:: Lens' EraSummaries [EraSummary]@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'summaries' @:: Lens' EraSummaries (Data.Vector.Vector EraSummary)@ -}
data EraSummaries
  = EraSummaries'_constructor {EraSummaries -> Vector EraSummary
_EraSummaries'summaries :: !(Data.Vector.Vector EraSummary),
                               EraSummaries -> FieldSet
_EraSummaries'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EraSummaries -> EraSummaries -> Bool
(EraSummaries -> EraSummaries -> Bool)
-> (EraSummaries -> EraSummaries -> Bool) -> Eq EraSummaries
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EraSummaries -> EraSummaries -> Bool
== :: EraSummaries -> EraSummaries -> Bool
$c/= :: EraSummaries -> EraSummaries -> Bool
/= :: EraSummaries -> EraSummaries -> Bool
Prelude.Eq, Eq EraSummaries
Eq EraSummaries =>
(EraSummaries -> EraSummaries -> Ordering)
-> (EraSummaries -> EraSummaries -> Bool)
-> (EraSummaries -> EraSummaries -> Bool)
-> (EraSummaries -> EraSummaries -> Bool)
-> (EraSummaries -> EraSummaries -> Bool)
-> (EraSummaries -> EraSummaries -> EraSummaries)
-> (EraSummaries -> EraSummaries -> EraSummaries)
-> Ord EraSummaries
EraSummaries -> EraSummaries -> Bool
EraSummaries -> EraSummaries -> Ordering
EraSummaries -> EraSummaries -> EraSummaries
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: EraSummaries -> EraSummaries -> Ordering
compare :: EraSummaries -> EraSummaries -> Ordering
$c< :: EraSummaries -> EraSummaries -> Bool
< :: EraSummaries -> EraSummaries -> Bool
$c<= :: EraSummaries -> EraSummaries -> Bool
<= :: EraSummaries -> EraSummaries -> Bool
$c> :: EraSummaries -> EraSummaries -> Bool
> :: EraSummaries -> EraSummaries -> Bool
$c>= :: EraSummaries -> EraSummaries -> Bool
>= :: EraSummaries -> EraSummaries -> Bool
$cmax :: EraSummaries -> EraSummaries -> EraSummaries
max :: EraSummaries -> EraSummaries -> EraSummaries
$cmin :: EraSummaries -> EraSummaries -> EraSummaries
min :: EraSummaries -> EraSummaries -> EraSummaries
Prelude.Ord)
instance Prelude.Show EraSummaries where
  showsPrec :: Int -> EraSummaries -> ShowS
showsPrec Int
_ EraSummaries
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EraSummaries -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EraSummaries
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EraSummaries "summaries" [EraSummary] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "summaries"
-> ([EraSummary] -> f [EraSummary])
-> EraSummaries
-> f EraSummaries
fieldOf Proxy# "summaries"
_
    = ((Vector EraSummary -> f (Vector EraSummary))
 -> EraSummaries -> f EraSummaries)
-> (([EraSummary] -> f [EraSummary])
    -> Vector EraSummary -> f (Vector EraSummary))
-> ([EraSummary] -> f [EraSummary])
-> EraSummaries
-> f EraSummaries
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummaries -> Vector EraSummary)
-> (EraSummaries -> Vector EraSummary -> EraSummaries)
-> Lens
     EraSummaries EraSummaries (Vector EraSummary) (Vector EraSummary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummaries -> Vector EraSummary
_EraSummaries'summaries
           (\ EraSummaries
x__ Vector EraSummary
y__ -> EraSummaries
x__ {_EraSummaries'summaries = y__}))
        ((Vector EraSummary -> [EraSummary])
-> (Vector EraSummary -> [EraSummary] -> Vector EraSummary)
-> Lens
     (Vector EraSummary) (Vector EraSummary) [EraSummary] [EraSummary]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector EraSummary -> [EraSummary]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector EraSummary
_ [EraSummary]
y__ -> [EraSummary] -> Vector EraSummary
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [EraSummary]
y__))
instance Data.ProtoLens.Field.HasField EraSummaries "vec'summaries" (Data.Vector.Vector EraSummary) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'summaries"
-> (Vector EraSummary -> f (Vector EraSummary))
-> EraSummaries
-> f EraSummaries
fieldOf Proxy# "vec'summaries"
_
    = ((Vector EraSummary -> f (Vector EraSummary))
 -> EraSummaries -> f EraSummaries)
-> ((Vector EraSummary -> f (Vector EraSummary))
    -> Vector EraSummary -> f (Vector EraSummary))
-> (Vector EraSummary -> f (Vector EraSummary))
-> EraSummaries
-> f EraSummaries
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummaries -> Vector EraSummary)
-> (EraSummaries -> Vector EraSummary -> EraSummaries)
-> Lens
     EraSummaries EraSummaries (Vector EraSummary) (Vector EraSummary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummaries -> Vector EraSummary
_EraSummaries'summaries
           (\ EraSummaries
x__ Vector EraSummary
y__ -> EraSummaries
x__ {_EraSummaries'summaries = y__}))
        (Vector EraSummary -> f (Vector EraSummary))
-> Vector EraSummary -> f (Vector EraSummary)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EraSummaries where
  messageName :: Proxy EraSummaries -> Text
messageName Proxy EraSummaries
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1beta.cardano.EraSummaries"
  packedMessageDescriptor :: Proxy EraSummaries -> ByteString
packedMessageDescriptor Proxy EraSummaries
_
    = ByteString
"\n\
      \\fEraSummaries\DC2@\n\
      \\tsummaries\CAN\SOH \ETX(\v2\".utxorpc.v1beta.cardano.EraSummaryR\tsummaries"
  packedFileDescriptor :: Proxy EraSummaries -> ByteString
packedFileDescriptor Proxy EraSummaries
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EraSummaries)
fieldsByTag
    = let
        summaries__field_descriptor :: FieldDescriptor EraSummaries
summaries__field_descriptor
          = String
-> FieldTypeDescriptor EraSummary
-> FieldAccessor EraSummaries EraSummary
-> FieldDescriptor EraSummaries
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"summaries"
              (MessageOrGroup -> FieldTypeDescriptor EraSummary
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EraSummary)
              (Packing
-> Lens' EraSummaries [EraSummary]
-> FieldAccessor EraSummaries EraSummary
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"summaries")) ::
              Data.ProtoLens.FieldDescriptor EraSummaries
      in
        [(Tag, FieldDescriptor EraSummaries)]
-> Map Tag (FieldDescriptor EraSummaries)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EraSummaries
summaries__field_descriptor)]
  unknownFields :: Lens' EraSummaries FieldSet
unknownFields
    = (EraSummaries -> FieldSet)
-> (EraSummaries -> FieldSet -> EraSummaries)
-> Lens' EraSummaries FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EraSummaries -> FieldSet
_EraSummaries'_unknownFields
        (\ EraSummaries
x__ FieldSet
y__ -> EraSummaries
x__ {_EraSummaries'_unknownFields = y__})
  defMessage :: EraSummaries
defMessage
    = EraSummaries'_constructor
        {_EraSummaries'summaries :: Vector EraSummary
_EraSummaries'summaries = Vector EraSummary
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EraSummaries'_unknownFields :: FieldSet
_EraSummaries'_unknownFields = []}
  parseMessage :: Parser EraSummaries
parseMessage
    = let
        loop ::
          EraSummaries
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EraSummary
             -> Data.ProtoLens.Encoding.Bytes.Parser EraSummaries
        loop :: EraSummaries
-> Growing Vector RealWorld EraSummary -> Parser EraSummaries
loop EraSummaries
x Growing Vector RealWorld EraSummary
mutable'summaries
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'summaries <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                               mutable'summaries)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'summaries") frozen'summaries x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser EraSummary -> String -> Parser EraSummary
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"summaries"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'summaries y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'summaries
      in
        Parser EraSummaries -> String -> Parser EraSummaries
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'summaries <- IO (Growing Vector RealWorld EraSummary)
-> Parser (Growing Vector RealWorld EraSummary)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     IO (Growing Vector RealWorld EraSummary)
IO (Growing Vector (PrimState IO) EraSummary)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'summaries)
          String
"EraSummaries"
  buildMessage :: EraSummaries -> Builder
buildMessage
    = \ EraSummaries
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((EraSummary -> Builder) -> Vector EraSummary -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ EraSummary
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (EraSummary -> ByteString) -> EraSummary -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           EraSummary -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EraSummary
_v))
                (FoldLike
  (Vector EraSummary)
  EraSummaries
  EraSummaries
  (Vector EraSummary)
  (Vector EraSummary)
-> EraSummaries -> Vector EraSummary
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'summaries") EraSummaries
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet EraSummaries EraSummaries FieldSet FieldSet
-> EraSummaries -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EraSummaries EraSummaries FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EraSummaries FieldSet
Data.ProtoLens.unknownFields EraSummaries
_x))
instance Control.DeepSeq.NFData EraSummaries where
  rnf :: EraSummaries -> ()
rnf
    = \ EraSummaries
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EraSummaries -> FieldSet
_EraSummaries'_unknownFields EraSummaries
x__)
             (Vector EraSummary -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EraSummaries -> Vector EraSummary
_EraSummaries'summaries EraSummaries
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.name' @:: Lens' EraSummary Data.Text.Text@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.start' @:: Lens' EraSummary EraBoundary@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'start' @:: Lens' EraSummary (Prelude.Maybe EraBoundary)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.end' @:: Lens' EraSummary EraBoundary@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'end' @:: Lens' EraSummary (Prelude.Maybe EraBoundary)@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolParams' @:: Lens' EraSummary PParams@
         * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'protocolParams' @:: Lens' EraSummary (Prelude.Maybe PParams)@ -}
data EraSummary
  = EraSummary'_constructor {EraSummary -> Text
_EraSummary'name :: !Data.Text.Text,
                             EraSummary -> Maybe EraBoundary
_EraSummary'start :: !(Prelude.Maybe EraBoundary),
                             EraSummary -> Maybe EraBoundary
_EraSummary'end :: !(Prelude.Maybe EraBoundary),
                             EraSummary -> Maybe PParams
_EraSummary'protocolParams :: !(Prelude.Maybe PParams),
                             EraSummary -> FieldSet
_EraSummary'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EraSummary -> EraSummary -> Bool
(EraSummary -> EraSummary -> Bool)
-> (EraSummary -> EraSummary -> Bool) -> Eq EraSummary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EraSummary -> EraSummary -> Bool
== :: EraSummary -> EraSummary -> Bool
$c/= :: EraSummary -> EraSummary -> Bool
/= :: EraSummary -> EraSummary -> Bool
Prelude.Eq, Eq EraSummary
Eq EraSummary =>
(EraSummary -> EraSummary -> Ordering)
-> (EraSummary -> EraSummary -> Bool)
-> (EraSummary -> EraSummary -> Bool)
-> (EraSummary -> EraSummary -> Bool)
-> (EraSummary -> EraSummary -> Bool)
-> (EraSummary -> EraSummary -> EraSummary)
-> (EraSummary -> EraSummary -> EraSummary)
-> Ord EraSummary
EraSummary -> EraSummary -> Bool
EraSummary -> EraSummary -> Ordering
EraSummary -> EraSummary -> EraSummary
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: EraSummary -> EraSummary -> Ordering
compare :: EraSummary -> EraSummary -> Ordering
$c< :: EraSummary -> EraSummary -> Bool
< :: EraSummary -> EraSummary -> Bool
$c<= :: EraSummary -> EraSummary -> Bool
<= :: EraSummary -> EraSummary -> Bool
$c> :: EraSummary -> EraSummary -> Bool
> :: EraSummary -> EraSummary -> Bool
$c>= :: EraSummary -> EraSummary -> Bool
>= :: EraSummary -> EraSummary -> Bool
$cmax :: EraSummary -> EraSummary -> EraSummary
max :: EraSummary -> EraSummary -> EraSummary
$cmin :: EraSummary -> EraSummary -> EraSummary
min :: EraSummary -> EraSummary -> EraSummary
Prelude.Ord)
instance Prelude.Show EraSummary where
  showsPrec :: Int -> EraSummary -> ShowS
showsPrec Int
_ EraSummary
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EraSummary -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EraSummary
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EraSummary "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (Text -> f Text) -> EraSummary -> f EraSummary
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> EraSummary -> f EraSummary)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> EraSummary
-> f EraSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummary -> Text)
-> (EraSummary -> Text -> EraSummary)
-> Lens EraSummary EraSummary Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummary -> Text
_EraSummary'name (\ EraSummary
x__ Text
y__ -> EraSummary
x__ {_EraSummary'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EraSummary "start" EraBoundary where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "start"
-> (EraBoundary -> f EraBoundary) -> EraSummary -> f EraSummary
fieldOf Proxy# "start"
_
    = ((Maybe EraBoundary -> f (Maybe EraBoundary))
 -> EraSummary -> f EraSummary)
-> ((EraBoundary -> f EraBoundary)
    -> Maybe EraBoundary -> f (Maybe EraBoundary))
-> (EraBoundary -> f EraBoundary)
-> EraSummary
-> f EraSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummary -> Maybe EraBoundary)
-> (EraSummary -> Maybe EraBoundary -> EraSummary)
-> Lens
     EraSummary EraSummary (Maybe EraBoundary) (Maybe EraBoundary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummary -> Maybe EraBoundary
_EraSummary'start (\ EraSummary
x__ Maybe EraBoundary
y__ -> EraSummary
x__ {_EraSummary'start = y__}))
        (EraBoundary -> Lens' (Maybe EraBoundary) EraBoundary
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EraBoundary
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EraSummary "maybe'start" (Prelude.Maybe EraBoundary) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'start"
-> (Maybe EraBoundary -> f (Maybe EraBoundary))
-> EraSummary
-> f EraSummary
fieldOf Proxy# "maybe'start"
_
    = ((Maybe EraBoundary -> f (Maybe EraBoundary))
 -> EraSummary -> f EraSummary)
-> ((Maybe EraBoundary -> f (Maybe EraBoundary))
    -> Maybe EraBoundary -> f (Maybe EraBoundary))
-> (Maybe EraBoundary -> f (Maybe EraBoundary))
-> EraSummary
-> f EraSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummary -> Maybe EraBoundary)
-> (EraSummary -> Maybe EraBoundary -> EraSummary)
-> Lens
     EraSummary EraSummary (Maybe EraBoundary) (Maybe EraBoundary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummary -> Maybe EraBoundary
_EraSummary'start (\ EraSummary
x__ Maybe EraBoundary
y__ -> EraSummary
x__ {_EraSummary'start = y__}))
        (Maybe EraBoundary -> f (Maybe EraBoundary))
-> Maybe EraBoundary -> f (Maybe EraBoundary)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EraSummary "end" EraBoundary where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "end"
-> (EraBoundary -> f EraBoundary) -> EraSummary -> f EraSummary
fieldOf Proxy# "end"
_
    = ((Maybe EraBoundary -> f (Maybe EraBoundary))
 -> EraSummary -> f EraSummary)
-> ((EraBoundary -> f EraBoundary)
    -> Maybe EraBoundary -> f (Maybe EraBoundary))
-> (EraBoundary -> f EraBoundary)
-> EraSummary
-> f EraSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummary -> Maybe EraBoundary)
-> (EraSummary -> Maybe EraBoundary -> EraSummary)
-> Lens
     EraSummary EraSummary (Maybe EraBoundary) (Maybe EraBoundary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummary -> Maybe EraBoundary
_EraSummary'end (\ EraSummary
x__ Maybe EraBoundary
y__ -> EraSummary
x__ {_EraSummary'end = y__}))
        (EraBoundary -> Lens' (Maybe EraBoundary) EraBoundary
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EraBoundary
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EraSummary "maybe'end" (Prelude.Maybe EraBoundary) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'end"
-> (Maybe EraBoundary -> f (Maybe EraBoundary))
-> EraSummary
-> f EraSummary
fieldOf Proxy# "maybe'end"
_
    = ((Maybe EraBoundary -> f (Maybe EraBoundary))
 -> EraSummary -> f EraSummary)
-> ((Maybe EraBoundary -> f (Maybe EraBoundary))
    -> Maybe EraBoundary -> f (Maybe EraBoundary))
-> (Maybe EraBoundary -> f (Maybe EraBoundary))
-> EraSummary
-> f EraSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummary -> Maybe EraBoundary)
-> (EraSummary -> Maybe EraBoundary -> EraSummary)
-> Lens
     EraSummary EraSummary (Maybe EraBoundary) (Maybe EraBoundary)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummary -> Maybe EraBoundary
_EraSummary'end (\ EraSummary
x__ Maybe EraBoundary
y__ -> EraSummary
x__ {_EraSummary'end = y__}))
        (Maybe EraBoundary -> f (Maybe EraBoundary))
-> Maybe EraBoundary -> f (Maybe EraBoundary)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EraSummary "protocolParams" PParams where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "protocolParams"
-> (PParams -> f PParams) -> EraSummary -> f EraSummary
fieldOf Proxy# "protocolParams"
_
    = ((Maybe PParams -> f (Maybe PParams))
 -> EraSummary -> f EraSummary)
-> ((PParams -> f PParams) -> Maybe PParams -> f (Maybe PParams))
-> (PParams -> f PParams)
-> EraSummary
-> f EraSummary
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EraSummary -> Maybe PParams)
-> (EraSummary -> Maybe PParams -> EraSummary)
-> Lens EraSummary EraSummary (Maybe PParams) (Maybe PParams)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EraSummary -> Maybe PParams
_EraSummary'protocolParams
           (\ EraSummary
x__ Maybe PParams
y__ ->