{- This file was auto-generated from utxorpc/v1alpha/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.V1alpha.Cardano.Cardano (
        AddressPattern(), Asset(), AssetPattern(), AuxData(), BigInt(),
        BigInt'BigInt(..), _BigInt'Int, _BigInt'BigUInt, _BigInt'BigNInt,
        Block(), BlockBody(), BlockHeader(), Certificate(),
        Certificate'Certificate(..), _Certificate'StakeRegistration,
        _Certificate'StakeDeregistration, _Certificate'StakeDelegation,
        _Certificate'PoolRegistration, _Certificate'PoolRetirement,
        _Certificate'GenesisKeyDelegation, _Certificate'MirCert,
        Collateral(), Constr(), CostModel(), CostModels(), EvalError(),
        EvalTrace(), ExPrices(), ExUnits(), GenesisKeyDelegationCert(),
        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'ScriptPubkey,
        _NativeScript'ScriptAll, _NativeScript'ScriptAny,
        _NativeScript'ScriptNOfK, _NativeScript'InvalidBefore,
        _NativeScript'InvalidHereafter, NativeScriptList(), PParams(),
        PlutusData(), PlutusData'PlutusData(..), _PlutusData'Constr,
        _PlutusData'Map, _PlutusData'BigInt, _PlutusData'BoundedBytes,
        _PlutusData'Array, PlutusDataArray(), PlutusDataMap(),
        PlutusDataPair(), PoolMetadata(), PoolRegistrationCert(),
        PoolRetirementCert(), ProtocolVersion(), RationalNumber(),
        Redeemer(), RedeemerPurpose(..), RedeemerPurpose(),
        RedeemerPurpose'UnrecognizedValue, Relay(), Script(),
        Script'Script(..), _Script'Native, _Script'PlutusV1,
        _Script'PlutusV2, ScriptNOfK(), StakeCredential(),
        StakeCredential'StakeCredential(..), _StakeCredential'AddrKeyHash,
        _StakeCredential'ScriptHash, StakeDelegationCert(), Tx(), TxEval(),
        TxInput(), TxOutput(), TxOutputPattern(), TxPattern(),
        TxValidity(), VKeyWitness(), Withdrawal(), 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.V1alpha.Cardano.Cardano_Fields.exactAddress' @:: Lens' AddressPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.paymentPart' @:: Lens' AddressPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.delegationPart' @:: Lens' AddressPattern Data.ByteString.ByteString@ -}
data AddressPattern
  = AddressPattern'_constructor {AddressPattern -> ByteString
_AddressPattern'exactAddress :: !Data.ByteString.ByteString,
                                 AddressPattern -> ByteString
_AddressPattern'paymentPart :: !Data.ByteString.ByteString,
                                 AddressPattern -> ByteString
_AddressPattern'delegationPart :: !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"
_
    = ((ByteString -> f ByteString)
 -> AddressPattern -> f AddressPattern)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> ByteString)
-> (AddressPattern -> ByteString -> AddressPattern)
-> Lens AddressPattern AddressPattern ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> ByteString
_AddressPattern'exactAddress
           (\ AddressPattern
x__ ByteString
y__ -> AddressPattern
x__ {_AddressPattern'exactAddress = y__}))
        (ByteString -> f ByteString) -> ByteString -> f 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"
_
    = ((ByteString -> f ByteString)
 -> AddressPattern -> f AddressPattern)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> ByteString)
-> (AddressPattern -> ByteString -> AddressPattern)
-> Lens AddressPattern AddressPattern ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> ByteString
_AddressPattern'paymentPart
           (\ AddressPattern
x__ ByteString
y__ -> AddressPattern
x__ {_AddressPattern'paymentPart = y__}))
        (ByteString -> f ByteString) -> ByteString -> f 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"
_
    = ((ByteString -> f ByteString)
 -> AddressPattern -> f AddressPattern)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AddressPattern
-> f AddressPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressPattern -> ByteString)
-> (AddressPattern -> ByteString -> AddressPattern)
-> Lens AddressPattern AddressPattern ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressPattern -> ByteString
_AddressPattern'delegationPart
           (\ AddressPattern
x__ ByteString
y__ -> AddressPattern
x__ {_AddressPattern'delegationPart = y__}))
        (ByteString -> f ByteString) -> ByteString -> f 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.v1alpha.cardano.AddressPattern"
  packedMessageDescriptor :: Proxy AddressPattern -> ByteString
packedMessageDescriptor Proxy AddressPattern
_
    = ByteString
"\n\
      \\SOAddressPattern\DC2#\n\
      \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\
      \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\
      \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart"
  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)
              (WireDefault ByteString
-> Lens AddressPattern AddressPattern ByteString ByteString
-> FieldAccessor AddressPattern 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 @"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)
              (WireDefault ByteString
-> Lens AddressPattern AddressPattern ByteString ByteString
-> FieldAccessor AddressPattern 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 @"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)
              (WireDefault ByteString
-> Lens AddressPattern AddressPattern ByteString ByteString
-> FieldAccessor AddressPattern 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 @"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 :: ByteString
_AddressPattern'exactAddress = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddressPattern'paymentPart :: ByteString
_AddressPattern'paymentPart = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AddressPattern'delegationPart :: ByteString
_AddressPattern'delegationPart = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      AddressPattern -> Parser AddressPattern
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AddressPattern AddressPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AddressPattern -> AddressPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f AddressPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddressPattern FieldSet
Setter AddressPattern AddressPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AddressPattern
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"exact_address"
                                AddressPattern -> Parser AddressPattern
loop
                                  (Setter AddressPattern AddressPattern ByteString ByteString
-> ByteString -> AddressPattern -> AddressPattern
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 @"exactAddress") ByteString
y AddressPattern
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"payment_part"
                                AddressPattern -> Parser AddressPattern
loop
                                  (Setter AddressPattern AddressPattern ByteString ByteString
-> ByteString -> AddressPattern -> AddressPattern
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 @"paymentPart") ByteString
y AddressPattern
x)
                        Word64
26
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"delegation_part"
                                AddressPattern -> Parser AddressPattern
loop
                                  (Setter AddressPattern AddressPattern ByteString ByteString
-> ByteString -> AddressPattern -> AddressPattern
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 @"delegationPart") ByteString
y AddressPattern
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AddressPattern -> Parser AddressPattern
loop
                                  (Setter AddressPattern AddressPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AddressPattern -> AddressPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f AddressPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddressPattern FieldSet
Setter AddressPattern AddressPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AddressPattern
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.<>)
             (let
                _v :: ByteString
_v
                  = FoldLike
  ByteString AddressPattern AddressPattern ByteString ByteString
-> AddressPattern -> 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 @"exactAddress") AddressPattern
_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 AddressPattern AddressPattern ByteString ByteString
-> AddressPattern -> 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 @"paymentPart") AddressPattern
_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 AddressPattern AddressPattern ByteString ByteString
-> AddressPattern -> 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 @"delegationPart") AddressPattern
_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))
                   (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__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AddressPattern -> ByteString
_AddressPattern'exactAddress AddressPattern
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AddressPattern -> ByteString
_AddressPattern'paymentPart AddressPattern
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AddressPattern -> ByteString
_AddressPattern'delegationPart AddressPattern
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.name' @:: Lens' Asset Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputCoin' @:: Lens' Asset Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mintCoin' @:: Lens' Asset Data.Int.Int64@ -}
data Asset
  = Asset'_constructor {Asset -> ByteString
_Asset'name :: !Data.ByteString.ByteString,
                        Asset -> Word64
_Asset'outputCoin :: !Data.Word.Word64,
                        Asset -> Int64
_Asset'mintCoin :: !Data.Int.Int64,
                        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 "outputCoin" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "outputCoin" -> (Word64 -> f Word64) -> Asset -> f Asset
fieldOf Proxy# "outputCoin"
_
    = ((Word64 -> f Word64) -> Asset -> f Asset)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Word64)
-> (Asset -> Word64 -> Asset) -> Lens Asset Asset Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Word64
_Asset'outputCoin (\ Asset
x__ Word64
y__ -> Asset
x__ {_Asset'outputCoin = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Asset "mintCoin" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "mintCoin" -> (Int64 -> f Int64) -> Asset -> f Asset
fieldOf Proxy# "mintCoin"
_
    = ((Int64 -> f Int64) -> Asset -> f Asset)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Int64)
-> (Asset -> Int64 -> Asset) -> Lens Asset Asset Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Int64
_Asset'mintCoin (\ Asset
x__ Int64
y__ -> Asset
x__ {_Asset'mintCoin = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
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.v1alpha.cardano.Asset"
  packedMessageDescriptor :: Proxy Asset -> ByteString
packedMessageDescriptor Proxy Asset
_
    = ByteString
"\n\
      \\ENQAsset\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\US\n\
      \\voutput_coin\CAN\STX \SOH(\EOTR\n\
      \outputCoin\DC2\ESC\n\
      \\tmint_coin\CAN\ETX \SOH(\ETXR\bmintCoin"
  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
        outputCoin__field_descriptor :: FieldDescriptor Asset
outputCoin__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Asset Word64
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"output_coin"
              (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 Asset Asset Word64 Word64 -> FieldAccessor Asset 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 @"outputCoin")) ::
              Data.ProtoLens.FieldDescriptor Asset
        mintCoin__field_descriptor :: FieldDescriptor Asset
mintCoin__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Asset Int64
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"mint_coin"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens Asset Asset Int64 Int64 -> FieldAccessor Asset Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
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 @"mintCoin")) ::
              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
outputCoin__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Asset
mintCoin__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'outputCoin :: Word64
_Asset'outputCoin = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Asset'mintCoin :: Int64
_Asset'mintCoin = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Asset -> Parser Asset
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Asset Asset FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Asset -> Asset
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Asset FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Asset FieldSet
Setter Asset Asset FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Asset
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"name"
                                Asset -> Parser Asset
loop (Setter Asset Asset ByteString ByteString
-> ByteString -> Asset -> Asset
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 @"name") ByteString
y Asset
x)
                        Word64
16
                          -> do Word64
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
"output_coin"
                                Asset -> Parser Asset
loop
                                  (Setter Asset Asset Word64 Word64 -> Word64 -> Asset -> Asset
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 @"outputCoin") Word64
y Asset
x)
                        Word64
24
                          -> do Int64
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
"mint_coin"
                                Asset -> Parser Asset
loop
                                  (Setter Asset Asset Int64 Int64 -> Int64 -> Asset -> Asset
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 @"mintCoin") Int64
y Asset
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Asset -> Parser Asset
loop
                                  (Setter Asset Asset FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Asset -> Asset
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Asset FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Asset FieldSet
Setter Asset Asset FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Asset
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.<>)
                (let
                   _v :: Word64
_v
                     = FoldLike Word64 Asset Asset Word64 Word64 -> Asset -> 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 @"outputCoin") Asset
_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 :: Int64
_v = FoldLike Int64 Asset Asset Int64 Int64 -> Asset -> 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 @"mintCoin") Asset
_x
                    in
                      if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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) -> (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))
                   (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__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Asset -> Word64
_Asset'outputCoin Asset
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Asset -> Int64
_Asset'mintCoin Asset
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.policyId' @:: Lens' AssetPattern Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.assetName' @:: Lens' AssetPattern Data.ByteString.ByteString@ -}
data AssetPattern
  = AssetPattern'_constructor {AssetPattern -> ByteString
_AssetPattern'policyId :: !Data.ByteString.ByteString,
                               AssetPattern -> ByteString
_AssetPattern'assetName :: !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"
_
    = ((ByteString -> f ByteString) -> AssetPattern -> f AssetPattern)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AssetPattern
-> f AssetPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetPattern -> ByteString)
-> (AssetPattern -> ByteString -> AssetPattern)
-> Lens AssetPattern AssetPattern ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetPattern -> ByteString
_AssetPattern'policyId
           (\ AssetPattern
x__ ByteString
y__ -> AssetPattern
x__ {_AssetPattern'policyId = y__}))
        (ByteString -> f ByteString) -> ByteString -> f 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"
_
    = ((ByteString -> f ByteString) -> AssetPattern -> f AssetPattern)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AssetPattern
-> f AssetPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AssetPattern -> ByteString)
-> (AssetPattern -> ByteString -> AssetPattern)
-> Lens AssetPattern AssetPattern ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AssetPattern -> ByteString
_AssetPattern'assetName
           (\ AssetPattern
x__ ByteString
y__ -> AssetPattern
x__ {_AssetPattern'assetName = y__}))
        (ByteString -> f ByteString) -> ByteString -> f 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.v1alpha.cardano.AssetPattern"
  packedMessageDescriptor :: Proxy AssetPattern -> ByteString
packedMessageDescriptor Proxy AssetPattern
_
    = ByteString
"\n\
      \\fAssetPattern\DC2\ESC\n\
      \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\
      \\n\
      \asset_name\CAN\STX \SOH(\fR\tassetName"
  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)
              (WireDefault ByteString
-> Lens AssetPattern AssetPattern ByteString ByteString
-> FieldAccessor AssetPattern 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 @"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)
              (WireDefault ByteString
-> Lens AssetPattern AssetPattern ByteString ByteString
-> FieldAccessor AssetPattern 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 @"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 :: ByteString
_AssetPattern'policyId = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AssetPattern'assetName :: ByteString
_AssetPattern'assetName = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      AssetPattern -> Parser AssetPattern
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AssetPattern AssetPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AssetPattern -> AssetPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f AssetPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AssetPattern FieldSet
Setter AssetPattern AssetPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AssetPattern
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"policy_id"
                                AssetPattern -> Parser AssetPattern
loop
                                  (Setter AssetPattern AssetPattern ByteString ByteString
-> ByteString -> AssetPattern -> AssetPattern
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 @"policyId") ByteString
y AssetPattern
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"asset_name"
                                AssetPattern -> Parser AssetPattern
loop
                                  (Setter AssetPattern AssetPattern ByteString ByteString
-> ByteString -> AssetPattern -> AssetPattern
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 @"assetName") ByteString
y AssetPattern
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AssetPattern -> Parser AssetPattern
loop
                                  (Setter AssetPattern AssetPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AssetPattern -> AssetPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f AssetPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AssetPattern FieldSet
Setter AssetPattern AssetPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AssetPattern
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.<>)
             (let
                _v :: ByteString
_v = FoldLike ByteString AssetPattern AssetPattern ByteString ByteString
-> AssetPattern -> 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 @"policyId") AssetPattern
_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 AssetPattern AssetPattern ByteString ByteString
-> AssetPattern -> 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 @"assetName") AssetPattern
_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 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__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AssetPattern -> ByteString
_AssetPattern'policyId AssetPattern
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AssetPattern -> ByteString
_AssetPattern'assetName AssetPattern
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.metadata' @:: Lens' AuxData [Metadata]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'metadata' @:: Lens' AuxData (Data.Vector.Vector Metadata)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scripts' @:: Lens' AuxData [Script]@
         * 'Proto.Utxorpc.V1alpha.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.v1alpha.cardano.AuxData"
  packedMessageDescriptor :: Proxy AuxData -> ByteString
packedMessageDescriptor Proxy AuxData
_
    = ByteString
"\n\
      \\aAuxData\DC2=\n\
      \\bmetadata\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.cardano.MetadataR\bmetadata\DC29\n\
      \\ascripts\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Metadata
frozen'metadata <- IO (Vector Metadata) -> Parser (Vector Metadata)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Growing Vector (PrimState IO) Metadata -> IO (Vector Metadata)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              Growing Vector RealWorld Metadata
Growing Vector (PrimState IO) Metadata
mutable'metadata)
                      Vector Script
frozen'scripts <- IO (Vector Script) -> Parser (Vector Script)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) Script -> IO (Vector Script)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld Script
Growing Vector (PrimState IO) Script
mutable'scripts)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      AuxData -> Parser AuxData
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AuxData AuxData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AuxData -> AuxData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f AuxData FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuxData FieldSet
Setter AuxData AuxData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter AuxData AuxData (Vector Metadata) (Vector Metadata)
-> Vector Metadata -> AuxData -> AuxData
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 @"vec'metadata") Vector Metadata
frozen'metadata
                              (Setter AuxData AuxData (Vector Script) (Vector Script)
-> Vector Script -> AuxData -> AuxData
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 @"vec'scripts") Vector Script
frozen'scripts AuxData
x)))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !Metadata
y <- Parser Metadata -> String -> Parser Metadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Metadata -> Parser Metadata
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Metadata
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"metadata"
                                Growing Vector RealWorld Metadata
v <- IO (Growing Vector RealWorld Metadata)
-> Parser (Growing Vector RealWorld Metadata)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Metadata
-> Metadata -> IO (Growing Vector (PrimState IO) Metadata)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Metadata
Growing Vector (PrimState IO) Metadata
mutable'metadata Metadata
y)
                                AuxData
-> Growing Vector RealWorld Metadata
-> Growing Vector RealWorld Script
-> Parser AuxData
loop AuxData
x Growing Vector RealWorld Metadata
v Growing Vector RealWorld Script
mutable'scripts
                        Word64
18
                          -> do !Script
y <- Parser Script -> String -> Parser Script
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Script -> Parser Script
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Script
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"scripts"
                                Growing Vector RealWorld Script
v <- IO (Growing Vector RealWorld Script)
-> Parser (Growing Vector RealWorld Script)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Script
-> Script -> IO (Growing Vector (PrimState IO) Script)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Script
Growing Vector (PrimState IO) Script
mutable'scripts Script
y)
                                AuxData
-> Growing Vector RealWorld Metadata
-> Growing Vector RealWorld Script
-> Parser AuxData
loop AuxData
x Growing Vector RealWorld Metadata
mutable'metadata Growing Vector RealWorld Script
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AuxData
-> Growing Vector RealWorld Metadata
-> Growing Vector RealWorld Script
-> Parser AuxData
loop
                                  (Setter AuxData AuxData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AuxData -> AuxData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f AuxData FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuxData FieldSet
Setter AuxData AuxData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AuxData
x)
                                  Growing Vector RealWorld Metadata
mutable'metadata Growing Vector RealWorld Script
mutable'scripts
      in
        Parser AuxData -> String -> Parser AuxData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Metadata
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
              Growing Vector RealWorld Script
mutable'scripts <- IO (Growing Vector RealWorld Script)
-> Parser (Growing Vector RealWorld Script)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Script)
IO (Growing Vector (PrimState IO) Script)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              AuxData
-> Growing Vector RealWorld Metadata
-> Growing Vector RealWorld Script
-> Parser AuxData
loop AuxData
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Metadata
mutable'metadata Growing Vector RealWorld Script
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.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' BigInt (Prelude.Maybe BigInt'BigInt)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'int' @:: Lens' BigInt (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.int' @:: Lens' BigInt Data.Int.Int64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigUInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigUInt' @:: Lens' BigInt Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigNInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.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.v1alpha.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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      BigInt -> Parser BigInt
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter BigInt BigInt FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BigInt -> BigInt
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f BigInt FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BigInt FieldSet
Setter BigInt BigInt FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) BigInt
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Int64
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"
                                BigInt -> Parser BigInt
loop (Setter BigInt BigInt Int64 Int64 -> Int64 -> BigInt -> BigInt
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 @"int") Int64
y BigInt
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"big_u_int"
                                BigInt -> Parser BigInt
loop (Setter BigInt BigInt ByteString ByteString
-> ByteString -> BigInt -> BigInt
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 @"bigUInt") ByteString
y BigInt
x)
                        Word64
26
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"big_n_int"
                                BigInt -> Parser BigInt
loop (Setter BigInt BigInt ByteString ByteString
-> ByteString -> BigInt -> BigInt
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 @"bigNInt") ByteString
y BigInt
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BigInt -> Parser BigInt
loop
                                  (Setter BigInt BigInt FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BigInt -> BigInt
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f BigInt FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BigInt FieldSet
Setter BigInt BigInt FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BigInt
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.V1alpha.Cardano.Cardano_Fields.header' @:: Lens' Block BlockHeader@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'header' @:: Lens' Block (Prelude.Maybe BlockHeader)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.body' @:: Lens' Block BlockBody@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'body' @:: Lens' Block (Prelude.Maybe BlockBody)@ -}
data Block
  = Block'_constructor {Block -> Maybe BlockHeader
_Block'header :: !(Prelude.Maybe BlockHeader),
                        Block -> Maybe BlockBody
_Block'body :: !(Prelude.Maybe BlockBody),
                        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.Message Block where
  messageName :: Proxy Block -> Text
messageName Proxy Block
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Block"
  packedMessageDescriptor :: Proxy Block -> ByteString
packedMessageDescriptor Proxy Block
_
    = ByteString
"\n\
      \\ENQBlock\DC2<\n\
      \\ACKheader\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.cardano.BlockHeaderR\ACKheader\DC26\n\
      \\EOTbody\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.BlockBodyR\EOTbody"
  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
      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)]
  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'_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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Block -> Parser Block
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Block Block FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Block -> Block
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Block FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Block FieldSet
Setter Block Block FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Block
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do BlockHeader
y <- Parser BlockHeader -> String -> Parser BlockHeader
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser BlockHeader -> Parser BlockHeader
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser BlockHeader
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"header"
                                Block -> Parser Block
loop (Setter Block Block BlockHeader BlockHeader
-> BlockHeader -> Block -> Block
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 @"header") BlockHeader
y Block
x)
                        Word64
18
                          -> do BlockBody
y <- Parser BlockBody -> String -> Parser BlockBody
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser BlockBody -> Parser BlockBody
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser BlockBody
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"body"
                                Block -> Parser Block
loop (Setter Block Block BlockBody BlockBody
-> BlockBody -> Block -> Block
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 @"body") BlockBody
y Block
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Block -> Parser Block
loop
                                  (Setter Block Block FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Block -> Block
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Block FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Block FieldSet
Setter Block Block FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Block
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))
                (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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.tx' @:: Lens' BlockBody [Tx]@
         * 'Proto.Utxorpc.V1alpha.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.v1alpha.cardano.BlockBody"
  packedMessageDescriptor :: Proxy BlockBody -> ByteString
packedMessageDescriptor Proxy BlockBody
_
    = ByteString
"\n\
      \\tBlockBody\DC2+\n\
      \\STXtx\CAN\SOH \ETX(\v2\ESC.utxorpc.v1alpha.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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Tx
frozen'tx <- IO (Vector Tx) -> Parser (Vector Tx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     (Growing Vector (PrimState IO) Tx -> IO (Vector Tx)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Tx
Growing Vector (PrimState IO) Tx
mutable'tx)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      BlockBody -> Parser BlockBody
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter BlockBody BlockBody FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BlockBody -> BlockBody
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f BlockBody FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BlockBody FieldSet
Setter BlockBody BlockBody FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter BlockBody BlockBody (Vector Tx) (Vector Tx)
-> Vector Tx -> BlockBody -> BlockBody
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 @"vec'tx") Vector Tx
frozen'tx BlockBody
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !Tx
y <- Parser Tx -> String -> Parser Tx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Tx -> Parser Tx
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Tx
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"tx"
                                Growing Vector RealWorld Tx
v <- IO (Growing Vector RealWorld Tx)
-> Parser (Growing Vector RealWorld Tx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Tx
-> Tx -> IO (Growing Vector (PrimState IO) Tx)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Tx
Growing Vector (PrimState IO) Tx
mutable'tx Tx
y)
                                BlockBody -> Growing Vector RealWorld Tx -> Parser BlockBody
loop BlockBody
x Growing Vector RealWorld Tx
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BlockBody -> Growing Vector RealWorld Tx -> Parser BlockBody
loop
                                  (Setter BlockBody BlockBody FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BlockBody -> BlockBody
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f BlockBody FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BlockBody FieldSet
Setter BlockBody BlockBody FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BlockBody
x)
                                  Growing Vector RealWorld Tx
mutable'tx
      in
        Parser BlockBody -> String -> Parser BlockBody
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Tx
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
              BlockBody -> Growing Vector RealWorld Tx -> Parser BlockBody
loop BlockBody
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Tx
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.V1alpha.Cardano.Cardano_Fields.slot' @:: Lens' BlockHeader Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' BlockHeader Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.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.v1alpha.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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      BlockHeader -> Parser BlockHeader
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter BlockHeader BlockHeader FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BlockHeader -> BlockHeader
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f BlockHeader FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BlockHeader FieldSet
Setter BlockHeader BlockHeader FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) BlockHeader
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word64
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"
                                BlockHeader -> Parser BlockHeader
loop (Setter BlockHeader BlockHeader Word64 Word64
-> Word64 -> BlockHeader -> BlockHeader
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 @"slot") Word64
y BlockHeader
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"hash"
                                BlockHeader -> Parser BlockHeader
loop (Setter BlockHeader BlockHeader ByteString ByteString
-> ByteString -> BlockHeader -> BlockHeader
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 @"hash") ByteString
y BlockHeader
x)
                        Word64
24
                          -> do Word64
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"
                                BlockHeader -> Parser BlockHeader
loop (Setter BlockHeader BlockHeader Word64 Word64
-> Word64 -> BlockHeader -> BlockHeader
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 @"height") Word64
y BlockHeader
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BlockHeader -> Parser BlockHeader
loop
                                  (Setter BlockHeader BlockHeader FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BlockHeader -> BlockHeader
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f BlockHeader FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BlockHeader FieldSet
Setter BlockHeader BlockHeader FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BlockHeader
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.V1alpha.Cardano.Cardano_Fields.maybe'certificate' @:: Lens' Certificate (Prelude.Maybe Certificate'Certificate)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeRegistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeRegistration' @:: Lens' Certificate StakeCredential@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeDeregistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeDeregistration' @:: Lens' Certificate StakeCredential@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeDelegation' @:: Lens' Certificate (Prelude.Maybe StakeDelegationCert)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeDelegation' @:: Lens' Certificate StakeDelegationCert@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolRegistration' @:: Lens' Certificate (Prelude.Maybe PoolRegistrationCert)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRegistration' @:: Lens' Certificate PoolRegistrationCert@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolRetirement' @:: Lens' Certificate (Prelude.Maybe PoolRetirementCert)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRetirement' @:: Lens' Certificate PoolRetirementCert@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'genesisKeyDelegation' @:: Lens' Certificate (Prelude.Maybe GenesisKeyDelegationCert)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.genesisKeyDelegation' @:: Lens' Certificate GenesisKeyDelegationCert@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mirCert' @:: Lens' Certificate (Prelude.Maybe MirCert)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mirCert' @:: Lens' Certificate MirCert@ -}
data Certificate
  = Certificate'_constructor {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
  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 "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.Message Certificate where
  messageName :: Proxy Certificate -> Text
messageName Proxy Certificate
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Certificate"
  packedMessageDescriptor :: Proxy Certificate -> ByteString
packedMessageDescriptor Proxy Certificate
_
    = ByteString
"\n\
      \\vCertificate\DC2Y\n\
      \\DC2stake_registration\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2]\n\
      \\DC4stake_deregistration\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2Y\n\
      \\DLEstake_delegation\CAN\ETX \SOH(\v2,.utxorpc.v1alpha.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2\\\n\
      \\DC1pool_registration\CAN\EOT \SOH(\v2-.utxorpc.v1alpha.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2V\n\
      \\SIpool_retirement\CAN\ENQ \SOH(\v2+.utxorpc.v1alpha.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2i\n\
      \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v21.utxorpc.v1alpha.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2=\n\
      \\bmir_cert\CAN\a \SOH(\v2 .utxorpc.v1alpha.cardano.MirCertH\NULR\amirCertB\r\n\
      \\vcertificate"
  packedFileDescriptor :: Proxy Certificate -> ByteString
packedFileDescriptor Proxy Certificate
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Certificate)
fieldsByTag
    = let
        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
      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
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)]
  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'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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Certificate -> Parser Certificate
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Certificate Certificate FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Certificate -> Certificate
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Certificate FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Certificate FieldSet
Setter Certificate Certificate FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Certificate
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do StakeCredential
y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StakeCredential -> Parser StakeCredential
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StakeCredential
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"stake_registration"
                                Certificate -> Parser Certificate
loop
                                  (Setter Certificate Certificate StakeCredential StakeCredential
-> StakeCredential -> Certificate -> Certificate
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 @"stakeRegistration") StakeCredential
y Certificate
x)
                        Word64
18
                          -> do StakeCredential
y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StakeCredential -> Parser StakeCredential
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StakeCredential
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"stake_deregistration"
                                Certificate -> Parser Certificate
loop
                                  (Setter Certificate Certificate StakeCredential StakeCredential
-> StakeCredential -> Certificate -> Certificate
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 @"stakeDeregistration") StakeCredential
y Certificate
x)
                        Word64
26
                          -> do StakeDelegationCert
y <- Parser StakeDelegationCert -> String -> Parser StakeDelegationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StakeDelegationCert -> Parser StakeDelegationCert
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StakeDelegationCert
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"stake_delegation"
                                Certificate -> Parser Certificate
loop
                                  (Setter
  Certificate Certificate StakeDelegationCert StakeDelegationCert
-> StakeDelegationCert -> Certificate -> Certificate
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 @"stakeDelegation") StakeDelegationCert
y Certificate
x)
                        Word64
34
                          -> do PoolRegistrationCert
y <- Parser PoolRegistrationCert
-> String -> Parser PoolRegistrationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PoolRegistrationCert -> Parser PoolRegistrationCert
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PoolRegistrationCert
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"pool_registration"
                                Certificate -> Parser Certificate
loop
                                  (Setter
  Certificate Certificate PoolRegistrationCert PoolRegistrationCert
-> PoolRegistrationCert -> Certificate -> Certificate
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 @"poolRegistration") PoolRegistrationCert
y Certificate
x)
                        Word64
42
                          -> do PoolRetirementCert
y <- Parser PoolRetirementCert -> String -> Parser PoolRetirementCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PoolRetirementCert -> Parser PoolRetirementCert
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PoolRetirementCert
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"pool_retirement"
                                Certificate -> Parser Certificate
loop
                                  (Setter
  Certificate Certificate PoolRetirementCert PoolRetirementCert
-> PoolRetirementCert -> Certificate -> Certificate
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 @"poolRetirement") PoolRetirementCert
y Certificate
x)
                        Word64
50
                          -> do GenesisKeyDelegationCert
y <- Parser GenesisKeyDelegationCert
-> String -> Parser GenesisKeyDelegationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int
-> Parser GenesisKeyDelegationCert
-> Parser GenesisKeyDelegationCert
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser GenesisKeyDelegationCert
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"genesis_key_delegation"
                                Certificate -> Parser Certificate
loop
                                  (Setter
  Certificate
  Certificate
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
-> GenesisKeyDelegationCert -> Certificate -> Certificate
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 @"genesisKeyDelegation") GenesisKeyDelegationCert
y Certificate
x)
                        Word64
58
                          -> do MirCert
y <- Parser MirCert -> String -> Parser MirCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser MirCert -> Parser MirCert
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MirCert
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"mir_cert"
                                Certificate -> Parser Certificate
loop (Setter Certificate Certificate MirCert MirCert
-> MirCert -> Certificate -> Certificate
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 @"mirCert") MirCert
y Certificate
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Certificate -> Parser Certificate
loop
                                  (Setter Certificate Certificate FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Certificate -> Certificate
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Certificate FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Certificate FieldSet
Setter Certificate Certificate FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Certificate
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 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))
             (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 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__
_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)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateral' @:: Lens' Collateral [TxInput]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'collateral' @:: Lens' Collateral (Data.Vector.Vector TxInput)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateralReturn' @:: Lens' Collateral TxOutput@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'collateralReturn' @:: Lens' Collateral (Prelude.Maybe TxOutput)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.totalCollateral' @:: Lens' Collateral Data.Word.Word64@ -}
data Collateral
  = Collateral'_constructor {Collateral -> Vector TxInput
_Collateral'collateral :: !(Data.Vector.Vector TxInput),
                             Collateral -> Maybe TxOutput
_Collateral'collateralReturn :: !(Prelude.Maybe TxOutput),
                             Collateral -> Word64
_Collateral'totalCollateral :: !Data.Word.Word64,
                             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" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "totalCollateral"
-> (Word64 -> f Word64) -> Collateral -> f Collateral
fieldOf Proxy# "totalCollateral"
_
    = ((Word64 -> f Word64) -> Collateral -> f Collateral)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Collateral
-> f Collateral
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Collateral -> Word64)
-> (Collateral -> Word64 -> Collateral)
-> Lens Collateral Collateral Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Collateral -> Word64
_Collateral'totalCollateral
           (\ Collateral
x__ Word64
y__ -> Collateral
x__ {_Collateral'totalCollateral = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
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.v1alpha.cardano.Collateral"
  packedMessageDescriptor :: Proxy Collateral -> ByteString
packedMessageDescriptor Proxy Collateral
_
    = ByteString
"\n\
      \\n\
      \Collateral\DC2@\n\
      \\n\
      \collateral\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\n\
      \collateral\DC2N\n\
      \\DC1collateral_return\CAN\STX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\DLEcollateralReturn\DC2)\n\
      \\DLEtotal_collateral\CAN\ETX \SOH(\EOTR\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 Word64
-> FieldAccessor Collateral Word64
-> FieldDescriptor Collateral
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"total_collateral"
              (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 Collateral Collateral Word64 Word64
-> FieldAccessor Collateral 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 @"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 :: Word64
_Collateral'totalCollateral = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector TxInput
frozen'collateral <- IO (Vector TxInput) -> Parser (Vector TxInput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) TxInput -> IO (Vector TxInput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld TxInput
Growing Vector (PrimState IO) TxInput
mutable'collateral)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Collateral -> Parser Collateral
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Collateral Collateral FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Collateral -> Collateral
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Collateral FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Collateral FieldSet
Setter Collateral Collateral FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter Collateral Collateral (Vector TxInput) (Vector TxInput)
-> Vector TxInput -> Collateral -> Collateral
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 @"vec'collateral") Vector TxInput
frozen'collateral
                              Collateral
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !TxInput
y <- Parser TxInput -> String -> Parser TxInput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxInput -> Parser TxInput
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser TxInput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"collateral"
                                Growing Vector RealWorld TxInput
v <- IO (Growing Vector RealWorld TxInput)
-> Parser (Growing Vector RealWorld TxInput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxInput
-> TxInput -> IO (Growing Vector (PrimState IO) TxInput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld TxInput
Growing Vector (PrimState IO) TxInput
mutable'collateral TxInput
y)
                                Collateral -> Growing Vector RealWorld TxInput -> Parser Collateral
loop Collateral
x Growing Vector RealWorld TxInput
v
                        Word64
18
                          -> do TxOutput
y <- Parser TxOutput -> String -> Parser TxOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxOutput -> Parser TxOutput
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxOutput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"collateral_return"
                                Collateral -> Growing Vector RealWorld TxInput -> Parser Collateral
loop
                                  (Setter Collateral Collateral TxOutput TxOutput
-> TxOutput -> Collateral -> Collateral
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 @"collateralReturn") TxOutput
y Collateral
x)
                                  Growing Vector RealWorld TxInput
mutable'collateral
                        Word64
24
                          -> do Word64
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
"total_collateral"
                                Collateral -> Growing Vector RealWorld TxInput -> Parser Collateral
loop
                                  (Setter Collateral Collateral Word64 Word64
-> Word64 -> Collateral -> Collateral
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 @"totalCollateral") Word64
y Collateral
x)
                                  Growing Vector RealWorld TxInput
mutable'collateral
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Collateral -> Growing Vector RealWorld TxInput -> Parser Collateral
loop
                                  (Setter Collateral Collateral FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Collateral -> Collateral
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Collateral FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Collateral FieldSet
Setter Collateral Collateral FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Collateral
x)
                                  Growing Vector RealWorld TxInput
mutable'collateral
      in
        Parser Collateral -> String -> Parser Collateral
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld TxInput
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
              Collateral -> Growing Vector RealWorld TxInput -> Parser Collateral
loop Collateral
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld TxInput
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.<>)
                   (let
                      _v :: Word64
_v
                        = FoldLike Word64 Collateral Collateral Word64 Word64
-> Collateral -> 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 @"totalCollateral") Collateral
_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 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__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Collateral -> Word64
_Collateral'totalCollateral Collateral
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.tag' @:: Lens' Constr Data.Word.Word32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.anyConstructor' @:: Lens' Constr Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fields' @:: Lens' Constr [PlutusData]@
         * 'Proto.Utxorpc.V1alpha.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.v1alpha.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.v1alpha.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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector PlutusData
frozen'fields <- IO (Vector PlutusData) -> Parser (Vector PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) PlutusData -> IO (Vector PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld PlutusData
Growing Vector (PrimState IO) PlutusData
mutable'fields)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Constr -> Parser Constr
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Constr Constr FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Constr -> Constr
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Constr FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Constr FieldSet
Setter Constr Constr FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter Constr Constr (Vector PlutusData) (Vector PlutusData)
-> Vector PlutusData -> Constr -> Constr
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 @"vec'fields") Vector PlutusData
frozen'fields Constr
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word32
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"
                                Constr -> Growing Vector RealWorld PlutusData -> Parser Constr
loop
                                  (Setter Constr Constr Word32 Word32 -> Word32 -> Constr -> Constr
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 @"tag") Word32
y Constr
x)
                                  Growing Vector RealWorld PlutusData
mutable'fields
                        Word64
16
                          -> do Word64
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"
                                Constr -> Growing Vector RealWorld PlutusData -> Parser Constr
loop
                                  (Setter Constr Constr Word64 Word64 -> Word64 -> Constr -> Constr
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 @"anyConstructor") Word64
y Constr
x)
                                  Growing Vector RealWorld PlutusData
mutable'fields
                        Word64
26
                          -> do !PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"fields"
                                Growing Vector RealWorld PlutusData
v <- IO (Growing Vector RealWorld PlutusData)
-> Parser (Growing Vector RealWorld PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) PlutusData
-> PlutusData -> IO (Growing Vector (PrimState IO) PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld PlutusData
Growing Vector (PrimState IO) PlutusData
mutable'fields PlutusData
y)
                                Constr -> Growing Vector RealWorld PlutusData -> Parser Constr
loop Constr
x Growing Vector RealWorld PlutusData
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Constr -> Growing Vector RealWorld PlutusData -> Parser Constr
loop
                                  (Setter Constr Constr FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Constr -> Constr
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Constr FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Constr FieldSet
Setter Constr Constr FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Constr
x)
                                  Growing Vector RealWorld PlutusData
mutable'fields
      in
        Parser Constr -> String -> Parser Constr
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld PlutusData
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
              Constr -> Growing Vector RealWorld PlutusData -> Parser Constr
loop Constr
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld PlutusData
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 :
      -}
data CostModel
  = CostModel'_constructor {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.Message CostModel where
  messageName :: Proxy CostModel -> Text
messageName Proxy CostModel
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.CostModel"
  packedMessageDescriptor :: Proxy CostModel -> ByteString
packedMessageDescriptor Proxy CostModel
_
    = ByteString
"\n\
      \\tCostModel"
  packedFileDescriptor :: Proxy CostModel -> ByteString
packedFileDescriptor Proxy CostModel
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CostModel)
fieldsByTag = let in [(Tag, FieldDescriptor CostModel)]
-> Map Tag (FieldDescriptor CostModel)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  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'_unknownFields :: FieldSet
_CostModel'_unknownFields = []}
  parseMessage :: Parser CostModel
parseMessage
    = let
        loop :: CostModel -> Data.ProtoLens.Encoding.Bytes.Parser CostModel
        loop :: CostModel -> Parser CostModel
loop CostModel
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CostModel -> Parser CostModel
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter CostModel CostModel FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CostModel -> CostModel
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f CostModel FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModel FieldSet
Setter CostModel CostModel FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CostModel
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CostModel -> Parser CostModel
loop
                                  (Setter CostModel CostModel FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CostModel -> CostModel
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f CostModel FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModel FieldSet
Setter CostModel CostModel FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CostModel
x)
      in
        Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CostModel -> Parser CostModel
loop CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CostModel"
  buildMessage :: CostModel -> Builder
buildMessage
    = \ CostModel
_x
        -> 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__) ()
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModels (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: 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 -> 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.Message CostModels where
  messageName :: Proxy CostModels -> Text
messageName Proxy CostModels
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.CostModels"
  packedMessageDescriptor :: Proxy CostModels -> ByteString
packedMessageDescriptor Proxy CostModels
_
    = ByteString
"\n\
      \\n\
      \CostModels\DC2?\n\
      \\tplutus_v1\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV1\DC2?\n\
      \\tplutus_v2\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV2"
  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
      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)]
  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'_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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CostModels -> Parser CostModels
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter CostModels CostModels FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CostModels -> CostModels
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f CostModels FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModels FieldSet
Setter CostModels CostModels FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CostModels
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do CostModel
y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CostModel -> Parser CostModel
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CostModel
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"plutus_v1"
                                CostModels -> Parser CostModels
loop
                                  (Setter CostModels CostModels CostModel CostModel
-> CostModel -> CostModels -> CostModels
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 @"plutusV1") CostModel
y CostModels
x)
                        Word64
18
                          -> do CostModel
y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CostModel -> Parser CostModel
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CostModel
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"plutus_v2"
                                CostModels -> Parser CostModels
loop
                                  (Setter CostModels CostModels CostModel CostModel
-> CostModel -> CostModels -> CostModels
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 @"plutusV2") CostModel
y CostModels
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CostModels -> Parser CostModels
loop
                                  (Setter CostModels CostModels FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CostModels -> CostModels
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f CostModels FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModels FieldSet
Setter CostModels CostModels FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CostModels
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))
                (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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.msg' @:: Lens' EvalError Data.Text.Text@ -}
data EvalError
  = EvalError'_constructor {EvalError -> Text
_EvalError'msg :: !Data.Text.Text,
                            EvalError -> FieldSet
_EvalError'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EvalError -> EvalError -> Bool
(EvalError -> EvalError -> Bool)
-> (EvalError -> EvalError -> Bool) -> Eq EvalError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EvalError -> EvalError -> Bool
== :: EvalError -> EvalError -> Bool
$c/= :: EvalError -> EvalError -> Bool
/= :: EvalError -> EvalError -> Bool
Prelude.Eq, Eq EvalError
Eq EvalError =>
(EvalError -> EvalError -> Ordering)
-> (EvalError -> EvalError -> Bool)
-> (EvalError -> EvalError -> Bool)
-> (EvalError -> EvalError -> Bool)
-> (EvalError -> EvalError -> Bool)
-> (EvalError -> EvalError -> EvalError)
-> (EvalError -> EvalError -> EvalError)
-> Ord EvalError
EvalError -> EvalError -> Bool
EvalError -> EvalError -> Ordering
EvalError -> EvalError -> EvalError
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 :: EvalError -> EvalError -> Ordering
compare :: EvalError -> EvalError -> Ordering
$c< :: EvalError -> EvalError -> Bool
< :: EvalError -> EvalError -> Bool
$c<= :: EvalError -> EvalError -> Bool
<= :: EvalError -> EvalError -> Bool
$c> :: EvalError -> EvalError -> Bool
> :: EvalError -> EvalError -> Bool
$c>= :: EvalError -> EvalError -> Bool
>= :: EvalError -> EvalError -> Bool
$cmax :: EvalError -> EvalError -> EvalError
max :: EvalError -> EvalError -> EvalError
$cmin :: EvalError -> EvalError -> EvalError
min :: EvalError -> EvalError -> EvalError
Prelude.Ord)
instance Prelude.Show EvalError where
  showsPrec :: Int -> EvalError -> ShowS
showsPrec Int
_ EvalError
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EvalError -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EvalError
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EvalError "msg" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "msg" -> (Text -> f Text) -> EvalError -> f EvalError
fieldOf Proxy# "msg"
_
    = ((Text -> f Text) -> EvalError -> f EvalError)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> EvalError
-> f EvalError
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EvalError -> Text)
-> (EvalError -> Text -> EvalError)
-> Lens EvalError EvalError Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EvalError -> Text
_EvalError'msg (\ EvalError
x__ Text
y__ -> EvalError
x__ {_EvalError'msg = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EvalError where
  messageName :: Proxy EvalError -> Text
messageName Proxy EvalError
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.EvalError"
  packedMessageDescriptor :: Proxy EvalError -> ByteString
packedMessageDescriptor Proxy EvalError
_
    = ByteString
"\n\
      \\tEvalError\DC2\DLE\n\
      \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg"
  packedFileDescriptor :: Proxy EvalError -> ByteString
packedFileDescriptor Proxy EvalError
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EvalError)
fieldsByTag
    = let
        msg__field_descriptor :: FieldDescriptor EvalError
msg__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EvalError Text
-> FieldDescriptor EvalError
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"msg"
              (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 EvalError EvalError Text Text
-> FieldAccessor EvalError 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 @"msg")) ::
              Data.ProtoLens.FieldDescriptor EvalError
      in
        [(Tag, FieldDescriptor EvalError)]
-> Map Tag (FieldDescriptor EvalError)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EvalError
msg__field_descriptor)]
  unknownFields :: Lens' EvalError FieldSet
unknownFields
    = (EvalError -> FieldSet)
-> (EvalError -> FieldSet -> EvalError) -> Lens' EvalError FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EvalError -> FieldSet
_EvalError'_unknownFields
        (\ EvalError
x__ FieldSet
y__ -> EvalError
x__ {_EvalError'_unknownFields = y__})
  defMessage :: EvalError
defMessage
    = EvalError'_constructor
        {_EvalError'msg :: Text
_EvalError'msg = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EvalError'_unknownFields :: FieldSet
_EvalError'_unknownFields = []}
  parseMessage :: Parser EvalError
parseMessage
    = let
        loop :: EvalError -> Data.ProtoLens.Encoding.Bytes.Parser EvalError
        loop :: EvalError -> Parser EvalError
loop EvalError
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EvalError -> Parser EvalError
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EvalError EvalError FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalError -> EvalError
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f EvalError FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalError FieldSet
Setter EvalError EvalError FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) EvalError
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"msg"
                                EvalError -> Parser EvalError
loop (Setter EvalError EvalError Text Text
-> Text -> EvalError -> EvalError
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 @"msg") Text
y EvalError
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EvalError -> Parser EvalError
loop
                                  (Setter EvalError EvalError FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalError -> EvalError
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f EvalError FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalError FieldSet
Setter EvalError EvalError FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EvalError
x)
      in
        Parser EvalError -> String -> Parser EvalError
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EvalError -> Parser EvalError
loop EvalError
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"EvalError"
  buildMessage :: EvalError -> Builder
buildMessage
    = \ EvalError
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text EvalError EvalError Text Text -> EvalError -> 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 @"msg") EvalError
_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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet EvalError EvalError FieldSet FieldSet
-> EvalError -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EvalError EvalError FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalError FieldSet
Data.ProtoLens.unknownFields EvalError
_x))
instance Control.DeepSeq.NFData EvalError where
  rnf :: EvalError -> ()
rnf
    = \ EvalError
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EvalError -> FieldSet
_EvalError'_unknownFields EvalError
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EvalError -> Text
_EvalError'msg EvalError
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.msg' @:: Lens' EvalTrace Data.Text.Text@ -}
data EvalTrace
  = EvalTrace'_constructor {EvalTrace -> Text
_EvalTrace'msg :: !Data.Text.Text,
                            EvalTrace -> FieldSet
_EvalTrace'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EvalTrace -> EvalTrace -> Bool
(EvalTrace -> EvalTrace -> Bool)
-> (EvalTrace -> EvalTrace -> Bool) -> Eq EvalTrace
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EvalTrace -> EvalTrace -> Bool
== :: EvalTrace -> EvalTrace -> Bool
$c/= :: EvalTrace -> EvalTrace -> Bool
/= :: EvalTrace -> EvalTrace -> Bool
Prelude.Eq, Eq EvalTrace
Eq EvalTrace =>
(EvalTrace -> EvalTrace -> Ordering)
-> (EvalTrace -> EvalTrace -> Bool)
-> (EvalTrace -> EvalTrace -> Bool)
-> (EvalTrace -> EvalTrace -> Bool)
-> (EvalTrace -> EvalTrace -> Bool)
-> (EvalTrace -> EvalTrace -> EvalTrace)
-> (EvalTrace -> EvalTrace -> EvalTrace)
-> Ord EvalTrace
EvalTrace -> EvalTrace -> Bool
EvalTrace -> EvalTrace -> Ordering
EvalTrace -> EvalTrace -> EvalTrace
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 :: EvalTrace -> EvalTrace -> Ordering
compare :: EvalTrace -> EvalTrace -> Ordering
$c< :: EvalTrace -> EvalTrace -> Bool
< :: EvalTrace -> EvalTrace -> Bool
$c<= :: EvalTrace -> EvalTrace -> Bool
<= :: EvalTrace -> EvalTrace -> Bool
$c> :: EvalTrace -> EvalTrace -> Bool
> :: EvalTrace -> EvalTrace -> Bool
$c>= :: EvalTrace -> EvalTrace -> Bool
>= :: EvalTrace -> EvalTrace -> Bool
$cmax :: EvalTrace -> EvalTrace -> EvalTrace
max :: EvalTrace -> EvalTrace -> EvalTrace
$cmin :: EvalTrace -> EvalTrace -> EvalTrace
min :: EvalTrace -> EvalTrace -> EvalTrace
Prelude.Ord)
instance Prelude.Show EvalTrace where
  showsPrec :: Int -> EvalTrace -> ShowS
showsPrec Int
_ EvalTrace
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EvalTrace -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EvalTrace
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EvalTrace "msg" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "msg" -> (Text -> f Text) -> EvalTrace -> f EvalTrace
fieldOf Proxy# "msg"
_
    = ((Text -> f Text) -> EvalTrace -> f EvalTrace)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> EvalTrace
-> f EvalTrace
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EvalTrace -> Text)
-> (EvalTrace -> Text -> EvalTrace)
-> Lens EvalTrace EvalTrace Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EvalTrace -> Text
_EvalTrace'msg (\ EvalTrace
x__ Text
y__ -> EvalTrace
x__ {_EvalTrace'msg = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EvalTrace where
  messageName :: Proxy EvalTrace -> Text
messageName Proxy EvalTrace
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.EvalTrace"
  packedMessageDescriptor :: Proxy EvalTrace -> ByteString
packedMessageDescriptor Proxy EvalTrace
_
    = ByteString
"\n\
      \\tEvalTrace\DC2\DLE\n\
      \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg"
  packedFileDescriptor :: Proxy EvalTrace -> ByteString
packedFileDescriptor Proxy EvalTrace
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EvalTrace)
fieldsByTag
    = let
        msg__field_descriptor :: FieldDescriptor EvalTrace
msg__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EvalTrace Text
-> FieldDescriptor EvalTrace
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"msg"
              (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 EvalTrace EvalTrace Text Text
-> FieldAccessor EvalTrace 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 @"msg")) ::
              Data.ProtoLens.FieldDescriptor EvalTrace
      in
        [(Tag, FieldDescriptor EvalTrace)]
-> Map Tag (FieldDescriptor EvalTrace)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EvalTrace
msg__field_descriptor)]
  unknownFields :: Lens' EvalTrace FieldSet
unknownFields
    = (EvalTrace -> FieldSet)
-> (EvalTrace -> FieldSet -> EvalTrace) -> Lens' EvalTrace FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EvalTrace -> FieldSet
_EvalTrace'_unknownFields
        (\ EvalTrace
x__ FieldSet
y__ -> EvalTrace
x__ {_EvalTrace'_unknownFields = y__})
  defMessage :: EvalTrace
defMessage
    = EvalTrace'_constructor
        {_EvalTrace'msg :: Text
_EvalTrace'msg = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _EvalTrace'_unknownFields :: FieldSet
_EvalTrace'_unknownFields = []}
  parseMessage :: Parser EvalTrace
parseMessage
    = let
        loop :: EvalTrace -> Data.ProtoLens.Encoding.Bytes.Parser EvalTrace
        loop :: EvalTrace -> Parser EvalTrace
loop EvalTrace
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EvalTrace -> Parser EvalTrace
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EvalTrace EvalTrace FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalTrace -> EvalTrace
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f EvalTrace FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTrace FieldSet
Setter EvalTrace EvalTrace FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) EvalTrace
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"msg"
                                EvalTrace -> Parser EvalTrace
loop (Setter EvalTrace EvalTrace Text Text
-> Text -> EvalTrace -> EvalTrace
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 @"msg") Text
y EvalTrace
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EvalTrace -> Parser EvalTrace
loop
                                  (Setter EvalTrace EvalTrace FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalTrace -> EvalTrace
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f EvalTrace FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTrace FieldSet
Setter EvalTrace EvalTrace FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EvalTrace
x)
      in
        Parser EvalTrace -> String -> Parser EvalTrace
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EvalTrace -> Parser EvalTrace
loop EvalTrace
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"EvalTrace"
  buildMessage :: EvalTrace -> Builder
buildMessage
    = \ EvalTrace
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text EvalTrace EvalTrace Text Text -> EvalTrace -> 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 @"msg") EvalTrace
_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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet EvalTrace EvalTrace FieldSet FieldSet
-> EvalTrace -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EvalTrace EvalTrace FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTrace FieldSet
Data.ProtoLens.unknownFields EvalTrace
_x))
instance Control.DeepSeq.NFData EvalTrace where
  rnf :: EvalTrace -> ()
rnf
    = \ EvalTrace
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EvalTrace -> FieldSet
_EvalTrace'_unknownFields EvalTrace
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EvalTrace -> Text
_EvalTrace'msg EvalTrace
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.steps' @:: Lens' ExPrices RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'steps' @:: Lens' ExPrices (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.memory' @:: Lens' ExPrices RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'memory' @:: Lens' ExPrices (Prelude.Maybe RationalNumber)@ -}
data ExPrices
  = ExPrices'_constructor {ExPrices -> Maybe RationalNumber
_ExPrices'steps :: !(Prelude.Maybe RationalNumber),
                           ExPrices -> Maybe RationalNumber
_ExPrices'memory :: !(Prelude.Maybe RationalNumber),
                           ExPrices -> FieldSet
_ExPrices'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExPrices -> ExPrices -> Bool
(ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool) -> Eq ExPrices
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExPrices -> ExPrices -> Bool
== :: ExPrices -> ExPrices -> Bool
$c/= :: ExPrices -> ExPrices -> Bool
/= :: ExPrices -> ExPrices -> Bool
Prelude.Eq, Eq ExPrices
Eq ExPrices =>
(ExPrices -> ExPrices -> Ordering)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> ExPrices)
-> (ExPrices -> ExPrices -> ExPrices)
-> Ord ExPrices
ExPrices -> ExPrices -> Bool
ExPrices -> ExPrices -> Ordering
ExPrices -> ExPrices -> ExPrices
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 :: ExPrices -> ExPrices -> Ordering
compare :: ExPrices -> ExPrices -> Ordering
$c< :: ExPrices -> ExPrices -> Bool
< :: ExPrices -> ExPrices -> Bool
$c<= :: ExPrices -> ExPrices -> Bool
<= :: ExPrices -> ExPrices -> Bool
$c> :: ExPrices -> ExPrices -> Bool
> :: ExPrices -> ExPrices -> Bool
$c>= :: ExPrices -> ExPrices -> Bool
>= :: ExPrices -> ExPrices -> Bool
$cmax :: ExPrices -> ExPrices -> ExPrices
max :: ExPrices -> ExPrices -> ExPrices
$cmin :: ExPrices -> ExPrices -> ExPrices
min :: ExPrices -> ExPrices -> ExPrices
Prelude.Ord)
instance Prelude.Show ExPrices where
  showsPrec :: Int -> ExPrices -> ShowS
showsPrec Int
_ ExPrices
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExPrices -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExPrices
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExPrices "steps" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "steps"
-> (RationalNumber -> f RationalNumber) -> ExPrices -> f ExPrices
fieldOf Proxy# "steps"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'steps (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'steps = 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 ExPrices "maybe'steps" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'steps"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
fieldOf Proxy# "maybe'steps"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'steps (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'steps = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExPrices "memory" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memory"
-> (RationalNumber -> f RationalNumber) -> ExPrices -> f ExPrices
fieldOf Proxy# "memory"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'memory (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'memory = 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 ExPrices "maybe'memory" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'memory"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
fieldOf Proxy# "maybe'memory"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'memory (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'memory = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExPrices where
  messageName :: Proxy ExPrices -> Text
messageName Proxy ExPrices
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.ExPrices"
  packedMessageDescriptor :: Proxy ExPrices -> ByteString
packedMessageDescriptor Proxy ExPrices
_
    = ByteString
"\n\
      \\bExPrices\DC2=\n\
      \\ENQsteps\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ENQsteps\DC2?\n\
      \\ACKmemory\CAN\STX \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmemory"
  packedFileDescriptor :: Proxy ExPrices -> ByteString
packedFileDescriptor Proxy ExPrices
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExPrices)
fieldsByTag
    = let
        steps__field_descriptor :: FieldDescriptor ExPrices
steps__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor ExPrices RationalNumber
-> FieldDescriptor ExPrices
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"steps"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor ExPrices 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'steps")) ::
              Data.ProtoLens.FieldDescriptor ExPrices
        memory__field_descriptor :: FieldDescriptor ExPrices
memory__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor ExPrices RationalNumber
-> FieldDescriptor ExPrices
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"memory"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor ExPrices 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'memory")) ::
              Data.ProtoLens.FieldDescriptor ExPrices
      in
        [(Tag, FieldDescriptor ExPrices)]
-> Map Tag (FieldDescriptor ExPrices)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExPrices
steps__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExPrices
memory__field_descriptor)]
  unknownFields :: Lens' ExPrices FieldSet
unknownFields
    = (ExPrices -> FieldSet)
-> (ExPrices -> FieldSet -> ExPrices) -> Lens' ExPrices FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExPrices -> FieldSet
_ExPrices'_unknownFields
        (\ ExPrices
x__ FieldSet
y__ -> ExPrices
x__ {_ExPrices'_unknownFields = y__})
  defMessage :: ExPrices
defMessage
    = ExPrices'_constructor
        {_ExPrices'steps :: Maybe RationalNumber
_ExPrices'steps = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _ExPrices'memory :: Maybe RationalNumber
_ExPrices'memory = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing, _ExPrices'_unknownFields :: FieldSet
_ExPrices'_unknownFields = []}
  parseMessage :: Parser ExPrices
parseMessage
    = let
        loop :: ExPrices -> Data.ProtoLens.Encoding.Bytes.Parser ExPrices
        loop :: ExPrices -> Parser ExPrices
loop ExPrices
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExPrices -> Parser ExPrices
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ExPrices ExPrices FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ExPrices -> ExPrices
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ExPrices FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExPrices FieldSet
Setter ExPrices ExPrices FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExPrices
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do RationalNumber
y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser RationalNumber -> Parser RationalNumber
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser RationalNumber
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"steps"
                                ExPrices -> Parser ExPrices
loop (Setter ExPrices ExPrices RationalNumber RationalNumber
-> RationalNumber -> ExPrices -> ExPrices
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 @"steps") RationalNumber
y ExPrices
x)
                        Word64
18
                          -> do RationalNumber
y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser RationalNumber -> Parser RationalNumber
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser RationalNumber
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"memory"
                                ExPrices -> Parser ExPrices
loop (Setter ExPrices ExPrices RationalNumber RationalNumber
-> RationalNumber -> ExPrices -> ExPrices
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 @"memory") RationalNumber
y ExPrices
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExPrices -> Parser ExPrices
loop
                                  (Setter ExPrices ExPrices FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ExPrices -> ExPrices
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ExPrices FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExPrices FieldSet
Setter ExPrices ExPrices FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExPrices
x)
      in
        Parser ExPrices -> String -> Parser ExPrices
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExPrices -> Parser ExPrices
loop ExPrices
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExPrices"
  buildMessage :: ExPrices -> Builder
buildMessage
    = \ ExPrices
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe RationalNumber)
  ExPrices
  ExPrices
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> ExPrices -> 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'steps") ExPrices
_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)
  ExPrices
  ExPrices
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> ExPrices -> 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'memory") ExPrices
_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 ExPrices ExPrices FieldSet FieldSet
-> ExPrices -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ExPrices ExPrices FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExPrices FieldSet
Data.ProtoLens.unknownFields ExPrices
_x)))
instance Control.DeepSeq.NFData ExPrices where
  rnf :: ExPrices -> ()
rnf
    = \ ExPrices
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExPrices -> FieldSet
_ExPrices'_unknownFields ExPrices
x__)
             (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExPrices -> Maybe RationalNumber
_ExPrices'steps ExPrices
x__)
                (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ExPrices -> Maybe RationalNumber
_ExPrices'memory ExPrices
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.steps' @:: Lens' ExUnits Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.memory' @:: Lens' ExUnits Data.Word.Word64@ -}
data ExUnits
  = ExUnits'_constructor {ExUnits -> Word64
_ExUnits'steps :: !Data.Word.Word64,
                          ExUnits -> Word64
_ExUnits'memory :: !Data.Word.Word64,
                          ExUnits -> FieldSet
_ExUnits'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExUnits -> ExUnits -> Bool
(ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool) -> Eq ExUnits
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExUnits -> ExUnits -> Bool
== :: ExUnits -> ExUnits -> Bool
$c/= :: ExUnits -> ExUnits -> Bool
/= :: ExUnits -> ExUnits -> Bool
Prelude.Eq, Eq ExUnits
Eq ExUnits =>
(ExUnits -> ExUnits -> Ordering)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> ExUnits)
-> (ExUnits -> ExUnits -> ExUnits)
-> Ord ExUnits
ExUnits -> ExUnits -> Bool
ExUnits -> ExUnits -> Ordering
ExUnits -> ExUnits -> ExUnits
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 :: ExUnits -> ExUnits -> Ordering
compare :: ExUnits -> ExUnits -> Ordering
$c< :: ExUnits -> ExUnits -> Bool
< :: ExUnits -> ExUnits -> Bool
$c<= :: ExUnits -> ExUnits -> Bool
<= :: ExUnits -> ExUnits -> Bool
$c> :: ExUnits -> ExUnits -> Bool
> :: ExUnits -> ExUnits -> Bool
$c>= :: ExUnits -> ExUnits -> Bool
>= :: ExUnits -> ExUnits -> Bool
$cmax :: ExUnits -> ExUnits -> ExUnits
max :: ExUnits -> ExUnits -> ExUnits
$cmin :: ExUnits -> ExUnits -> ExUnits
min :: ExUnits -> ExUnits -> ExUnits
Prelude.Ord)
instance Prelude.Show ExUnits where
  showsPrec :: Int -> ExUnits -> ShowS
showsPrec Int
_ ExUnits
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExUnits -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExUnits
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExUnits "steps" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "steps" -> (Word64 -> f Word64) -> ExUnits -> f ExUnits
fieldOf Proxy# "steps"
_
    = ((Word64 -> f Word64) -> ExUnits -> f ExUnits)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExUnits
-> f ExUnits
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExUnits -> Word64)
-> (ExUnits -> Word64 -> ExUnits)
-> Lens ExUnits ExUnits Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExUnits -> Word64
_ExUnits'steps (\ ExUnits
x__ Word64
y__ -> ExUnits
x__ {_ExUnits'steps = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExUnits "memory" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memory" -> (Word64 -> f Word64) -> ExUnits -> f ExUnits
fieldOf Proxy# "memory"
_
    = ((Word64 -> f Word64) -> ExUnits -> f ExUnits)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExUnits
-> f ExUnits
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExUnits -> Word64)
-> (ExUnits -> Word64 -> ExUnits)
-> Lens ExUnits ExUnits Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExUnits -> Word64
_ExUnits'memory (\ ExUnits
x__ Word64
y__ -> ExUnits
x__ {_ExUnits'memory = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExUnits where
  messageName :: Proxy ExUnits -> Text
messageName Proxy ExUnits
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.ExUnits"
  packedMessageDescriptor :: Proxy ExUnits -> ByteString
packedMessageDescriptor Proxy ExUnits
_
    = ByteString
"\n\
      \\aExUnits\DC2\DC4\n\
      \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\
      \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory"
  packedFileDescriptor :: Proxy ExUnits -> ByteString
packedFileDescriptor Proxy ExUnits
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExUnits)
fieldsByTag
    = let
        steps__field_descriptor :: FieldDescriptor ExUnits
steps__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExUnits Word64
-> FieldDescriptor ExUnits
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"steps"
              (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 ExUnits ExUnits Word64 Word64
-> FieldAccessor ExUnits 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 @"steps")) ::
              Data.ProtoLens.FieldDescriptor ExUnits
        memory__field_descriptor :: FieldDescriptor ExUnits
memory__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExUnits Word64
-> FieldDescriptor ExUnits
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"memory"
              (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 ExUnits ExUnits Word64 Word64
-> FieldAccessor ExUnits 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 @"memory")) ::
              Data.ProtoLens.FieldDescriptor ExUnits
      in
        [(Tag, FieldDescriptor ExUnits)]
-> Map Tag (FieldDescriptor ExUnits)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExUnits
steps__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExUnits
memory__field_descriptor)]
  unknownFields :: Lens' ExUnits FieldSet
unknownFields
    = (ExUnits -> FieldSet)
-> (ExUnits -> FieldSet -> ExUnits) -> Lens' ExUnits FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExUnits -> FieldSet
_ExUnits'_unknownFields
        (\ ExUnits
x__ FieldSet
y__ -> ExUnits
x__ {_ExUnits'_unknownFields = y__})
  defMessage :: ExUnits
defMessage
    = ExUnits'_constructor
        {_ExUnits'steps :: Word64
_ExUnits'steps = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExUnits'memory :: Word64
_ExUnits'memory = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExUnits'_unknownFields :: FieldSet
_ExUnits'_unknownFields = []}
  parseMessage :: Parser ExUnits
parseMessage
    = let
        loop :: ExUnits -> Data.ProtoLens.Encoding.Bytes.Parser ExUnits
        loop :: ExUnits -> Parser ExUnits
loop ExUnits
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExUnits -> Parser ExUnits
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ExUnits ExUnits FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ExUnits -> ExUnits
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ExUnits FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExUnits FieldSet
Setter ExUnits ExUnits FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExUnits
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word64
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
"steps"
                                ExUnits -> Parser ExUnits
loop (Setter ExUnits ExUnits Word64 Word64
-> Word64 -> ExUnits -> ExUnits
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 @"steps") Word64
y ExUnits
x)
                        Word64
16
                          -> do Word64
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
"memory"
                                ExUnits -> Parser ExUnits
loop (Setter ExUnits ExUnits Word64 Word64
-> Word64 -> ExUnits -> ExUnits
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 @"memory") Word64
y ExUnits
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExUnits -> Parser ExUnits
loop
                                  (Setter ExUnits ExUnits FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ExUnits -> ExUnits
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ExUnits FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExUnits FieldSet
Setter ExUnits ExUnits FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExUnits
x)
      in
        Parser ExUnits -> String -> Parser ExUnits
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExUnits -> Parser ExUnits
loop ExUnits
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExUnits"
  buildMessage :: ExUnits -> Builder
buildMessage
    = \ ExUnits
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v = FoldLike Word64 ExUnits ExUnits Word64 Word64 -> ExUnits -> 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 @"steps") ExUnits
_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 ExUnits ExUnits Word64 Word64 -> ExUnits -> 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 @"memory") ExUnits
_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 ExUnits ExUnits FieldSet FieldSet
-> ExUnits -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ExUnits ExUnits FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExUnits FieldSet
Data.ProtoLens.unknownFields ExUnits
_x)))
instance Control.DeepSeq.NFData ExUnits where
  rnf :: ExUnits -> ()
rnf
    = \ ExUnits
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExUnits -> FieldSet
_ExUnits'_unknownFields ExUnits
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExUnits -> Word64
_ExUnits'steps ExUnits
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ExUnits -> Word64
_ExUnits'memory ExUnits
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.genesisHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.genesisDelegateHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@ -}
data GenesisKeyDelegationCert
  = GenesisKeyDelegationCert'_constructor {GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'genesisHash :: !Data.ByteString.ByteString,
                                           GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'genesisDelegateHash :: !Data.ByteString.ByteString,
                                           GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'vrfKeyhash :: !Data.ByteString.ByteString,
                                           GenesisKeyDelegationCert -> FieldSet
_GenesisKeyDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
(GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool)
-> (GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool)
-> Eq GenesisKeyDelegationCert
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
== :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
$c/= :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
/= :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
Prelude.Eq, Eq GenesisKeyDelegationCert
Eq GenesisKeyDelegationCert =>
(GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Ordering)
-> (GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool)
-> (GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool)
-> (GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool)
-> (GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool)
-> (GenesisKeyDelegationCert
    -> GenesisKeyDelegationCert -> GenesisKeyDelegationCert)
-> (GenesisKeyDelegationCert
    -> GenesisKeyDelegationCert -> GenesisKeyDelegationCert)
-> Ord GenesisKeyDelegationCert
GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Ordering
GenesisKeyDelegationCert
-> GenesisKeyDelegationCert -> GenesisKeyDelegationCert
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 :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Ordering
compare :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Ordering
$c< :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
< :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
$c<= :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
<= :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
$c> :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
> :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
$c>= :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
>= :: GenesisKeyDelegationCert -> GenesisKeyDelegationCert -> Bool
$cmax :: GenesisKeyDelegationCert
-> GenesisKeyDelegationCert -> GenesisKeyDelegationCert
max :: GenesisKeyDelegationCert
-> GenesisKeyDelegationCert -> GenesisKeyDelegationCert
$cmin :: GenesisKeyDelegationCert
-> GenesisKeyDelegationCert -> GenesisKeyDelegationCert
min :: GenesisKeyDelegationCert
-> GenesisKeyDelegationCert -> GenesisKeyDelegationCert
Prelude.Ord)
instance Prelude.Show GenesisKeyDelegationCert where
  showsPrec :: Int -> GenesisKeyDelegationCert -> ShowS
showsPrec Int
_ GenesisKeyDelegationCert
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (GenesisKeyDelegationCert -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GenesisKeyDelegationCert
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "genesisHash"
-> (ByteString -> f ByteString)
-> GenesisKeyDelegationCert
-> f GenesisKeyDelegationCert
fieldOf Proxy# "genesisHash"
_
    = ((ByteString -> f ByteString)
 -> GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> GenesisKeyDelegationCert
-> f GenesisKeyDelegationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GenesisKeyDelegationCert -> ByteString)
-> (GenesisKeyDelegationCert
    -> ByteString -> GenesisKeyDelegationCert)
-> Lens
     GenesisKeyDelegationCert
     GenesisKeyDelegationCert
     ByteString
     ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'genesisHash
           (\ GenesisKeyDelegationCert
x__ ByteString
y__ -> GenesisKeyDelegationCert
x__ {_GenesisKeyDelegationCert'genesisHash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisDelegateHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "genesisDelegateHash"
-> (ByteString -> f ByteString)
-> GenesisKeyDelegationCert
-> f GenesisKeyDelegationCert
fieldOf Proxy# "genesisDelegateHash"
_
    = ((ByteString -> f ByteString)
 -> GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> GenesisKeyDelegationCert
-> f GenesisKeyDelegationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GenesisKeyDelegationCert -> ByteString)
-> (GenesisKeyDelegationCert
    -> ByteString -> GenesisKeyDelegationCert)
-> Lens
     GenesisKeyDelegationCert
     GenesisKeyDelegationCert
     ByteString
     ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'genesisDelegateHash
           (\ GenesisKeyDelegationCert
x__ ByteString
y__
              -> GenesisKeyDelegationCert
x__ {_GenesisKeyDelegationCert'genesisDelegateHash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "vrfKeyhash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vrfKeyhash"
-> (ByteString -> f ByteString)
-> GenesisKeyDelegationCert
-> f GenesisKeyDelegationCert
fieldOf Proxy# "vrfKeyhash"
_
    = ((ByteString -> f ByteString)
 -> GenesisKeyDelegationCert -> f GenesisKeyDelegationCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> GenesisKeyDelegationCert
-> f GenesisKeyDelegationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GenesisKeyDelegationCert -> ByteString)
-> (GenesisKeyDelegationCert
    -> ByteString -> GenesisKeyDelegationCert)
-> Lens
     GenesisKeyDelegationCert
     GenesisKeyDelegationCert
     ByteString
     ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'vrfKeyhash
           (\ GenesisKeyDelegationCert
x__ ByteString
y__ -> GenesisKeyDelegationCert
x__ {_GenesisKeyDelegationCert'vrfKeyhash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GenesisKeyDelegationCert where
  messageName :: Proxy GenesisKeyDelegationCert -> Text
messageName Proxy GenesisKeyDelegationCert
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.GenesisKeyDelegationCert"
  packedMessageDescriptor :: Proxy GenesisKeyDelegationCert -> ByteString
packedMessageDescriptor Proxy GenesisKeyDelegationCert
_
    = ByteString
"\n\
      \\CANGenesisKeyDelegationCert\DC2!\n\
      \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\
      \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\
      \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\
      \vrfKeyhash"
  packedFileDescriptor :: Proxy GenesisKeyDelegationCert -> ByteString
packedFileDescriptor Proxy GenesisKeyDelegationCert
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor GenesisKeyDelegationCert)
fieldsByTag
    = let
        genesisHash__field_descriptor :: FieldDescriptor GenesisKeyDelegationCert
genesisHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor GenesisKeyDelegationCert ByteString
-> FieldDescriptor GenesisKeyDelegationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"genesis_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
     GenesisKeyDelegationCert
     GenesisKeyDelegationCert
     ByteString
     ByteString
-> FieldAccessor GenesisKeyDelegationCert 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 @"genesisHash")) ::
              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert
        genesisDelegateHash__field_descriptor :: FieldDescriptor GenesisKeyDelegationCert
genesisDelegateHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor GenesisKeyDelegationCert ByteString
-> FieldDescriptor GenesisKeyDelegationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"genesis_delegate_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
     GenesisKeyDelegationCert
     GenesisKeyDelegationCert
     ByteString
     ByteString
-> FieldAccessor GenesisKeyDelegationCert 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 @"genesisDelegateHash")) ::
              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert
        vrfKeyhash__field_descriptor :: FieldDescriptor GenesisKeyDelegationCert
vrfKeyhash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor GenesisKeyDelegationCert ByteString
-> FieldDescriptor GenesisKeyDelegationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"vrf_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)
              (WireDefault ByteString
-> Lens
     GenesisKeyDelegationCert
     GenesisKeyDelegationCert
     ByteString
     ByteString
-> FieldAccessor GenesisKeyDelegationCert 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 @"vrfKeyhash")) ::
              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert
      in
        [(Tag, FieldDescriptor GenesisKeyDelegationCert)]
-> Map Tag (FieldDescriptor GenesisKeyDelegationCert)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor GenesisKeyDelegationCert
genesisHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor GenesisKeyDelegationCert
genesisDelegateHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor GenesisKeyDelegationCert
vrfKeyhash__field_descriptor)]
  unknownFields :: Lens' GenesisKeyDelegationCert FieldSet
unknownFields
    = (GenesisKeyDelegationCert -> FieldSet)
-> (GenesisKeyDelegationCert
    -> FieldSet -> GenesisKeyDelegationCert)
-> Lens' GenesisKeyDelegationCert FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        GenesisKeyDelegationCert -> FieldSet
_GenesisKeyDelegationCert'_unknownFields
        (\ GenesisKeyDelegationCert
x__ FieldSet
y__ -> GenesisKeyDelegationCert
x__ {_GenesisKeyDelegationCert'_unknownFields = y__})
  defMessage :: GenesisKeyDelegationCert
defMessage
    = GenesisKeyDelegationCert'_constructor
        {_GenesisKeyDelegationCert'genesisHash :: ByteString
_GenesisKeyDelegationCert'genesisHash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _GenesisKeyDelegationCert'genesisDelegateHash :: ByteString
_GenesisKeyDelegationCert'genesisDelegateHash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _GenesisKeyDelegationCert'vrfKeyhash :: ByteString
_GenesisKeyDelegationCert'vrfKeyhash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _GenesisKeyDelegationCert'_unknownFields :: FieldSet
_GenesisKeyDelegationCert'_unknownFields = []}
  parseMessage :: Parser GenesisKeyDelegationCert
parseMessage
    = let
        loop ::
          GenesisKeyDelegationCert
          -> Data.ProtoLens.Encoding.Bytes.Parser GenesisKeyDelegationCert
        loop :: GenesisKeyDelegationCert -> Parser GenesisKeyDelegationCert
loop GenesisKeyDelegationCert
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      GenesisKeyDelegationCert -> Parser GenesisKeyDelegationCert
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  GenesisKeyDelegationCert GenesisKeyDelegationCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> GenesisKeyDelegationCert
-> GenesisKeyDelegationCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f GenesisKeyDelegationCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' GenesisKeyDelegationCert FieldSet
Setter
  GenesisKeyDelegationCert GenesisKeyDelegationCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) GenesisKeyDelegationCert
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"genesis_hash"
                                GenesisKeyDelegationCert -> Parser GenesisKeyDelegationCert
loop
                                  (Setter
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  ByteString
  ByteString
-> ByteString
-> GenesisKeyDelegationCert
-> GenesisKeyDelegationCert
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 @"genesisHash") ByteString
y GenesisKeyDelegationCert
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"genesis_delegate_hash"
                                GenesisKeyDelegationCert -> Parser GenesisKeyDelegationCert
loop
                                  (Setter
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  ByteString
  ByteString
-> ByteString
-> GenesisKeyDelegationCert
-> GenesisKeyDelegationCert
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 @"genesisDelegateHash") ByteString
y GenesisKeyDelegationCert
x)
                        Word64
26
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"vrf_keyhash"
                                GenesisKeyDelegationCert -> Parser GenesisKeyDelegationCert
loop
                                  (Setter
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  ByteString
  ByteString
-> ByteString
-> GenesisKeyDelegationCert
-> GenesisKeyDelegationCert
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 @"vrfKeyhash") ByteString
y GenesisKeyDelegationCert
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                GenesisKeyDelegationCert -> Parser GenesisKeyDelegationCert
loop
                                  (Setter
  GenesisKeyDelegationCert GenesisKeyDelegationCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> GenesisKeyDelegationCert
-> GenesisKeyDelegationCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f GenesisKeyDelegationCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' GenesisKeyDelegationCert FieldSet
Setter
  GenesisKeyDelegationCert GenesisKeyDelegationCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GenesisKeyDelegationCert
x)
      in
        Parser GenesisKeyDelegationCert
-> String -> Parser GenesisKeyDelegationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do GenesisKeyDelegationCert -> Parser GenesisKeyDelegationCert
loop GenesisKeyDelegationCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"GenesisKeyDelegationCert"
  buildMessage :: GenesisKeyDelegationCert -> Builder
buildMessage
    = \ GenesisKeyDelegationCert
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v
                  = FoldLike
  ByteString
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  ByteString
  ByteString
-> GenesisKeyDelegationCert -> 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 @"genesisHash") GenesisKeyDelegationCert
_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
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  ByteString
  ByteString
-> GenesisKeyDelegationCert -> 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 @"genesisDelegateHash") GenesisKeyDelegationCert
_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
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  ByteString
  ByteString
-> GenesisKeyDelegationCert -> 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 @"vrfKeyhash") GenesisKeyDelegationCert
_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))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  FieldSet
  FieldSet
-> GenesisKeyDelegationCert -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  GenesisKeyDelegationCert
  GenesisKeyDelegationCert
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' GenesisKeyDelegationCert FieldSet
Data.ProtoLens.unknownFields GenesisKeyDelegationCert
_x))))
instance Control.DeepSeq.NFData GenesisKeyDelegationCert where
  rnf :: GenesisKeyDelegationCert -> ()
rnf
    = \ GenesisKeyDelegationCert
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (GenesisKeyDelegationCert -> FieldSet
_GenesisKeyDelegationCert'_unknownFields GenesisKeyDelegationCert
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'genesisHash GenesisKeyDelegationCert
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'genesisDelegateHash GenesisKeyDelegationCert
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (GenesisKeyDelegationCert -> ByteString
_GenesisKeyDelegationCert'vrfKeyhash GenesisKeyDelegationCert
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.label' @:: Lens' Metadata Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' Metadata Metadatum@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' Metadata (Prelude.Maybe Metadatum)@ -}
data Metadata
  = Metadata'_constructor {Metadata -> Word64
_Metadata'label :: !Data.Word.Word64,
                           Metadata -> Maybe Metadatum
_Metadata'value :: !(Prelude.Maybe Metadatum),
                           Metadata -> FieldSet
_Metadata'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Metadata -> Metadata -> Bool
(Metadata -> Metadata -> Bool)
-> (Metadata -> Metadata -> Bool) -> Eq Metadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Metadata -> Metadata -> Bool
== :: Metadata -> Metadata -> Bool
$c/= :: Metadata -> Metadata -> Bool
/= :: Metadata -> Metadata -> Bool
Prelude.Eq, Eq Metadata
Eq Metadata =>
(Metadata -> Metadata -> Ordering)
-> (Metadata -> Metadata -> Bool)
-> (Metadata -> Metadata -> Bool)
-> (Metadata -> Metadata -> Bool)
-> (Metadata -> Metadata -> Bool)
-> (Metadata -> Metadata -> Metadata)
-> (Metadata -> Metadata -> Metadata)
-> Ord Metadata
Metadata -> Metadata -> Bool
Metadata -> Metadata -> Ordering
Metadata -> Metadata -> Metadata
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 :: Metadata -> Metadata -> Ordering
compare :: Metadata -> Metadata -> Ordering
$c< :: Metadata -> Metadata -> Bool
< :: Metadata -> Metadata -> Bool
$c<= :: Metadata -> Metadata -> Bool
<= :: Metadata -> Metadata -> Bool
$c> :: Metadata -> Metadata -> Bool
> :: Metadata -> Metadata -> Bool
$c>= :: Metadata -> Metadata -> Bool
>= :: Metadata -> Metadata -> Bool
$cmax :: Metadata -> Metadata -> Metadata
max :: Metadata -> Metadata -> Metadata
$cmin :: Metadata -> Metadata -> Metadata
min :: Metadata -> Metadata -> Metadata
Prelude.Ord)
instance Prelude.Show Metadata where
  showsPrec :: Int -> Metadata -> ShowS
showsPrec Int
_ Metadata
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Metadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Metadata
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Metadata "label" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "label" -> (Word64 -> f Word64) -> Metadata -> f Metadata
fieldOf Proxy# "label"
_
    = ((Word64 -> f Word64) -> Metadata -> f Metadata)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Metadata
-> f Metadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadata -> Word64)
-> (Metadata -> Word64 -> Metadata)
-> Lens Metadata Metadata Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadata -> Word64
_Metadata'label (\ Metadata
x__ Word64
y__ -> Metadata
x__ {_Metadata'label = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Metadata "value" Metadatum where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Metadatum -> f Metadatum) -> Metadata -> f Metadata
fieldOf Proxy# "value"
_
    = ((Maybe Metadatum -> f (Maybe Metadatum))
 -> Metadata -> f Metadata)
-> ((Metadatum -> f Metadatum)
    -> Maybe Metadatum -> f (Maybe Metadatum))
-> (Metadatum -> f Metadatum)
-> Metadata
-> f Metadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadata -> Maybe Metadatum)
-> (Metadata -> Maybe Metadatum -> Metadata)
-> Lens Metadata Metadata (Maybe Metadatum) (Maybe Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadata -> Maybe Metadatum
_Metadata'value (\ Metadata
x__ Maybe Metadatum
y__ -> Metadata
x__ {_Metadata'value = y__}))
        (Metadatum -> Lens' (Maybe Metadatum) Metadatum
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Metadatum
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Metadata "maybe'value" (Prelude.Maybe Metadatum) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Metadatum -> f (Maybe Metadatum))
-> Metadata
-> f Metadata
fieldOf Proxy# "maybe'value"
_
    = ((Maybe Metadatum -> f (Maybe Metadatum))
 -> Metadata -> f Metadata)
-> ((Maybe Metadatum -> f (Maybe Metadatum))
    -> Maybe Metadatum -> f (Maybe Metadatum))
-> (Maybe Metadatum -> f (Maybe Metadatum))
-> Metadata
-> f Metadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadata -> Maybe Metadatum)
-> (Metadata -> Maybe Metadatum -> Metadata)
-> Lens Metadata Metadata (Maybe Metadatum) (Maybe Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadata -> Maybe Metadatum
_Metadata'value (\ Metadata
x__ Maybe Metadatum
y__ -> Metadata
x__ {_Metadata'value = y__}))
        (Maybe Metadatum -> f (Maybe Metadatum))
-> Maybe Metadatum -> f (Maybe Metadatum)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Metadata where
  messageName :: Proxy Metadata -> Text
messageName Proxy Metadata
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Metadata"
  packedMessageDescriptor :: Proxy Metadata -> ByteString
packedMessageDescriptor Proxy Metadata
_
    = ByteString
"\n\
      \\bMetadata\DC2\DC4\n\
      \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC28\n\
      \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue"
  packedFileDescriptor :: Proxy Metadata -> ByteString
packedFileDescriptor Proxy Metadata
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Metadata)
fieldsByTag
    = let
        label__field_descriptor :: FieldDescriptor Metadata
label__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Metadata Word64
-> FieldDescriptor Metadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"label"
              (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 Metadata Metadata Word64 Word64
-> FieldAccessor Metadata 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 @"label")) ::
              Data.ProtoLens.FieldDescriptor Metadata
        value__field_descriptor :: FieldDescriptor Metadata
value__field_descriptor
          = String
-> FieldTypeDescriptor Metadatum
-> FieldAccessor Metadata Metadatum
-> FieldDescriptor Metadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (MessageOrGroup -> FieldTypeDescriptor Metadatum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Metadatum)
              (Lens Metadata Metadata (Maybe Metadatum) (Maybe Metadatum)
-> FieldAccessor Metadata Metadatum
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'value")) ::
              Data.ProtoLens.FieldDescriptor Metadata
      in
        [(Tag, FieldDescriptor Metadata)]
-> Map Tag (FieldDescriptor Metadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Metadata
label__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Metadata
value__field_descriptor)]
  unknownFields :: Lens' Metadata FieldSet
unknownFields
    = (Metadata -> FieldSet)
-> (Metadata -> FieldSet -> Metadata) -> Lens' Metadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Metadata -> FieldSet
_Metadata'_unknownFields
        (\ Metadata
x__ FieldSet
y__ -> Metadata
x__ {_Metadata'_unknownFields = y__})
  defMessage :: Metadata
defMessage
    = Metadata'_constructor
        {_Metadata'label :: Word64
_Metadata'label = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Metadata'value :: Maybe Metadatum
_Metadata'value = Maybe Metadatum
forall a. Maybe a
Prelude.Nothing, _Metadata'_unknownFields :: FieldSet
_Metadata'_unknownFields = []}
  parseMessage :: Parser Metadata
parseMessage
    = let
        loop :: Metadata -> Data.ProtoLens.Encoding.Bytes.Parser Metadata
        loop :: Metadata -> Parser Metadata
loop Metadata
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Metadata -> Parser Metadata
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Metadata Metadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Metadata -> Metadata
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Metadata FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Metadata FieldSet
Setter Metadata Metadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Metadata
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word64
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
"label"
                                Metadata -> Parser Metadata
loop (Setter Metadata Metadata Word64 Word64
-> Word64 -> Metadata -> Metadata
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 @"label") Word64
y Metadata
x)
                        Word64
18
                          -> do Metadatum
y <- Parser Metadatum -> String -> Parser Metadatum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Metadatum -> Parser Metadatum
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Metadatum
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"value"
                                Metadata -> Parser Metadata
loop (Setter Metadata Metadata Metadatum Metadatum
-> Metadatum -> Metadata -> Metadata
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") Metadatum
y Metadata
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Metadata -> Parser Metadata
loop
                                  (Setter Metadata Metadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Metadata -> Metadata
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Metadata FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Metadata FieldSet
Setter Metadata Metadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Metadata
x)
      in
        Parser Metadata -> String -> Parser Metadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Metadata -> Parser Metadata
loop Metadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Metadata"
  buildMessage :: Metadata -> Builder
buildMessage
    = \ Metadata
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v = FoldLike Word64 Metadata Metadata Word64 Word64
-> Metadata -> 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 @"label") Metadata
_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.<>)
                (case
                     FoldLike
  (Maybe Metadatum)
  Metadata
  Metadata
  (Maybe Metadatum)
  (Maybe Metadatum)
-> Metadata -> Maybe Metadatum
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'value") Metadata
_x
                 of
                   Maybe Metadatum
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Metadatum
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Metadatum -> ByteString) -> Metadatum -> 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))
                             Metadatum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Metadatum
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Metadata Metadata FieldSet FieldSet
-> Metadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Metadata Metadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Metadata FieldSet
Data.ProtoLens.unknownFields Metadata
_x)))
instance Control.DeepSeq.NFData Metadata where
  rnf :: Metadata -> ()
rnf
    = \ Metadata
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Metadata -> FieldSet
_Metadata'_unknownFields Metadata
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Metadata -> Word64
_Metadata'label Metadata
x__)
                (Maybe Metadatum -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Metadata -> Maybe Metadatum
_Metadata'value Metadata
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'metadatum' @:: Lens' Metadatum (Prelude.Maybe Metadatum'Metadatum)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'int' @:: Lens' Metadatum (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.int' @:: Lens' Metadatum Data.Int.Int64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bytes' @:: Lens' Metadatum (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bytes' @:: Lens' Metadatum Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'text' @:: Lens' Metadatum (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.text' @:: Lens' Metadatum Data.Text.Text@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'array' @:: Lens' Metadatum (Prelude.Maybe MetadatumArray)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.array' @:: Lens' Metadatum MetadatumArray@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'map' @:: Lens' Metadatum (Prelude.Maybe MetadatumMap)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.map' @:: Lens' Metadatum MetadatumMap@ -}
data Metadatum
  = Metadatum'_constructor {Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum :: !(Prelude.Maybe Metadatum'Metadatum),
                            Metadatum -> FieldSet
_Metadatum'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Metadatum -> Metadatum -> Bool
(Metadatum -> Metadatum -> Bool)
-> (Metadatum -> Metadatum -> Bool) -> Eq Metadatum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Metadatum -> Metadatum -> Bool
== :: Metadatum -> Metadatum -> Bool
$c/= :: Metadatum -> Metadatum -> Bool
/= :: Metadatum -> Metadatum -> Bool
Prelude.Eq, Eq Metadatum
Eq Metadatum =>
(Metadatum -> Metadatum -> Ordering)
-> (Metadatum -> Metadatum -> Bool)
-> (Metadatum -> Metadatum -> Bool)
-> (Metadatum -> Metadatum -> Bool)
-> (Metadatum -> Metadatum -> Bool)
-> (Metadatum -> Metadatum -> Metadatum)
-> (Metadatum -> Metadatum -> Metadatum)
-> Ord Metadatum
Metadatum -> Metadatum -> Bool
Metadatum -> Metadatum -> Ordering
Metadatum -> Metadatum -> Metadatum
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 :: Metadatum -> Metadatum -> Ordering
compare :: Metadatum -> Metadatum -> Ordering
$c< :: Metadatum -> Metadatum -> Bool
< :: Metadatum -> Metadatum -> Bool
$c<= :: Metadatum -> Metadatum -> Bool
<= :: Metadatum -> Metadatum -> Bool
$c> :: Metadatum -> Metadatum -> Bool
> :: Metadatum -> Metadatum -> Bool
$c>= :: Metadatum -> Metadatum -> Bool
>= :: Metadatum -> Metadatum -> Bool
$cmax :: Metadatum -> Metadatum -> Metadatum
max :: Metadatum -> Metadatum -> Metadatum
$cmin :: Metadatum -> Metadatum -> Metadatum
min :: Metadatum -> Metadatum -> Metadatum
Prelude.Ord)
instance Prelude.Show Metadatum where
  showsPrec :: Int -> Metadatum -> ShowS
showsPrec Int
_ Metadatum
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Metadatum -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Metadatum
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Metadatum'Metadatum
  = Metadatum'Int !Data.Int.Int64 |
    Metadatum'Bytes !Data.ByteString.ByteString |
    Metadatum'Text !Data.Text.Text |
    Metadatum'Array !MetadatumArray |
    Metadatum'Map !MetadatumMap
  deriving stock (Int -> Metadatum'Metadatum -> ShowS
[Metadatum'Metadatum] -> ShowS
Metadatum'Metadatum -> String
(Int -> Metadatum'Metadatum -> ShowS)
-> (Metadatum'Metadatum -> String)
-> ([Metadatum'Metadatum] -> ShowS)
-> Show Metadatum'Metadatum
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Metadatum'Metadatum -> ShowS
showsPrec :: Int -> Metadatum'Metadatum -> ShowS
$cshow :: Metadatum'Metadatum -> String
show :: Metadatum'Metadatum -> String
$cshowList :: [Metadatum'Metadatum] -> ShowS
showList :: [Metadatum'Metadatum] -> ShowS
Prelude.Show, Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
(Metadatum'Metadatum -> Metadatum'Metadatum -> Bool)
-> (Metadatum'Metadatum -> Metadatum'Metadatum -> Bool)
-> Eq Metadatum'Metadatum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
== :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
$c/= :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
/= :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
Prelude.Eq, Eq Metadatum'Metadatum
Eq Metadatum'Metadatum =>
(Metadatum'Metadatum -> Metadatum'Metadatum -> Ordering)
-> (Metadatum'Metadatum -> Metadatum'Metadatum -> Bool)
-> (Metadatum'Metadatum -> Metadatum'Metadatum -> Bool)
-> (Metadatum'Metadatum -> Metadatum'Metadatum -> Bool)
-> (Metadatum'Metadatum -> Metadatum'Metadatum -> Bool)
-> (Metadatum'Metadatum
    -> Metadatum'Metadatum -> Metadatum'Metadatum)
-> (Metadatum'Metadatum
    -> Metadatum'Metadatum -> Metadatum'Metadatum)
-> Ord Metadatum'Metadatum
Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
Metadatum'Metadatum -> Metadatum'Metadatum -> Ordering
Metadatum'Metadatum -> Metadatum'Metadatum -> Metadatum'Metadatum
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 :: Metadatum'Metadatum -> Metadatum'Metadatum -> Ordering
compare :: Metadatum'Metadatum -> Metadatum'Metadatum -> Ordering
$c< :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
< :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
$c<= :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
<= :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
$c> :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
> :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
$c>= :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
>= :: Metadatum'Metadatum -> Metadatum'Metadatum -> Bool
$cmax :: Metadatum'Metadatum -> Metadatum'Metadatum -> Metadatum'Metadatum
max :: Metadatum'Metadatum -> Metadatum'Metadatum -> Metadatum'Metadatum
$cmin :: Metadatum'Metadatum -> Metadatum'Metadatum -> Metadatum'Metadatum
min :: Metadatum'Metadatum -> Metadatum'Metadatum -> Metadatum'Metadatum
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Metadatum "maybe'metadatum" (Prelude.Maybe Metadatum'Metadatum) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'metadatum"
-> (Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> Metadatum
-> f Metadatum
fieldOf Proxy# "maybe'metadatum"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        (Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Metadatum "maybe'int" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'int"
-> (Maybe Int64 -> f (Maybe Int64)) -> Metadatum -> f Metadatum
fieldOf Proxy# "maybe'int"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Maybe Int64 -> f (Maybe Int64))
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        ((Maybe Metadatum'Metadatum -> Maybe Int64)
-> (Maybe Metadatum'Metadatum
    -> Maybe Int64 -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Metadatum'Metadatum
x__
              -> case Maybe Metadatum'Metadatum
x__ of
                   (Prelude.Just (Metadatum'Int Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Metadatum'Metadatum
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Metadatum'Metadatum
_ Maybe Int64
y__ -> (Int64 -> Metadatum'Metadatum)
-> Maybe Int64 -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Metadatum'Metadatum
Metadatum'Int Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Metadatum "int" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "int" -> (Int64 -> f Int64) -> Metadatum -> f Metadatum
fieldOf Proxy# "int"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Int64 -> f Int64)
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Int64 -> f Int64)
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Metadatum'Metadatum
-> f (Maybe Metadatum'Metadatum)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Metadatum'Metadatum -> Maybe Int64)
-> (Maybe Metadatum'Metadatum
    -> Maybe Int64 -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Metadatum'Metadatum
x__
                 -> case Maybe Metadatum'Metadatum
x__ of
                      (Prelude.Just (Metadatum'Int Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Metadatum'Metadatum
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Metadatum'Metadatum
_ Maybe Int64
y__ -> (Int64 -> Metadatum'Metadatum)
-> Maybe Int64 -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Metadatum'Metadatum
Metadatum'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 Metadatum "maybe'bytes" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'bytes"
-> (Maybe ByteString -> f (Maybe ByteString))
-> Metadatum
-> f Metadatum
fieldOf Proxy# "maybe'bytes"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        ((Maybe Metadatum'Metadatum -> Maybe ByteString)
-> (Maybe Metadatum'Metadatum
    -> Maybe ByteString -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Metadatum'Metadatum
x__
              -> case Maybe Metadatum'Metadatum
x__ of
                   (Prelude.Just (Metadatum'Bytes ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe Metadatum'Metadatum
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Metadatum'Metadatum
_ Maybe ByteString
y__ -> (ByteString -> Metadatum'Metadatum)
-> Maybe ByteString -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Metadatum'Metadatum
Metadatum'Bytes Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Metadatum "bytes" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "bytes"
-> (ByteString -> f ByteString) -> Metadatum -> f Metadatum
fieldOf Proxy# "bytes"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((ByteString -> f ByteString)
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (ByteString -> f ByteString)
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe Metadatum'Metadatum
-> f (Maybe Metadatum'Metadatum)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Metadatum'Metadatum -> Maybe ByteString)
-> (Maybe Metadatum'Metadatum
    -> Maybe ByteString -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Metadatum'Metadatum
x__
                 -> case Maybe Metadatum'Metadatum
x__ of
                      (Prelude.Just (Metadatum'Bytes ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe Metadatum'Metadatum
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Metadatum'Metadatum
_ Maybe ByteString
y__ -> (ByteString -> Metadatum'Metadatum)
-> Maybe ByteString -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Metadatum'Metadatum
Metadatum'Bytes 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 Metadatum "maybe'text" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'text"
-> (Maybe Text -> f (Maybe Text)) -> Metadatum -> f Metadatum
fieldOf Proxy# "maybe'text"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Maybe Text -> f (Maybe Text))
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        ((Maybe Metadatum'Metadatum -> Maybe Text)
-> (Maybe Metadatum'Metadatum
    -> Maybe Text -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Metadatum'Metadatum
x__
              -> case Maybe Metadatum'Metadatum
x__ of
                   (Prelude.Just (Metadatum'Text Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   Maybe Metadatum'Metadatum
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Metadatum'Metadatum
_ Maybe Text
y__ -> (Text -> Metadatum'Metadatum)
-> Maybe Text -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> Metadatum'Metadatum
Metadatum'Text Maybe Text
y__))
instance Data.ProtoLens.Field.HasField Metadatum "text" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "text" -> (Text -> f Text) -> Metadatum -> f Metadatum
fieldOf Proxy# "text"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Text -> f Text)
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Text -> f Text)
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe Metadatum'Metadatum
-> f (Maybe Metadatum'Metadatum)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Metadatum'Metadatum -> Maybe Text)
-> (Maybe Metadatum'Metadatum
    -> Maybe Text -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Metadatum'Metadatum
x__
                 -> case Maybe Metadatum'Metadatum
x__ of
                      (Prelude.Just (Metadatum'Text Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      Maybe Metadatum'Metadatum
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Metadatum'Metadatum
_ Maybe Text
y__ -> (Text -> Metadatum'Metadatum)
-> Maybe Text -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> Metadatum'Metadatum
Metadatum'Text Maybe Text
y__))
           (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Metadatum "maybe'array" (Prelude.Maybe MetadatumArray) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'array"
-> (Maybe MetadatumArray -> f (Maybe MetadatumArray))
-> Metadatum
-> f Metadatum
fieldOf Proxy# "maybe'array"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Maybe MetadatumArray -> f (Maybe MetadatumArray))
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Maybe MetadatumArray -> f (Maybe MetadatumArray))
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        ((Maybe Metadatum'Metadatum -> Maybe MetadatumArray)
-> (Maybe Metadatum'Metadatum
    -> Maybe MetadatumArray -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe MetadatumArray)
     (Maybe MetadatumArray)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Metadatum'Metadatum
x__
              -> case Maybe Metadatum'Metadatum
x__ of
                   (Prelude.Just (Metadatum'Array MetadatumArray
x__val)) -> MetadatumArray -> Maybe MetadatumArray
forall a. a -> Maybe a
Prelude.Just MetadatumArray
x__val
                   Maybe Metadatum'Metadatum
_otherwise -> Maybe MetadatumArray
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Metadatum'Metadatum
_ Maybe MetadatumArray
y__ -> (MetadatumArray -> Metadatum'Metadatum)
-> Maybe MetadatumArray -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap MetadatumArray -> Metadatum'Metadatum
Metadatum'Array Maybe MetadatumArray
y__))
instance Data.ProtoLens.Field.HasField Metadatum "array" MetadatumArray where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "array"
-> (MetadatumArray -> f MetadatumArray) -> Metadatum -> f Metadatum
fieldOf Proxy# "array"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((MetadatumArray -> f MetadatumArray)
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (MetadatumArray -> f MetadatumArray)
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        (((Maybe MetadatumArray -> f (Maybe MetadatumArray))
 -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> ((MetadatumArray -> f MetadatumArray)
    -> Maybe MetadatumArray -> f (Maybe MetadatumArray))
-> (MetadatumArray -> f MetadatumArray)
-> Maybe Metadatum'Metadatum
-> f (Maybe Metadatum'Metadatum)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Metadatum'Metadatum -> Maybe MetadatumArray)
-> (Maybe Metadatum'Metadatum
    -> Maybe MetadatumArray -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe MetadatumArray)
     (Maybe MetadatumArray)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Metadatum'Metadatum
x__
                 -> case Maybe Metadatum'Metadatum
x__ of
                      (Prelude.Just (Metadatum'Array MetadatumArray
x__val)) -> MetadatumArray -> Maybe MetadatumArray
forall a. a -> Maybe a
Prelude.Just MetadatumArray
x__val
                      Maybe Metadatum'Metadatum
_otherwise -> Maybe MetadatumArray
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Metadatum'Metadatum
_ Maybe MetadatumArray
y__ -> (MetadatumArray -> Metadatum'Metadatum)
-> Maybe MetadatumArray -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap MetadatumArray -> Metadatum'Metadatum
Metadatum'Array Maybe MetadatumArray
y__))
           (MetadatumArray -> Lens' (Maybe MetadatumArray) MetadatumArray
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MetadatumArray
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Metadatum "maybe'map" (Prelude.Maybe MetadatumMap) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'map"
-> (Maybe MetadatumMap -> f (Maybe MetadatumMap))
-> Metadatum
-> f Metadatum
fieldOf Proxy# "maybe'map"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((Maybe MetadatumMap -> f (Maybe MetadatumMap))
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (Maybe MetadatumMap -> f (Maybe MetadatumMap))
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        ((Maybe Metadatum'Metadatum -> Maybe MetadatumMap)
-> (Maybe Metadatum'Metadatum
    -> Maybe MetadatumMap -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe MetadatumMap)
     (Maybe MetadatumMap)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Metadatum'Metadatum
x__
              -> case Maybe Metadatum'Metadatum
x__ of
                   (Prelude.Just (Metadatum'Map MetadatumMap
x__val)) -> MetadatumMap -> Maybe MetadatumMap
forall a. a -> Maybe a
Prelude.Just MetadatumMap
x__val
                   Maybe Metadatum'Metadatum
_otherwise -> Maybe MetadatumMap
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Metadatum'Metadatum
_ Maybe MetadatumMap
y__ -> (MetadatumMap -> Metadatum'Metadatum)
-> Maybe MetadatumMap -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap MetadatumMap -> Metadatum'Metadatum
Metadatum'Map Maybe MetadatumMap
y__))
instance Data.ProtoLens.Field.HasField Metadatum "map" MetadatumMap where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "map"
-> (MetadatumMap -> f MetadatumMap) -> Metadatum -> f Metadatum
fieldOf Proxy# "map"
_
    = ((Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
 -> Metadatum -> f Metadatum)
-> ((MetadatumMap -> f MetadatumMap)
    -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> (MetadatumMap -> f MetadatumMap)
-> Metadatum
-> f Metadatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Metadatum -> Maybe Metadatum'Metadatum)
-> (Metadatum -> Maybe Metadatum'Metadatum -> Metadatum)
-> Lens
     Metadatum
     Metadatum
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum
           (\ Metadatum
x__ Maybe Metadatum'Metadatum
y__ -> Metadatum
x__ {_Metadatum'metadatum = y__}))
        (((Maybe MetadatumMap -> f (Maybe MetadatumMap))
 -> Maybe Metadatum'Metadatum -> f (Maybe Metadatum'Metadatum))
-> ((MetadatumMap -> f MetadatumMap)
    -> Maybe MetadatumMap -> f (Maybe MetadatumMap))
-> (MetadatumMap -> f MetadatumMap)
-> Maybe Metadatum'Metadatum
-> f (Maybe Metadatum'Metadatum)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Metadatum'Metadatum -> Maybe MetadatumMap)
-> (Maybe Metadatum'Metadatum
    -> Maybe MetadatumMap -> Maybe Metadatum'Metadatum)
-> Lens
     (Maybe Metadatum'Metadatum)
     (Maybe Metadatum'Metadatum)
     (Maybe MetadatumMap)
     (Maybe MetadatumMap)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Metadatum'Metadatum
x__
                 -> case Maybe Metadatum'Metadatum
x__ of
                      (Prelude.Just (Metadatum'Map MetadatumMap
x__val)) -> MetadatumMap -> Maybe MetadatumMap
forall a. a -> Maybe a
Prelude.Just MetadatumMap
x__val
                      Maybe Metadatum'Metadatum
_otherwise -> Maybe MetadatumMap
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Metadatum'Metadatum
_ Maybe MetadatumMap
y__ -> (MetadatumMap -> Metadatum'Metadatum)
-> Maybe MetadatumMap -> Maybe Metadatum'Metadatum
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap MetadatumMap -> Metadatum'Metadatum
Metadatum'Map Maybe MetadatumMap
y__))
           (MetadatumMap -> Lens' (Maybe MetadatumMap) MetadatumMap
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MetadatumMap
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Metadatum where
  messageName :: Proxy Metadatum -> Text
messageName Proxy Metadatum
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Metadatum"
  packedMessageDescriptor :: Proxy Metadatum -> ByteString
packedMessageDescriptor Proxy Metadatum
_
    = ByteString
"\n\
      \\tMetadatum\DC2\DC2\n\
      \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\
      \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\
      \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2?\n\
      \\ENQarray\CAN\EOT \SOH(\v2'.utxorpc.v1alpha.cardano.MetadatumArrayH\NULR\ENQarray\DC29\n\
      \\ETXmap\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.MetadatumMapH\NULR\ETXmapB\v\n\
      \\tmetadatum"
  packedFileDescriptor :: Proxy Metadatum -> ByteString
packedFileDescriptor Proxy Metadatum
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Metadatum)
fieldsByTag
    = let
        int__field_descriptor :: FieldDescriptor Metadatum
int__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Metadatum Int64
-> FieldDescriptor Metadatum
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' Metadatum (Maybe Int64) -> FieldAccessor Metadatum 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 Metadatum
        bytes__field_descriptor :: FieldDescriptor Metadatum
bytes__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Metadatum ByteString
-> FieldDescriptor Metadatum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"bytes"
              (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' Metadatum (Maybe ByteString)
-> FieldAccessor Metadatum 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'bytes")) ::
              Data.ProtoLens.FieldDescriptor Metadatum
        text__field_descriptor :: FieldDescriptor Metadatum
text__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Metadatum Text
-> FieldDescriptor Metadatum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"text"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens' Metadatum (Maybe Text) -> FieldAccessor Metadatum Text
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'text")) ::
              Data.ProtoLens.FieldDescriptor Metadatum
        array__field_descriptor :: FieldDescriptor Metadatum
array__field_descriptor
          = String
-> FieldTypeDescriptor MetadatumArray
-> FieldAccessor Metadatum MetadatumArray
-> FieldDescriptor Metadatum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"array"
              (MessageOrGroup -> FieldTypeDescriptor MetadatumArray
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MetadatumArray)
              (Lens' Metadatum (Maybe MetadatumArray)
-> FieldAccessor Metadatum MetadatumArray
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'array")) ::
              Data.ProtoLens.FieldDescriptor Metadatum
        map__field_descriptor :: FieldDescriptor Metadatum
map__field_descriptor
          = String
-> FieldTypeDescriptor MetadatumMap
-> FieldAccessor Metadatum MetadatumMap
-> FieldDescriptor Metadatum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"map"
              (MessageOrGroup -> FieldTypeDescriptor MetadatumMap
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MetadatumMap)
              (Lens' Metadatum (Maybe MetadatumMap)
-> FieldAccessor Metadatum MetadatumMap
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'map")) ::
              Data.ProtoLens.FieldDescriptor Metadatum
      in
        [(Tag, FieldDescriptor Metadatum)]
-> Map Tag (FieldDescriptor Metadatum)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Metadatum
int__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Metadatum
bytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Metadatum
text__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Metadatum
array__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Metadatum
map__field_descriptor)]
  unknownFields :: Lens' Metadatum FieldSet
unknownFields
    = (Metadatum -> FieldSet)
-> (Metadatum -> FieldSet -> Metadatum) -> Lens' Metadatum FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Metadatum -> FieldSet
_Metadatum'_unknownFields
        (\ Metadatum
x__ FieldSet
y__ -> Metadatum
x__ {_Metadatum'_unknownFields = y__})
  defMessage :: Metadatum
defMessage
    = Metadatum'_constructor
        {_Metadatum'metadatum :: Maybe Metadatum'Metadatum
_Metadatum'metadatum = Maybe Metadatum'Metadatum
forall a. Maybe a
Prelude.Nothing,
         _Metadatum'_unknownFields :: FieldSet
_Metadatum'_unknownFields = []}
  parseMessage :: Parser Metadatum
parseMessage
    = let
        loop :: Metadatum -> Data.ProtoLens.Encoding.Bytes.Parser Metadatum
        loop :: Metadatum -> Parser Metadatum
loop Metadatum
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Metadatum -> Parser Metadatum
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Metadatum Metadatum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Metadatum -> Metadatum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Metadatum FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Metadatum FieldSet
Setter Metadatum Metadatum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Metadatum
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Int64
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"
                                Metadatum -> Parser Metadatum
loop (Setter Metadatum Metadatum Int64 Int64
-> Int64 -> Metadatum -> Metadatum
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 @"int") Int64
y Metadatum
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"bytes"
                                Metadatum -> Parser Metadatum
loop (Setter Metadatum Metadatum ByteString ByteString
-> ByteString -> Metadatum -> Metadatum
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 @"bytes") ByteString
y Metadatum
x)
                        Word64
26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"text"
                                Metadatum -> Parser Metadatum
loop (Setter Metadatum Metadatum Text Text
-> Text -> Metadatum -> Metadatum
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 @"text") Text
y Metadatum
x)
                        Word64
34
                          -> do MetadatumArray
y <- Parser MetadatumArray -> String -> Parser MetadatumArray
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser MetadatumArray -> Parser MetadatumArray
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MetadatumArray
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"array"
                                Metadatum -> Parser Metadatum
loop (Setter Metadatum Metadatum MetadatumArray MetadatumArray
-> MetadatumArray -> Metadatum -> Metadatum
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 @"array") MetadatumArray
y Metadatum
x)
                        Word64
42
                          -> do MetadatumMap
y <- Parser MetadatumMap -> String -> Parser MetadatumMap
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser MetadatumMap -> Parser MetadatumMap
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MetadatumMap
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"map"
                                Metadatum -> Parser Metadatum
loop (Setter Metadatum Metadatum MetadatumMap MetadatumMap
-> MetadatumMap -> Metadatum -> Metadatum
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 @"map") MetadatumMap
y Metadatum
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Metadatum -> Parser Metadatum
loop
                                  (Setter Metadatum Metadatum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Metadatum -> Metadatum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Metadatum FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Metadatum FieldSet
Setter Metadatum Metadatum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Metadatum
x)
      in
        Parser Metadatum -> String -> Parser Metadatum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Metadatum -> Parser Metadatum
loop Metadatum
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Metadatum"
  buildMessage :: Metadatum -> Builder
buildMessage
    = \ Metadatum
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Metadatum'Metadatum)
  Metadatum
  Metadatum
  (Maybe Metadatum'Metadatum)
  (Maybe Metadatum'Metadatum)
-> Metadatum -> Maybe Metadatum'Metadatum
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'metadatum") Metadatum
_x
              of
                Maybe Metadatum'Metadatum
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (Metadatum'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 (Metadatum'Bytes 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 (Metadatum'Text Text
v))
                  -> 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)
                (Prelude.Just (Metadatum'Array MetadatumArray
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                       ((ByteString -> Builder)
-> (MetadatumArray -> ByteString) -> MetadatumArray -> 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))
                          MetadatumArray -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MetadatumArray
v)
                (Prelude.Just (Metadatum'Map MetadatumMap
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                       ((ByteString -> Builder)
-> (MetadatumMap -> ByteString) -> MetadatumMap -> 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))
                          MetadatumMap -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MetadatumMap
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet Metadatum Metadatum FieldSet FieldSet
-> Metadatum -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Metadatum Metadatum FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Metadatum FieldSet
Data.ProtoLens.unknownFields Metadatum
_x))
instance Control.DeepSeq.NFData Metadatum where
  rnf :: Metadatum -> ()
rnf
    = \ Metadatum
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Metadatum -> FieldSet
_Metadatum'_unknownFields Metadatum
x__)
             (Maybe Metadatum'Metadatum -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Metadatum -> Maybe Metadatum'Metadatum
_Metadatum'metadatum Metadatum
x__) ())
instance Control.DeepSeq.NFData Metadatum'Metadatum where
  rnf :: Metadatum'Metadatum -> ()
rnf (Metadatum'Int Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (Metadatum'Bytes ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (Metadatum'Text Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (Metadatum'Array MetadatumArray
x__) = MetadatumArray -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf MetadatumArray
x__
  rnf (Metadatum'Map MetadatumMap
x__) = MetadatumMap -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf MetadatumMap
x__
_Metadatum'Int ::
  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Int.Int64
_Metadatum'Int :: Prism' Metadatum'Metadatum Int64
_Metadatum'Int
  = (Int64 -> Metadatum'Metadatum)
-> (Metadatum'Metadatum -> Maybe Int64)
-> Prism' Metadatum'Metadatum Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Metadatum'Metadatum
Metadatum'Int
      (\ Metadatum'Metadatum
p__
         -> case Metadatum'Metadatum
p__ of
              (Metadatum'Int Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Metadatum'Metadatum
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_Metadatum'Bytes ::
  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.ByteString.ByteString
_Metadatum'Bytes :: Prism' Metadatum'Metadatum ByteString
_Metadatum'Bytes
  = (ByteString -> Metadatum'Metadatum)
-> (Metadatum'Metadatum -> Maybe ByteString)
-> Prism' Metadatum'Metadatum ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> Metadatum'Metadatum
Metadatum'Bytes
      (\ Metadatum'Metadatum
p__
         -> case Metadatum'Metadatum
p__ of
              (Metadatum'Bytes ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              Metadatum'Metadatum
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_Metadatum'Text ::
  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Text.Text
_Metadatum'Text :: Prism' Metadatum'Metadatum Text
_Metadatum'Text
  = (Text -> Metadatum'Metadatum)
-> (Metadatum'Metadatum -> Maybe Text)
-> Prism' Metadatum'Metadatum Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> Metadatum'Metadatum
Metadatum'Text
      (\ Metadatum'Metadatum
p__
         -> case Metadatum'Metadatum
p__ of
              (Metadatum'Text Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              Metadatum'Metadatum
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_Metadatum'Array ::
  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumArray
_Metadatum'Array :: Prism' Metadatum'Metadatum MetadatumArray
_Metadatum'Array
  = (MetadatumArray -> Metadatum'Metadatum)
-> (Metadatum'Metadatum -> Maybe MetadatumArray)
-> Prism' Metadatum'Metadatum MetadatumArray
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      MetadatumArray -> Metadatum'Metadatum
Metadatum'Array
      (\ Metadatum'Metadatum
p__
         -> case Metadatum'Metadatum
p__ of
              (Metadatum'Array MetadatumArray
p__val) -> MetadatumArray -> Maybe MetadatumArray
forall a. a -> Maybe a
Prelude.Just MetadatumArray
p__val
              Metadatum'Metadatum
_otherwise -> Maybe MetadatumArray
forall a. Maybe a
Prelude.Nothing)
_Metadatum'Map ::
  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumMap
_Metadatum'Map :: Prism' Metadatum'Metadatum MetadatumMap
_Metadatum'Map
  = (MetadatumMap -> Metadatum'Metadatum)
-> (Metadatum'Metadatum -> Maybe MetadatumMap)
-> Prism' Metadatum'Metadatum MetadatumMap
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      MetadatumMap -> Metadatum'Metadatum
Metadatum'Map
      (\ Metadatum'Metadatum
p__
         -> case Metadatum'Metadatum
p__ of
              (Metadatum'Map MetadatumMap
p__val) -> MetadatumMap -> Maybe MetadatumMap
forall a. a -> Maybe a
Prelude.Just MetadatumMap
p__val
              Metadatum'Metadatum
_otherwise -> Maybe MetadatumMap
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' MetadatumArray [Metadatum]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' MetadatumArray (Data.Vector.Vector Metadatum)@ -}
data MetadatumArray
  = MetadatumArray'_constructor {MetadatumArray -> Vector Metadatum
_MetadatumArray'items :: !(Data.Vector.Vector Metadatum),
                                 MetadatumArray -> FieldSet
_MetadatumArray'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MetadatumArray -> MetadatumArray -> Bool
(MetadatumArray -> MetadatumArray -> Bool)
-> (MetadatumArray -> MetadatumArray -> Bool) -> Eq MetadatumArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MetadatumArray -> MetadatumArray -> Bool
== :: MetadatumArray -> MetadatumArray -> Bool
$c/= :: MetadatumArray -> MetadatumArray -> Bool
/= :: MetadatumArray -> MetadatumArray -> Bool
Prelude.Eq, Eq MetadatumArray
Eq MetadatumArray =>
(MetadatumArray -> MetadatumArray -> Ordering)
-> (MetadatumArray -> MetadatumArray -> Bool)
-> (MetadatumArray -> MetadatumArray -> Bool)
-> (MetadatumArray -> MetadatumArray -> Bool)
-> (MetadatumArray -> MetadatumArray -> Bool)
-> (MetadatumArray -> MetadatumArray -> MetadatumArray)
-> (MetadatumArray -> MetadatumArray -> MetadatumArray)
-> Ord MetadatumArray
MetadatumArray -> MetadatumArray -> Bool
MetadatumArray -> MetadatumArray -> Ordering
MetadatumArray -> MetadatumArray -> MetadatumArray
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 :: MetadatumArray -> MetadatumArray -> Ordering
compare :: MetadatumArray -> MetadatumArray -> Ordering
$c< :: MetadatumArray -> MetadatumArray -> Bool
< :: MetadatumArray -> MetadatumArray -> Bool
$c<= :: MetadatumArray -> MetadatumArray -> Bool
<= :: MetadatumArray -> MetadatumArray -> Bool
$c> :: MetadatumArray -> MetadatumArray -> Bool
> :: MetadatumArray -> MetadatumArray -> Bool
$c>= :: MetadatumArray -> MetadatumArray -> Bool
>= :: MetadatumArray -> MetadatumArray -> Bool
$cmax :: MetadatumArray -> MetadatumArray -> MetadatumArray
max :: MetadatumArray -> MetadatumArray -> MetadatumArray
$cmin :: MetadatumArray -> MetadatumArray -> MetadatumArray
min :: MetadatumArray -> MetadatumArray -> MetadatumArray
Prelude.Ord)
instance Prelude.Show MetadatumArray where
  showsPrec :: Int -> MetadatumArray -> ShowS
showsPrec Int
_ MetadatumArray
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MetadatumArray -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetadatumArray
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MetadatumArray "items" [Metadatum] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "items"
-> ([Metadatum] -> f [Metadatum])
-> MetadatumArray
-> f MetadatumArray
fieldOf Proxy# "items"
_
    = ((Vector Metadatum -> f (Vector Metadatum))
 -> MetadatumArray -> f MetadatumArray)
-> (([Metadatum] -> f [Metadatum])
    -> Vector Metadatum -> f (Vector Metadatum))
-> ([Metadatum] -> f [Metadatum])
-> MetadatumArray
-> f MetadatumArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumArray -> Vector Metadatum)
-> (MetadatumArray -> Vector Metadatum -> MetadatumArray)
-> Lens
     MetadatumArray MetadatumArray (Vector Metadatum) (Vector Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumArray -> Vector Metadatum
_MetadatumArray'items
           (\ MetadatumArray
x__ Vector Metadatum
y__ -> MetadatumArray
x__ {_MetadatumArray'items = y__}))
        ((Vector Metadatum -> [Metadatum])
-> (Vector Metadatum -> [Metadatum] -> Vector Metadatum)
-> Lens
     (Vector Metadatum) (Vector Metadatum) [Metadatum] [Metadatum]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Metadatum -> [Metadatum]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Metadatum
_ [Metadatum]
y__ -> [Metadatum] -> Vector Metadatum
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Metadatum]
y__))
instance Data.ProtoLens.Field.HasField MetadatumArray "vec'items" (Data.Vector.Vector Metadatum) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'items"
-> (Vector Metadatum -> f (Vector Metadatum))
-> MetadatumArray
-> f MetadatumArray
fieldOf Proxy# "vec'items"
_
    = ((Vector Metadatum -> f (Vector Metadatum))
 -> MetadatumArray -> f MetadatumArray)
-> ((Vector Metadatum -> f (Vector Metadatum))
    -> Vector Metadatum -> f (Vector Metadatum))
-> (Vector Metadatum -> f (Vector Metadatum))
-> MetadatumArray
-> f MetadatumArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumArray -> Vector Metadatum)
-> (MetadatumArray -> Vector Metadatum -> MetadatumArray)
-> Lens
     MetadatumArray MetadatumArray (Vector Metadatum) (Vector Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumArray -> Vector Metadatum
_MetadatumArray'items
           (\ MetadatumArray
x__ Vector Metadatum
y__ -> MetadatumArray
x__ {_MetadatumArray'items = y__}))
        (Vector Metadatum -> f (Vector Metadatum))
-> Vector Metadatum -> f (Vector Metadatum)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetadatumArray where
  messageName :: Proxy MetadatumArray -> Text
messageName Proxy MetadatumArray
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.MetadatumArray"
  packedMessageDescriptor :: Proxy MetadatumArray -> ByteString
packedMessageDescriptor Proxy MetadatumArray
_
    = ByteString
"\n\
      \\SOMetadatumArray\DC28\n\
      \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQitems"
  packedFileDescriptor :: Proxy MetadatumArray -> ByteString
packedFileDescriptor Proxy MetadatumArray
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MetadatumArray)
fieldsByTag
    = let
        items__field_descriptor :: FieldDescriptor MetadatumArray
items__field_descriptor
          = String
-> FieldTypeDescriptor Metadatum
-> FieldAccessor MetadatumArray Metadatum
-> FieldDescriptor MetadatumArray
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"items"
              (MessageOrGroup -> FieldTypeDescriptor Metadatum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Metadatum)
              (Packing
-> Lens' MetadatumArray [Metadatum]
-> FieldAccessor MetadatumArray Metadatum
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 @"items")) ::
              Data.ProtoLens.FieldDescriptor MetadatumArray
      in
        [(Tag, FieldDescriptor MetadatumArray)]
-> Map Tag (FieldDescriptor MetadatumArray)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetadatumArray
items__field_descriptor)]
  unknownFields :: Lens' MetadatumArray FieldSet
unknownFields
    = (MetadatumArray -> FieldSet)
-> (MetadatumArray -> FieldSet -> MetadatumArray)
-> Lens' MetadatumArray FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MetadatumArray -> FieldSet
_MetadatumArray'_unknownFields
        (\ MetadatumArray
x__ FieldSet
y__ -> MetadatumArray
x__ {_MetadatumArray'_unknownFields = y__})
  defMessage :: MetadatumArray
defMessage
    = MetadatumArray'_constructor
        {_MetadatumArray'items :: Vector Metadatum
_MetadatumArray'items = Vector Metadatum
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MetadatumArray'_unknownFields :: FieldSet
_MetadatumArray'_unknownFields = []}
  parseMessage :: Parser MetadatumArray
parseMessage
    = let
        loop ::
          MetadatumArray
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadatum
             -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumArray
        loop :: MetadatumArray
-> Growing Vector RealWorld Metadatum -> Parser MetadatumArray
loop MetadatumArray
x Growing Vector RealWorld Metadatum
mutable'items
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Metadatum
frozen'items <- IO (Vector Metadatum) -> Parser (Vector Metadatum)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) Metadatum -> IO (Vector Metadatum)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Metadatum
Growing Vector (PrimState IO) Metadatum
mutable'items)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MetadatumArray -> Parser MetadatumArray
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MetadatumArray MetadatumArray FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetadatumArray -> MetadatumArray
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f MetadatumArray FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumArray FieldSet
Setter MetadatumArray MetadatumArray FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  MetadatumArray MetadatumArray (Vector Metadatum) (Vector Metadatum)
-> Vector Metadatum -> MetadatumArray -> MetadatumArray
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 @"vec'items") Vector Metadatum
frozen'items MetadatumArray
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !Metadatum
y <- Parser Metadatum -> String -> Parser Metadatum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Metadatum -> Parser Metadatum
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Metadatum
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"items"
                                Growing Vector RealWorld Metadatum
v <- IO (Growing Vector RealWorld Metadatum)
-> Parser (Growing Vector RealWorld Metadatum)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Metadatum
-> Metadatum -> IO (Growing Vector (PrimState IO) Metadatum)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Metadatum
Growing Vector (PrimState IO) Metadatum
mutable'items Metadatum
y)
                                MetadatumArray
-> Growing Vector RealWorld Metadatum -> Parser MetadatumArray
loop MetadatumArray
x Growing Vector RealWorld Metadatum
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MetadatumArray
-> Growing Vector RealWorld Metadatum -> Parser MetadatumArray
loop
                                  (Setter MetadatumArray MetadatumArray FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetadatumArray -> MetadatumArray
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f MetadatumArray FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumArray FieldSet
Setter MetadatumArray MetadatumArray FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetadatumArray
x)
                                  Growing Vector RealWorld Metadatum
mutable'items
      in
        Parser MetadatumArray -> String -> Parser MetadatumArray
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Metadatum
mutable'items <- IO (Growing Vector RealWorld Metadatum)
-> Parser (Growing Vector RealWorld Metadatum)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Metadatum)
IO (Growing Vector (PrimState IO) Metadatum)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              MetadatumArray
-> Growing Vector RealWorld Metadatum -> Parser MetadatumArray
loop MetadatumArray
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Metadatum
mutable'items)
          String
"MetadatumArray"
  buildMessage :: MetadatumArray -> Builder
buildMessage
    = \ MetadatumArray
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Metadatum -> Builder) -> Vector Metadatum -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ Metadatum
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (Metadatum -> ByteString) -> Metadatum -> 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))
                           Metadatum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Metadatum
_v))
                (FoldLike
  (Vector Metadatum)
  MetadatumArray
  MetadatumArray
  (Vector Metadatum)
  (Vector Metadatum)
-> MetadatumArray -> Vector Metadatum
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'items") MetadatumArray
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet MetadatumArray MetadatumArray FieldSet FieldSet
-> MetadatumArray -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MetadatumArray MetadatumArray FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumArray FieldSet
Data.ProtoLens.unknownFields MetadatumArray
_x))
instance Control.DeepSeq.NFData MetadatumArray where
  rnf :: MetadatumArray -> ()
rnf
    = \ MetadatumArray
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MetadatumArray -> FieldSet
_MetadatumArray'_unknownFields MetadatumArray
x__)
             (Vector Metadatum -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MetadatumArray -> Vector Metadatum
_MetadatumArray'items MetadatumArray
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pairs' @:: Lens' MetadatumMap [MetadatumPair]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'pairs' @:: Lens' MetadatumMap (Data.Vector.Vector MetadatumPair)@ -}
data MetadatumMap
  = MetadatumMap'_constructor {MetadatumMap -> Vector MetadatumPair
_MetadatumMap'pairs :: !(Data.Vector.Vector MetadatumPair),
                               MetadatumMap -> FieldSet
_MetadatumMap'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MetadatumMap -> MetadatumMap -> Bool
(MetadatumMap -> MetadatumMap -> Bool)
-> (MetadatumMap -> MetadatumMap -> Bool) -> Eq MetadatumMap
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MetadatumMap -> MetadatumMap -> Bool
== :: MetadatumMap -> MetadatumMap -> Bool
$c/= :: MetadatumMap -> MetadatumMap -> Bool
/= :: MetadatumMap -> MetadatumMap -> Bool
Prelude.Eq, Eq MetadatumMap
Eq MetadatumMap =>
(MetadatumMap -> MetadatumMap -> Ordering)
-> (MetadatumMap -> MetadatumMap -> Bool)
-> (MetadatumMap -> MetadatumMap -> Bool)
-> (MetadatumMap -> MetadatumMap -> Bool)
-> (MetadatumMap -> MetadatumMap -> Bool)
-> (MetadatumMap -> MetadatumMap -> MetadatumMap)
-> (MetadatumMap -> MetadatumMap -> MetadatumMap)
-> Ord MetadatumMap
MetadatumMap -> MetadatumMap -> Bool
MetadatumMap -> MetadatumMap -> Ordering
MetadatumMap -> MetadatumMap -> MetadatumMap
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 :: MetadatumMap -> MetadatumMap -> Ordering
compare :: MetadatumMap -> MetadatumMap -> Ordering
$c< :: MetadatumMap -> MetadatumMap -> Bool
< :: MetadatumMap -> MetadatumMap -> Bool
$c<= :: MetadatumMap -> MetadatumMap -> Bool
<= :: MetadatumMap -> MetadatumMap -> Bool
$c> :: MetadatumMap -> MetadatumMap -> Bool
> :: MetadatumMap -> MetadatumMap -> Bool
$c>= :: MetadatumMap -> MetadatumMap -> Bool
>= :: MetadatumMap -> MetadatumMap -> Bool
$cmax :: MetadatumMap -> MetadatumMap -> MetadatumMap
max :: MetadatumMap -> MetadatumMap -> MetadatumMap
$cmin :: MetadatumMap -> MetadatumMap -> MetadatumMap
min :: MetadatumMap -> MetadatumMap -> MetadatumMap
Prelude.Ord)
instance Prelude.Show MetadatumMap where
  showsPrec :: Int -> MetadatumMap -> ShowS
showsPrec Int
_ MetadatumMap
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MetadatumMap -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetadatumMap
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MetadatumMap "pairs" [MetadatumPair] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pairs"
-> ([MetadatumPair] -> f [MetadatumPair])
-> MetadatumMap
-> f MetadatumMap
fieldOf Proxy# "pairs"
_
    = ((Vector MetadatumPair -> f (Vector MetadatumPair))
 -> MetadatumMap -> f MetadatumMap)
-> (([MetadatumPair] -> f [MetadatumPair])
    -> Vector MetadatumPair -> f (Vector MetadatumPair))
-> ([MetadatumPair] -> f [MetadatumPair])
-> MetadatumMap
-> f MetadatumMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumMap -> Vector MetadatumPair)
-> (MetadatumMap -> Vector MetadatumPair -> MetadatumMap)
-> Lens
     MetadatumMap
     MetadatumMap
     (Vector MetadatumPair)
     (Vector MetadatumPair)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumMap -> Vector MetadatumPair
_MetadatumMap'pairs (\ MetadatumMap
x__ Vector MetadatumPair
y__ -> MetadatumMap
x__ {_MetadatumMap'pairs = y__}))
        ((Vector MetadatumPair -> [MetadatumPair])
-> (Vector MetadatumPair
    -> [MetadatumPair] -> Vector MetadatumPair)
-> Lens
     (Vector MetadatumPair)
     (Vector MetadatumPair)
     [MetadatumPair]
     [MetadatumPair]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector MetadatumPair -> [MetadatumPair]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector MetadatumPair
_ [MetadatumPair]
y__ -> [MetadatumPair] -> Vector MetadatumPair
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MetadatumPair]
y__))
instance Data.ProtoLens.Field.HasField MetadatumMap "vec'pairs" (Data.Vector.Vector MetadatumPair) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'pairs"
-> (Vector MetadatumPair -> f (Vector MetadatumPair))
-> MetadatumMap
-> f MetadatumMap
fieldOf Proxy# "vec'pairs"
_
    = ((Vector MetadatumPair -> f (Vector MetadatumPair))
 -> MetadatumMap -> f MetadatumMap)
-> ((Vector MetadatumPair -> f (Vector MetadatumPair))
    -> Vector MetadatumPair -> f (Vector MetadatumPair))
-> (Vector MetadatumPair -> f (Vector MetadatumPair))
-> MetadatumMap
-> f MetadatumMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumMap -> Vector MetadatumPair)
-> (MetadatumMap -> Vector MetadatumPair -> MetadatumMap)
-> Lens
     MetadatumMap
     MetadatumMap
     (Vector MetadatumPair)
     (Vector MetadatumPair)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumMap -> Vector MetadatumPair
_MetadatumMap'pairs (\ MetadatumMap
x__ Vector MetadatumPair
y__ -> MetadatumMap
x__ {_MetadatumMap'pairs = y__}))
        (Vector MetadatumPair -> f (Vector MetadatumPair))
-> Vector MetadatumPair -> f (Vector MetadatumPair)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetadatumMap where
  messageName :: Proxy MetadatumMap -> Text
messageName Proxy MetadatumMap
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.MetadatumMap"
  packedMessageDescriptor :: Proxy MetadatumMap -> ByteString
packedMessageDescriptor Proxy MetadatumMap
_
    = ByteString
"\n\
      \\fMetadatumMap\DC2<\n\
      \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.cardano.MetadatumPairR\ENQpairs"
  packedFileDescriptor :: Proxy MetadatumMap -> ByteString
packedFileDescriptor Proxy MetadatumMap
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MetadatumMap)
fieldsByTag
    = let
        pairs__field_descriptor :: FieldDescriptor MetadatumMap
pairs__field_descriptor
          = String
-> FieldTypeDescriptor MetadatumPair
-> FieldAccessor MetadatumMap MetadatumPair
-> FieldDescriptor MetadatumMap
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pairs"
              (MessageOrGroup -> FieldTypeDescriptor MetadatumPair
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MetadatumPair)
              (Packing
-> Lens' MetadatumMap [MetadatumPair]
-> FieldAccessor MetadatumMap MetadatumPair
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 @"pairs")) ::
              Data.ProtoLens.FieldDescriptor MetadatumMap
      in
        [(Tag, FieldDescriptor MetadatumMap)]
-> Map Tag (FieldDescriptor MetadatumMap)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetadatumMap
pairs__field_descriptor)]
  unknownFields :: Lens' MetadatumMap FieldSet
unknownFields
    = (MetadatumMap -> FieldSet)
-> (MetadatumMap -> FieldSet -> MetadatumMap)
-> Lens' MetadatumMap FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MetadatumMap -> FieldSet
_MetadatumMap'_unknownFields
        (\ MetadatumMap
x__ FieldSet
y__ -> MetadatumMap
x__ {_MetadatumMap'_unknownFields = y__})
  defMessage :: MetadatumMap
defMessage
    = MetadatumMap'_constructor
        {_MetadatumMap'pairs :: Vector MetadatumPair
_MetadatumMap'pairs = Vector MetadatumPair
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MetadatumMap'_unknownFields :: FieldSet
_MetadatumMap'_unknownFields = []}
  parseMessage :: Parser MetadatumMap
parseMessage
    = let
        loop ::
          MetadatumMap
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetadatumPair
             -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumMap
        loop :: MetadatumMap
-> Growing Vector RealWorld MetadatumPair -> Parser MetadatumMap
loop MetadatumMap
x Growing Vector RealWorld MetadatumPair
mutable'pairs
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector MetadatumPair
frozen'pairs <- IO (Vector MetadatumPair) -> Parser (Vector MetadatumPair)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) MetadatumPair
-> IO (Vector MetadatumPair)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld MetadatumPair
Growing Vector (PrimState IO) MetadatumPair
mutable'pairs)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MetadatumMap -> Parser MetadatumMap
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MetadatumMap MetadatumMap FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetadatumMap -> MetadatumMap
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f MetadatumMap FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumMap FieldSet
Setter MetadatumMap MetadatumMap FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  MetadatumMap
  MetadatumMap
  (Vector MetadatumPair)
  (Vector MetadatumPair)
-> Vector MetadatumPair -> MetadatumMap -> MetadatumMap
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 @"vec'pairs") Vector MetadatumPair
frozen'pairs MetadatumMap
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !MetadatumPair
y <- Parser MetadatumPair -> String -> Parser MetadatumPair
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser MetadatumPair -> Parser MetadatumPair
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser MetadatumPair
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"pairs"
                                Growing Vector RealWorld MetadatumPair
v <- IO (Growing Vector RealWorld MetadatumPair)
-> Parser (Growing Vector RealWorld MetadatumPair)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) MetadatumPair
-> MetadatumPair
-> IO (Growing Vector (PrimState IO) MetadatumPair)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld MetadatumPair
Growing Vector (PrimState IO) MetadatumPair
mutable'pairs MetadatumPair
y)
                                MetadatumMap
-> Growing Vector RealWorld MetadatumPair -> Parser MetadatumMap
loop MetadatumMap
x Growing Vector RealWorld MetadatumPair
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MetadatumMap
-> Growing Vector RealWorld MetadatumPair -> Parser MetadatumMap
loop
                                  (Setter MetadatumMap MetadatumMap FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetadatumMap -> MetadatumMap
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f MetadatumMap FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumMap FieldSet
Setter MetadatumMap MetadatumMap FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetadatumMap
x)
                                  Growing Vector RealWorld MetadatumPair
mutable'pairs
      in
        Parser MetadatumMap -> String -> Parser MetadatumMap
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld MetadatumPair
mutable'pairs <- IO (Growing Vector RealWorld MetadatumPair)
-> Parser (Growing Vector RealWorld MetadatumPair)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld MetadatumPair)
IO (Growing Vector (PrimState IO) MetadatumPair)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              MetadatumMap
-> Growing Vector RealWorld MetadatumPair -> Parser MetadatumMap
loop MetadatumMap
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld MetadatumPair
mutable'pairs)
          String
"MetadatumMap"
  buildMessage :: MetadatumMap -> Builder
buildMessage
    = \ MetadatumMap
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((MetadatumPair -> Builder) -> Vector MetadatumPair -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ MetadatumPair
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (MetadatumPair -> ByteString) -> MetadatumPair -> 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))
                           MetadatumPair -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MetadatumPair
_v))
                (FoldLike
  (Vector MetadatumPair)
  MetadatumMap
  MetadatumMap
  (Vector MetadatumPair)
  (Vector MetadatumPair)
-> MetadatumMap -> Vector MetadatumPair
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'pairs") MetadatumMap
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet MetadatumMap MetadatumMap FieldSet FieldSet
-> MetadatumMap -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MetadatumMap MetadatumMap FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumMap FieldSet
Data.ProtoLens.unknownFields MetadatumMap
_x))
instance Control.DeepSeq.NFData MetadatumMap where
  rnf :: MetadatumMap -> ()
rnf
    = \ MetadatumMap
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MetadatumMap -> FieldSet
_MetadatumMap'_unknownFields MetadatumMap
x__)
             (Vector MetadatumPair -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MetadatumMap -> Vector MetadatumPair
_MetadatumMap'pairs MetadatumMap
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.key' @:: Lens' MetadatumPair Metadatum@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'key' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' MetadatumPair Metadatum@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@ -}
data MetadatumPair
  = MetadatumPair'_constructor {MetadatumPair -> Maybe Metadatum
_MetadatumPair'key :: !(Prelude.Maybe Metadatum),
                                MetadatumPair -> Maybe Metadatum
_MetadatumPair'value :: !(Prelude.Maybe Metadatum),
                                MetadatumPair -> FieldSet
_MetadatumPair'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MetadatumPair -> MetadatumPair -> Bool
(MetadatumPair -> MetadatumPair -> Bool)
-> (MetadatumPair -> MetadatumPair -> Bool) -> Eq MetadatumPair
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MetadatumPair -> MetadatumPair -> Bool
== :: MetadatumPair -> MetadatumPair -> Bool
$c/= :: MetadatumPair -> MetadatumPair -> Bool
/= :: MetadatumPair -> MetadatumPair -> Bool
Prelude.Eq, Eq MetadatumPair
Eq MetadatumPair =>
(MetadatumPair -> MetadatumPair -> Ordering)
-> (MetadatumPair -> MetadatumPair -> Bool)
-> (MetadatumPair -> MetadatumPair -> Bool)
-> (MetadatumPair -> MetadatumPair -> Bool)
-> (MetadatumPair -> MetadatumPair -> Bool)
-> (MetadatumPair -> MetadatumPair -> MetadatumPair)
-> (MetadatumPair -> MetadatumPair -> MetadatumPair)
-> Ord MetadatumPair
MetadatumPair -> MetadatumPair -> Bool
MetadatumPair -> MetadatumPair -> Ordering
MetadatumPair -> MetadatumPair -> MetadatumPair
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 :: MetadatumPair -> MetadatumPair -> Ordering
compare :: MetadatumPair -> MetadatumPair -> Ordering
$c< :: MetadatumPair -> MetadatumPair -> Bool
< :: MetadatumPair -> MetadatumPair -> Bool
$c<= :: MetadatumPair -> MetadatumPair -> Bool
<= :: MetadatumPair -> MetadatumPair -> Bool
$c> :: MetadatumPair -> MetadatumPair -> Bool
> :: MetadatumPair -> MetadatumPair -> Bool
$c>= :: MetadatumPair -> MetadatumPair -> Bool
>= :: MetadatumPair -> MetadatumPair -> Bool
$cmax :: MetadatumPair -> MetadatumPair -> MetadatumPair
max :: MetadatumPair -> MetadatumPair -> MetadatumPair
$cmin :: MetadatumPair -> MetadatumPair -> MetadatumPair
min :: MetadatumPair -> MetadatumPair -> MetadatumPair
Prelude.Ord)
instance Prelude.Show MetadatumPair where
  showsPrec :: Int -> MetadatumPair -> ShowS
showsPrec Int
_ MetadatumPair
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MetadatumPair -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetadatumPair
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MetadatumPair "key" Metadatum where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Metadatum -> f Metadatum) -> MetadatumPair -> f MetadatumPair
fieldOf Proxy# "key"
_
    = ((Maybe Metadatum -> f (Maybe Metadatum))
 -> MetadatumPair -> f MetadatumPair)
-> ((Metadatum -> f Metadatum)
    -> Maybe Metadatum -> f (Maybe Metadatum))
-> (Metadatum -> f Metadatum)
-> MetadatumPair
-> f MetadatumPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumPair -> Maybe Metadatum)
-> (MetadatumPair -> Maybe Metadatum -> MetadatumPair)
-> Lens
     MetadatumPair MetadatumPair (Maybe Metadatum) (Maybe Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumPair -> Maybe Metadatum
_MetadatumPair'key (\ MetadatumPair
x__ Maybe Metadatum
y__ -> MetadatumPair
x__ {_MetadatumPair'key = y__}))
        (Metadatum -> Lens' (Maybe Metadatum) Metadatum
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Metadatum
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'key" (Prelude.Maybe Metadatum) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'key"
-> (Maybe Metadatum -> f (Maybe Metadatum))
-> MetadatumPair
-> f MetadatumPair
fieldOf Proxy# "maybe'key"
_
    = ((Maybe Metadatum -> f (Maybe Metadatum))
 -> MetadatumPair -> f MetadatumPair)
-> ((Maybe Metadatum -> f (Maybe Metadatum))
    -> Maybe Metadatum -> f (Maybe Metadatum))
-> (Maybe Metadatum -> f (Maybe Metadatum))
-> MetadatumPair
-> f MetadatumPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumPair -> Maybe Metadatum)
-> (MetadatumPair -> Maybe Metadatum -> MetadatumPair)
-> Lens
     MetadatumPair MetadatumPair (Maybe Metadatum) (Maybe Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumPair -> Maybe Metadatum
_MetadatumPair'key (\ MetadatumPair
x__ Maybe Metadatum
y__ -> MetadatumPair
x__ {_MetadatumPair'key = y__}))
        (Maybe Metadatum -> f (Maybe Metadatum))
-> Maybe Metadatum -> f (Maybe Metadatum)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetadatumPair "value" Metadatum where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Metadatum -> f Metadatum) -> MetadatumPair -> f MetadatumPair
fieldOf Proxy# "value"
_
    = ((Maybe Metadatum -> f (Maybe Metadatum))
 -> MetadatumPair -> f MetadatumPair)
-> ((Metadatum -> f Metadatum)
    -> Maybe Metadatum -> f (Maybe Metadatum))
-> (Metadatum -> f Metadatum)
-> MetadatumPair
-> f MetadatumPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumPair -> Maybe Metadatum)
-> (MetadatumPair -> Maybe Metadatum -> MetadatumPair)
-> Lens
     MetadatumPair MetadatumPair (Maybe Metadatum) (Maybe Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumPair -> Maybe Metadatum
_MetadatumPair'value
           (\ MetadatumPair
x__ Maybe Metadatum
y__ -> MetadatumPair
x__ {_MetadatumPair'value = y__}))
        (Metadatum -> Lens' (Maybe Metadatum) Metadatum
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Metadatum
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'value" (Prelude.Maybe Metadatum) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Metadatum -> f (Maybe Metadatum))
-> MetadatumPair
-> f MetadatumPair
fieldOf Proxy# "maybe'value"
_
    = ((Maybe Metadatum -> f (Maybe Metadatum))
 -> MetadatumPair -> f MetadatumPair)
-> ((Maybe Metadatum -> f (Maybe Metadatum))
    -> Maybe Metadatum -> f (Maybe Metadatum))
-> (Maybe Metadatum -> f (Maybe Metadatum))
-> MetadatumPair
-> f MetadatumPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetadatumPair -> Maybe Metadatum)
-> (MetadatumPair -> Maybe Metadatum -> MetadatumPair)
-> Lens
     MetadatumPair MetadatumPair (Maybe Metadatum) (Maybe Metadatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetadatumPair -> Maybe Metadatum
_MetadatumPair'value
           (\ MetadatumPair
x__ Maybe Metadatum
y__ -> MetadatumPair
x__ {_MetadatumPair'value = y__}))
        (Maybe Metadatum -> f (Maybe Metadatum))
-> Maybe Metadatum -> f (Maybe Metadatum)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetadatumPair where
  messageName :: Proxy MetadatumPair -> Text
messageName Proxy MetadatumPair
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.MetadatumPair"
  packedMessageDescriptor :: Proxy MetadatumPair -> ByteString
packedMessageDescriptor Proxy MetadatumPair
_
    = ByteString
"\n\
      \\rMetadatumPair\DC24\n\
      \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ETXkey\DC28\n\
      \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue"
  packedFileDescriptor :: Proxy MetadatumPair -> ByteString
packedFileDescriptor Proxy MetadatumPair
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MetadatumPair)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor MetadatumPair
key__field_descriptor
          = String
-> FieldTypeDescriptor Metadatum
-> FieldAccessor MetadatumPair Metadatum
-> FieldDescriptor MetadatumPair
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (MessageOrGroup -> FieldTypeDescriptor Metadatum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Metadatum)
              (Lens
  MetadatumPair MetadatumPair (Maybe Metadatum) (Maybe Metadatum)
-> FieldAccessor MetadatumPair Metadatum
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'key")) ::
              Data.ProtoLens.FieldDescriptor MetadatumPair
        value__field_descriptor :: FieldDescriptor MetadatumPair
value__field_descriptor
          = String
-> FieldTypeDescriptor Metadatum
-> FieldAccessor MetadatumPair Metadatum
-> FieldDescriptor MetadatumPair
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (MessageOrGroup -> FieldTypeDescriptor Metadatum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Metadatum)
              (Lens
  MetadatumPair MetadatumPair (Maybe Metadatum) (Maybe Metadatum)
-> FieldAccessor MetadatumPair Metadatum
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'value")) ::
              Data.ProtoLens.FieldDescriptor MetadatumPair
      in
        [(Tag, FieldDescriptor MetadatumPair)]
-> Map Tag (FieldDescriptor MetadatumPair)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MetadatumPair
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MetadatumPair
value__field_descriptor)]
  unknownFields :: Lens' MetadatumPair FieldSet
unknownFields
    = (MetadatumPair -> FieldSet)
-> (MetadatumPair -> FieldSet -> MetadatumPair)
-> Lens' MetadatumPair FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MetadatumPair -> FieldSet
_MetadatumPair'_unknownFields
        (\ MetadatumPair
x__ FieldSet
y__ -> MetadatumPair
x__ {_MetadatumPair'_unknownFields = y__})
  defMessage :: MetadatumPair
defMessage
    = MetadatumPair'_constructor
        {_MetadatumPair'key :: Maybe Metadatum
_MetadatumPair'key = Maybe Metadatum
forall a. Maybe a
Prelude.Nothing,
         _MetadatumPair'value :: Maybe Metadatum
_MetadatumPair'value = Maybe Metadatum
forall a. Maybe a
Prelude.Nothing,
         _MetadatumPair'_unknownFields :: FieldSet
_MetadatumPair'_unknownFields = []}
  parseMessage :: Parser MetadatumPair
parseMessage
    = let
        loop ::
          MetadatumPair -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumPair
        loop :: MetadatumPair -> Parser MetadatumPair
loop MetadatumPair
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MetadatumPair -> Parser MetadatumPair
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MetadatumPair MetadatumPair FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetadatumPair -> MetadatumPair
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f MetadatumPair FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumPair FieldSet
Setter MetadatumPair MetadatumPair FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetadatumPair
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do Metadatum
y <- Parser Metadatum -> String -> Parser Metadatum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Metadatum -> Parser Metadatum
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Metadatum
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"key"
                                MetadatumPair -> Parser MetadatumPair
loop (Setter MetadatumPair MetadatumPair Metadatum Metadatum
-> Metadatum -> MetadatumPair -> MetadatumPair
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") Metadatum
y MetadatumPair
x)
                        Word64
18
                          -> do Metadatum
y <- Parser Metadatum -> String -> Parser Metadatum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Metadatum -> Parser Metadatum
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Metadatum
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"value"
                                MetadatumPair -> Parser MetadatumPair
loop (Setter MetadatumPair MetadatumPair Metadatum Metadatum
-> Metadatum -> MetadatumPair -> MetadatumPair
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") Metadatum
y MetadatumPair
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MetadatumPair -> Parser MetadatumPair
loop
                                  (Setter MetadatumPair MetadatumPair FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetadatumPair -> MetadatumPair
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f MetadatumPair FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumPair FieldSet
Setter MetadatumPair MetadatumPair FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetadatumPair
x)
      in
        Parser MetadatumPair -> String -> Parser MetadatumPair
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MetadatumPair -> Parser MetadatumPair
loop MetadatumPair
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MetadatumPair"
  buildMessage :: MetadatumPair -> Builder
buildMessage
    = \ MetadatumPair
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Metadatum)
  MetadatumPair
  MetadatumPair
  (Maybe Metadatum)
  (Maybe Metadatum)
-> MetadatumPair -> Maybe Metadatum
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'key") MetadatumPair
_x
              of
                Maybe Metadatum
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Metadatum
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Metadatum -> ByteString) -> Metadatum -> 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))
                          Metadatum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Metadatum
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Metadatum)
  MetadatumPair
  MetadatumPair
  (Maybe Metadatum)
  (Maybe Metadatum)
-> MetadatumPair -> Maybe Metadatum
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'value") MetadatumPair
_x
                 of
                   Maybe Metadatum
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Metadatum
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Metadatum -> ByteString) -> Metadatum -> 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))
                             Metadatum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Metadatum
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet MetadatumPair MetadatumPair FieldSet FieldSet
-> MetadatumPair -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MetadatumPair MetadatumPair FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MetadatumPair FieldSet
Data.ProtoLens.unknownFields MetadatumPair
_x)))
instance Control.DeepSeq.NFData MetadatumPair where
  rnf :: MetadatumPair -> ()
rnf
    = \ MetadatumPair
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MetadatumPair -> FieldSet
_MetadatumPair'_unknownFields MetadatumPair
x__)
             (Maybe Metadatum -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MetadatumPair -> Maybe Metadatum
_MetadatumPair'key MetadatumPair
x__)
                (Maybe Metadatum -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MetadatumPair -> Maybe Metadatum
_MetadatumPair'value MetadatumPair
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.from' @:: Lens' MirCert MirSource@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.to' @:: Lens' MirCert [MirTarget]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'to' @:: Lens' MirCert (Data.Vector.Vector MirTarget)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.otherPot' @:: Lens' MirCert Data.Word.Word64@ -}
data MirCert
  = MirCert'_constructor {MirCert -> MirSource
_MirCert'from :: !MirSource,
                          MirCert -> Vector MirTarget
_MirCert'to :: !(Data.Vector.Vector MirTarget),
                          MirCert -> Word64
_MirCert'otherPot :: !Data.Word.Word64,
                          MirCert -> FieldSet
_MirCert'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MirCert -> MirCert -> Bool
(MirCert -> MirCert -> Bool)
-> (MirCert -> MirCert -> Bool) -> Eq MirCert
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MirCert -> MirCert -> Bool
== :: MirCert -> MirCert -> Bool
$c/= :: MirCert -> MirCert -> Bool
/= :: MirCert -> MirCert -> Bool
Prelude.Eq, Eq MirCert
Eq MirCert =>
(MirCert -> MirCert -> Ordering)
-> (MirCert -> MirCert -> Bool)
-> (MirCert -> MirCert -> Bool)
-> (MirCert -> MirCert -> Bool)
-> (MirCert -> MirCert -> Bool)
-> (MirCert -> MirCert -> MirCert)
-> (MirCert -> MirCert -> MirCert)
-> Ord MirCert
MirCert -> MirCert -> Bool
MirCert -> MirCert -> Ordering
MirCert -> MirCert -> MirCert
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 :: MirCert -> MirCert -> Ordering
compare :: MirCert -> MirCert -> Ordering
$c< :: MirCert -> MirCert -> Bool
< :: MirCert -> MirCert -> Bool
$c<= :: MirCert -> MirCert -> Bool
<= :: MirCert -> MirCert -> Bool
$c> :: MirCert -> MirCert -> Bool
> :: MirCert -> MirCert -> Bool
$c>= :: MirCert -> MirCert -> Bool
>= :: MirCert -> MirCert -> Bool
$cmax :: MirCert -> MirCert -> MirCert
max :: MirCert -> MirCert -> MirCert
$cmin :: MirCert -> MirCert -> MirCert
min :: MirCert -> MirCert -> MirCert
Prelude.Ord)
instance Prelude.Show MirCert where
  showsPrec :: Int -> MirCert -> ShowS
showsPrec Int
_ MirCert
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MirCert -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MirCert
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MirCert "from" MirSource where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "from" -> (MirSource -> f MirSource) -> MirCert -> f MirCert
fieldOf Proxy# "from"
_
    = ((MirSource -> f MirSource) -> MirCert -> f MirCert)
-> ((MirSource -> f MirSource) -> MirSource -> f MirSource)
-> (MirSource -> f MirSource)
-> MirCert
-> f MirCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MirCert -> MirSource)
-> (MirCert -> MirSource -> MirCert)
-> Lens MirCert MirCert MirSource MirSource
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MirCert -> MirSource
_MirCert'from (\ MirCert
x__ MirSource
y__ -> MirCert
x__ {_MirCert'from = y__}))
        (MirSource -> f MirSource) -> MirSource -> f MirSource
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MirCert "to" [MirTarget] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "to"
-> ([MirTarget] -> f [MirTarget]) -> MirCert -> f MirCert
fieldOf Proxy# "to"
_
    = ((Vector MirTarget -> f (Vector MirTarget))
 -> MirCert -> f MirCert)
-> (([MirTarget] -> f [MirTarget])
    -> Vector MirTarget -> f (Vector MirTarget))
-> ([MirTarget] -> f [MirTarget])
-> MirCert
-> f MirCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MirCert -> Vector MirTarget)
-> (MirCert -> Vector MirTarget -> MirCert)
-> Lens MirCert MirCert (Vector MirTarget) (Vector MirTarget)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MirCert -> Vector MirTarget
_MirCert'to (\ MirCert
x__ Vector MirTarget
y__ -> MirCert
x__ {_MirCert'to = y__}))
        ((Vector MirTarget -> [MirTarget])
-> (Vector MirTarget -> [MirTarget] -> Vector MirTarget)
-> Lens
     (Vector MirTarget) (Vector MirTarget) [MirTarget] [MirTarget]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector MirTarget -> [MirTarget]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector MirTarget
_ [MirTarget]
y__ -> [MirTarget] -> Vector MirTarget
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MirTarget]
y__))
instance Data.ProtoLens.Field.HasField MirCert "vec'to" (Data.Vector.Vector MirTarget) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'to"
-> (Vector MirTarget -> f (Vector MirTarget))
-> MirCert
-> f MirCert
fieldOf Proxy# "vec'to"
_
    = ((Vector MirTarget -> f (Vector MirTarget))
 -> MirCert -> f MirCert)
-> ((Vector MirTarget -> f (Vector MirTarget))
    -> Vector MirTarget -> f (Vector MirTarget))
-> (Vector MirTarget -> f (Vector MirTarget))
-> MirCert
-> f MirCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MirCert -> Vector MirTarget)
-> (MirCert -> Vector MirTarget -> MirCert)
-> Lens MirCert MirCert (Vector MirTarget) (Vector MirTarget)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MirCert -> Vector MirTarget
_MirCert'to (\ MirCert
x__ Vector MirTarget
y__ -> MirCert
x__ {_MirCert'to = y__}))
        (Vector MirTarget -> f (Vector MirTarget))
-> Vector MirTarget -> f (Vector MirTarget)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MirCert "otherPot" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "otherPot" -> (Word64 -> f Word64) -> MirCert -> f MirCert
fieldOf Proxy# "otherPot"
_
    = ((Word64 -> f Word64) -> MirCert -> f MirCert)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> MirCert
-> f MirCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MirCert -> Word64)
-> (MirCert -> Word64 -> MirCert)
-> Lens MirCert MirCert Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MirCert -> Word64
_MirCert'otherPot (\ MirCert
x__ Word64
y__ -> MirCert
x__ {_MirCert'otherPot = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MirCert where
  messageName :: Proxy MirCert -> Text
messageName Proxy MirCert
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.MirCert"
  packedMessageDescriptor :: Proxy MirCert -> ByteString
packedMessageDescriptor Proxy MirCert
_
    = ByteString
"\n\
      \\aMirCert\DC26\n\
      \\EOTfrom\CAN\SOH \SOH(\SO2\".utxorpc.v1alpha.cardano.MirSourceR\EOTfrom\DC22\n\
      \\STXto\CAN\STX \ETX(\v2\".utxorpc.v1alpha.cardano.MirTargetR\STXto\DC2\ESC\n\
      \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot"
  packedFileDescriptor :: Proxy MirCert -> ByteString
packedFileDescriptor Proxy MirCert
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MirCert)
fieldsByTag
    = let
        from__field_descriptor :: FieldDescriptor MirCert
from__field_descriptor
          = String
-> FieldTypeDescriptor MirSource
-> FieldAccessor MirCert MirSource
-> FieldDescriptor MirCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"from"
              (ScalarField MirSource -> FieldTypeDescriptor MirSource
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField MirSource
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor MirSource)
              (WireDefault MirSource
-> Lens MirCert MirCert MirSource MirSource
-> FieldAccessor MirCert MirSource
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault MirSource
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 @"from")) ::
              Data.ProtoLens.FieldDescriptor MirCert
        to__field_descriptor :: FieldDescriptor MirCert
to__field_descriptor
          = String
-> FieldTypeDescriptor MirTarget
-> FieldAccessor MirCert MirTarget
-> FieldDescriptor MirCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"to"
              (MessageOrGroup -> FieldTypeDescriptor MirTarget
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MirTarget)
              (Packing
-> Lens' MirCert [MirTarget] -> FieldAccessor MirCert MirTarget
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 @"to")) ::
              Data.ProtoLens.FieldDescriptor MirCert
        otherPot__field_descriptor :: FieldDescriptor MirCert
otherPot__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor MirCert Word64
-> FieldDescriptor MirCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"other_pot"
              (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 MirCert MirCert Word64 Word64
-> FieldAccessor MirCert 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 @"otherPot")) ::
              Data.ProtoLens.FieldDescriptor MirCert
      in
        [(Tag, FieldDescriptor MirCert)]
-> Map Tag (FieldDescriptor MirCert)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MirCert
from__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MirCert
to__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor MirCert
otherPot__field_descriptor)]
  unknownFields :: Lens' MirCert FieldSet
unknownFields
    = (MirCert -> FieldSet)
-> (MirCert -> FieldSet -> MirCert) -> Lens' MirCert FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MirCert -> FieldSet
_MirCert'_unknownFields
        (\ MirCert
x__ FieldSet
y__ -> MirCert
x__ {_MirCert'_unknownFields = y__})
  defMessage :: MirCert
defMessage
    = MirCert'_constructor
        {_MirCert'from :: MirSource
_MirCert'from = MirSource
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MirCert'to :: Vector MirTarget
_MirCert'to = Vector MirTarget
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MirCert'otherPot :: Word64
_MirCert'otherPot = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MirCert'_unknownFields :: FieldSet
_MirCert'_unknownFields = []}
  parseMessage :: Parser MirCert
parseMessage
    = let
        loop ::
          MirCert
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MirTarget
             -> Data.ProtoLens.Encoding.Bytes.Parser MirCert
        loop :: MirCert -> Growing Vector RealWorld MirTarget -> Parser MirCert
loop MirCert
x Growing Vector RealWorld MirTarget
mutable'to
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector MirTarget
frozen'to <- IO (Vector MirTarget) -> Parser (Vector MirTarget)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     (Growing Vector (PrimState IO) MirTarget -> IO (Vector MirTarget)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld MirTarget
Growing Vector (PrimState IO) MirTarget
mutable'to)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MirCert -> Parser MirCert
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MirCert MirCert FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MirCert -> MirCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f MirCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MirCert FieldSet
Setter MirCert MirCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter MirCert MirCert (Vector MirTarget) (Vector MirTarget)
-> Vector MirTarget -> MirCert -> MirCert
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 @"vec'to") Vector MirTarget
frozen'to MirCert
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do MirSource
y <- Parser MirSource -> String -> Parser MirSource
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> MirSource) -> Parser Int -> Parser MirSource
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> MirSource
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"from"
                                MirCert -> Growing Vector RealWorld MirTarget -> Parser MirCert
loop
                                  (Setter MirCert MirCert MirSource MirSource
-> MirSource -> MirCert -> MirCert
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 @"from") MirSource
y MirCert
x)
                                  Growing Vector RealWorld MirTarget
mutable'to
                        Word64
18
                          -> do !MirTarget
y <- Parser MirTarget -> String -> Parser MirTarget
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser MirTarget -> Parser MirTarget
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser MirTarget
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"to"
                                Growing Vector RealWorld MirTarget
v <- IO (Growing Vector RealWorld MirTarget)
-> Parser (Growing Vector RealWorld MirTarget)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) MirTarget
-> MirTarget -> IO (Growing Vector (PrimState IO) MirTarget)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld MirTarget
Growing Vector (PrimState IO) MirTarget
mutable'to MirTarget
y)
                                MirCert -> Growing Vector RealWorld MirTarget -> Parser MirCert
loop MirCert
x Growing Vector RealWorld MirTarget
v
                        Word64
24
                          -> do Word64
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
"other_pot"
                                MirCert -> Growing Vector RealWorld MirTarget -> Parser MirCert
loop
                                  (Setter MirCert MirCert Word64 Word64
-> Word64 -> MirCert -> MirCert
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 @"otherPot") Word64
y MirCert
x)
                                  Growing Vector RealWorld MirTarget
mutable'to
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MirCert -> Growing Vector RealWorld MirTarget -> Parser MirCert
loop
                                  (Setter MirCert MirCert FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MirCert -> MirCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f MirCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MirCert FieldSet
Setter MirCert MirCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MirCert
x)
                                  Growing Vector RealWorld MirTarget
mutable'to
      in
        Parser MirCert -> String -> Parser MirCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld MirTarget
mutable'to <- IO (Growing Vector RealWorld MirTarget)
-> Parser (Growing Vector RealWorld MirTarget)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                              IO (Growing Vector RealWorld MirTarget)
IO (Growing Vector (PrimState IO) MirTarget)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              MirCert -> Growing Vector RealWorld MirTarget -> Parser MirCert
loop MirCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld MirTarget
mutable'to)
          String
"MirCert"
  buildMessage :: MirCert -> Builder
buildMessage
    = \ MirCert
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: MirSource
_v = FoldLike MirSource MirCert MirCert MirSource MirSource
-> MirCert -> MirSource
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 @"from") MirCert
_x
              in
                if MirSource -> MirSource -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) MirSource
_v MirSource
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)
                      ((Int -> Builder) -> (MirSource -> Int) -> MirSource -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                         MirSource -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum MirSource
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((MirTarget -> Builder) -> Vector MirTarget -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ MirTarget
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (MirTarget -> ByteString) -> MirTarget -> 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))
                              MirTarget -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage MirTarget
_v))
                   (FoldLike
  (Vector MirTarget)
  MirCert
  MirCert
  (Vector MirTarget)
  (Vector MirTarget)
-> MirCert -> Vector MirTarget
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'to") MirCert
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Word64
_v = FoldLike Word64 MirCert MirCert Word64 Word64 -> MirCert -> 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 @"otherPot") MirCert
_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 MirCert MirCert FieldSet FieldSet
-> MirCert -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MirCert MirCert FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MirCert FieldSet
Data.ProtoLens.unknownFields MirCert
_x))))
instance Control.DeepSeq.NFData MirCert where
  rnf :: MirCert -> ()
rnf
    = \ MirCert
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MirCert -> FieldSet
_MirCert'_unknownFields MirCert
x__)
             (MirSource -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MirCert -> MirSource
_MirCert'from MirCert
x__)
                (Vector MirTarget -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MirCert -> Vector MirTarget
_MirCert'to MirCert
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MirCert -> Word64
_MirCert'otherPot MirCert
x__) ())))
newtype MirSource'UnrecognizedValue
  = MirSource'UnrecognizedValue Data.Int.Int32
  deriving stock (MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
(MirSource'UnrecognizedValue
 -> MirSource'UnrecognizedValue -> Bool)
-> (MirSource'UnrecognizedValue
    -> MirSource'UnrecognizedValue -> Bool)
-> Eq MirSource'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
== :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
$c/= :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
/= :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
Prelude.Eq, Eq MirSource'UnrecognizedValue
Eq MirSource'UnrecognizedValue =>
(MirSource'UnrecognizedValue
 -> MirSource'UnrecognizedValue -> Ordering)
-> (MirSource'UnrecognizedValue
    -> MirSource'UnrecognizedValue -> Bool)
-> (MirSource'UnrecognizedValue
    -> MirSource'UnrecognizedValue -> Bool)
-> (MirSource'UnrecognizedValue
    -> MirSource'UnrecognizedValue -> Bool)
-> (MirSource'UnrecognizedValue
    -> MirSource'UnrecognizedValue -> Bool)
-> (MirSource'UnrecognizedValue
    -> MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue)
-> (MirSource'UnrecognizedValue
    -> MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue)
-> Ord MirSource'UnrecognizedValue
MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> Ordering
MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue
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 :: MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> Ordering
compare :: MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> Ordering
$c< :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
< :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
$c<= :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
<= :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
$c> :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
> :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
$c>= :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
>= :: MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue -> Bool
$cmax :: MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue
max :: MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue
$cmin :: MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue
min :: MirSource'UnrecognizedValue
-> MirSource'UnrecognizedValue -> MirSource'UnrecognizedValue
Prelude.Ord, Int -> MirSource'UnrecognizedValue -> ShowS
[MirSource'UnrecognizedValue] -> ShowS
MirSource'UnrecognizedValue -> String
(Int -> MirSource'UnrecognizedValue -> ShowS)
-> (MirSource'UnrecognizedValue -> String)
-> ([MirSource'UnrecognizedValue] -> ShowS)
-> Show MirSource'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MirSource'UnrecognizedValue -> ShowS
showsPrec :: Int -> MirSource'UnrecognizedValue -> ShowS
$cshow :: MirSource'UnrecognizedValue -> String
show :: MirSource'UnrecognizedValue -> String
$cshowList :: [MirSource'UnrecognizedValue] -> ShowS
showList :: [MirSource'UnrecognizedValue] -> ShowS
Prelude.Show)
data MirSource
  = MIR_SOURCE_UNSPECIFIED |
    MIR_SOURCE_RESERVES |
    MIR_SOURCE_TREASURY |
    MirSource'Unrecognized !MirSource'UnrecognizedValue
  deriving stock (Int -> MirSource -> ShowS
[MirSource] -> ShowS
MirSource -> String
(Int -> MirSource -> ShowS)
-> (MirSource -> String)
-> ([MirSource] -> ShowS)
-> Show MirSource
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MirSource -> ShowS
showsPrec :: Int -> MirSource -> ShowS
$cshow :: MirSource -> String
show :: MirSource -> String
$cshowList :: [MirSource] -> ShowS
showList :: [MirSource] -> ShowS
Prelude.Show, MirSource -> MirSource -> Bool
(MirSource -> MirSource -> Bool)
-> (MirSource -> MirSource -> Bool) -> Eq MirSource
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MirSource -> MirSource -> Bool
== :: MirSource -> MirSource -> Bool
$c/= :: MirSource -> MirSource -> Bool
/= :: MirSource -> MirSource -> Bool
Prelude.Eq, Eq MirSource
Eq MirSource =>
(MirSource -> MirSource -> Ordering)
-> (MirSource -> MirSource -> Bool)
-> (MirSource -> MirSource -> Bool)
-> (MirSource -> MirSource -> Bool)
-> (MirSource -> MirSource -> Bool)
-> (MirSource -> MirSource -> MirSource)
-> (MirSource -> MirSource -> MirSource)
-> Ord MirSource
MirSource -> MirSource -> Bool
MirSource -> MirSource -> Ordering
MirSource -> MirSource -> MirSource
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 :: MirSource -> MirSource -> Ordering
compare :: MirSource -> MirSource -> Ordering
$c< :: MirSource -> MirSource -> Bool
< :: MirSource -> MirSource -> Bool
$c<= :: MirSource -> MirSource -> Bool
<= :: MirSource -> MirSource -> Bool
$c> :: MirSource -> MirSource -> Bool
> :: MirSource -> MirSource -> Bool
$c>= :: MirSource -> MirSource -> Bool
>= :: MirSource -> MirSource -> Bool
$cmax :: MirSource -> MirSource -> MirSource
max :: MirSource -> MirSource -> MirSource
$cmin :: MirSource -> MirSource -> MirSource
min :: MirSource -> MirSource -> MirSource
Prelude.Ord)
instance Data.ProtoLens.MessageEnum MirSource where
  maybeToEnum :: Int -> Maybe MirSource
maybeToEnum Int
0 = MirSource -> Maybe MirSource
forall a. a -> Maybe a
Prelude.Just MirSource
MIR_SOURCE_UNSPECIFIED
  maybeToEnum Int
1 = MirSource -> Maybe MirSource
forall a. a -> Maybe a
Prelude.Just MirSource
MIR_SOURCE_RESERVES
  maybeToEnum Int
2 = MirSource -> Maybe MirSource
forall a. a -> Maybe a
Prelude.Just MirSource
MIR_SOURCE_TREASURY
  maybeToEnum Int
k
    = MirSource -> Maybe MirSource
forall a. a -> Maybe a
Prelude.Just
        (MirSource'UnrecognizedValue -> MirSource
MirSource'Unrecognized
           (Int32 -> MirSource'UnrecognizedValue
MirSource'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: MirSource -> String
showEnum MirSource
MIR_SOURCE_UNSPECIFIED = String
"MIR_SOURCE_UNSPECIFIED"
  showEnum MirSource
MIR_SOURCE_RESERVES = String
"MIR_SOURCE_RESERVES"
  showEnum MirSource
MIR_SOURCE_TREASURY = String
"MIR_SOURCE_TREASURY"
  showEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe MirSource
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"MIR_SOURCE_UNSPECIFIED"
    = MirSource -> Maybe MirSource
forall a. a -> Maybe a
Prelude.Just MirSource
MIR_SOURCE_UNSPECIFIED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"MIR_SOURCE_RESERVES"
    = MirSource -> Maybe MirSource
forall a. a -> Maybe a
Prelude.Just MirSource
MIR_SOURCE_RESERVES
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"MIR_SOURCE_TREASURY"
    = MirSource -> Maybe MirSource
forall a. a -> Maybe a
Prelude.Just MirSource
MIR_SOURCE_TREASURY
    | Bool
Prelude.otherwise
    = Maybe Int -> (Int -> Maybe MirSource) -> Maybe MirSource
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe MirSource
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded MirSource where
  minBound :: MirSource
minBound = MirSource
MIR_SOURCE_UNSPECIFIED
  maxBound :: MirSource
maxBound = MirSource
MIR_SOURCE_TREASURY
instance Prelude.Enum MirSource where
  toEnum :: Int -> MirSource
toEnum Int
k__
    = MirSource
-> (MirSource -> MirSource) -> Maybe MirSource -> MirSource
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> MirSource
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum MirSource: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        MirSource -> MirSource
forall a. a -> a
Prelude.id (Int -> Maybe MirSource
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: MirSource -> Int
fromEnum MirSource
MIR_SOURCE_UNSPECIFIED = Int
0
  fromEnum MirSource
MIR_SOURCE_RESERVES = Int
1
  fromEnum MirSource
MIR_SOURCE_TREASURY = Int
2
  fromEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: MirSource -> MirSource
succ MirSource
MIR_SOURCE_TREASURY
    = String -> MirSource
forall a. HasCallStack => String -> a
Prelude.error
        String
"MirSource.succ: bad argument MIR_SOURCE_TREASURY. This value would be out of bounds."
  succ MirSource
MIR_SOURCE_UNSPECIFIED = MirSource
MIR_SOURCE_RESERVES
  succ MirSource
MIR_SOURCE_RESERVES = MirSource
MIR_SOURCE_TREASURY
  succ (MirSource'Unrecognized MirSource'UnrecognizedValue
_)
    = String -> MirSource
forall a. HasCallStack => String -> a
Prelude.error String
"MirSource.succ: bad argument: unrecognized value"
  pred :: MirSource -> MirSource
pred MirSource
MIR_SOURCE_UNSPECIFIED
    = String -> MirSource
forall a. HasCallStack => String -> a
Prelude.error
        String
"MirSource.pred: bad argument MIR_SOURCE_UNSPECIFIED. This value would be out of bounds."
  pred MirSource
MIR_SOURCE_RESERVES = MirSource
MIR_SOURCE_UNSPECIFIED
  pred MirSource
MIR_SOURCE_TREASURY = MirSource
MIR_SOURCE_RESERVES
  pred (MirSource'Unrecognized MirSource'UnrecognizedValue
_)
    = String -> MirSource
forall a. HasCallStack => String -> a
Prelude.error String
"MirSource.pred: bad argument: unrecognized value"
  enumFrom :: MirSource -> [MirSource]
enumFrom = MirSource -> [MirSource]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: MirSource -> MirSource -> [MirSource]
enumFromTo = MirSource -> MirSource -> [MirSource]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: MirSource -> MirSource -> [MirSource]
enumFromThen = MirSource -> MirSource -> [MirSource]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: MirSource -> MirSource -> MirSource -> [MirSource]
enumFromThenTo = MirSource -> MirSource -> MirSource -> [MirSource]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault MirSource where
  fieldDefault :: MirSource
fieldDefault = MirSource
MIR_SOURCE_UNSPECIFIED
instance Control.DeepSeq.NFData MirSource where
  rnf :: MirSource -> ()
rnf MirSource
x__ = MirSource -> () -> ()
forall a b. a -> b -> b
Prelude.seq MirSource
x__ ()
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeCredential' @:: Lens' MirTarget StakeCredential@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' MirTarget (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.deltaCoin' @:: Lens' MirTarget Data.Int.Int64@ -}
data MirTarget
  = MirTarget'_constructor {MirTarget -> Maybe StakeCredential
_MirTarget'stakeCredential :: !(Prelude.Maybe StakeCredential),
                            MirTarget -> Int64
_MirTarget'deltaCoin :: !Data.Int.Int64,
                            MirTarget -> FieldSet
_MirTarget'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MirTarget -> MirTarget -> Bool
(MirTarget -> MirTarget -> Bool)
-> (MirTarget -> MirTarget -> Bool) -> Eq MirTarget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MirTarget -> MirTarget -> Bool
== :: MirTarget -> MirTarget -> Bool
$c/= :: MirTarget -> MirTarget -> Bool
/= :: MirTarget -> MirTarget -> Bool
Prelude.Eq, Eq MirTarget
Eq MirTarget =>
(MirTarget -> MirTarget -> Ordering)
-> (MirTarget -> MirTarget -> Bool)
-> (MirTarget -> MirTarget -> Bool)
-> (MirTarget -> MirTarget -> Bool)
-> (MirTarget -> MirTarget -> Bool)
-> (MirTarget -> MirTarget -> MirTarget)
-> (MirTarget -> MirTarget -> MirTarget)
-> Ord MirTarget
MirTarget -> MirTarget -> Bool
MirTarget -> MirTarget -> Ordering
MirTarget -> MirTarget -> MirTarget
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 :: MirTarget -> MirTarget -> Ordering
compare :: MirTarget -> MirTarget -> Ordering
$c< :: MirTarget -> MirTarget -> Bool
< :: MirTarget -> MirTarget -> Bool
$c<= :: MirTarget -> MirTarget -> Bool
<= :: MirTarget -> MirTarget -> Bool
$c> :: MirTarget -> MirTarget -> Bool
> :: MirTarget -> MirTarget -> Bool
$c>= :: MirTarget -> MirTarget -> Bool
>= :: MirTarget -> MirTarget -> Bool
$cmax :: MirTarget -> MirTarget -> MirTarget
max :: MirTarget -> MirTarget -> MirTarget
$cmin :: MirTarget -> MirTarget -> MirTarget
min :: MirTarget -> MirTarget -> MirTarget
Prelude.Ord)
instance Prelude.Show MirTarget where
  showsPrec :: Int -> MirTarget -> ShowS
showsPrec Int
_ MirTarget
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MirTarget -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MirTarget
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MirTarget "stakeCredential" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeCredential"
-> (StakeCredential -> f StakeCredential)
-> MirTarget
-> f MirTarget
fieldOf Proxy# "stakeCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> MirTarget -> f MirTarget)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> MirTarget
-> f MirTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MirTarget -> Maybe StakeCredential)
-> (MirTarget -> Maybe StakeCredential -> MirTarget)
-> Lens
     MirTarget MirTarget (Maybe StakeCredential) (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MirTarget -> Maybe StakeCredential
_MirTarget'stakeCredential
           (\ MirTarget
x__ Maybe StakeCredential
y__ -> MirTarget
x__ {_MirTarget'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 MirTarget "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeCredential"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> MirTarget
-> f MirTarget
fieldOf Proxy# "maybe'stakeCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> MirTarget -> f MirTarget)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> MirTarget
-> f MirTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MirTarget -> Maybe StakeCredential)
-> (MirTarget -> Maybe StakeCredential -> MirTarget)
-> Lens
     MirTarget MirTarget (Maybe StakeCredential) (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MirTarget -> Maybe StakeCredential
_MirTarget'stakeCredential
           (\ MirTarget
x__ Maybe StakeCredential
y__ -> MirTarget
x__ {_MirTarget'stakeCredential = y__}))
        (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Maybe StakeCredential -> f (Maybe StakeCredential)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MirTarget "deltaCoin" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "deltaCoin"
-> (Int64 -> f Int64) -> MirTarget -> f MirTarget
fieldOf Proxy# "deltaCoin"
_
    = ((Int64 -> f Int64) -> MirTarget -> f MirTarget)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MirTarget
-> f MirTarget
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MirTarget -> Int64)
-> (MirTarget -> Int64 -> MirTarget)
-> Lens MirTarget MirTarget Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MirTarget -> Int64
_MirTarget'deltaCoin
           (\ MirTarget
x__ Int64
y__ -> MirTarget
x__ {_MirTarget'deltaCoin = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MirTarget where
  messageName :: Proxy MirTarget -> Text
messageName Proxy MirTarget
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.MirTarget"
  packedMessageDescriptor :: Proxy MirTarget -> ByteString
packedMessageDescriptor Proxy MirTarget
_
    = ByteString
"\n\
      \\tMirTarget\DC2S\n\
      \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2\GS\n\
      \\n\
      \delta_coin\CAN\STX \SOH(\ETXR\tdeltaCoin"
  packedFileDescriptor :: Proxy MirTarget -> ByteString
packedFileDescriptor Proxy MirTarget
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MirTarget)
fieldsByTag
    = let
        stakeCredential__field_descriptor :: FieldDescriptor MirTarget
stakeCredential__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor MirTarget StakeCredential
-> FieldDescriptor MirTarget
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_credential"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens
  MirTarget MirTarget (Maybe StakeCredential) (Maybe StakeCredential)
-> FieldAccessor MirTarget 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'stakeCredential")) ::
              Data.ProtoLens.FieldDescriptor MirTarget
        deltaCoin__field_descriptor :: FieldDescriptor MirTarget
deltaCoin__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor MirTarget Int64
-> FieldDescriptor MirTarget
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"delta_coin"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens MirTarget MirTarget Int64 Int64
-> FieldAccessor MirTarget Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
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 @"deltaCoin")) ::
              Data.ProtoLens.FieldDescriptor MirTarget
      in
        [(Tag, FieldDescriptor MirTarget)]
-> Map Tag (FieldDescriptor MirTarget)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MirTarget
stakeCredential__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MirTarget
deltaCoin__field_descriptor)]
  unknownFields :: Lens' MirTarget FieldSet
unknownFields
    = (MirTarget -> FieldSet)
-> (MirTarget -> FieldSet -> MirTarget) -> Lens' MirTarget FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MirTarget -> FieldSet
_MirTarget'_unknownFields
        (\ MirTarget
x__ FieldSet
y__ -> MirTarget
x__ {_MirTarget'_unknownFields = y__})
  defMessage :: MirTarget
defMessage
    = MirTarget'_constructor
        {_MirTarget'stakeCredential :: Maybe StakeCredential
_MirTarget'stakeCredential = Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing,
         _MirTarget'deltaCoin :: Int64
_MirTarget'deltaCoin = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MirTarget'_unknownFields :: FieldSet
_MirTarget'_unknownFields = []}
  parseMessage :: Parser MirTarget
parseMessage
    = let
        loop :: MirTarget -> Data.ProtoLens.Encoding.Bytes.Parser MirTarget
        loop :: MirTarget -> Parser MirTarget
loop MirTarget
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MirTarget -> Parser MirTarget
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MirTarget MirTarget FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MirTarget -> MirTarget
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f MirTarget FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MirTarget FieldSet
Setter MirTarget MirTarget FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MirTarget
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do StakeCredential
y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StakeCredential -> Parser StakeCredential
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StakeCredential
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"stake_credential"
                                MirTarget -> Parser MirTarget
loop
                                  (Setter MirTarget MirTarget StakeCredential StakeCredential
-> StakeCredential -> MirTarget -> MirTarget
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 @"stakeCredential") StakeCredential
y MirTarget
x)
                        Word64
16
                          -> do Int64
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
"delta_coin"
                                MirTarget -> Parser MirTarget
loop
                                  (Setter MirTarget MirTarget Int64 Int64
-> Int64 -> MirTarget -> MirTarget
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 @"deltaCoin") Int64
y MirTarget
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MirTarget -> Parser MirTarget
loop
                                  (Setter MirTarget MirTarget FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MirTarget -> MirTarget
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f MirTarget FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MirTarget FieldSet
Setter MirTarget MirTarget FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MirTarget
x)
      in
        Parser MirTarget -> String -> Parser MirTarget
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MirTarget -> Parser MirTarget
loop MirTarget
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MirTarget"
  buildMessage :: MirTarget -> Builder
buildMessage
    = \ MirTarget
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe StakeCredential)
  MirTarget
  MirTarget
  (Maybe StakeCredential)
  (Maybe StakeCredential)
-> MirTarget -> 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'stakeCredential") MirTarget
_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.<>)
                (let
                   _v :: Int64
_v = FoldLike Int64 MirTarget MirTarget Int64 Int64
-> MirTarget -> 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 @"deltaCoin") MirTarget
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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) -> (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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet MirTarget MirTarget FieldSet FieldSet
-> MirTarget -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MirTarget MirTarget FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MirTarget FieldSet
Data.ProtoLens.unknownFields MirTarget
_x)))
instance Control.DeepSeq.NFData MirTarget where
  rnf :: MirTarget -> ()
rnf
    = \ MirTarget
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MirTarget -> FieldSet
_MirTarget'_unknownFields MirTarget
x__)
             (Maybe StakeCredential -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MirTarget -> Maybe StakeCredential
_MirTarget'stakeCredential MirTarget
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MirTarget -> Int64
_MirTarget'deltaCoin MirTarget
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.policyId' @:: Lens' Multiasset Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.assets' @:: Lens' Multiasset [Asset]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'assets' @:: Lens' Multiasset (Data.Vector.Vector Asset)@ -}
data Multiasset
  = Multiasset'_constructor {Multiasset -> ByteString
_Multiasset'policyId :: !Data.ByteString.ByteString,
                             Multiasset -> Vector Asset
_Multiasset'assets :: !(Data.Vector.Vector Asset),
                             Multiasset -> FieldSet
_Multiasset'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Multiasset -> Multiasset -> Bool
(Multiasset -> Multiasset -> Bool)
-> (Multiasset -> Multiasset -> Bool) -> Eq Multiasset
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Multiasset -> Multiasset -> Bool
== :: Multiasset -> Multiasset -> Bool
$c/= :: Multiasset -> Multiasset -> Bool
/= :: Multiasset -> Multiasset -> Bool
Prelude.Eq, Eq Multiasset
Eq Multiasset =>
(Multiasset -> Multiasset -> Ordering)
-> (Multiasset -> Multiasset -> Bool)
-> (Multiasset -> Multiasset -> Bool)
-> (Multiasset -> Multiasset -> Bool)
-> (Multiasset -> Multiasset -> Bool)
-> (Multiasset -> Multiasset -> Multiasset)
-> (Multiasset -> Multiasset -> Multiasset)
-> Ord Multiasset
Multiasset -> Multiasset -> Bool
Multiasset -> Multiasset -> Ordering
Multiasset -> Multiasset -> Multiasset
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 :: Multiasset -> Multiasset -> Ordering
compare :: Multiasset -> Multiasset -> Ordering
$c< :: Multiasset -> Multiasset -> Bool
< :: Multiasset -> Multiasset -> Bool
$c<= :: Multiasset -> Multiasset -> Bool
<= :: Multiasset -> Multiasset -> Bool
$c> :: Multiasset -> Multiasset -> Bool
> :: Multiasset -> Multiasset -> Bool
$c>= :: Multiasset -> Multiasset -> Bool
>= :: Multiasset -> Multiasset -> Bool
$cmax :: Multiasset -> Multiasset -> Multiasset
max :: Multiasset -> Multiasset -> Multiasset
$cmin :: Multiasset -> Multiasset -> Multiasset
min :: Multiasset -> Multiasset -> Multiasset
Prelude.Ord)
instance Prelude.Show Multiasset where
  showsPrec :: Int -> Multiasset -> ShowS
showsPrec Int
_ Multiasset
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Multiasset -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Multiasset
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Multiasset "policyId" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "policyId"
-> (ByteString -> f ByteString) -> Multiasset -> f Multiasset
fieldOf Proxy# "policyId"
_
    = ((ByteString -> f ByteString) -> Multiasset -> f Multiasset)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Multiasset
-> f Multiasset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Multiasset -> ByteString)
-> (Multiasset -> ByteString -> Multiasset)
-> Lens Multiasset Multiasset ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Multiasset -> ByteString
_Multiasset'policyId
           (\ Multiasset
x__ ByteString
y__ -> Multiasset
x__ {_Multiasset'policyId = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Multiasset "assets" [Asset] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "assets"
-> ([Asset] -> f [Asset]) -> Multiasset -> f Multiasset
fieldOf Proxy# "assets"
_
    = ((Vector Asset -> f (Vector Asset)) -> Multiasset -> f Multiasset)
-> (([Asset] -> f [Asset]) -> Vector Asset -> f (Vector Asset))
-> ([Asset] -> f [Asset])
-> Multiasset
-> f Multiasset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Multiasset -> Vector Asset)
-> (Multiasset -> Vector Asset -> Multiasset)
-> Lens Multiasset Multiasset (Vector Asset) (Vector Asset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Multiasset -> Vector Asset
_Multiasset'assets (\ Multiasset
x__ Vector Asset
y__ -> Multiasset
x__ {_Multiasset'assets = y__}))
        ((Vector Asset -> [Asset])
-> (Vector Asset -> [Asset] -> Vector Asset)
-> Lens (Vector Asset) (Vector Asset) [Asset] [Asset]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Asset -> [Asset]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Asset
_ [Asset]
y__ -> [Asset] -> Vector Asset
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Asset]
y__))
instance Data.ProtoLens.Field.HasField Multiasset "vec'assets" (Data.Vector.Vector Asset) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'assets"
-> (Vector Asset -> f (Vector Asset)) -> Multiasset -> f Multiasset
fieldOf Proxy# "vec'assets"
_
    = ((Vector Asset -> f (Vector Asset)) -> Multiasset -> f Multiasset)
-> ((Vector Asset -> f (Vector Asset))
    -> Vector Asset -> f (Vector Asset))
-> (Vector Asset -> f (Vector Asset))
-> Multiasset
-> f Multiasset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Multiasset -> Vector Asset)
-> (Multiasset -> Vector Asset -> Multiasset)
-> Lens Multiasset Multiasset (Vector Asset) (Vector Asset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Multiasset -> Vector Asset
_Multiasset'assets (\ Multiasset
x__ Vector Asset
y__ -> Multiasset
x__ {_Multiasset'assets = y__}))
        (Vector Asset -> f (Vector Asset))
-> Vector Asset -> f (Vector Asset)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Multiasset where
  messageName :: Proxy Multiasset -> Text
messageName Proxy Multiasset
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Multiasset"
  packedMessageDescriptor :: Proxy Multiasset -> ByteString
packedMessageDescriptor Proxy Multiasset
_
    = ByteString
"\n\
      \\n\
      \Multiasset\DC2\ESC\n\
      \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC26\n\
      \\ACKassets\CAN\STX \ETX(\v2\RS.utxorpc.v1alpha.cardano.AssetR\ACKassets"
  packedFileDescriptor :: Proxy Multiasset -> ByteString
packedFileDescriptor Proxy Multiasset
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Multiasset)
fieldsByTag
    = let
        policyId__field_descriptor :: FieldDescriptor Multiasset
policyId__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Multiasset ByteString
-> FieldDescriptor Multiasset
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)
              (WireDefault ByteString
-> Lens Multiasset Multiasset ByteString ByteString
-> FieldAccessor Multiasset 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 @"policyId")) ::
              Data.ProtoLens.FieldDescriptor Multiasset
        assets__field_descriptor :: FieldDescriptor Multiasset
assets__field_descriptor
          = String
-> FieldTypeDescriptor Asset
-> FieldAccessor Multiasset Asset
-> FieldDescriptor Multiasset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"assets"
              (MessageOrGroup -> FieldTypeDescriptor Asset
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Asset)
              (Packing
-> Lens' Multiasset [Asset] -> FieldAccessor Multiasset Asset
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 @"assets")) ::
              Data.ProtoLens.FieldDescriptor Multiasset
      in
        [(Tag, FieldDescriptor Multiasset)]
-> Map Tag (FieldDescriptor Multiasset)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Multiasset
policyId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Multiasset
assets__field_descriptor)]
  unknownFields :: Lens' Multiasset FieldSet
unknownFields
    = (Multiasset -> FieldSet)
-> (Multiasset -> FieldSet -> Multiasset)
-> Lens' Multiasset FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Multiasset -> FieldSet
_Multiasset'_unknownFields
        (\ Multiasset
x__ FieldSet
y__ -> Multiasset
x__ {_Multiasset'_unknownFields = y__})
  defMessage :: Multiasset
defMessage
    = Multiasset'_constructor
        {_Multiasset'policyId :: ByteString
_Multiasset'policyId = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Multiasset'assets :: Vector Asset
_Multiasset'assets = Vector Asset
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Multiasset'_unknownFields :: FieldSet
_Multiasset'_unknownFields = []}
  parseMessage :: Parser Multiasset
parseMessage
    = let
        loop ::
          Multiasset
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Asset
             -> Data.ProtoLens.Encoding.Bytes.Parser Multiasset
        loop :: Multiasset -> Growing Vector RealWorld Asset -> Parser Multiasset
loop Multiasset
x Growing Vector RealWorld Asset
mutable'assets
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Asset
frozen'assets <- IO (Vector Asset) -> Parser (Vector Asset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) Asset -> IO (Vector Asset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld Asset
Growing Vector (PrimState IO) Asset
mutable'assets)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Multiasset -> Parser Multiasset
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Multiasset Multiasset FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Multiasset -> Multiasset
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Multiasset FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Multiasset FieldSet
Setter Multiasset Multiasset FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter Multiasset Multiasset (Vector Asset) (Vector Asset)
-> Vector Asset -> Multiasset -> Multiasset
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 @"vec'assets") Vector Asset
frozen'assets Multiasset
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"policy_id"
                                Multiasset -> Growing Vector RealWorld Asset -> Parser Multiasset
loop
                                  (Setter Multiasset Multiasset ByteString ByteString
-> ByteString -> Multiasset -> Multiasset
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 @"policyId") ByteString
y Multiasset
x)
                                  Growing Vector RealWorld Asset
mutable'assets
                        Word64
18
                          -> do !Asset
y <- Parser Asset -> String -> Parser Asset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Asset -> Parser Asset
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Asset
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"assets"
                                Growing Vector RealWorld Asset
v <- IO (Growing Vector RealWorld Asset)
-> Parser (Growing Vector RealWorld Asset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Asset
-> Asset -> IO (Growing Vector (PrimState IO) Asset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Asset
Growing Vector (PrimState IO) Asset
mutable'assets Asset
y)
                                Multiasset -> Growing Vector RealWorld Asset -> Parser Multiasset
loop Multiasset
x Growing Vector RealWorld Asset
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Multiasset -> Growing Vector RealWorld Asset -> Parser Multiasset
loop
                                  (Setter Multiasset Multiasset FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Multiasset -> Multiasset
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Multiasset FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Multiasset FieldSet
Setter Multiasset Multiasset FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Multiasset
x)
                                  Growing Vector RealWorld Asset
mutable'assets
      in
        Parser Multiasset -> String -> Parser Multiasset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Asset
mutable'assets <- IO (Growing Vector RealWorld Asset)
-> Parser (Growing Vector RealWorld Asset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Asset)
IO (Growing Vector (PrimState IO) Asset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Multiasset -> Growing Vector RealWorld Asset -> Parser Multiasset
loop Multiasset
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Asset
mutable'assets)
          String
"Multiasset"
  buildMessage :: Multiasset -> Builder
buildMessage
    = \ Multiasset
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v = FoldLike ByteString Multiasset Multiasset ByteString ByteString
-> Multiasset -> 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 @"policyId") Multiasset
_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.<>)
                ((Asset -> Builder) -> Vector Asset -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Asset
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Asset -> ByteString) -> Asset -> 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))
                              Asset -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Asset
_v))
                   (FoldLike
  (Vector Asset) Multiasset Multiasset (Vector Asset) (Vector Asset)
-> Multiasset -> Vector Asset
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'assets") Multiasset
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Multiasset Multiasset FieldSet FieldSet
-> Multiasset -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Multiasset Multiasset FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Multiasset FieldSet
Data.ProtoLens.unknownFields Multiasset
_x)))
instance Control.DeepSeq.NFData Multiasset where
  rnf :: Multiasset -> ()
rnf
    = \ Multiasset
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Multiasset -> FieldSet
_Multiasset'_unknownFields Multiasset
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Multiasset -> ByteString
_Multiasset'policyId Multiasset
x__)
                (Vector Asset -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Multiasset -> Vector Asset
_Multiasset'assets Multiasset
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'nativeScript' @:: Lens' NativeScript (Prelude.Maybe NativeScript'NativeScript)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptPubkey' @:: Lens' NativeScript (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptPubkey' @:: Lens' NativeScript Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAll' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAll' @:: Lens' NativeScript NativeScriptList@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAny' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAny' @:: Lens' NativeScript NativeScriptList@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptNOfK' @:: Lens' NativeScript (Prelude.Maybe ScriptNOfK)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptNOfK' @:: Lens' NativeScript ScriptNOfK@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidBefore' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidBefore' @:: Lens' NativeScript Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidHereafter' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidHereafter' @:: Lens' NativeScript Data.Word.Word64@ -}
data NativeScript
  = NativeScript'_constructor {NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript :: !(Prelude.Maybe NativeScript'NativeScript),
                               NativeScript -> FieldSet
_NativeScript'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NativeScript -> NativeScript -> Bool
(NativeScript -> NativeScript -> Bool)
-> (NativeScript -> NativeScript -> Bool) -> Eq NativeScript
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NativeScript -> NativeScript -> Bool
== :: NativeScript -> NativeScript -> Bool
$c/= :: NativeScript -> NativeScript -> Bool
/= :: NativeScript -> NativeScript -> Bool
Prelude.Eq, Eq NativeScript
Eq NativeScript =>
(NativeScript -> NativeScript -> Ordering)
-> (NativeScript -> NativeScript -> Bool)
-> (NativeScript -> NativeScript -> Bool)
-> (NativeScript -> NativeScript -> Bool)
-> (NativeScript -> NativeScript -> Bool)
-> (NativeScript -> NativeScript -> NativeScript)
-> (NativeScript -> NativeScript -> NativeScript)
-> Ord NativeScript
NativeScript -> NativeScript -> Bool
NativeScript -> NativeScript -> Ordering
NativeScript -> NativeScript -> NativeScript
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 :: NativeScript -> NativeScript -> Ordering
compare :: NativeScript -> NativeScript -> Ordering
$c< :: NativeScript -> NativeScript -> Bool
< :: NativeScript -> NativeScript -> Bool
$c<= :: NativeScript -> NativeScript -> Bool
<= :: NativeScript -> NativeScript -> Bool
$c> :: NativeScript -> NativeScript -> Bool
> :: NativeScript -> NativeScript -> Bool
$c>= :: NativeScript -> NativeScript -> Bool
>= :: NativeScript -> NativeScript -> Bool
$cmax :: NativeScript -> NativeScript -> NativeScript
max :: NativeScript -> NativeScript -> NativeScript
$cmin :: NativeScript -> NativeScript -> NativeScript
min :: NativeScript -> NativeScript -> NativeScript
Prelude.Ord)
instance Prelude.Show NativeScript where
  showsPrec :: Int -> NativeScript -> ShowS
showsPrec Int
_ NativeScript
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NativeScript -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NativeScript
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data NativeScript'NativeScript
  = NativeScript'ScriptPubkey !Data.ByteString.ByteString |
    NativeScript'ScriptAll !NativeScriptList |
    NativeScript'ScriptAny !NativeScriptList |
    NativeScript'ScriptNOfK !ScriptNOfK |
    NativeScript'InvalidBefore !Data.Word.Word64 |
    NativeScript'InvalidHereafter !Data.Word.Word64
  deriving stock (Int -> NativeScript'NativeScript -> ShowS
[NativeScript'NativeScript] -> ShowS
NativeScript'NativeScript -> String
(Int -> NativeScript'NativeScript -> ShowS)
-> (NativeScript'NativeScript -> String)
-> ([NativeScript'NativeScript] -> ShowS)
-> Show NativeScript'NativeScript
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NativeScript'NativeScript -> ShowS
showsPrec :: Int -> NativeScript'NativeScript -> ShowS
$cshow :: NativeScript'NativeScript -> String
show :: NativeScript'NativeScript -> String
$cshowList :: [NativeScript'NativeScript] -> ShowS
showList :: [NativeScript'NativeScript] -> ShowS
Prelude.Show, NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
(NativeScript'NativeScript -> NativeScript'NativeScript -> Bool)
-> (NativeScript'NativeScript -> NativeScript'NativeScript -> Bool)
-> Eq NativeScript'NativeScript
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
== :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
$c/= :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
/= :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
Prelude.Eq, Eq NativeScript'NativeScript
Eq NativeScript'NativeScript =>
(NativeScript'NativeScript
 -> NativeScript'NativeScript -> Ordering)
-> (NativeScript'NativeScript -> NativeScript'NativeScript -> Bool)
-> (NativeScript'NativeScript -> NativeScript'NativeScript -> Bool)
-> (NativeScript'NativeScript -> NativeScript'NativeScript -> Bool)
-> (NativeScript'NativeScript -> NativeScript'NativeScript -> Bool)
-> (NativeScript'NativeScript
    -> NativeScript'NativeScript -> NativeScript'NativeScript)
-> (NativeScript'NativeScript
    -> NativeScript'NativeScript -> NativeScript'NativeScript)
-> Ord NativeScript'NativeScript
NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
NativeScript'NativeScript -> NativeScript'NativeScript -> Ordering
NativeScript'NativeScript
-> NativeScript'NativeScript -> NativeScript'NativeScript
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 :: NativeScript'NativeScript -> NativeScript'NativeScript -> Ordering
compare :: NativeScript'NativeScript -> NativeScript'NativeScript -> Ordering
$c< :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
< :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
$c<= :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
<= :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
$c> :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
> :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
$c>= :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
>= :: NativeScript'NativeScript -> NativeScript'NativeScript -> Bool
$cmax :: NativeScript'NativeScript
-> NativeScript'NativeScript -> NativeScript'NativeScript
max :: NativeScript'NativeScript
-> NativeScript'NativeScript -> NativeScript'NativeScript
$cmin :: NativeScript'NativeScript
-> NativeScript'NativeScript -> NativeScript'NativeScript
min :: NativeScript'NativeScript
-> NativeScript'NativeScript -> NativeScript'NativeScript
Prelude.Ord)
instance Data.ProtoLens.Field.HasField NativeScript "maybe'nativeScript" (Prelude.Maybe NativeScript'NativeScript) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nativeScript"
-> (Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> NativeScript
-> f NativeScript
fieldOf Proxy# "maybe'nativeScript"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Maybe NativeScript'NativeScript
     -> f (Maybe NativeScript'NativeScript))
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        (Maybe NativeScript'NativeScript
 -> f (Maybe NativeScript'NativeScript))
-> Maybe NativeScript'NativeScript
-> f (Maybe NativeScript'NativeScript)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptPubkey" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scriptPubkey"
-> (Maybe ByteString -> f (Maybe ByteString))
-> NativeScript
-> f NativeScript
fieldOf Proxy# "maybe'scriptPubkey"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Maybe ByteString -> f (Maybe ByteString))
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        ((Maybe NativeScript'NativeScript -> Maybe ByteString)
-> (Maybe NativeScript'NativeScript
    -> Maybe ByteString -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe NativeScript'NativeScript
x__
              -> case Maybe NativeScript'NativeScript
x__ of
                   (Prelude.Just (NativeScript'ScriptPubkey ByteString
x__val))
                     -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe NativeScript'NativeScript
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe NativeScript'NativeScript
_ Maybe ByteString
y__ -> (ByteString -> NativeScript'NativeScript)
-> Maybe ByteString -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> NativeScript'NativeScript
NativeScript'ScriptPubkey Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField NativeScript "scriptPubkey" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scriptPubkey"
-> (ByteString -> f ByteString) -> NativeScript -> f NativeScript
fieldOf Proxy# "scriptPubkey"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((ByteString -> f ByteString)
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (ByteString -> f ByteString)
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe NativeScript'NativeScript
 -> f (Maybe NativeScript'NativeScript))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe NativeScript'NativeScript
-> f (Maybe NativeScript'NativeScript)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe NativeScript'NativeScript -> Maybe ByteString)
-> (Maybe NativeScript'NativeScript
    -> Maybe ByteString -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe NativeScript'NativeScript
x__
                 -> case Maybe NativeScript'NativeScript
x__ of
                      (Prelude.Just (NativeScript'ScriptPubkey ByteString
x__val))
                        -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe NativeScript'NativeScript
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe NativeScript'NativeScript
_ Maybe ByteString
y__ -> (ByteString -> NativeScript'NativeScript)
-> Maybe ByteString -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> NativeScript'NativeScript
NativeScript'ScriptPubkey 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 NativeScript "maybe'scriptAll" (Prelude.Maybe NativeScriptList) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scriptAll"
-> (Maybe NativeScriptList -> f (Maybe NativeScriptList))
-> NativeScript
-> f NativeScript
fieldOf Proxy# "maybe'scriptAll"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Maybe NativeScriptList -> f (Maybe NativeScriptList))
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Maybe NativeScriptList -> f (Maybe NativeScriptList))
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        ((Maybe NativeScript'NativeScript -> Maybe NativeScriptList)
-> (Maybe NativeScript'NativeScript
    -> Maybe NativeScriptList -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScriptList)
     (Maybe NativeScriptList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe NativeScript'NativeScript
x__
              -> case Maybe NativeScript'NativeScript
x__ of
                   (Prelude.Just (NativeScript'ScriptAll NativeScriptList
x__val))
                     -> NativeScriptList -> Maybe NativeScriptList
forall a. a -> Maybe a
Prelude.Just NativeScriptList
x__val
                   Maybe NativeScript'NativeScript
_otherwise -> Maybe NativeScriptList
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe NativeScript'NativeScript
_ Maybe NativeScriptList
y__ -> (NativeScriptList -> NativeScript'NativeScript)
-> Maybe NativeScriptList -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NativeScriptList -> NativeScript'NativeScript
NativeScript'ScriptAll Maybe NativeScriptList
y__))
instance Data.ProtoLens.Field.HasField NativeScript "scriptAll" NativeScriptList where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scriptAll"
-> (NativeScriptList -> f NativeScriptList)
-> NativeScript
-> f NativeScript
fieldOf Proxy# "scriptAll"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((NativeScriptList -> f NativeScriptList)
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (NativeScriptList -> f NativeScriptList)
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        (((Maybe NativeScriptList -> f (Maybe NativeScriptList))
 -> Maybe NativeScript'NativeScript
 -> f (Maybe NativeScript'NativeScript))
-> ((NativeScriptList -> f NativeScriptList)
    -> Maybe NativeScriptList -> f (Maybe NativeScriptList))
-> (NativeScriptList -> f NativeScriptList)
-> Maybe NativeScript'NativeScript
-> f (Maybe NativeScript'NativeScript)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe NativeScript'NativeScript -> Maybe NativeScriptList)
-> (Maybe NativeScript'NativeScript
    -> Maybe NativeScriptList -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScriptList)
     (Maybe NativeScriptList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe NativeScript'NativeScript
x__
                 -> case Maybe NativeScript'NativeScript
x__ of
                      (Prelude.Just (NativeScript'ScriptAll NativeScriptList
x__val))
                        -> NativeScriptList -> Maybe NativeScriptList
forall a. a -> Maybe a
Prelude.Just NativeScriptList
x__val
                      Maybe NativeScript'NativeScript
_otherwise -> Maybe NativeScriptList
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe NativeScript'NativeScript
_ Maybe NativeScriptList
y__ -> (NativeScriptList -> NativeScript'NativeScript)
-> Maybe NativeScriptList -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NativeScriptList -> NativeScript'NativeScript
NativeScript'ScriptAll Maybe NativeScriptList
y__))
           (NativeScriptList -> Lens' (Maybe NativeScriptList) NativeScriptList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NativeScriptList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAny" (Prelude.Maybe NativeScriptList) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scriptAny"
-> (Maybe NativeScriptList -> f (Maybe NativeScriptList))
-> NativeScript
-> f NativeScript
fieldOf Proxy# "maybe'scriptAny"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Maybe NativeScriptList -> f (Maybe NativeScriptList))
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Maybe NativeScriptList -> f (Maybe NativeScriptList))
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        ((Maybe NativeScript'NativeScript -> Maybe NativeScriptList)
-> (Maybe NativeScript'NativeScript
    -> Maybe NativeScriptList -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScriptList)
     (Maybe NativeScriptList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe NativeScript'NativeScript
x__
              -> case Maybe NativeScript'NativeScript
x__ of
                   (Prelude.Just (NativeScript'ScriptAny NativeScriptList
x__val))
                     -> NativeScriptList -> Maybe NativeScriptList
forall a. a -> Maybe a
Prelude.Just NativeScriptList
x__val
                   Maybe NativeScript'NativeScript
_otherwise -> Maybe NativeScriptList
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe NativeScript'NativeScript
_ Maybe NativeScriptList
y__ -> (NativeScriptList -> NativeScript'NativeScript)
-> Maybe NativeScriptList -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NativeScriptList -> NativeScript'NativeScript
NativeScript'ScriptAny Maybe NativeScriptList
y__))
instance Data.ProtoLens.Field.HasField NativeScript "scriptAny" NativeScriptList where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scriptAny"
-> (NativeScriptList -> f NativeScriptList)
-> NativeScript
-> f NativeScript
fieldOf Proxy# "scriptAny"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((NativeScriptList -> f NativeScriptList)
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (NativeScriptList -> f NativeScriptList)
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        (((Maybe NativeScriptList -> f (Maybe NativeScriptList))
 -> Maybe NativeScript'NativeScript
 -> f (Maybe NativeScript'NativeScript))
-> ((NativeScriptList -> f NativeScriptList)
    -> Maybe NativeScriptList -> f (Maybe NativeScriptList))
-> (NativeScriptList -> f NativeScriptList)
-> Maybe NativeScript'NativeScript
-> f (Maybe NativeScript'NativeScript)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe NativeScript'NativeScript -> Maybe NativeScriptList)
-> (Maybe NativeScript'NativeScript
    -> Maybe NativeScriptList -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScriptList)
     (Maybe NativeScriptList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe NativeScript'NativeScript
x__
                 -> case Maybe NativeScript'NativeScript
x__ of
                      (Prelude.Just (NativeScript'ScriptAny NativeScriptList
x__val))
                        -> NativeScriptList -> Maybe NativeScriptList
forall a. a -> Maybe a
Prelude.Just NativeScriptList
x__val
                      Maybe NativeScript'NativeScript
_otherwise -> Maybe NativeScriptList
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe NativeScript'NativeScript
_ Maybe NativeScriptList
y__ -> (NativeScriptList -> NativeScript'NativeScript)
-> Maybe NativeScriptList -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NativeScriptList -> NativeScript'NativeScript
NativeScript'ScriptAny Maybe NativeScriptList
y__))
           (NativeScriptList -> Lens' (Maybe NativeScriptList) NativeScriptList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NativeScriptList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptNOfK" (Prelude.Maybe ScriptNOfK) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scriptNOfK"
-> (Maybe ScriptNOfK -> f (Maybe ScriptNOfK))
-> NativeScript
-> f NativeScript
fieldOf Proxy# "maybe'scriptNOfK"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Maybe ScriptNOfK -> f (Maybe ScriptNOfK))
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Maybe ScriptNOfK -> f (Maybe ScriptNOfK))
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        ((Maybe NativeScript'NativeScript -> Maybe ScriptNOfK)
-> (Maybe NativeScript'NativeScript
    -> Maybe ScriptNOfK -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe ScriptNOfK)
     (Maybe ScriptNOfK)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe NativeScript'NativeScript
x__
              -> case Maybe NativeScript'NativeScript
x__ of
                   (Prelude.Just (NativeScript'ScriptNOfK ScriptNOfK
x__val))
                     -> ScriptNOfK -> Maybe ScriptNOfK
forall a. a -> Maybe a
Prelude.Just ScriptNOfK
x__val
                   Maybe NativeScript'NativeScript
_otherwise -> Maybe ScriptNOfK
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe NativeScript'NativeScript
_ Maybe ScriptNOfK
y__ -> (ScriptNOfK -> NativeScript'NativeScript)
-> Maybe ScriptNOfK -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ScriptNOfK -> NativeScript'NativeScript
NativeScript'ScriptNOfK Maybe ScriptNOfK
y__))
instance Data.ProtoLens.Field.HasField NativeScript "scriptNOfK" ScriptNOfK where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scriptNOfK"
-> (ScriptNOfK -> f ScriptNOfK) -> NativeScript -> f NativeScript
fieldOf Proxy# "scriptNOfK"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((ScriptNOfK -> f ScriptNOfK)
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (ScriptNOfK -> f ScriptNOfK)
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        (((Maybe ScriptNOfK -> f (Maybe ScriptNOfK))
 -> Maybe NativeScript'NativeScript
 -> f (Maybe NativeScript'NativeScript))
-> ((ScriptNOfK -> f ScriptNOfK)
    -> Maybe ScriptNOfK -> f (Maybe ScriptNOfK))
-> (ScriptNOfK -> f ScriptNOfK)
-> Maybe NativeScript'NativeScript
-> f (Maybe NativeScript'NativeScript)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe NativeScript'NativeScript -> Maybe ScriptNOfK)
-> (Maybe NativeScript'NativeScript
    -> Maybe ScriptNOfK -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe ScriptNOfK)
     (Maybe ScriptNOfK)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe NativeScript'NativeScript
x__
                 -> case Maybe NativeScript'NativeScript
x__ of
                      (Prelude.Just (NativeScript'ScriptNOfK ScriptNOfK
x__val))
                        -> ScriptNOfK -> Maybe ScriptNOfK
forall a. a -> Maybe a
Prelude.Just ScriptNOfK
x__val
                      Maybe NativeScript'NativeScript
_otherwise -> Maybe ScriptNOfK
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe NativeScript'NativeScript
_ Maybe ScriptNOfK
y__ -> (ScriptNOfK -> NativeScript'NativeScript)
-> Maybe ScriptNOfK -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ScriptNOfK -> NativeScript'NativeScript
NativeScript'ScriptNOfK Maybe ScriptNOfK
y__))
           (ScriptNOfK -> Lens' (Maybe ScriptNOfK) ScriptNOfK
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScriptNOfK
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidBefore" (Prelude.Maybe Data.Word.Word64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'invalidBefore"
-> (Maybe Word64 -> f (Maybe Word64))
-> NativeScript
-> f NativeScript
fieldOf Proxy# "maybe'invalidBefore"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Maybe Word64 -> f (Maybe Word64))
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Maybe Word64 -> f (Maybe Word64))
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        ((Maybe NativeScript'NativeScript -> Maybe Word64)
-> (Maybe NativeScript'NativeScript
    -> Maybe Word64 -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe NativeScript'NativeScript
x__
              -> case Maybe NativeScript'NativeScript
x__ of
                   (Prelude.Just (NativeScript'InvalidBefore Word64
x__val))
                     -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
x__val
                   Maybe NativeScript'NativeScript
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe NativeScript'NativeScript
_ Maybe Word64
y__ -> (Word64 -> NativeScript'NativeScript)
-> Maybe Word64 -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Word64 -> NativeScript'NativeScript
NativeScript'InvalidBefore Maybe Word64
y__))
instance Data.ProtoLens.Field.HasField NativeScript "invalidBefore" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "invalidBefore"
-> (Word64 -> f Word64) -> NativeScript -> f NativeScript
fieldOf Proxy# "invalidBefore"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Word64 -> f Word64)
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Word64 -> f Word64)
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        (((Maybe Word64 -> f (Maybe Word64))
 -> Maybe NativeScript'NativeScript
 -> f (Maybe NativeScript'NativeScript))
-> ((Word64 -> f Word64) -> Maybe Word64 -> f (Maybe Word64))
-> (Word64 -> f Word64)
-> Maybe NativeScript'NativeScript
-> f (Maybe NativeScript'NativeScript)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe NativeScript'NativeScript -> Maybe Word64)
-> (Maybe NativeScript'NativeScript
    -> Maybe Word64 -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe NativeScript'NativeScript
x__
                 -> case Maybe NativeScript'NativeScript
x__ of
                      (Prelude.Just (NativeScript'InvalidBefore Word64
x__val))
                        -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
x__val
                      Maybe NativeScript'NativeScript
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe NativeScript'NativeScript
_ Maybe Word64
y__ -> (Word64 -> NativeScript'NativeScript)
-> Maybe Word64 -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Word64 -> NativeScript'NativeScript
NativeScript'InvalidBefore Maybe Word64
y__))
           (Word64 -> Lens' (Maybe Word64) Word64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidHereafter" (Prelude.Maybe Data.Word.Word64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'invalidHereafter"
-> (Maybe Word64 -> f (Maybe Word64))
-> NativeScript
-> f NativeScript
fieldOf Proxy# "maybe'invalidHereafter"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Maybe Word64 -> f (Maybe Word64))
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Maybe Word64 -> f (Maybe Word64))
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        ((Maybe NativeScript'NativeScript -> Maybe Word64)
-> (Maybe NativeScript'NativeScript
    -> Maybe Word64 -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe NativeScript'NativeScript
x__
              -> case Maybe NativeScript'NativeScript
x__ of
                   (Prelude.Just (NativeScript'InvalidHereafter Word64
x__val))
                     -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
x__val
                   Maybe NativeScript'NativeScript
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe NativeScript'NativeScript
_ Maybe Word64
y__ -> (Word64 -> NativeScript'NativeScript)
-> Maybe Word64 -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Word64 -> NativeScript'NativeScript
NativeScript'InvalidHereafter Maybe Word64
y__))
instance Data.ProtoLens.Field.HasField NativeScript "invalidHereafter" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "invalidHereafter"
-> (Word64 -> f Word64) -> NativeScript -> f NativeScript
fieldOf Proxy# "invalidHereafter"
_
    = ((Maybe NativeScript'NativeScript
  -> f (Maybe NativeScript'NativeScript))
 -> NativeScript -> f NativeScript)
-> ((Word64 -> f Word64)
    -> Maybe NativeScript'NativeScript
    -> f (Maybe NativeScript'NativeScript))
-> (Word64 -> f Word64)
-> NativeScript
-> f NativeScript
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScript -> Maybe NativeScript'NativeScript)
-> (NativeScript
    -> Maybe NativeScript'NativeScript -> NativeScript)
-> Lens
     NativeScript
     NativeScript
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript
           (\ NativeScript
x__ Maybe NativeScript'NativeScript
y__ -> NativeScript
x__ {_NativeScript'nativeScript = y__}))
        (((Maybe Word64 -> f (Maybe Word64))
 -> Maybe NativeScript'NativeScript
 -> f (Maybe NativeScript'NativeScript))
-> ((Word64 -> f Word64) -> Maybe Word64 -> f (Maybe Word64))
-> (Word64 -> f Word64)
-> Maybe NativeScript'NativeScript
-> f (Maybe NativeScript'NativeScript)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe NativeScript'NativeScript -> Maybe Word64)
-> (Maybe NativeScript'NativeScript
    -> Maybe Word64 -> Maybe NativeScript'NativeScript)
-> Lens
     (Maybe NativeScript'NativeScript)
     (Maybe NativeScript'NativeScript)
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe NativeScript'NativeScript
x__
                 -> case Maybe NativeScript'NativeScript
x__ of
                      (Prelude.Just (NativeScript'InvalidHereafter Word64
x__val))
                        -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
x__val
                      Maybe NativeScript'NativeScript
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe NativeScript'NativeScript
_ Maybe Word64
y__ -> (Word64 -> NativeScript'NativeScript)
-> Maybe Word64 -> Maybe NativeScript'NativeScript
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Word64 -> NativeScript'NativeScript
NativeScript'InvalidHereafter Maybe Word64
y__))
           (Word64 -> Lens' (Maybe Word64) Word64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message NativeScript where
  messageName :: Proxy NativeScript -> Text
messageName Proxy NativeScript
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.NativeScript"
  packedMessageDescriptor :: Proxy NativeScript -> ByteString
packedMessageDescriptor Proxy NativeScript
_
    = ByteString
"\n\
      \\fNativeScript\DC2%\n\
      \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\
      \\n\
      \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\
      \\n\
      \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\
      \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\
      \scriptNOfK\DC2'\n\
      \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\
      \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\
      \\rnative_script"
  packedFileDescriptor :: Proxy NativeScript -> ByteString
packedFileDescriptor Proxy NativeScript
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NativeScript)
fieldsByTag
    = let
        scriptPubkey__field_descriptor :: FieldDescriptor NativeScript
scriptPubkey__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor NativeScript ByteString
-> FieldDescriptor NativeScript
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script_pubkey"
              (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' NativeScript (Maybe ByteString)
-> FieldAccessor NativeScript 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'scriptPubkey")) ::
              Data.ProtoLens.FieldDescriptor NativeScript
        scriptAll__field_descriptor :: FieldDescriptor NativeScript
scriptAll__field_descriptor
          = String
-> FieldTypeDescriptor NativeScriptList
-> FieldAccessor NativeScript NativeScriptList
-> FieldDescriptor NativeScript
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script_all"
              (MessageOrGroup -> FieldTypeDescriptor NativeScriptList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NativeScriptList)
              (Lens' NativeScript (Maybe NativeScriptList)
-> FieldAccessor NativeScript NativeScriptList
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'scriptAll")) ::
              Data.ProtoLens.FieldDescriptor NativeScript
        scriptAny__field_descriptor :: FieldDescriptor NativeScript
scriptAny__field_descriptor
          = String
-> FieldTypeDescriptor NativeScriptList
-> FieldAccessor NativeScript NativeScriptList
-> FieldDescriptor NativeScript
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script_any"
              (MessageOrGroup -> FieldTypeDescriptor NativeScriptList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NativeScriptList)
              (Lens' NativeScript (Maybe NativeScriptList)
-> FieldAccessor NativeScript NativeScriptList
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'scriptAny")) ::
              Data.ProtoLens.FieldDescriptor NativeScript
        scriptNOfK__field_descriptor :: FieldDescriptor NativeScript
scriptNOfK__field_descriptor
          = String
-> FieldTypeDescriptor ScriptNOfK
-> FieldAccessor NativeScript ScriptNOfK
-> FieldDescriptor NativeScript
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script_n_of_k"
              (MessageOrGroup -> FieldTypeDescriptor ScriptNOfK
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ScriptNOfK)
              (Lens' NativeScript (Maybe ScriptNOfK)
-> FieldAccessor NativeScript ScriptNOfK
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'scriptNOfK")) ::
              Data.ProtoLens.FieldDescriptor NativeScript
        invalidBefore__field_descriptor :: FieldDescriptor NativeScript
invalidBefore__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor NativeScript Word64
-> FieldDescriptor NativeScript
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"invalid_before"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (Lens' NativeScript (Maybe Word64)
-> FieldAccessor NativeScript Word64
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'invalidBefore")) ::
              Data.ProtoLens.FieldDescriptor NativeScript
        invalidHereafter__field_descriptor :: FieldDescriptor NativeScript
invalidHereafter__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor NativeScript Word64
-> FieldDescriptor NativeScript
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"invalid_hereafter"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (Lens' NativeScript (Maybe Word64)
-> FieldAccessor NativeScript Word64
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'invalidHereafter")) ::
              Data.ProtoLens.FieldDescriptor NativeScript
      in
        [(Tag, FieldDescriptor NativeScript)]
-> Map Tag (FieldDescriptor NativeScript)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NativeScript
scriptPubkey__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NativeScript
scriptAll__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NativeScript
scriptAny__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor NativeScript
scriptNOfK__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor NativeScript
invalidBefore__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor NativeScript
invalidHereafter__field_descriptor)]
  unknownFields :: Lens' NativeScript FieldSet
unknownFields
    = (NativeScript -> FieldSet)
-> (NativeScript -> FieldSet -> NativeScript)
-> Lens' NativeScript FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NativeScript -> FieldSet
_NativeScript'_unknownFields
        (\ NativeScript
x__ FieldSet
y__ -> NativeScript
x__ {_NativeScript'_unknownFields = y__})
  defMessage :: NativeScript
defMessage
    = NativeScript'_constructor
        {_NativeScript'nativeScript :: Maybe NativeScript'NativeScript
_NativeScript'nativeScript = Maybe NativeScript'NativeScript
forall a. Maybe a
Prelude.Nothing,
         _NativeScript'_unknownFields :: FieldSet
_NativeScript'_unknownFields = []}
  parseMessage :: Parser NativeScript
parseMessage
    = let
        loop ::
          NativeScript -> Data.ProtoLens.Encoding.Bytes.Parser NativeScript
        loop :: NativeScript -> Parser NativeScript
loop NativeScript
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      NativeScript -> Parser NativeScript
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter NativeScript NativeScript FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NativeScript -> NativeScript
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f NativeScript FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NativeScript FieldSet
Setter NativeScript NativeScript FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) NativeScript
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"script_pubkey"
                                NativeScript -> Parser NativeScript
loop
                                  (Setter NativeScript NativeScript ByteString ByteString
-> ByteString -> NativeScript -> NativeScript
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 @"scriptPubkey") ByteString
y NativeScript
x)
                        Word64
18
                          -> do NativeScriptList
y <- Parser NativeScriptList -> String -> Parser NativeScriptList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser NativeScriptList -> Parser NativeScriptList
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser NativeScriptList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"script_all"
                                NativeScript -> Parser NativeScript
loop
                                  (Setter NativeScript NativeScript NativeScriptList NativeScriptList
-> NativeScriptList -> NativeScript -> NativeScript
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 @"scriptAll") NativeScriptList
y NativeScript
x)
                        Word64
26
                          -> do NativeScriptList
y <- Parser NativeScriptList -> String -> Parser NativeScriptList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser NativeScriptList -> Parser NativeScriptList
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser NativeScriptList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"script_any"
                                NativeScript -> Parser NativeScript
loop
                                  (Setter NativeScript NativeScript NativeScriptList NativeScriptList
-> NativeScriptList -> NativeScript -> NativeScript
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 @"scriptAny") NativeScriptList
y NativeScript
x)
                        Word64
34
                          -> do ScriptNOfK
y <- Parser ScriptNOfK -> String -> Parser ScriptNOfK
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ScriptNOfK -> Parser ScriptNOfK
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ScriptNOfK
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"script_n_of_k"
                                NativeScript -> Parser NativeScript
loop
                                  (Setter NativeScript NativeScript ScriptNOfK ScriptNOfK
-> ScriptNOfK -> NativeScript -> NativeScript
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 @"scriptNOfK") ScriptNOfK
y NativeScript
x)
                        Word64
40
                          -> do Word64
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
"invalid_before"
                                NativeScript -> Parser NativeScript
loop
                                  (Setter NativeScript NativeScript Word64 Word64
-> Word64 -> NativeScript -> NativeScript
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 @"invalidBefore") Word64
y NativeScript
x)
                        Word64
48
                          -> do Word64
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
"invalid_hereafter"
                                NativeScript -> Parser NativeScript
loop
                                  (Setter NativeScript NativeScript Word64 Word64
-> Word64 -> NativeScript -> NativeScript
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 @"invalidHereafter") Word64
y NativeScript
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                NativeScript -> Parser NativeScript
loop
                                  (Setter NativeScript NativeScript FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NativeScript -> NativeScript
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f NativeScript FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NativeScript FieldSet
Setter NativeScript NativeScript FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NativeScript
x)
      in
        Parser NativeScript -> String -> Parser NativeScript
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do NativeScript -> Parser NativeScript
loop NativeScript
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NativeScript"
  buildMessage :: NativeScript -> Builder
buildMessage
    = \ NativeScript
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe NativeScript'NativeScript)
  NativeScript
  NativeScript
  (Maybe NativeScript'NativeScript)
  (Maybe NativeScript'NativeScript)
-> NativeScript -> Maybe NativeScript'NativeScript
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'nativeScript") NativeScript
_x
              of
                Maybe NativeScript'NativeScript
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (NativeScript'ScriptPubkey 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 (NativeScript'ScriptAll NativeScriptList
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (NativeScriptList -> ByteString) -> NativeScriptList -> 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))
                          NativeScriptList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NativeScriptList
v)
                (Prelude.Just (NativeScript'ScriptAny NativeScriptList
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (NativeScriptList -> ByteString) -> NativeScriptList -> 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))
                          NativeScriptList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NativeScriptList
v)
                (Prelude.Just (NativeScript'ScriptNOfK ScriptNOfK
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                       ((ByteString -> Builder)
-> (ScriptNOfK -> ByteString) -> ScriptNOfK -> 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))
                          ScriptNOfK -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScriptNOfK
v)
                (Prelude.Just (NativeScript'InvalidBefore Word64
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
40)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
v)
                (Prelude.Just (NativeScript'InvalidHereafter Word64
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet NativeScript NativeScript FieldSet FieldSet
-> NativeScript -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NativeScript NativeScript FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NativeScript FieldSet
Data.ProtoLens.unknownFields NativeScript
_x))
instance Control.DeepSeq.NFData NativeScript where
  rnf :: NativeScript -> ()
rnf
    = \ NativeScript
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NativeScript -> FieldSet
_NativeScript'_unknownFields NativeScript
x__)
             (Maybe NativeScript'NativeScript -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NativeScript -> Maybe NativeScript'NativeScript
_NativeScript'nativeScript NativeScript
x__) ())
instance Control.DeepSeq.NFData NativeScript'NativeScript where
  rnf :: NativeScript'NativeScript -> ()
rnf (NativeScript'ScriptPubkey ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (NativeScript'ScriptAll NativeScriptList
x__) = NativeScriptList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NativeScriptList
x__
  rnf (NativeScript'ScriptAny NativeScriptList
x__) = NativeScriptList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NativeScriptList
x__
  rnf (NativeScript'ScriptNOfK ScriptNOfK
x__) = ScriptNOfK -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ScriptNOfK
x__
  rnf (NativeScript'InvalidBefore Word64
x__) = Word64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Word64
x__
  rnf (NativeScript'InvalidHereafter Word64
x__) = Word64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Word64
x__
_NativeScript'ScriptPubkey ::
  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.ByteString.ByteString
_NativeScript'ScriptPubkey :: Prism' NativeScript'NativeScript ByteString
_NativeScript'ScriptPubkey
  = (ByteString -> NativeScript'NativeScript)
-> (NativeScript'NativeScript -> Maybe ByteString)
-> Prism' NativeScript'NativeScript ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> NativeScript'NativeScript
NativeScript'ScriptPubkey
      (\ NativeScript'NativeScript
p__
         -> case NativeScript'NativeScript
p__ of
              (NativeScript'ScriptPubkey ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              NativeScript'NativeScript
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_NativeScript'ScriptAll ::
  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList
_NativeScript'ScriptAll :: Prism' NativeScript'NativeScript NativeScriptList
_NativeScript'ScriptAll
  = (NativeScriptList -> NativeScript'NativeScript)
-> (NativeScript'NativeScript -> Maybe NativeScriptList)
-> Prism' NativeScript'NativeScript NativeScriptList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      NativeScriptList -> NativeScript'NativeScript
NativeScript'ScriptAll
      (\ NativeScript'NativeScript
p__
         -> case NativeScript'NativeScript
p__ of
              (NativeScript'ScriptAll NativeScriptList
p__val) -> NativeScriptList -> Maybe NativeScriptList
forall a. a -> Maybe a
Prelude.Just NativeScriptList
p__val
              NativeScript'NativeScript
_otherwise -> Maybe NativeScriptList
forall a. Maybe a
Prelude.Nothing)
_NativeScript'ScriptAny ::
  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList
_NativeScript'ScriptAny :: Prism' NativeScript'NativeScript NativeScriptList
_NativeScript'ScriptAny
  = (NativeScriptList -> NativeScript'NativeScript)
-> (NativeScript'NativeScript -> Maybe NativeScriptList)
-> Prism' NativeScript'NativeScript NativeScriptList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      NativeScriptList -> NativeScript'NativeScript
NativeScript'ScriptAny
      (\ NativeScript'NativeScript
p__
         -> case NativeScript'NativeScript
p__ of
              (NativeScript'ScriptAny NativeScriptList
p__val) -> NativeScriptList -> Maybe NativeScriptList
forall a. a -> Maybe a
Prelude.Just NativeScriptList
p__val
              NativeScript'NativeScript
_otherwise -> Maybe NativeScriptList
forall a. Maybe a
Prelude.Nothing)
_NativeScript'ScriptNOfK ::
  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript ScriptNOfK
_NativeScript'ScriptNOfK :: Prism' NativeScript'NativeScript ScriptNOfK
_NativeScript'ScriptNOfK
  = (ScriptNOfK -> NativeScript'NativeScript)
-> (NativeScript'NativeScript -> Maybe ScriptNOfK)
-> Prism' NativeScript'NativeScript ScriptNOfK
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ScriptNOfK -> NativeScript'NativeScript
NativeScript'ScriptNOfK
      (\ NativeScript'NativeScript
p__
         -> case NativeScript'NativeScript
p__ of
              (NativeScript'ScriptNOfK ScriptNOfK
p__val) -> ScriptNOfK -> Maybe ScriptNOfK
forall a. a -> Maybe a
Prelude.Just ScriptNOfK
p__val
              NativeScript'NativeScript
_otherwise -> Maybe ScriptNOfK
forall a. Maybe a
Prelude.Nothing)
_NativeScript'InvalidBefore ::
  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64
_NativeScript'InvalidBefore :: Prism' NativeScript'NativeScript Word64
_NativeScript'InvalidBefore
  = (Word64 -> NativeScript'NativeScript)
-> (NativeScript'NativeScript -> Maybe Word64)
-> Prism' NativeScript'NativeScript Word64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Word64 -> NativeScript'NativeScript
NativeScript'InvalidBefore
      (\ NativeScript'NativeScript
p__
         -> case NativeScript'NativeScript
p__ of
              (NativeScript'InvalidBefore Word64
p__val) -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
p__val
              NativeScript'NativeScript
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
_NativeScript'InvalidHereafter ::
  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64
_NativeScript'InvalidHereafter :: Prism' NativeScript'NativeScript Word64
_NativeScript'InvalidHereafter
  = (Word64 -> NativeScript'NativeScript)
-> (NativeScript'NativeScript -> Maybe Word64)
-> Prism' NativeScript'NativeScript Word64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Word64 -> NativeScript'NativeScript
NativeScript'InvalidHereafter
      (\ NativeScript'NativeScript
p__
         -> case NativeScript'NativeScript
p__ of
              (NativeScript'InvalidHereafter Word64
p__val) -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
p__val
              NativeScript'NativeScript
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' NativeScriptList [NativeScript]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' NativeScriptList (Data.Vector.Vector NativeScript)@ -}
data NativeScriptList
  = NativeScriptList'_constructor {NativeScriptList -> Vector NativeScript
_NativeScriptList'items :: !(Data.Vector.Vector NativeScript),
                                   NativeScriptList -> FieldSet
_NativeScriptList'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (NativeScriptList -> NativeScriptList -> Bool
(NativeScriptList -> NativeScriptList -> Bool)
-> (NativeScriptList -> NativeScriptList -> Bool)
-> Eq NativeScriptList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NativeScriptList -> NativeScriptList -> Bool
== :: NativeScriptList -> NativeScriptList -> Bool
$c/= :: NativeScriptList -> NativeScriptList -> Bool
/= :: NativeScriptList -> NativeScriptList -> Bool
Prelude.Eq, Eq NativeScriptList
Eq NativeScriptList =>
(NativeScriptList -> NativeScriptList -> Ordering)
-> (NativeScriptList -> NativeScriptList -> Bool)
-> (NativeScriptList -> NativeScriptList -> Bool)
-> (NativeScriptList -> NativeScriptList -> Bool)
-> (NativeScriptList -> NativeScriptList -> Bool)
-> (NativeScriptList -> NativeScriptList -> NativeScriptList)
-> (NativeScriptList -> NativeScriptList -> NativeScriptList)
-> Ord NativeScriptList
NativeScriptList -> NativeScriptList -> Bool
NativeScriptList -> NativeScriptList -> Ordering
NativeScriptList -> NativeScriptList -> NativeScriptList
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 :: NativeScriptList -> NativeScriptList -> Ordering
compare :: NativeScriptList -> NativeScriptList -> Ordering
$c< :: NativeScriptList -> NativeScriptList -> Bool
< :: NativeScriptList -> NativeScriptList -> Bool
$c<= :: NativeScriptList -> NativeScriptList -> Bool
<= :: NativeScriptList -> NativeScriptList -> Bool
$c> :: NativeScriptList -> NativeScriptList -> Bool
> :: NativeScriptList -> NativeScriptList -> Bool
$c>= :: NativeScriptList -> NativeScriptList -> Bool
>= :: NativeScriptList -> NativeScriptList -> Bool
$cmax :: NativeScriptList -> NativeScriptList -> NativeScriptList
max :: NativeScriptList -> NativeScriptList -> NativeScriptList
$cmin :: NativeScriptList -> NativeScriptList -> NativeScriptList
min :: NativeScriptList -> NativeScriptList -> NativeScriptList
Prelude.Ord)
instance Prelude.Show NativeScriptList where
  showsPrec :: Int -> NativeScriptList -> ShowS
showsPrec Int
_ NativeScriptList
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (NativeScriptList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NativeScriptList
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NativeScriptList "items" [NativeScript] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "items"
-> ([NativeScript] -> f [NativeScript])
-> NativeScriptList
-> f NativeScriptList
fieldOf Proxy# "items"
_
    = ((Vector NativeScript -> f (Vector NativeScript))
 -> NativeScriptList -> f NativeScriptList)
-> (([NativeScript] -> f [NativeScript])
    -> Vector NativeScript -> f (Vector NativeScript))
-> ([NativeScript] -> f [NativeScript])
-> NativeScriptList
-> f NativeScriptList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScriptList -> Vector NativeScript)
-> (NativeScriptList -> Vector NativeScript -> NativeScriptList)
-> Lens
     NativeScriptList
     NativeScriptList
     (Vector NativeScript)
     (Vector NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScriptList -> Vector NativeScript
_NativeScriptList'items
           (\ NativeScriptList
x__ Vector NativeScript
y__ -> NativeScriptList
x__ {_NativeScriptList'items = y__}))
        ((Vector NativeScript -> [NativeScript])
-> (Vector NativeScript -> [NativeScript] -> Vector NativeScript)
-> Lens
     (Vector NativeScript)
     (Vector NativeScript)
     [NativeScript]
     [NativeScript]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector NativeScript -> [NativeScript]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector NativeScript
_ [NativeScript]
y__ -> [NativeScript] -> Vector NativeScript
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NativeScript]
y__))
instance Data.ProtoLens.Field.HasField NativeScriptList "vec'items" (Data.Vector.Vector NativeScript) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'items"
-> (Vector NativeScript -> f (Vector NativeScript))
-> NativeScriptList
-> f NativeScriptList
fieldOf Proxy# "vec'items"
_
    = ((Vector NativeScript -> f (Vector NativeScript))
 -> NativeScriptList -> f NativeScriptList)
-> ((Vector NativeScript -> f (Vector NativeScript))
    -> Vector NativeScript -> f (Vector NativeScript))
-> (Vector NativeScript -> f (Vector NativeScript))
-> NativeScriptList
-> f NativeScriptList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((NativeScriptList -> Vector NativeScript)
-> (NativeScriptList -> Vector NativeScript -> NativeScriptList)
-> Lens
     NativeScriptList
     NativeScriptList
     (Vector NativeScript)
     (Vector NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           NativeScriptList -> Vector NativeScript
_NativeScriptList'items
           (\ NativeScriptList
x__ Vector NativeScript
y__ -> NativeScriptList
x__ {_NativeScriptList'items = y__}))
        (Vector NativeScript -> f (Vector NativeScript))
-> Vector NativeScript -> f (Vector NativeScript)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NativeScriptList where
  messageName :: Proxy NativeScriptList -> Text
messageName Proxy NativeScriptList
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.NativeScriptList"
  packedMessageDescriptor :: Proxy NativeScriptList -> ByteString
packedMessageDescriptor Proxy NativeScriptList
_
    = ByteString
"\n\
      \\DLENativeScriptList\DC2;\n\
      \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems"
  packedFileDescriptor :: Proxy NativeScriptList -> ByteString
packedFileDescriptor Proxy NativeScriptList
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor NativeScriptList)
fieldsByTag
    = let
        items__field_descriptor :: FieldDescriptor NativeScriptList
items__field_descriptor
          = String
-> FieldTypeDescriptor NativeScript
-> FieldAccessor NativeScriptList NativeScript
-> FieldDescriptor NativeScriptList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"items"
              (MessageOrGroup -> FieldTypeDescriptor NativeScript
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NativeScript)
              (Packing
-> Lens' NativeScriptList [NativeScript]
-> FieldAccessor NativeScriptList NativeScript
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 @"items")) ::
              Data.ProtoLens.FieldDescriptor NativeScriptList
      in
        [(Tag, FieldDescriptor NativeScriptList)]
-> Map Tag (FieldDescriptor NativeScriptList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NativeScriptList
items__field_descriptor)]
  unknownFields :: Lens' NativeScriptList FieldSet
unknownFields
    = (NativeScriptList -> FieldSet)
-> (NativeScriptList -> FieldSet -> NativeScriptList)
-> Lens' NativeScriptList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        NativeScriptList -> FieldSet
_NativeScriptList'_unknownFields
        (\ NativeScriptList
x__ FieldSet
y__ -> NativeScriptList
x__ {_NativeScriptList'_unknownFields = y__})
  defMessage :: NativeScriptList
defMessage
    = NativeScriptList'_constructor
        {_NativeScriptList'items :: Vector NativeScript
_NativeScriptList'items = Vector NativeScript
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _NativeScriptList'_unknownFields :: FieldSet
_NativeScriptList'_unknownFields = []}
  parseMessage :: Parser NativeScriptList
parseMessage
    = let
        loop ::
          NativeScriptList
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript
             -> Data.ProtoLens.Encoding.Bytes.Parser NativeScriptList
        loop :: NativeScriptList
-> Growing Vector RealWorld NativeScript -> Parser NativeScriptList
loop NativeScriptList
x Growing Vector RealWorld NativeScript
mutable'items
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector NativeScript
frozen'items <- IO (Vector NativeScript) -> Parser (Vector NativeScript)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) NativeScript
-> IO (Vector NativeScript)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld NativeScript
Growing Vector (PrimState IO) NativeScript
mutable'items)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      NativeScriptList -> Parser NativeScriptList
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter NativeScriptList NativeScriptList FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NativeScriptList -> NativeScriptList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f NativeScriptList FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NativeScriptList FieldSet
Setter NativeScriptList NativeScriptList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  NativeScriptList
  NativeScriptList
  (Vector NativeScript)
  (Vector NativeScript)
-> Vector NativeScript -> NativeScriptList -> NativeScriptList
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 @"vec'items") Vector NativeScript
frozen'items NativeScriptList
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !NativeScript
y <- Parser NativeScript -> String -> Parser NativeScript
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser NativeScript -> Parser NativeScript
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser NativeScript
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"items"
                                Growing Vector RealWorld NativeScript
v <- IO (Growing Vector RealWorld NativeScript)
-> Parser (Growing Vector RealWorld NativeScript)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) NativeScript
-> NativeScript -> IO (Growing Vector (PrimState IO) NativeScript)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld NativeScript
Growing Vector (PrimState IO) NativeScript
mutable'items NativeScript
y)
                                NativeScriptList
-> Growing Vector RealWorld NativeScript -> Parser NativeScriptList
loop NativeScriptList
x Growing Vector RealWorld NativeScript
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                NativeScriptList
-> Growing Vector RealWorld NativeScript -> Parser NativeScriptList
loop
                                  (Setter NativeScriptList NativeScriptList FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NativeScriptList -> NativeScriptList
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f NativeScriptList FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NativeScriptList FieldSet
Setter NativeScriptList NativeScriptList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NativeScriptList
x)
                                  Growing Vector RealWorld NativeScript
mutable'items
      in
        Parser NativeScriptList -> String -> Parser NativeScriptList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld NativeScript
mutable'items <- IO (Growing Vector RealWorld NativeScript)
-> Parser (Growing Vector RealWorld NativeScript)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld NativeScript)
IO (Growing Vector (PrimState IO) NativeScript)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              NativeScriptList
-> Growing Vector RealWorld NativeScript -> Parser NativeScriptList
loop NativeScriptList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld NativeScript
mutable'items)
          String
"NativeScriptList"
  buildMessage :: NativeScriptList -> Builder
buildMessage
    = \ NativeScriptList
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((NativeScript -> Builder) -> Vector NativeScript -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ NativeScript
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (NativeScript -> ByteString) -> NativeScript -> 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))
                           NativeScript -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NativeScript
_v))
                (FoldLike
  (Vector NativeScript)
  NativeScriptList
  NativeScriptList
  (Vector NativeScript)
  (Vector NativeScript)
-> NativeScriptList -> Vector NativeScript
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'items") NativeScriptList
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet NativeScriptList NativeScriptList FieldSet FieldSet
-> NativeScriptList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet NativeScriptList NativeScriptList FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NativeScriptList FieldSet
Data.ProtoLens.unknownFields NativeScriptList
_x))
instance Control.DeepSeq.NFData NativeScriptList where
  rnf :: NativeScriptList -> ()
rnf
    = \ NativeScriptList
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (NativeScriptList -> FieldSet
_NativeScriptList'_unknownFields NativeScriptList
x__)
             (Vector NativeScript -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NativeScriptList -> Vector NativeScript
_NativeScriptList'items NativeScriptList
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coinsPerUtxoByte' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxTxSize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeCoefficient' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeConstant' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockBodySize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockHeaderSize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeKeyDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRetirementEpochBound' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.desiredNumberOfPools' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolInfluence' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolInfluence' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.monetaryExpansion' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'monetaryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.treasuryExpansion' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'treasuryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minPoolCost' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.protocolVersion' @:: Lens' PParams ProtocolVersion@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'protocolVersion' @:: Lens' PParams (Prelude.Maybe ProtocolVersion)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxValueSize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateralPercentage' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxCollateralInputs' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.costModels' @:: Lens' PParams CostModels@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'costModels' @:: Lens' PParams (Prelude.Maybe CostModels)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.prices' @:: Lens' PParams ExPrices@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'prices' @:: Lens' PParams (Prelude.Maybe ExPrices)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerTransaction' @:: Lens' PParams ExUnits@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerTransaction' @:: Lens' PParams (Prelude.Maybe ExUnits)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerBlock' @:: Lens' PParams ExUnits@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerBlock' @:: Lens' PParams (Prelude.Maybe ExUnits)@ -}
data PParams
  = PParams'_constructor {PParams -> Word64
_PParams'coinsPerUtxoByte :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxTxSize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'minFeeCoefficient :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'minFeeConstant :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxBlockBodySize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxBlockHeaderSize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'stakeKeyDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'poolDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'poolRetirementEpochBound :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'desiredNumberOfPools :: !Data.Word.Word64,
                          PParams -> Maybe RationalNumber
_PParams'poolInfluence :: !(Prelude.Maybe RationalNumber),
                          PParams -> Maybe RationalNumber
_PParams'monetaryExpansion :: !(Prelude.Maybe RationalNumber),
                          PParams -> Maybe RationalNumber
_PParams'treasuryExpansion :: !(Prelude.Maybe RationalNumber),
                          PParams -> Word64
_PParams'minPoolCost :: !Data.Word.Word64,
                          PParams -> Maybe ProtocolVersion
_PParams'protocolVersion :: !(Prelude.Maybe ProtocolVersion),
                          PParams -> Word64
_PParams'maxValueSize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'collateralPercentage :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxCollateralInputs :: !Data.Word.Word64,
                          PParams -> Maybe CostModels
_PParams'costModels :: !(Prelude.Maybe CostModels),
                          PParams -> Maybe ExPrices
_PParams'prices :: !(Prelude.Maybe ExPrices),
                          PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction :: !(Prelude.Maybe ExUnits),
                          PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock :: !(Prelude.Maybe ExUnits),
                          PParams -> FieldSet
_PParams'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PParams -> PParams -> Bool
(PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool) -> Eq PParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PParams -> PParams -> Bool
== :: PParams -> PParams -> Bool
$c/= :: PParams -> PParams -> Bool
/= :: PParams -> PParams -> Bool
Prelude.Eq, Eq PParams
Eq PParams =>
(PParams -> PParams -> Ordering)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> PParams)
-> (PParams -> PParams -> PParams)
-> Ord PParams
PParams -> PParams -> Bool
PParams -> PParams -> Ordering
PParams -> PParams -> PParams
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 :: PParams -> PParams -> Ordering
compare :: PParams -> PParams -> Ordering
$c< :: PParams -> PParams -> Bool
< :: PParams -> PParams -> Bool
$c<= :: PParams -> PParams -> Bool
<= :: PParams -> PParams -> Bool
$c> :: PParams -> PParams -> Bool
> :: PParams -> PParams -> Bool
$c>= :: PParams -> PParams -> Bool
>= :: PParams -> PParams -> Bool
$cmax :: PParams -> PParams -> PParams
max :: PParams -> PParams -> PParams
$cmin :: PParams -> PParams -> PParams
min :: PParams -> PParams -> PParams
Prelude.Ord)
instance Prelude.Show PParams where
  showsPrec :: Int -> PParams -> ShowS
showsPrec Int
_ PParams
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PParams -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PParams
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PParams "coinsPerUtxoByte" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "coinsPerUtxoByte"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "coinsPerUtxoByte"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'coinsPerUtxoByte
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'coinsPerUtxoByte = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxTxSize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxTxSize" -> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxTxSize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxTxSize (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxTxSize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minFeeCoefficient" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minFeeCoefficient"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "minFeeCoefficient"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'minFeeCoefficient
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'minFeeCoefficient = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minFeeConstant" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minFeeConstant"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "minFeeConstant"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'minFeeConstant
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'minFeeConstant = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxBlockBodySize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxBlockBodySize"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxBlockBodySize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxBlockBodySize
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxBlockBodySize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxBlockHeaderSize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxBlockHeaderSize"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxBlockHeaderSize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxBlockHeaderSize
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxBlockHeaderSize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "stakeKeyDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeKeyDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "stakeKeyDeposit"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'stakeKeyDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'stakeKeyDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "poolDeposit"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'poolDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'poolDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolRetirementEpochBound" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolRetirementEpochBound"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "poolRetirementEpochBound"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'poolRetirementEpochBound
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'poolRetirementEpochBound = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "desiredNumberOfPools" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "desiredNumberOfPools"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "desiredNumberOfPools"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'desiredNumberOfPools
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'desiredNumberOfPools = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolInfluence" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolInfluence"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "poolInfluence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'poolInfluence
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'poolInfluence = 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 PParams "maybe'poolInfluence" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolInfluence"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'poolInfluence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'poolInfluence
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'poolInfluence = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "monetaryExpansion" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "monetaryExpansion"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "monetaryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'monetaryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'monetaryExpansion = 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 PParams "maybe'monetaryExpansion" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'monetaryExpansion"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'monetaryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'monetaryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'monetaryExpansion = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "treasuryExpansion" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "treasuryExpansion"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "treasuryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'treasuryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'treasuryExpansion = 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 PParams "maybe'treasuryExpansion" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'treasuryExpansion"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'treasuryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'treasuryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'treasuryExpansion = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minPoolCost" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minPoolCost"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "minPoolCost"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'minPoolCost
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'minPoolCost = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "protocolVersion" ProtocolVersion where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "protocolVersion"
-> (ProtocolVersion -> f ProtocolVersion) -> PParams -> f PParams
fieldOf Proxy# "protocolVersion"
_
    = ((Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
 -> PParams -> f PParams)
-> ((ProtocolVersion -> f ProtocolVersion)
    -> Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> (ProtocolVersion -> f ProtocolVersion)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ProtocolVersion)
-> (PParams -> Maybe ProtocolVersion -> PParams)
-> Lens
     PParams PParams (Maybe ProtocolVersion) (Maybe ProtocolVersion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ProtocolVersion
_PParams'protocolVersion
           (\ PParams
x__ Maybe ProtocolVersion
y__ -> PParams
x__ {_PParams'protocolVersion = y__}))
        (ProtocolVersion -> Lens' (Maybe ProtocolVersion) ProtocolVersion
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ProtocolVersion
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'protocolVersion" (Prelude.Maybe ProtocolVersion) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'protocolVersion"
-> (Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'protocolVersion"
_
    = ((Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
 -> PParams -> f PParams)
-> ((Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
    -> Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> (Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ProtocolVersion)
-> (PParams -> Maybe ProtocolVersion -> PParams)
-> Lens
     PParams PParams (Maybe ProtocolVersion) (Maybe ProtocolVersion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ProtocolVersion
_PParams'protocolVersion
           (\ PParams
x__ Maybe ProtocolVersion
y__ -> PParams
x__ {_PParams'protocolVersion = y__}))
        (Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> Maybe ProtocolVersion -> f (Maybe ProtocolVersion)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxValueSize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxValueSize"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxValueSize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxValueSize
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxValueSize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "collateralPercentage" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "collateralPercentage"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "collateralPercentage"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'collateralPercentage
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'collateralPercentage = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxCollateralInputs" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxCollateralInputs"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxCollateralInputs"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxCollateralInputs
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxCollateralInputs = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "costModels" CostModels where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "costModels"
-> (CostModels -> f CostModels) -> PParams -> f PParams
fieldOf Proxy# "costModels"
_
    = ((Maybe CostModels -> f (Maybe CostModels))
 -> PParams -> f PParams)
-> ((CostModels -> f CostModels)
    -> Maybe CostModels -> f (Maybe CostModels))
-> (CostModels -> f CostModels)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe CostModels)
-> (PParams -> Maybe CostModels -> PParams)
-> Lens PParams PParams (Maybe CostModels) (Maybe CostModels)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe CostModels
_PParams'costModels (\ PParams
x__ Maybe CostModels
y__ -> PParams
x__ {_PParams'costModels = y__}))
        (CostModels -> Lens' (Maybe CostModels) CostModels
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModels
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'costModels" (Prelude.Maybe CostModels) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'costModels"
-> (Maybe CostModels -> f (Maybe CostModels))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'costModels"
_
    = ((Maybe CostModels -> f (Maybe CostModels))
 -> PParams -> f PParams)
-> ((Maybe CostModels -> f (Maybe CostModels))
    -> Maybe CostModels -> f (Maybe CostModels))
-> (Maybe CostModels -> f (Maybe CostModels))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe CostModels)
-> (PParams -> Maybe CostModels -> PParams)
-> Lens PParams PParams (Maybe CostModels) (Maybe CostModels)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe CostModels
_PParams'costModels (\ PParams
x__ Maybe CostModels
y__ -> PParams
x__ {_PParams'costModels = y__}))
        (Maybe CostModels -> f (Maybe CostModels))
-> Maybe CostModels -> f (Maybe CostModels)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "prices" ExPrices where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prices" -> (ExPrices -> f ExPrices) -> PParams -> f PParams
fieldOf Proxy# "prices"
_
    = ((Maybe ExPrices -> f (Maybe ExPrices)) -> PParams -> f PParams)
-> ((ExPrices -> f ExPrices)
    -> Maybe ExPrices -> f (Maybe ExPrices))
-> (ExPrices -> f ExPrices)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExPrices)
-> (PParams -> Maybe ExPrices -> PParams)
-> Lens PParams PParams (Maybe ExPrices) (Maybe ExPrices)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExPrices
_PParams'prices (\ PParams
x__ Maybe ExPrices
y__ -> PParams
x__ {_PParams'prices = y__}))
        (ExPrices -> Lens' (Maybe ExPrices) ExPrices
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExPrices
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'prices" (Prelude.Maybe ExPrices) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'prices"
-> (Maybe ExPrices -> f (Maybe ExPrices)) -> PParams -> f PParams
fieldOf Proxy# "maybe'prices"
_
    = ((Maybe ExPrices -> f (Maybe ExPrices)) -> PParams -> f PParams)
-> ((Maybe ExPrices -> f (Maybe ExPrices))
    -> Maybe ExPrices -> f (Maybe ExPrices))
-> (Maybe ExPrices -> f (Maybe ExPrices))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExPrices)
-> (PParams -> Maybe ExPrices -> PParams)
-> Lens PParams PParams (Maybe ExPrices) (Maybe ExPrices)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExPrices
_PParams'prices (\ PParams
x__ Maybe ExPrices
y__ -> PParams
x__ {_PParams'prices = y__}))
        (Maybe ExPrices -> f (Maybe ExPrices))
-> Maybe ExPrices -> f (Maybe ExPrices)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerTransaction" ExUnits where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxExecutionUnitsPerTransaction"
-> (ExUnits -> f ExUnits) -> PParams -> f PParams
fieldOf Proxy# "maxExecutionUnitsPerTransaction"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((ExUnits -> f ExUnits) -> Maybe ExUnits -> f (Maybe ExUnits))
-> (ExUnits -> f ExUnits)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction
           (\ PParams
x__ Maybe ExUnits
y__
              -> PParams
x__ {_PParams'maxExecutionUnitsPerTransaction = y__}))
        (ExUnits -> Lens' (Maybe ExUnits) ExUnits
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExUnits
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerTransaction" (Prelude.Maybe ExUnits) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'maxExecutionUnitsPerTransaction"
-> (Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams
fieldOf Proxy# "maybe'maxExecutionUnitsPerTransaction"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((Maybe ExUnits -> f (Maybe ExUnits))
    -> Maybe ExUnits -> f (Maybe ExUnits))
-> (Maybe ExUnits -> f (Maybe ExUnits))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction
           (\ PParams
x__ Maybe ExUnits
y__
              -> PParams
x__ {_PParams'maxExecutionUnitsPerTransaction = y__}))
        (Maybe ExUnits -> f (Maybe ExUnits))
-> Maybe ExUnits -> f (Maybe ExUnits)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerBlock" ExUnits where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxExecutionUnitsPerBlock"
-> (ExUnits -> f ExUnits) -> PParams -> f PParams
fieldOf Proxy# "maxExecutionUnitsPerBlock"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((ExUnits -> f ExUnits) -> Maybe ExUnits -> f (Maybe ExUnits))
-> (ExUnits -> f ExUnits)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock
           (\ PParams
x__ Maybe ExUnits
y__ -> PParams
x__ {_PParams'maxExecutionUnitsPerBlock = y__}))
        (ExUnits -> Lens' (Maybe ExUnits) ExUnits
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExUnits
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerBlock" (Prelude.Maybe ExUnits) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'maxExecutionUnitsPerBlock"
-> (Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams
fieldOf Proxy# "maybe'maxExecutionUnitsPerBlock"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((Maybe ExUnits -> f (Maybe ExUnits))
    -> Maybe ExUnits -> f (Maybe ExUnits))
-> (Maybe ExUnits -> f (Maybe ExUnits))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock
           (\ PParams
x__ Maybe ExUnits
y__ -> PParams
x__ {_PParams'maxExecutionUnitsPerBlock = y__}))
        (Maybe ExUnits -> f (Maybe ExUnits))
-> Maybe ExUnits -> f (Maybe ExUnits)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PParams where
  messageName :: Proxy PParams -> Text
messageName Proxy PParams
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PParams"
  packedMessageDescriptor :: Proxy PParams -> ByteString
packedMessageDescriptor Proxy PParams
_
    = ByteString
"\n\
      \\aPParams\DC2-\n\
      \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByte\DC2\RS\n\
      \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2.\n\
      \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficient\DC2(\n\
      \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstant\DC2-\n\
      \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\
      \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2*\n\
      \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDeposit\DC2!\n\
      \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDeposit\DC2=\n\
      \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\
      \\ETBdesired_number_of_pools\CAN\n\
      \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\
      \\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\
      \\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\
      \\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2\"\n\
      \\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCost\DC2S\n\
      \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2$\n\
      \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSize\DC23\n\
      \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentage\DC22\n\
      \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputs\DC2D\n\
      \\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\
      \costModels\DC29\n\
      \\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\
      \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\
      \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock"
  packedFileDescriptor :: Proxy PParams -> ByteString
packedFileDescriptor Proxy PParams
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PParams)
fieldsByTag
    = let
        coinsPerUtxoByte__field_descriptor :: FieldDescriptor PParams
coinsPerUtxoByte__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"coins_per_utxo_byte"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"coinsPerUtxoByte")) ::
              Data.ProtoLens.FieldDescriptor PParams
        maxTxSize__field_descriptor :: FieldDescriptor PParams
maxTxSize__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_tx_size"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"maxTxSize")) ::
              Data.ProtoLens.FieldDescriptor PParams
        minFeeCoefficient__field_descriptor :: FieldDescriptor PParams
minFeeCoefficient__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"min_fee_coefficient"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"minFeeCoefficient")) ::
              Data.ProtoLens.FieldDescriptor PParams
        minFeeConstant__field_descriptor :: FieldDescriptor PParams
minFeeConstant__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"min_fee_constant"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"minFeeConstant")) ::
              Data.ProtoLens.FieldDescriptor PParams
        maxBlockBodySize__field_descriptor :: FieldDescriptor PParams
maxBlockBodySize__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_block_body_size"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"maxBlockBodySize")) ::
              Data.ProtoLens.FieldDescriptor PParams
        maxBlockHeaderSize__field_descriptor :: FieldDescriptor PParams
maxBlockHeaderSize__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_block_header_size"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"maxBlockHeaderSize")) ::
              Data.ProtoLens.FieldDescriptor PParams
        stakeKeyDeposit__field_descriptor :: FieldDescriptor PParams
stakeKeyDeposit__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_key_deposit"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"stakeKeyDeposit")) ::
              Data.ProtoLens.FieldDescriptor PParams
        poolDeposit__field_descriptor :: FieldDescriptor PParams
poolDeposit__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_deposit"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"poolDeposit")) ::
              Data.ProtoLens.FieldDescriptor PParams
        poolRetirementEpochBound__field_descriptor :: FieldDescriptor PParams
poolRetirementEpochBound__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_retirement_epoch_bound"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"poolRetirementEpochBound")) ::
              Data.ProtoLens.FieldDescriptor PParams
        desiredNumberOfPools__field_descriptor :: FieldDescriptor PParams
desiredNumberOfPools__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"desired_number_of_pools"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"desiredNumberOfPools")) ::
              Data.ProtoLens.FieldDescriptor PParams
        poolInfluence__field_descriptor :: FieldDescriptor PParams
poolInfluence__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor PParams RationalNumber
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_influence"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor PParams 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'poolInfluence")) ::
              Data.ProtoLens.FieldDescriptor PParams
        monetaryExpansion__field_descriptor :: FieldDescriptor PParams
monetaryExpansion__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor PParams RationalNumber
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"monetary_expansion"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor PParams 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'monetaryExpansion")) ::
              Data.ProtoLens.FieldDescriptor PParams
        treasuryExpansion__field_descriptor :: FieldDescriptor PParams
treasuryExpansion__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor PParams RationalNumber
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"treasury_expansion"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor PParams 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'treasuryExpansion")) ::
              Data.ProtoLens.FieldDescriptor PParams
        minPoolCost__field_descriptor :: FieldDescriptor PParams
minPoolCost__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"min_pool_cost"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"minPoolCost")) ::
              Data.ProtoLens.FieldDescriptor PParams
        protocolVersion__field_descriptor :: FieldDescriptor PParams
protocolVersion__field_descriptor
          = String
-> FieldTypeDescriptor ProtocolVersion
-> FieldAccessor PParams ProtocolVersion
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"protocol_version"
              (MessageOrGroup -> FieldTypeDescriptor ProtocolVersion
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ProtocolVersion)
              (Lens
  PParams PParams (Maybe ProtocolVersion) (Maybe ProtocolVersion)
-> FieldAccessor PParams ProtocolVersion
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'protocolVersion")) ::
              Data.ProtoLens.FieldDescriptor PParams
        maxValueSize__field_descriptor :: FieldDescriptor PParams
maxValueSize__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_value_size"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"maxValueSize")) ::
              Data.ProtoLens.FieldDescriptor PParams
        collateralPercentage__field_descriptor :: FieldDescriptor PParams
collateralPercentage__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"collateral_percentage"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"collateralPercentage")) ::
              Data.ProtoLens.FieldDescriptor PParams
        maxCollateralInputs__field_descriptor :: FieldDescriptor PParams
maxCollateralInputs__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PParams Word64
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_collateral_inputs"
              (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 PParams PParams Word64 Word64
-> FieldAccessor PParams 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 @"maxCollateralInputs")) ::
              Data.ProtoLens.FieldDescriptor PParams
        costModels__field_descriptor :: FieldDescriptor PParams
costModels__field_descriptor
          = String
-> FieldTypeDescriptor CostModels
-> FieldAccessor PParams CostModels
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cost_models"
              (MessageOrGroup -> FieldTypeDescriptor CostModels
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModels)
              (Lens PParams PParams (Maybe CostModels) (Maybe CostModels)
-> FieldAccessor PParams CostModels
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'costModels")) ::
              Data.ProtoLens.FieldDescriptor PParams
        prices__field_descriptor :: FieldDescriptor PParams
prices__field_descriptor
          = String
-> FieldTypeDescriptor ExPrices
-> FieldAccessor PParams ExPrices
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"prices"
              (MessageOrGroup -> FieldTypeDescriptor ExPrices
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExPrices)
              (Lens PParams PParams (Maybe ExPrices) (Maybe ExPrices)
-> FieldAccessor PParams ExPrices
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'prices")) ::
              Data.ProtoLens.FieldDescriptor PParams
        maxExecutionUnitsPerTransaction__field_descriptor :: FieldDescriptor PParams
maxExecutionUnitsPerTransaction__field_descriptor
          = String
-> FieldTypeDescriptor ExUnits
-> FieldAccessor PParams ExUnits
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_execution_units_per_transaction"
              (MessageOrGroup -> FieldTypeDescriptor ExUnits
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExUnits)
              (Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
-> FieldAccessor PParams ExUnits
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'maxExecutionUnitsPerTransaction")) ::
              Data.ProtoLens.FieldDescriptor PParams
        maxExecutionUnitsPerBlock__field_descriptor :: FieldDescriptor PParams
maxExecutionUnitsPerBlock__field_descriptor
          = String
-> FieldTypeDescriptor ExUnits
-> FieldAccessor PParams ExUnits
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_execution_units_per_block"
              (MessageOrGroup -> FieldTypeDescriptor ExUnits
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExUnits)
              (Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
-> FieldAccessor PParams ExUnits
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'maxExecutionUnitsPerBlock")) ::
              Data.ProtoLens.FieldDescriptor PParams
      in
        [(Tag, FieldDescriptor PParams)]
-> Map Tag (FieldDescriptor PParams)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PParams
coinsPerUtxoByte__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PParams
maxTxSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor PParams
minFeeCoefficient__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor PParams
minFeeConstant__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor PParams
maxBlockBodySize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor PParams
maxBlockHeaderSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor PParams
stakeKeyDeposit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor PParams
poolDeposit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor PParams
poolRetirementEpochBound__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor PParams
desiredNumberOfPools__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor PParams
poolInfluence__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor PParams
monetaryExpansion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor PParams
treasuryExpansion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
14, FieldDescriptor PParams
minPoolCost__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
15, FieldDescriptor PParams
protocolVersion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
16, FieldDescriptor PParams
maxValueSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
17, FieldDescriptor PParams
collateralPercentage__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
18, FieldDescriptor PParams
maxCollateralInputs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
19, FieldDescriptor PParams
costModels__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
20, FieldDescriptor PParams
prices__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
21, 
            FieldDescriptor PParams
maxExecutionUnitsPerTransaction__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
22, 
            FieldDescriptor PParams
maxExecutionUnitsPerBlock__field_descriptor)]
  unknownFields :: Lens' PParams FieldSet
unknownFields
    = (PParams -> FieldSet)
-> (PParams -> FieldSet -> PParams) -> Lens' PParams FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PParams -> FieldSet
_PParams'_unknownFields
        (\ PParams
x__ FieldSet
y__ -> PParams
x__ {_PParams'_unknownFields = y__})
  defMessage :: PParams
defMessage
    = PParams'_constructor
        {_PParams'coinsPerUtxoByte :: Word64
_PParams'coinsPerUtxoByte = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'maxTxSize :: Word64
_PParams'maxTxSize = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'minFeeCoefficient :: Word64
_PParams'minFeeCoefficient = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'minFeeConstant :: Word64
_PParams'minFeeConstant = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'maxBlockBodySize :: Word64
_PParams'maxBlockBodySize = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'maxBlockHeaderSize :: Word64
_PParams'maxBlockHeaderSize = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'stakeKeyDeposit :: Word64
_PParams'stakeKeyDeposit = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'poolDeposit :: Word64
_PParams'poolDeposit = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'poolRetirementEpochBound :: Word64
_PParams'poolRetirementEpochBound = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'desiredNumberOfPools :: Word64
_PParams'desiredNumberOfPools = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'poolInfluence :: Maybe RationalNumber
_PParams'poolInfluence = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _PParams'monetaryExpansion :: Maybe RationalNumber
_PParams'monetaryExpansion = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _PParams'treasuryExpansion :: Maybe RationalNumber
_PParams'treasuryExpansion = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _PParams'minPoolCost :: Word64
_PParams'minPoolCost = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'protocolVersion :: Maybe ProtocolVersion
_PParams'protocolVersion = Maybe ProtocolVersion
forall a. Maybe a
Prelude.Nothing,
         _PParams'maxValueSize :: Word64
_PParams'maxValueSize = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'collateralPercentage :: Word64
_PParams'collateralPercentage = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'maxCollateralInputs :: Word64
_PParams'maxCollateralInputs = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'costModels :: Maybe CostModels
_PParams'costModels = Maybe CostModels
forall a. Maybe a
Prelude.Nothing,
         _PParams'prices :: Maybe ExPrices
_PParams'prices = Maybe ExPrices
forall a. Maybe a
Prelude.Nothing,
         _PParams'maxExecutionUnitsPerTransaction :: Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction = Maybe ExUnits
forall a. Maybe a
Prelude.Nothing,
         _PParams'maxExecutionUnitsPerBlock :: Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock = Maybe ExUnits
forall a. Maybe a
Prelude.Nothing,
         _PParams'_unknownFields :: FieldSet
_PParams'_unknownFields = []}
  parseMessage :: Parser PParams
parseMessage
    = let
        loop :: PParams -> Data.ProtoLens.Encoding.Bytes.Parser PParams
        loop :: PParams -> Parser PParams
loop PParams
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PParams -> Parser PParams
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PParams PParams FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PParams -> PParams
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PParams FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PParams FieldSet
Setter PParams PParams FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) PParams
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word64
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
"coins_per_utxo_byte"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"coinsPerUtxoByte") Word64
y PParams
x)
                        Word64
16
                          -> do Word64
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
"max_tx_size"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"maxTxSize") Word64
y PParams
x)
                        Word64
24
                          -> do Word64
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
"min_fee_coefficient"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"minFeeCoefficient") Word64
y PParams
x)
                        Word64
32
                          -> do Word64
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
"min_fee_constant"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"minFeeConstant") Word64
y PParams
x)
                        Word64
40
                          -> do Word64
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
"max_block_body_size"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"maxBlockBodySize") Word64
y PParams
x)
                        Word64
48
                          -> do Word64
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
"max_block_header_size"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"maxBlockHeaderSize") Word64
y PParams
x)
                        Word64
56
                          -> do Word64
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
"stake_key_deposit"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"stakeKeyDeposit") Word64
y PParams
x)
                        Word64
64
                          -> do Word64
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
"pool_deposit"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"poolDeposit") Word64
y PParams
x)
                        Word64
72
                          -> do Word64
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
"pool_retirement_epoch_bound"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"poolRetirementEpochBound") Word64
y PParams
x)
                        Word64
80
                          -> do Word64
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
"desired_number_of_pools"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"desiredNumberOfPools") Word64
y PParams
x)
                        Word64
90
                          -> do RationalNumber
y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser RationalNumber -> Parser RationalNumber
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser RationalNumber
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"pool_influence"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams RationalNumber RationalNumber
-> RationalNumber -> PParams -> PParams
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 @"poolInfluence") RationalNumber
y PParams
x)
                        Word64
98
                          -> do RationalNumber
y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser RationalNumber -> Parser RationalNumber
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser RationalNumber
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"monetary_expansion"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams RationalNumber RationalNumber
-> RationalNumber -> PParams -> PParams
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 @"monetaryExpansion") RationalNumber
y PParams
x)
                        Word64
106
                          -> do RationalNumber
y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser RationalNumber -> Parser RationalNumber
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser RationalNumber
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"treasury_expansion"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams RationalNumber RationalNumber
-> RationalNumber -> PParams -> PParams
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 @"treasuryExpansion") RationalNumber
y PParams
x)
                        Word64
112
                          -> do Word64
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
"min_pool_cost"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"minPoolCost") Word64
y PParams
x)
                        Word64
122
                          -> do ProtocolVersion
y <- Parser ProtocolVersion -> String -> Parser ProtocolVersion
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ProtocolVersion -> Parser ProtocolVersion
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ProtocolVersion
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"protocol_version"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams ProtocolVersion ProtocolVersion
-> ProtocolVersion -> PParams -> PParams
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 @"protocolVersion") ProtocolVersion
y PParams
x)
                        Word64
128
                          -> do Word64
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
"max_value_size"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"maxValueSize") Word64
y PParams
x)
                        Word64
136
                          -> do Word64
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
"collateral_percentage"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"collateralPercentage") Word64
y PParams
x)
                        Word64
144
                          -> do Word64
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
"max_collateral_inputs"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams Word64 Word64
-> Word64 -> PParams -> PParams
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 @"maxCollateralInputs") Word64
y PParams
x)
                        Word64
154
                          -> do CostModels
y <- Parser CostModels -> String -> Parser CostModels
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CostModels -> Parser CostModels
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CostModels
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"cost_models"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams CostModels CostModels
-> CostModels -> PParams -> PParams
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 @"costModels") CostModels
y PParams
x)
                        Word64
162
                          -> do ExPrices
y <- Parser ExPrices -> String -> Parser ExPrices
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ExPrices -> Parser ExPrices
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExPrices
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"prices"
                                PParams -> Parser PParams
loop (Setter PParams PParams ExPrices ExPrices
-> ExPrices -> PParams -> PParams
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 @"prices") ExPrices
y PParams
x)
                        Word64
170
                          -> do ExUnits
y <- Parser ExUnits -> String -> Parser ExUnits
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ExUnits -> Parser ExUnits
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExUnits
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"max_execution_units_per_transaction"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams ExUnits ExUnits
-> ExUnits -> PParams -> PParams
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 @"maxExecutionUnitsPerTransaction")
                                     ExUnits
y PParams
x)
                        Word64
178
                          -> do ExUnits
y <- Parser ExUnits -> String -> Parser ExUnits
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ExUnits -> Parser ExUnits
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExUnits
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"max_execution_units_per_block"
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams ExUnits ExUnits
-> ExUnits -> PParams -> PParams
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 @"maxExecutionUnitsPerBlock") ExUnits
y PParams
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PParams -> Parser PParams
loop
                                  (Setter PParams PParams FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PParams -> PParams
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PParams FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PParams FieldSet
Setter PParams PParams FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PParams
x)
      in
        Parser PParams -> String -> Parser PParams
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PParams -> Parser PParams
loop PParams
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PParams"
  buildMessage :: PParams -> Builder
buildMessage
    = \ PParams
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v
                  = FoldLike Word64 PParams PParams Word64 Word64 -> PParams -> 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 @"coinsPerUtxoByte") PParams
_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 PParams PParams Word64 Word64 -> PParams -> 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 @"maxTxSize") PParams
_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 PParams PParams Word64 Word64 -> PParams -> 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 @"minFeeCoefficient") PParams
_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))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Word64
_v
                           = FoldLike Word64 PParams PParams Word64 Word64 -> PParams -> 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 @"minFeeConstant") PParams
_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
32)
                               (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 PParams PParams Word64 Word64 -> PParams -> 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 @"maxBlockBodySize") PParams
_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
40)
                                  (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 PParams PParams Word64 Word64 -> PParams -> 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 @"maxBlockHeaderSize") PParams
_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
48)
                                     (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 PParams PParams Word64 Word64 -> PParams -> 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 @"stakeKeyDeposit") PParams
_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
56)
                                        (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 PParams PParams Word64 Word64 -> PParams -> 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 @"poolDeposit") PParams
_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
64)
                                           (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 PParams PParams Word64 Word64 -> PParams -> 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
                                                 @"poolRetirementEpochBound")
                                              PParams
_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
72)
                                              (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 PParams PParams Word64 Word64 -> PParams -> 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
                                                    @"desiredNumberOfPools")
                                                 PParams
_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
80)
                                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (case
                                                FoldLike
  (Maybe RationalNumber)
  PParams
  PParams
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> PParams -> 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'poolInfluence")
                                                  PParams
_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
90)
                                                     ((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)
  PParams
  PParams
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> PParams -> 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'monetaryExpansion")
                                                     PParams
_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
98)
                                                        ((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)
  PParams
  PParams
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> PParams -> 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'treasuryExpansion")
                                                        PParams
_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
106)
                                                           ((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.<>)
                                                    (let
                                                       _v :: Word64
_v
                                                         = FoldLike Word64 PParams PParams Word64 Word64 -> PParams -> 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
                                                                @"minPoolCost")
                                                             PParams
_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
112)
                                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                Word64
_v))
                                                    (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                       (case
                                                            FoldLike
  (Maybe ProtocolVersion)
  PParams
  PParams
  (Maybe ProtocolVersion)
  (Maybe ProtocolVersion)
-> PParams -> Maybe ProtocolVersion
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'protocolVersion")
                                                              PParams
_x
                                                        of
                                                          Maybe ProtocolVersion
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                          (Prelude.Just ProtocolVersion
_v)
                                                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                    Word64
122)
                                                                 ((ByteString -> Builder)
-> (ProtocolVersion -> ByteString) -> ProtocolVersion -> 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))
                                                                    ProtocolVersion -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                    ProtocolVersion
_v))
                                                       (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                          (let
                                                             _v :: Word64
_v
                                                               = FoldLike Word64 PParams PParams Word64 Word64 -> PParams -> 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
                                                                      @"maxValueSize")
                                                                   PParams
_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
128)
                                                                   (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 PParams PParams Word64 Word64 -> PParams -> 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
                                                                         @"collateralPercentage")
                                                                      PParams
_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
136)
                                                                      (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 PParams PParams Word64 Word64 -> PParams -> 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
                                                                            @"maxCollateralInputs")
                                                                         PParams
_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
144)
                                                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                            Word64
_v))
                                                                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                   (case
                                                                        FoldLike
  (Maybe CostModels)
  PParams
  PParams
  (Maybe CostModels)
  (Maybe CostModels)
-> PParams -> Maybe CostModels
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'costModels")
                                                                          PParams
_x
                                                                    of
                                                                      Maybe CostModels
Prelude.Nothing
                                                                        -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                      (Prelude.Just CostModels
_v)
                                                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                Word64
154)
                                                                             ((ByteString -> Builder)
-> (CostModels -> ByteString) -> CostModels -> 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))
                                                                                CostModels -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                                CostModels
_v))
                                                                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                      (case
                                                                           FoldLike
  (Maybe ExPrices) PParams PParams (Maybe ExPrices) (Maybe ExPrices)
-> PParams -> Maybe ExPrices
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'prices")
                                                                             PParams
_x
                                                                       of
                                                                         Maybe ExPrices
Prelude.Nothing
                                                                           -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                         (Prelude.Just ExPrices
_v)
                                                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                   Word64
162)
                                                                                ((ByteString -> Builder)
-> (ExPrices -> ByteString) -> ExPrices -> 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))
                                                                                   ExPrices -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                                   ExPrices
_v))
                                                                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                         (case
                                                                              FoldLike
  (Maybe ExUnits) PParams PParams (Maybe ExUnits) (Maybe ExUnits)
-> PParams -> Maybe ExUnits
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'maxExecutionUnitsPerTransaction")
                                                                                PParams
_x
                                                                          of
                                                                            Maybe ExUnits
Prelude.Nothing
                                                                              -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                            (Prelude.Just ExUnits
_v)
                                                                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                      Word64
170)
                                                                                   ((ByteString -> Builder)
-> (ExUnits -> ByteString) -> ExUnits -> 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))
                                                                                      ExUnits -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                                      ExUnits
_v))
                                                                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                            (case
                                                                                 FoldLike
  (Maybe ExUnits) PParams PParams (Maybe ExUnits) (Maybe ExUnits)
-> PParams -> Maybe ExUnits
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'maxExecutionUnitsPerBlock")
                                                                                   PParams
_x
                                                                             of
                                                                               Maybe ExUnits
Prelude.Nothing
                                                                                 -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                               (Prelude.Just ExUnits
_v)
                                                                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                         Word64
178)
                                                                                      ((ByteString -> Builder)
-> (ExUnits -> ByteString) -> ExUnits -> 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))
                                                                                         ExUnits -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                                         ExUnits
_v))
                                                                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                                                               (FoldLike FieldSet PParams PParams FieldSet FieldSet
-> PParams -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                                  FoldLike FieldSet PParams PParams FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PParams FieldSet
Data.ProtoLens.unknownFields
                                                                                  PParams
_x)))))))))))))))))))))))
instance Control.DeepSeq.NFData PParams where
  rnf :: PParams -> ()
rnf
    = \ PParams
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PParams -> FieldSet
_PParams'_unknownFields PParams
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PParams -> Word64
_PParams'coinsPerUtxoByte PParams
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (PParams -> Word64
_PParams'maxTxSize PParams
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (PParams -> Word64
_PParams'minFeeCoefficient PParams
x__)
                      (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (PParams -> Word64
_PParams'minFeeConstant PParams
x__)
                         (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (PParams -> Word64
_PParams'maxBlockBodySize PParams
x__)
                            (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (PParams -> Word64
_PParams'maxBlockHeaderSize PParams
x__)
                               (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (PParams -> Word64
_PParams'stakeKeyDeposit PParams
x__)
                                  (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (PParams -> Word64
_PParams'poolDeposit PParams
x__)
                                     (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (PParams -> Word64
_PParams'poolRetirementEpochBound PParams
x__)
                                        (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (PParams -> Word64
_PParams'desiredNumberOfPools PParams
x__)
                                           (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (PParams -> Maybe RationalNumber
_PParams'poolInfluence PParams
x__)
                                              (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (PParams -> Maybe RationalNumber
_PParams'monetaryExpansion PParams
x__)
                                                 (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                    (PParams -> Maybe RationalNumber
_PParams'treasuryExpansion PParams
x__)
                                                    (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                       (PParams -> Word64
_PParams'minPoolCost PParams
x__)
                                                       (Maybe ProtocolVersion -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                          (PParams -> Maybe ProtocolVersion
_PParams'protocolVersion PParams
x__)
                                                          (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                             (PParams -> Word64
_PParams'maxValueSize PParams
x__)
                                                             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                (PParams -> Word64
_PParams'collateralPercentage PParams
x__)
                                                                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                   (PParams -> Word64
_PParams'maxCollateralInputs
                                                                      PParams
x__)
                                                                   (Maybe CostModels -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                      (PParams -> Maybe CostModels
_PParams'costModels PParams
x__)
                                                                      (Maybe ExPrices -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                         (PParams -> Maybe ExPrices
_PParams'prices PParams
x__)
                                                                         (Maybe ExUnits -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                            (PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction
                                                                               PParams
x__)
                                                                            (Maybe ExUnits -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                               (PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock
                                                                                  PParams
x__)
                                                                               ()))))))))))))))))))))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusData' @:: Lens' PlutusData (Prelude.Maybe PlutusData'PlutusData)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'constr' @:: Lens' PlutusData (Prelude.Maybe Constr)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.constr' @:: Lens' PlutusData Constr@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'map' @:: Lens' PlutusData (Prelude.Maybe PlutusDataMap)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.map' @:: Lens' PlutusData PlutusDataMap@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' PlutusData (Prelude.Maybe BigInt)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigInt' @:: Lens' PlutusData BigInt@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'boundedBytes' @:: Lens' PlutusData (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.boundedBytes' @:: Lens' PlutusData Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'array' @:: Lens' PlutusData (Prelude.Maybe PlutusDataArray)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.array' @:: Lens' PlutusData PlutusDataArray@ -}
data PlutusData
  = PlutusData'_constructor {PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData :: !(Prelude.Maybe PlutusData'PlutusData),
                             PlutusData -> FieldSet
_PlutusData'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PlutusData -> PlutusData -> Bool
(PlutusData -> PlutusData -> Bool)
-> (PlutusData -> PlutusData -> Bool) -> Eq PlutusData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PlutusData -> PlutusData -> Bool
== :: PlutusData -> PlutusData -> Bool
$c/= :: PlutusData -> PlutusData -> Bool
/= :: PlutusData -> PlutusData -> Bool
Prelude.Eq, Eq PlutusData
Eq PlutusData =>
(PlutusData -> PlutusData -> Ordering)
-> (PlutusData -> PlutusData -> Bool)
-> (PlutusData -> PlutusData -> Bool)
-> (PlutusData -> PlutusData -> Bool)
-> (PlutusData -> PlutusData -> Bool)
-> (PlutusData -> PlutusData -> PlutusData)
-> (PlutusData -> PlutusData -> PlutusData)
-> Ord PlutusData
PlutusData -> PlutusData -> Bool
PlutusData -> PlutusData -> Ordering
PlutusData -> PlutusData -> PlutusData
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 :: PlutusData -> PlutusData -> Ordering
compare :: PlutusData -> PlutusData -> Ordering
$c< :: PlutusData -> PlutusData -> Bool
< :: PlutusData -> PlutusData -> Bool
$c<= :: PlutusData -> PlutusData -> Bool
<= :: PlutusData -> PlutusData -> Bool
$c> :: PlutusData -> PlutusData -> Bool
> :: PlutusData -> PlutusData -> Bool
$c>= :: PlutusData -> PlutusData -> Bool
>= :: PlutusData -> PlutusData -> Bool
$cmax :: PlutusData -> PlutusData -> PlutusData
max :: PlutusData -> PlutusData -> PlutusData
$cmin :: PlutusData -> PlutusData -> PlutusData
min :: PlutusData -> PlutusData -> PlutusData
Prelude.Ord)
instance Prelude.Show PlutusData where
  showsPrec :: Int -> PlutusData -> ShowS
showsPrec Int
_ PlutusData
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PlutusData -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PlutusData
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data PlutusData'PlutusData
  = PlutusData'Constr !Constr |
    PlutusData'Map !PlutusDataMap |
    PlutusData'BigInt !BigInt |
    PlutusData'BoundedBytes !Data.ByteString.ByteString |
    PlutusData'Array !PlutusDataArray
  deriving stock (Int -> PlutusData'PlutusData -> ShowS
[PlutusData'PlutusData] -> ShowS
PlutusData'PlutusData -> String
(Int -> PlutusData'PlutusData -> ShowS)
-> (PlutusData'PlutusData -> String)
-> ([PlutusData'PlutusData] -> ShowS)
-> Show PlutusData'PlutusData
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PlutusData'PlutusData -> ShowS
showsPrec :: Int -> PlutusData'PlutusData -> ShowS
$cshow :: PlutusData'PlutusData -> String
show :: PlutusData'PlutusData -> String
$cshowList :: [PlutusData'PlutusData] -> ShowS
showList :: [PlutusData'PlutusData] -> ShowS
Prelude.Show, PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
(PlutusData'PlutusData -> PlutusData'PlutusData -> Bool)
-> (PlutusData'PlutusData -> PlutusData'PlutusData -> Bool)
-> Eq PlutusData'PlutusData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
== :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
$c/= :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
/= :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
Prelude.Eq, Eq PlutusData'PlutusData
Eq PlutusData'PlutusData =>
(PlutusData'PlutusData -> PlutusData'PlutusData -> Ordering)
-> (PlutusData'PlutusData -> PlutusData'PlutusData -> Bool)
-> (PlutusData'PlutusData -> PlutusData'PlutusData -> Bool)
-> (PlutusData'PlutusData -> PlutusData'PlutusData -> Bool)
-> (PlutusData'PlutusData -> PlutusData'PlutusData -> Bool)
-> (PlutusData'PlutusData
    -> PlutusData'PlutusData -> PlutusData'PlutusData)
-> (PlutusData'PlutusData
    -> PlutusData'PlutusData -> PlutusData'PlutusData)
-> Ord PlutusData'PlutusData
PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
PlutusData'PlutusData -> PlutusData'PlutusData -> Ordering
PlutusData'PlutusData
-> PlutusData'PlutusData -> PlutusData'PlutusData
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 :: PlutusData'PlutusData -> PlutusData'PlutusData -> Ordering
compare :: PlutusData'PlutusData -> PlutusData'PlutusData -> Ordering
$c< :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
< :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
$c<= :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
<= :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
$c> :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
> :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
$c>= :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
>= :: PlutusData'PlutusData -> PlutusData'PlutusData -> Bool
$cmax :: PlutusData'PlutusData
-> PlutusData'PlutusData -> PlutusData'PlutusData
max :: PlutusData'PlutusData
-> PlutusData'PlutusData -> PlutusData'PlutusData
$cmin :: PlutusData'PlutusData
-> PlutusData'PlutusData -> PlutusData'PlutusData
min :: PlutusData'PlutusData
-> PlutusData'PlutusData -> PlutusData'PlutusData
Prelude.Ord)
instance Data.ProtoLens.Field.HasField PlutusData "maybe'plutusData" (Prelude.Maybe PlutusData'PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusData"
-> (Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> PlutusData
-> f PlutusData
fieldOf Proxy# "maybe'plutusData"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((Maybe PlutusData'PlutusData
     -> f (Maybe PlutusData'PlutusData))
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        (Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PlutusData "maybe'constr" (Prelude.Maybe Constr) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'constr"
-> (Maybe Constr -> f (Maybe Constr)) -> PlutusData -> f PlutusData
fieldOf Proxy# "maybe'constr"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((Maybe Constr -> f (Maybe Constr))
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (Maybe Constr -> f (Maybe Constr))
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        ((Maybe PlutusData'PlutusData -> Maybe Constr)
-> (Maybe PlutusData'PlutusData
    -> Maybe Constr -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe Constr)
     (Maybe Constr)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe PlutusData'PlutusData
x__
              -> case Maybe PlutusData'PlutusData
x__ of
                   (Prelude.Just (PlutusData'Constr Constr
x__val)) -> Constr -> Maybe Constr
forall a. a -> Maybe a
Prelude.Just Constr
x__val
                   Maybe PlutusData'PlutusData
_otherwise -> Maybe Constr
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe PlutusData'PlutusData
_ Maybe Constr
y__ -> (Constr -> PlutusData'PlutusData)
-> Maybe Constr -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Constr -> PlutusData'PlutusData
PlutusData'Constr Maybe Constr
y__))
instance Data.ProtoLens.Field.HasField PlutusData "constr" Constr where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "constr"
-> (Constr -> f Constr) -> PlutusData -> f PlutusData
fieldOf Proxy# "constr"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((Constr -> f Constr)
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (Constr -> f Constr)
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        (((Maybe Constr -> f (Maybe Constr))
 -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> ((Constr -> f Constr) -> Maybe Constr -> f (Maybe Constr))
-> (Constr -> f Constr)
-> Maybe PlutusData'PlutusData
-> f (Maybe PlutusData'PlutusData)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe PlutusData'PlutusData -> Maybe Constr)
-> (Maybe PlutusData'PlutusData
    -> Maybe Constr -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe Constr)
     (Maybe Constr)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe PlutusData'PlutusData
x__
                 -> case Maybe PlutusData'PlutusData
x__ of
                      (Prelude.Just (PlutusData'Constr Constr
x__val)) -> Constr -> Maybe Constr
forall a. a -> Maybe a
Prelude.Just Constr
x__val
                      Maybe PlutusData'PlutusData
_otherwise -> Maybe Constr
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe PlutusData'PlutusData
_ Maybe Constr
y__ -> (Constr -> PlutusData'PlutusData)
-> Maybe Constr -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Constr -> PlutusData'PlutusData
PlutusData'Constr Maybe Constr
y__))
           (Constr -> Lens' (Maybe Constr) Constr
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Constr
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField PlutusData "maybe'map" (Prelude.Maybe PlutusDataMap) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'map"
-> (Maybe PlutusDataMap -> f (Maybe PlutusDataMap))
-> PlutusData
-> f PlutusData
fieldOf Proxy# "maybe'map"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((Maybe PlutusDataMap -> f (Maybe PlutusDataMap))
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (Maybe PlutusDataMap -> f (Maybe PlutusDataMap))
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        ((Maybe PlutusData'PlutusData -> Maybe PlutusDataMap)
-> (Maybe PlutusData'PlutusData
    -> Maybe PlutusDataMap -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusDataMap)
     (Maybe PlutusDataMap)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe PlutusData'PlutusData
x__
              -> case Maybe PlutusData'PlutusData
x__ of
                   (Prelude.Just (PlutusData'Map PlutusDataMap
x__val)) -> PlutusDataMap -> Maybe PlutusDataMap
forall a. a -> Maybe a
Prelude.Just PlutusDataMap
x__val
                   Maybe PlutusData'PlutusData
_otherwise -> Maybe PlutusDataMap
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe PlutusData'PlutusData
_ Maybe PlutusDataMap
y__ -> (PlutusDataMap -> PlutusData'PlutusData)
-> Maybe PlutusDataMap -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PlutusDataMap -> PlutusData'PlutusData
PlutusData'Map Maybe PlutusDataMap
y__))
instance Data.ProtoLens.Field.HasField PlutusData "map" PlutusDataMap where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "map"
-> (PlutusDataMap -> f PlutusDataMap) -> PlutusData -> f PlutusData
fieldOf Proxy# "map"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((PlutusDataMap -> f PlutusDataMap)
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (PlutusDataMap -> f PlutusDataMap)
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        (((Maybe PlutusDataMap -> f (Maybe PlutusDataMap))
 -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> ((PlutusDataMap -> f PlutusDataMap)
    -> Maybe PlutusDataMap -> f (Maybe PlutusDataMap))
-> (PlutusDataMap -> f PlutusDataMap)
-> Maybe PlutusData'PlutusData
-> f (Maybe PlutusData'PlutusData)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe PlutusData'PlutusData -> Maybe PlutusDataMap)
-> (Maybe PlutusData'PlutusData
    -> Maybe PlutusDataMap -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusDataMap)
     (Maybe PlutusDataMap)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe PlutusData'PlutusData
x__
                 -> case Maybe PlutusData'PlutusData
x__ of
                      (Prelude.Just (PlutusData'Map PlutusDataMap
x__val)) -> PlutusDataMap -> Maybe PlutusDataMap
forall a. a -> Maybe a
Prelude.Just PlutusDataMap
x__val
                      Maybe PlutusData'PlutusData
_otherwise -> Maybe PlutusDataMap
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe PlutusData'PlutusData
_ Maybe PlutusDataMap
y__ -> (PlutusDataMap -> PlutusData'PlutusData)
-> Maybe PlutusDataMap -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PlutusDataMap -> PlutusData'PlutusData
PlutusData'Map Maybe PlutusDataMap
y__))
           (PlutusDataMap -> Lens' (Maybe PlutusDataMap) PlutusDataMap
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PlutusDataMap
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField PlutusData "maybe'bigInt" (Prelude.Maybe BigInt) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'bigInt"
-> (Maybe BigInt -> f (Maybe BigInt)) -> PlutusData -> f PlutusData
fieldOf Proxy# "maybe'bigInt"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((Maybe BigInt -> f (Maybe BigInt))
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (Maybe BigInt -> f (Maybe BigInt))
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        ((Maybe PlutusData'PlutusData -> Maybe BigInt)
-> (Maybe PlutusData'PlutusData
    -> Maybe BigInt -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe BigInt)
     (Maybe BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe PlutusData'PlutusData
x__
              -> case Maybe PlutusData'PlutusData
x__ of
                   (Prelude.Just (PlutusData'BigInt BigInt
x__val)) -> BigInt -> Maybe BigInt
forall a. a -> Maybe a
Prelude.Just BigInt
x__val
                   Maybe PlutusData'PlutusData
_otherwise -> Maybe BigInt
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe PlutusData'PlutusData
_ Maybe BigInt
y__ -> (BigInt -> PlutusData'PlutusData)
-> Maybe BigInt -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap BigInt -> PlutusData'PlutusData
PlutusData'BigInt Maybe BigInt
y__))
instance Data.ProtoLens.Field.HasField PlutusData "bigInt" BigInt where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "bigInt"
-> (BigInt -> f BigInt) -> PlutusData -> f PlutusData
fieldOf Proxy# "bigInt"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((BigInt -> f BigInt)
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (BigInt -> f BigInt)
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        (((Maybe BigInt -> f (Maybe BigInt))
 -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> ((BigInt -> f BigInt) -> Maybe BigInt -> f (Maybe BigInt))
-> (BigInt -> f BigInt)
-> Maybe PlutusData'PlutusData
-> f (Maybe PlutusData'PlutusData)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe PlutusData'PlutusData -> Maybe BigInt)
-> (Maybe PlutusData'PlutusData
    -> Maybe BigInt -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe BigInt)
     (Maybe BigInt)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe PlutusData'PlutusData
x__
                 -> case Maybe PlutusData'PlutusData
x__ of
                      (Prelude.Just (PlutusData'BigInt BigInt
x__val)) -> BigInt -> Maybe BigInt
forall a. a -> Maybe a
Prelude.Just BigInt
x__val
                      Maybe PlutusData'PlutusData
_otherwise -> Maybe BigInt
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe PlutusData'PlutusData
_ Maybe BigInt
y__ -> (BigInt -> PlutusData'PlutusData)
-> Maybe BigInt -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap BigInt -> PlutusData'PlutusData
PlutusData'BigInt Maybe BigInt
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 PlutusData "maybe'boundedBytes" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'boundedBytes"
-> (Maybe ByteString -> f (Maybe ByteString))
-> PlutusData
-> f PlutusData
fieldOf Proxy# "maybe'boundedBytes"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (Maybe ByteString -> f (Maybe ByteString))
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        ((Maybe PlutusData'PlutusData -> Maybe ByteString)
-> (Maybe PlutusData'PlutusData
    -> Maybe ByteString -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe PlutusData'PlutusData
x__
              -> case Maybe PlutusData'PlutusData
x__ of
                   (Prelude.Just (PlutusData'BoundedBytes ByteString
x__val))
                     -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe PlutusData'PlutusData
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe PlutusData'PlutusData
_ Maybe ByteString
y__ -> (ByteString -> PlutusData'PlutusData)
-> Maybe ByteString -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> PlutusData'PlutusData
PlutusData'BoundedBytes Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField PlutusData "boundedBytes" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "boundedBytes"
-> (ByteString -> f ByteString) -> PlutusData -> f PlutusData
fieldOf Proxy# "boundedBytes"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((ByteString -> f ByteString)
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (ByteString -> f ByteString)
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe PlutusData'PlutusData
-> f (Maybe PlutusData'PlutusData)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe PlutusData'PlutusData -> Maybe ByteString)
-> (Maybe PlutusData'PlutusData
    -> Maybe ByteString -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe PlutusData'PlutusData
x__
                 -> case Maybe PlutusData'PlutusData
x__ of
                      (Prelude.Just (PlutusData'BoundedBytes ByteString
x__val))
                        -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe PlutusData'PlutusData
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe PlutusData'PlutusData
_ Maybe ByteString
y__ -> (ByteString -> PlutusData'PlutusData)
-> Maybe ByteString -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> PlutusData'PlutusData
PlutusData'BoundedBytes 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 PlutusData "maybe'array" (Prelude.Maybe PlutusDataArray) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'array"
-> (Maybe PlutusDataArray -> f (Maybe PlutusDataArray))
-> PlutusData
-> f PlutusData
fieldOf Proxy# "maybe'array"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((Maybe PlutusDataArray -> f (Maybe PlutusDataArray))
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (Maybe PlutusDataArray -> f (Maybe PlutusDataArray))
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        ((Maybe PlutusData'PlutusData -> Maybe PlutusDataArray)
-> (Maybe PlutusData'PlutusData
    -> Maybe PlutusDataArray -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusDataArray)
     (Maybe PlutusDataArray)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe PlutusData'PlutusData
x__
              -> case Maybe PlutusData'PlutusData
x__ of
                   (Prelude.Just (PlutusData'Array PlutusDataArray
x__val)) -> PlutusDataArray -> Maybe PlutusDataArray
forall a. a -> Maybe a
Prelude.Just PlutusDataArray
x__val
                   Maybe PlutusData'PlutusData
_otherwise -> Maybe PlutusDataArray
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe PlutusData'PlutusData
_ Maybe PlutusDataArray
y__ -> (PlutusDataArray -> PlutusData'PlutusData)
-> Maybe PlutusDataArray -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PlutusDataArray -> PlutusData'PlutusData
PlutusData'Array Maybe PlutusDataArray
y__))
instance Data.ProtoLens.Field.HasField PlutusData "array" PlutusDataArray where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "array"
-> (PlutusDataArray -> f PlutusDataArray)
-> PlutusData
-> f PlutusData
fieldOf Proxy# "array"
_
    = ((Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
 -> PlutusData -> f PlutusData)
-> ((PlutusDataArray -> f PlutusDataArray)
    -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> (PlutusDataArray -> f PlutusDataArray)
-> PlutusData
-> f PlutusData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusData -> Maybe PlutusData'PlutusData)
-> (PlutusData -> Maybe PlutusData'PlutusData -> PlutusData)
-> Lens
     PlutusData
     PlutusData
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData
           (\ PlutusData
x__ Maybe PlutusData'PlutusData
y__ -> PlutusData
x__ {_PlutusData'plutusData = y__}))
        (((Maybe PlutusDataArray -> f (Maybe PlutusDataArray))
 -> Maybe PlutusData'PlutusData -> f (Maybe PlutusData'PlutusData))
-> ((PlutusDataArray -> f PlutusDataArray)
    -> Maybe PlutusDataArray -> f (Maybe PlutusDataArray))
-> (PlutusDataArray -> f PlutusDataArray)
-> Maybe PlutusData'PlutusData
-> f (Maybe PlutusData'PlutusData)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe PlutusData'PlutusData -> Maybe PlutusDataArray)
-> (Maybe PlutusData'PlutusData
    -> Maybe PlutusDataArray -> Maybe PlutusData'PlutusData)
-> Lens
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusData'PlutusData)
     (Maybe PlutusDataArray)
     (Maybe PlutusDataArray)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe PlutusData'PlutusData
x__
                 -> case Maybe PlutusData'PlutusData
x__ of
                      (Prelude.Just (PlutusData'Array PlutusDataArray
x__val)) -> PlutusDataArray -> Maybe PlutusDataArray
forall a. a -> Maybe a
Prelude.Just PlutusDataArray
x__val
                      Maybe PlutusData'PlutusData
_otherwise -> Maybe PlutusDataArray
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe PlutusData'PlutusData
_ Maybe PlutusDataArray
y__ -> (PlutusDataArray -> PlutusData'PlutusData)
-> Maybe PlutusDataArray -> Maybe PlutusData'PlutusData
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PlutusDataArray -> PlutusData'PlutusData
PlutusData'Array Maybe PlutusDataArray
y__))
           (PlutusDataArray -> Lens' (Maybe PlutusDataArray) PlutusDataArray
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PlutusDataArray
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message PlutusData where
  messageName :: Proxy PlutusData -> Text
messageName Proxy PlutusData
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PlutusData"
  packedMessageDescriptor :: Proxy PlutusData -> ByteString
packedMessageDescriptor Proxy PlutusData
_
    = ByteString
"\n\
      \\n\
      \PlutusData\DC29\n\
      \\ACKconstr\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\
      \\ETXmap\CAN\STX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\
      \\abig_int\CAN\ETX \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\
      \\rbounded_bytes\CAN\EOT \SOH(\fH\NULR\fboundedBytes\DC2@\n\
      \\ENQarray\CAN\ENQ \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\
      \\vplutus_data"
  packedFileDescriptor :: Proxy PlutusData -> ByteString
packedFileDescriptor Proxy PlutusData
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PlutusData)
fieldsByTag
    = let
        constr__field_descriptor :: FieldDescriptor PlutusData
constr__field_descriptor
          = String
-> FieldTypeDescriptor Constr
-> FieldAccessor PlutusData Constr
-> FieldDescriptor PlutusData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"constr"
              (MessageOrGroup -> FieldTypeDescriptor Constr
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Constr)
              (Lens' PlutusData (Maybe Constr) -> FieldAccessor PlutusData Constr
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'constr")) ::
              Data.ProtoLens.FieldDescriptor PlutusData
        map__field_descriptor :: FieldDescriptor PlutusData
map__field_descriptor
          = String
-> FieldTypeDescriptor PlutusDataMap
-> FieldAccessor PlutusData PlutusDataMap
-> FieldDescriptor PlutusData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"map"
              (MessageOrGroup -> FieldTypeDescriptor PlutusDataMap
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusDataMap)
              (Lens' PlutusData (Maybe PlutusDataMap)
-> FieldAccessor PlutusData PlutusDataMap
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'map")) ::
              Data.ProtoLens.FieldDescriptor PlutusData
        bigInt__field_descriptor :: FieldDescriptor PlutusData
bigInt__field_descriptor
          = String
-> FieldTypeDescriptor BigInt
-> FieldAccessor PlutusData BigInt
-> FieldDescriptor PlutusData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"big_int"
              (MessageOrGroup -> FieldTypeDescriptor BigInt
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BigInt)
              (Lens' PlutusData (Maybe BigInt) -> FieldAccessor PlutusData 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'bigInt")) ::
              Data.ProtoLens.FieldDescriptor PlutusData
        boundedBytes__field_descriptor :: FieldDescriptor PlutusData
boundedBytes__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PlutusData ByteString
-> FieldDescriptor PlutusData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"bounded_bytes"
              (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' PlutusData (Maybe ByteString)
-> FieldAccessor PlutusData 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'boundedBytes")) ::
              Data.ProtoLens.FieldDescriptor PlutusData
        array__field_descriptor :: FieldDescriptor PlutusData
array__field_descriptor
          = String
-> FieldTypeDescriptor PlutusDataArray
-> FieldAccessor PlutusData PlutusDataArray
-> FieldDescriptor PlutusData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"array"
              (MessageOrGroup -> FieldTypeDescriptor PlutusDataArray
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusDataArray)
              (Lens' PlutusData (Maybe PlutusDataArray)
-> FieldAccessor PlutusData PlutusDataArray
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'array")) ::
              Data.ProtoLens.FieldDescriptor PlutusData
      in
        [(Tag, FieldDescriptor PlutusData)]
-> Map Tag (FieldDescriptor PlutusData)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PlutusData
constr__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PlutusData
map__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor PlutusData
bigInt__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor PlutusData
boundedBytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor PlutusData
array__field_descriptor)]
  unknownFields :: Lens' PlutusData FieldSet
unknownFields
    = (PlutusData -> FieldSet)
-> (PlutusData -> FieldSet -> PlutusData)
-> Lens' PlutusData FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PlutusData -> FieldSet
_PlutusData'_unknownFields
        (\ PlutusData
x__ FieldSet
y__ -> PlutusData
x__ {_PlutusData'_unknownFields = y__})
  defMessage :: PlutusData
defMessage
    = PlutusData'_constructor
        {_PlutusData'plutusData :: Maybe PlutusData'PlutusData
_PlutusData'plutusData = Maybe PlutusData'PlutusData
forall a. Maybe a
Prelude.Nothing,
         _PlutusData'_unknownFields :: FieldSet
_PlutusData'_unknownFields = []}
  parseMessage :: Parser PlutusData
parseMessage
    = let
        loop ::
          PlutusData -> Data.ProtoLens.Encoding.Bytes.Parser PlutusData
        loop :: PlutusData -> Parser PlutusData
loop PlutusData
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PlutusData -> Parser PlutusData
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PlutusData PlutusData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusData -> PlutusData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PlutusData FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusData FieldSet
Setter PlutusData PlutusData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) PlutusData
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do Constr
y <- Parser Constr -> String -> Parser Constr
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Constr -> Parser Constr
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Constr
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"constr"
                                PlutusData -> Parser PlutusData
loop (Setter PlutusData PlutusData Constr Constr
-> Constr -> PlutusData -> PlutusData
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 @"constr") Constr
y PlutusData
x)
                        Word64
18
                          -> do PlutusDataMap
y <- Parser PlutusDataMap -> String -> Parser PlutusDataMap
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PlutusDataMap -> Parser PlutusDataMap
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlutusDataMap
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"map"
                                PlutusData -> Parser PlutusData
loop (Setter PlutusData PlutusData PlutusDataMap PlutusDataMap
-> PlutusDataMap -> PlutusData -> PlutusData
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 @"map") PlutusDataMap
y PlutusData
x)
                        Word64
26
                          -> do BigInt
y <- Parser BigInt -> String -> Parser BigInt
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser BigInt -> Parser BigInt
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser BigInt
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"big_int"
                                PlutusData -> Parser PlutusData
loop (Setter PlutusData PlutusData BigInt BigInt
-> BigInt -> PlutusData -> PlutusData
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 @"bigInt") BigInt
y PlutusData
x)
                        Word64
34
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"bounded_bytes"
                                PlutusData -> Parser PlutusData
loop
                                  (Setter PlutusData PlutusData ByteString ByteString
-> ByteString -> PlutusData -> PlutusData
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 @"boundedBytes") ByteString
y PlutusData
x)
                        Word64
42
                          -> do PlutusDataArray
y <- Parser PlutusDataArray -> String -> Parser PlutusDataArray
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PlutusDataArray -> Parser PlutusDataArray
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlutusDataArray
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"array"
                                PlutusData -> Parser PlutusData
loop (Setter PlutusData PlutusData PlutusDataArray PlutusDataArray
-> PlutusDataArray -> PlutusData -> PlutusData
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 @"array") PlutusDataArray
y PlutusData
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PlutusData -> Parser PlutusData
loop
                                  (Setter PlutusData PlutusData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusData -> PlutusData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PlutusData FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusData FieldSet
Setter PlutusData PlutusData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PlutusData
x)
      in
        Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PlutusData -> Parser PlutusData
loop PlutusData
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PlutusData"
  buildMessage :: PlutusData -> Builder
buildMessage
    = \ PlutusData
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe PlutusData'PlutusData)
  PlutusData
  PlutusData
  (Maybe PlutusData'PlutusData)
  (Maybe PlutusData'PlutusData)
-> PlutusData -> Maybe PlutusData'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'plutusData") PlutusData
_x
              of
                Maybe PlutusData'PlutusData
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (PlutusData'Constr Constr
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Constr -> ByteString) -> Constr -> 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))
                          Constr -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Constr
v)
                (Prelude.Just (PlutusData'Map PlutusDataMap
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (PlutusDataMap -> ByteString) -> PlutusDataMap -> 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))
                          PlutusDataMap -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusDataMap
v)
                (Prelude.Just (PlutusData'BigInt 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)
                (Prelude.Just (PlutusData'BoundedBytes ByteString
v))
                  -> 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)
                (Prelude.Just (PlutusData'Array PlutusDataArray
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                       ((ByteString -> Builder)
-> (PlutusDataArray -> ByteString) -> PlutusDataArray -> 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))
                          PlutusDataArray -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusDataArray
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet PlutusData PlutusData FieldSet FieldSet
-> PlutusData -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PlutusData PlutusData FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusData FieldSet
Data.ProtoLens.unknownFields PlutusData
_x))
instance Control.DeepSeq.NFData PlutusData where
  rnf :: PlutusData -> ()
rnf
    = \ PlutusData
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PlutusData -> FieldSet
_PlutusData'_unknownFields PlutusData
x__)
             (Maybe PlutusData'PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PlutusData -> Maybe PlutusData'PlutusData
_PlutusData'plutusData PlutusData
x__) ())
instance Control.DeepSeq.NFData PlutusData'PlutusData where
  rnf :: PlutusData'PlutusData -> ()
rnf (PlutusData'Constr Constr
x__) = Constr -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Constr
x__
  rnf (PlutusData'Map PlutusDataMap
x__) = PlutusDataMap -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PlutusDataMap
x__
  rnf (PlutusData'BigInt BigInt
x__) = BigInt -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf BigInt
x__
  rnf (PlutusData'BoundedBytes ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (PlutusData'Array PlutusDataArray
x__) = PlutusDataArray -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PlutusDataArray
x__
_PlutusData'Constr ::
  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Constr
_PlutusData'Constr :: Prism' PlutusData'PlutusData Constr
_PlutusData'Constr
  = (Constr -> PlutusData'PlutusData)
-> (PlutusData'PlutusData -> Maybe Constr)
-> Prism' PlutusData'PlutusData Constr
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Constr -> PlutusData'PlutusData
PlutusData'Constr
      (\ PlutusData'PlutusData
p__
         -> case PlutusData'PlutusData
p__ of
              (PlutusData'Constr Constr
p__val) -> Constr -> Maybe Constr
forall a. a -> Maybe a
Prelude.Just Constr
p__val
              PlutusData'PlutusData
_otherwise -> Maybe Constr
forall a. Maybe a
Prelude.Nothing)
_PlutusData'Map ::
  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataMap
_PlutusData'Map :: Prism' PlutusData'PlutusData PlutusDataMap
_PlutusData'Map
  = (PlutusDataMap -> PlutusData'PlutusData)
-> (PlutusData'PlutusData -> Maybe PlutusDataMap)
-> Prism' PlutusData'PlutusData PlutusDataMap
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PlutusDataMap -> PlutusData'PlutusData
PlutusData'Map
      (\ PlutusData'PlutusData
p__
         -> case PlutusData'PlutusData
p__ of
              (PlutusData'Map PlutusDataMap
p__val) -> PlutusDataMap -> Maybe PlutusDataMap
forall a. a -> Maybe a
Prelude.Just PlutusDataMap
p__val
              PlutusData'PlutusData
_otherwise -> Maybe PlutusDataMap
forall a. Maybe a
Prelude.Nothing)
_PlutusData'BigInt ::
  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData BigInt
_PlutusData'BigInt :: Prism' PlutusData'PlutusData BigInt
_PlutusData'BigInt
  = (BigInt -> PlutusData'PlutusData)
-> (PlutusData'PlutusData -> Maybe BigInt)
-> Prism' PlutusData'PlutusData BigInt
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      BigInt -> PlutusData'PlutusData
PlutusData'BigInt
      (\ PlutusData'PlutusData
p__
         -> case PlutusData'PlutusData
p__ of
              (PlutusData'BigInt BigInt
p__val) -> BigInt -> Maybe BigInt
forall a. a -> Maybe a
Prelude.Just BigInt
p__val
              PlutusData'PlutusData
_otherwise -> Maybe BigInt
forall a. Maybe a
Prelude.Nothing)
_PlutusData'BoundedBytes ::
  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Data.ByteString.ByteString
_PlutusData'BoundedBytes :: Prism' PlutusData'PlutusData ByteString
_PlutusData'BoundedBytes
  = (ByteString -> PlutusData'PlutusData)
-> (PlutusData'PlutusData -> Maybe ByteString)
-> Prism' PlutusData'PlutusData ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> PlutusData'PlutusData
PlutusData'BoundedBytes
      (\ PlutusData'PlutusData
p__
         -> case PlutusData'PlutusData
p__ of
              (PlutusData'BoundedBytes ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              PlutusData'PlutusData
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_PlutusData'Array ::
  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataArray
_PlutusData'Array :: Prism' PlutusData'PlutusData PlutusDataArray
_PlutusData'Array
  = (PlutusDataArray -> PlutusData'PlutusData)
-> (PlutusData'PlutusData -> Maybe PlutusDataArray)
-> Prism' PlutusData'PlutusData PlutusDataArray
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PlutusDataArray -> PlutusData'PlutusData
PlutusData'Array
      (\ PlutusData'PlutusData
p__
         -> case PlutusData'PlutusData
p__ of
              (PlutusData'Array PlutusDataArray
p__val) -> PlutusDataArray -> Maybe PlutusDataArray
forall a. a -> Maybe a
Prelude.Just PlutusDataArray
p__val
              PlutusData'PlutusData
_otherwise -> Maybe PlutusDataArray
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' PlutusDataArray [PlutusData]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' PlutusDataArray (Data.Vector.Vector PlutusData)@ -}
data PlutusDataArray
  = PlutusDataArray'_constructor {PlutusDataArray -> Vector PlutusData
_PlutusDataArray'items :: !(Data.Vector.Vector PlutusData),
                                  PlutusDataArray -> FieldSet
_PlutusDataArray'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PlutusDataArray -> PlutusDataArray -> Bool
(PlutusDataArray -> PlutusDataArray -> Bool)
-> (PlutusDataArray -> PlutusDataArray -> Bool)
-> Eq PlutusDataArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PlutusDataArray -> PlutusDataArray -> Bool
== :: PlutusDataArray -> PlutusDataArray -> Bool
$c/= :: PlutusDataArray -> PlutusDataArray -> Bool
/= :: PlutusDataArray -> PlutusDataArray -> Bool
Prelude.Eq, Eq PlutusDataArray
Eq PlutusDataArray =>
(PlutusDataArray -> PlutusDataArray -> Ordering)
-> (PlutusDataArray -> PlutusDataArray -> Bool)
-> (PlutusDataArray -> PlutusDataArray -> Bool)
-> (PlutusDataArray -> PlutusDataArray -> Bool)
-> (PlutusDataArray -> PlutusDataArray -> Bool)
-> (PlutusDataArray -> PlutusDataArray -> PlutusDataArray)
-> (PlutusDataArray -> PlutusDataArray -> PlutusDataArray)
-> Ord PlutusDataArray
PlutusDataArray -> PlutusDataArray -> Bool
PlutusDataArray -> PlutusDataArray -> Ordering
PlutusDataArray -> PlutusDataArray -> PlutusDataArray
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 :: PlutusDataArray -> PlutusDataArray -> Ordering
compare :: PlutusDataArray -> PlutusDataArray -> Ordering
$c< :: PlutusDataArray -> PlutusDataArray -> Bool
< :: PlutusDataArray -> PlutusDataArray -> Bool
$c<= :: PlutusDataArray -> PlutusDataArray -> Bool
<= :: PlutusDataArray -> PlutusDataArray -> Bool
$c> :: PlutusDataArray -> PlutusDataArray -> Bool
> :: PlutusDataArray -> PlutusDataArray -> Bool
$c>= :: PlutusDataArray -> PlutusDataArray -> Bool
>= :: PlutusDataArray -> PlutusDataArray -> Bool
$cmax :: PlutusDataArray -> PlutusDataArray -> PlutusDataArray
max :: PlutusDataArray -> PlutusDataArray -> PlutusDataArray
$cmin :: PlutusDataArray -> PlutusDataArray -> PlutusDataArray
min :: PlutusDataArray -> PlutusDataArray -> PlutusDataArray
Prelude.Ord)
instance Prelude.Show PlutusDataArray where
  showsPrec :: Int -> PlutusDataArray -> ShowS
showsPrec Int
_ PlutusDataArray
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PlutusDataArray -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PlutusDataArray
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PlutusDataArray "items" [PlutusData] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "items"
-> ([PlutusData] -> f [PlutusData])
-> PlutusDataArray
-> f PlutusDataArray
fieldOf Proxy# "items"
_
    = ((Vector PlutusData -> f (Vector PlutusData))
 -> PlutusDataArray -> f PlutusDataArray)
-> (([PlutusData] -> f [PlutusData])
    -> Vector PlutusData -> f (Vector PlutusData))
-> ([PlutusData] -> f [PlutusData])
-> PlutusDataArray
-> f PlutusDataArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataArray -> Vector PlutusData)
-> (PlutusDataArray -> Vector PlutusData -> PlutusDataArray)
-> Lens
     PlutusDataArray
     PlutusDataArray
     (Vector PlutusData)
     (Vector PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataArray -> Vector PlutusData
_PlutusDataArray'items
           (\ PlutusDataArray
x__ Vector PlutusData
y__ -> PlutusDataArray
x__ {_PlutusDataArray'items = 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 PlutusDataArray "vec'items" (Data.Vector.Vector PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'items"
-> (Vector PlutusData -> f (Vector PlutusData))
-> PlutusDataArray
-> f PlutusDataArray
fieldOf Proxy# "vec'items"
_
    = ((Vector PlutusData -> f (Vector PlutusData))
 -> PlutusDataArray -> f PlutusDataArray)
-> ((Vector PlutusData -> f (Vector PlutusData))
    -> Vector PlutusData -> f (Vector PlutusData))
-> (Vector PlutusData -> f (Vector PlutusData))
-> PlutusDataArray
-> f PlutusDataArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataArray -> Vector PlutusData)
-> (PlutusDataArray -> Vector PlutusData -> PlutusDataArray)
-> Lens
     PlutusDataArray
     PlutusDataArray
     (Vector PlutusData)
     (Vector PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataArray -> Vector PlutusData
_PlutusDataArray'items
           (\ PlutusDataArray
x__ Vector PlutusData
y__ -> PlutusDataArray
x__ {_PlutusDataArray'items = y__}))
        (Vector PlutusData -> f (Vector PlutusData))
-> Vector PlutusData -> f (Vector PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PlutusDataArray where
  messageName :: Proxy PlutusDataArray -> Text
messageName Proxy PlutusDataArray
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PlutusDataArray"
  packedMessageDescriptor :: Proxy PlutusDataArray -> ByteString
packedMessageDescriptor Proxy PlutusDataArray
_
    = ByteString
"\n\
      \\SIPlutusDataArray\DC29\n\
      \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems"
  packedFileDescriptor :: Proxy PlutusDataArray -> ByteString
packedFileDescriptor Proxy PlutusDataArray
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PlutusDataArray)
fieldsByTag
    = let
        items__field_descriptor :: FieldDescriptor PlutusDataArray
items__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor PlutusDataArray PlutusData
-> FieldDescriptor PlutusDataArray
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"items"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Packing
-> Lens' PlutusDataArray [PlutusData]
-> FieldAccessor PlutusDataArray 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 @"items")) ::
              Data.ProtoLens.FieldDescriptor PlutusDataArray
      in
        [(Tag, FieldDescriptor PlutusDataArray)]
-> Map Tag (FieldDescriptor PlutusDataArray)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PlutusDataArray
items__field_descriptor)]
  unknownFields :: Lens' PlutusDataArray FieldSet
unknownFields
    = (PlutusDataArray -> FieldSet)
-> (PlutusDataArray -> FieldSet -> PlutusDataArray)
-> Lens' PlutusDataArray FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PlutusDataArray -> FieldSet
_PlutusDataArray'_unknownFields
        (\ PlutusDataArray
x__ FieldSet
y__ -> PlutusDataArray
x__ {_PlutusDataArray'_unknownFields = y__})
  defMessage :: PlutusDataArray
defMessage
    = PlutusDataArray'_constructor
        {_PlutusDataArray'items :: Vector PlutusData
_PlutusDataArray'items = Vector PlutusData
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _PlutusDataArray'_unknownFields :: FieldSet
_PlutusDataArray'_unknownFields = []}
  parseMessage :: Parser PlutusDataArray
parseMessage
    = let
        loop ::
          PlutusDataArray
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData
             -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataArray
        loop :: PlutusDataArray
-> Growing Vector RealWorld PlutusData -> Parser PlutusDataArray
loop PlutusDataArray
x Growing Vector RealWorld PlutusData
mutable'items
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector PlutusData
frozen'items <- IO (Vector PlutusData) -> Parser (Vector PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) PlutusData -> IO (Vector PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld PlutusData
Growing Vector (PrimState IO) PlutusData
mutable'items)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PlutusDataArray -> Parser PlutusDataArray
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PlutusDataArray PlutusDataArray FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusDataArray -> PlutusDataArray
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PlutusDataArray FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataArray FieldSet
Setter PlutusDataArray PlutusDataArray FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  PlutusDataArray
  PlutusDataArray
  (Vector PlutusData)
  (Vector PlutusData)
-> Vector PlutusData -> PlutusDataArray -> PlutusDataArray
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 @"vec'items") Vector PlutusData
frozen'items PlutusDataArray
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"items"
                                Growing Vector RealWorld PlutusData
v <- IO (Growing Vector RealWorld PlutusData)
-> Parser (Growing Vector RealWorld PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) PlutusData
-> PlutusData -> IO (Growing Vector (PrimState IO) PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld PlutusData
Growing Vector (PrimState IO) PlutusData
mutable'items PlutusData
y)
                                PlutusDataArray
-> Growing Vector RealWorld PlutusData -> Parser PlutusDataArray
loop PlutusDataArray
x Growing Vector RealWorld PlutusData
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PlutusDataArray
-> Growing Vector RealWorld PlutusData -> Parser PlutusDataArray
loop
                                  (Setter PlutusDataArray PlutusDataArray FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusDataArray -> PlutusDataArray
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PlutusDataArray FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataArray FieldSet
Setter PlutusDataArray PlutusDataArray FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PlutusDataArray
x)
                                  Growing Vector RealWorld PlutusData
mutable'items
      in
        Parser PlutusDataArray -> String -> Parser PlutusDataArray
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld PlutusData
mutable'items <- 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
              PlutusDataArray
-> Growing Vector RealWorld PlutusData -> Parser PlutusDataArray
loop PlutusDataArray
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld PlutusData
mutable'items)
          String
"PlutusDataArray"
  buildMessage :: PlutusDataArray -> Builder
buildMessage
    = \ PlutusDataArray
_x
        -> 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
10)
                        ((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)
  PlutusDataArray
  PlutusDataArray
  (Vector PlutusData)
  (Vector PlutusData)
-> PlutusDataArray -> 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'items") PlutusDataArray
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet PlutusDataArray PlutusDataArray FieldSet FieldSet
-> PlutusDataArray -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PlutusDataArray PlutusDataArray FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataArray FieldSet
Data.ProtoLens.unknownFields PlutusDataArray
_x))
instance Control.DeepSeq.NFData PlutusDataArray where
  rnf :: PlutusDataArray -> ()
rnf
    = \ PlutusDataArray
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PlutusDataArray -> FieldSet
_PlutusDataArray'_unknownFields PlutusDataArray
x__)
             (Vector PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PlutusDataArray -> Vector PlutusData
_PlutusDataArray'items PlutusDataArray
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pairs' @:: Lens' PlutusDataMap [PlutusDataPair]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'pairs' @:: Lens' PlutusDataMap (Data.Vector.Vector PlutusDataPair)@ -}
data PlutusDataMap
  = PlutusDataMap'_constructor {PlutusDataMap -> Vector PlutusDataPair
_PlutusDataMap'pairs :: !(Data.Vector.Vector PlutusDataPair),
                                PlutusDataMap -> FieldSet
_PlutusDataMap'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PlutusDataMap -> PlutusDataMap -> Bool
(PlutusDataMap -> PlutusDataMap -> Bool)
-> (PlutusDataMap -> PlutusDataMap -> Bool) -> Eq PlutusDataMap
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PlutusDataMap -> PlutusDataMap -> Bool
== :: PlutusDataMap -> PlutusDataMap -> Bool
$c/= :: PlutusDataMap -> PlutusDataMap -> Bool
/= :: PlutusDataMap -> PlutusDataMap -> Bool
Prelude.Eq, Eq PlutusDataMap
Eq PlutusDataMap =>
(PlutusDataMap -> PlutusDataMap -> Ordering)
-> (PlutusDataMap -> PlutusDataMap -> Bool)
-> (PlutusDataMap -> PlutusDataMap -> Bool)
-> (PlutusDataMap -> PlutusDataMap -> Bool)
-> (PlutusDataMap -> PlutusDataMap -> Bool)
-> (PlutusDataMap -> PlutusDataMap -> PlutusDataMap)
-> (PlutusDataMap -> PlutusDataMap -> PlutusDataMap)
-> Ord PlutusDataMap
PlutusDataMap -> PlutusDataMap -> Bool
PlutusDataMap -> PlutusDataMap -> Ordering
PlutusDataMap -> PlutusDataMap -> PlutusDataMap
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 :: PlutusDataMap -> PlutusDataMap -> Ordering
compare :: PlutusDataMap -> PlutusDataMap -> Ordering
$c< :: PlutusDataMap -> PlutusDataMap -> Bool
< :: PlutusDataMap -> PlutusDataMap -> Bool
$c<= :: PlutusDataMap -> PlutusDataMap -> Bool
<= :: PlutusDataMap -> PlutusDataMap -> Bool
$c> :: PlutusDataMap -> PlutusDataMap -> Bool
> :: PlutusDataMap -> PlutusDataMap -> Bool
$c>= :: PlutusDataMap -> PlutusDataMap -> Bool
>= :: PlutusDataMap -> PlutusDataMap -> Bool
$cmax :: PlutusDataMap -> PlutusDataMap -> PlutusDataMap
max :: PlutusDataMap -> PlutusDataMap -> PlutusDataMap
$cmin :: PlutusDataMap -> PlutusDataMap -> PlutusDataMap
min :: PlutusDataMap -> PlutusDataMap -> PlutusDataMap
Prelude.Ord)
instance Prelude.Show PlutusDataMap where
  showsPrec :: Int -> PlutusDataMap -> ShowS
showsPrec Int
_ PlutusDataMap
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PlutusDataMap -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PlutusDataMap
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PlutusDataMap "pairs" [PlutusDataPair] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pairs"
-> ([PlutusDataPair] -> f [PlutusDataPair])
-> PlutusDataMap
-> f PlutusDataMap
fieldOf Proxy# "pairs"
_
    = ((Vector PlutusDataPair -> f (Vector PlutusDataPair))
 -> PlutusDataMap -> f PlutusDataMap)
-> (([PlutusDataPair] -> f [PlutusDataPair])
    -> Vector PlutusDataPair -> f (Vector PlutusDataPair))
-> ([PlutusDataPair] -> f [PlutusDataPair])
-> PlutusDataMap
-> f PlutusDataMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataMap -> Vector PlutusDataPair)
-> (PlutusDataMap -> Vector PlutusDataPair -> PlutusDataMap)
-> Lens
     PlutusDataMap
     PlutusDataMap
     (Vector PlutusDataPair)
     (Vector PlutusDataPair)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataMap -> Vector PlutusDataPair
_PlutusDataMap'pairs
           (\ PlutusDataMap
x__ Vector PlutusDataPair
y__ -> PlutusDataMap
x__ {_PlutusDataMap'pairs = y__}))
        ((Vector PlutusDataPair -> [PlutusDataPair])
-> (Vector PlutusDataPair
    -> [PlutusDataPair] -> Vector PlutusDataPair)
-> Lens
     (Vector PlutusDataPair)
     (Vector PlutusDataPair)
     [PlutusDataPair]
     [PlutusDataPair]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector PlutusDataPair -> [PlutusDataPair]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector PlutusDataPair
_ [PlutusDataPair]
y__ -> [PlutusDataPair] -> Vector PlutusDataPair
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [PlutusDataPair]
y__))
instance Data.ProtoLens.Field.HasField PlutusDataMap "vec'pairs" (Data.Vector.Vector PlutusDataPair) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'pairs"
-> (Vector PlutusDataPair -> f (Vector PlutusDataPair))
-> PlutusDataMap
-> f PlutusDataMap
fieldOf Proxy# "vec'pairs"
_
    = ((Vector PlutusDataPair -> f (Vector PlutusDataPair))
 -> PlutusDataMap -> f PlutusDataMap)
-> ((Vector PlutusDataPair -> f (Vector PlutusDataPair))
    -> Vector PlutusDataPair -> f (Vector PlutusDataPair))
-> (Vector PlutusDataPair -> f (Vector PlutusDataPair))
-> PlutusDataMap
-> f PlutusDataMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataMap -> Vector PlutusDataPair)
-> (PlutusDataMap -> Vector PlutusDataPair -> PlutusDataMap)
-> Lens
     PlutusDataMap
     PlutusDataMap
     (Vector PlutusDataPair)
     (Vector PlutusDataPair)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataMap -> Vector PlutusDataPair
_PlutusDataMap'pairs
           (\ PlutusDataMap
x__ Vector PlutusDataPair
y__ -> PlutusDataMap
x__ {_PlutusDataMap'pairs = y__}))
        (Vector PlutusDataPair -> f (Vector PlutusDataPair))
-> Vector PlutusDataPair -> f (Vector PlutusDataPair)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PlutusDataMap where
  messageName :: Proxy PlutusDataMap -> Text
messageName Proxy PlutusDataMap
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PlutusDataMap"
  packedMessageDescriptor :: Proxy PlutusDataMap -> ByteString
packedMessageDescriptor Proxy PlutusDataMap
_
    = ByteString
"\n\
      \\rPlutusDataMap\DC2=\n\
      \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs"
  packedFileDescriptor :: Proxy PlutusDataMap -> ByteString
packedFileDescriptor Proxy PlutusDataMap
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PlutusDataMap)
fieldsByTag
    = let
        pairs__field_descriptor :: FieldDescriptor PlutusDataMap
pairs__field_descriptor
          = String
-> FieldTypeDescriptor PlutusDataPair
-> FieldAccessor PlutusDataMap PlutusDataPair
-> FieldDescriptor PlutusDataMap
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pairs"
              (MessageOrGroup -> FieldTypeDescriptor PlutusDataPair
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusDataPair)
              (Packing
-> Lens' PlutusDataMap [PlutusDataPair]
-> FieldAccessor PlutusDataMap PlutusDataPair
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 @"pairs")) ::
              Data.ProtoLens.FieldDescriptor PlutusDataMap
      in
        [(Tag, FieldDescriptor PlutusDataMap)]
-> Map Tag (FieldDescriptor PlutusDataMap)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PlutusDataMap
pairs__field_descriptor)]
  unknownFields :: Lens' PlutusDataMap FieldSet
unknownFields
    = (PlutusDataMap -> FieldSet)
-> (PlutusDataMap -> FieldSet -> PlutusDataMap)
-> Lens' PlutusDataMap FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PlutusDataMap -> FieldSet
_PlutusDataMap'_unknownFields
        (\ PlutusDataMap
x__ FieldSet
y__ -> PlutusDataMap
x__ {_PlutusDataMap'_unknownFields = y__})
  defMessage :: PlutusDataMap
defMessage
    = PlutusDataMap'_constructor
        {_PlutusDataMap'pairs :: Vector PlutusDataPair
_PlutusDataMap'pairs = Vector PlutusDataPair
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _PlutusDataMap'_unknownFields :: FieldSet
_PlutusDataMap'_unknownFields = []}
  parseMessage :: Parser PlutusDataMap
parseMessage
    = let
        loop ::
          PlutusDataMap
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusDataPair
             -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataMap
        loop :: PlutusDataMap
-> Growing Vector RealWorld PlutusDataPair -> Parser PlutusDataMap
loop PlutusDataMap
x Growing Vector RealWorld PlutusDataPair
mutable'pairs
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector PlutusDataPair
frozen'pairs <- IO (Vector PlutusDataPair) -> Parser (Vector PlutusDataPair)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) PlutusDataPair
-> IO (Vector PlutusDataPair)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld PlutusDataPair
Growing Vector (PrimState IO) PlutusDataPair
mutable'pairs)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PlutusDataMap -> Parser PlutusDataMap
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PlutusDataMap PlutusDataMap FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusDataMap -> PlutusDataMap
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PlutusDataMap FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataMap FieldSet
Setter PlutusDataMap PlutusDataMap FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  PlutusDataMap
  PlutusDataMap
  (Vector PlutusDataPair)
  (Vector PlutusDataPair)
-> Vector PlutusDataPair -> PlutusDataMap -> PlutusDataMap
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 @"vec'pairs") Vector PlutusDataPair
frozen'pairs PlutusDataMap
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !PlutusDataPair
y <- Parser PlutusDataPair -> String -> Parser PlutusDataPair
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser PlutusDataPair -> Parser PlutusDataPair
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser PlutusDataPair
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"pairs"
                                Growing Vector RealWorld PlutusDataPair
v <- IO (Growing Vector RealWorld PlutusDataPair)
-> Parser (Growing Vector RealWorld PlutusDataPair)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) PlutusDataPair
-> PlutusDataPair
-> IO (Growing Vector (PrimState IO) PlutusDataPair)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld PlutusDataPair
Growing Vector (PrimState IO) PlutusDataPair
mutable'pairs PlutusDataPair
y)
                                PlutusDataMap
-> Growing Vector RealWorld PlutusDataPair -> Parser PlutusDataMap
loop PlutusDataMap
x Growing Vector RealWorld PlutusDataPair
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PlutusDataMap
-> Growing Vector RealWorld PlutusDataPair -> Parser PlutusDataMap
loop
                                  (Setter PlutusDataMap PlutusDataMap FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusDataMap -> PlutusDataMap
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PlutusDataMap FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataMap FieldSet
Setter PlutusDataMap PlutusDataMap FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PlutusDataMap
x)
                                  Growing Vector RealWorld PlutusDataPair
mutable'pairs
      in
        Parser PlutusDataMap -> String -> Parser PlutusDataMap
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld PlutusDataPair
mutable'pairs <- IO (Growing Vector RealWorld PlutusDataPair)
-> Parser (Growing Vector RealWorld PlutusDataPair)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld PlutusDataPair)
IO (Growing Vector (PrimState IO) PlutusDataPair)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              PlutusDataMap
-> Growing Vector RealWorld PlutusDataPair -> Parser PlutusDataMap
loop PlutusDataMap
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld PlutusDataPair
mutable'pairs)
          String
"PlutusDataMap"
  buildMessage :: PlutusDataMap -> Builder
buildMessage
    = \ PlutusDataMap
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((PlutusDataPair -> Builder) -> Vector PlutusDataPair -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ PlutusDataPair
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (PlutusDataPair -> ByteString) -> PlutusDataPair -> 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))
                           PlutusDataPair -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusDataPair
_v))
                (FoldLike
  (Vector PlutusDataPair)
  PlutusDataMap
  PlutusDataMap
  (Vector PlutusDataPair)
  (Vector PlutusDataPair)
-> PlutusDataMap -> Vector PlutusDataPair
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'pairs") PlutusDataMap
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet PlutusDataMap PlutusDataMap FieldSet FieldSet
-> PlutusDataMap -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PlutusDataMap PlutusDataMap FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataMap FieldSet
Data.ProtoLens.unknownFields PlutusDataMap
_x))
instance Control.DeepSeq.NFData PlutusDataMap where
  rnf :: PlutusDataMap -> ()
rnf
    = \ PlutusDataMap
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PlutusDataMap -> FieldSet
_PlutusDataMap'_unknownFields PlutusDataMap
x__)
             (Vector PlutusDataPair -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PlutusDataMap -> Vector PlutusDataPair
_PlutusDataMap'pairs PlutusDataMap
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.key' @:: Lens' PlutusDataPair PlutusData@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'key' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' PlutusDataPair PlutusData@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@ -}
data PlutusDataPair
  = PlutusDataPair'_constructor {PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'key :: !(Prelude.Maybe PlutusData),
                                 PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'value :: !(Prelude.Maybe PlutusData),
                                 PlutusDataPair -> FieldSet
_PlutusDataPair'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PlutusDataPair -> PlutusDataPair -> Bool
(PlutusDataPair -> PlutusDataPair -> Bool)
-> (PlutusDataPair -> PlutusDataPair -> Bool) -> Eq PlutusDataPair
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PlutusDataPair -> PlutusDataPair -> Bool
== :: PlutusDataPair -> PlutusDataPair -> Bool
$c/= :: PlutusDataPair -> PlutusDataPair -> Bool
/= :: PlutusDataPair -> PlutusDataPair -> Bool
Prelude.Eq, Eq PlutusDataPair
Eq PlutusDataPair =>
(PlutusDataPair -> PlutusDataPair -> Ordering)
-> (PlutusDataPair -> PlutusDataPair -> Bool)
-> (PlutusDataPair -> PlutusDataPair -> Bool)
-> (PlutusDataPair -> PlutusDataPair -> Bool)
-> (PlutusDataPair -> PlutusDataPair -> Bool)
-> (PlutusDataPair -> PlutusDataPair -> PlutusDataPair)
-> (PlutusDataPair -> PlutusDataPair -> PlutusDataPair)
-> Ord PlutusDataPair
PlutusDataPair -> PlutusDataPair -> Bool
PlutusDataPair -> PlutusDataPair -> Ordering
PlutusDataPair -> PlutusDataPair -> PlutusDataPair
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 :: PlutusDataPair -> PlutusDataPair -> Ordering
compare :: PlutusDataPair -> PlutusDataPair -> Ordering
$c< :: PlutusDataPair -> PlutusDataPair -> Bool
< :: PlutusDataPair -> PlutusDataPair -> Bool
$c<= :: PlutusDataPair -> PlutusDataPair -> Bool
<= :: PlutusDataPair -> PlutusDataPair -> Bool
$c> :: PlutusDataPair -> PlutusDataPair -> Bool
> :: PlutusDataPair -> PlutusDataPair -> Bool
$c>= :: PlutusDataPair -> PlutusDataPair -> Bool
>= :: PlutusDataPair -> PlutusDataPair -> Bool
$cmax :: PlutusDataPair -> PlutusDataPair -> PlutusDataPair
max :: PlutusDataPair -> PlutusDataPair -> PlutusDataPair
$cmin :: PlutusDataPair -> PlutusDataPair -> PlutusDataPair
min :: PlutusDataPair -> PlutusDataPair -> PlutusDataPair
Prelude.Ord)
instance Prelude.Show PlutusDataPair where
  showsPrec :: Int -> PlutusDataPair -> ShowS
showsPrec Int
_ PlutusDataPair
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PlutusDataPair -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PlutusDataPair
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PlutusDataPair "key" PlutusData where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (PlutusData -> f PlutusData)
-> PlutusDataPair
-> f PlutusDataPair
fieldOf Proxy# "key"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> PlutusDataPair -> f PlutusDataPair)
-> ((PlutusData -> f PlutusData)
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (PlutusData -> f PlutusData)
-> PlutusDataPair
-> f PlutusDataPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataPair -> Maybe PlutusData)
-> (PlutusDataPair -> Maybe PlutusData -> PlutusDataPair)
-> Lens
     PlutusDataPair PlutusDataPair (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'key (\ PlutusDataPair
x__ Maybe PlutusData
y__ -> PlutusDataPair
x__ {_PlutusDataPair'key = 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 PlutusDataPair "maybe'key" (Prelude.Maybe PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'key"
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> PlutusDataPair
-> f PlutusDataPair
fieldOf Proxy# "maybe'key"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> PlutusDataPair -> f PlutusDataPair)
-> ((Maybe PlutusData -> f (Maybe PlutusData))
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> PlutusDataPair
-> f PlutusDataPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataPair -> Maybe PlutusData)
-> (PlutusDataPair -> Maybe PlutusData -> PlutusDataPair)
-> Lens
     PlutusDataPair PlutusDataPair (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'key (\ PlutusDataPair
x__ Maybe PlutusData
y__ -> PlutusDataPair
x__ {_PlutusDataPair'key = y__}))
        (Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe PlutusData -> f (Maybe PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PlutusDataPair "value" PlutusData where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (PlutusData -> f PlutusData)
-> PlutusDataPair
-> f PlutusDataPair
fieldOf Proxy# "value"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> PlutusDataPair -> f PlutusDataPair)
-> ((PlutusData -> f PlutusData)
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (PlutusData -> f PlutusData)
-> PlutusDataPair
-> f PlutusDataPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataPair -> Maybe PlutusData)
-> (PlutusDataPair -> Maybe PlutusData -> PlutusDataPair)
-> Lens
     PlutusDataPair PlutusDataPair (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'value
           (\ PlutusDataPair
x__ Maybe PlutusData
y__ -> PlutusDataPair
x__ {_PlutusDataPair'value = 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 PlutusDataPair "maybe'value" (Prelude.Maybe PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> PlutusDataPair
-> f PlutusDataPair
fieldOf Proxy# "maybe'value"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> PlutusDataPair -> f PlutusDataPair)
-> ((Maybe PlutusData -> f (Maybe PlutusData))
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> PlutusDataPair
-> f PlutusDataPair
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlutusDataPair -> Maybe PlutusData)
-> (PlutusDataPair -> Maybe PlutusData -> PlutusDataPair)
-> Lens
     PlutusDataPair PlutusDataPair (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'value
           (\ PlutusDataPair
x__ Maybe PlutusData
y__ -> PlutusDataPair
x__ {_PlutusDataPair'value = y__}))
        (Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe PlutusData -> f (Maybe PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PlutusDataPair where
  messageName :: Proxy PlutusDataPair -> Text
messageName Proxy PlutusDataPair
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PlutusDataPair"
  packedMessageDescriptor :: Proxy PlutusDataPair -> ByteString
packedMessageDescriptor Proxy PlutusDataPair
_
    = ByteString
"\n\
      \\SOPlutusDataPair\DC25\n\
      \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\
      \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue"
  packedFileDescriptor :: Proxy PlutusDataPair -> ByteString
packedFileDescriptor Proxy PlutusDataPair
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PlutusDataPair)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor PlutusDataPair
key__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor PlutusDataPair PlutusData
-> FieldDescriptor PlutusDataPair
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Lens
  PlutusDataPair PlutusDataPair (Maybe PlutusData) (Maybe PlutusData)
-> FieldAccessor PlutusDataPair 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'key")) ::
              Data.ProtoLens.FieldDescriptor PlutusDataPair
        value__field_descriptor :: FieldDescriptor PlutusDataPair
value__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor PlutusDataPair PlutusData
-> FieldDescriptor PlutusDataPair
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Lens
  PlutusDataPair PlutusDataPair (Maybe PlutusData) (Maybe PlutusData)
-> FieldAccessor PlutusDataPair 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'value")) ::
              Data.ProtoLens.FieldDescriptor PlutusDataPair
      in
        [(Tag, FieldDescriptor PlutusDataPair)]
-> Map Tag (FieldDescriptor PlutusDataPair)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PlutusDataPair
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PlutusDataPair
value__field_descriptor)]
  unknownFields :: Lens' PlutusDataPair FieldSet
unknownFields
    = (PlutusDataPair -> FieldSet)
-> (PlutusDataPair -> FieldSet -> PlutusDataPair)
-> Lens' PlutusDataPair FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PlutusDataPair -> FieldSet
_PlutusDataPair'_unknownFields
        (\ PlutusDataPair
x__ FieldSet
y__ -> PlutusDataPair
x__ {_PlutusDataPair'_unknownFields = y__})
  defMessage :: PlutusDataPair
defMessage
    = PlutusDataPair'_constructor
        {_PlutusDataPair'key :: Maybe PlutusData
_PlutusDataPair'key = Maybe PlutusData
forall a. Maybe a
Prelude.Nothing,
         _PlutusDataPair'value :: Maybe PlutusData
_PlutusDataPair'value = Maybe PlutusData
forall a. Maybe a
Prelude.Nothing,
         _PlutusDataPair'_unknownFields :: FieldSet
_PlutusDataPair'_unknownFields = []}
  parseMessage :: Parser PlutusDataPair
parseMessage
    = let
        loop ::
          PlutusDataPair
          -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataPair
        loop :: PlutusDataPair -> Parser PlutusDataPair
loop PlutusDataPair
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PlutusDataPair -> Parser PlutusDataPair
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PlutusDataPair PlutusDataPair FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusDataPair -> PlutusDataPair
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PlutusDataPair FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataPair FieldSet
Setter PlutusDataPair PlutusDataPair FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) PlutusDataPair
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"key"
                                PlutusDataPair -> Parser PlutusDataPair
loop (Setter PlutusDataPair PlutusDataPair PlutusData PlutusData
-> PlutusData -> PlutusDataPair -> PlutusDataPair
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") PlutusData
y PlutusDataPair
x)
                        Word64
18
                          -> do PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"value"
                                PlutusDataPair -> Parser PlutusDataPair
loop (Setter PlutusDataPair PlutusDataPair PlutusData PlutusData
-> PlutusData -> PlutusDataPair -> PlutusDataPair
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") PlutusData
y PlutusDataPair
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PlutusDataPair -> Parser PlutusDataPair
loop
                                  (Setter PlutusDataPair PlutusDataPair FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlutusDataPair -> PlutusDataPair
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PlutusDataPair FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataPair FieldSet
Setter PlutusDataPair PlutusDataPair FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PlutusDataPair
x)
      in
        Parser PlutusDataPair -> String -> Parser PlutusDataPair
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PlutusDataPair -> Parser PlutusDataPair
loop PlutusDataPair
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PlutusDataPair"
  buildMessage :: PlutusDataPair -> Builder
buildMessage
    = \ PlutusDataPair
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe PlutusData)
  PlutusDataPair
  PlutusDataPair
  (Maybe PlutusData)
  (Maybe PlutusData)
-> PlutusDataPair -> 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'key") PlutusDataPair
_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
10)
                       ((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 PlutusData)
  PlutusDataPair
  PlutusDataPair
  (Maybe PlutusData)
  (Maybe PlutusData)
-> PlutusDataPair -> 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'value") PlutusDataPair
_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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet PlutusDataPair PlutusDataPair FieldSet FieldSet
-> PlutusDataPair -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PlutusDataPair PlutusDataPair FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PlutusDataPair FieldSet
Data.ProtoLens.unknownFields PlutusDataPair
_x)))
instance Control.DeepSeq.NFData PlutusDataPair where
  rnf :: PlutusDataPair -> ()
rnf
    = \ PlutusDataPair
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PlutusDataPair -> FieldSet
_PlutusDataPair'_unknownFields PlutusDataPair
x__)
             (Maybe PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'key PlutusDataPair
x__)
                (Maybe PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PlutusDataPair -> Maybe PlutusData
_PlutusDataPair'value PlutusDataPair
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.url' @:: Lens' PoolMetadata Data.Text.Text@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' PoolMetadata Data.ByteString.ByteString@ -}
data PoolMetadata
  = PoolMetadata'_constructor {PoolMetadata -> Text
_PoolMetadata'url :: !Data.Text.Text,
                               PoolMetadata -> ByteString
_PoolMetadata'hash :: !Data.ByteString.ByteString,
                               PoolMetadata -> FieldSet
_PoolMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PoolMetadata -> PoolMetadata -> Bool
(PoolMetadata -> PoolMetadata -> Bool)
-> (PoolMetadata -> PoolMetadata -> Bool) -> Eq PoolMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PoolMetadata -> PoolMetadata -> Bool
== :: PoolMetadata -> PoolMetadata -> Bool
$c/= :: PoolMetadata -> PoolMetadata -> Bool
/= :: PoolMetadata -> PoolMetadata -> Bool
Prelude.Eq, Eq PoolMetadata
Eq PoolMetadata =>
(PoolMetadata -> PoolMetadata -> Ordering)
-> (PoolMetadata -> PoolMetadata -> Bool)
-> (PoolMetadata -> PoolMetadata -> Bool)
-> (PoolMetadata -> PoolMetadata -> Bool)
-> (PoolMetadata -> PoolMetadata -> Bool)
-> (PoolMetadata -> PoolMetadata -> PoolMetadata)
-> (PoolMetadata -> PoolMetadata -> PoolMetadata)
-> Ord PoolMetadata
PoolMetadata -> PoolMetadata -> Bool
PoolMetadata -> PoolMetadata -> Ordering
PoolMetadata -> PoolMetadata -> PoolMetadata
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 :: PoolMetadata -> PoolMetadata -> Ordering
compare :: PoolMetadata -> PoolMetadata -> Ordering
$c< :: PoolMetadata -> PoolMetadata -> Bool
< :: PoolMetadata -> PoolMetadata -> Bool
$c<= :: PoolMetadata -> PoolMetadata -> Bool
<= :: PoolMetadata -> PoolMetadata -> Bool
$c> :: PoolMetadata -> PoolMetadata -> Bool
> :: PoolMetadata -> PoolMetadata -> Bool
$c>= :: PoolMetadata -> PoolMetadata -> Bool
>= :: PoolMetadata -> PoolMetadata -> Bool
$cmax :: PoolMetadata -> PoolMetadata -> PoolMetadata
max :: PoolMetadata -> PoolMetadata -> PoolMetadata
$cmin :: PoolMetadata -> PoolMetadata -> PoolMetadata
min :: PoolMetadata -> PoolMetadata -> PoolMetadata
Prelude.Ord)
instance Prelude.Show PoolMetadata where
  showsPrec :: Int -> PoolMetadata -> ShowS
showsPrec Int
_ PoolMetadata
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PoolMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PoolMetadata
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PoolMetadata "url" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "url" -> (Text -> f Text) -> PoolMetadata -> f PoolMetadata
fieldOf Proxy# "url"
_
    = ((Text -> f Text) -> PoolMetadata -> f PoolMetadata)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PoolMetadata
-> f PoolMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolMetadata -> Text)
-> (PoolMetadata -> Text -> PoolMetadata)
-> Lens PoolMetadata PoolMetadata Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolMetadata -> Text
_PoolMetadata'url (\ PoolMetadata
x__ Text
y__ -> PoolMetadata
x__ {_PoolMetadata'url = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolMetadata "hash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash"
-> (ByteString -> f ByteString) -> PoolMetadata -> f PoolMetadata
fieldOf Proxy# "hash"
_
    = ((ByteString -> f ByteString) -> PoolMetadata -> f PoolMetadata)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> PoolMetadata
-> f PoolMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolMetadata -> ByteString)
-> (PoolMetadata -> ByteString -> PoolMetadata)
-> Lens PoolMetadata PoolMetadata ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolMetadata -> ByteString
_PoolMetadata'hash (\ PoolMetadata
x__ ByteString
y__ -> PoolMetadata
x__ {_PoolMetadata'hash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PoolMetadata where
  messageName :: Proxy PoolMetadata -> Text
messageName Proxy PoolMetadata
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PoolMetadata"
  packedMessageDescriptor :: Proxy PoolMetadata -> ByteString
packedMessageDescriptor Proxy PoolMetadata
_
    = ByteString
"\n\
      \\fPoolMetadata\DC2\DLE\n\
      \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\
      \\EOThash\CAN\STX \SOH(\fR\EOThash"
  packedFileDescriptor :: Proxy PoolMetadata -> ByteString
packedFileDescriptor Proxy PoolMetadata
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PoolMetadata)
fieldsByTag
    = let
        url__field_descriptor :: FieldDescriptor PoolMetadata
url__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PoolMetadata Text
-> FieldDescriptor PoolMetadata
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 PoolMetadata PoolMetadata Text Text
-> FieldAccessor PoolMetadata 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 PoolMetadata
        hash__field_descriptor :: FieldDescriptor PoolMetadata
hash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PoolMetadata ByteString
-> FieldDescriptor PoolMetadata
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 PoolMetadata PoolMetadata ByteString ByteString
-> FieldAccessor PoolMetadata 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 PoolMetadata
      in
        [(Tag, FieldDescriptor PoolMetadata)]
-> Map Tag (FieldDescriptor PoolMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PoolMetadata
url__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PoolMetadata
hash__field_descriptor)]
  unknownFields :: Lens' PoolMetadata FieldSet
unknownFields
    = (PoolMetadata -> FieldSet)
-> (PoolMetadata -> FieldSet -> PoolMetadata)
-> Lens' PoolMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PoolMetadata -> FieldSet
_PoolMetadata'_unknownFields
        (\ PoolMetadata
x__ FieldSet
y__ -> PoolMetadata
x__ {_PoolMetadata'_unknownFields = y__})
  defMessage :: PoolMetadata
defMessage
    = PoolMetadata'_constructor
        {_PoolMetadata'url :: Text
_PoolMetadata'url = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolMetadata'hash :: ByteString
_PoolMetadata'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolMetadata'_unknownFields :: FieldSet
_PoolMetadata'_unknownFields = []}
  parseMessage :: Parser PoolMetadata
parseMessage
    = let
        loop ::
          PoolMetadata -> Data.ProtoLens.Encoding.Bytes.Parser PoolMetadata
        loop :: PoolMetadata -> Parser PoolMetadata
loop PoolMetadata
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PoolMetadata -> Parser PoolMetadata
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PoolMetadata PoolMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PoolMetadata -> PoolMetadata
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PoolMetadata FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolMetadata FieldSet
Setter PoolMetadata PoolMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) PoolMetadata
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"url"
                                PoolMetadata -> Parser PoolMetadata
loop (Setter PoolMetadata PoolMetadata Text Text
-> Text -> PoolMetadata -> PoolMetadata
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 @"url") Text
y PoolMetadata
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"hash"
                                PoolMetadata -> Parser PoolMetadata
loop (Setter PoolMetadata PoolMetadata ByteString ByteString
-> ByteString -> PoolMetadata -> PoolMetadata
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 @"hash") ByteString
y PoolMetadata
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PoolMetadata -> Parser PoolMetadata
loop
                                  (Setter PoolMetadata PoolMetadata FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PoolMetadata -> PoolMetadata
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PoolMetadata FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolMetadata FieldSet
Setter PoolMetadata PoolMetadata FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PoolMetadata
x)
      in
        Parser PoolMetadata -> String -> Parser PoolMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PoolMetadata -> Parser PoolMetadata
loop PoolMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PoolMetadata"
  buildMessage :: PoolMetadata -> Builder
buildMessage
    = \ PoolMetadata
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text PoolMetadata PoolMetadata Text Text
-> PoolMetadata -> 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") PoolMetadata
_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 PoolMetadata PoolMetadata ByteString ByteString
-> PoolMetadata -> 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") PoolMetadata
_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 PoolMetadata PoolMetadata FieldSet FieldSet
-> PoolMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PoolMetadata PoolMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolMetadata FieldSet
Data.ProtoLens.unknownFields PoolMetadata
_x)))
instance Control.DeepSeq.NFData PoolMetadata where
  rnf :: PoolMetadata -> ()
rnf
    = \ PoolMetadata
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PoolMetadata -> FieldSet
_PoolMetadata'_unknownFields PoolMetadata
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PoolMetadata -> Text
_PoolMetadata'url PoolMetadata
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PoolMetadata -> ByteString
_PoolMetadata'hash PoolMetadata
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.operator' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pledge' @:: Lens' PoolRegistrationCert Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.cost' @:: Lens' PoolRegistrationCert Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.margin' @:: Lens' PoolRegistrationCert RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'margin' @:: Lens' PoolRegistrationCert (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.rewardAccount' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolOwners' @:: Lens' PoolRegistrationCert [Data.ByteString.ByteString]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'poolOwners' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.relays' @:: Lens' PoolRegistrationCert [Relay]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'relays' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Relay)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolMetadata' @:: Lens' PoolRegistrationCert PoolMetadata@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolMetadata' @:: Lens' PoolRegistrationCert (Prelude.Maybe PoolMetadata)@ -}
data PoolRegistrationCert
  = PoolRegistrationCert'_constructor {PoolRegistrationCert -> ByteString
_PoolRegistrationCert'operator :: !Data.ByteString.ByteString,
                                       PoolRegistrationCert -> ByteString
_PoolRegistrationCert'vrfKeyhash :: !Data.ByteString.ByteString,
                                       PoolRegistrationCert -> Word64
_PoolRegistrationCert'pledge :: !Data.Word.Word64,
                                       PoolRegistrationCert -> Word64
_PoolRegistrationCert'cost :: !Data.Word.Word64,
                                       PoolRegistrationCert -> Maybe RationalNumber
_PoolRegistrationCert'margin :: !(Prelude.Maybe RationalNumber),
                                       PoolRegistrationCert -> ByteString
_PoolRegistrationCert'rewardAccount :: !Data.ByteString.ByteString,
                                       PoolRegistrationCert -> Vector ByteString
_PoolRegistrationCert'poolOwners :: !(Data.Vector.Vector Data.ByteString.ByteString),
                                       PoolRegistrationCert -> Vector Relay
_PoolRegistrationCert'relays :: !(Data.Vector.Vector Relay),
                                       PoolRegistrationCert -> Maybe PoolMetadata
_PoolRegistrationCert'poolMetadata :: !(Prelude.Maybe PoolMetadata),
                                       PoolRegistrationCert -> FieldSet
_PoolRegistrationCert'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PoolRegistrationCert -> PoolRegistrationCert -> Bool
(PoolRegistrationCert -> PoolRegistrationCert -> Bool)
-> (PoolRegistrationCert -> PoolRegistrationCert -> Bool)
-> Eq PoolRegistrationCert
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
== :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
$c/= :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
/= :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
Prelude.Eq, Eq PoolRegistrationCert
Eq PoolRegistrationCert =>
(PoolRegistrationCert -> PoolRegistrationCert -> Ordering)
-> (PoolRegistrationCert -> PoolRegistrationCert -> Bool)
-> (PoolRegistrationCert -> PoolRegistrationCert -> Bool)
-> (PoolRegistrationCert -> PoolRegistrationCert -> Bool)
-> (PoolRegistrationCert -> PoolRegistrationCert -> Bool)
-> (PoolRegistrationCert
    -> PoolRegistrationCert -> PoolRegistrationCert)
-> (PoolRegistrationCert
    -> PoolRegistrationCert -> PoolRegistrationCert)
-> Ord PoolRegistrationCert
PoolRegistrationCert -> PoolRegistrationCert -> Bool
PoolRegistrationCert -> PoolRegistrationCert -> Ordering
PoolRegistrationCert
-> PoolRegistrationCert -> PoolRegistrationCert
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 :: PoolRegistrationCert -> PoolRegistrationCert -> Ordering
compare :: PoolRegistrationCert -> PoolRegistrationCert -> Ordering
$c< :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
< :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
$c<= :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
<= :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
$c> :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
> :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
$c>= :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
>= :: PoolRegistrationCert -> PoolRegistrationCert -> Bool
$cmax :: PoolRegistrationCert
-> PoolRegistrationCert -> PoolRegistrationCert
max :: PoolRegistrationCert
-> PoolRegistrationCert -> PoolRegistrationCert
$cmin :: PoolRegistrationCert
-> PoolRegistrationCert -> PoolRegistrationCert
min :: PoolRegistrationCert
-> PoolRegistrationCert -> PoolRegistrationCert
Prelude.Ord)
instance Prelude.Show PoolRegistrationCert where
  showsPrec :: Int -> PoolRegistrationCert -> ShowS
showsPrec Int
_ PoolRegistrationCert
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PoolRegistrationCert -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PoolRegistrationCert
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "operator" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operator"
-> (ByteString -> f ByteString)
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "operator"
_
    = ((ByteString -> f ByteString)
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> ByteString)
-> (PoolRegistrationCert -> ByteString -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert PoolRegistrationCert ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> ByteString
_PoolRegistrationCert'operator
           (\ PoolRegistrationCert
x__ ByteString
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'operator = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vrfKeyhash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vrfKeyhash"
-> (ByteString -> f ByteString)
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "vrfKeyhash"
_
    = ((ByteString -> f ByteString)
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> ByteString)
-> (PoolRegistrationCert -> ByteString -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert PoolRegistrationCert ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> ByteString
_PoolRegistrationCert'vrfKeyhash
           (\ PoolRegistrationCert
x__ ByteString
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'vrfKeyhash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "pledge" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "pledge"
-> (Word64 -> f Word64)
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "pledge"
_
    = ((Word64 -> f Word64)
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Word64)
-> (PoolRegistrationCert -> Word64 -> PoolRegistrationCert)
-> Lens PoolRegistrationCert PoolRegistrationCert Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Word64
_PoolRegistrationCert'pledge
           (\ PoolRegistrationCert
x__ Word64
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'pledge = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "cost" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cost"
-> (Word64 -> f Word64)
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "cost"
_
    = ((Word64 -> f Word64)
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Word64)
-> (PoolRegistrationCert -> Word64 -> PoolRegistrationCert)
-> Lens PoolRegistrationCert PoolRegistrationCert Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Word64
_PoolRegistrationCert'cost
           (\ PoolRegistrationCert
x__ Word64
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'cost = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "margin" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "margin"
-> (RationalNumber -> f RationalNumber)
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "margin"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Maybe RationalNumber)
-> (PoolRegistrationCert
    -> Maybe RationalNumber -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Maybe RationalNumber
_PoolRegistrationCert'margin
           (\ PoolRegistrationCert
x__ Maybe RationalNumber
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'margin = 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 PoolRegistrationCert "maybe'margin" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'margin"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "maybe'margin"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Maybe RationalNumber)
-> (PoolRegistrationCert
    -> Maybe RationalNumber -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Maybe RationalNumber)
     (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Maybe RationalNumber
_PoolRegistrationCert'margin
           (\ PoolRegistrationCert
x__ Maybe RationalNumber
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'margin = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "rewardAccount" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rewardAccount"
-> (ByteString -> f ByteString)
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "rewardAccount"
_
    = ((ByteString -> f ByteString)
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> ByteString)
-> (PoolRegistrationCert -> ByteString -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert PoolRegistrationCert ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> ByteString
_PoolRegistrationCert'rewardAccount
           (\ PoolRegistrationCert
x__ ByteString
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'rewardAccount = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolOwners" [Data.ByteString.ByteString] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolOwners"
-> ([ByteString] -> f [ByteString])
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "poolOwners"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Vector ByteString)
-> (PoolRegistrationCert
    -> Vector ByteString -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Vector ByteString
_PoolRegistrationCert'poolOwners
           (\ PoolRegistrationCert
x__ Vector ByteString
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'poolOwners = y__}))
        ((Vector ByteString -> [ByteString])
-> (Vector ByteString -> [ByteString] -> Vector ByteString)
-> Lens
     (Vector ByteString) (Vector ByteString) [ByteString] [ByteString]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ByteString -> [ByteString]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ByteString
_ [ByteString]
y__ -> [ByteString] -> Vector ByteString
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ByteString]
y__))
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'poolOwners" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'poolOwners"
-> (Vector ByteString -> f (Vector ByteString))
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "vec'poolOwners"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Vector ByteString)
-> (PoolRegistrationCert
    -> Vector ByteString -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Vector ByteString
_PoolRegistrationCert'poolOwners
           (\ PoolRegistrationCert
x__ Vector ByteString
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'poolOwners = y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "relays" [Relay] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "relays"
-> ([Relay] -> f [Relay])
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "relays"
_
    = ((Vector Relay -> f (Vector Relay))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> (([Relay] -> f [Relay]) -> Vector Relay -> f (Vector Relay))
-> ([Relay] -> f [Relay])
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Vector Relay)
-> (PoolRegistrationCert -> Vector Relay -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Vector Relay)
     (Vector Relay)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Vector Relay
_PoolRegistrationCert'relays
           (\ PoolRegistrationCert
x__ Vector Relay
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'relays = y__}))
        ((Vector Relay -> [Relay])
-> (Vector Relay -> [Relay] -> Vector Relay)
-> Lens (Vector Relay) (Vector Relay) [Relay] [Relay]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Relay -> [Relay]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Relay
_ [Relay]
y__ -> [Relay] -> Vector Relay
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Relay]
y__))
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'relays" (Data.Vector.Vector Relay) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'relays"
-> (Vector Relay -> f (Vector Relay))
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "vec'relays"
_
    = ((Vector Relay -> f (Vector Relay))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((Vector Relay -> f (Vector Relay))
    -> Vector Relay -> f (Vector Relay))
-> (Vector Relay -> f (Vector Relay))
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Vector Relay)
-> (PoolRegistrationCert -> Vector Relay -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Vector Relay)
     (Vector Relay)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Vector Relay
_PoolRegistrationCert'relays
           (\ PoolRegistrationCert
x__ Vector Relay
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'relays = y__}))
        (Vector Relay -> f (Vector Relay))
-> Vector Relay -> f (Vector Relay)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolMetadata" PoolMetadata where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolMetadata"
-> (PoolMetadata -> f PoolMetadata)
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "poolMetadata"
_
    = ((Maybe PoolMetadata -> f (Maybe PoolMetadata))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((PoolMetadata -> f PoolMetadata)
    -> Maybe PoolMetadata -> f (Maybe PoolMetadata))
-> (PoolMetadata -> f PoolMetadata)
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Maybe PoolMetadata)
-> (PoolRegistrationCert
    -> Maybe PoolMetadata -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Maybe PoolMetadata)
     (Maybe PoolMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Maybe PoolMetadata
_PoolRegistrationCert'poolMetadata
           (\ PoolRegistrationCert
x__ Maybe PoolMetadata
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'poolMetadata = y__}))
        (PoolMetadata -> Lens' (Maybe PoolMetadata) PoolMetadata
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PoolMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'poolMetadata" (Prelude.Maybe PoolMetadata) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolMetadata"
-> (Maybe PoolMetadata -> f (Maybe PoolMetadata))
-> PoolRegistrationCert
-> f PoolRegistrationCert
fieldOf Proxy# "maybe'poolMetadata"
_
    = ((Maybe PoolMetadata -> f (Maybe PoolMetadata))
 -> PoolRegistrationCert -> f PoolRegistrationCert)
-> ((Maybe PoolMetadata -> f (Maybe PoolMetadata))
    -> Maybe PoolMetadata -> f (Maybe PoolMetadata))
-> (Maybe PoolMetadata -> f (Maybe PoolMetadata))
-> PoolRegistrationCert
-> f PoolRegistrationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRegistrationCert -> Maybe PoolMetadata)
-> (PoolRegistrationCert
    -> Maybe PoolMetadata -> PoolRegistrationCert)
-> Lens
     PoolRegistrationCert
     PoolRegistrationCert
     (Maybe PoolMetadata)
     (Maybe PoolMetadata)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRegistrationCert -> Maybe PoolMetadata
_PoolRegistrationCert'poolMetadata
           (\ PoolRegistrationCert
x__ Maybe PoolMetadata
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'poolMetadata = y__}))
        (Maybe PoolMetadata -> f (Maybe PoolMetadata))
-> Maybe PoolMetadata -> f (Maybe PoolMetadata)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PoolRegistrationCert where
  messageName :: Proxy PoolRegistrationCert -> Text
messageName Proxy PoolRegistrationCert
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PoolRegistrationCert"
  packedMessageDescriptor :: Proxy PoolRegistrationCert -> ByteString
packedMessageDescriptor Proxy PoolRegistrationCert
_
    = ByteString
"\n\
      \\DC4PoolRegistrationCert\DC2\SUB\n\
      \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\
      \\vvrf_keyhash\CAN\STX \SOH(\fR\n\
      \vrfKeyhash\DC2\SYN\n\
      \\ACKpledge\CAN\ETX \SOH(\EOTR\ACKpledge\DC2\DC2\n\
      \\EOTcost\CAN\EOT \SOH(\EOTR\EOTcost\DC2?\n\
      \\ACKmargin\CAN\ENQ \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmargin\DC2%\n\
      \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\
      \\vpool_owners\CAN\a \ETX(\fR\n\
      \poolOwners\DC26\n\
      \\ACKrelays\CAN\b \ETX(\v2\RS.utxorpc.v1alpha.cardano.RelayR\ACKrelays\DC2J\n\
      \\rpool_metadata\CAN\t \SOH(\v2%.utxorpc.v1alpha.cardano.PoolMetadataR\fpoolMetadata"
  packedFileDescriptor :: Proxy PoolRegistrationCert -> ByteString
packedFileDescriptor Proxy PoolRegistrationCert
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PoolRegistrationCert)
fieldsByTag
    = let
        operator__field_descriptor :: FieldDescriptor PoolRegistrationCert
operator__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PoolRegistrationCert ByteString
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"operator"
              (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
     PoolRegistrationCert PoolRegistrationCert ByteString ByteString
-> FieldAccessor PoolRegistrationCert 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 @"operator")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        vrfKeyhash__field_descriptor :: FieldDescriptor PoolRegistrationCert
vrfKeyhash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PoolRegistrationCert ByteString
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"vrf_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)
              (WireDefault ByteString
-> Lens
     PoolRegistrationCert PoolRegistrationCert ByteString ByteString
-> FieldAccessor PoolRegistrationCert 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 @"vrfKeyhash")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        pledge__field_descriptor :: FieldDescriptor PoolRegistrationCert
pledge__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PoolRegistrationCert Word64
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pledge"
              (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 PoolRegistrationCert PoolRegistrationCert Word64 Word64
-> FieldAccessor PoolRegistrationCert 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 @"pledge")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        cost__field_descriptor :: FieldDescriptor PoolRegistrationCert
cost__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PoolRegistrationCert Word64
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cost"
              (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 PoolRegistrationCert PoolRegistrationCert Word64 Word64
-> FieldAccessor PoolRegistrationCert 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 @"cost")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        margin__field_descriptor :: FieldDescriptor PoolRegistrationCert
margin__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor PoolRegistrationCert RationalNumber
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"margin"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  PoolRegistrationCert
  PoolRegistrationCert
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> FieldAccessor PoolRegistrationCert 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'margin")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        rewardAccount__field_descriptor :: FieldDescriptor PoolRegistrationCert
rewardAccount__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PoolRegistrationCert ByteString
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reward_account"
              (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
     PoolRegistrationCert PoolRegistrationCert ByteString ByteString
-> FieldAccessor PoolRegistrationCert 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 @"rewardAccount")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        poolOwners__field_descriptor :: FieldDescriptor PoolRegistrationCert
poolOwners__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PoolRegistrationCert ByteString
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_owners"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Packing
-> Lens' PoolRegistrationCert [ByteString]
-> FieldAccessor PoolRegistrationCert ByteString
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 @"poolOwners")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        relays__field_descriptor :: FieldDescriptor PoolRegistrationCert
relays__field_descriptor
          = String
-> FieldTypeDescriptor Relay
-> FieldAccessor PoolRegistrationCert Relay
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"relays"
              (MessageOrGroup -> FieldTypeDescriptor Relay
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Relay)
              (Packing
-> Lens' PoolRegistrationCert [Relay]
-> FieldAccessor PoolRegistrationCert Relay
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 @"relays")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
        poolMetadata__field_descriptor :: FieldDescriptor PoolRegistrationCert
poolMetadata__field_descriptor
          = String
-> FieldTypeDescriptor PoolMetadata
-> FieldAccessor PoolRegistrationCert PoolMetadata
-> FieldDescriptor PoolRegistrationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_metadata"
              (MessageOrGroup -> FieldTypeDescriptor PoolMetadata
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PoolMetadata)
              (Lens
  PoolRegistrationCert
  PoolRegistrationCert
  (Maybe PoolMetadata)
  (Maybe PoolMetadata)
-> FieldAccessor PoolRegistrationCert PoolMetadata
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'poolMetadata")) ::
              Data.ProtoLens.FieldDescriptor PoolRegistrationCert
      in
        [(Tag, FieldDescriptor PoolRegistrationCert)]
-> Map Tag (FieldDescriptor PoolRegistrationCert)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PoolRegistrationCert
operator__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PoolRegistrationCert
vrfKeyhash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor PoolRegistrationCert
pledge__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor PoolRegistrationCert
cost__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor PoolRegistrationCert
margin__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor PoolRegistrationCert
rewardAccount__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor PoolRegistrationCert
poolOwners__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor PoolRegistrationCert
relays__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor PoolRegistrationCert
poolMetadata__field_descriptor)]
  unknownFields :: Lens' PoolRegistrationCert FieldSet
unknownFields
    = (PoolRegistrationCert -> FieldSet)
-> (PoolRegistrationCert -> FieldSet -> PoolRegistrationCert)
-> Lens' PoolRegistrationCert FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PoolRegistrationCert -> FieldSet
_PoolRegistrationCert'_unknownFields
        (\ PoolRegistrationCert
x__ FieldSet
y__ -> PoolRegistrationCert
x__ {_PoolRegistrationCert'_unknownFields = y__})
  defMessage :: PoolRegistrationCert
defMessage
    = PoolRegistrationCert'_constructor
        {_PoolRegistrationCert'operator :: ByteString
_PoolRegistrationCert'operator = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolRegistrationCert'vrfKeyhash :: ByteString
_PoolRegistrationCert'vrfKeyhash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolRegistrationCert'pledge :: Word64
_PoolRegistrationCert'pledge = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolRegistrationCert'cost :: Word64
_PoolRegistrationCert'cost = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolRegistrationCert'margin :: Maybe RationalNumber
_PoolRegistrationCert'margin = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _PoolRegistrationCert'rewardAccount :: ByteString
_PoolRegistrationCert'rewardAccount = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolRegistrationCert'poolOwners :: Vector ByteString
_PoolRegistrationCert'poolOwners = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _PoolRegistrationCert'relays :: Vector Relay
_PoolRegistrationCert'relays = Vector Relay
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _PoolRegistrationCert'poolMetadata :: Maybe PoolMetadata
_PoolRegistrationCert'poolMetadata = Maybe PoolMetadata
forall a. Maybe a
Prelude.Nothing,
         _PoolRegistrationCert'_unknownFields :: FieldSet
_PoolRegistrationCert'_unknownFields = []}
  parseMessage :: Parser PoolRegistrationCert
parseMessage
    = let
        loop ::
          PoolRegistrationCert
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Relay
                -> Data.ProtoLens.Encoding.Bytes.Parser PoolRegistrationCert
        loop :: PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop PoolRegistrationCert
x Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ByteString
frozen'poolOwners <- IO (Vector ByteString) -> Parser (Vector ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) ByteString -> IO (Vector ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld ByteString
Growing Vector (PrimState IO) ByteString
mutable'poolOwners)
                      Vector Relay
frozen'relays <- IO (Vector Relay) -> Parser (Vector Relay)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) Relay -> IO (Vector Relay)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld Relay
Growing Vector (PrimState IO) Relay
mutable'relays)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PoolRegistrationCert -> Parser PoolRegistrationCert
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PoolRegistrationCert PoolRegistrationCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> PoolRegistrationCert
-> PoolRegistrationCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PoolRegistrationCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolRegistrationCert FieldSet
Setter PoolRegistrationCert PoolRegistrationCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  PoolRegistrationCert
  PoolRegistrationCert
  (Vector ByteString)
  (Vector ByteString)
-> Vector ByteString
-> PoolRegistrationCert
-> PoolRegistrationCert
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 @"vec'poolOwners") Vector ByteString
frozen'poolOwners
                              (Setter
  PoolRegistrationCert
  PoolRegistrationCert
  (Vector Relay)
  (Vector Relay)
-> Vector Relay -> PoolRegistrationCert -> PoolRegistrationCert
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 @"vec'relays") Vector Relay
frozen'relays PoolRegistrationCert
x)))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"operator"
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter
  PoolRegistrationCert PoolRegistrationCert ByteString ByteString
-> ByteString -> PoolRegistrationCert -> PoolRegistrationCert
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 @"operator") ByteString
y PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"vrf_keyhash"
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter
  PoolRegistrationCert PoolRegistrationCert ByteString ByteString
-> ByteString -> PoolRegistrationCert -> PoolRegistrationCert
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 @"vrfKeyhash") ByteString
y PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
                        Word64
24
                          -> do Word64
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
"pledge"
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter PoolRegistrationCert PoolRegistrationCert Word64 Word64
-> Word64 -> PoolRegistrationCert -> PoolRegistrationCert
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 @"pledge") Word64
y PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
                        Word64
32
                          -> do Word64
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
"cost"
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter PoolRegistrationCert PoolRegistrationCert Word64 Word64
-> Word64 -> PoolRegistrationCert -> PoolRegistrationCert
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 @"cost") Word64
y PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
                        Word64
42
                          -> do RationalNumber
y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser RationalNumber -> Parser RationalNumber
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser RationalNumber
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"margin"
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter
  PoolRegistrationCert
  PoolRegistrationCert
  RationalNumber
  RationalNumber
-> RationalNumber -> PoolRegistrationCert -> PoolRegistrationCert
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 @"margin") RationalNumber
y PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
                        Word64
50
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"reward_account"
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter
  PoolRegistrationCert PoolRegistrationCert ByteString ByteString
-> ByteString -> PoolRegistrationCert -> PoolRegistrationCert
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 @"rewardAccount") ByteString
y PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
                        Word64
58
                          -> do !ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                        String
"pool_owners"
                                Growing Vector RealWorld ByteString
v <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ByteString
-> ByteString -> IO (Growing Vector (PrimState IO) ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld ByteString
Growing Vector (PrimState IO) ByteString
mutable'poolOwners ByteString
y)
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop PoolRegistrationCert
x Growing Vector RealWorld ByteString
v Growing Vector RealWorld Relay
mutable'relays
                        Word64
66
                          -> do !Relay
y <- Parser Relay -> String -> Parser Relay
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Relay -> Parser Relay
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Relay
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"relays"
                                Growing Vector RealWorld Relay
v <- IO (Growing Vector RealWorld Relay)
-> Parser (Growing Vector RealWorld Relay)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Relay
-> Relay -> IO (Growing Vector (PrimState IO) Relay)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Relay
Growing Vector (PrimState IO) Relay
mutable'relays Relay
y)
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop PoolRegistrationCert
x Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
v
                        Word64
74
                          -> do PoolMetadata
y <- Parser PoolMetadata -> String -> Parser PoolMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PoolMetadata -> Parser PoolMetadata
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PoolMetadata
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"pool_metadata"
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter
  PoolRegistrationCert PoolRegistrationCert PoolMetadata PoolMetadata
-> PoolMetadata -> PoolRegistrationCert -> PoolRegistrationCert
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 @"poolMetadata") PoolMetadata
y PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop
                                  (Setter PoolRegistrationCert PoolRegistrationCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> PoolRegistrationCert
-> PoolRegistrationCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PoolRegistrationCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolRegistrationCert FieldSet
Setter PoolRegistrationCert PoolRegistrationCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PoolRegistrationCert
x)
                                  Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays
      in
        Parser PoolRegistrationCert
-> String -> Parser PoolRegistrationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ByteString
mutable'poolOwners <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld ByteString)
IO (Growing Vector (PrimState IO) ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Relay
mutable'relays <- IO (Growing Vector RealWorld Relay)
-> Parser (Growing Vector RealWorld Relay)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Relay)
IO (Growing Vector (PrimState IO) Relay)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              PoolRegistrationCert
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Relay
-> Parser PoolRegistrationCert
loop PoolRegistrationCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ByteString
mutable'poolOwners Growing Vector RealWorld Relay
mutable'relays)
          String
"PoolRegistrationCert"
  buildMessage :: PoolRegistrationCert -> Builder
buildMessage
    = \ PoolRegistrationCert
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v = FoldLike
  ByteString
  PoolRegistrationCert
  PoolRegistrationCert
  ByteString
  ByteString
-> PoolRegistrationCert -> 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 @"operator") PoolRegistrationCert
_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
  PoolRegistrationCert
  PoolRegistrationCert
  ByteString
  ByteString
-> PoolRegistrationCert -> 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 @"vrfKeyhash") PoolRegistrationCert
_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 PoolRegistrationCert PoolRegistrationCert Word64 Word64
-> PoolRegistrationCert -> 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 @"pledge") PoolRegistrationCert
_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))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let _v :: Word64
_v = FoldLike
  Word64 PoolRegistrationCert PoolRegistrationCert Word64 Word64
-> PoolRegistrationCert -> 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 @"cost") PoolRegistrationCert
_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
32)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe RationalNumber)
  PoolRegistrationCert
  PoolRegistrationCert
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> PoolRegistrationCert -> 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'margin") PoolRegistrationCert
_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.<>)
                            (let
                               _v :: ByteString
_v
                                 = FoldLike
  ByteString
  PoolRegistrationCert
  PoolRegistrationCert
  ByteString
  ByteString
-> PoolRegistrationCert -> 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 @"rewardAccount") PoolRegistrationCert
_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
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))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((ByteString -> Builder) -> Vector ByteString -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ 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))
                                  (FoldLike
  (Vector ByteString)
  PoolRegistrationCert
  PoolRegistrationCert
  (Vector ByteString)
  (Vector ByteString)
-> PoolRegistrationCert -> Vector 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 @"vec'poolOwners") PoolRegistrationCert
_x))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  ((Relay -> Builder) -> Vector Relay -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     (\ Relay
_v
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                             ((ByteString -> Builder)
-> (Relay -> ByteString) -> Relay -> 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))
                                                Relay -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Relay
_v))
                                     (FoldLike
  (Vector Relay)
  PoolRegistrationCert
  PoolRegistrationCert
  (Vector Relay)
  (Vector Relay)
-> PoolRegistrationCert -> Vector Relay
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'relays") PoolRegistrationCert
_x))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (case
                                          FoldLike
  (Maybe PoolMetadata)
  PoolRegistrationCert
  PoolRegistrationCert
  (Maybe PoolMetadata)
  (Maybe PoolMetadata)
-> PoolRegistrationCert -> Maybe PoolMetadata
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'poolMetadata") PoolRegistrationCert
_x
                                      of
                                        Maybe PoolMetadata
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                        (Prelude.Just PoolMetadata
_v)
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
                                               ((ByteString -> Builder)
-> (PoolMetadata -> ByteString) -> PoolMetadata -> 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))
                                                  PoolMetadata -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PoolMetadata
_v))
                                     (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                        (FoldLike
  FieldSet
  PoolRegistrationCert
  PoolRegistrationCert
  FieldSet
  FieldSet
-> PoolRegistrationCert -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  PoolRegistrationCert
  PoolRegistrationCert
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolRegistrationCert FieldSet
Data.ProtoLens.unknownFields PoolRegistrationCert
_x))))))))))
instance Control.DeepSeq.NFData PoolRegistrationCert where
  rnf :: PoolRegistrationCert -> ()
rnf
    = \ PoolRegistrationCert
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PoolRegistrationCert -> FieldSet
_PoolRegistrationCert'_unknownFields PoolRegistrationCert
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PoolRegistrationCert -> ByteString
_PoolRegistrationCert'operator PoolRegistrationCert
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (PoolRegistrationCert -> ByteString
_PoolRegistrationCert'vrfKeyhash PoolRegistrationCert
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (PoolRegistrationCert -> Word64
_PoolRegistrationCert'pledge PoolRegistrationCert
x__)
                      (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (PoolRegistrationCert -> Word64
_PoolRegistrationCert'cost PoolRegistrationCert
x__)
                         (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (PoolRegistrationCert -> Maybe RationalNumber
_PoolRegistrationCert'margin PoolRegistrationCert
x__)
                            (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (PoolRegistrationCert -> ByteString
_PoolRegistrationCert'rewardAccount PoolRegistrationCert
x__)
                               (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (PoolRegistrationCert -> Vector ByteString
_PoolRegistrationCert'poolOwners PoolRegistrationCert
x__)
                                  (Vector Relay -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (PoolRegistrationCert -> Vector Relay
_PoolRegistrationCert'relays PoolRegistrationCert
x__)
                                     (Maybe PoolMetadata -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (PoolRegistrationCert -> Maybe PoolMetadata
_PoolRegistrationCert'poolMetadata PoolRegistrationCert
x__) ())))))))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' PoolRetirementCert Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.epoch' @:: Lens' PoolRetirementCert Data.Word.Word64@ -}
data PoolRetirementCert
  = PoolRetirementCert'_constructor {PoolRetirementCert -> ByteString
_PoolRetirementCert'poolKeyhash :: !Data.ByteString.ByteString,
                                     PoolRetirementCert -> Word64
_PoolRetirementCert'epoch :: !Data.Word.Word64,
                                     PoolRetirementCert -> FieldSet
_PoolRetirementCert'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PoolRetirementCert -> PoolRetirementCert -> Bool
(PoolRetirementCert -> PoolRetirementCert -> Bool)
-> (PoolRetirementCert -> PoolRetirementCert -> Bool)
-> Eq PoolRetirementCert
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PoolRetirementCert -> PoolRetirementCert -> Bool
== :: PoolRetirementCert -> PoolRetirementCert -> Bool
$c/= :: PoolRetirementCert -> PoolRetirementCert -> Bool
/= :: PoolRetirementCert -> PoolRetirementCert -> Bool
Prelude.Eq, Eq PoolRetirementCert
Eq PoolRetirementCert =>
(PoolRetirementCert -> PoolRetirementCert -> Ordering)
-> (PoolRetirementCert -> PoolRetirementCert -> Bool)
-> (PoolRetirementCert -> PoolRetirementCert -> Bool)
-> (PoolRetirementCert -> PoolRetirementCert -> Bool)
-> (PoolRetirementCert -> PoolRetirementCert -> Bool)
-> (PoolRetirementCert -> PoolRetirementCert -> PoolRetirementCert)
-> (PoolRetirementCert -> PoolRetirementCert -> PoolRetirementCert)
-> Ord PoolRetirementCert
PoolRetirementCert -> PoolRetirementCert -> Bool
PoolRetirementCert -> PoolRetirementCert -> Ordering
PoolRetirementCert -> PoolRetirementCert -> PoolRetirementCert
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 :: PoolRetirementCert -> PoolRetirementCert -> Ordering
compare :: PoolRetirementCert -> PoolRetirementCert -> Ordering
$c< :: PoolRetirementCert -> PoolRetirementCert -> Bool
< :: PoolRetirementCert -> PoolRetirementCert -> Bool
$c<= :: PoolRetirementCert -> PoolRetirementCert -> Bool
<= :: PoolRetirementCert -> PoolRetirementCert -> Bool
$c> :: PoolRetirementCert -> PoolRetirementCert -> Bool
> :: PoolRetirementCert -> PoolRetirementCert -> Bool
$c>= :: PoolRetirementCert -> PoolRetirementCert -> Bool
>= :: PoolRetirementCert -> PoolRetirementCert -> Bool
$cmax :: PoolRetirementCert -> PoolRetirementCert -> PoolRetirementCert
max :: PoolRetirementCert -> PoolRetirementCert -> PoolRetirementCert
$cmin :: PoolRetirementCert -> PoolRetirementCert -> PoolRetirementCert
min :: PoolRetirementCert -> PoolRetirementCert -> PoolRetirementCert
Prelude.Ord)
instance Prelude.Show PoolRetirementCert where
  showsPrec :: Int -> PoolRetirementCert -> ShowS
showsPrec Int
_ PoolRetirementCert
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PoolRetirementCert -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PoolRetirementCert
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PoolRetirementCert "poolKeyhash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolKeyhash"
-> (ByteString -> f ByteString)
-> PoolRetirementCert
-> f PoolRetirementCert
fieldOf Proxy# "poolKeyhash"
_
    = ((ByteString -> f ByteString)
 -> PoolRetirementCert -> f PoolRetirementCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> PoolRetirementCert
-> f PoolRetirementCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRetirementCert -> ByteString)
-> (PoolRetirementCert -> ByteString -> PoolRetirementCert)
-> Lens PoolRetirementCert PoolRetirementCert ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRetirementCert -> ByteString
_PoolRetirementCert'poolKeyhash
           (\ PoolRetirementCert
x__ ByteString
y__ -> PoolRetirementCert
x__ {_PoolRetirementCert'poolKeyhash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PoolRetirementCert "epoch" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "epoch"
-> (Word64 -> f Word64)
-> PoolRetirementCert
-> f PoolRetirementCert
fieldOf Proxy# "epoch"
_
    = ((Word64 -> f Word64)
 -> PoolRetirementCert -> f PoolRetirementCert)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PoolRetirementCert
-> f PoolRetirementCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PoolRetirementCert -> Word64)
-> (PoolRetirementCert -> Word64 -> PoolRetirementCert)
-> Lens PoolRetirementCert PoolRetirementCert Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PoolRetirementCert -> Word64
_PoolRetirementCert'epoch
           (\ PoolRetirementCert
x__ Word64
y__ -> PoolRetirementCert
x__ {_PoolRetirementCert'epoch = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PoolRetirementCert where
  messageName :: Proxy PoolRetirementCert -> Text
messageName Proxy PoolRetirementCert
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PoolRetirementCert"
  packedMessageDescriptor :: Proxy PoolRetirementCert -> ByteString
packedMessageDescriptor Proxy PoolRetirementCert
_
    = ByteString
"\n\
      \\DC2PoolRetirementCert\DC2!\n\
      \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\
      \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch"
  packedFileDescriptor :: Proxy PoolRetirementCert -> ByteString
packedFileDescriptor Proxy PoolRetirementCert
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PoolRetirementCert)
fieldsByTag
    = let
        poolKeyhash__field_descriptor :: FieldDescriptor PoolRetirementCert
poolKeyhash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PoolRetirementCert ByteString
-> FieldDescriptor PoolRetirementCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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)
              (WireDefault ByteString
-> Lens PoolRetirementCert PoolRetirementCert ByteString ByteString
-> FieldAccessor PoolRetirementCert 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 @"poolKeyhash")) ::
              Data.ProtoLens.FieldDescriptor PoolRetirementCert
        epoch__field_descriptor :: FieldDescriptor PoolRetirementCert
epoch__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor PoolRetirementCert Word64
-> FieldDescriptor PoolRetirementCert
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 PoolRetirementCert PoolRetirementCert Word64 Word64
-> FieldAccessor PoolRetirementCert 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 PoolRetirementCert
      in
        [(Tag, FieldDescriptor PoolRetirementCert)]
-> Map Tag (FieldDescriptor PoolRetirementCert)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PoolRetirementCert
poolKeyhash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PoolRetirementCert
epoch__field_descriptor)]
  unknownFields :: Lens' PoolRetirementCert FieldSet
unknownFields
    = (PoolRetirementCert -> FieldSet)
-> (PoolRetirementCert -> FieldSet -> PoolRetirementCert)
-> Lens' PoolRetirementCert FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PoolRetirementCert -> FieldSet
_PoolRetirementCert'_unknownFields
        (\ PoolRetirementCert
x__ FieldSet
y__ -> PoolRetirementCert
x__ {_PoolRetirementCert'_unknownFields = y__})
  defMessage :: PoolRetirementCert
defMessage
    = PoolRetirementCert'_constructor
        {_PoolRetirementCert'poolKeyhash :: ByteString
_PoolRetirementCert'poolKeyhash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolRetirementCert'epoch :: Word64
_PoolRetirementCert'epoch = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PoolRetirementCert'_unknownFields :: FieldSet
_PoolRetirementCert'_unknownFields = []}
  parseMessage :: Parser PoolRetirementCert
parseMessage
    = let
        loop ::
          PoolRetirementCert
          -> Data.ProtoLens.Encoding.Bytes.Parser PoolRetirementCert
        loop :: PoolRetirementCert -> Parser PoolRetirementCert
loop PoolRetirementCert
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PoolRetirementCert -> Parser PoolRetirementCert
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PoolRetirementCert PoolRetirementCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> PoolRetirementCert
-> PoolRetirementCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f PoolRetirementCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolRetirementCert FieldSet
Setter PoolRetirementCert PoolRetirementCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) PoolRetirementCert
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"pool_keyhash"
                                PoolRetirementCert -> Parser PoolRetirementCert
loop
                                  (Setter PoolRetirementCert PoolRetirementCert ByteString ByteString
-> ByteString -> PoolRetirementCert -> PoolRetirementCert
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 @"poolKeyhash") ByteString
y PoolRetirementCert
x)
                        Word64
16
                          -> do Word64
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"
                                PoolRetirementCert -> Parser PoolRetirementCert
loop (Setter PoolRetirementCert PoolRetirementCert Word64 Word64
-> Word64 -> PoolRetirementCert -> PoolRetirementCert
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 @"epoch") Word64
y PoolRetirementCert
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PoolRetirementCert -> Parser PoolRetirementCert
loop
                                  (Setter PoolRetirementCert PoolRetirementCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> PoolRetirementCert
-> PoolRetirementCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f PoolRetirementCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolRetirementCert FieldSet
Setter PoolRetirementCert PoolRetirementCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PoolRetirementCert
x)
      in
        Parser PoolRetirementCert -> String -> Parser PoolRetirementCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PoolRetirementCert -> Parser PoolRetirementCert
loop PoolRetirementCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PoolRetirementCert"
  buildMessage :: PoolRetirementCert -> Builder
buildMessage
    = \ PoolRetirementCert
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v
                  = FoldLike
  ByteString
  PoolRetirementCert
  PoolRetirementCert
  ByteString
  ByteString
-> PoolRetirementCert -> 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 @"poolKeyhash") PoolRetirementCert
_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 :: Word64
_v = FoldLike Word64 PoolRetirementCert PoolRetirementCert Word64 Word64
-> PoolRetirementCert -> 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") PoolRetirementCert
_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 PoolRetirementCert PoolRetirementCert FieldSet FieldSet
-> PoolRetirementCert -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet PoolRetirementCert PoolRetirementCert FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PoolRetirementCert FieldSet
Data.ProtoLens.unknownFields PoolRetirementCert
_x)))
instance Control.DeepSeq.NFData PoolRetirementCert where
  rnf :: PoolRetirementCert -> ()
rnf
    = \ PoolRetirementCert
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PoolRetirementCert -> FieldSet
_PoolRetirementCert'_unknownFields PoolRetirementCert
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PoolRetirementCert -> ByteString
_PoolRetirementCert'poolKeyhash PoolRetirementCert
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PoolRetirementCert -> Word64
_PoolRetirementCert'epoch PoolRetirementCert
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.major' @:: Lens' ProtocolVersion Data.Word.Word32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minor' @:: Lens' ProtocolVersion Data.Word.Word32@ -}
data ProtocolVersion
  = ProtocolVersion'_constructor {ProtocolVersion -> Word32
_ProtocolVersion'major :: !Data.Word.Word32,
                                  ProtocolVersion -> Word32
_ProtocolVersion'minor :: !Data.Word.Word32,
                                  ProtocolVersion -> FieldSet
_ProtocolVersion'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ProtocolVersion -> ProtocolVersion -> Bool
(ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> Eq ProtocolVersion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProtocolVersion -> ProtocolVersion -> Bool
== :: ProtocolVersion -> ProtocolVersion -> Bool
$c/= :: ProtocolVersion -> ProtocolVersion -> Bool
/= :: ProtocolVersion -> ProtocolVersion -> Bool
Prelude.Eq, Eq ProtocolVersion
Eq ProtocolVersion =>
(ProtocolVersion -> ProtocolVersion -> Ordering)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> ProtocolVersion)
-> (ProtocolVersion -> ProtocolVersion -> ProtocolVersion)
-> Ord ProtocolVersion
ProtocolVersion -> ProtocolVersion -> Bool
ProtocolVersion -> ProtocolVersion -> Ordering
ProtocolVersion -> ProtocolVersion -> ProtocolVersion
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 :: ProtocolVersion -> ProtocolVersion -> Ordering
compare :: ProtocolVersion -> ProtocolVersion -> Ordering
$c< :: ProtocolVersion -> ProtocolVersion -> Bool
< :: ProtocolVersion -> ProtocolVersion -> Bool
$c<= :: ProtocolVersion -> ProtocolVersion -> Bool
<= :: ProtocolVersion -> ProtocolVersion -> Bool
$c> :: ProtocolVersion -> ProtocolVersion -> Bool
> :: ProtocolVersion -> ProtocolVersion -> Bool
$c>= :: ProtocolVersion -> ProtocolVersion -> Bool
>= :: ProtocolVersion -> ProtocolVersion -> Bool
$cmax :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
max :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
$cmin :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
min :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
Prelude.Ord)
instance Prelude.Show ProtocolVersion where
  showsPrec :: Int -> ProtocolVersion -> ShowS
showsPrec Int
_ ProtocolVersion
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ProtocolVersion -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ProtocolVersion
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ProtocolVersion "major" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "major"
-> (Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion
fieldOf Proxy# "major"
_
    = ((Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> ProtocolVersion
-> f ProtocolVersion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ProtocolVersion -> Word32)
-> (ProtocolVersion -> Word32 -> ProtocolVersion)
-> Lens ProtocolVersion ProtocolVersion Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ProtocolVersion -> Word32
_ProtocolVersion'major
           (\ ProtocolVersion
x__ Word32
y__ -> ProtocolVersion
x__ {_ProtocolVersion'major = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ProtocolVersion "minor" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minor"
-> (Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion
fieldOf Proxy# "minor"
_
    = ((Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> ProtocolVersion
-> f ProtocolVersion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ProtocolVersion -> Word32)
-> (ProtocolVersion -> Word32 -> ProtocolVersion)
-> Lens ProtocolVersion ProtocolVersion Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ProtocolVersion -> Word32
_ProtocolVersion'minor
           (\ ProtocolVersion
x__ Word32
y__ -> ProtocolVersion
x__ {_ProtocolVersion'minor = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ProtocolVersion where
  messageName :: Proxy ProtocolVersion -> Text
messageName Proxy ProtocolVersion
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.ProtocolVersion"
  packedMessageDescriptor :: Proxy ProtocolVersion -> ByteString
packedMessageDescriptor Proxy ProtocolVersion
_
    = ByteString
"\n\
      \\SIProtocolVersion\DC2\DC4\n\
      \\ENQmajor\CAN\SOH \SOH(\rR\ENQmajor\DC2\DC4\n\
      \\ENQminor\CAN\STX \SOH(\rR\ENQminor"
  packedFileDescriptor :: Proxy ProtocolVersion -> ByteString
packedFileDescriptor Proxy ProtocolVersion
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ProtocolVersion)
fieldsByTag
    = let
        major__field_descriptor :: FieldDescriptor ProtocolVersion
major__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor ProtocolVersion Word32
-> FieldDescriptor ProtocolVersion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"major"
              (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 ProtocolVersion ProtocolVersion Word32 Word32
-> FieldAccessor ProtocolVersion 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 @"major")) ::
              Data.ProtoLens.FieldDescriptor ProtocolVersion
        minor__field_descriptor :: FieldDescriptor ProtocolVersion
minor__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor ProtocolVersion Word32
-> FieldDescriptor ProtocolVersion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"minor"
              (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 ProtocolVersion ProtocolVersion Word32 Word32
-> FieldAccessor ProtocolVersion 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 @"minor")) ::
              Data.ProtoLens.FieldDescriptor ProtocolVersion
      in
        [(Tag, FieldDescriptor ProtocolVersion)]
-> Map Tag (FieldDescriptor ProtocolVersion)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ProtocolVersion
major__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ProtocolVersion
minor__field_descriptor)]
  unknownFields :: Lens' ProtocolVersion FieldSet
unknownFields
    = (ProtocolVersion -> FieldSet)
-> (ProtocolVersion -> FieldSet -> ProtocolVersion)
-> Lens' ProtocolVersion FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ProtocolVersion -> FieldSet
_ProtocolVersion'_unknownFields
        (\ ProtocolVersion
x__ FieldSet
y__ -> ProtocolVersion
x__ {_ProtocolVersion'_unknownFields = y__})
  defMessage :: ProtocolVersion
defMessage
    = ProtocolVersion'_constructor
        {_ProtocolVersion'major :: Word32
_ProtocolVersion'major = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ProtocolVersion'minor :: Word32
_ProtocolVersion'minor = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ProtocolVersion'_unknownFields :: FieldSet
_ProtocolVersion'_unknownFields = []}
  parseMessage :: Parser ProtocolVersion
parseMessage
    = let
        loop ::
          ProtocolVersion
          -> Data.ProtoLens.Encoding.Bytes.Parser ProtocolVersion
        loop :: ProtocolVersion -> Parser ProtocolVersion
loop ProtocolVersion
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ProtocolVersion -> Parser ProtocolVersion
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ProtocolVersion ProtocolVersion FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ProtocolVersion -> ProtocolVersion
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ProtocolVersion FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ProtocolVersion FieldSet
Setter ProtocolVersion ProtocolVersion FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ProtocolVersion
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word32
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
"major"
                                ProtocolVersion -> Parser ProtocolVersion
loop (Setter ProtocolVersion ProtocolVersion Word32 Word32
-> Word32 -> ProtocolVersion -> ProtocolVersion
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 @"major") Word32
y ProtocolVersion
x)
                        Word64
16
                          -> do Word32
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
"minor"
                                ProtocolVersion -> Parser ProtocolVersion
loop (Setter ProtocolVersion ProtocolVersion Word32 Word32
-> Word32 -> ProtocolVersion -> ProtocolVersion
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 @"minor") Word32
y ProtocolVersion
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ProtocolVersion -> Parser ProtocolVersion
loop
                                  (Setter ProtocolVersion ProtocolVersion FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ProtocolVersion -> ProtocolVersion
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ProtocolVersion FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ProtocolVersion FieldSet
Setter ProtocolVersion ProtocolVersion FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ProtocolVersion
x)
      in
        Parser ProtocolVersion -> String -> Parser ProtocolVersion
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ProtocolVersion -> Parser ProtocolVersion
loop ProtocolVersion
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ProtocolVersion"
  buildMessage :: ProtocolVersion -> Builder
buildMessage
    = \ ProtocolVersion
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word32
_v = FoldLike Word32 ProtocolVersion ProtocolVersion Word32 Word32
-> ProtocolVersion -> 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 @"major") ProtocolVersion
_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 :: Word32
_v = FoldLike Word32 ProtocolVersion ProtocolVersion Word32 Word32
-> ProtocolVersion -> 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 @"minor") ProtocolVersion
_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
16)
                         ((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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ProtocolVersion ProtocolVersion FieldSet FieldSet
-> ProtocolVersion -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ProtocolVersion ProtocolVersion FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ProtocolVersion FieldSet
Data.ProtoLens.unknownFields ProtocolVersion
_x)))
instance Control.DeepSeq.NFData ProtocolVersion where
  rnf :: ProtocolVersion -> ()
rnf
    = \ ProtocolVersion
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ProtocolVersion -> FieldSet
_ProtocolVersion'_unknownFields ProtocolVersion
x__)
             (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ProtocolVersion -> Word32
_ProtocolVersion'major ProtocolVersion
x__)
                (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ProtocolVersion -> Word32
_ProtocolVersion'minor ProtocolVersion
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.numerator' @:: Lens' RationalNumber Data.Int.Int32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.denominator' @:: Lens' RationalNumber Data.Word.Word32@ -}
data RationalNumber
  = RationalNumber'_constructor {RationalNumber -> Int32
_RationalNumber'numerator :: !Data.Int.Int32,
                                 RationalNumber -> Word32
_RationalNumber'denominator :: !Data.Word.Word32,
                                 RationalNumber -> FieldSet
_RationalNumber'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RationalNumber -> RationalNumber -> Bool
(RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool) -> Eq RationalNumber
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RationalNumber -> RationalNumber -> Bool
== :: RationalNumber -> RationalNumber -> Bool
$c/= :: RationalNumber -> RationalNumber -> Bool
/= :: RationalNumber -> RationalNumber -> Bool
Prelude.Eq, Eq RationalNumber
Eq RationalNumber =>
(RationalNumber -> RationalNumber -> Ordering)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> RationalNumber)
-> (RationalNumber -> RationalNumber -> RationalNumber)
-> Ord RationalNumber
RationalNumber -> RationalNumber -> Bool
RationalNumber -> RationalNumber -> Ordering
RationalNumber -> RationalNumber -> RationalNumber
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 :: RationalNumber -> RationalNumber -> Ordering
compare :: RationalNumber -> RationalNumber -> Ordering
$c< :: RationalNumber -> RationalNumber -> Bool
< :: RationalNumber -> RationalNumber -> Bool
$c<= :: RationalNumber -> RationalNumber -> Bool
<= :: RationalNumber -> RationalNumber -> Bool
$c> :: RationalNumber -> RationalNumber -> Bool
> :: RationalNumber -> RationalNumber -> Bool
$c>= :: RationalNumber -> RationalNumber -> Bool
>= :: RationalNumber -> RationalNumber -> Bool
$cmax :: RationalNumber -> RationalNumber -> RationalNumber
max :: RationalNumber -> RationalNumber -> RationalNumber
$cmin :: RationalNumber -> RationalNumber -> RationalNumber
min :: RationalNumber -> RationalNumber -> RationalNumber
Prelude.Ord)
instance Prelude.Show RationalNumber where
  showsPrec :: Int -> RationalNumber -> ShowS
showsPrec Int
_ RationalNumber
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RationalNumber -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RationalNumber
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RationalNumber "numerator" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "numerator"
-> (Int32 -> f Int32) -> RationalNumber -> f RationalNumber
fieldOf Proxy# "numerator"
_
    = ((Int32 -> f Int32) -> RationalNumber -> f RationalNumber)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> RationalNumber
-> f RationalNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RationalNumber -> Int32)
-> (RationalNumber -> Int32 -> RationalNumber)
-> Lens RationalNumber RationalNumber Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RationalNumber -> Int32
_RationalNumber'numerator
           (\ RationalNumber
x__ Int32
y__ -> RationalNumber
x__ {_RationalNumber'numerator = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RationalNumber "denominator" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "denominator"
-> (Word32 -> f Word32) -> RationalNumber -> f RationalNumber
fieldOf Proxy# "denominator"
_
    = ((Word32 -> f Word32) -> RationalNumber -> f RationalNumber)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> RationalNumber
-> f RationalNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RationalNumber -> Word32)
-> (RationalNumber -> Word32 -> RationalNumber)
-> Lens RationalNumber RationalNumber Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RationalNumber -> Word32
_RationalNumber'denominator
           (\ RationalNumber
x__ Word32
y__ -> RationalNumber
x__ {_RationalNumber'denominator = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RationalNumber where
  messageName :: Proxy RationalNumber -> Text
messageName Proxy RationalNumber
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.RationalNumber"
  packedMessageDescriptor :: Proxy RationalNumber -> ByteString
packedMessageDescriptor Proxy RationalNumber
_
    = ByteString
"\n\
      \\SORationalNumber\DC2\FS\n\
      \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\
      \\vdenominator\CAN\STX \SOH(\rR\vdenominator"
  packedFileDescriptor :: Proxy RationalNumber -> ByteString
packedFileDescriptor Proxy RationalNumber
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RationalNumber)
fieldsByTag
    = let
        numerator__field_descriptor :: FieldDescriptor RationalNumber
numerator__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor RationalNumber Int32
-> FieldDescriptor RationalNumber
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"numerator"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (WireDefault Int32
-> Lens RationalNumber RationalNumber Int32 Int32
-> FieldAccessor RationalNumber Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int32
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 @"numerator")) ::
              Data.ProtoLens.FieldDescriptor RationalNumber
        denominator__field_descriptor :: FieldDescriptor RationalNumber
denominator__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor RationalNumber Word32
-> FieldDescriptor RationalNumber
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"denominator"
              (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 RationalNumber RationalNumber Word32 Word32
-> FieldAccessor RationalNumber 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 @"denominator")) ::
              Data.ProtoLens.FieldDescriptor RationalNumber
      in
        [(Tag, FieldDescriptor RationalNumber)]
-> Map Tag (FieldDescriptor RationalNumber)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RationalNumber
numerator__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RationalNumber
denominator__field_descriptor)]
  unknownFields :: Lens' RationalNumber FieldSet
unknownFields
    = (RationalNumber -> FieldSet)
-> (RationalNumber -> FieldSet -> RationalNumber)
-> Lens' RationalNumber FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RationalNumber -> FieldSet
_RationalNumber'_unknownFields
        (\ RationalNumber
x__ FieldSet
y__ -> RationalNumber
x__ {_RationalNumber'_unknownFields = y__})
  defMessage :: RationalNumber
defMessage
    = RationalNumber'_constructor
        {_RationalNumber'numerator :: Int32
_RationalNumber'numerator = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RationalNumber'denominator :: Word32
_RationalNumber'denominator = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RationalNumber'_unknownFields :: FieldSet
_RationalNumber'_unknownFields = []}
  parseMessage :: Parser RationalNumber
parseMessage
    = let
        loop ::
          RationalNumber
          -> Data.ProtoLens.Encoding.Bytes.Parser RationalNumber
        loop :: RationalNumber -> Parser RationalNumber
loop RationalNumber
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      RationalNumber -> Parser RationalNumber
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter RationalNumber RationalNumber FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RationalNumber -> RationalNumber
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f RationalNumber FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RationalNumber FieldSet
Setter RationalNumber RationalNumber FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) RationalNumber
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"numerator"
                                RationalNumber -> Parser RationalNumber
loop
                                  (Setter RationalNumber RationalNumber Int32 Int32
-> Int32 -> RationalNumber -> RationalNumber
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 @"numerator") Int32
y RationalNumber
x)
                        Word64
16
                          -> do Word32
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
"denominator"
                                RationalNumber -> Parser RationalNumber
loop
                                  (Setter RationalNumber RationalNumber Word32 Word32
-> Word32 -> RationalNumber -> RationalNumber
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 @"denominator") Word32
y RationalNumber
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                RationalNumber -> Parser RationalNumber
loop
                                  (Setter RationalNumber RationalNumber FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RationalNumber -> RationalNumber
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f RationalNumber FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RationalNumber FieldSet
Setter RationalNumber RationalNumber FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RationalNumber
x)
      in
        Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do RationalNumber -> Parser RationalNumber
loop RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RationalNumber"
  buildMessage :: RationalNumber -> Builder
buildMessage
    = \ RationalNumber
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int32
_v = FoldLike Int32 RationalNumber RationalNumber Int32 Int32
-> RationalNumber -> Int32
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 @"numerator") RationalNumber
_x
              in
                if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
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) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word32
_v
                     = FoldLike Word32 RationalNumber RationalNumber Word32 Word32
-> RationalNumber -> 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 @"denominator") RationalNumber
_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
16)
                         ((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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet RationalNumber RationalNumber FieldSet FieldSet
-> RationalNumber -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RationalNumber RationalNumber FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RationalNumber FieldSet
Data.ProtoLens.unknownFields RationalNumber
_x)))
instance Control.DeepSeq.NFData RationalNumber where
  rnf :: RationalNumber -> ()
rnf
    = \ RationalNumber
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RationalNumber -> FieldSet
_RationalNumber'_unknownFields RationalNumber
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RationalNumber -> Int32
_RationalNumber'numerator RationalNumber
x__)
                (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RationalNumber -> Word32
_RationalNumber'denominator RationalNumber
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.purpose' @:: Lens' Redeemer RedeemerPurpose@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.datum' @:: Lens' Redeemer PlutusData@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'datum' @:: Lens' Redeemer (Prelude.Maybe PlutusData)@ -}
data Redeemer
  = Redeemer'_constructor {Redeemer -> RedeemerPurpose
_Redeemer'purpose :: !RedeemerPurpose,
                           Redeemer -> Maybe PlutusData
_Redeemer'datum :: !(Prelude.Maybe PlutusData),
                           Redeemer -> FieldSet
_Redeemer'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Redeemer -> Redeemer -> Bool
(Redeemer -> Redeemer -> Bool)
-> (Redeemer -> Redeemer -> Bool) -> Eq Redeemer
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Redeemer -> Redeemer -> Bool
== :: Redeemer -> Redeemer -> Bool
$c/= :: Redeemer -> Redeemer -> Bool
/= :: Redeemer -> Redeemer -> Bool
Prelude.Eq, Eq Redeemer
Eq Redeemer =>
(Redeemer -> Redeemer -> Ordering)
-> (Redeemer -> Redeemer -> Bool)
-> (Redeemer -> Redeemer -> Bool)
-> (Redeemer -> Redeemer -> Bool)
-> (Redeemer -> Redeemer -> Bool)
-> (Redeemer -> Redeemer -> Redeemer)
-> (Redeemer -> Redeemer -> Redeemer)
-> Ord Redeemer
Redeemer -> Redeemer -> Bool
Redeemer -> Redeemer -> Ordering
Redeemer -> Redeemer -> Redeemer
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 :: Redeemer -> Redeemer -> Ordering
compare :: Redeemer -> Redeemer -> Ordering
$c< :: Redeemer -> Redeemer -> Bool
< :: Redeemer -> Redeemer -> Bool
$c<= :: Redeemer -> Redeemer -> Bool
<= :: Redeemer -> Redeemer -> Bool
$c> :: Redeemer -> Redeemer -> Bool
> :: Redeemer -> Redeemer -> Bool
$c>= :: Redeemer -> Redeemer -> Bool
>= :: Redeemer -> Redeemer -> Bool
$cmax :: Redeemer -> Redeemer -> Redeemer
max :: Redeemer -> Redeemer -> Redeemer
$cmin :: Redeemer -> Redeemer -> Redeemer
min :: Redeemer -> Redeemer -> Redeemer
Prelude.Ord)
instance Prelude.Show Redeemer where
  showsPrec :: Int -> Redeemer -> ShowS
showsPrec Int
_ Redeemer
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Redeemer -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Redeemer
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Redeemer "purpose" RedeemerPurpose where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "purpose"
-> (RedeemerPurpose -> f RedeemerPurpose) -> Redeemer -> f Redeemer
fieldOf Proxy# "purpose"
_
    = ((RedeemerPurpose -> f RedeemerPurpose) -> Redeemer -> f Redeemer)
-> ((RedeemerPurpose -> f RedeemerPurpose)
    -> RedeemerPurpose -> f RedeemerPurpose)
-> (RedeemerPurpose -> f RedeemerPurpose)
-> Redeemer
-> f Redeemer
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Redeemer -> RedeemerPurpose)
-> (Redeemer -> RedeemerPurpose -> Redeemer)
-> Lens Redeemer Redeemer RedeemerPurpose RedeemerPurpose
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Redeemer -> RedeemerPurpose
_Redeemer'purpose (\ Redeemer
x__ RedeemerPurpose
y__ -> Redeemer
x__ {_Redeemer'purpose = y__}))
        (RedeemerPurpose -> f RedeemerPurpose)
-> RedeemerPurpose -> f RedeemerPurpose
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Redeemer "datum" PlutusData where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "datum"
-> (PlutusData -> f PlutusData) -> Redeemer -> f Redeemer
fieldOf Proxy# "datum"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> Redeemer -> f Redeemer)
-> ((PlutusData -> f PlutusData)
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (PlutusData -> f PlutusData)
-> Redeemer
-> f Redeemer
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Redeemer -> Maybe PlutusData)
-> (Redeemer -> Maybe PlutusData -> Redeemer)
-> Lens Redeemer Redeemer (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Redeemer -> Maybe PlutusData
_Redeemer'datum (\ Redeemer
x__ Maybe PlutusData
y__ -> Redeemer
x__ {_Redeemer'datum = 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 Redeemer "maybe'datum" (Prelude.Maybe PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'datum"
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> Redeemer
-> f Redeemer
fieldOf Proxy# "maybe'datum"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> Redeemer -> f Redeemer)
-> ((Maybe PlutusData -> f (Maybe PlutusData))
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> Redeemer
-> f Redeemer
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Redeemer -> Maybe PlutusData)
-> (Redeemer -> Maybe PlutusData -> Redeemer)
-> Lens Redeemer Redeemer (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Redeemer -> Maybe PlutusData
_Redeemer'datum (\ Redeemer
x__ Maybe PlutusData
y__ -> Redeemer
x__ {_Redeemer'datum = y__}))
        (Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe PlutusData -> f (Maybe PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Redeemer where
  messageName :: Proxy Redeemer -> Text
messageName Proxy Redeemer
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Redeemer"
  packedMessageDescriptor :: Proxy Redeemer -> ByteString
packedMessageDescriptor Proxy Redeemer
_
    = ByteString
"\n\
      \\bRedeemer\DC2B\n\
      \\apurpose\CAN\SOH \SOH(\SO2(.utxorpc.v1alpha.cardano.RedeemerPurposeR\apurpose\DC29\n\
      \\ENQdatum\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum"
  packedFileDescriptor :: Proxy Redeemer -> ByteString
packedFileDescriptor Proxy Redeemer
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Redeemer)
fieldsByTag
    = let
        purpose__field_descriptor :: FieldDescriptor Redeemer
purpose__field_descriptor
          = String
-> FieldTypeDescriptor RedeemerPurpose
-> FieldAccessor Redeemer RedeemerPurpose
-> FieldDescriptor Redeemer
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"purpose"
              (ScalarField RedeemerPurpose -> FieldTypeDescriptor RedeemerPurpose
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField RedeemerPurpose
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor RedeemerPurpose)
              (WireDefault RedeemerPurpose
-> Lens Redeemer Redeemer RedeemerPurpose RedeemerPurpose
-> FieldAccessor Redeemer RedeemerPurpose
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault RedeemerPurpose
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 @"purpose")) ::
              Data.ProtoLens.FieldDescriptor Redeemer
        datum__field_descriptor :: FieldDescriptor Redeemer
datum__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor Redeemer PlutusData
-> FieldDescriptor Redeemer
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"datum"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Lens Redeemer Redeemer (Maybe PlutusData) (Maybe PlutusData)
-> FieldAccessor Redeemer 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'datum")) ::
              Data.ProtoLens.FieldDescriptor Redeemer
      in
        [(Tag, FieldDescriptor Redeemer)]
-> Map Tag (FieldDescriptor Redeemer)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Redeemer
purpose__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Redeemer
datum__field_descriptor)]
  unknownFields :: Lens' Redeemer FieldSet
unknownFields
    = (Redeemer -> FieldSet)
-> (Redeemer -> FieldSet -> Redeemer) -> Lens' Redeemer FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Redeemer -> FieldSet
_Redeemer'_unknownFields
        (\ Redeemer
x__ FieldSet
y__ -> Redeemer
x__ {_Redeemer'_unknownFields = y__})
  defMessage :: Redeemer
defMessage
    = Redeemer'_constructor
        {_Redeemer'purpose :: RedeemerPurpose
_Redeemer'purpose = RedeemerPurpose
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Redeemer'datum :: Maybe PlutusData
_Redeemer'datum = Maybe PlutusData
forall a. Maybe a
Prelude.Nothing, _Redeemer'_unknownFields :: FieldSet
_Redeemer'_unknownFields = []}
  parseMessage :: Parser Redeemer
parseMessage
    = let
        loop :: Redeemer -> Data.ProtoLens.Encoding.Bytes.Parser Redeemer
        loop :: Redeemer -> Parser Redeemer
loop Redeemer
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Redeemer -> Parser Redeemer
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Redeemer Redeemer FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Redeemer -> Redeemer
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Redeemer FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Redeemer FieldSet
Setter Redeemer Redeemer FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Redeemer
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do RedeemerPurpose
y <- Parser RedeemerPurpose -> String -> Parser RedeemerPurpose
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> RedeemerPurpose) -> Parser Int -> Parser RedeemerPurpose
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> RedeemerPurpose
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"purpose"
                                Redeemer -> Parser Redeemer
loop (Setter Redeemer Redeemer RedeemerPurpose RedeemerPurpose
-> RedeemerPurpose -> Redeemer -> Redeemer
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 @"purpose") RedeemerPurpose
y Redeemer
x)
                        Word64
18
                          -> do PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"datum"
                                Redeemer -> Parser Redeemer
loop (Setter Redeemer Redeemer PlutusData PlutusData
-> PlutusData -> Redeemer -> Redeemer
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 @"datum") PlutusData
y Redeemer
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Redeemer -> Parser Redeemer
loop
                                  (Setter Redeemer Redeemer FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Redeemer -> Redeemer
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Redeemer FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Redeemer FieldSet
Setter Redeemer Redeemer FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Redeemer
x)
      in
        Parser Redeemer -> String -> Parser Redeemer
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Redeemer -> Parser Redeemer
loop Redeemer
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Redeemer"
  buildMessage :: Redeemer -> Builder
buildMessage
    = \ Redeemer
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: RedeemerPurpose
_v = FoldLike
  RedeemerPurpose Redeemer Redeemer RedeemerPurpose RedeemerPurpose
-> Redeemer -> RedeemerPurpose
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 @"purpose") Redeemer
_x
              in
                if RedeemerPurpose -> RedeemerPurpose -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) RedeemerPurpose
_v RedeemerPurpose
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)
                      ((Int -> Builder)
-> (RedeemerPurpose -> Int) -> RedeemerPurpose -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                         RedeemerPurpose -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum RedeemerPurpose
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe PlutusData)
  Redeemer
  Redeemer
  (Maybe PlutusData)
  (Maybe PlutusData)
-> Redeemer -> 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'datum") Redeemer
_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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Redeemer Redeemer FieldSet FieldSet
-> Redeemer -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Redeemer Redeemer FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Redeemer FieldSet
Data.ProtoLens.unknownFields Redeemer
_x)))
instance Control.DeepSeq.NFData Redeemer where
  rnf :: Redeemer -> ()
rnf
    = \ Redeemer
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Redeemer -> FieldSet
_Redeemer'_unknownFields Redeemer
x__)
             (RedeemerPurpose -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Redeemer -> RedeemerPurpose
_Redeemer'purpose Redeemer
x__)
                (Maybe PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Redeemer -> Maybe PlutusData
_Redeemer'datum Redeemer
x__) ()))
newtype RedeemerPurpose'UnrecognizedValue
  = RedeemerPurpose'UnrecognizedValue Data.Int.Int32
  deriving stock (RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
(RedeemerPurpose'UnrecognizedValue
 -> RedeemerPurpose'UnrecognizedValue -> Bool)
-> (RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue -> Bool)
-> Eq RedeemerPurpose'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
== :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
$c/= :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
/= :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
Prelude.Eq, Eq RedeemerPurpose'UnrecognizedValue
Eq RedeemerPurpose'UnrecognizedValue =>
(RedeemerPurpose'UnrecognizedValue
 -> RedeemerPurpose'UnrecognizedValue -> Ordering)
-> (RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue -> Bool)
-> (RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue -> Bool)
-> (RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue -> Bool)
-> (RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue -> Bool)
-> (RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue)
-> (RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue
    -> RedeemerPurpose'UnrecognizedValue)
-> Ord RedeemerPurpose'UnrecognizedValue
RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Ordering
RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
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 :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Ordering
compare :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Ordering
$c< :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
< :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
$c<= :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
<= :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
$c> :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
> :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
$c>= :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
>= :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue -> Bool
$cmax :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
max :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
$cmin :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
min :: RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
-> RedeemerPurpose'UnrecognizedValue
Prelude.Ord, Int -> RedeemerPurpose'UnrecognizedValue -> ShowS
[RedeemerPurpose'UnrecognizedValue] -> ShowS
RedeemerPurpose'UnrecognizedValue -> String
(Int -> RedeemerPurpose'UnrecognizedValue -> ShowS)
-> (RedeemerPurpose'UnrecognizedValue -> String)
-> ([RedeemerPurpose'UnrecognizedValue] -> ShowS)
-> Show RedeemerPurpose'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RedeemerPurpose'UnrecognizedValue -> ShowS
showsPrec :: Int -> RedeemerPurpose'UnrecognizedValue -> ShowS
$cshow :: RedeemerPurpose'UnrecognizedValue -> String
show :: RedeemerPurpose'UnrecognizedValue -> String
$cshowList :: [RedeemerPurpose'UnrecognizedValue] -> ShowS
showList :: [RedeemerPurpose'UnrecognizedValue] -> ShowS
Prelude.Show)
data RedeemerPurpose
  = REDEEMER_PURPOSE_UNSPECIFIED |
    REDEEMER_PURPOSE_SPEND |
    REDEEMER_PURPOSE_MINT |
    REDEEMER_PURPOSE_CERT |
    REDEEMER_PURPOSE_REWARD |
    RedeemerPurpose'Unrecognized !RedeemerPurpose'UnrecognizedValue
  deriving stock (Int -> RedeemerPurpose -> ShowS
[RedeemerPurpose] -> ShowS
RedeemerPurpose -> String
(Int -> RedeemerPurpose -> ShowS)
-> (RedeemerPurpose -> String)
-> ([RedeemerPurpose] -> ShowS)
-> Show RedeemerPurpose
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RedeemerPurpose -> ShowS
showsPrec :: Int -> RedeemerPurpose -> ShowS
$cshow :: RedeemerPurpose -> String
show :: RedeemerPurpose -> String
$cshowList :: [RedeemerPurpose] -> ShowS
showList :: [RedeemerPurpose] -> ShowS
Prelude.Show, RedeemerPurpose -> RedeemerPurpose -> Bool
(RedeemerPurpose -> RedeemerPurpose -> Bool)
-> (RedeemerPurpose -> RedeemerPurpose -> Bool)
-> Eq RedeemerPurpose
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RedeemerPurpose -> RedeemerPurpose -> Bool
== :: RedeemerPurpose -> RedeemerPurpose -> Bool
$c/= :: RedeemerPurpose -> RedeemerPurpose -> Bool
/= :: RedeemerPurpose -> RedeemerPurpose -> Bool
Prelude.Eq, Eq RedeemerPurpose
Eq RedeemerPurpose =>
(RedeemerPurpose -> RedeemerPurpose -> Ordering)
-> (RedeemerPurpose -> RedeemerPurpose -> Bool)
-> (RedeemerPurpose -> RedeemerPurpose -> Bool)
-> (RedeemerPurpose -> RedeemerPurpose -> Bool)
-> (RedeemerPurpose -> RedeemerPurpose -> Bool)
-> (RedeemerPurpose -> RedeemerPurpose -> RedeemerPurpose)
-> (RedeemerPurpose -> RedeemerPurpose -> RedeemerPurpose)
-> Ord RedeemerPurpose
RedeemerPurpose -> RedeemerPurpose -> Bool
RedeemerPurpose -> RedeemerPurpose -> Ordering
RedeemerPurpose -> RedeemerPurpose -> RedeemerPurpose
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 :: RedeemerPurpose -> RedeemerPurpose -> Ordering
compare :: RedeemerPurpose -> RedeemerPurpose -> Ordering
$c< :: RedeemerPurpose -> RedeemerPurpose -> Bool
< :: RedeemerPurpose -> RedeemerPurpose -> Bool
$c<= :: RedeemerPurpose -> RedeemerPurpose -> Bool
<= :: RedeemerPurpose -> RedeemerPurpose -> Bool
$c> :: RedeemerPurpose -> RedeemerPurpose -> Bool
> :: RedeemerPurpose -> RedeemerPurpose -> Bool
$c>= :: RedeemerPurpose -> RedeemerPurpose -> Bool
>= :: RedeemerPurpose -> RedeemerPurpose -> Bool
$cmax :: RedeemerPurpose -> RedeemerPurpose -> RedeemerPurpose
max :: RedeemerPurpose -> RedeemerPurpose -> RedeemerPurpose
$cmin :: RedeemerPurpose -> RedeemerPurpose -> RedeemerPurpose
min :: RedeemerPurpose -> RedeemerPurpose -> RedeemerPurpose
Prelude.Ord)
instance Data.ProtoLens.MessageEnum RedeemerPurpose where
  maybeToEnum :: Int -> Maybe RedeemerPurpose
maybeToEnum Int
0 = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED
  maybeToEnum Int
1 = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_SPEND
  maybeToEnum Int
2 = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_MINT
  maybeToEnum Int
3 = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_CERT
  maybeToEnum Int
4 = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_REWARD
  maybeToEnum Int
k
    = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just
        (RedeemerPurpose'UnrecognizedValue -> RedeemerPurpose
RedeemerPurpose'Unrecognized
           (Int32 -> RedeemerPurpose'UnrecognizedValue
RedeemerPurpose'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: RedeemerPurpose -> String
showEnum RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED
    = String
"REDEEMER_PURPOSE_UNSPECIFIED"
  showEnum RedeemerPurpose
REDEEMER_PURPOSE_SPEND = String
"REDEEMER_PURPOSE_SPEND"
  showEnum RedeemerPurpose
REDEEMER_PURPOSE_MINT = String
"REDEEMER_PURPOSE_MINT"
  showEnum RedeemerPurpose
REDEEMER_PURPOSE_CERT = String
"REDEEMER_PURPOSE_CERT"
  showEnum RedeemerPurpose
REDEEMER_PURPOSE_REWARD = String
"REDEEMER_PURPOSE_REWARD"
  showEnum
    (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe RedeemerPurpose
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REDEEMER_PURPOSE_UNSPECIFIED"
    = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REDEEMER_PURPOSE_SPEND"
    = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_SPEND
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REDEEMER_PURPOSE_MINT"
    = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_MINT
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REDEEMER_PURPOSE_CERT"
    = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_CERT
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"REDEEMER_PURPOSE_REWARD"
    = RedeemerPurpose -> Maybe RedeemerPurpose
forall a. a -> Maybe a
Prelude.Just RedeemerPurpose
REDEEMER_PURPOSE_REWARD
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe RedeemerPurpose) -> Maybe RedeemerPurpose
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe RedeemerPurpose
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded RedeemerPurpose where
  minBound :: RedeemerPurpose
minBound = RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED
  maxBound :: RedeemerPurpose
maxBound = RedeemerPurpose
REDEEMER_PURPOSE_REWARD
instance Prelude.Enum RedeemerPurpose where
  toEnum :: Int -> RedeemerPurpose
toEnum Int
k__
    = RedeemerPurpose
-> (RedeemerPurpose -> RedeemerPurpose)
-> Maybe RedeemerPurpose
-> RedeemerPurpose
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> RedeemerPurpose
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum RedeemerPurpose: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        RedeemerPurpose -> RedeemerPurpose
forall a. a -> a
Prelude.id (Int -> Maybe RedeemerPurpose
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: RedeemerPurpose -> Int
fromEnum RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED = Int
0
  fromEnum RedeemerPurpose
REDEEMER_PURPOSE_SPEND = Int
1
  fromEnum RedeemerPurpose
REDEEMER_PURPOSE_MINT = Int
2
  fromEnum RedeemerPurpose
REDEEMER_PURPOSE_CERT = Int
3
  fromEnum RedeemerPurpose
REDEEMER_PURPOSE_REWARD = Int
4
  fromEnum
    (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: RedeemerPurpose -> RedeemerPurpose
succ RedeemerPurpose
REDEEMER_PURPOSE_REWARD
    = String -> RedeemerPurpose
forall a. HasCallStack => String -> a
Prelude.error
        String
"RedeemerPurpose.succ: bad argument REDEEMER_PURPOSE_REWARD. This value would be out of bounds."
  succ RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED = RedeemerPurpose
REDEEMER_PURPOSE_SPEND
  succ RedeemerPurpose
REDEEMER_PURPOSE_SPEND = RedeemerPurpose
REDEEMER_PURPOSE_MINT
  succ RedeemerPurpose
REDEEMER_PURPOSE_MINT = RedeemerPurpose
REDEEMER_PURPOSE_CERT
  succ RedeemerPurpose
REDEEMER_PURPOSE_CERT = RedeemerPurpose
REDEEMER_PURPOSE_REWARD
  succ (RedeemerPurpose'Unrecognized RedeemerPurpose'UnrecognizedValue
_)
    = String -> RedeemerPurpose
forall a. HasCallStack => String -> a
Prelude.error
        String
"RedeemerPurpose.succ: bad argument: unrecognized value"
  pred :: RedeemerPurpose -> RedeemerPurpose
pred RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED
    = String -> RedeemerPurpose
forall a. HasCallStack => String -> a
Prelude.error
        String
"RedeemerPurpose.pred: bad argument REDEEMER_PURPOSE_UNSPECIFIED. This value would be out of bounds."
  pred RedeemerPurpose
REDEEMER_PURPOSE_SPEND = RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED
  pred RedeemerPurpose
REDEEMER_PURPOSE_MINT = RedeemerPurpose
REDEEMER_PURPOSE_SPEND
  pred RedeemerPurpose
REDEEMER_PURPOSE_CERT = RedeemerPurpose
REDEEMER_PURPOSE_MINT
  pred RedeemerPurpose
REDEEMER_PURPOSE_REWARD = RedeemerPurpose
REDEEMER_PURPOSE_CERT
  pred (RedeemerPurpose'Unrecognized RedeemerPurpose'UnrecognizedValue
_)
    = String -> RedeemerPurpose
forall a. HasCallStack => String -> a
Prelude.error
        String
"RedeemerPurpose.pred: bad argument: unrecognized value"
  enumFrom :: RedeemerPurpose -> [RedeemerPurpose]
enumFrom = RedeemerPurpose -> [RedeemerPurpose]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: RedeemerPurpose -> RedeemerPurpose -> [RedeemerPurpose]
enumFromTo = RedeemerPurpose -> RedeemerPurpose -> [RedeemerPurpose]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: RedeemerPurpose -> RedeemerPurpose -> [RedeemerPurpose]
enumFromThen = RedeemerPurpose -> RedeemerPurpose -> [RedeemerPurpose]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: RedeemerPurpose
-> RedeemerPurpose -> RedeemerPurpose -> [RedeemerPurpose]
enumFromThenTo = RedeemerPurpose
-> RedeemerPurpose -> RedeemerPurpose -> [RedeemerPurpose]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault RedeemerPurpose where
  fieldDefault :: RedeemerPurpose
fieldDefault = RedeemerPurpose
REDEEMER_PURPOSE_UNSPECIFIED
instance Control.DeepSeq.NFData RedeemerPurpose where
  rnf :: RedeemerPurpose -> ()
rnf RedeemerPurpose
x__ = RedeemerPurpose -> () -> ()
forall a b. a -> b -> b
Prelude.seq RedeemerPurpose
x__ ()
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ipV4' @:: Lens' Relay Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ipV6' @:: Lens' Relay Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.dnsName' @:: Lens' Relay Data.Text.Text@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.port' @:: Lens' Relay Data.Word.Word32@ -}
data Relay
  = Relay'_constructor {Relay -> ByteString
_Relay'ipV4 :: !Data.ByteString.ByteString,
                        Relay -> ByteString
_Relay'ipV6 :: !Data.ByteString.ByteString,
                        Relay -> Text
_Relay'dnsName :: !Data.Text.Text,
                        Relay -> Word32
_Relay'port :: !Data.Word.Word32,
                        Relay -> FieldSet
_Relay'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Relay -> Relay -> Bool
(Relay -> Relay -> Bool) -> (Relay -> Relay -> Bool) -> Eq Relay
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Relay -> Relay -> Bool
== :: Relay -> Relay -> Bool
$c/= :: Relay -> Relay -> Bool
/= :: Relay -> Relay -> Bool
Prelude.Eq, Eq Relay
Eq Relay =>
(Relay -> Relay -> Ordering)
-> (Relay -> Relay -> Bool)
-> (Relay -> Relay -> Bool)
-> (Relay -> Relay -> Bool)
-> (Relay -> Relay -> Bool)
-> (Relay -> Relay -> Relay)
-> (Relay -> Relay -> Relay)
-> Ord Relay
Relay -> Relay -> Bool
Relay -> Relay -> Ordering
Relay -> Relay -> Relay
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 :: Relay -> Relay -> Ordering
compare :: Relay -> Relay -> Ordering
$c< :: Relay -> Relay -> Bool
< :: Relay -> Relay -> Bool
$c<= :: Relay -> Relay -> Bool
<= :: Relay -> Relay -> Bool
$c> :: Relay -> Relay -> Bool
> :: Relay -> Relay -> Bool
$c>= :: Relay -> Relay -> Bool
>= :: Relay -> Relay -> Bool
$cmax :: Relay -> Relay -> Relay
max :: Relay -> Relay -> Relay
$cmin :: Relay -> Relay -> Relay
min :: Relay -> Relay -> Relay
Prelude.Ord)
instance Prelude.Show Relay where
  showsPrec :: Int -> Relay -> ShowS
showsPrec Int
_ Relay
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Relay -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Relay
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Relay "ipV4" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ipV4" -> (ByteString -> f ByteString) -> Relay -> f Relay
fieldOf Proxy# "ipV4"
_
    = ((ByteString -> f ByteString) -> Relay -> f Relay)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Relay
-> f Relay
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Relay -> ByteString)
-> (Relay -> ByteString -> Relay)
-> Lens Relay Relay ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Relay -> ByteString
_Relay'ipV4 (\ Relay
x__ ByteString
y__ -> Relay
x__ {_Relay'ipV4 = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Relay "ipV6" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ipV6" -> (ByteString -> f ByteString) -> Relay -> f Relay
fieldOf Proxy# "ipV6"
_
    = ((ByteString -> f ByteString) -> Relay -> f Relay)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Relay
-> f Relay
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Relay -> ByteString)
-> (Relay -> ByteString -> Relay)
-> Lens Relay Relay ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Relay -> ByteString
_Relay'ipV6 (\ Relay
x__ ByteString
y__ -> Relay
x__ {_Relay'ipV6 = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Relay "dnsName" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dnsName" -> (Text -> f Text) -> Relay -> f Relay
fieldOf Proxy# "dnsName"
_
    = ((Text -> f Text) -> Relay -> f Relay)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Relay
-> f Relay
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Relay -> Text)
-> (Relay -> Text -> Relay) -> Lens Relay Relay Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Relay -> Text
_Relay'dnsName (\ Relay
x__ Text
y__ -> Relay
x__ {_Relay'dnsName = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Relay "port" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "port" -> (Word32 -> f Word32) -> Relay -> f Relay
fieldOf Proxy# "port"
_
    = ((Word32 -> f Word32) -> Relay -> f Relay)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> Relay
-> f Relay
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Relay -> Word32)
-> (Relay -> Word32 -> Relay) -> Lens Relay Relay Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Relay -> Word32
_Relay'port (\ Relay
x__ Word32
y__ -> Relay
x__ {_Relay'port = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Relay where
  messageName :: Proxy Relay -> Text
messageName Proxy Relay
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Relay"
  packedMessageDescriptor :: Proxy Relay -> ByteString
packedMessageDescriptor Proxy Relay
_
    = ByteString
"\n\
      \\ENQRelay\DC2\DC3\n\
      \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\
      \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\
      \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\
      \\EOTport\CAN\EOT \SOH(\rR\EOTport"
  packedFileDescriptor :: Proxy Relay -> ByteString
packedFileDescriptor Proxy Relay
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Relay)
fieldsByTag
    = let
        ipV4__field_descriptor :: FieldDescriptor Relay
ipV4__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Relay ByteString
-> FieldDescriptor Relay
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ip_v4"
              (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 Relay Relay ByteString ByteString
-> FieldAccessor Relay 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 @"ipV4")) ::
              Data.ProtoLens.FieldDescriptor Relay
        ipV6__field_descriptor :: FieldDescriptor Relay
ipV6__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Relay ByteString
-> FieldDescriptor Relay
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ip_v6"
              (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 Relay Relay ByteString ByteString
-> FieldAccessor Relay 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 @"ipV6")) ::
              Data.ProtoLens.FieldDescriptor Relay
        dnsName__field_descriptor :: FieldDescriptor Relay
dnsName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Relay Text
-> FieldDescriptor Relay
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"dns_name"
              (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 Relay Relay Text Text -> FieldAccessor Relay 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 @"dnsName")) ::
              Data.ProtoLens.FieldDescriptor Relay
        port__field_descriptor :: FieldDescriptor Relay
port__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor Relay Word32
-> FieldDescriptor Relay
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"port"
              (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 Relay Relay Word32 Word32 -> FieldAccessor Relay 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 @"port")) ::
              Data.ProtoLens.FieldDescriptor Relay
      in
        [(Tag, FieldDescriptor Relay)] -> Map Tag (FieldDescriptor Relay)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Relay
ipV4__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Relay
ipV6__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Relay
dnsName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Relay
port__field_descriptor)]
  unknownFields :: Lens' Relay FieldSet
unknownFields
    = (Relay -> FieldSet)
-> (Relay -> FieldSet -> Relay) -> Lens' Relay FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Relay -> FieldSet
_Relay'_unknownFields
        (\ Relay
x__ FieldSet
y__ -> Relay
x__ {_Relay'_unknownFields = y__})
  defMessage :: Relay
defMessage
    = Relay'_constructor
        {_Relay'ipV4 :: ByteString
_Relay'ipV4 = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Relay'ipV6 :: ByteString
_Relay'ipV6 = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Relay'dnsName :: Text
_Relay'dnsName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Relay'port :: Word32
_Relay'port = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Relay'_unknownFields :: FieldSet
_Relay'_unknownFields = []}
  parseMessage :: Parser Relay
parseMessage
    = let
        loop :: Relay -> Data.ProtoLens.Encoding.Bytes.Parser Relay
        loop :: Relay -> Parser Relay
loop Relay
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Relay -> Parser Relay
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Relay Relay FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Relay -> Relay
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Relay FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Relay FieldSet
Setter Relay Relay FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Relay
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"ip_v4"
                                Relay -> Parser Relay
loop (Setter Relay Relay ByteString ByteString
-> ByteString -> Relay -> Relay
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 @"ipV4") ByteString
y Relay
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"ip_v6"
                                Relay -> Parser Relay
loop (Setter Relay Relay ByteString ByteString
-> ByteString -> Relay -> Relay
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 @"ipV6") ByteString
y Relay
x)
                        Word64
26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Text
Data.ProtoLens.Encoding.Bytes.getText
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"dns_name"
                                Relay -> Parser Relay
loop (Setter Relay Relay Text Text -> Text -> Relay -> Relay
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 @"dnsName") Text
y Relay
x)
                        Word64
32
                          -> do Word32
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
"port"
                                Relay -> Parser Relay
loop (Setter Relay Relay Word32 Word32 -> Word32 -> Relay -> Relay
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 @"port") Word32
y Relay
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Relay -> Parser Relay
loop
                                  (Setter Relay Relay FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Relay -> Relay
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Relay FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Relay FieldSet
Setter Relay Relay FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Relay
x)
      in
        Parser Relay -> String -> Parser Relay
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Relay -> Parser Relay
loop Relay
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Relay"
  buildMessage :: Relay -> Builder
buildMessage
    = \ Relay
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString Relay Relay ByteString ByteString
-> Relay -> 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 @"ipV4") Relay
_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 Relay Relay ByteString ByteString
-> Relay -> 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 @"ipV6") Relay
_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 :: Text
_v = FoldLike Text Relay Relay Text Text -> Relay -> 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 @"dnsName") Relay
_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 :: Word32
_v = FoldLike Word32 Relay Relay Word32 Word32 -> Relay -> 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 @"port") Relay
_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
32)
                               ((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))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet Relay Relay FieldSet FieldSet
-> Relay -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Relay Relay FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Relay FieldSet
Data.ProtoLens.unknownFields Relay
_x)))))
instance Control.DeepSeq.NFData Relay where
  rnf :: Relay -> ()
rnf
    = \ Relay
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Relay -> FieldSet
_Relay'_unknownFields Relay
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Relay -> ByteString
_Relay'ipV4 Relay
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Relay -> ByteString
_Relay'ipV6 Relay
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Relay -> Text
_Relay'dnsName Relay
x__)
                      (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Relay -> Word32
_Relay'port Relay
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'script' @:: Lens' Script (Prelude.Maybe Script'Script)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'native' @:: Lens' Script (Prelude.Maybe NativeScript)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.native' @:: Lens' Script NativeScript@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' Script Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' Script Data.ByteString.ByteString@ -}
data Script
  = Script'_constructor {Script -> Maybe Script'Script
_Script'script :: !(Prelude.Maybe Script'Script),
                         Script -> FieldSet
_Script'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Script -> Script -> Bool
(Script -> Script -> Bool)
-> (Script -> Script -> Bool) -> Eq Script
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Script -> Script -> Bool
== :: Script -> Script -> Bool
$c/= :: Script -> Script -> Bool
/= :: Script -> Script -> Bool
Prelude.Eq, Eq Script
Eq Script =>
(Script -> Script -> Ordering)
-> (Script -> Script -> Bool)
-> (Script -> Script -> Bool)
-> (Script -> Script -> Bool)
-> (Script -> Script -> Bool)
-> (Script -> Script -> Script)
-> (Script -> Script -> Script)
-> Ord Script
Script -> Script -> Bool
Script -> Script -> Ordering
Script -> Script -> Script
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 :: Script -> Script -> Ordering
compare :: Script -> Script -> Ordering
$c< :: Script -> Script -> Bool
< :: Script -> Script -> Bool
$c<= :: Script -> Script -> Bool
<= :: Script -> Script -> Bool
$c> :: Script -> Script -> Bool
> :: Script -> Script -> Bool
$c>= :: Script -> Script -> Bool
>= :: Script -> Script -> Bool
$cmax :: Script -> Script -> Script
max :: Script -> Script -> Script
$cmin :: Script -> Script -> Script
min :: Script -> Script -> Script
Prelude.Ord)
instance Prelude.Show Script where
  showsPrec :: Int -> Script -> ShowS
showsPrec Int
_ Script
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Script -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Script
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Script'Script
  = Script'Native !NativeScript |
    Script'PlutusV1 !Data.ByteString.ByteString |
    Script'PlutusV2 !Data.ByteString.ByteString
  deriving stock (Int -> Script'Script -> ShowS
[Script'Script] -> ShowS
Script'Script -> String
(Int -> Script'Script -> ShowS)
-> (Script'Script -> String)
-> ([Script'Script] -> ShowS)
-> Show Script'Script
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Script'Script -> ShowS
showsPrec :: Int -> Script'Script -> ShowS
$cshow :: Script'Script -> String
show :: Script'Script -> String
$cshowList :: [Script'Script] -> ShowS
showList :: [Script'Script] -> ShowS
Prelude.Show, Script'Script -> Script'Script -> Bool
(Script'Script -> Script'Script -> Bool)
-> (Script'Script -> Script'Script -> Bool) -> Eq Script'Script
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Script'Script -> Script'Script -> Bool
== :: Script'Script -> Script'Script -> Bool
$c/= :: Script'Script -> Script'Script -> Bool
/= :: Script'Script -> Script'Script -> Bool
Prelude.Eq, Eq Script'Script
Eq Script'Script =>
(Script'Script -> Script'Script -> Ordering)
-> (Script'Script -> Script'Script -> Bool)
-> (Script'Script -> Script'Script -> Bool)
-> (Script'Script -> Script'Script -> Bool)
-> (Script'Script -> Script'Script -> Bool)
-> (Script'Script -> Script'Script -> Script'Script)
-> (Script'Script -> Script'Script -> Script'Script)
-> Ord Script'Script
Script'Script -> Script'Script -> Bool
Script'Script -> Script'Script -> Ordering
Script'Script -> Script'Script -> Script'Script
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 :: Script'Script -> Script'Script -> Ordering
compare :: Script'Script -> Script'Script -> Ordering
$c< :: Script'Script -> Script'Script -> Bool
< :: Script'Script -> Script'Script -> Bool
$c<= :: Script'Script -> Script'Script -> Bool
<= :: Script'Script -> Script'Script -> Bool
$c> :: Script'Script -> Script'Script -> Bool
> :: Script'Script -> Script'Script -> Bool
$c>= :: Script'Script -> Script'Script -> Bool
>= :: Script'Script -> Script'Script -> Bool
$cmax :: Script'Script -> Script'Script -> Script'Script
max :: Script'Script -> Script'Script -> Script'Script
$cmin :: Script'Script -> Script'Script -> Script'Script
min :: Script'Script -> Script'Script -> Script'Script
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Script "maybe'script" (Prelude.Maybe Script'Script) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'script"
-> (Maybe Script'Script -> f (Maybe Script'Script))
-> Script
-> f Script
fieldOf Proxy# "maybe'script"
_
    = ((Maybe Script'Script -> f (Maybe Script'Script))
 -> Script -> f Script)
-> ((Maybe Script'Script -> f (Maybe Script'Script))
    -> Maybe Script'Script -> f (Maybe Script'Script))
-> (Maybe Script'Script -> f (Maybe Script'Script))
-> Script
-> f Script
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Script -> Maybe Script'Script)
-> (Script -> Maybe Script'Script -> Script)
-> Lens Script Script (Maybe Script'Script) (Maybe Script'Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Script -> Maybe Script'Script
_Script'script (\ Script
x__ Maybe Script'Script
y__ -> Script
x__ {_Script'script = y__}))
        (Maybe Script'Script -> f (Maybe Script'Script))
-> Maybe Script'Script -> f (Maybe Script'Script)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Script "maybe'native" (Prelude.Maybe NativeScript) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'native"
-> (Maybe NativeScript -> f (Maybe NativeScript))
-> Script
-> f Script
fieldOf Proxy# "maybe'native"
_
    = ((Maybe Script'Script -> f (Maybe Script'Script))
 -> Script -> f Script)
-> ((Maybe NativeScript -> f (Maybe NativeScript))
    -> Maybe Script'Script -> f (Maybe Script'Script))
-> (Maybe NativeScript -> f (Maybe NativeScript))
-> Script
-> f Script
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Script -> Maybe Script'Script)
-> (Script -> Maybe Script'Script -> Script)
-> Lens Script Script (Maybe Script'Script) (Maybe Script'Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Script -> Maybe Script'Script
_Script'script (\ Script
x__ Maybe Script'Script
y__ -> Script
x__ {_Script'script = y__}))
        ((Maybe Script'Script -> Maybe NativeScript)
-> (Maybe Script'Script
    -> Maybe NativeScript -> Maybe Script'Script)
-> Lens
     (Maybe Script'Script)
     (Maybe Script'Script)
     (Maybe NativeScript)
     (Maybe NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Script'Script
x__
              -> case Maybe Script'Script
x__ of
                   (Prelude.Just (Script'Native NativeScript
x__val)) -> NativeScript -> Maybe NativeScript
forall a. a -> Maybe a
Prelude.Just NativeScript
x__val
                   Maybe Script'Script
_otherwise -> Maybe NativeScript
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Script'Script
_ Maybe NativeScript
y__ -> (NativeScript -> Script'Script)
-> Maybe NativeScript -> Maybe Script'Script
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NativeScript -> Script'Script
Script'Native Maybe NativeScript
y__))
instance Data.ProtoLens.Field.HasField Script "native" NativeScript where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "native"
-> (NativeScript -> f NativeScript) -> Script -> f Script
fieldOf Proxy# "native"
_
    = ((Maybe Script'Script -> f (Maybe Script'Script))
 -> Script -> f Script)
-> ((NativeScript -> f NativeScript)
    -> Maybe Script'Script -> f (Maybe Script'Script))
-> (NativeScript -> f NativeScript)
-> Script
-> f Script
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Script -> Maybe Script'Script)
-> (Script -> Maybe Script'Script -> Script)
-> Lens Script Script (Maybe Script'Script) (Maybe Script'Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Script -> Maybe Script'Script
_Script'script (\ Script
x__ Maybe Script'Script
y__ -> Script
x__ {_Script'script = y__}))
        (((Maybe NativeScript -> f (Maybe NativeScript))
 -> Maybe Script'Script -> f (Maybe Script'Script))
-> ((NativeScript -> f NativeScript)
    -> Maybe NativeScript -> f (Maybe NativeScript))
-> (NativeScript -> f NativeScript)
-> Maybe Script'Script
-> f (Maybe Script'Script)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Script'Script -> Maybe NativeScript)
-> (Maybe Script'Script
    -> Maybe NativeScript -> Maybe Script'Script)
-> Lens
     (Maybe Script'Script)
     (Maybe Script'Script)
     (Maybe NativeScript)
     (Maybe NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Script'Script
x__
                 -> case Maybe Script'Script
x__ of
                      (Prelude.Just (Script'Native NativeScript
x__val)) -> NativeScript -> Maybe NativeScript
forall a. a -> Maybe a
Prelude.Just NativeScript
x__val
                      Maybe Script'Script
_otherwise -> Maybe NativeScript
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Script'Script
_ Maybe NativeScript
y__ -> (NativeScript -> Script'Script)
-> Maybe NativeScript -> Maybe Script'Script
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NativeScript -> Script'Script
Script'Native Maybe NativeScript
y__))
           (NativeScript -> Lens' (Maybe NativeScript) NativeScript
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NativeScript
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Script "maybe'plutusV1" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV1"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Script -> f Script
fieldOf Proxy# "maybe'plutusV1"
_
    = ((Maybe Script'Script -> f (Maybe Script'Script))
 -> Script -> f Script)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe Script'Script -> f (Maybe Script'Script))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Script
-> f Script
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Script -> Maybe Script'Script)
-> (Script -> Maybe Script'Script -> Script)
-> Lens Script Script (Maybe Script'Script) (Maybe Script'Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Script -> Maybe Script'Script
_Script'script (\ Script
x__ Maybe Script'Script
y__ -> Script
x__ {_Script'script = y__}))
        ((Maybe Script'Script -> Maybe ByteString)
-> (Maybe Script'Script -> Maybe ByteString -> Maybe Script'Script)
-> Lens
     (Maybe Script'Script)
     (Maybe Script'Script)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Script'Script
x__
              -> case Maybe Script'Script
x__ of
                   (Prelude.Just (Script'PlutusV1 ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe Script'Script
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Script'Script
_ Maybe ByteString
y__ -> (ByteString -> Script'Script)
-> Maybe ByteString -> Maybe Script'Script
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Script'Script
Script'PlutusV1 Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Script "plutusV1" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV1"
-> (ByteString -> f ByteString) -> Script -> f Script
fieldOf Proxy# "plutusV1"
_
    = ((Maybe Script'Script -> f (Maybe Script'Script))
 -> Script -> f Script)
-> ((ByteString -> f ByteString)
    -> Maybe Script'Script -> f (Maybe Script'Script))
-> (ByteString -> f ByteString)
-> Script
-> f Script
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Script -> Maybe Script'Script)
-> (Script -> Maybe Script'Script -> Script)
-> Lens Script Script (Maybe Script'Script) (Maybe Script'Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Script -> Maybe Script'Script
_Script'script (\ Script
x__ Maybe Script'Script
y__ -> Script
x__ {_Script'script = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe Script'Script -> f (Maybe Script'Script))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe Script'Script
-> f (Maybe Script'Script)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Script'Script -> Maybe ByteString)
-> (Maybe Script'Script -> Maybe ByteString -> Maybe Script'Script)
-> Lens
     (Maybe Script'Script)
     (Maybe Script'Script)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Script'Script
x__
                 -> case Maybe Script'Script
x__ of
                      (Prelude.Just (Script'PlutusV1 ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe Script'Script
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Script'Script
_ Maybe ByteString
y__ -> (ByteString -> Script'Script)
-> Maybe ByteString -> Maybe Script'Script
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Script'Script
Script'PlutusV1 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 Script "maybe'plutusV2" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV2"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Script -> f Script
fieldOf Proxy# "maybe'plutusV2"
_
    = ((Maybe Script'Script -> f (Maybe Script'Script))
 -> Script -> f Script)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe Script'Script -> f (Maybe Script'Script))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Script
-> f Script
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Script -> Maybe Script'Script)
-> (Script -> Maybe Script'Script -> Script)
-> Lens Script Script (Maybe Script'Script) (Maybe Script'Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Script -> Maybe Script'Script
_Script'script (\ Script
x__ Maybe Script'Script
y__ -> Script
x__ {_Script'script = y__}))
        ((Maybe Script'Script -> Maybe ByteString)
-> (Maybe Script'Script -> Maybe ByteString -> Maybe Script'Script)
-> Lens
     (Maybe Script'Script)
     (Maybe Script'Script)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Script'Script
x__
              -> case Maybe Script'Script
x__ of
                   (Prelude.Just (Script'PlutusV2 ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe Script'Script
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Script'Script
_ Maybe ByteString
y__ -> (ByteString -> Script'Script)
-> Maybe ByteString -> Maybe Script'Script
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Script'Script
Script'PlutusV2 Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Script "plutusV2" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV2"
-> (ByteString -> f ByteString) -> Script -> f Script
fieldOf Proxy# "plutusV2"
_
    = ((Maybe Script'Script -> f (Maybe Script'Script))
 -> Script -> f Script)
-> ((ByteString -> f ByteString)
    -> Maybe Script'Script -> f (Maybe Script'Script))
-> (ByteString -> f ByteString)
-> Script
-> f Script
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Script -> Maybe Script'Script)
-> (Script -> Maybe Script'Script -> Script)
-> Lens Script Script (Maybe Script'Script) (Maybe Script'Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Script -> Maybe Script'Script
_Script'script (\ Script
x__ Maybe Script'Script
y__ -> Script
x__ {_Script'script = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe Script'Script -> f (Maybe Script'Script))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe Script'Script
-> f (Maybe Script'Script)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Script'Script -> Maybe ByteString)
-> (Maybe Script'Script -> Maybe ByteString -> Maybe Script'Script)
-> Lens
     (Maybe Script'Script)
     (Maybe Script'Script)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Script'Script
x__
                 -> case Maybe Script'Script
x__ of
                      (Prelude.Just (Script'PlutusV2 ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe Script'Script
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Script'Script
_ Maybe ByteString
y__ -> (ByteString -> Script'Script)
-> Maybe ByteString -> Maybe Script'Script
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Script'Script
Script'PlutusV2 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 Script where
  messageName :: Proxy Script -> Text
messageName Proxy Script
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Script"
  packedMessageDescriptor :: Proxy Script -> ByteString
packedMessageDescriptor Proxy Script
_
    = ByteString
"\n\
      \\ACKScript\DC2?\n\
      \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\
      \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\
      \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2B\b\n\
      \\ACKscript"
  packedFileDescriptor :: Proxy Script -> ByteString
packedFileDescriptor Proxy Script
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Script)
fieldsByTag
    = let
        native__field_descriptor :: FieldDescriptor Script
native__field_descriptor
          = String
-> FieldTypeDescriptor NativeScript
-> FieldAccessor Script NativeScript
-> FieldDescriptor Script
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"native"
              (MessageOrGroup -> FieldTypeDescriptor NativeScript
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NativeScript)
              (Lens' Script (Maybe NativeScript)
-> FieldAccessor Script NativeScript
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'native")) ::
              Data.ProtoLens.FieldDescriptor Script
        plutusV1__field_descriptor :: FieldDescriptor Script
plutusV1__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Script ByteString
-> FieldDescriptor Script
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v1"
              (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' Script (Maybe ByteString) -> FieldAccessor Script 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'plutusV1")) ::
              Data.ProtoLens.FieldDescriptor Script
        plutusV2__field_descriptor :: FieldDescriptor Script
plutusV2__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Script ByteString
-> FieldDescriptor Script
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v2"
              (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' Script (Maybe ByteString) -> FieldAccessor Script 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'plutusV2")) ::
              Data.ProtoLens.FieldDescriptor Script
      in
        [(Tag, FieldDescriptor Script)] -> Map Tag (FieldDescriptor Script)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Script
native__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Script
plutusV1__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Script
plutusV2__field_descriptor)]
  unknownFields :: Lens' Script FieldSet
unknownFields
    = (Script -> FieldSet)
-> (Script -> FieldSet -> Script) -> Lens' Script FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Script -> FieldSet
_Script'_unknownFields
        (\ Script
x__ FieldSet
y__ -> Script
x__ {_Script'_unknownFields = y__})
  defMessage :: Script
defMessage
    = Script'_constructor
        {_Script'script :: Maybe Script'Script
_Script'script = Maybe Script'Script
forall a. Maybe a
Prelude.Nothing, _Script'_unknownFields :: FieldSet
_Script'_unknownFields = []}
  parseMessage :: Parser Script
parseMessage
    = let
        loop :: Script -> Data.ProtoLens.Encoding.Bytes.Parser Script
        loop :: Script -> Parser Script
loop Script
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Script -> Parser Script
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Script Script FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Script -> Script
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Script FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Script FieldSet
Setter Script Script FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Script
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do NativeScript
y <- Parser NativeScript -> String -> Parser NativeScript
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser NativeScript -> Parser NativeScript
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser NativeScript
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"native"
                                Script -> Parser Script
loop (Setter Script Script NativeScript NativeScript
-> NativeScript -> Script -> Script
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 @"native") NativeScript
y Script
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"plutus_v1"
                                Script -> Parser Script
loop
                                  (Setter Script Script ByteString ByteString
-> ByteString -> Script -> Script
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 @"plutusV1") ByteString
y Script
x)
                        Word64
26
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"plutus_v2"
                                Script -> Parser Script
loop
                                  (Setter Script Script ByteString ByteString
-> ByteString -> Script -> Script
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 @"plutusV2") ByteString
y Script
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Script -> Parser Script
loop
                                  (Setter Script Script FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Script -> Script
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Script FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Script FieldSet
Setter Script Script FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Script
x)
      in
        Parser Script -> String -> Parser Script
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Script -> Parser Script
loop Script
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Script"
  buildMessage :: Script -> Builder
buildMessage
    = \ Script
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Script'Script)
  Script
  Script
  (Maybe Script'Script)
  (Maybe Script'Script)
-> Script -> Maybe Script'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 @"maybe'script") Script
_x
              of
                Maybe Script'Script
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (Script'Native NativeScript
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (NativeScript -> ByteString) -> NativeScript -> 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))
                          NativeScript -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NativeScript
v)
                (Prelude.Just (Script'PlutusV1 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 (Script'PlutusV2 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 Script Script FieldSet FieldSet
-> Script -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Script Script FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Script FieldSet
Data.ProtoLens.unknownFields Script
_x))
instance Control.DeepSeq.NFData Script where
  rnf :: Script -> ()
rnf
    = \ Script
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Script -> FieldSet
_Script'_unknownFields Script
x__)
             (Maybe Script'Script -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Script -> Maybe Script'Script
_Script'script Script
x__) ())
instance Control.DeepSeq.NFData Script'Script where
  rnf :: Script'Script -> ()
rnf (Script'Native NativeScript
x__) = NativeScript -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NativeScript
x__
  rnf (Script'PlutusV1 ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (Script'PlutusV2 ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
_Script'Native ::
  Data.ProtoLens.Prism.Prism' Script'Script NativeScript
_Script'Native :: Prism' Script'Script NativeScript
_Script'Native
  = (NativeScript -> Script'Script)
-> (Script'Script -> Maybe NativeScript)
-> Prism' Script'Script NativeScript
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      NativeScript -> Script'Script
Script'Native
      (\ Script'Script
p__
         -> case Script'Script
p__ of
              (Script'Native NativeScript
p__val) -> NativeScript -> Maybe NativeScript
forall a. a -> Maybe a
Prelude.Just NativeScript
p__val
              Script'Script
_otherwise -> Maybe NativeScript
forall a. Maybe a
Prelude.Nothing)
_Script'PlutusV1 ::
  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString
_Script'PlutusV1 :: Prism' Script'Script ByteString
_Script'PlutusV1
  = (ByteString -> Script'Script)
-> (Script'Script -> Maybe ByteString)
-> Prism' Script'Script ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> Script'Script
Script'PlutusV1
      (\ Script'Script
p__
         -> case Script'Script
p__ of
              (Script'PlutusV1 ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              Script'Script
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_Script'PlutusV2 ::
  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString
_Script'PlutusV2 :: Prism' Script'Script ByteString
_Script'PlutusV2
  = (ByteString -> Script'Script)
-> (Script'Script -> Maybe ByteString)
-> Prism' Script'Script ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> Script'Script
Script'PlutusV2
      (\ Script'Script
p__
         -> case Script'Script
p__ of
              (Script'PlutusV2 ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              Script'Script
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.k' @:: Lens' ScriptNOfK Data.Word.Word32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scripts' @:: Lens' ScriptNOfK [NativeScript]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'scripts' @:: Lens' ScriptNOfK (Data.Vector.Vector NativeScript)@ -}
data ScriptNOfK
  = ScriptNOfK'_constructor {ScriptNOfK -> Word32
_ScriptNOfK'k :: !Data.Word.Word32,
                             ScriptNOfK -> Vector NativeScript
_ScriptNOfK'scripts :: !(Data.Vector.Vector NativeScript),
                             ScriptNOfK -> FieldSet
_ScriptNOfK'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ScriptNOfK -> ScriptNOfK -> Bool
(ScriptNOfK -> ScriptNOfK -> Bool)
-> (ScriptNOfK -> ScriptNOfK -> Bool) -> Eq ScriptNOfK
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScriptNOfK -> ScriptNOfK -> Bool
== :: ScriptNOfK -> ScriptNOfK -> Bool
$c/= :: ScriptNOfK -> ScriptNOfK -> Bool
/= :: ScriptNOfK -> ScriptNOfK -> Bool
Prelude.Eq, Eq ScriptNOfK
Eq ScriptNOfK =>
(ScriptNOfK -> ScriptNOfK -> Ordering)
-> (ScriptNOfK -> ScriptNOfK -> Bool)
-> (ScriptNOfK -> ScriptNOfK -> Bool)
-> (ScriptNOfK -> ScriptNOfK -> Bool)
-> (ScriptNOfK -> ScriptNOfK -> Bool)
-> (ScriptNOfK -> ScriptNOfK -> ScriptNOfK)
-> (ScriptNOfK -> ScriptNOfK -> ScriptNOfK)
-> Ord ScriptNOfK
ScriptNOfK -> ScriptNOfK -> Bool
ScriptNOfK -> ScriptNOfK -> Ordering
ScriptNOfK -> ScriptNOfK -> ScriptNOfK
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 :: ScriptNOfK -> ScriptNOfK -> Ordering
compare :: ScriptNOfK -> ScriptNOfK -> Ordering
$c< :: ScriptNOfK -> ScriptNOfK -> Bool
< :: ScriptNOfK -> ScriptNOfK -> Bool
$c<= :: ScriptNOfK -> ScriptNOfK -> Bool
<= :: ScriptNOfK -> ScriptNOfK -> Bool
$c> :: ScriptNOfK -> ScriptNOfK -> Bool
> :: ScriptNOfK -> ScriptNOfK -> Bool
$c>= :: ScriptNOfK -> ScriptNOfK -> Bool
>= :: ScriptNOfK -> ScriptNOfK -> Bool
$cmax :: ScriptNOfK -> ScriptNOfK -> ScriptNOfK
max :: ScriptNOfK -> ScriptNOfK -> ScriptNOfK
$cmin :: ScriptNOfK -> ScriptNOfK -> ScriptNOfK
min :: ScriptNOfK -> ScriptNOfK -> ScriptNOfK
Prelude.Ord)
instance Prelude.Show ScriptNOfK where
  showsPrec :: Int -> ScriptNOfK -> ShowS
showsPrec Int
_ ScriptNOfK
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ScriptNOfK -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScriptNOfK
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScriptNOfK "k" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "k" -> (Word32 -> f Word32) -> ScriptNOfK -> f ScriptNOfK
fieldOf Proxy# "k"
_
    = ((Word32 -> f Word32) -> ScriptNOfK -> f ScriptNOfK)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> ScriptNOfK
-> f ScriptNOfK
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ScriptNOfK -> Word32)
-> (ScriptNOfK -> Word32 -> ScriptNOfK)
-> Lens ScriptNOfK ScriptNOfK Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ScriptNOfK -> Word32
_ScriptNOfK'k (\ ScriptNOfK
x__ Word32
y__ -> ScriptNOfK
x__ {_ScriptNOfK'k = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScriptNOfK "scripts" [NativeScript] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scripts"
-> ([NativeScript] -> f [NativeScript])
-> ScriptNOfK
-> f ScriptNOfK
fieldOf Proxy# "scripts"
_
    = ((Vector NativeScript -> f (Vector NativeScript))
 -> ScriptNOfK -> f ScriptNOfK)
-> (([NativeScript] -> f [NativeScript])
    -> Vector NativeScript -> f (Vector NativeScript))
-> ([NativeScript] -> f [NativeScript])
-> ScriptNOfK
-> f ScriptNOfK
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ScriptNOfK -> Vector NativeScript)
-> (ScriptNOfK -> Vector NativeScript -> ScriptNOfK)
-> Lens
     ScriptNOfK ScriptNOfK (Vector NativeScript) (Vector NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ScriptNOfK -> Vector NativeScript
_ScriptNOfK'scripts (\ ScriptNOfK
x__ Vector NativeScript
y__ -> ScriptNOfK
x__ {_ScriptNOfK'scripts = y__}))
        ((Vector NativeScript -> [NativeScript])
-> (Vector NativeScript -> [NativeScript] -> Vector NativeScript)
-> Lens
     (Vector NativeScript)
     (Vector NativeScript)
     [NativeScript]
     [NativeScript]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector NativeScript -> [NativeScript]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector NativeScript
_ [NativeScript]
y__ -> [NativeScript] -> Vector NativeScript
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NativeScript]
y__))
instance Data.ProtoLens.Field.HasField ScriptNOfK "vec'scripts" (Data.Vector.Vector NativeScript) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'scripts"
-> (Vector NativeScript -> f (Vector NativeScript))
-> ScriptNOfK
-> f ScriptNOfK
fieldOf Proxy# "vec'scripts"
_
    = ((Vector NativeScript -> f (Vector NativeScript))
 -> ScriptNOfK -> f ScriptNOfK)
-> ((Vector NativeScript -> f (Vector NativeScript))
    -> Vector NativeScript -> f (Vector NativeScript))
-> (Vector NativeScript -> f (Vector NativeScript))
-> ScriptNOfK
-> f ScriptNOfK
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ScriptNOfK -> Vector NativeScript)
-> (ScriptNOfK -> Vector NativeScript -> ScriptNOfK)
-> Lens
     ScriptNOfK ScriptNOfK (Vector NativeScript) (Vector NativeScript)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ScriptNOfK -> Vector NativeScript
_ScriptNOfK'scripts (\ ScriptNOfK
x__ Vector NativeScript
y__ -> ScriptNOfK
x__ {_ScriptNOfK'scripts = y__}))
        (Vector NativeScript -> f (Vector NativeScript))
-> Vector NativeScript -> f (Vector NativeScript)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScriptNOfK where
  messageName :: Proxy ScriptNOfK -> Text
messageName Proxy ScriptNOfK
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.ScriptNOfK"
  packedMessageDescriptor :: Proxy ScriptNOfK -> ByteString
packedMessageDescriptor Proxy ScriptNOfK
_
    = ByteString
"\n\
      \\n\
      \ScriptNOfK\DC2\f\n\
      \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\
      \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts"
  packedFileDescriptor :: Proxy ScriptNOfK -> ByteString
packedFileDescriptor Proxy ScriptNOfK
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ScriptNOfK)
fieldsByTag
    = let
        k__field_descriptor :: FieldDescriptor ScriptNOfK
k__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor ScriptNOfK Word32
-> FieldDescriptor ScriptNOfK
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"k"
              (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 ScriptNOfK ScriptNOfK Word32 Word32
-> FieldAccessor ScriptNOfK 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 @"k")) ::
              Data.ProtoLens.FieldDescriptor ScriptNOfK
        scripts__field_descriptor :: FieldDescriptor ScriptNOfK
scripts__field_descriptor
          = String
-> FieldTypeDescriptor NativeScript
-> FieldAccessor ScriptNOfK NativeScript
-> FieldDescriptor ScriptNOfK
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"scripts"
              (MessageOrGroup -> FieldTypeDescriptor NativeScript
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor NativeScript)
              (Packing
-> Lens' ScriptNOfK [NativeScript]
-> FieldAccessor ScriptNOfK NativeScript
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 ScriptNOfK
      in
        [(Tag, FieldDescriptor ScriptNOfK)]
-> Map Tag (FieldDescriptor ScriptNOfK)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScriptNOfK
k__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScriptNOfK
scripts__field_descriptor)]
  unknownFields :: Lens' ScriptNOfK FieldSet
unknownFields
    = (ScriptNOfK -> FieldSet)
-> (ScriptNOfK -> FieldSet -> ScriptNOfK)
-> Lens' ScriptNOfK FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ScriptNOfK -> FieldSet
_ScriptNOfK'_unknownFields
        (\ ScriptNOfK
x__ FieldSet
y__ -> ScriptNOfK
x__ {_ScriptNOfK'_unknownFields = y__})
  defMessage :: ScriptNOfK
defMessage
    = ScriptNOfK'_constructor
        {_ScriptNOfK'k :: Word32
_ScriptNOfK'k = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ScriptNOfK'scripts :: Vector NativeScript
_ScriptNOfK'scripts = Vector NativeScript
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ScriptNOfK'_unknownFields :: FieldSet
_ScriptNOfK'_unknownFields = []}
  parseMessage :: Parser ScriptNOfK
parseMessage
    = let
        loop ::
          ScriptNOfK
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript
             -> Data.ProtoLens.Encoding.Bytes.Parser ScriptNOfK
        loop :: ScriptNOfK
-> Growing Vector RealWorld NativeScript -> Parser ScriptNOfK
loop ScriptNOfK
x Growing Vector RealWorld NativeScript
mutable'scripts
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector NativeScript
frozen'scripts <- IO (Vector NativeScript) -> Parser (Vector NativeScript)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) NativeScript
-> IO (Vector NativeScript)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld NativeScript
Growing Vector (PrimState IO) NativeScript
mutable'scripts)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ScriptNOfK -> Parser ScriptNOfK
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ScriptNOfK ScriptNOfK FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ScriptNOfK -> ScriptNOfK
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ScriptNOfK FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScriptNOfK FieldSet
Setter ScriptNOfK ScriptNOfK FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ScriptNOfK ScriptNOfK (Vector NativeScript) (Vector NativeScript)
-> Vector NativeScript -> ScriptNOfK -> ScriptNOfK
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 @"vec'scripts") Vector NativeScript
frozen'scripts ScriptNOfK
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word32
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
"k"
                                ScriptNOfK
-> Growing Vector RealWorld NativeScript -> Parser ScriptNOfK
loop
                                  (Setter ScriptNOfK ScriptNOfK Word32 Word32
-> Word32 -> ScriptNOfK -> ScriptNOfK
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 @"k") Word32
y ScriptNOfK
x)
                                  Growing Vector RealWorld NativeScript
mutable'scripts
                        Word64
18
                          -> do !NativeScript
y <- Parser NativeScript -> String -> Parser NativeScript
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser NativeScript -> Parser NativeScript
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser NativeScript
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"scripts"
                                Growing Vector RealWorld NativeScript
v <- IO (Growing Vector RealWorld NativeScript)
-> Parser (Growing Vector RealWorld NativeScript)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) NativeScript
-> NativeScript -> IO (Growing Vector (PrimState IO) NativeScript)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld NativeScript
Growing Vector (PrimState IO) NativeScript
mutable'scripts NativeScript
y)
                                ScriptNOfK
-> Growing Vector RealWorld NativeScript -> Parser ScriptNOfK
loop ScriptNOfK
x Growing Vector RealWorld NativeScript
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ScriptNOfK
-> Growing Vector RealWorld NativeScript -> Parser ScriptNOfK
loop
                                  (Setter ScriptNOfK ScriptNOfK FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ScriptNOfK -> ScriptNOfK
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ScriptNOfK FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScriptNOfK FieldSet
Setter ScriptNOfK ScriptNOfK FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ScriptNOfK
x)
                                  Growing Vector RealWorld NativeScript
mutable'scripts
      in
        Parser ScriptNOfK -> String -> Parser ScriptNOfK
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld NativeScript
mutable'scripts <- IO (Growing Vector RealWorld NativeScript)
-> Parser (Growing Vector RealWorld NativeScript)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld NativeScript)
IO (Growing Vector (PrimState IO) NativeScript)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ScriptNOfK
-> Growing Vector RealWorld NativeScript -> Parser ScriptNOfK
loop ScriptNOfK
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld NativeScript
mutable'scripts)
          String
"ScriptNOfK"
  buildMessage :: ScriptNOfK -> Builder
buildMessage
    = \ ScriptNOfK
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word32
_v = FoldLike Word32 ScriptNOfK ScriptNOfK Word32 Word32
-> ScriptNOfK -> 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 @"k") ScriptNOfK
_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.<>)
                ((NativeScript -> Builder) -> Vector NativeScript -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ NativeScript
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (NativeScript -> ByteString) -> NativeScript -> 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))
                              NativeScript -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NativeScript
_v))
                   (FoldLike
  (Vector NativeScript)
  ScriptNOfK
  ScriptNOfK
  (Vector NativeScript)
  (Vector NativeScript)
-> ScriptNOfK -> Vector NativeScript
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") ScriptNOfK
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ScriptNOfK ScriptNOfK FieldSet FieldSet
-> ScriptNOfK -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ScriptNOfK ScriptNOfK FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScriptNOfK FieldSet
Data.ProtoLens.unknownFields ScriptNOfK
_x)))
instance Control.DeepSeq.NFData ScriptNOfK where
  rnf :: ScriptNOfK -> ()
rnf
    = \ ScriptNOfK
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ScriptNOfK -> FieldSet
_ScriptNOfK'_unknownFields ScriptNOfK
x__)
             (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ScriptNOfK -> Word32
_ScriptNOfK'k ScriptNOfK
x__)
                (Vector NativeScript -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ScriptNOfK -> Vector NativeScript
_ScriptNOfK'scripts ScriptNOfK
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeCredential (Prelude.Maybe StakeCredential'StakeCredential)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'addrKeyHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.addrKeyHash' @:: Lens' StakeCredential Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptHash' @:: Lens' StakeCredential Data.ByteString.ByteString@ -}
data StakeCredential
  = StakeCredential'_constructor {StakeCredential -> Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential :: !(Prelude.Maybe StakeCredential'StakeCredential),
                                  StakeCredential -> FieldSet
_StakeCredential'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StakeCredential -> StakeCredential -> Bool
(StakeCredential -> StakeCredential -> Bool)
-> (StakeCredential -> StakeCredential -> Bool)
-> Eq StakeCredential
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StakeCredential -> StakeCredential -> Bool
== :: StakeCredential -> StakeCredential -> Bool
$c/= :: StakeCredential -> StakeCredential -> Bool
/= :: StakeCredential -> StakeCredential -> Bool
Prelude.Eq, Eq StakeCredential
Eq StakeCredential =>
(StakeCredential -> StakeCredential -> Ordering)
-> (StakeCredential -> StakeCredential -> Bool)
-> (StakeCredential -> StakeCredential -> Bool)
-> (StakeCredential -> StakeCredential -> Bool)
-> (StakeCredential -> StakeCredential -> Bool)
-> (StakeCredential -> StakeCredential -> StakeCredential)
-> (StakeCredential -> StakeCredential -> StakeCredential)
-> Ord StakeCredential
StakeCredential -> StakeCredential -> Bool
StakeCredential -> StakeCredential -> Ordering
StakeCredential -> StakeCredential -> StakeCredential
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 :: StakeCredential -> StakeCredential -> Ordering
compare :: StakeCredential -> StakeCredential -> Ordering
$c< :: StakeCredential -> StakeCredential -> Bool
< :: StakeCredential -> StakeCredential -> Bool
$c<= :: StakeCredential -> StakeCredential -> Bool
<= :: StakeCredential -> StakeCredential -> Bool
$c> :: StakeCredential -> StakeCredential -> Bool
> :: StakeCredential -> StakeCredential -> Bool
$c>= :: StakeCredential -> StakeCredential -> Bool
>= :: StakeCredential -> StakeCredential -> Bool
$cmax :: StakeCredential -> StakeCredential -> StakeCredential
max :: StakeCredential -> StakeCredential -> StakeCredential
$cmin :: StakeCredential -> StakeCredential -> StakeCredential
min :: StakeCredential -> StakeCredential -> StakeCredential
Prelude.Ord)
instance Prelude.Show StakeCredential where
  showsPrec :: Int -> StakeCredential -> ShowS
showsPrec Int
_ StakeCredential
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StakeCredential -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StakeCredential
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data StakeCredential'StakeCredential
  = StakeCredential'AddrKeyHash !Data.ByteString.ByteString |
    StakeCredential'ScriptHash !Data.ByteString.ByteString
  deriving stock (Int -> StakeCredential'StakeCredential -> ShowS
[StakeCredential'StakeCredential] -> ShowS
StakeCredential'StakeCredential -> String
(Int -> StakeCredential'StakeCredential -> ShowS)
-> (StakeCredential'StakeCredential -> String)
-> ([StakeCredential'StakeCredential] -> ShowS)
-> Show StakeCredential'StakeCredential
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StakeCredential'StakeCredential -> ShowS
showsPrec :: Int -> StakeCredential'StakeCredential -> ShowS
$cshow :: StakeCredential'StakeCredential -> String
show :: StakeCredential'StakeCredential -> String
$cshowList :: [StakeCredential'StakeCredential] -> ShowS
showList :: [StakeCredential'StakeCredential] -> ShowS
Prelude.Show, StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
(StakeCredential'StakeCredential
 -> StakeCredential'StakeCredential -> Bool)
-> (StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential -> Bool)
-> Eq StakeCredential'StakeCredential
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
== :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
$c/= :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
/= :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
Prelude.Eq, Eq StakeCredential'StakeCredential
Eq StakeCredential'StakeCredential =>
(StakeCredential'StakeCredential
 -> StakeCredential'StakeCredential -> Ordering)
-> (StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential -> Bool)
-> (StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential -> Bool)
-> (StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential -> Bool)
-> (StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential -> Bool)
-> (StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential)
-> (StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential
    -> StakeCredential'StakeCredential)
-> Ord StakeCredential'StakeCredential
StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Ordering
StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
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 :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Ordering
compare :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Ordering
$c< :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
< :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
$c<= :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
<= :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
$c> :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
> :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
$c>= :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
>= :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential -> Bool
$cmax :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
max :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
$cmin :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
min :: StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
-> StakeCredential'StakeCredential
Prelude.Ord)
instance Data.ProtoLens.Field.HasField StakeCredential "maybe'stakeCredential" (Prelude.Maybe StakeCredential'StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeCredential"
-> (Maybe StakeCredential'StakeCredential
    -> f (Maybe StakeCredential'StakeCredential))
-> StakeCredential
-> f StakeCredential
fieldOf Proxy# "maybe'stakeCredential"
_
    = ((Maybe StakeCredential'StakeCredential
  -> f (Maybe StakeCredential'StakeCredential))
 -> StakeCredential -> f StakeCredential)
-> ((Maybe StakeCredential'StakeCredential
     -> f (Maybe StakeCredential'StakeCredential))
    -> Maybe StakeCredential'StakeCredential
    -> f (Maybe StakeCredential'StakeCredential))
-> (Maybe StakeCredential'StakeCredential
    -> f (Maybe StakeCredential'StakeCredential))
-> StakeCredential
-> f StakeCredential
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeCredential -> Maybe StakeCredential'StakeCredential)
-> (StakeCredential
    -> Maybe StakeCredential'StakeCredential -> StakeCredential)
-> Lens
     StakeCredential
     StakeCredential
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeCredential -> Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential
           (\ StakeCredential
x__ Maybe StakeCredential'StakeCredential
y__ -> StakeCredential
x__ {_StakeCredential'stakeCredential = y__}))
        (Maybe StakeCredential'StakeCredential
 -> f (Maybe StakeCredential'StakeCredential))
-> Maybe StakeCredential'StakeCredential
-> f (Maybe StakeCredential'StakeCredential)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StakeCredential "maybe'addrKeyHash" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'addrKeyHash"
-> (Maybe ByteString -> f (Maybe ByteString))
-> StakeCredential
-> f StakeCredential
fieldOf Proxy# "maybe'addrKeyHash"
_
    = ((Maybe StakeCredential'StakeCredential
  -> f (Maybe StakeCredential'StakeCredential))
 -> StakeCredential -> f StakeCredential)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe StakeCredential'StakeCredential
    -> f (Maybe StakeCredential'StakeCredential))
-> (Maybe ByteString -> f (Maybe ByteString))
-> StakeCredential
-> f StakeCredential
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeCredential -> Maybe StakeCredential'StakeCredential)
-> (StakeCredential
    -> Maybe StakeCredential'StakeCredential -> StakeCredential)
-> Lens
     StakeCredential
     StakeCredential
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeCredential -> Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential
           (\ StakeCredential
x__ Maybe StakeCredential'StakeCredential
y__ -> StakeCredential
x__ {_StakeCredential'stakeCredential = y__}))
        ((Maybe StakeCredential'StakeCredential -> Maybe ByteString)
-> (Maybe StakeCredential'StakeCredential
    -> Maybe ByteString -> Maybe StakeCredential'StakeCredential)
-> Lens
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe StakeCredential'StakeCredential
x__
              -> case Maybe StakeCredential'StakeCredential
x__ of
                   (Prelude.Just (StakeCredential'AddrKeyHash ByteString
x__val))
                     -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe StakeCredential'StakeCredential
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe StakeCredential'StakeCredential
_ Maybe ByteString
y__ -> (ByteString -> StakeCredential'StakeCredential)
-> Maybe ByteString -> Maybe StakeCredential'StakeCredential
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> StakeCredential'StakeCredential
StakeCredential'AddrKeyHash Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField StakeCredential "addrKeyHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "addrKeyHash"
-> (ByteString -> f ByteString)
-> StakeCredential
-> f StakeCredential
fieldOf Proxy# "addrKeyHash"
_
    = ((Maybe StakeCredential'StakeCredential
  -> f (Maybe StakeCredential'StakeCredential))
 -> StakeCredential -> f StakeCredential)
-> ((ByteString -> f ByteString)
    -> Maybe StakeCredential'StakeCredential
    -> f (Maybe StakeCredential'StakeCredential))
-> (ByteString -> f ByteString)
-> StakeCredential
-> f StakeCredential
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeCredential -> Maybe StakeCredential'StakeCredential)
-> (StakeCredential
    -> Maybe StakeCredential'StakeCredential -> StakeCredential)
-> Lens
     StakeCredential
     StakeCredential
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeCredential -> Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential
           (\ StakeCredential
x__ Maybe StakeCredential'StakeCredential
y__ -> StakeCredential
x__ {_StakeCredential'stakeCredential = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe StakeCredential'StakeCredential
 -> f (Maybe StakeCredential'StakeCredential))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe StakeCredential'StakeCredential
-> f (Maybe StakeCredential'StakeCredential)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StakeCredential'StakeCredential -> Maybe ByteString)
-> (Maybe StakeCredential'StakeCredential
    -> Maybe ByteString -> Maybe StakeCredential'StakeCredential)
-> Lens
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe StakeCredential'StakeCredential
x__
                 -> case Maybe StakeCredential'StakeCredential
x__ of
                      (Prelude.Just (StakeCredential'AddrKeyHash ByteString
x__val))
                        -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe StakeCredential'StakeCredential
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe StakeCredential'StakeCredential
_ Maybe ByteString
y__ -> (ByteString -> StakeCredential'StakeCredential)
-> Maybe ByteString -> Maybe StakeCredential'StakeCredential
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> StakeCredential'StakeCredential
StakeCredential'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 StakeCredential "maybe'scriptHash" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scriptHash"
-> (Maybe ByteString -> f (Maybe ByteString))
-> StakeCredential
-> f StakeCredential
fieldOf Proxy# "maybe'scriptHash"
_
    = ((Maybe StakeCredential'StakeCredential
  -> f (Maybe StakeCredential'StakeCredential))
 -> StakeCredential -> f StakeCredential)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe StakeCredential'StakeCredential
    -> f (Maybe StakeCredential'StakeCredential))
-> (Maybe ByteString -> f (Maybe ByteString))
-> StakeCredential
-> f StakeCredential
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeCredential -> Maybe StakeCredential'StakeCredential)
-> (StakeCredential
    -> Maybe StakeCredential'StakeCredential -> StakeCredential)
-> Lens
     StakeCredential
     StakeCredential
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeCredential -> Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential
           (\ StakeCredential
x__ Maybe StakeCredential'StakeCredential
y__ -> StakeCredential
x__ {_StakeCredential'stakeCredential = y__}))
        ((Maybe StakeCredential'StakeCredential -> Maybe ByteString)
-> (Maybe StakeCredential'StakeCredential
    -> Maybe ByteString -> Maybe StakeCredential'StakeCredential)
-> Lens
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe StakeCredential'StakeCredential
x__
              -> case Maybe StakeCredential'StakeCredential
x__ of
                   (Prelude.Just (StakeCredential'ScriptHash ByteString
x__val))
                     -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe StakeCredential'StakeCredential
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe StakeCredential'StakeCredential
_ Maybe ByteString
y__ -> (ByteString -> StakeCredential'StakeCredential)
-> Maybe ByteString -> Maybe StakeCredential'StakeCredential
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> StakeCredential'StakeCredential
StakeCredential'ScriptHash Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField StakeCredential "scriptHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scriptHash"
-> (ByteString -> f ByteString)
-> StakeCredential
-> f StakeCredential
fieldOf Proxy# "scriptHash"
_
    = ((Maybe StakeCredential'StakeCredential
  -> f (Maybe StakeCredential'StakeCredential))
 -> StakeCredential -> f StakeCredential)
-> ((ByteString -> f ByteString)
    -> Maybe StakeCredential'StakeCredential
    -> f (Maybe StakeCredential'StakeCredential))
-> (ByteString -> f ByteString)
-> StakeCredential
-> f StakeCredential
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeCredential -> Maybe StakeCredential'StakeCredential)
-> (StakeCredential
    -> Maybe StakeCredential'StakeCredential -> StakeCredential)
-> Lens
     StakeCredential
     StakeCredential
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeCredential -> Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential
           (\ StakeCredential
x__ Maybe StakeCredential'StakeCredential
y__ -> StakeCredential
x__ {_StakeCredential'stakeCredential = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe StakeCredential'StakeCredential
 -> f (Maybe StakeCredential'StakeCredential))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe StakeCredential'StakeCredential
-> f (Maybe StakeCredential'StakeCredential)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe StakeCredential'StakeCredential -> Maybe ByteString)
-> (Maybe StakeCredential'StakeCredential
    -> Maybe ByteString -> Maybe StakeCredential'StakeCredential)
-> Lens
     (Maybe StakeCredential'StakeCredential)
     (Maybe StakeCredential'StakeCredential)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe StakeCredential'StakeCredential
x__
                 -> case Maybe StakeCredential'StakeCredential
x__ of
                      (Prelude.Just (StakeCredential'ScriptHash ByteString
x__val))
                        -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe StakeCredential'StakeCredential
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe StakeCredential'StakeCredential
_ Maybe ByteString
y__ -> (ByteString -> StakeCredential'StakeCredential)
-> Maybe ByteString -> Maybe StakeCredential'StakeCredential
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> StakeCredential'StakeCredential
StakeCredential'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.Message StakeCredential where
  messageName :: Proxy StakeCredential -> Text
messageName Proxy StakeCredential
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.StakeCredential"
  packedMessageDescriptor :: Proxy StakeCredential -> ByteString
packedMessageDescriptor Proxy StakeCredential
_
    = ByteString
"\n\
      \\SIStakeCredential\DC2$\n\
      \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\
      \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\
      \scriptHashB\DC2\n\
      \\DLEstake_credential"
  packedFileDescriptor :: Proxy StakeCredential -> ByteString
packedFileDescriptor Proxy StakeCredential
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StakeCredential)
fieldsByTag
    = let
        addrKeyHash__field_descriptor :: FieldDescriptor StakeCredential
addrKeyHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor StakeCredential ByteString
-> FieldDescriptor StakeCredential
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' StakeCredential (Maybe ByteString)
-> FieldAccessor StakeCredential 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 StakeCredential
        scriptHash__field_descriptor :: FieldDescriptor StakeCredential
scriptHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor StakeCredential ByteString
-> FieldDescriptor StakeCredential
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' StakeCredential (Maybe ByteString)
-> FieldAccessor StakeCredential 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 StakeCredential
      in
        [(Tag, FieldDescriptor StakeCredential)]
-> Map Tag (FieldDescriptor StakeCredential)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StakeCredential
addrKeyHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StakeCredential
scriptHash__field_descriptor)]
  unknownFields :: Lens' StakeCredential FieldSet
unknownFields
    = (StakeCredential -> FieldSet)
-> (StakeCredential -> FieldSet -> StakeCredential)
-> Lens' StakeCredential FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StakeCredential -> FieldSet
_StakeCredential'_unknownFields
        (\ StakeCredential
x__ FieldSet
y__ -> StakeCredential
x__ {_StakeCredential'_unknownFields = y__})
  defMessage :: StakeCredential
defMessage
    = StakeCredential'_constructor
        {_StakeCredential'stakeCredential :: Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential = Maybe StakeCredential'StakeCredential
forall a. Maybe a
Prelude.Nothing,
         _StakeCredential'_unknownFields :: FieldSet
_StakeCredential'_unknownFields = []}
  parseMessage :: Parser StakeCredential
parseMessage
    = let
        loop ::
          StakeCredential
          -> Data.ProtoLens.Encoding.Bytes.Parser StakeCredential
        loop :: StakeCredential -> Parser StakeCredential
loop StakeCredential
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      StakeCredential -> Parser StakeCredential
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter StakeCredential StakeCredential FieldSet FieldSet
-> (FieldSet -> FieldSet) -> StakeCredential -> StakeCredential
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f StakeCredential FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StakeCredential FieldSet
Setter StakeCredential StakeCredential FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) StakeCredential
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"addr_key_hash"
                                StakeCredential -> Parser StakeCredential
loop
                                  (Setter StakeCredential StakeCredential ByteString ByteString
-> ByteString -> StakeCredential -> StakeCredential
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 @"addrKeyHash") ByteString
y StakeCredential
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"script_hash"
                                StakeCredential -> Parser StakeCredential
loop
                                  (Setter StakeCredential StakeCredential ByteString ByteString
-> ByteString -> StakeCredential -> StakeCredential
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 @"scriptHash") ByteString
y StakeCredential
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                StakeCredential -> Parser StakeCredential
loop
                                  (Setter StakeCredential StakeCredential FieldSet FieldSet
-> (FieldSet -> FieldSet) -> StakeCredential -> StakeCredential
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f StakeCredential FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StakeCredential FieldSet
Setter StakeCredential StakeCredential FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) StakeCredential
x)
      in
        Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StakeCredential -> Parser StakeCredential
loop StakeCredential
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StakeCredential"
  buildMessage :: StakeCredential -> Builder
buildMessage
    = \ StakeCredential
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe StakeCredential'StakeCredential)
  StakeCredential
  StakeCredential
  (Maybe StakeCredential'StakeCredential)
  (Maybe StakeCredential'StakeCredential)
-> StakeCredential -> Maybe StakeCredential'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'stakeCredential") StakeCredential
_x
              of
                Maybe StakeCredential'StakeCredential
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (StakeCredential'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 (StakeCredential'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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet StakeCredential StakeCredential FieldSet FieldSet
-> StakeCredential -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet StakeCredential StakeCredential FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StakeCredential FieldSet
Data.ProtoLens.unknownFields StakeCredential
_x))
instance Control.DeepSeq.NFData StakeCredential where
  rnf :: StakeCredential -> ()
rnf
    = \ StakeCredential
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StakeCredential -> FieldSet
_StakeCredential'_unknownFields StakeCredential
x__)
             (Maybe StakeCredential'StakeCredential -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (StakeCredential -> Maybe StakeCredential'StakeCredential
_StakeCredential'stakeCredential StakeCredential
x__) ())
instance Control.DeepSeq.NFData StakeCredential'StakeCredential where
  rnf :: StakeCredential'StakeCredential -> ()
rnf (StakeCredential'AddrKeyHash ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (StakeCredential'ScriptHash ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
_StakeCredential'AddrKeyHash ::
  Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString
_StakeCredential'AddrKeyHash :: Prism' StakeCredential'StakeCredential ByteString
_StakeCredential'AddrKeyHash
  = (ByteString -> StakeCredential'StakeCredential)
-> (StakeCredential'StakeCredential -> Maybe ByteString)
-> Prism' StakeCredential'StakeCredential ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> StakeCredential'StakeCredential
StakeCredential'AddrKeyHash
      (\ StakeCredential'StakeCredential
p__
         -> case StakeCredential'StakeCredential
p__ of
              (StakeCredential'AddrKeyHash ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              StakeCredential'StakeCredential
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_StakeCredential'ScriptHash ::
  Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString
_StakeCredential'ScriptHash :: Prism' StakeCredential'StakeCredential ByteString
_StakeCredential'ScriptHash
  = (ByteString -> StakeCredential'StakeCredential)
-> (StakeCredential'StakeCredential -> Maybe ByteString)
-> Prism' StakeCredential'StakeCredential ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> StakeCredential'StakeCredential
StakeCredential'ScriptHash
      (\ StakeCredential'StakeCredential
p__
         -> case StakeCredential'StakeCredential
p__ of
              (StakeCredential'ScriptHash ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              StakeCredential'StakeCredential
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeDelegationCert StakeCredential@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeDelegationCert (Prelude.Maybe StakeCredential)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeDelegationCert Data.ByteString.ByteString@ -}
data StakeDelegationCert
  = StakeDelegationCert'_constructor {StakeDelegationCert -> Maybe StakeCredential
_StakeDelegationCert'stakeCredential :: !(Prelude.Maybe StakeCredential),
                                      StakeDelegationCert -> ByteString
_StakeDelegationCert'poolKeyhash :: !Data.ByteString.ByteString,
                                      StakeDelegationCert -> FieldSet
_StakeDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StakeDelegationCert -> StakeDelegationCert -> Bool
(StakeDelegationCert -> StakeDelegationCert -> Bool)
-> (StakeDelegationCert -> StakeDelegationCert -> Bool)
-> Eq StakeDelegationCert
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StakeDelegationCert -> StakeDelegationCert -> Bool
== :: StakeDelegationCert -> StakeDelegationCert -> Bool
$c/= :: StakeDelegationCert -> StakeDelegationCert -> Bool
/= :: StakeDelegationCert -> StakeDelegationCert -> Bool
Prelude.Eq, Eq StakeDelegationCert
Eq StakeDelegationCert =>
(StakeDelegationCert -> StakeDelegationCert -> Ordering)
-> (StakeDelegationCert -> StakeDelegationCert -> Bool)
-> (StakeDelegationCert -> StakeDelegationCert -> Bool)
-> (StakeDelegationCert -> StakeDelegationCert -> Bool)
-> (StakeDelegationCert -> StakeDelegationCert -> Bool)
-> (StakeDelegationCert
    -> StakeDelegationCert -> StakeDelegationCert)
-> (StakeDelegationCert
    -> StakeDelegationCert -> StakeDelegationCert)
-> Ord StakeDelegationCert
StakeDelegationCert -> StakeDelegationCert -> Bool
StakeDelegationCert -> StakeDelegationCert -> Ordering
StakeDelegationCert -> StakeDelegationCert -> StakeDelegationCert
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 :: StakeDelegationCert -> StakeDelegationCert -> Ordering
compare :: StakeDelegationCert -> StakeDelegationCert -> Ordering
$c< :: StakeDelegationCert -> StakeDelegationCert -> Bool
< :: StakeDelegationCert -> StakeDelegationCert -> Bool
$c<= :: StakeDelegationCert -> StakeDelegationCert -> Bool
<= :: StakeDelegationCert -> StakeDelegationCert -> Bool
$c> :: StakeDelegationCert -> StakeDelegationCert -> Bool
> :: StakeDelegationCert -> StakeDelegationCert -> Bool
$c>= :: StakeDelegationCert -> StakeDelegationCert -> Bool
>= :: StakeDelegationCert -> StakeDelegationCert -> Bool
$cmax :: StakeDelegationCert -> StakeDelegationCert -> StakeDelegationCert
max :: StakeDelegationCert -> StakeDelegationCert -> StakeDelegationCert
$cmin :: StakeDelegationCert -> StakeDelegationCert -> StakeDelegationCert
min :: StakeDelegationCert -> StakeDelegationCert -> StakeDelegationCert
Prelude.Ord)
instance Prelude.Show StakeDelegationCert where
  showsPrec :: Int -> StakeDelegationCert -> ShowS
showsPrec Int
_ StakeDelegationCert
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StakeDelegationCert -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StakeDelegationCert
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StakeDelegationCert "stakeCredential" StakeCredential where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeCredential"
-> (StakeCredential -> f StakeCredential)
-> StakeDelegationCert
-> f StakeDelegationCert
fieldOf Proxy# "stakeCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> StakeDelegationCert -> f StakeDelegationCert)
-> ((StakeCredential -> f StakeCredential)
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (StakeCredential -> f StakeCredential)
-> StakeDelegationCert
-> f StakeDelegationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeDelegationCert -> Maybe StakeCredential)
-> (StakeDelegationCert
    -> Maybe StakeCredential -> StakeDelegationCert)
-> Lens
     StakeDelegationCert
     StakeDelegationCert
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeDelegationCert -> Maybe StakeCredential
_StakeDelegationCert'stakeCredential
           (\ StakeDelegationCert
x__ Maybe StakeCredential
y__ -> StakeDelegationCert
x__ {_StakeDelegationCert'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 StakeDelegationCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'stakeCredential"
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> StakeDelegationCert
-> f StakeDelegationCert
fieldOf Proxy# "maybe'stakeCredential"
_
    = ((Maybe StakeCredential -> f (Maybe StakeCredential))
 -> StakeDelegationCert -> f StakeDelegationCert)
-> ((Maybe StakeCredential -> f (Maybe StakeCredential))
    -> Maybe StakeCredential -> f (Maybe StakeCredential))
-> (Maybe StakeCredential -> f (Maybe StakeCredential))
-> StakeDelegationCert
-> f StakeDelegationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeDelegationCert -> Maybe StakeCredential)
-> (StakeDelegationCert
    -> Maybe StakeCredential -> StakeDelegationCert)
-> Lens
     StakeDelegationCert
     StakeDelegationCert
     (Maybe StakeCredential)
     (Maybe StakeCredential)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeDelegationCert -> Maybe StakeCredential
_StakeDelegationCert'stakeCredential
           (\ StakeDelegationCert
x__ Maybe StakeCredential
y__ -> StakeDelegationCert
x__ {_StakeDelegationCert'stakeCredential = y__}))
        (Maybe StakeCredential -> f (Maybe StakeCredential))
-> Maybe StakeCredential -> f (Maybe StakeCredential)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StakeDelegationCert "poolKeyhash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolKeyhash"
-> (ByteString -> f ByteString)
-> StakeDelegationCert
-> f StakeDelegationCert
fieldOf Proxy# "poolKeyhash"
_
    = ((ByteString -> f ByteString)
 -> StakeDelegationCert -> f StakeDelegationCert)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> StakeDelegationCert
-> f StakeDelegationCert
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StakeDelegationCert -> ByteString)
-> (StakeDelegationCert -> ByteString -> StakeDelegationCert)
-> Lens
     StakeDelegationCert StakeDelegationCert ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StakeDelegationCert -> ByteString
_StakeDelegationCert'poolKeyhash
           (\ StakeDelegationCert
x__ ByteString
y__ -> StakeDelegationCert
x__ {_StakeDelegationCert'poolKeyhash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StakeDelegationCert where
  messageName :: Proxy StakeDelegationCert -> Text
messageName Proxy StakeDelegationCert
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.StakeDelegationCert"
  packedMessageDescriptor :: Proxy StakeDelegationCert -> ByteString
packedMessageDescriptor Proxy StakeDelegationCert
_
    = ByteString
"\n\
      \\DC3StakeDelegationCert\DC2S\n\
      \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\
      \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash"
  packedFileDescriptor :: Proxy StakeDelegationCert -> ByteString
packedFileDescriptor Proxy StakeDelegationCert
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StakeDelegationCert)
fieldsByTag
    = let
        stakeCredential__field_descriptor :: FieldDescriptor StakeDelegationCert
stakeCredential__field_descriptor
          = String
-> FieldTypeDescriptor StakeCredential
-> FieldAccessor StakeDelegationCert StakeCredential
-> FieldDescriptor StakeDelegationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stake_credential"
              (MessageOrGroup -> FieldTypeDescriptor StakeCredential
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)
              (Lens
  StakeDelegationCert
  StakeDelegationCert
  (Maybe StakeCredential)
  (Maybe StakeCredential)
-> FieldAccessor StakeDelegationCert 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'stakeCredential")) ::
              Data.ProtoLens.FieldDescriptor StakeDelegationCert
        poolKeyhash__field_descriptor :: FieldDescriptor StakeDelegationCert
poolKeyhash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor StakeDelegationCert ByteString
-> FieldDescriptor StakeDelegationCert
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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)
              (WireDefault ByteString
-> Lens
     StakeDelegationCert StakeDelegationCert ByteString ByteString
-> FieldAccessor StakeDelegationCert 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 @"poolKeyhash")) ::
              Data.ProtoLens.FieldDescriptor StakeDelegationCert
      in
        [(Tag, FieldDescriptor StakeDelegationCert)]
-> Map Tag (FieldDescriptor StakeDelegationCert)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StakeDelegationCert
stakeCredential__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StakeDelegationCert
poolKeyhash__field_descriptor)]
  unknownFields :: Lens' StakeDelegationCert FieldSet
unknownFields
    = (StakeDelegationCert -> FieldSet)
-> (StakeDelegationCert -> FieldSet -> StakeDelegationCert)
-> Lens' StakeDelegationCert FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StakeDelegationCert -> FieldSet
_StakeDelegationCert'_unknownFields
        (\ StakeDelegationCert
x__ FieldSet
y__ -> StakeDelegationCert
x__ {_StakeDelegationCert'_unknownFields = y__})
  defMessage :: StakeDelegationCert
defMessage
    = StakeDelegationCert'_constructor
        {_StakeDelegationCert'stakeCredential :: Maybe StakeCredential
_StakeDelegationCert'stakeCredential = Maybe StakeCredential
forall a. Maybe a
Prelude.Nothing,
         _StakeDelegationCert'poolKeyhash :: ByteString
_StakeDelegationCert'poolKeyhash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StakeDelegationCert'_unknownFields :: FieldSet
_StakeDelegationCert'_unknownFields = []}
  parseMessage :: Parser StakeDelegationCert
parseMessage
    = let
        loop ::
          StakeDelegationCert
          -> Data.ProtoLens.Encoding.Bytes.Parser StakeDelegationCert
        loop :: StakeDelegationCert -> Parser StakeDelegationCert
loop StakeDelegationCert
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      StakeDelegationCert -> Parser StakeDelegationCert
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter StakeDelegationCert StakeDelegationCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> StakeDelegationCert
-> StakeDelegationCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f StakeDelegationCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StakeDelegationCert FieldSet
Setter StakeDelegationCert StakeDelegationCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) StakeDelegationCert
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do StakeCredential
y <- Parser StakeCredential -> String -> Parser StakeCredential
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser StakeCredential -> Parser StakeCredential
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser StakeCredential
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"stake_credential"
                                StakeDelegationCert -> Parser StakeDelegationCert
loop
                                  (Setter
  StakeDelegationCert
  StakeDelegationCert
  StakeCredential
  StakeCredential
-> StakeCredential -> StakeDelegationCert -> StakeDelegationCert
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 @"stakeCredential") StakeCredential
y StakeDelegationCert
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"pool_keyhash"
                                StakeDelegationCert -> Parser StakeDelegationCert
loop
                                  (Setter
  StakeDelegationCert StakeDelegationCert ByteString ByteString
-> ByteString -> StakeDelegationCert -> StakeDelegationCert
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 @"poolKeyhash") ByteString
y StakeDelegationCert
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                StakeDelegationCert -> Parser StakeDelegationCert
loop
                                  (Setter StakeDelegationCert StakeDelegationCert FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> StakeDelegationCert
-> StakeDelegationCert
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f StakeDelegationCert FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StakeDelegationCert FieldSet
Setter StakeDelegationCert StakeDelegationCert FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) StakeDelegationCert
x)
      in
        Parser StakeDelegationCert -> String -> Parser StakeDelegationCert
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StakeDelegationCert -> Parser StakeDelegationCert
loop StakeDelegationCert
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StakeDelegationCert"
  buildMessage :: StakeDelegationCert -> Builder
buildMessage
    = \ StakeDelegationCert
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe StakeCredential)
  StakeDelegationCert
  StakeDelegationCert
  (Maybe StakeCredential)
  (Maybe StakeCredential)
-> StakeDelegationCert -> 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'stakeCredential") StakeDelegationCert
_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.<>)
                (let
                   _v :: ByteString
_v
                     = FoldLike
  ByteString
  StakeDelegationCert
  StakeDelegationCert
  ByteString
  ByteString
-> StakeDelegationCert -> 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 @"poolKeyhash") StakeDelegationCert
_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 StakeDelegationCert StakeDelegationCert FieldSet FieldSet
-> StakeDelegationCert -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet StakeDelegationCert StakeDelegationCert FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StakeDelegationCert FieldSet
Data.ProtoLens.unknownFields StakeDelegationCert
_x)))
instance Control.DeepSeq.NFData StakeDelegationCert where
  rnf :: StakeDelegationCert -> ()
rnf
    = \ StakeDelegationCert
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StakeDelegationCert -> FieldSet
_StakeDelegationCert'_unknownFields StakeDelegationCert
x__)
             (Maybe StakeCredential -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (StakeDelegationCert -> Maybe StakeCredential
_StakeDelegationCert'stakeCredential StakeDelegationCert
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (StakeDelegationCert -> ByteString
_StakeDelegationCert'poolKeyhash StakeDelegationCert
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.inputs' @:: Lens' Tx [TxInput]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'inputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputs' @:: Lens' Tx [TxOutput]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'outputs' @:: Lens' Tx (Data.Vector.Vector TxOutput)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.certificates' @:: Lens' Tx [Certificate]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'certificates' @:: Lens' Tx (Data.Vector.Vector Certificate)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.withdrawals' @:: Lens' Tx [Withdrawal]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'withdrawals' @:: Lens' Tx (Data.Vector.Vector Withdrawal)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mint' @:: Lens' Tx [Multiasset]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'mint' @:: Lens' Tx (Data.Vector.Vector Multiasset)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.referenceInputs' @:: Lens' Tx [TxInput]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'referenceInputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.witnesses' @:: Lens' Tx WitnessSet@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'witnesses' @:: Lens' Tx (Prelude.Maybe WitnessSet)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateral' @:: Lens' Tx Collateral@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'collateral' @:: Lens' Tx (Prelude.Maybe Collateral)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fee' @:: Lens' Tx Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.validity' @:: Lens' Tx TxValidity@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'validity' @:: Lens' Tx (Prelude.Maybe TxValidity)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.successful' @:: Lens' Tx Prelude.Bool@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.auxiliary' @:: Lens' Tx AuxData@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'auxiliary' @:: Lens' Tx (Prelude.Maybe AuxData)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' Tx Data.ByteString.ByteString@ -}
data Tx
  = Tx'_constructor {Tx -> Vector TxInput
_Tx'inputs :: !(Data.Vector.Vector TxInput),
                     Tx -> Vector TxOutput
_Tx'outputs :: !(Data.Vector.Vector TxOutput),
                     Tx -> Vector Certificate
_Tx'certificates :: !(Data.Vector.Vector Certificate),
                     Tx -> Vector Withdrawal
_Tx'withdrawals :: !(Data.Vector.Vector Withdrawal),
                     Tx -> Vector Multiasset
_Tx'mint :: !(Data.Vector.Vector Multiasset),
                     Tx -> Vector TxInput
_Tx'referenceInputs :: !(Data.Vector.Vector TxInput),
                     Tx -> Maybe WitnessSet
_Tx'witnesses :: !(Prelude.Maybe WitnessSet),
                     Tx -> Maybe Collateral
_Tx'collateral :: !(Prelude.Maybe Collateral),
                     Tx -> Word64
_Tx'fee :: !Data.Word.Word64,
                     Tx -> Maybe TxValidity
_Tx'validity :: !(Prelude.Maybe TxValidity),
                     Tx -> Bool
_Tx'successful :: !Prelude.Bool,
                     Tx -> Maybe AuxData
_Tx'auxiliary :: !(Prelude.Maybe AuxData),
                     Tx -> ByteString
_Tx'hash :: !Data.ByteString.ByteString,
                     Tx -> FieldSet
_Tx'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Tx -> Tx -> Bool
(Tx -> Tx -> Bool) -> (Tx -> Tx -> Bool) -> Eq Tx
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Tx -> Tx -> Bool
== :: Tx -> Tx -> Bool
$c/= :: Tx -> Tx -> Bool
/= :: Tx -> Tx -> Bool
Prelude.Eq, Eq Tx
Eq Tx =>
(Tx -> Tx -> Ordering)
-> (Tx -> Tx -> Bool)
-> (Tx -> Tx -> Bool)
-> (Tx -> Tx -> Bool)
-> (Tx -> Tx -> Bool)
-> (Tx -> Tx -> Tx)
-> (Tx -> Tx -> Tx)
-> Ord Tx
Tx -> Tx -> Bool
Tx -> Tx -> Ordering
Tx -> Tx -> Tx
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 :: Tx -> Tx -> Ordering
compare :: Tx -> Tx -> Ordering
$c< :: Tx -> Tx -> Bool
< :: Tx -> Tx -> Bool
$c<= :: Tx -> Tx -> Bool
<= :: Tx -> Tx -> Bool
$c> :: Tx -> Tx -> Bool
> :: Tx -> Tx -> Bool
$c>= :: Tx -> Tx -> Bool
>= :: Tx -> Tx -> Bool
$cmax :: Tx -> Tx -> Tx
max :: Tx -> Tx -> Tx
$cmin :: Tx -> Tx -> Tx
min :: Tx -> Tx -> Tx
Prelude.Ord)
instance Prelude.Show Tx where
  showsPrec :: Int -> Tx -> ShowS
showsPrec Int
_ Tx
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Tx -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Tx
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Tx "inputs" [TxInput] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "inputs" -> ([TxInput] -> f [TxInput]) -> Tx -> f Tx
fieldOf Proxy# "inputs"
_
    = ((Vector TxInput -> f (Vector TxInput)) -> Tx -> f Tx)
-> (([TxInput] -> f [TxInput])
    -> Vector TxInput -> f (Vector TxInput))
-> ([TxInput] -> f [TxInput])
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector TxInput)
-> (Tx -> Vector TxInput -> Tx)
-> Lens Tx Tx (Vector TxInput) (Vector TxInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector TxInput
_Tx'inputs (\ Tx
x__ Vector TxInput
y__ -> Tx
x__ {_Tx'inputs = 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 Tx "vec'inputs" (Data.Vector.Vector TxInput) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'inputs"
-> (Vector TxInput -> f (Vector TxInput)) -> Tx -> f Tx
fieldOf Proxy# "vec'inputs"
_
    = ((Vector TxInput -> f (Vector TxInput)) -> Tx -> f Tx)
-> ((Vector TxInput -> f (Vector TxInput))
    -> Vector TxInput -> f (Vector TxInput))
-> (Vector TxInput -> f (Vector TxInput))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector TxInput)
-> (Tx -> Vector TxInput -> Tx)
-> Lens Tx Tx (Vector TxInput) (Vector TxInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector TxInput
_Tx'inputs (\ Tx
x__ Vector TxInput
y__ -> Tx
x__ {_Tx'inputs = y__}))
        (Vector TxInput -> f (Vector TxInput))
-> Vector TxInput -> f (Vector TxInput)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "outputs" [TxOutput] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "outputs" -> ([TxOutput] -> f [TxOutput]) -> Tx -> f Tx
fieldOf Proxy# "outputs"
_
    = ((Vector TxOutput -> f (Vector TxOutput)) -> Tx -> f Tx)
-> (([TxOutput] -> f [TxOutput])
    -> Vector TxOutput -> f (Vector TxOutput))
-> ([TxOutput] -> f [TxOutput])
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector TxOutput)
-> (Tx -> Vector TxOutput -> Tx)
-> Lens Tx Tx (Vector TxOutput) (Vector TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector TxOutput
_Tx'outputs (\ Tx
x__ Vector TxOutput
y__ -> Tx
x__ {_Tx'outputs = y__}))
        ((Vector TxOutput -> [TxOutput])
-> (Vector TxOutput -> [TxOutput] -> Vector TxOutput)
-> Lens (Vector TxOutput) (Vector TxOutput) [TxOutput] [TxOutput]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TxOutput -> [TxOutput]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector TxOutput
_ [TxOutput]
y__ -> [TxOutput] -> Vector TxOutput
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxOutput]
y__))
instance Data.ProtoLens.Field.HasField Tx "vec'outputs" (Data.Vector.Vector TxOutput) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'outputs"
-> (Vector TxOutput -> f (Vector TxOutput)) -> Tx -> f Tx
fieldOf Proxy# "vec'outputs"
_
    = ((Vector TxOutput -> f (Vector TxOutput)) -> Tx -> f Tx)
-> ((Vector TxOutput -> f (Vector TxOutput))
    -> Vector TxOutput -> f (Vector TxOutput))
-> (Vector TxOutput -> f (Vector TxOutput))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector TxOutput)
-> (Tx -> Vector TxOutput -> Tx)
-> Lens Tx Tx (Vector TxOutput) (Vector TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector TxOutput
_Tx'outputs (\ Tx
x__ Vector TxOutput
y__ -> Tx
x__ {_Tx'outputs = y__}))
        (Vector TxOutput -> f (Vector TxOutput))
-> Vector TxOutput -> f (Vector TxOutput)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "certificates" [Certificate] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "certificates"
-> ([Certificate] -> f [Certificate]) -> Tx -> f Tx
fieldOf Proxy# "certificates"
_
    = ((Vector Certificate -> f (Vector Certificate)) -> Tx -> f Tx)
-> (([Certificate] -> f [Certificate])
    -> Vector Certificate -> f (Vector Certificate))
-> ([Certificate] -> f [Certificate])
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector Certificate)
-> (Tx -> Vector Certificate -> Tx)
-> Lens Tx Tx (Vector Certificate) (Vector Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector Certificate
_Tx'certificates (\ Tx
x__ Vector Certificate
y__ -> Tx
x__ {_Tx'certificates = y__}))
        ((Vector Certificate -> [Certificate])
-> (Vector Certificate -> [Certificate] -> Vector Certificate)
-> Lens
     (Vector Certificate)
     (Vector Certificate)
     [Certificate]
     [Certificate]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Certificate -> [Certificate]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Certificate
_ [Certificate]
y__ -> [Certificate] -> Vector Certificate
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Certificate]
y__))
instance Data.ProtoLens.Field.HasField Tx "vec'certificates" (Data.Vector.Vector Certificate) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'certificates"
-> (Vector Certificate -> f (Vector Certificate)) -> Tx -> f Tx
fieldOf Proxy# "vec'certificates"
_
    = ((Vector Certificate -> f (Vector Certificate)) -> Tx -> f Tx)
-> ((Vector Certificate -> f (Vector Certificate))
    -> Vector Certificate -> f (Vector Certificate))
-> (Vector Certificate -> f (Vector Certificate))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector Certificate)
-> (Tx -> Vector Certificate -> Tx)
-> Lens Tx Tx (Vector Certificate) (Vector Certificate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector Certificate
_Tx'certificates (\ Tx
x__ Vector Certificate
y__ -> Tx
x__ {_Tx'certificates = y__}))
        (Vector Certificate -> f (Vector Certificate))
-> Vector Certificate -> f (Vector Certificate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "withdrawals" [Withdrawal] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "withdrawals"
-> ([Withdrawal] -> f [Withdrawal]) -> Tx -> f Tx
fieldOf Proxy# "withdrawals"
_
    = ((Vector Withdrawal -> f (Vector Withdrawal)) -> Tx -> f Tx)
-> (([Withdrawal] -> f [Withdrawal])
    -> Vector Withdrawal -> f (Vector Withdrawal))
-> ([Withdrawal] -> f [Withdrawal])
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector Withdrawal)
-> (Tx -> Vector Withdrawal -> Tx)
-> Lens Tx Tx (Vector Withdrawal) (Vector Withdrawal)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector Withdrawal
_Tx'withdrawals (\ Tx
x__ Vector Withdrawal
y__ -> Tx
x__ {_Tx'withdrawals = y__}))
        ((Vector Withdrawal -> [Withdrawal])
-> (Vector Withdrawal -> [Withdrawal] -> Vector Withdrawal)
-> Lens
     (Vector Withdrawal) (Vector Withdrawal) [Withdrawal] [Withdrawal]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Withdrawal -> [Withdrawal]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Withdrawal
_ [Withdrawal]
y__ -> [Withdrawal] -> Vector Withdrawal
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Withdrawal]
y__))
instance Data.ProtoLens.Field.HasField Tx "vec'withdrawals" (Data.Vector.Vector Withdrawal) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'withdrawals"
-> (Vector Withdrawal -> f (Vector Withdrawal)) -> Tx -> f Tx
fieldOf Proxy# "vec'withdrawals"
_
    = ((Vector Withdrawal -> f (Vector Withdrawal)) -> Tx -> f Tx)
-> ((Vector Withdrawal -> f (Vector Withdrawal))
    -> Vector Withdrawal -> f (Vector Withdrawal))
-> (Vector Withdrawal -> f (Vector Withdrawal))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector Withdrawal)
-> (Tx -> Vector Withdrawal -> Tx)
-> Lens Tx Tx (Vector Withdrawal) (Vector Withdrawal)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector Withdrawal
_Tx'withdrawals (\ Tx
x__ Vector Withdrawal
y__ -> Tx
x__ {_Tx'withdrawals = y__}))
        (Vector Withdrawal -> f (Vector Withdrawal))
-> Vector Withdrawal -> f (Vector Withdrawal)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "mint" [Multiasset] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "mint" -> ([Multiasset] -> f [Multiasset]) -> Tx -> f Tx
fieldOf Proxy# "mint"
_
    = ((Vector Multiasset -> f (Vector Multiasset)) -> Tx -> f Tx)
-> (([Multiasset] -> f [Multiasset])
    -> Vector Multiasset -> f (Vector Multiasset))
-> ([Multiasset] -> f [Multiasset])
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector Multiasset)
-> (Tx -> Vector Multiasset -> Tx)
-> Lens Tx Tx (Vector Multiasset) (Vector Multiasset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector Multiasset
_Tx'mint (\ Tx
x__ Vector Multiasset
y__ -> Tx
x__ {_Tx'mint = y__}))
        ((Vector Multiasset -> [Multiasset])
-> (Vector Multiasset -> [Multiasset] -> Vector Multiasset)
-> Lens
     (Vector Multiasset) (Vector Multiasset) [Multiasset] [Multiasset]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Multiasset -> [Multiasset]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Multiasset
_ [Multiasset]
y__ -> [Multiasset] -> Vector Multiasset
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Multiasset]
y__))
instance Data.ProtoLens.Field.HasField Tx "vec'mint" (Data.Vector.Vector Multiasset) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'mint"
-> (Vector Multiasset -> f (Vector Multiasset)) -> Tx -> f Tx
fieldOf Proxy# "vec'mint"
_
    = ((Vector Multiasset -> f (Vector Multiasset)) -> Tx -> f Tx)
-> ((Vector Multiasset -> f (Vector Multiasset))
    -> Vector Multiasset -> f (Vector Multiasset))
-> (Vector Multiasset -> f (Vector Multiasset))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector Multiasset)
-> (Tx -> Vector Multiasset -> Tx)
-> Lens Tx Tx (Vector Multiasset) (Vector Multiasset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector Multiasset
_Tx'mint (\ Tx
x__ Vector Multiasset
y__ -> Tx
x__ {_Tx'mint = y__}))
        (Vector Multiasset -> f (Vector Multiasset))
-> Vector Multiasset -> f (Vector Multiasset)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "referenceInputs" [TxInput] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "referenceInputs"
-> ([TxInput] -> f [TxInput]) -> Tx -> f Tx
fieldOf Proxy# "referenceInputs"
_
    = ((Vector TxInput -> f (Vector TxInput)) -> Tx -> f Tx)
-> (([TxInput] -> f [TxInput])
    -> Vector TxInput -> f (Vector TxInput))
-> ([TxInput] -> f [TxInput])
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector TxInput)
-> (Tx -> Vector TxInput -> Tx)
-> Lens Tx Tx (Vector TxInput) (Vector TxInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector TxInput
_Tx'referenceInputs (\ Tx
x__ Vector TxInput
y__ -> Tx
x__ {_Tx'referenceInputs = 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 Tx "vec'referenceInputs" (Data.Vector.Vector TxInput) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'referenceInputs"
-> (Vector TxInput -> f (Vector TxInput)) -> Tx -> f Tx
fieldOf Proxy# "vec'referenceInputs"
_
    = ((Vector TxInput -> f (Vector TxInput)) -> Tx -> f Tx)
-> ((Vector TxInput -> f (Vector TxInput))
    -> Vector TxInput -> f (Vector TxInput))
-> (Vector TxInput -> f (Vector TxInput))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Vector TxInput)
-> (Tx -> Vector TxInput -> Tx)
-> Lens Tx Tx (Vector TxInput) (Vector TxInput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Vector TxInput
_Tx'referenceInputs (\ Tx
x__ Vector TxInput
y__ -> Tx
x__ {_Tx'referenceInputs = y__}))
        (Vector TxInput -> f (Vector TxInput))
-> Vector TxInput -> f (Vector TxInput)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "witnesses" WitnessSet where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "witnesses" -> (WitnessSet -> f WitnessSet) -> Tx -> f Tx
fieldOf Proxy# "witnesses"
_
    = ((Maybe WitnessSet -> f (Maybe WitnessSet)) -> Tx -> f Tx)
-> ((WitnessSet -> f WitnessSet)
    -> Maybe WitnessSet -> f (Maybe WitnessSet))
-> (WitnessSet -> f WitnessSet)
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe WitnessSet)
-> (Tx -> Maybe WitnessSet -> Tx)
-> Lens Tx Tx (Maybe WitnessSet) (Maybe WitnessSet)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe WitnessSet
_Tx'witnesses (\ Tx
x__ Maybe WitnessSet
y__ -> Tx
x__ {_Tx'witnesses = y__}))
        (WitnessSet -> Lens' (Maybe WitnessSet) WitnessSet
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WitnessSet
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Tx "maybe'witnesses" (Prelude.Maybe WitnessSet) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'witnesses"
-> (Maybe WitnessSet -> f (Maybe WitnessSet)) -> Tx -> f Tx
fieldOf Proxy# "maybe'witnesses"
_
    = ((Maybe WitnessSet -> f (Maybe WitnessSet)) -> Tx -> f Tx)
-> ((Maybe WitnessSet -> f (Maybe WitnessSet))
    -> Maybe WitnessSet -> f (Maybe WitnessSet))
-> (Maybe WitnessSet -> f (Maybe WitnessSet))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe WitnessSet)
-> (Tx -> Maybe WitnessSet -> Tx)
-> Lens Tx Tx (Maybe WitnessSet) (Maybe WitnessSet)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe WitnessSet
_Tx'witnesses (\ Tx
x__ Maybe WitnessSet
y__ -> Tx
x__ {_Tx'witnesses = y__}))
        (Maybe WitnessSet -> f (Maybe WitnessSet))
-> Maybe WitnessSet -> f (Maybe WitnessSet)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "collateral" Collateral where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "collateral" -> (Collateral -> f Collateral) -> Tx -> f Tx
fieldOf Proxy# "collateral"
_
    = ((Maybe Collateral -> f (Maybe Collateral)) -> Tx -> f Tx)
-> ((Collateral -> f Collateral)
    -> Maybe Collateral -> f (Maybe Collateral))
-> (Collateral -> f Collateral)
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe Collateral)
-> (Tx -> Maybe Collateral -> Tx)
-> Lens Tx Tx (Maybe Collateral) (Maybe Collateral)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe Collateral
_Tx'collateral (\ Tx
x__ Maybe Collateral
y__ -> Tx
x__ {_Tx'collateral = y__}))
        (Collateral -> Lens' (Maybe Collateral) Collateral
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Collateral
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Tx "maybe'collateral" (Prelude.Maybe Collateral) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'collateral"
-> (Maybe Collateral -> f (Maybe Collateral)) -> Tx -> f Tx
fieldOf Proxy# "maybe'collateral"
_
    = ((Maybe Collateral -> f (Maybe Collateral)) -> Tx -> f Tx)
-> ((Maybe Collateral -> f (Maybe Collateral))
    -> Maybe Collateral -> f (Maybe Collateral))
-> (Maybe Collateral -> f (Maybe Collateral))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe Collateral)
-> (Tx -> Maybe Collateral -> Tx)
-> Lens Tx Tx (Maybe Collateral) (Maybe Collateral)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe Collateral
_Tx'collateral (\ Tx
x__ Maybe Collateral
y__ -> Tx
x__ {_Tx'collateral = y__}))
        (Maybe Collateral -> f (Maybe Collateral))
-> Maybe Collateral -> f (Maybe Collateral)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "fee" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fee" -> (Word64 -> f Word64) -> Tx -> f Tx
fieldOf Proxy# "fee"
_
    = ((Word64 -> f Word64) -> Tx -> f Tx)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Word64) -> (Tx -> Word64 -> Tx) -> Lens Tx Tx Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Word64
_Tx'fee (\ Tx
x__ Word64
y__ -> Tx
x__ {_Tx'fee = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "validity" TxValidity where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "validity" -> (TxValidity -> f TxValidity) -> Tx -> f Tx
fieldOf Proxy# "validity"
_
    = ((Maybe TxValidity -> f (Maybe TxValidity)) -> Tx -> f Tx)
-> ((TxValidity -> f TxValidity)
    -> Maybe TxValidity -> f (Maybe TxValidity))
-> (TxValidity -> f TxValidity)
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe TxValidity)
-> (Tx -> Maybe TxValidity -> Tx)
-> Lens Tx Tx (Maybe TxValidity) (Maybe TxValidity)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe TxValidity
_Tx'validity (\ Tx
x__ Maybe TxValidity
y__ -> Tx
x__ {_Tx'validity = y__}))
        (TxValidity -> Lens' (Maybe TxValidity) TxValidity
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxValidity
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Tx "maybe'validity" (Prelude.Maybe TxValidity) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'validity"
-> (Maybe TxValidity -> f (Maybe TxValidity)) -> Tx -> f Tx
fieldOf Proxy# "maybe'validity"
_
    = ((Maybe TxValidity -> f (Maybe TxValidity)) -> Tx -> f Tx)
-> ((Maybe TxValidity -> f (Maybe TxValidity))
    -> Maybe TxValidity -> f (Maybe TxValidity))
-> (Maybe TxValidity -> f (Maybe TxValidity))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe TxValidity)
-> (Tx -> Maybe TxValidity -> Tx)
-> Lens Tx Tx (Maybe TxValidity) (Maybe TxValidity)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe TxValidity
_Tx'validity (\ Tx
x__ Maybe TxValidity
y__ -> Tx
x__ {_Tx'validity = y__}))
        (Maybe TxValidity -> f (Maybe TxValidity))
-> Maybe TxValidity -> f (Maybe TxValidity)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "successful" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "successful" -> (Bool -> f Bool) -> Tx -> f Tx
fieldOf Proxy# "successful"
_
    = ((Bool -> f Bool) -> Tx -> f Tx)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Bool) -> (Tx -> Bool -> Tx) -> Lens Tx Tx Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Bool
_Tx'successful (\ Tx
x__ Bool
y__ -> Tx
x__ {_Tx'successful = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "auxiliary" AuxData where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "auxiliary" -> (AuxData -> f AuxData) -> Tx -> f Tx
fieldOf Proxy# "auxiliary"
_
    = ((Maybe AuxData -> f (Maybe AuxData)) -> Tx -> f Tx)
-> ((AuxData -> f AuxData) -> Maybe AuxData -> f (Maybe AuxData))
-> (AuxData -> f AuxData)
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe AuxData)
-> (Tx -> Maybe AuxData -> Tx)
-> Lens Tx Tx (Maybe AuxData) (Maybe AuxData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe AuxData
_Tx'auxiliary (\ Tx
x__ Maybe AuxData
y__ -> Tx
x__ {_Tx'auxiliary = y__}))
        (AuxData -> Lens' (Maybe AuxData) AuxData
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AuxData
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Tx "maybe'auxiliary" (Prelude.Maybe AuxData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'auxiliary"
-> (Maybe AuxData -> f (Maybe AuxData)) -> Tx -> f Tx
fieldOf Proxy# "maybe'auxiliary"
_
    = ((Maybe AuxData -> f (Maybe AuxData)) -> Tx -> f Tx)
-> ((Maybe AuxData -> f (Maybe AuxData))
    -> Maybe AuxData -> f (Maybe AuxData))
-> (Maybe AuxData -> f (Maybe AuxData))
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> Maybe AuxData)
-> (Tx -> Maybe AuxData -> Tx)
-> Lens Tx Tx (Maybe AuxData) (Maybe AuxData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> Maybe AuxData
_Tx'auxiliary (\ Tx
x__ Maybe AuxData
y__ -> Tx
x__ {_Tx'auxiliary = y__}))
        (Maybe AuxData -> f (Maybe AuxData))
-> Maybe AuxData -> f (Maybe AuxData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Tx "hash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash" -> (ByteString -> f ByteString) -> Tx -> f Tx
fieldOf Proxy# "hash"
_
    = ((ByteString -> f ByteString) -> Tx -> f Tx)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Tx
-> f Tx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Tx -> ByteString)
-> (Tx -> ByteString -> Tx) -> Lens Tx Tx ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Tx -> ByteString
_Tx'hash (\ Tx
x__ ByteString
y__ -> Tx
x__ {_Tx'hash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Tx where
  messageName :: Proxy Tx -> Text
messageName Proxy Tx
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Tx"
  packedMessageDescriptor :: Proxy Tx -> ByteString
packedMessageDescriptor Proxy Tx
_
    = ByteString
"\n\
      \\STXTx\DC28\n\
      \\ACKinputs\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\ACKinputs\DC2;\n\
      \\aoutputs\CAN\STX \ETX(\v2!.utxorpc.v1alpha.cardano.TxOutputR\aoutputs\DC2H\n\
      \\fcertificates\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.cardano.CertificateR\fcertificates\DC2E\n\
      \\vwithdrawals\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.cardano.WithdrawalR\vwithdrawals\DC27\n\
      \\EOTmint\CAN\ENQ \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\EOTmint\DC2K\n\
      \\DLEreference_inputs\CAN\ACK \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\SIreferenceInputs\DC2A\n\
      \\twitnesses\CAN\a \SOH(\v2#.utxorpc.v1alpha.cardano.WitnessSetR\twitnesses\DC2C\n\
      \\n\
      \collateral\CAN\b \SOH(\v2#.utxorpc.v1alpha.cardano.CollateralR\n\
      \collateral\DC2\DLE\n\
      \\ETXfee\CAN\t \SOH(\EOTR\ETXfee\DC2?\n\
      \\bvalidity\CAN\n\
      \ \SOH(\v2#.utxorpc.v1alpha.cardano.TxValidityR\bvalidity\DC2\RS\n\
      \\n\
      \successful\CAN\v \SOH(\bR\n\
      \successful\DC2>\n\
      \\tauxiliary\CAN\f \SOH(\v2 .utxorpc.v1alpha.cardano.AuxDataR\tauxiliary\DC2\DC2\n\
      \\EOThash\CAN\r \SOH(\fR\EOThash"
  packedFileDescriptor :: Proxy Tx -> ByteString
packedFileDescriptor Proxy Tx
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Tx)
fieldsByTag
    = let
        inputs__field_descriptor :: FieldDescriptor Tx
inputs__field_descriptor
          = String
-> FieldTypeDescriptor TxInput
-> FieldAccessor Tx TxInput
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"inputs"
              (MessageOrGroup -> FieldTypeDescriptor TxInput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxInput)
              (Packing -> Lens' Tx [TxInput] -> FieldAccessor Tx 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 @"inputs")) ::
              Data.ProtoLens.FieldDescriptor Tx
        outputs__field_descriptor :: FieldDescriptor Tx
outputs__field_descriptor
          = String
-> FieldTypeDescriptor TxOutput
-> FieldAccessor Tx TxOutput
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"outputs"
              (MessageOrGroup -> FieldTypeDescriptor TxOutput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxOutput)
              (Packing -> Lens' Tx [TxOutput] -> FieldAccessor Tx TxOutput
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 @"outputs")) ::
              Data.ProtoLens.FieldDescriptor Tx
        certificates__field_descriptor :: FieldDescriptor Tx
certificates__field_descriptor
          = String
-> FieldTypeDescriptor Certificate
-> FieldAccessor Tx Certificate
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"certificates"
              (MessageOrGroup -> FieldTypeDescriptor Certificate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Certificate)
              (Packing -> Lens' Tx [Certificate] -> FieldAccessor Tx Certificate
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 @"certificates")) ::
              Data.ProtoLens.FieldDescriptor Tx
        withdrawals__field_descriptor :: FieldDescriptor Tx
withdrawals__field_descriptor
          = String
-> FieldTypeDescriptor Withdrawal
-> FieldAccessor Tx Withdrawal
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"withdrawals"
              (MessageOrGroup -> FieldTypeDescriptor Withdrawal
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Withdrawal)
              (Packing -> Lens' Tx [Withdrawal] -> FieldAccessor Tx Withdrawal
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 @"withdrawals")) ::
              Data.ProtoLens.FieldDescriptor Tx
        mint__field_descriptor :: FieldDescriptor Tx
mint__field_descriptor
          = String
-> FieldTypeDescriptor Multiasset
-> FieldAccessor Tx Multiasset
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"mint"
              (MessageOrGroup -> FieldTypeDescriptor Multiasset
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Multiasset)
              (Packing -> Lens' Tx [Multiasset] -> FieldAccessor Tx Multiasset
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 @"mint")) ::
              Data.ProtoLens.FieldDescriptor Tx
        referenceInputs__field_descriptor :: FieldDescriptor Tx
referenceInputs__field_descriptor
          = String
-> FieldTypeDescriptor TxInput
-> FieldAccessor Tx TxInput
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reference_inputs"
              (MessageOrGroup -> FieldTypeDescriptor TxInput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxInput)
              (Packing -> Lens' Tx [TxInput] -> FieldAccessor Tx 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 @"referenceInputs")) ::
              Data.ProtoLens.FieldDescriptor Tx
        witnesses__field_descriptor :: FieldDescriptor Tx
witnesses__field_descriptor
          = String
-> FieldTypeDescriptor WitnessSet
-> FieldAccessor Tx WitnessSet
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"witnesses"
              (MessageOrGroup -> FieldTypeDescriptor WitnessSet
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor WitnessSet)
              (Lens Tx Tx (Maybe WitnessSet) (Maybe WitnessSet)
-> FieldAccessor Tx WitnessSet
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'witnesses")) ::
              Data.ProtoLens.FieldDescriptor Tx
        collateral__field_descriptor :: FieldDescriptor Tx
collateral__field_descriptor
          = String
-> FieldTypeDescriptor Collateral
-> FieldAccessor Tx Collateral
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"collateral"
              (MessageOrGroup -> FieldTypeDescriptor Collateral
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Collateral)
              (Lens Tx Tx (Maybe Collateral) (Maybe Collateral)
-> FieldAccessor Tx Collateral
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'collateral")) ::
              Data.ProtoLens.FieldDescriptor Tx
        fee__field_descriptor :: FieldDescriptor Tx
fee__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Tx Word64
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"fee"
              (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 Tx Tx Word64 Word64 -> FieldAccessor Tx 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 @"fee")) ::
              Data.ProtoLens.FieldDescriptor Tx
        validity__field_descriptor :: FieldDescriptor Tx
validity__field_descriptor
          = String
-> FieldTypeDescriptor TxValidity
-> FieldAccessor Tx TxValidity
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"validity"
              (MessageOrGroup -> FieldTypeDescriptor TxValidity
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxValidity)
              (Lens Tx Tx (Maybe TxValidity) (Maybe TxValidity)
-> FieldAccessor Tx TxValidity
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'validity")) ::
              Data.ProtoLens.FieldDescriptor Tx
        successful__field_descriptor :: FieldDescriptor Tx
successful__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor Tx Bool
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"successful"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool -> Lens Tx Tx Bool Bool -> FieldAccessor Tx Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"successful")) ::
              Data.ProtoLens.FieldDescriptor Tx
        auxiliary__field_descriptor :: FieldDescriptor Tx
auxiliary__field_descriptor
          = String
-> FieldTypeDescriptor AuxData
-> FieldAccessor Tx AuxData
-> FieldDescriptor Tx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"auxiliary"
              (MessageOrGroup -> FieldTypeDescriptor AuxData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AuxData)
              (Lens Tx Tx (Maybe AuxData) (Maybe AuxData)
-> FieldAccessor Tx AuxData
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'auxiliary")) ::
              Data.ProtoLens.FieldDescriptor Tx
        hash__field_descriptor :: FieldDescriptor Tx
hash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Tx ByteString
-> FieldDescriptor Tx
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 Tx Tx ByteString ByteString -> FieldAccessor Tx 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 Tx
      in
        [(Tag, FieldDescriptor Tx)] -> Map Tag (FieldDescriptor Tx)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Tx
inputs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Tx
outputs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Tx
certificates__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Tx
withdrawals__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Tx
mint__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Tx
referenceInputs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor Tx
witnesses__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor Tx
collateral__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor Tx
fee__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor Tx
validity__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor Tx
successful__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor Tx
auxiliary__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor Tx
hash__field_descriptor)]
  unknownFields :: Lens' Tx FieldSet
unknownFields
    = (Tx -> FieldSet) -> (Tx -> FieldSet -> Tx) -> Lens' Tx FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Tx -> FieldSet
_Tx'_unknownFields (\ Tx
x__ FieldSet
y__ -> Tx
x__ {_Tx'_unknownFields = y__})
  defMessage :: Tx
defMessage
    = Tx'_constructor
        {_Tx'inputs :: Vector TxInput
_Tx'inputs = Vector TxInput
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Tx'outputs :: Vector TxOutput
_Tx'outputs = Vector TxOutput
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Tx'certificates :: Vector Certificate
_Tx'certificates = Vector Certificate
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Tx'withdrawals :: Vector Withdrawal
_Tx'withdrawals = Vector Withdrawal
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Tx'mint :: Vector Multiasset
_Tx'mint = Vector Multiasset
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Tx'referenceInputs :: Vector TxInput
_Tx'referenceInputs = Vector TxInput
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Tx'witnesses :: Maybe WitnessSet
_Tx'witnesses = Maybe WitnessSet
forall a. Maybe a
Prelude.Nothing, _Tx'collateral :: Maybe Collateral
_Tx'collateral = Maybe Collateral
forall a. Maybe a
Prelude.Nothing,
         _Tx'fee :: Word64
_Tx'fee = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Tx'validity :: Maybe TxValidity
_Tx'validity = Maybe TxValidity
forall a. Maybe a
Prelude.Nothing,
         _Tx'successful :: Bool
_Tx'successful = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Tx'auxiliary :: Maybe AuxData
_Tx'auxiliary = Maybe AuxData
forall a. Maybe a
Prelude.Nothing,
         _Tx'hash :: ByteString
_Tx'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault, _Tx'_unknownFields :: FieldSet
_Tx'_unknownFields = []}
  parseMessage :: Parser Tx
parseMessage
    = let
        loop ::
          Tx
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Certificate
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput
                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Multiasset
                   -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxOutput
                      -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput
                         -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Withdrawal
                            -> Data.ProtoLens.Encoding.Bytes.Parser Tx
        loop :: Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
          Tx
x
          Growing Vector RealWorld Certificate
mutable'certificates
          Growing Vector RealWorld TxInput
mutable'inputs
          Growing Vector RealWorld Multiasset
mutable'mint
          Growing Vector RealWorld TxOutput
mutable'outputs
          Growing Vector RealWorld TxInput
mutable'referenceInputs
          Growing Vector RealWorld Withdrawal
mutable'withdrawals
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Certificate
frozen'certificates <- IO (Vector Certificate) -> Parser (Vector Certificate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               (Growing Vector (PrimState IO) Certificate
-> IO (Vector Certificate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                  Growing Vector RealWorld Certificate
Growing Vector (PrimState IO) Certificate
mutable'certificates)
                      Vector TxInput
frozen'inputs <- IO (Vector TxInput) -> Parser (Vector TxInput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) TxInput -> IO (Vector TxInput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld TxInput
Growing Vector (PrimState IO) TxInput
mutable'inputs)
                      Vector Multiasset
frozen'mint <- IO (Vector Multiasset) -> Parser (Vector Multiasset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Multiasset -> IO (Vector Multiasset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Multiasset
Growing Vector (PrimState IO) Multiasset
mutable'mint)
                      Vector TxOutput
frozen'outputs <- IO (Vector TxOutput) -> Parser (Vector TxOutput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) TxOutput -> IO (Vector TxOutput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld TxOutput
Growing Vector (PrimState IO) TxOutput
mutable'outputs)
                      Vector TxInput
frozen'referenceInputs <- IO (Vector TxInput) -> Parser (Vector TxInput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                  (Growing Vector (PrimState IO) TxInput -> IO (Vector TxInput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                     Growing Vector RealWorld TxInput
Growing Vector (PrimState IO) TxInput
mutable'referenceInputs)
                      Vector Withdrawal
frozen'withdrawals <- IO (Vector Withdrawal) -> Parser (Vector Withdrawal)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                              (Growing Vector (PrimState IO) Withdrawal -> IO (Vector Withdrawal)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                 Growing Vector RealWorld Withdrawal
Growing Vector (PrimState IO) Withdrawal
mutable'withdrawals)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Tx -> Parser Tx
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Tx Tx FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Tx -> Tx
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Tx FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Tx FieldSet
Setter Tx Tx FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter Tx Tx (Vector Certificate) (Vector Certificate)
-> Vector Certificate -> Tx -> Tx
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 @"vec'certificates")
                              Vector Certificate
frozen'certificates
                              (Setter Tx Tx (Vector TxInput) (Vector TxInput)
-> Vector TxInput -> Tx -> Tx
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 @"vec'inputs") Vector TxInput
frozen'inputs
                                 (Setter Tx Tx (Vector Multiasset) (Vector Multiasset)
-> Vector Multiasset -> Tx -> Tx
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 @"vec'mint") Vector Multiasset
frozen'mint
                                    (Setter Tx Tx (Vector TxOutput) (Vector TxOutput)
-> Vector TxOutput -> Tx -> Tx
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 @"vec'outputs") Vector TxOutput
frozen'outputs
                                       (Setter Tx Tx (Vector TxInput) (Vector TxInput)
-> Vector TxInput -> Tx -> Tx
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 @"vec'referenceInputs")
                                          Vector TxInput
frozen'referenceInputs
                                          (Setter Tx Tx (Vector Withdrawal) (Vector Withdrawal)
-> Vector Withdrawal -> Tx -> Tx
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 @"vec'withdrawals")
                                             Vector Withdrawal
frozen'withdrawals Tx
x)))))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !TxInput
y <- Parser TxInput -> String -> Parser TxInput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxInput -> Parser TxInput
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser TxInput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"inputs"
                                Growing Vector RealWorld TxInput
v <- IO (Growing Vector RealWorld TxInput)
-> Parser (Growing Vector RealWorld TxInput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxInput
-> TxInput -> IO (Growing Vector (PrimState IO) TxInput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld TxInput
Growing Vector (PrimState IO) TxInput
mutable'inputs TxInput
y)
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  Tx
x Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
v Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
18
                          -> do !TxOutput
y <- Parser TxOutput -> String -> Parser TxOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxOutput -> Parser TxOutput
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser TxOutput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"outputs"
                                Growing Vector RealWorld TxOutput
v <- IO (Growing Vector RealWorld TxOutput)
-> Parser (Growing Vector RealWorld TxOutput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxOutput
-> TxOutput -> IO (Growing Vector (PrimState IO) TxOutput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld TxOutput
Growing Vector (PrimState IO) TxOutput
mutable'outputs TxOutput
y)
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  Tx
x Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
v
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
26
                          -> do !Certificate
y <- Parser Certificate -> String -> Parser Certificate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Certificate -> Parser Certificate
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Certificate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"certificates"
                                Growing Vector RealWorld Certificate
v <- IO (Growing Vector RealWorld Certificate)
-> Parser (Growing Vector RealWorld Certificate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Certificate
-> Certificate -> IO (Growing Vector (PrimState IO) Certificate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld Certificate
Growing Vector (PrimState IO) Certificate
mutable'certificates Certificate
y)
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  Tx
x Growing Vector RealWorld Certificate
v Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
34
                          -> do !Withdrawal
y <- Parser Withdrawal -> String -> Parser Withdrawal
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Withdrawal -> Parser Withdrawal
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Withdrawal
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"withdrawals"
                                Growing Vector RealWorld Withdrawal
v <- IO (Growing Vector RealWorld Withdrawal)
-> Parser (Growing Vector RealWorld Withdrawal)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Withdrawal
-> Withdrawal -> IO (Growing Vector (PrimState IO) Withdrawal)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld Withdrawal
Growing Vector (PrimState IO) Withdrawal
mutable'withdrawals Withdrawal
y)
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  Tx
x Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
v
                        Word64
42
                          -> do !Multiasset
y <- Parser Multiasset -> String -> Parser Multiasset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Multiasset -> Parser Multiasset
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Multiasset
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"mint"
                                Growing Vector RealWorld Multiasset
v <- IO (Growing Vector RealWorld Multiasset)
-> Parser (Growing Vector RealWorld Multiasset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Multiasset
-> Multiasset -> IO (Growing Vector (PrimState IO) Multiasset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Multiasset
Growing Vector (PrimState IO) Multiasset
mutable'mint Multiasset
y)
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  Tx
x Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
v Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
50
                          -> do !TxInput
y <- Parser TxInput -> String -> Parser TxInput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxInput -> Parser TxInput
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser TxInput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"reference_inputs"
                                Growing Vector RealWorld TxInput
v <- IO (Growing Vector RealWorld TxInput)
-> Parser (Growing Vector RealWorld TxInput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxInput
-> TxInput -> IO (Growing Vector (PrimState IO) TxInput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld TxInput
Growing Vector (PrimState IO) TxInput
mutable'referenceInputs TxInput
y)
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  Tx
x Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
v Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
58
                          -> do WitnessSet
y <- Parser WitnessSet -> String -> Parser WitnessSet
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser WitnessSet -> Parser WitnessSet
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser WitnessSet
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"witnesses"
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx WitnessSet WitnessSet -> WitnessSet -> Tx -> Tx
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 @"witnesses") WitnessSet
y Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
66
                          -> do Collateral
y <- Parser Collateral -> String -> Parser Collateral
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Collateral -> Parser Collateral
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Collateral
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"collateral"
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx Collateral Collateral -> Collateral -> Tx -> Tx
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 @"collateral") Collateral
y Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
72
                          -> do Word64
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
"fee"
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx Word64 Word64 -> Word64 -> Tx -> Tx
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 @"fee") Word64
y Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
82
                          -> do TxValidity
y <- Parser TxValidity -> String -> Parser TxValidity
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxValidity -> Parser TxValidity
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxValidity
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"validity"
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx TxValidity TxValidity -> TxValidity -> Tx -> Tx
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 @"validity") TxValidity
y Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
88
                          -> do Bool
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
"successful"
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx Bool Bool -> Bool -> Tx -> Tx
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 @"successful") Bool
y Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
98
                          -> do AuxData
y <- Parser AuxData -> String -> Parser AuxData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AuxData -> Parser AuxData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AuxData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"auxiliary"
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx AuxData AuxData -> AuxData -> Tx -> Tx
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 @"auxiliary") AuxData
y Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
106
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"hash"
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx ByteString ByteString -> ByteString -> Tx -> Tx
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 @"hash") ByteString
y Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                                  (Setter Tx Tx FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Tx -> Tx
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Tx FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Tx FieldSet
Setter Tx Tx FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Tx
x)
                                  Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs
                                  Growing Vector RealWorld TxInput
mutable'referenceInputs Growing Vector RealWorld Withdrawal
mutable'withdrawals
      in
        Parser Tx -> String -> Parser Tx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Certificate
mutable'certificates <- IO (Growing Vector RealWorld Certificate)
-> Parser (Growing Vector RealWorld Certificate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        IO (Growing Vector RealWorld Certificate)
IO (Growing Vector (PrimState IO) Certificate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld TxInput
mutable'inputs <- 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
              Growing Vector RealWorld Multiasset
mutable'mint <- IO (Growing Vector RealWorld Multiasset)
-> Parser (Growing Vector RealWorld Multiasset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld Multiasset)
IO (Growing Vector (PrimState IO) Multiasset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld TxOutput
mutable'outputs <- IO (Growing Vector RealWorld TxOutput)
-> Parser (Growing Vector RealWorld TxOutput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld TxOutput)
IO (Growing Vector (PrimState IO) TxOutput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld TxInput
mutable'referenceInputs <- 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
              Growing Vector RealWorld Withdrawal
mutable'withdrawals <- IO (Growing Vector RealWorld Withdrawal)
-> Parser (Growing Vector RealWorld Withdrawal)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       IO (Growing Vector RealWorld Withdrawal)
IO (Growing Vector (PrimState IO) Withdrawal)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Tx
-> Growing Vector RealWorld Certificate
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Multiasset
-> Growing Vector RealWorld TxOutput
-> Growing Vector RealWorld TxInput
-> Growing Vector RealWorld Withdrawal
-> Parser Tx
loop
                Tx
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Certificate
mutable'certificates Growing Vector RealWorld TxInput
mutable'inputs
                Growing Vector RealWorld Multiasset
mutable'mint Growing Vector RealWorld TxOutput
mutable'outputs Growing Vector RealWorld TxInput
mutable'referenceInputs
                Growing Vector RealWorld Withdrawal
mutable'withdrawals)
          String
"Tx"
  buildMessage :: Tx -> Builder
buildMessage
    = \ Tx
_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) Tx Tx (Vector TxInput) (Vector TxInput)
-> Tx -> 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'inputs") Tx
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((TxOutput -> Builder) -> Vector TxOutput -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ 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))
                   (FoldLike
  (Vector TxOutput) Tx Tx (Vector TxOutput) (Vector TxOutput)
-> Tx -> Vector 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 @"vec'outputs") Tx
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((Certificate -> Builder) -> Vector Certificate -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ Certificate
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (Certificate -> ByteString) -> Certificate -> 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))
                                 Certificate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Certificate
_v))
                      (FoldLike
  (Vector Certificate)
  Tx
  Tx
  (Vector Certificate)
  (Vector Certificate)
-> Tx -> Vector 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 @"vec'certificates") Tx
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((Withdrawal -> Builder) -> Vector Withdrawal -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ Withdrawal
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                 ((ByteString -> Builder)
-> (Withdrawal -> ByteString) -> Withdrawal -> 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))
                                    Withdrawal -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Withdrawal
_v))
                         (FoldLike
  (Vector Withdrawal) Tx Tx (Vector Withdrawal) (Vector Withdrawal)
-> Tx -> Vector Withdrawal
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'withdrawals") Tx
_x))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ((Multiasset -> Builder) -> Vector Multiasset -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ Multiasset
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                    ((ByteString -> Builder)
-> (Multiasset -> ByteString) -> Multiasset -> 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))
                                       Multiasset -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Multiasset
_v))
                            (FoldLike
  (Vector Multiasset) Tx Tx (Vector Multiasset) (Vector Multiasset)
-> Tx -> Vector Multiasset
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'mint") Tx
_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
50)
                                       ((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) Tx Tx (Vector TxInput) (Vector TxInput)
-> Tx -> 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'referenceInputs") Tx
_x))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe WitnessSet) Tx Tx (Maybe WitnessSet) (Maybe WitnessSet)
-> Tx -> Maybe WitnessSet
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'witnesses") Tx
_x
                                of
                                  Maybe WitnessSet
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just WitnessSet
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                         ((ByteString -> Builder)
-> (WitnessSet -> ByteString) -> WitnessSet -> 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))
                                            WitnessSet -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WitnessSet
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (case
                                       FoldLike
  (Maybe Collateral) Tx Tx (Maybe Collateral) (Maybe Collateral)
-> Tx -> Maybe Collateral
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'collateral") Tx
_x
                                   of
                                     Maybe Collateral
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                     (Prelude.Just Collateral
_v)
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                            ((ByteString -> Builder)
-> (Collateral -> ByteString) -> Collateral -> 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))
                                               Collateral -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Collateral
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (let
                                        _v :: Word64
_v
                                          = FoldLike Word64 Tx Tx Word64 Word64 -> Tx -> 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 @"fee") Tx
_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
72)
                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (case
                                             FoldLike
  (Maybe TxValidity) Tx Tx (Maybe TxValidity) (Maybe TxValidity)
-> Tx -> Maybe TxValidity
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'validity") Tx
_x
                                         of
                                           Maybe TxValidity
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                           (Prelude.Just TxValidity
_v)
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
                                                  ((ByteString -> Builder)
-> (TxValidity -> ByteString) -> TxValidity -> 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))
                                                     TxValidity -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxValidity
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (let
                                              _v :: Bool
_v
                                                = FoldLike Bool Tx Tx Bool Bool -> Tx -> Bool
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 @"successful") Tx
_x
                                            in
                                              if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
88)
                                                    ((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))
                                           (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (case
                                                   FoldLike (Maybe AuxData) Tx Tx (Maybe AuxData) (Maybe AuxData)
-> Tx -> Maybe AuxData
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'auxiliary")
                                                     Tx
_x
                                               of
                                                 Maybe AuxData
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                 (Prelude.Just AuxData
_v)
                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
                                                        ((ByteString -> Builder)
-> (AuxData -> ByteString) -> AuxData -> 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))
                                                           AuxData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AuxData
_v))
                                              (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                 (let
                                                    _v :: ByteString
_v
                                                      = FoldLike ByteString Tx Tx ByteString ByteString -> Tx -> 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") Tx
_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
106)
                                                          ((\ 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 Tx Tx FieldSet FieldSet -> Tx -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                       FoldLike FieldSet Tx Tx FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Tx FieldSet
Data.ProtoLens.unknownFields Tx
_x))))))))))))))
instance Control.DeepSeq.NFData Tx where
  rnf :: Tx -> ()
rnf
    = \ Tx
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Tx -> FieldSet
_Tx'_unknownFields Tx
x__)
             (Vector TxInput -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Tx -> Vector TxInput
_Tx'inputs Tx
x__)
                (Vector TxOutput -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Tx -> Vector TxOutput
_Tx'outputs Tx
x__)
                   (Vector Certificate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Tx -> Vector Certificate
_Tx'certificates Tx
x__)
                      (Vector Withdrawal -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (Tx -> Vector Withdrawal
_Tx'withdrawals Tx
x__)
                         (Vector Multiasset -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (Tx -> Vector Multiasset
_Tx'mint Tx
x__)
                            (Vector TxInput -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (Tx -> Vector TxInput
_Tx'referenceInputs Tx
x__)
                               (Maybe WitnessSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (Tx -> Maybe WitnessSet
_Tx'witnesses Tx
x__)
                                  (Maybe Collateral -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (Tx -> Maybe Collateral
_Tx'collateral Tx
x__)
                                     (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (Tx -> Word64
_Tx'fee Tx
x__)
                                        (Maybe TxValidity -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (Tx -> Maybe TxValidity
_Tx'validity Tx
x__)
                                           (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (Tx -> Bool
_Tx'successful Tx
x__)
                                              (Maybe AuxData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (Tx -> Maybe AuxData
_Tx'auxiliary Tx
x__)
                                                 (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                    (Tx -> ByteString
_Tx'hash Tx
x__) ())))))))))))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fee' @:: Lens' TxEval Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.exUnits' @:: Lens' TxEval ExUnits@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'exUnits' @:: Lens' TxEval (Prelude.Maybe ExUnits)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.errors' @:: Lens' TxEval [EvalError]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'errors' @:: Lens' TxEval (Data.Vector.Vector EvalError)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.traces' @:: Lens' TxEval [EvalTrace]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'traces' @:: Lens' TxEval (Data.Vector.Vector EvalTrace)@ -}
data TxEval
  = TxEval'_constructor {TxEval -> Word64
_TxEval'fee :: !Data.Word.Word64,
                         TxEval -> Maybe ExUnits
_TxEval'exUnits :: !(Prelude.Maybe ExUnits),
                         TxEval -> Vector EvalError
_TxEval'errors :: !(Data.Vector.Vector EvalError),
                         TxEval -> Vector EvalTrace
_TxEval'traces :: !(Data.Vector.Vector EvalTrace),
                         TxEval -> FieldSet
_TxEval'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxEval -> TxEval -> Bool
(TxEval -> TxEval -> Bool)
-> (TxEval -> TxEval -> Bool) -> Eq TxEval
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxEval -> TxEval -> Bool
== :: TxEval -> TxEval -> Bool
$c/= :: TxEval -> TxEval -> Bool
/= :: TxEval -> TxEval -> Bool
Prelude.Eq, Eq TxEval
Eq TxEval =>
(TxEval -> TxEval -> Ordering)
-> (TxEval -> TxEval -> Bool)
-> (TxEval -> TxEval -> Bool)
-> (TxEval -> TxEval -> Bool)
-> (TxEval -> TxEval -> Bool)
-> (TxEval -> TxEval -> TxEval)
-> (TxEval -> TxEval -> TxEval)
-> Ord TxEval
TxEval -> TxEval -> Bool
TxEval -> TxEval -> Ordering
TxEval -> TxEval -> TxEval
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 :: TxEval -> TxEval -> Ordering
compare :: TxEval -> TxEval -> Ordering
$c< :: TxEval -> TxEval -> Bool
< :: TxEval -> TxEval -> Bool
$c<= :: TxEval -> TxEval -> Bool
<= :: TxEval -> TxEval -> Bool
$c> :: TxEval -> TxEval -> Bool
> :: TxEval -> TxEval -> Bool
$c>= :: TxEval -> TxEval -> Bool
>= :: TxEval -> TxEval -> Bool
$cmax :: TxEval -> TxEval -> TxEval
max :: TxEval -> TxEval -> TxEval
$cmin :: TxEval -> TxEval -> TxEval
min :: TxEval -> TxEval -> TxEval
Prelude.Ord)
instance Prelude.Show TxEval where
  showsPrec :: Int -> TxEval -> ShowS
showsPrec Int
_ TxEval
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxEval -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxEval
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxEval "fee" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fee" -> (Word64 -> f Word64) -> TxEval -> f TxEval
fieldOf Proxy# "fee"
_
    = ((Word64 -> f Word64) -> TxEval -> f TxEval)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> TxEval
-> f TxEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxEval -> Word64)
-> (TxEval -> Word64 -> TxEval) -> Lens TxEval TxEval Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxEval -> Word64
_TxEval'fee (\ TxEval
x__ Word64
y__ -> TxEval
x__ {_TxEval'fee = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxEval "exUnits" ExUnits where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "exUnits" -> (ExUnits -> f ExUnits) -> TxEval -> f TxEval
fieldOf Proxy# "exUnits"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> TxEval -> f TxEval)
-> ((ExUnits -> f ExUnits) -> Maybe ExUnits -> f (Maybe ExUnits))
-> (ExUnits -> f ExUnits)
-> TxEval
-> f TxEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxEval -> Maybe ExUnits)
-> (TxEval -> Maybe ExUnits -> TxEval)
-> Lens TxEval TxEval (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxEval -> Maybe ExUnits
_TxEval'exUnits (\ TxEval
x__ Maybe ExUnits
y__ -> TxEval
x__ {_TxEval'exUnits = y__}))
        (ExUnits -> Lens' (Maybe ExUnits) ExUnits
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExUnits
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxEval "maybe'exUnits" (Prelude.Maybe ExUnits) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'exUnits"
-> (Maybe ExUnits -> f (Maybe ExUnits)) -> TxEval -> f TxEval
fieldOf Proxy# "maybe'exUnits"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> TxEval -> f TxEval)
-> ((Maybe ExUnits -> f (Maybe ExUnits))
    -> Maybe ExUnits -> f (Maybe ExUnits))
-> (Maybe ExUnits -> f (Maybe ExUnits))
-> TxEval
-> f TxEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxEval -> Maybe ExUnits)
-> (TxEval -> Maybe ExUnits -> TxEval)
-> Lens TxEval TxEval (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxEval -> Maybe ExUnits
_TxEval'exUnits (\ TxEval
x__ Maybe ExUnits
y__ -> TxEval
x__ {_TxEval'exUnits = y__}))
        (Maybe ExUnits -> f (Maybe ExUnits))
-> Maybe ExUnits -> f (Maybe ExUnits)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxEval "errors" [EvalError] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errors"
-> ([EvalError] -> f [EvalError]) -> TxEval -> f TxEval
fieldOf Proxy# "errors"
_
    = ((Vector EvalError -> f (Vector EvalError)) -> TxEval -> f TxEval)
-> (([EvalError] -> f [EvalError])
    -> Vector EvalError -> f (Vector EvalError))
-> ([EvalError] -> f [EvalError])
-> TxEval
-> f TxEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxEval -> Vector EvalError)
-> (TxEval -> Vector EvalError -> TxEval)
-> Lens TxEval TxEval (Vector EvalError) (Vector EvalError)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxEval -> Vector EvalError
_TxEval'errors (\ TxEval
x__ Vector EvalError
y__ -> TxEval
x__ {_TxEval'errors = y__}))
        ((Vector EvalError -> [EvalError])
-> (Vector EvalError -> [EvalError] -> Vector EvalError)
-> Lens
     (Vector EvalError) (Vector EvalError) [EvalError] [EvalError]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector EvalError -> [EvalError]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector EvalError
_ [EvalError]
y__ -> [EvalError] -> Vector EvalError
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [EvalError]
y__))
instance Data.ProtoLens.Field.HasField TxEval "vec'errors" (Data.Vector.Vector EvalError) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'errors"
-> (Vector EvalError -> f (Vector EvalError)) -> TxEval -> f TxEval
fieldOf Proxy# "vec'errors"
_
    = ((Vector EvalError -> f (Vector EvalError)) -> TxEval -> f TxEval)
-> ((Vector EvalError -> f (Vector EvalError))
    -> Vector EvalError -> f (Vector EvalError))
-> (Vector EvalError -> f (Vector EvalError))
-> TxEval
-> f TxEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxEval -> Vector EvalError)
-> (TxEval -> Vector EvalError -> TxEval)
-> Lens TxEval TxEval (Vector EvalError) (Vector EvalError)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxEval -> Vector EvalError
_TxEval'errors (\ TxEval
x__ Vector EvalError
y__ -> TxEval
x__ {_TxEval'errors = y__}))
        (Vector EvalError -> f (Vector EvalError))
-> Vector EvalError -> f (Vector EvalError)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxEval "traces" [EvalTrace] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "traces"
-> ([EvalTrace] -> f [EvalTrace]) -> TxEval -> f TxEval
fieldOf Proxy# "traces"
_
    = ((Vector EvalTrace -> f (Vector EvalTrace)) -> TxEval -> f TxEval)
-> (([EvalTrace] -> f [EvalTrace])
    -> Vector EvalTrace -> f (Vector EvalTrace))
-> ([EvalTrace] -> f [EvalTrace])
-> TxEval
-> f TxEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxEval -> Vector EvalTrace)
-> (TxEval -> Vector EvalTrace -> TxEval)
-> Lens TxEval TxEval (Vector EvalTrace) (Vector EvalTrace)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxEval -> Vector EvalTrace
_TxEval'traces (\ TxEval
x__ Vector EvalTrace
y__ -> TxEval
x__ {_TxEval'traces = y__}))
        ((Vector EvalTrace -> [EvalTrace])
-> (Vector EvalTrace -> [EvalTrace] -> Vector EvalTrace)
-> Lens
     (Vector EvalTrace) (Vector EvalTrace) [EvalTrace] [EvalTrace]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector EvalTrace -> [EvalTrace]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector EvalTrace
_ [EvalTrace]
y__ -> [EvalTrace] -> Vector EvalTrace
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [EvalTrace]
y__))
instance Data.ProtoLens.Field.HasField TxEval "vec'traces" (Data.Vector.Vector EvalTrace) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'traces"
-> (Vector EvalTrace -> f (Vector EvalTrace)) -> TxEval -> f TxEval
fieldOf Proxy# "vec'traces"
_
    = ((Vector EvalTrace -> f (Vector EvalTrace)) -> TxEval -> f TxEval)
-> ((Vector EvalTrace -> f (Vector EvalTrace))
    -> Vector EvalTrace -> f (Vector EvalTrace))
-> (Vector EvalTrace -> f (Vector EvalTrace))
-> TxEval
-> f TxEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxEval -> Vector EvalTrace)
-> (TxEval -> Vector EvalTrace -> TxEval)
-> Lens TxEval TxEval (Vector EvalTrace) (Vector EvalTrace)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxEval -> Vector EvalTrace
_TxEval'traces (\ TxEval
x__ Vector EvalTrace
y__ -> TxEval
x__ {_TxEval'traces = y__}))
        (Vector EvalTrace -> f (Vector EvalTrace))
-> Vector EvalTrace -> f (Vector EvalTrace)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxEval where
  messageName :: Proxy TxEval -> Text
messageName Proxy TxEval
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.TxEval"
  packedMessageDescriptor :: Proxy TxEval -> ByteString
packedMessageDescriptor Proxy TxEval
_
    = ByteString
"\n\
      \\ACKTxEval\DC2\DLE\n\
      \\ETXfee\CAN\SOH \SOH(\EOTR\ETXfee\DC2;\n\
      \\bex_units\CAN\STX \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\aexUnits\DC2:\n\
      \\ACKerrors\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.cardano.EvalErrorR\ACKerrors\DC2:\n\
      \\ACKtraces\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.cardano.EvalTraceR\ACKtraces"
  packedFileDescriptor :: Proxy TxEval -> ByteString
packedFileDescriptor Proxy TxEval
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxEval)
fieldsByTag
    = let
        fee__field_descriptor :: FieldDescriptor TxEval
fee__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor TxEval Word64
-> FieldDescriptor TxEval
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"fee"
              (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 TxEval TxEval Word64 Word64 -> FieldAccessor TxEval 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 @"fee")) ::
              Data.ProtoLens.FieldDescriptor TxEval
        exUnits__field_descriptor :: FieldDescriptor TxEval
exUnits__field_descriptor
          = String
-> FieldTypeDescriptor ExUnits
-> FieldAccessor TxEval ExUnits
-> FieldDescriptor TxEval
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ex_units"
              (MessageOrGroup -> FieldTypeDescriptor ExUnits
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExUnits)
              (Lens TxEval TxEval (Maybe ExUnits) (Maybe ExUnits)
-> FieldAccessor TxEval ExUnits
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'exUnits")) ::
              Data.ProtoLens.FieldDescriptor TxEval
        errors__field_descriptor :: FieldDescriptor TxEval
errors__field_descriptor
          = String
-> FieldTypeDescriptor EvalError
-> FieldAccessor TxEval EvalError
-> FieldDescriptor TxEval
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"errors"
              (MessageOrGroup -> FieldTypeDescriptor EvalError
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EvalError)
              (Packing
-> Lens' TxEval [EvalError] -> FieldAccessor TxEval EvalError
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 @"errors")) ::
              Data.ProtoLens.FieldDescriptor TxEval
        traces__field_descriptor :: FieldDescriptor TxEval
traces__field_descriptor
          = String
-> FieldTypeDescriptor EvalTrace
-> FieldAccessor TxEval EvalTrace
-> FieldDescriptor TxEval
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"traces"
              (MessageOrGroup -> FieldTypeDescriptor EvalTrace
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EvalTrace)
              (Packing
-> Lens' TxEval [EvalTrace] -> FieldAccessor TxEval EvalTrace
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 @"traces")) ::
              Data.ProtoLens.FieldDescriptor TxEval
      in
        [(Tag, FieldDescriptor TxEval)] -> Map Tag (FieldDescriptor TxEval)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxEval
fee__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxEval
exUnits__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TxEval
errors__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor TxEval
traces__field_descriptor)]
  unknownFields :: Lens' TxEval FieldSet
unknownFields
    = (TxEval -> FieldSet)
-> (TxEval -> FieldSet -> TxEval) -> Lens' TxEval FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxEval -> FieldSet
_TxEval'_unknownFields
        (\ TxEval
x__ FieldSet
y__ -> TxEval
x__ {_TxEval'_unknownFields = y__})
  defMessage :: TxEval
defMessage
    = TxEval'_constructor
        {_TxEval'fee :: Word64
_TxEval'fee = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxEval'exUnits :: Maybe ExUnits
_TxEval'exUnits = Maybe ExUnits
forall a. Maybe a
Prelude.Nothing,
         _TxEval'errors :: Vector EvalError
_TxEval'errors = Vector EvalError
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxEval'traces :: Vector EvalTrace
_TxEval'traces = Vector EvalTrace
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxEval'_unknownFields :: FieldSet
_TxEval'_unknownFields = []}
  parseMessage :: Parser TxEval
parseMessage
    = let
        loop ::
          TxEval
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalError
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalTrace
                -> Data.ProtoLens.Encoding.Bytes.Parser TxEval
        loop :: TxEval
-> Growing Vector RealWorld EvalError
-> Growing Vector RealWorld EvalTrace
-> Parser TxEval
loop TxEval
x Growing Vector RealWorld EvalError
mutable'errors Growing Vector RealWorld EvalTrace
mutable'traces
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector EvalError
frozen'errors <- IO (Vector EvalError) -> Parser (Vector EvalError)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) EvalError -> IO (Vector EvalError)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld EvalError
Growing Vector (PrimState IO) EvalError
mutable'errors)
                      Vector EvalTrace
frozen'traces <- IO (Vector EvalTrace) -> Parser (Vector EvalTrace)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) EvalTrace -> IO (Vector EvalTrace)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld EvalTrace
Growing Vector (PrimState IO) EvalTrace
mutable'traces)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TxEval -> Parser TxEval
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxEval TxEval FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxEval -> TxEval
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxEval FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxEval FieldSet
Setter TxEval TxEval FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter TxEval TxEval (Vector EvalError) (Vector EvalError)
-> Vector EvalError -> TxEval -> TxEval
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 @"vec'errors") Vector EvalError
frozen'errors
                              (Setter TxEval TxEval (Vector EvalTrace) (Vector EvalTrace)
-> Vector EvalTrace -> TxEval -> TxEval
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 @"vec'traces") Vector EvalTrace
frozen'traces TxEval
x)))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word64
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
"fee"
                                TxEval
-> Growing Vector RealWorld EvalError
-> Growing Vector RealWorld EvalTrace
-> Parser TxEval
loop
                                  (Setter TxEval TxEval Word64 Word64 -> Word64 -> TxEval -> TxEval
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 @"fee") Word64
y TxEval
x)
                                  Growing Vector RealWorld EvalError
mutable'errors Growing Vector RealWorld EvalTrace
mutable'traces
                        Word64
18
                          -> do ExUnits
y <- Parser ExUnits -> String -> Parser ExUnits
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ExUnits -> Parser ExUnits
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExUnits
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"ex_units"
                                TxEval
-> Growing Vector RealWorld EvalError
-> Growing Vector RealWorld EvalTrace
-> Parser TxEval
loop
                                  (Setter TxEval TxEval ExUnits ExUnits -> ExUnits -> TxEval -> TxEval
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 @"exUnits") ExUnits
y TxEval
x)
                                  Growing Vector RealWorld EvalError
mutable'errors Growing Vector RealWorld EvalTrace
mutable'traces
                        Word64
26
                          -> do !EvalError
y <- Parser EvalError -> String -> Parser EvalError
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser EvalError -> Parser EvalError
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser EvalError
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"errors"
                                Growing Vector RealWorld EvalError
v <- IO (Growing Vector RealWorld EvalError)
-> Parser (Growing Vector RealWorld EvalError)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) EvalError
-> EvalError -> IO (Growing Vector (PrimState IO) EvalError)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld EvalError
Growing Vector (PrimState IO) EvalError
mutable'errors EvalError
y)
                                TxEval
-> Growing Vector RealWorld EvalError
-> Growing Vector RealWorld EvalTrace
-> Parser TxEval
loop TxEval
x Growing Vector RealWorld EvalError
v Growing Vector RealWorld EvalTrace
mutable'traces
                        Word64
34
                          -> do !EvalTrace
y <- Parser EvalTrace -> String -> Parser EvalTrace
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser EvalTrace -> Parser EvalTrace
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser EvalTrace
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"traces"
                                Growing Vector RealWorld EvalTrace
v <- IO (Growing Vector RealWorld EvalTrace)
-> Parser (Growing Vector RealWorld EvalTrace)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) EvalTrace
-> EvalTrace -> IO (Growing Vector (PrimState IO) EvalTrace)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld EvalTrace
Growing Vector (PrimState IO) EvalTrace
mutable'traces EvalTrace
y)
                                TxEval
-> Growing Vector RealWorld EvalError
-> Growing Vector RealWorld EvalTrace
-> Parser TxEval
loop TxEval
x Growing Vector RealWorld EvalError
mutable'errors Growing Vector RealWorld EvalTrace
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxEval
-> Growing Vector RealWorld EvalError
-> Growing Vector RealWorld EvalTrace
-> Parser TxEval
loop
                                  (Setter TxEval TxEval FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxEval -> TxEval
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxEval FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxEval FieldSet
Setter TxEval TxEval FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxEval
x)
                                  Growing Vector RealWorld EvalError
mutable'errors Growing Vector RealWorld EvalTrace
mutable'traces
      in
        Parser TxEval -> String -> Parser TxEval
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld EvalError
mutable'errors <- IO (Growing Vector RealWorld EvalError)
-> Parser (Growing Vector RealWorld EvalError)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld EvalError)
IO (Growing Vector (PrimState IO) EvalError)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld EvalTrace
mutable'traces <- IO (Growing Vector RealWorld EvalTrace)
-> Parser (Growing Vector RealWorld EvalTrace)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld EvalTrace)
IO (Growing Vector (PrimState IO) EvalTrace)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              TxEval
-> Growing Vector RealWorld EvalError
-> Growing Vector RealWorld EvalTrace
-> Parser TxEval
loop TxEval
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld EvalError
mutable'errors Growing Vector RealWorld EvalTrace
mutable'traces)
          String
"TxEval"
  buildMessage :: TxEval -> Builder
buildMessage
    = \ TxEval
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word64
_v = FoldLike Word64 TxEval TxEval Word64 Word64 -> TxEval -> 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 @"fee") TxEval
_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.<>)
                (case
                     FoldLike
  (Maybe ExUnits) TxEval TxEval (Maybe ExUnits) (Maybe ExUnits)
-> TxEval -> Maybe ExUnits
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'exUnits") TxEval
_x
                 of
                   Maybe ExUnits
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just ExUnits
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (ExUnits -> ByteString) -> ExUnits -> 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))
                             ExUnits -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExUnits
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((EvalError -> Builder) -> Vector EvalError -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ EvalError
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (EvalError -> ByteString) -> EvalError -> 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))
                                 EvalError -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EvalError
_v))
                      (FoldLike
  (Vector EvalError)
  TxEval
  TxEval
  (Vector EvalError)
  (Vector EvalError)
-> TxEval -> Vector EvalError
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'errors") TxEval
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((EvalTrace -> Builder) -> Vector EvalTrace -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ EvalTrace
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                 ((ByteString -> Builder)
-> (EvalTrace -> ByteString) -> EvalTrace -> 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))
                                    EvalTrace -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage EvalTrace
_v))
                         (FoldLike
  (Vector EvalTrace)
  TxEval
  TxEval
  (Vector EvalTrace)
  (Vector EvalTrace)
-> TxEval -> Vector EvalTrace
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'traces") TxEval
_x))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet TxEval TxEval FieldSet FieldSet
-> TxEval -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxEval TxEval FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxEval FieldSet
Data.ProtoLens.unknownFields TxEval
_x)))))
instance Control.DeepSeq.NFData TxEval where
  rnf :: TxEval -> ()
rnf
    = \ TxEval
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxEval -> FieldSet
_TxEval'_unknownFields TxEval
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxEval -> Word64
_TxEval'fee TxEval
x__)
                (Maybe ExUnits -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TxEval -> Maybe ExUnits
_TxEval'exUnits TxEval
x__)
                   (Vector EvalError -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (TxEval -> Vector EvalError
_TxEval'errors TxEval
x__)
                      (Vector EvalTrace -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxEval -> Vector EvalTrace
_TxEval'traces TxEval
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.txHash' @:: Lens' TxInput Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputIndex' @:: Lens' TxInput Data.Word.Word32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.asOutput' @:: Lens' TxInput TxOutput@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'asOutput' @:: Lens' TxInput (Prelude.Maybe TxOutput)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' TxInput Redeemer@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' TxInput (Prelude.Maybe Redeemer)@ -}
data TxInput
  = TxInput'_constructor {TxInput -> ByteString
_TxInput'txHash :: !Data.ByteString.ByteString,
                          TxInput -> Word32
_TxInput'outputIndex :: !Data.Word.Word32,
                          TxInput -> Maybe TxOutput
_TxInput'asOutput :: !(Prelude.Maybe TxOutput),
                          TxInput -> Maybe Redeemer
_TxInput'redeemer :: !(Prelude.Maybe Redeemer),
                          TxInput -> FieldSet
_TxInput'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxInput -> TxInput -> Bool
(TxInput -> TxInput -> Bool)
-> (TxInput -> TxInput -> Bool) -> Eq TxInput
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxInput -> TxInput -> Bool
== :: TxInput -> TxInput -> Bool
$c/= :: TxInput -> TxInput -> Bool
/= :: TxInput -> TxInput -> Bool
Prelude.Eq, Eq TxInput
Eq TxInput =>
(TxInput -> TxInput -> Ordering)
-> (TxInput -> TxInput -> Bool)
-> (TxInput -> TxInput -> Bool)
-> (TxInput -> TxInput -> Bool)
-> (TxInput -> TxInput -> Bool)
-> (TxInput -> TxInput -> TxInput)
-> (TxInput -> TxInput -> TxInput)
-> Ord TxInput
TxInput -> TxInput -> Bool
TxInput -> TxInput -> Ordering
TxInput -> TxInput -> TxInput
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 :: TxInput -> TxInput -> Ordering
compare :: TxInput -> TxInput -> Ordering
$c< :: TxInput -> TxInput -> Bool
< :: TxInput -> TxInput -> Bool
$c<= :: TxInput -> TxInput -> Bool
<= :: TxInput -> TxInput -> Bool
$c> :: TxInput -> TxInput -> Bool
> :: TxInput -> TxInput -> Bool
$c>= :: TxInput -> TxInput -> Bool
>= :: TxInput -> TxInput -> Bool
$cmax :: TxInput -> TxInput -> TxInput
max :: TxInput -> TxInput -> TxInput
$cmin :: TxInput -> TxInput -> TxInput
min :: TxInput -> TxInput -> TxInput
Prelude.Ord)
instance Prelude.Show TxInput where
  showsPrec :: Int -> TxInput -> ShowS
showsPrec Int
_ TxInput
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxInput -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxInput
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxInput "txHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "txHash"
-> (ByteString -> f ByteString) -> TxInput -> f TxInput
fieldOf Proxy# "txHash"
_
    = ((ByteString -> f ByteString) -> TxInput -> f TxInput)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> TxInput
-> f TxInput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInput -> ByteString)
-> (TxInput -> ByteString -> TxInput)
-> Lens TxInput TxInput ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInput -> ByteString
_TxInput'txHash (\ TxInput
x__ ByteString
y__ -> TxInput
x__ {_TxInput'txHash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxInput "outputIndex" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "outputIndex"
-> (Word32 -> f Word32) -> TxInput -> f TxInput
fieldOf Proxy# "outputIndex"
_
    = ((Word32 -> f Word32) -> TxInput -> f TxInput)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> TxInput
-> f TxInput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInput -> Word32)
-> (TxInput -> Word32 -> TxInput)
-> Lens TxInput TxInput Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInput -> Word32
_TxInput'outputIndex
           (\ TxInput
x__ Word32
y__ -> TxInput
x__ {_TxInput'outputIndex = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxInput "asOutput" TxOutput where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "asOutput"
-> (TxOutput -> f TxOutput) -> TxInput -> f TxInput
fieldOf Proxy# "asOutput"
_
    = ((Maybe TxOutput -> f (Maybe TxOutput)) -> TxInput -> f TxInput)
-> ((TxOutput -> f TxOutput)
    -> Maybe TxOutput -> f (Maybe TxOutput))
-> (TxOutput -> f TxOutput)
-> TxInput
-> f TxInput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInput -> Maybe TxOutput)
-> (TxInput -> Maybe TxOutput -> TxInput)
-> Lens TxInput TxInput (Maybe TxOutput) (Maybe TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInput -> Maybe TxOutput
_TxInput'asOutput (\ TxInput
x__ Maybe TxOutput
y__ -> TxInput
x__ {_TxInput'asOutput = 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 TxInput "maybe'asOutput" (Prelude.Maybe TxOutput) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'asOutput"
-> (Maybe TxOutput -> f (Maybe TxOutput)) -> TxInput -> f TxInput
fieldOf Proxy# "maybe'asOutput"
_
    = ((Maybe TxOutput -> f (Maybe TxOutput)) -> TxInput -> f TxInput)
-> ((Maybe TxOutput -> f (Maybe TxOutput))
    -> Maybe TxOutput -> f (Maybe TxOutput))
-> (Maybe TxOutput -> f (Maybe TxOutput))
-> TxInput
-> f TxInput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInput -> Maybe TxOutput)
-> (TxInput -> Maybe TxOutput -> TxInput)
-> Lens TxInput TxInput (Maybe TxOutput) (Maybe TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInput -> Maybe TxOutput
_TxInput'asOutput (\ TxInput
x__ Maybe TxOutput
y__ -> TxInput
x__ {_TxInput'asOutput = y__}))
        (Maybe TxOutput -> f (Maybe TxOutput))
-> Maybe TxOutput -> f (Maybe TxOutput)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxInput "redeemer" Redeemer where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "redeemer"
-> (Redeemer -> f Redeemer) -> TxInput -> f TxInput
fieldOf Proxy# "redeemer"
_
    = ((Maybe Redeemer -> f (Maybe Redeemer)) -> TxInput -> f TxInput)
-> ((Redeemer -> f Redeemer)
    -> Maybe Redeemer -> f (Maybe Redeemer))
-> (Redeemer -> f Redeemer)
-> TxInput
-> f TxInput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInput -> Maybe Redeemer)
-> (TxInput -> Maybe Redeemer -> TxInput)
-> Lens TxInput TxInput (Maybe Redeemer) (Maybe Redeemer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInput -> Maybe Redeemer
_TxInput'redeemer (\ TxInput
x__ Maybe Redeemer
y__ -> TxInput
x__ {_TxInput'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 TxInput "maybe'redeemer" (Prelude.Maybe Redeemer) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'redeemer"
-> (Maybe Redeemer -> f (Maybe Redeemer)) -> TxInput -> f TxInput
fieldOf Proxy# "maybe'redeemer"
_
    = ((Maybe Redeemer -> f (Maybe Redeemer)) -> TxInput -> f TxInput)
-> ((Maybe Redeemer -> f (Maybe Redeemer))
    -> Maybe Redeemer -> f (Maybe Redeemer))
-> (Maybe Redeemer -> f (Maybe Redeemer))
-> TxInput
-> f TxInput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInput -> Maybe Redeemer)
-> (TxInput -> Maybe Redeemer -> TxInput)
-> Lens TxInput TxInput (Maybe Redeemer) (Maybe Redeemer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInput -> Maybe Redeemer
_TxInput'redeemer (\ TxInput
x__ Maybe Redeemer
y__ -> TxInput
x__ {_TxInput'redeemer = y__}))
        (Maybe Redeemer -> f (Maybe Redeemer))
-> Maybe Redeemer -> f (Maybe Redeemer)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxInput where
  messageName :: Proxy TxInput -> Text
messageName Proxy TxInput
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.TxInput"
  packedMessageDescriptor :: Proxy TxInput -> ByteString
packedMessageDescriptor Proxy TxInput
_
    = ByteString
"\n\
      \\aTxInput\DC2\ETB\n\
      \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\
      \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2>\n\
      \\tas_output\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\basOutput\DC2=\n\
      \\bredeemer\CAN\EOT \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer"
  packedFileDescriptor :: Proxy TxInput -> ByteString
packedFileDescriptor Proxy TxInput
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxInput)
fieldsByTag
    = let
        txHash__field_descriptor :: FieldDescriptor TxInput
txHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TxInput ByteString
-> FieldDescriptor TxInput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx_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 TxInput TxInput ByteString ByteString
-> FieldAccessor TxInput 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 @"txHash")) ::
              Data.ProtoLens.FieldDescriptor TxInput
        outputIndex__field_descriptor :: FieldDescriptor TxInput
outputIndex__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor TxInput Word32
-> FieldDescriptor TxInput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"output_index"
              (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 TxInput TxInput Word32 Word32
-> FieldAccessor TxInput 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 @"outputIndex")) ::
              Data.ProtoLens.FieldDescriptor TxInput
        asOutput__field_descriptor :: FieldDescriptor TxInput
asOutput__field_descriptor
          = String
-> FieldTypeDescriptor TxOutput
-> FieldAccessor TxInput TxOutput
-> FieldDescriptor TxInput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"as_output"
              (MessageOrGroup -> FieldTypeDescriptor TxOutput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxOutput)
              (Lens TxInput TxInput (Maybe TxOutput) (Maybe TxOutput)
-> FieldAccessor TxInput 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'asOutput")) ::
              Data.ProtoLens.FieldDescriptor TxInput
        redeemer__field_descriptor :: FieldDescriptor TxInput
redeemer__field_descriptor
          = String
-> FieldTypeDescriptor Redeemer
-> FieldAccessor TxInput Redeemer
-> FieldDescriptor TxInput
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 TxInput TxInput (Maybe Redeemer) (Maybe Redeemer)
-> FieldAccessor TxInput 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 TxInput
      in
        [(Tag, FieldDescriptor TxInput)]
-> Map Tag (FieldDescriptor TxInput)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxInput
txHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxInput
outputIndex__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TxInput
asOutput__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor TxInput
redeemer__field_descriptor)]
  unknownFields :: Lens' TxInput FieldSet
unknownFields
    = (TxInput -> FieldSet)
-> (TxInput -> FieldSet -> TxInput) -> Lens' TxInput FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxInput -> FieldSet
_TxInput'_unknownFields
        (\ TxInput
x__ FieldSet
y__ -> TxInput
x__ {_TxInput'_unknownFields = y__})
  defMessage :: TxInput
defMessage
    = TxInput'_constructor
        {_TxInput'txHash :: ByteString
_TxInput'txHash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxInput'outputIndex :: Word32
_TxInput'outputIndex = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxInput'asOutput :: Maybe TxOutput
_TxInput'asOutput = Maybe TxOutput
forall a. Maybe a
Prelude.Nothing,
         _TxInput'redeemer :: Maybe Redeemer
_TxInput'redeemer = Maybe Redeemer
forall a. Maybe a
Prelude.Nothing, _TxInput'_unknownFields :: FieldSet
_TxInput'_unknownFields = []}
  parseMessage :: Parser TxInput
parseMessage
    = let
        loop :: TxInput -> Data.ProtoLens.Encoding.Bytes.Parser TxInput
        loop :: TxInput -> Parser TxInput
loop TxInput
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TxInput -> Parser TxInput
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxInput TxInput FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxInput -> TxInput
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxInput FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxInput FieldSet
Setter TxInput TxInput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TxInput
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"tx_hash"
                                TxInput -> Parser TxInput
loop (Setter TxInput TxInput ByteString ByteString
-> ByteString -> TxInput -> TxInput
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 @"txHash") ByteString
y TxInput
x)
                        Word64
16
                          -> do Word32
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
"output_index"
                                TxInput -> Parser TxInput
loop
                                  (Setter TxInput TxInput Word32 Word32
-> Word32 -> TxInput -> TxInput
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 @"outputIndex") Word32
y TxInput
x)
                        Word64
26
                          -> do TxOutput
y <- Parser TxOutput -> String -> Parser TxOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxOutput -> Parser TxOutput
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxOutput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"as_output"
                                TxInput -> Parser TxInput
loop
                                  (Setter TxInput TxInput TxOutput TxOutput
-> TxOutput -> TxInput -> TxInput
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 @"asOutput") TxOutput
y TxInput
x)
                        Word64
34
                          -> do Redeemer
y <- Parser Redeemer -> String -> Parser Redeemer
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Redeemer -> Parser Redeemer
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Redeemer
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"redeemer"
                                TxInput -> Parser TxInput
loop
                                  (Setter TxInput TxInput Redeemer Redeemer
-> Redeemer -> TxInput -> TxInput
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 @"redeemer") Redeemer
y TxInput
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxInput -> Parser TxInput
loop
                                  (Setter TxInput TxInput FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxInput -> TxInput
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxInput FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxInput FieldSet
Setter TxInput TxInput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxInput
x)
      in
        Parser TxInput -> String -> Parser TxInput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TxInput -> Parser TxInput
loop TxInput
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TxInput"
  buildMessage :: TxInput -> Builder
buildMessage
    = \ TxInput
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v = FoldLike ByteString TxInput TxInput ByteString ByteString
-> TxInput -> 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 @"txHash") TxInput
_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 :: Word32
_v
                     = FoldLike Word32 TxInput TxInput Word32 Word32 -> TxInput -> 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 @"outputIndex") TxInput
_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
16)
                         ((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.<>)
                   (case
                        FoldLike
  (Maybe TxOutput) TxInput TxInput (Maybe TxOutput) (Maybe TxOutput)
-> TxInput -> 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'asOutput") TxInput
_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
26)
                             ((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 Redeemer) TxInput TxInput (Maybe Redeemer) (Maybe Redeemer)
-> TxInput -> 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") TxInput
_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
34)
                                ((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))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet TxInput TxInput FieldSet FieldSet
-> TxInput -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxInput TxInput FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxInput FieldSet
Data.ProtoLens.unknownFields TxInput
_x)))))
instance Control.DeepSeq.NFData TxInput where
  rnf :: TxInput -> ()
rnf
    = \ TxInput
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxInput -> FieldSet
_TxInput'_unknownFields TxInput
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxInput -> ByteString
_TxInput'txHash TxInput
x__)
                (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TxInput -> Word32
_TxInput'outputIndex TxInput
x__)
                   (Maybe TxOutput -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (TxInput -> Maybe TxOutput
_TxInput'asOutput TxInput
x__)
                      (Maybe Redeemer -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxInput -> Maybe Redeemer
_TxInput'redeemer TxInput
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.address' @:: Lens' TxOutput Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coin' @:: Lens' TxOutput Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.assets' @:: Lens' TxOutput [Multiasset]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'assets' @:: Lens' TxOutput (Data.Vector.Vector Multiasset)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.datum' @:: Lens' TxOutput PlutusData@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'datum' @:: Lens' TxOutput (Prelude.Maybe PlutusData)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.datumHash' @:: Lens' TxOutput Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.script' @:: Lens' TxOutput Script@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'script' @:: Lens' TxOutput (Prelude.Maybe Script)@ -}
data TxOutput
  = TxOutput'_constructor {TxOutput -> ByteString
_TxOutput'address :: !Data.ByteString.ByteString,
                           TxOutput -> Word64
_TxOutput'coin :: !Data.Word.Word64,
                           TxOutput -> Vector Multiasset
_TxOutput'assets :: !(Data.Vector.Vector Multiasset),
                           TxOutput -> Maybe PlutusData
_TxOutput'datum :: !(Prelude.Maybe PlutusData),
                           TxOutput -> ByteString
_TxOutput'datumHash :: !Data.ByteString.ByteString,
                           TxOutput -> Maybe Script
_TxOutput'script :: !(Prelude.Maybe Script),
                           TxOutput -> FieldSet
_TxOutput'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxOutput -> TxOutput -> Bool
(TxOutput -> TxOutput -> Bool)
-> (TxOutput -> TxOutput -> Bool) -> Eq TxOutput
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxOutput -> TxOutput -> Bool
== :: TxOutput -> TxOutput -> Bool
$c/= :: TxOutput -> TxOutput -> Bool
/= :: TxOutput -> TxOutput -> Bool
Prelude.Eq, Eq TxOutput
Eq TxOutput =>
(TxOutput -> TxOutput -> Ordering)
-> (TxOutput -> TxOutput -> Bool)
-> (TxOutput -> TxOutput -> Bool)
-> (TxOutput -> TxOutput -> Bool)
-> (TxOutput -> TxOutput -> Bool)
-> (TxOutput -> TxOutput -> TxOutput)
-> (TxOutput -> TxOutput -> TxOutput)
-> Ord TxOutput
TxOutput -> TxOutput -> Bool
TxOutput -> TxOutput -> Ordering
TxOutput -> TxOutput -> TxOutput
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 :: TxOutput -> TxOutput -> Ordering
compare :: TxOutput -> TxOutput -> Ordering
$c< :: TxOutput -> TxOutput -> Bool
< :: TxOutput -> TxOutput -> Bool
$c<= :: TxOutput -> TxOutput -> Bool
<= :: TxOutput -> TxOutput -> Bool
$c> :: TxOutput -> TxOutput -> Bool
> :: TxOutput -> TxOutput -> Bool
$c>= :: TxOutput -> TxOutput -> Bool
>= :: TxOutput -> TxOutput -> Bool
$cmax :: TxOutput -> TxOutput -> TxOutput
max :: TxOutput -> TxOutput -> TxOutput
$cmin :: TxOutput -> TxOutput -> TxOutput
min :: TxOutput -> TxOutput -> TxOutput
Prelude.Ord)
instance Prelude.Show TxOutput where
  showsPrec :: Int -> TxOutput -> ShowS
showsPrec Int
_ TxOutput
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxOutput -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxOutput
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxOutput "address" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "address"
-> (ByteString -> f ByteString) -> TxOutput -> f TxOutput
fieldOf Proxy# "address"
_
    = ((ByteString -> f ByteString) -> TxOutput -> f TxOutput)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> ByteString)
-> (TxOutput -> ByteString -> TxOutput)
-> Lens TxOutput TxOutput ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> ByteString
_TxOutput'address (\ TxOutput
x__ ByteString
y__ -> TxOutput
x__ {_TxOutput'address = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxOutput "coin" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "coin" -> (Word64 -> f Word64) -> TxOutput -> f TxOutput
fieldOf Proxy# "coin"
_
    = ((Word64 -> f Word64) -> TxOutput -> f TxOutput)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Word64)
-> (TxOutput -> Word64 -> TxOutput)
-> Lens TxOutput TxOutput Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Word64
_TxOutput'coin (\ TxOutput
x__ Word64
y__ -> TxOutput
x__ {_TxOutput'coin = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxOutput "assets" [Multiasset] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "assets"
-> ([Multiasset] -> f [Multiasset]) -> TxOutput -> f TxOutput
fieldOf Proxy# "assets"
_
    = ((Vector Multiasset -> f (Vector Multiasset))
 -> TxOutput -> f TxOutput)
-> (([Multiasset] -> f [Multiasset])
    -> Vector Multiasset -> f (Vector Multiasset))
-> ([Multiasset] -> f [Multiasset])
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Vector Multiasset)
-> (TxOutput -> Vector Multiasset -> TxOutput)
-> Lens TxOutput TxOutput (Vector Multiasset) (Vector Multiasset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Vector Multiasset
_TxOutput'assets (\ TxOutput
x__ Vector Multiasset
y__ -> TxOutput
x__ {_TxOutput'assets = y__}))
        ((Vector Multiasset -> [Multiasset])
-> (Vector Multiasset -> [Multiasset] -> Vector Multiasset)
-> Lens
     (Vector Multiasset) (Vector Multiasset) [Multiasset] [Multiasset]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Multiasset -> [Multiasset]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Multiasset
_ [Multiasset]
y__ -> [Multiasset] -> Vector Multiasset
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Multiasset]
y__))
instance Data.ProtoLens.Field.HasField TxOutput "vec'assets" (Data.Vector.Vector Multiasset) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'assets"
-> (Vector Multiasset -> f (Vector Multiasset))
-> TxOutput
-> f TxOutput
fieldOf Proxy# "vec'assets"
_
    = ((Vector Multiasset -> f (Vector Multiasset))
 -> TxOutput -> f TxOutput)
-> ((Vector Multiasset -> f (Vector Multiasset))
    -> Vector Multiasset -> f (Vector Multiasset))
-> (Vector Multiasset -> f (Vector Multiasset))
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Vector Multiasset)
-> (TxOutput -> Vector Multiasset -> TxOutput)
-> Lens TxOutput TxOutput (Vector Multiasset) (Vector Multiasset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Vector Multiasset
_TxOutput'assets (\ TxOutput
x__ Vector Multiasset
y__ -> TxOutput
x__ {_TxOutput'assets = y__}))
        (Vector Multiasset -> f (Vector Multiasset))
-> Vector Multiasset -> f (Vector Multiasset)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxOutput "datum" PlutusData where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "datum"
-> (PlutusData -> f PlutusData) -> TxOutput -> f TxOutput
fieldOf Proxy# "datum"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> TxOutput -> f TxOutput)
-> ((PlutusData -> f PlutusData)
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (PlutusData -> f PlutusData)
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Maybe PlutusData)
-> (TxOutput -> Maybe PlutusData -> TxOutput)
-> Lens TxOutput TxOutput (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Maybe PlutusData
_TxOutput'datum (\ TxOutput
x__ Maybe PlutusData
y__ -> TxOutput
x__ {_TxOutput'datum = 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 TxOutput "maybe'datum" (Prelude.Maybe PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'datum"
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> TxOutput
-> f TxOutput
fieldOf Proxy# "maybe'datum"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData))
 -> TxOutput -> f TxOutput)
-> ((Maybe PlutusData -> f (Maybe PlutusData))
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Maybe PlutusData)
-> (TxOutput -> Maybe PlutusData -> TxOutput)
-> Lens TxOutput TxOutput (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Maybe PlutusData
_TxOutput'datum (\ TxOutput
x__ Maybe PlutusData
y__ -> TxOutput
x__ {_TxOutput'datum = y__}))
        (Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe PlutusData -> f (Maybe PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxOutput "datumHash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "datumHash"
-> (ByteString -> f ByteString) -> TxOutput -> f TxOutput
fieldOf Proxy# "datumHash"
_
    = ((ByteString -> f ByteString) -> TxOutput -> f TxOutput)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> ByteString)
-> (TxOutput -> ByteString -> TxOutput)
-> Lens TxOutput TxOutput ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> ByteString
_TxOutput'datumHash (\ TxOutput
x__ ByteString
y__ -> TxOutput
x__ {_TxOutput'datumHash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxOutput "script" Script where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "script" -> (Script -> f Script) -> TxOutput -> f TxOutput
fieldOf Proxy# "script"
_
    = ((Maybe Script -> f (Maybe Script)) -> TxOutput -> f TxOutput)
-> ((Script -> f Script) -> Maybe Script -> f (Maybe Script))
-> (Script -> f Script)
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Maybe Script)
-> (TxOutput -> Maybe Script -> TxOutput)
-> Lens TxOutput TxOutput (Maybe Script) (Maybe Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Maybe Script
_TxOutput'script (\ TxOutput
x__ Maybe Script
y__ -> TxOutput
x__ {_TxOutput'script = y__}))
        (Script -> Lens' (Maybe Script) Script
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Script
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxOutput "maybe'script" (Prelude.Maybe Script) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'script"
-> (Maybe Script -> f (Maybe Script)) -> TxOutput -> f TxOutput
fieldOf Proxy# "maybe'script"
_
    = ((Maybe Script -> f (Maybe Script)) -> TxOutput -> f TxOutput)
-> ((Maybe Script -> f (Maybe Script))
    -> Maybe Script -> f (Maybe Script))
-> (Maybe Script -> f (Maybe Script))
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Maybe Script)
-> (TxOutput -> Maybe Script -> TxOutput)
-> Lens TxOutput TxOutput (Maybe Script) (Maybe Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Maybe Script
_TxOutput'script (\ TxOutput
x__ Maybe Script
y__ -> TxOutput
x__ {_TxOutput'script = y__}))
        (Maybe Script -> f (Maybe Script))
-> Maybe Script -> f (Maybe Script)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxOutput where
  messageName :: Proxy TxOutput -> Text
messageName Proxy TxOutput
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.TxOutput"
  packedMessageDescriptor :: Proxy TxOutput -> ByteString
packedMessageDescriptor Proxy TxOutput
_
    = ByteString
"\n\
      \\bTxOutput\DC2\CAN\n\
      \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC2\DC2\n\
      \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2;\n\
      \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\ACKassets\DC29\n\
      \\ENQdatum\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum\DC2\GS\n\
      \\n\
      \datum_hash\CAN\ENQ \SOH(\fR\tdatumHash\DC27\n\
      \\ACKscript\CAN\ACK \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript"
  packedFileDescriptor :: Proxy TxOutput -> ByteString
packedFileDescriptor Proxy TxOutput
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxOutput)
fieldsByTag
    = let
        address__field_descriptor :: FieldDescriptor TxOutput
address__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TxOutput ByteString
-> FieldDescriptor TxOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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)
              (WireDefault ByteString
-> Lens TxOutput TxOutput ByteString ByteString
-> FieldAccessor TxOutput 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 @"address")) ::
              Data.ProtoLens.FieldDescriptor TxOutput
        coin__field_descriptor :: FieldDescriptor TxOutput
coin__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor TxOutput Word64
-> FieldDescriptor TxOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"coin"
              (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 TxOutput TxOutput Word64 Word64
-> FieldAccessor TxOutput 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 @"coin")) ::
              Data.ProtoLens.FieldDescriptor TxOutput
        assets__field_descriptor :: FieldDescriptor TxOutput
assets__field_descriptor
          = String
-> FieldTypeDescriptor Multiasset
-> FieldAccessor TxOutput Multiasset
-> FieldDescriptor TxOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"assets"
              (MessageOrGroup -> FieldTypeDescriptor Multiasset
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Multiasset)
              (Packing
-> Lens' TxOutput [Multiasset] -> FieldAccessor TxOutput Multiasset
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 @"assets")) ::
              Data.ProtoLens.FieldDescriptor TxOutput
        datum__field_descriptor :: FieldDescriptor TxOutput
datum__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor TxOutput PlutusData
-> FieldDescriptor TxOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"datum"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Lens TxOutput TxOutput (Maybe PlutusData) (Maybe PlutusData)
-> FieldAccessor TxOutput 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'datum")) ::
              Data.ProtoLens.FieldDescriptor TxOutput
        datumHash__field_descriptor :: FieldDescriptor TxOutput
datumHash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TxOutput ByteString
-> FieldDescriptor TxOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"datum_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 TxOutput TxOutput ByteString ByteString
-> FieldAccessor TxOutput 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 @"datumHash")) ::
              Data.ProtoLens.FieldDescriptor TxOutput
        script__field_descriptor :: FieldDescriptor TxOutput
script__field_descriptor
          = String
-> FieldTypeDescriptor Script
-> FieldAccessor TxOutput Script
-> FieldDescriptor TxOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script"
              (MessageOrGroup -> FieldTypeDescriptor Script
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Script)
              (Lens TxOutput TxOutput (Maybe Script) (Maybe Script)
-> FieldAccessor TxOutput Script
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'script")) ::
              Data.ProtoLens.FieldDescriptor TxOutput
      in
        [(Tag, FieldDescriptor TxOutput)]
-> Map Tag (FieldDescriptor TxOutput)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxOutput
address__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxOutput
coin__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TxOutput
assets__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor TxOutput
datum__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor TxOutput
datumHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor TxOutput
script__field_descriptor)]
  unknownFields :: Lens' TxOutput FieldSet
unknownFields
    = (TxOutput -> FieldSet)
-> (TxOutput -> FieldSet -> TxOutput) -> Lens' TxOutput FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxOutput -> FieldSet
_TxOutput'_unknownFields
        (\ TxOutput
x__ FieldSet
y__ -> TxOutput
x__ {_TxOutput'_unknownFields = y__})
  defMessage :: TxOutput
defMessage
    = TxOutput'_constructor
        {_TxOutput'address :: ByteString
_TxOutput'address = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxOutput'coin :: Word64
_TxOutput'coin = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxOutput'assets :: Vector Multiasset
_TxOutput'assets = Vector Multiasset
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxOutput'datum :: Maybe PlutusData
_TxOutput'datum = Maybe PlutusData
forall a. Maybe a
Prelude.Nothing,
         _TxOutput'datumHash :: ByteString
_TxOutput'datumHash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxOutput'script :: Maybe Script
_TxOutput'script = Maybe Script
forall a. Maybe a
Prelude.Nothing, _TxOutput'_unknownFields :: FieldSet
_TxOutput'_unknownFields = []}
  parseMessage :: Parser TxOutput
parseMessage
    = let
        loop ::
          TxOutput
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Multiasset
             -> Data.ProtoLens.Encoding.Bytes.Parser TxOutput
        loop :: TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop TxOutput
x Growing Vector RealWorld Multiasset
mutable'assets
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Multiasset
frozen'assets <- IO (Vector Multiasset) -> Parser (Vector Multiasset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) Multiasset -> IO (Vector Multiasset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld Multiasset
Growing Vector (PrimState IO) Multiasset
mutable'assets)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TxOutput -> Parser TxOutput
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxOutput TxOutput FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxOutput -> TxOutput
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxOutput FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxOutput FieldSet
Setter TxOutput TxOutput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter TxOutput TxOutput (Vector Multiasset) (Vector Multiasset)
-> Vector Multiasset -> TxOutput -> TxOutput
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 @"vec'assets") Vector Multiasset
frozen'assets TxOutput
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"address"
                                TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop
                                  (Setter TxOutput TxOutput ByteString ByteString
-> ByteString -> TxOutput -> TxOutput
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 @"address") ByteString
y TxOutput
x)
                                  Growing Vector RealWorld Multiasset
mutable'assets
                        Word64
16
                          -> do Word64
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
"coin"
                                TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop
                                  (Setter TxOutput TxOutput Word64 Word64
-> Word64 -> TxOutput -> TxOutput
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 @"coin") Word64
y TxOutput
x)
                                  Growing Vector RealWorld Multiasset
mutable'assets
                        Word64
26
                          -> do !Multiasset
y <- Parser Multiasset -> String -> Parser Multiasset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Multiasset -> Parser Multiasset
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Multiasset
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"assets"
                                Growing Vector RealWorld Multiasset
v <- IO (Growing Vector RealWorld Multiasset)
-> Parser (Growing Vector RealWorld Multiasset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Multiasset
-> Multiasset -> IO (Growing Vector (PrimState IO) Multiasset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Multiasset
Growing Vector (PrimState IO) Multiasset
mutable'assets Multiasset
y)
                                TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop TxOutput
x Growing Vector RealWorld Multiasset
v
                        Word64
34
                          -> do PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"datum"
                                TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop
                                  (Setter TxOutput TxOutput PlutusData PlutusData
-> PlutusData -> TxOutput -> TxOutput
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 @"datum") PlutusData
y TxOutput
x)
                                  Growing Vector RealWorld Multiasset
mutable'assets
                        Word64
42
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"datum_hash"
                                TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop
                                  (Setter TxOutput TxOutput ByteString ByteString
-> ByteString -> TxOutput -> TxOutput
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 @"datumHash") ByteString
y TxOutput
x)
                                  Growing Vector RealWorld Multiasset
mutable'assets
                        Word64
50
                          -> do Script
y <- Parser Script -> String -> Parser Script
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser Script -> Parser Script
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser Script
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"script"
                                TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop
                                  (Setter TxOutput TxOutput Script Script
-> Script -> TxOutput -> TxOutput
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 @"script") Script
y TxOutput
x)
                                  Growing Vector RealWorld Multiasset
mutable'assets
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop
                                  (Setter TxOutput TxOutput FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxOutput -> TxOutput
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxOutput FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxOutput FieldSet
Setter TxOutput TxOutput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxOutput
x)
                                  Growing Vector RealWorld Multiasset
mutable'assets
      in
        Parser TxOutput -> String -> Parser TxOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Multiasset
mutable'assets <- IO (Growing Vector RealWorld Multiasset)
-> Parser (Growing Vector RealWorld Multiasset)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Multiasset)
IO (Growing Vector (PrimState IO) Multiasset)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              TxOutput -> Growing Vector RealWorld Multiasset -> Parser TxOutput
loop TxOutput
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Multiasset
mutable'assets)
          String
"TxOutput"
  buildMessage :: TxOutput -> Builder
buildMessage
    = \ TxOutput
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v = FoldLike ByteString TxOutput TxOutput ByteString ByteString
-> TxOutput -> 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 @"address") TxOutput
_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 :: Word64
_v = FoldLike Word64 TxOutput TxOutput Word64 Word64
-> TxOutput -> 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 @"coin") TxOutput
_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.<>)
                   ((Multiasset -> Builder) -> Vector Multiasset -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ Multiasset
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (Multiasset -> ByteString) -> Multiasset -> 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))
                                 Multiasset -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Multiasset
_v))
                      (FoldLike
  (Vector Multiasset)
  TxOutput
  TxOutput
  (Vector Multiasset)
  (Vector Multiasset)
-> TxOutput -> Vector Multiasset
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'assets") TxOutput
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe PlutusData)
  TxOutput
  TxOutput
  (Maybe PlutusData)
  (Maybe PlutusData)
-> TxOutput -> 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'datum") TxOutput
_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
34)
                                ((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.<>)
                         (let
                            _v :: ByteString
_v = FoldLike ByteString TxOutput TxOutput ByteString ByteString
-> TxOutput -> 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 @"datumHash") TxOutput
_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
42)
                                  ((\ 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 Script) TxOutput TxOutput (Maybe Script) (Maybe Script)
-> TxOutput -> Maybe 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 @"maybe'script") TxOutput
_x
                             of
                               Maybe Script
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just Script
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                      ((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))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike FieldSet TxOutput TxOutput FieldSet FieldSet
-> TxOutput -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxOutput TxOutput FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxOutput FieldSet
Data.ProtoLens.unknownFields TxOutput
_x)))))))
instance Control.DeepSeq.NFData TxOutput where
  rnf :: TxOutput -> ()
rnf
    = \ TxOutput
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxOutput -> FieldSet
_TxOutput'_unknownFields TxOutput
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxOutput -> ByteString
_TxOutput'address TxOutput
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TxOutput -> Word64
_TxOutput'coin TxOutput
x__)
                   (Vector Multiasset -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (TxOutput -> Vector Multiasset
_TxOutput'assets TxOutput
x__)
                      (Maybe PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (TxOutput -> Maybe PlutusData
_TxOutput'datum TxOutput
x__)
                         (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (TxOutput -> ByteString
_TxOutput'datumHash TxOutput
x__)
                            (Maybe Script -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxOutput -> Maybe Script
_TxOutput'script TxOutput
x__) ()))))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.address' @:: Lens' TxOutputPattern AddressPattern@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'address' @:: Lens' TxOutputPattern (Prelude.Maybe AddressPattern)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.asset' @:: Lens' TxOutputPattern AssetPattern@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'asset' @:: Lens' TxOutputPattern (Prelude.Maybe AssetPattern)@ -}
data TxOutputPattern
  = TxOutputPattern'_constructor {TxOutputPattern -> Maybe AddressPattern
_TxOutputPattern'address :: !(Prelude.Maybe AddressPattern),
                                  TxOutputPattern -> Maybe AssetPattern
_TxOutputPattern'asset :: !(Prelude.Maybe AssetPattern),
                                  TxOutputPattern -> FieldSet
_TxOutputPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxOutputPattern -> TxOutputPattern -> Bool
(TxOutputPattern -> TxOutputPattern -> Bool)
-> (TxOutputPattern -> TxOutputPattern -> Bool)
-> Eq TxOutputPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxOutputPattern -> TxOutputPattern -> Bool
== :: TxOutputPattern -> TxOutputPattern -> Bool
$c/= :: TxOutputPattern -> TxOutputPattern -> Bool
/= :: TxOutputPattern -> TxOutputPattern -> Bool
Prelude.Eq, Eq TxOutputPattern
Eq TxOutputPattern =>
(TxOutputPattern -> TxOutputPattern -> Ordering)
-> (TxOutputPattern -> TxOutputPattern -> Bool)
-> (TxOutputPattern -> TxOutputPattern -> Bool)
-> (TxOutputPattern -> TxOutputPattern -> Bool)
-> (TxOutputPattern -> TxOutputPattern -> Bool)
-> (TxOutputPattern -> TxOutputPattern -> TxOutputPattern)
-> (TxOutputPattern -> TxOutputPattern -> TxOutputPattern)
-> Ord TxOutputPattern
TxOutputPattern -> TxOutputPattern -> Bool
TxOutputPattern -> TxOutputPattern -> Ordering
TxOutputPattern -> TxOutputPattern -> TxOutputPattern
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 :: TxOutputPattern -> TxOutputPattern -> Ordering
compare :: TxOutputPattern -> TxOutputPattern -> Ordering
$c< :: TxOutputPattern -> TxOutputPattern -> Bool
< :: TxOutputPattern -> TxOutputPattern -> Bool
$c<= :: TxOutputPattern -> TxOutputPattern -> Bool
<= :: TxOutputPattern -> TxOutputPattern -> Bool
$c> :: TxOutputPattern -> TxOutputPattern -> Bool
> :: TxOutputPattern -> TxOutputPattern -> Bool
$c>= :: TxOutputPattern -> TxOutputPattern -> Bool
>= :: TxOutputPattern -> TxOutputPattern -> Bool
$cmax :: TxOutputPattern -> TxOutputPattern -> TxOutputPattern
max :: TxOutputPattern -> TxOutputPattern -> TxOutputPattern
$cmin :: TxOutputPattern -> TxOutputPattern -> TxOutputPattern
min :: TxOutputPattern -> TxOutputPattern -> TxOutputPattern
Prelude.Ord)
instance Prelude.Show TxOutputPattern where
  showsPrec :: Int -> TxOutputPattern -> ShowS
showsPrec Int
_ TxOutputPattern
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxOutputPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxOutputPattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxOutputPattern "address" AddressPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "address"
-> (AddressPattern -> f AddressPattern)
-> TxOutputPattern
-> f TxOutputPattern
fieldOf Proxy# "address"
_
    = ((Maybe AddressPattern -> f (Maybe AddressPattern))
 -> TxOutputPattern -> f TxOutputPattern)
-> ((AddressPattern -> f AddressPattern)
    -> Maybe AddressPattern -> f (Maybe AddressPattern))
-> (AddressPattern -> f AddressPattern)
-> TxOutputPattern
-> f TxOutputPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutputPattern -> Maybe AddressPattern)
-> (TxOutputPattern -> Maybe AddressPattern -> TxOutputPattern)
-> Lens
     TxOutputPattern
     TxOutputPattern
     (Maybe AddressPattern)
     (Maybe AddressPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutputPattern -> Maybe AddressPattern
_TxOutputPattern'address
           (\ TxOutputPattern
x__ Maybe AddressPattern
y__ -> TxOutputPattern
x__ {_TxOutputPattern'address = y__}))
        (AddressPattern -> Lens' (Maybe AddressPattern) AddressPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AddressPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'address" (Prelude.Maybe AddressPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'address"
-> (Maybe AddressPattern -> f (Maybe AddressPattern))
-> TxOutputPattern
-> f TxOutputPattern
fieldOf Proxy# "maybe'address"
_
    = ((Maybe AddressPattern -> f (Maybe AddressPattern))
 -> TxOutputPattern -> f TxOutputPattern)
-> ((Maybe AddressPattern -> f (Maybe AddressPattern))
    -> Maybe AddressPattern -> f (Maybe AddressPattern))
-> (Maybe AddressPattern -> f (Maybe AddressPattern))
-> TxOutputPattern
-> f TxOutputPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutputPattern -> Maybe AddressPattern)
-> (TxOutputPattern -> Maybe AddressPattern -> TxOutputPattern)
-> Lens
     TxOutputPattern
     TxOutputPattern
     (Maybe AddressPattern)
     (Maybe AddressPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutputPattern -> Maybe AddressPattern
_TxOutputPattern'address
           (\ TxOutputPattern
x__ Maybe AddressPattern
y__ -> TxOutputPattern
x__ {_TxOutputPattern'address = y__}))
        (Maybe AddressPattern -> f (Maybe AddressPattern))
-> Maybe AddressPattern -> f (Maybe AddressPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxOutputPattern "asset" AssetPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "asset"
-> (AssetPattern -> f AssetPattern)
-> TxOutputPattern
-> f TxOutputPattern
fieldOf Proxy# "asset"
_
    = ((Maybe AssetPattern -> f (Maybe AssetPattern))
 -> TxOutputPattern -> f TxOutputPattern)
-> ((AssetPattern -> f AssetPattern)
    -> Maybe AssetPattern -> f (Maybe AssetPattern))
-> (AssetPattern -> f AssetPattern)
-> TxOutputPattern
-> f TxOutputPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutputPattern -> Maybe AssetPattern)
-> (TxOutputPattern -> Maybe AssetPattern -> TxOutputPattern)
-> Lens
     TxOutputPattern
     TxOutputPattern
     (Maybe AssetPattern)
     (Maybe AssetPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutputPattern -> Maybe AssetPattern
_TxOutputPattern'asset
           (\ TxOutputPattern
x__ Maybe AssetPattern
y__ -> TxOutputPattern
x__ {_TxOutputPattern'asset = y__}))
        (AssetPattern -> Lens' (Maybe AssetPattern) AssetPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AssetPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'asset" (Prelude.Maybe AssetPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'asset"
-> (Maybe AssetPattern -> f (Maybe AssetPattern))
-> TxOutputPattern
-> f TxOutputPattern
fieldOf Proxy# "maybe'asset"
_
    = ((Maybe AssetPattern -> f (Maybe AssetPattern))
 -> TxOutputPattern -> f TxOutputPattern)
-> ((Maybe AssetPattern -> f (Maybe AssetPattern))
    -> Maybe AssetPattern -> f (Maybe AssetPattern))
-> (Maybe AssetPattern -> f (Maybe AssetPattern))
-> TxOutputPattern
-> f TxOutputPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutputPattern -> Maybe AssetPattern)
-> (TxOutputPattern -> Maybe AssetPattern -> TxOutputPattern)
-> Lens
     TxOutputPattern
     TxOutputPattern
     (Maybe AssetPattern)
     (Maybe AssetPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutputPattern -> Maybe AssetPattern
_TxOutputPattern'asset
           (\ TxOutputPattern
x__ Maybe AssetPattern
y__ -> TxOutputPattern
x__ {_TxOutputPattern'asset = y__}))
        (Maybe AssetPattern -> f (Maybe AssetPattern))
-> Maybe AssetPattern -> f (Maybe AssetPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxOutputPattern where
  messageName :: Proxy TxOutputPattern -> Text
messageName Proxy TxOutputPattern
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.TxOutputPattern"
  packedMessageDescriptor :: Proxy TxOutputPattern -> ByteString
packedMessageDescriptor Proxy TxOutputPattern
_
    = ByteString
"\n\
      \\SITxOutputPattern\DC2A\n\
      \\aaddress\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\aaddress\DC2;\n\
      \\ENQasset\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\ENQasset"
  packedFileDescriptor :: Proxy TxOutputPattern -> ByteString
packedFileDescriptor Proxy TxOutputPattern
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxOutputPattern)
fieldsByTag
    = let
        address__field_descriptor :: FieldDescriptor TxOutputPattern
address__field_descriptor
          = String
-> FieldTypeDescriptor AddressPattern
-> FieldAccessor TxOutputPattern AddressPattern
-> FieldDescriptor TxOutputPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"address"
              (MessageOrGroup -> FieldTypeDescriptor AddressPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AddressPattern)
              (Lens
  TxOutputPattern
  TxOutputPattern
  (Maybe AddressPattern)
  (Maybe AddressPattern)
-> FieldAccessor TxOutputPattern AddressPattern
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'address")) ::
              Data.ProtoLens.FieldDescriptor TxOutputPattern
        asset__field_descriptor :: FieldDescriptor TxOutputPattern
asset__field_descriptor
          = String
-> FieldTypeDescriptor AssetPattern
-> FieldAccessor TxOutputPattern AssetPattern
-> FieldDescriptor TxOutputPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"asset"
              (MessageOrGroup -> FieldTypeDescriptor AssetPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)
              (Lens
  TxOutputPattern
  TxOutputPattern
  (Maybe AssetPattern)
  (Maybe AssetPattern)
-> FieldAccessor TxOutputPattern AssetPattern
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'asset")) ::
              Data.ProtoLens.FieldDescriptor TxOutputPattern
      in
        [(Tag, FieldDescriptor TxOutputPattern)]
-> Map Tag (FieldDescriptor TxOutputPattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxOutputPattern
address__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxOutputPattern
asset__field_descriptor)]
  unknownFields :: Lens' TxOutputPattern FieldSet
unknownFields
    = (TxOutputPattern -> FieldSet)
-> (TxOutputPattern -> FieldSet -> TxOutputPattern)
-> Lens' TxOutputPattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxOutputPattern -> FieldSet
_TxOutputPattern'_unknownFields
        (\ TxOutputPattern
x__ FieldSet
y__ -> TxOutputPattern
x__ {_TxOutputPattern'_unknownFields = y__})
  defMessage :: TxOutputPattern
defMessage
    = TxOutputPattern'_constructor
        {_TxOutputPattern'address :: Maybe AddressPattern
_TxOutputPattern'address = Maybe AddressPattern
forall a. Maybe a
Prelude.Nothing,
         _TxOutputPattern'asset :: Maybe AssetPattern
_TxOutputPattern'asset = Maybe AssetPattern
forall a. Maybe a
Prelude.Nothing,
         _TxOutputPattern'_unknownFields :: FieldSet
_TxOutputPattern'_unknownFields = []}
  parseMessage :: Parser TxOutputPattern
parseMessage
    = let
        loop ::
          TxOutputPattern
          -> Data.ProtoLens.Encoding.Bytes.Parser TxOutputPattern
        loop :: TxOutputPattern -> Parser TxOutputPattern
loop TxOutputPattern
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TxOutputPattern -> Parser TxOutputPattern
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxOutputPattern TxOutputPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxOutputPattern -> TxOutputPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxOutputPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxOutputPattern FieldSet
Setter TxOutputPattern TxOutputPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TxOutputPattern
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do AddressPattern
y <- Parser AddressPattern -> String -> Parser AddressPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AddressPattern -> Parser AddressPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AddressPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"address"
                                TxOutputPattern -> Parser TxOutputPattern
loop (Setter
  TxOutputPattern TxOutputPattern AddressPattern AddressPattern
-> AddressPattern -> TxOutputPattern -> TxOutputPattern
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 @"address") AddressPattern
y TxOutputPattern
x)
                        Word64
18
                          -> do AssetPattern
y <- Parser AssetPattern -> String -> Parser AssetPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AssetPattern -> Parser AssetPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AssetPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"asset"
                                TxOutputPattern -> Parser TxOutputPattern
loop (Setter TxOutputPattern TxOutputPattern AssetPattern AssetPattern
-> AssetPattern -> TxOutputPattern -> TxOutputPattern
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 @"asset") AssetPattern
y TxOutputPattern
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxOutputPattern -> Parser TxOutputPattern
loop
                                  (Setter TxOutputPattern TxOutputPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxOutputPattern -> TxOutputPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxOutputPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxOutputPattern FieldSet
Setter TxOutputPattern TxOutputPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxOutputPattern
x)
      in
        Parser TxOutputPattern -> String -> Parser TxOutputPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TxOutputPattern -> Parser TxOutputPattern
loop TxOutputPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TxOutputPattern"
  buildMessage :: TxOutputPattern -> Builder
buildMessage
    = \ TxOutputPattern
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe AddressPattern)
  TxOutputPattern
  TxOutputPattern
  (Maybe AddressPattern)
  (Maybe AddressPattern)
-> TxOutputPattern -> Maybe AddressPattern
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'address") TxOutputPattern
_x
              of
                Maybe AddressPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just AddressPattern
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (AddressPattern -> ByteString) -> AddressPattern -> 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))
                          AddressPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AddressPattern
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe AssetPattern)
  TxOutputPattern
  TxOutputPattern
  (Maybe AssetPattern)
  (Maybe AssetPattern)
-> TxOutputPattern -> Maybe AssetPattern
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'asset") TxOutputPattern
_x
                 of
                   Maybe AssetPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just AssetPattern
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (AssetPattern -> ByteString) -> AssetPattern -> 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))
                             AssetPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AssetPattern
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet TxOutputPattern TxOutputPattern FieldSet FieldSet
-> TxOutputPattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxOutputPattern TxOutputPattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxOutputPattern FieldSet
Data.ProtoLens.unknownFields TxOutputPattern
_x)))
instance Control.DeepSeq.NFData TxOutputPattern where
  rnf :: TxOutputPattern -> ()
rnf
    = \ TxOutputPattern
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxOutputPattern -> FieldSet
_TxOutputPattern'_unknownFields TxOutputPattern
x__)
             (Maybe AddressPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxOutputPattern -> Maybe AddressPattern
_TxOutputPattern'address TxOutputPattern
x__)
                (Maybe AssetPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxOutputPattern -> Maybe AssetPattern
_TxOutputPattern'asset TxOutputPattern
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.consumes' @:: Lens' TxPattern TxOutputPattern@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'consumes' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.produces' @:: Lens' TxPattern TxOutputPattern@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'produces' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hasAddress' @:: Lens' TxPattern AddressPattern@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'hasAddress' @:: Lens' TxPattern (Prelude.Maybe AddressPattern)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.movesAsset' @:: Lens' TxPattern AssetPattern@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'movesAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mintsAsset' @:: Lens' TxPattern AssetPattern@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mintsAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@ -}
data TxPattern
  = TxPattern'_constructor {TxPattern -> Maybe TxOutputPattern
_TxPattern'consumes :: !(Prelude.Maybe TxOutputPattern),
                            TxPattern -> Maybe TxOutputPattern
_TxPattern'produces :: !(Prelude.Maybe TxOutputPattern),
                            TxPattern -> Maybe AddressPattern
_TxPattern'hasAddress :: !(Prelude.Maybe AddressPattern),
                            TxPattern -> Maybe AssetPattern
_TxPattern'movesAsset :: !(Prelude.Maybe AssetPattern),
                            TxPattern -> Maybe AssetPattern
_TxPattern'mintsAsset :: !(Prelude.Maybe AssetPattern),
                            TxPattern -> FieldSet
_TxPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxPattern -> TxPattern -> Bool
(TxPattern -> TxPattern -> Bool)
-> (TxPattern -> TxPattern -> Bool) -> Eq TxPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxPattern -> TxPattern -> Bool
== :: TxPattern -> TxPattern -> Bool
$c/= :: TxPattern -> TxPattern -> Bool
/= :: TxPattern -> TxPattern -> Bool
Prelude.Eq, Eq TxPattern
Eq TxPattern =>
(TxPattern -> TxPattern -> Ordering)
-> (TxPattern -> TxPattern -> Bool)
-> (TxPattern -> TxPattern -> Bool)
-> (TxPattern -> TxPattern -> Bool)
-> (TxPattern -> TxPattern -> Bool)
-> (TxPattern -> TxPattern -> TxPattern)
-> (TxPattern -> TxPattern -> TxPattern)
-> Ord TxPattern
TxPattern -> TxPattern -> Bool
TxPattern -> TxPattern -> Ordering
TxPattern -> TxPattern -> TxPattern
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 :: TxPattern -> TxPattern -> Ordering
compare :: TxPattern -> TxPattern -> Ordering
$c< :: TxPattern -> TxPattern -> Bool
< :: TxPattern -> TxPattern -> Bool
$c<= :: TxPattern -> TxPattern -> Bool
<= :: TxPattern -> TxPattern -> Bool
$c> :: TxPattern -> TxPattern -> Bool
> :: TxPattern -> TxPattern -> Bool
$c>= :: TxPattern -> TxPattern -> Bool
>= :: TxPattern -> TxPattern -> Bool
$cmax :: TxPattern -> TxPattern -> TxPattern
max :: TxPattern -> TxPattern -> TxPattern
$cmin :: TxPattern -> TxPattern -> TxPattern
min :: TxPattern -> TxPattern -> TxPattern
Prelude.Ord)
instance Prelude.Show TxPattern where
  showsPrec :: Int -> TxPattern -> ShowS
showsPrec Int
_ TxPattern
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxPattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxPattern "consumes" TxOutputPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "consumes"
-> (TxOutputPattern -> f TxOutputPattern)
-> TxPattern
-> f TxPattern
fieldOf Proxy# "consumes"
_
    = ((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
 -> TxPattern -> f TxPattern)
-> ((TxOutputPattern -> f TxOutputPattern)
    -> Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> (TxOutputPattern -> f TxOutputPattern)
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe TxOutputPattern)
-> (TxPattern -> Maybe TxOutputPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe TxOutputPattern) (Maybe TxOutputPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe TxOutputPattern
_TxPattern'consumes (\ TxPattern
x__ Maybe TxOutputPattern
y__ -> TxPattern
x__ {_TxPattern'consumes = y__}))
        (TxOutputPattern -> Lens' (Maybe TxOutputPattern) TxOutputPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxOutputPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxPattern "maybe'consumes" (Prelude.Maybe TxOutputPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'consumes"
-> (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> TxPattern
-> f TxPattern
fieldOf Proxy# "maybe'consumes"
_
    = ((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
 -> TxPattern -> f TxPattern)
-> ((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
    -> Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe TxOutputPattern)
-> (TxPattern -> Maybe TxOutputPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe TxOutputPattern) (Maybe TxOutputPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe TxOutputPattern
_TxPattern'consumes (\ TxPattern
x__ Maybe TxOutputPattern
y__ -> TxPattern
x__ {_TxPattern'consumes = y__}))
        (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> Maybe TxOutputPattern -> f (Maybe TxOutputPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxPattern "produces" TxOutputPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "produces"
-> (TxOutputPattern -> f TxOutputPattern)
-> TxPattern
-> f TxPattern
fieldOf Proxy# "produces"
_
    = ((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
 -> TxPattern -> f TxPattern)
-> ((TxOutputPattern -> f TxOutputPattern)
    -> Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> (TxOutputPattern -> f TxOutputPattern)
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe TxOutputPattern)
-> (TxPattern -> Maybe TxOutputPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe TxOutputPattern) (Maybe TxOutputPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe TxOutputPattern
_TxPattern'produces (\ TxPattern
x__ Maybe TxOutputPattern
y__ -> TxPattern
x__ {_TxPattern'produces = y__}))
        (TxOutputPattern -> Lens' (Maybe TxOutputPattern) TxOutputPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxOutputPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxPattern "maybe'produces" (Prelude.Maybe TxOutputPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'produces"
-> (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> TxPattern
-> f TxPattern
fieldOf Proxy# "maybe'produces"
_
    = ((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
 -> TxPattern -> f TxPattern)
-> ((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
    -> Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe TxOutputPattern)
-> (TxPattern -> Maybe TxOutputPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe TxOutputPattern) (Maybe TxOutputPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe TxOutputPattern
_TxPattern'produces (\ TxPattern
x__ Maybe TxOutputPattern
y__ -> TxPattern
x__ {_TxPattern'produces = y__}))
        (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> Maybe TxOutputPattern -> f (Maybe TxOutputPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxPattern "hasAddress" AddressPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hasAddress"
-> (AddressPattern -> f AddressPattern) -> TxPattern -> f TxPattern
fieldOf Proxy# "hasAddress"
_
    = ((Maybe AddressPattern -> f (Maybe AddressPattern))
 -> TxPattern -> f TxPattern)
-> ((AddressPattern -> f AddressPattern)
    -> Maybe AddressPattern -> f (Maybe AddressPattern))
-> (AddressPattern -> f AddressPattern)
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe AddressPattern)
-> (TxPattern -> Maybe AddressPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe AddressPattern) (Maybe AddressPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe AddressPattern
_TxPattern'hasAddress
           (\ TxPattern
x__ Maybe AddressPattern
y__ -> TxPattern
x__ {_TxPattern'hasAddress = y__}))
        (AddressPattern -> Lens' (Maybe AddressPattern) AddressPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AddressPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxPattern "maybe'hasAddress" (Prelude.Maybe AddressPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'hasAddress"
-> (Maybe AddressPattern -> f (Maybe AddressPattern))
-> TxPattern
-> f TxPattern
fieldOf Proxy# "maybe'hasAddress"
_
    = ((Maybe AddressPattern -> f (Maybe AddressPattern))
 -> TxPattern -> f TxPattern)
-> ((Maybe AddressPattern -> f (Maybe AddressPattern))
    -> Maybe AddressPattern -> f (Maybe AddressPattern))
-> (Maybe AddressPattern -> f (Maybe AddressPattern))
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe AddressPattern)
-> (TxPattern -> Maybe AddressPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe AddressPattern) (Maybe AddressPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe AddressPattern
_TxPattern'hasAddress
           (\ TxPattern
x__ Maybe AddressPattern
y__ -> TxPattern
x__ {_TxPattern'hasAddress = y__}))
        (Maybe AddressPattern -> f (Maybe AddressPattern))
-> Maybe AddressPattern -> f (Maybe AddressPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxPattern "movesAsset" AssetPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "movesAsset"
-> (AssetPattern -> f AssetPattern) -> TxPattern -> f TxPattern
fieldOf Proxy# "movesAsset"
_
    = ((Maybe AssetPattern -> f (Maybe AssetPattern))
 -> TxPattern -> f TxPattern)
-> ((AssetPattern -> f AssetPattern)
    -> Maybe AssetPattern -> f (Maybe AssetPattern))
-> (AssetPattern -> f AssetPattern)
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe AssetPattern)
-> (TxPattern -> Maybe AssetPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe AssetPattern) (Maybe AssetPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe AssetPattern
_TxPattern'movesAsset
           (\ TxPattern
x__ Maybe AssetPattern
y__ -> TxPattern
x__ {_TxPattern'movesAsset = y__}))
        (AssetPattern -> Lens' (Maybe AssetPattern) AssetPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AssetPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxPattern "maybe'movesAsset" (Prelude.Maybe AssetPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'movesAsset"
-> (Maybe AssetPattern -> f (Maybe AssetPattern))
-> TxPattern
-> f TxPattern
fieldOf Proxy# "maybe'movesAsset"
_
    = ((Maybe AssetPattern -> f (Maybe AssetPattern))
 -> TxPattern -> f TxPattern)
-> ((Maybe AssetPattern -> f (Maybe AssetPattern))
    -> Maybe AssetPattern -> f (Maybe AssetPattern))
-> (Maybe AssetPattern -> f (Maybe AssetPattern))
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe AssetPattern)
-> (TxPattern -> Maybe AssetPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe AssetPattern) (Maybe AssetPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe AssetPattern
_TxPattern'movesAsset
           (\ TxPattern
x__ Maybe AssetPattern
y__ -> TxPattern
x__ {_TxPattern'movesAsset = y__}))
        (Maybe AssetPattern -> f (Maybe AssetPattern))
-> Maybe AssetPattern -> f (Maybe AssetPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxPattern "mintsAsset" AssetPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "mintsAsset"
-> (AssetPattern -> f AssetPattern) -> TxPattern -> f TxPattern
fieldOf Proxy# "mintsAsset"
_
    = ((Maybe AssetPattern -> f (Maybe AssetPattern))
 -> TxPattern -> f TxPattern)
-> ((AssetPattern -> f AssetPattern)
    -> Maybe AssetPattern -> f (Maybe AssetPattern))
-> (AssetPattern -> f AssetPattern)
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe AssetPattern)
-> (TxPattern -> Maybe AssetPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe AssetPattern) (Maybe AssetPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe AssetPattern
_TxPattern'mintsAsset
           (\ TxPattern
x__ Maybe AssetPattern
y__ -> TxPattern
x__ {_TxPattern'mintsAsset = y__}))
        (AssetPattern -> Lens' (Maybe AssetPattern) AssetPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AssetPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxPattern "maybe'mintsAsset" (Prelude.Maybe AssetPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'mintsAsset"
-> (Maybe AssetPattern -> f (Maybe AssetPattern))
-> TxPattern
-> f TxPattern
fieldOf Proxy# "maybe'mintsAsset"
_
    = ((Maybe AssetPattern -> f (Maybe AssetPattern))
 -> TxPattern -> f TxPattern)
-> ((Maybe AssetPattern -> f (Maybe AssetPattern))
    -> Maybe AssetPattern -> f (Maybe AssetPattern))
-> (Maybe AssetPattern -> f (Maybe AssetPattern))
-> TxPattern
-> f TxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPattern -> Maybe AssetPattern)
-> (TxPattern -> Maybe AssetPattern -> TxPattern)
-> Lens
     TxPattern TxPattern (Maybe AssetPattern) (Maybe AssetPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPattern -> Maybe AssetPattern
_TxPattern'mintsAsset
           (\ TxPattern
x__ Maybe AssetPattern
y__ -> TxPattern
x__ {_TxPattern'mintsAsset = y__}))
        (Maybe AssetPattern -> f (Maybe AssetPattern))
-> Maybe AssetPattern -> f (Maybe AssetPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxPattern where
  messageName :: Proxy TxPattern -> Text
messageName Proxy TxPattern
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.TxPattern"
  packedMessageDescriptor :: Proxy TxPattern -> ByteString
packedMessageDescriptor Proxy TxPattern
_
    = ByteString
"\n\
      \\tTxPattern\DC2D\n\
      \\bconsumes\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bconsumes\DC2D\n\
      \\bproduces\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bproduces\DC2H\n\
      \\vhas_address\CAN\ETX \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\n\
      \hasAddress\DC2F\n\
      \\vmoves_asset\CAN\EOT \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\
      \movesAsset\DC2F\n\
      \\vmints_asset\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\
      \mintsAsset"
  packedFileDescriptor :: Proxy TxPattern -> ByteString
packedFileDescriptor Proxy TxPattern
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxPattern)
fieldsByTag
    = let
        consumes__field_descriptor :: FieldDescriptor TxPattern
consumes__field_descriptor
          = String
-> FieldTypeDescriptor TxOutputPattern
-> FieldAccessor TxPattern TxOutputPattern
-> FieldDescriptor TxPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"consumes"
              (MessageOrGroup -> FieldTypeDescriptor TxOutputPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxOutputPattern)
              (Lens
  TxPattern TxPattern (Maybe TxOutputPattern) (Maybe TxOutputPattern)
-> FieldAccessor TxPattern TxOutputPattern
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'consumes")) ::
              Data.ProtoLens.FieldDescriptor TxPattern
        produces__field_descriptor :: FieldDescriptor TxPattern
produces__field_descriptor
          = String
-> FieldTypeDescriptor TxOutputPattern
-> FieldAccessor TxPattern TxOutputPattern
-> FieldDescriptor TxPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"produces"
              (MessageOrGroup -> FieldTypeDescriptor TxOutputPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxOutputPattern)
              (Lens
  TxPattern TxPattern (Maybe TxOutputPattern) (Maybe TxOutputPattern)
-> FieldAccessor TxPattern TxOutputPattern
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'produces")) ::
              Data.ProtoLens.FieldDescriptor TxPattern
        hasAddress__field_descriptor :: FieldDescriptor TxPattern
hasAddress__field_descriptor
          = String
-> FieldTypeDescriptor AddressPattern
-> FieldAccessor TxPattern AddressPattern
-> FieldDescriptor TxPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"has_address"
              (MessageOrGroup -> FieldTypeDescriptor AddressPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AddressPattern)
              (Lens
  TxPattern TxPattern (Maybe AddressPattern) (Maybe AddressPattern)
-> FieldAccessor TxPattern AddressPattern
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'hasAddress")) ::
              Data.ProtoLens.FieldDescriptor TxPattern
        movesAsset__field_descriptor :: FieldDescriptor TxPattern
movesAsset__field_descriptor
          = String
-> FieldTypeDescriptor AssetPattern
-> FieldAccessor TxPattern AssetPattern
-> FieldDescriptor TxPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"moves_asset"
              (MessageOrGroup -> FieldTypeDescriptor AssetPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)
              (Lens TxPattern TxPattern (Maybe AssetPattern) (Maybe AssetPattern)
-> FieldAccessor TxPattern AssetPattern
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'movesAsset")) ::
              Data.ProtoLens.FieldDescriptor TxPattern
        mintsAsset__field_descriptor :: FieldDescriptor TxPattern
mintsAsset__field_descriptor
          = String
-> FieldTypeDescriptor AssetPattern
-> FieldAccessor TxPattern AssetPattern
-> FieldDescriptor TxPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"mints_asset"
              (MessageOrGroup -> FieldTypeDescriptor AssetPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)
              (Lens TxPattern TxPattern (Maybe AssetPattern) (Maybe AssetPattern)
-> FieldAccessor TxPattern AssetPattern
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'mintsAsset")) ::
              Data.ProtoLens.FieldDescriptor TxPattern
      in
        [(Tag, FieldDescriptor TxPattern)]
-> Map Tag (FieldDescriptor TxPattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxPattern
consumes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxPattern
produces__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TxPattern
hasAddress__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor TxPattern
movesAsset__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor TxPattern
mintsAsset__field_descriptor)]
  unknownFields :: Lens' TxPattern FieldSet
unknownFields
    = (TxPattern -> FieldSet)
-> (TxPattern -> FieldSet -> TxPattern) -> Lens' TxPattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxPattern -> FieldSet
_TxPattern'_unknownFields
        (\ TxPattern
x__ FieldSet
y__ -> TxPattern
x__ {_TxPattern'_unknownFields = y__})
  defMessage :: TxPattern
defMessage
    = TxPattern'_constructor
        {_TxPattern'consumes :: Maybe TxOutputPattern
_TxPattern'consumes = Maybe TxOutputPattern
forall a. Maybe a
Prelude.Nothing,
         _TxPattern'produces :: Maybe TxOutputPattern
_TxPattern'produces = Maybe TxOutputPattern
forall a. Maybe a
Prelude.Nothing,
         _TxPattern'hasAddress :: Maybe AddressPattern
_TxPattern'hasAddress = Maybe AddressPattern
forall a. Maybe a
Prelude.Nothing,
         _TxPattern'movesAsset :: Maybe AssetPattern
_TxPattern'movesAsset = Maybe AssetPattern
forall a. Maybe a
Prelude.Nothing,
         _TxPattern'mintsAsset :: Maybe AssetPattern
_TxPattern'mintsAsset = Maybe AssetPattern
forall a. Maybe a
Prelude.Nothing,
         _TxPattern'_unknownFields :: FieldSet
_TxPattern'_unknownFields = []}
  parseMessage :: Parser TxPattern
parseMessage
    = let
        loop :: TxPattern -> Data.ProtoLens.Encoding.Bytes.Parser TxPattern
        loop :: TxPattern -> Parser TxPattern
loop TxPattern
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TxPattern -> Parser TxPattern
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxPattern TxPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxPattern -> TxPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxPattern FieldSet
Setter TxPattern TxPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TxPattern
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do TxOutputPattern
y <- Parser TxOutputPattern -> String -> Parser TxOutputPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxOutputPattern -> Parser TxOutputPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxOutputPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"consumes"
                                TxPattern -> Parser TxPattern
loop
                                  (Setter TxPattern TxPattern TxOutputPattern TxOutputPattern
-> TxOutputPattern -> TxPattern -> TxPattern
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 @"consumes") TxOutputPattern
y TxPattern
x)
                        Word64
18
                          -> do TxOutputPattern
y <- Parser TxOutputPattern -> String -> Parser TxOutputPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxOutputPattern -> Parser TxOutputPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxOutputPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"produces"
                                TxPattern -> Parser TxPattern
loop
                                  (Setter TxPattern TxPattern TxOutputPattern TxOutputPattern
-> TxOutputPattern -> TxPattern -> TxPattern
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 @"produces") TxOutputPattern
y TxPattern
x)
                        Word64
26
                          -> do AddressPattern
y <- Parser AddressPattern -> String -> Parser AddressPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AddressPattern -> Parser AddressPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AddressPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"has_address"
                                TxPattern -> Parser TxPattern
loop
                                  (Setter TxPattern TxPattern AddressPattern AddressPattern
-> AddressPattern -> TxPattern -> TxPattern
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 @"hasAddress") AddressPattern
y TxPattern
x)
                        Word64
34
                          -> do AssetPattern
y <- Parser AssetPattern -> String -> Parser AssetPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AssetPattern -> Parser AssetPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AssetPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"moves_asset"
                                TxPattern -> Parser TxPattern
loop
                                  (Setter TxPattern TxPattern AssetPattern AssetPattern
-> AssetPattern -> TxPattern -> TxPattern
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 @"movesAsset") AssetPattern
y TxPattern
x)
                        Word64
42
                          -> do AssetPattern
y <- Parser AssetPattern -> String -> Parser AssetPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AssetPattern -> Parser AssetPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AssetPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"mints_asset"
                                TxPattern -> Parser TxPattern
loop
                                  (Setter TxPattern TxPattern AssetPattern AssetPattern
-> AssetPattern -> TxPattern -> TxPattern
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 @"mintsAsset") AssetPattern
y TxPattern
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxPattern -> Parser TxPattern
loop
                                  (Setter TxPattern TxPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxPattern -> TxPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxPattern FieldSet
Setter TxPattern TxPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxPattern
x)
      in
        Parser TxPattern -> String -> Parser TxPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TxPattern -> Parser TxPattern
loop TxPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TxPattern"
  buildMessage :: TxPattern -> Builder
buildMessage
    = \ TxPattern
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe TxOutputPattern)
  TxPattern
  TxPattern
  (Maybe TxOutputPattern)
  (Maybe TxOutputPattern)
-> TxPattern -> Maybe TxOutputPattern
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'consumes") TxPattern
_x
              of
                Maybe TxOutputPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just TxOutputPattern
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (TxOutputPattern -> ByteString) -> TxOutputPattern -> 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))
                          TxOutputPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxOutputPattern
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe TxOutputPattern)
  TxPattern
  TxPattern
  (Maybe TxOutputPattern)
  (Maybe TxOutputPattern)
-> TxPattern -> Maybe TxOutputPattern
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'produces") TxPattern
_x
                 of
                   Maybe TxOutputPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just TxOutputPattern
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (TxOutputPattern -> ByteString) -> TxOutputPattern -> 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))
                             TxOutputPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxOutputPattern
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe AddressPattern)
  TxPattern
  TxPattern
  (Maybe AddressPattern)
  (Maybe AddressPattern)
-> TxPattern -> Maybe AddressPattern
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'hasAddress") TxPattern
_x
                    of
                      Maybe AddressPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just AddressPattern
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (AddressPattern -> ByteString) -> AddressPattern -> 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))
                                AddressPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AddressPattern
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe AssetPattern)
  TxPattern
  TxPattern
  (Maybe AssetPattern)
  (Maybe AssetPattern)
-> TxPattern -> Maybe AssetPattern
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'movesAsset") TxPattern
_x
                       of
                         Maybe AssetPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just AssetPattern
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (AssetPattern -> ByteString) -> AssetPattern -> 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))
                                   AssetPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AssetPattern
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe AssetPattern)
  TxPattern
  TxPattern
  (Maybe AssetPattern)
  (Maybe AssetPattern)
-> TxPattern -> Maybe AssetPattern
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'mintsAsset") TxPattern
_x
                          of
                            Maybe AssetPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just AssetPattern
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                   ((ByteString -> Builder)
-> (AssetPattern -> ByteString) -> AssetPattern -> 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))
                                      AssetPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AssetPattern
_v))
                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                            (FoldLike FieldSet TxPattern TxPattern FieldSet FieldSet
-> TxPattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxPattern TxPattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxPattern FieldSet
Data.ProtoLens.unknownFields TxPattern
_x))))))
instance Control.DeepSeq.NFData TxPattern where
  rnf :: TxPattern -> ()
rnf
    = \ TxPattern
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxPattern -> FieldSet
_TxPattern'_unknownFields TxPattern
x__)
             (Maybe TxOutputPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxPattern -> Maybe TxOutputPattern
_TxPattern'consumes TxPattern
x__)
                (Maybe TxOutputPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TxPattern -> Maybe TxOutputPattern
_TxPattern'produces TxPattern
x__)
                   (Maybe AddressPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (TxPattern -> Maybe AddressPattern
_TxPattern'hasAddress TxPattern
x__)
                      (Maybe AssetPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (TxPattern -> Maybe AssetPattern
_TxPattern'movesAsset TxPattern
x__)
                         (Maybe AssetPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxPattern -> Maybe AssetPattern
_TxPattern'mintsAsset TxPattern
x__) ())))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.start' @:: Lens' TxValidity Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ttl' @:: Lens' TxValidity Data.Word.Word64@ -}
data TxValidity
  = TxValidity'_constructor {TxValidity -> Word64
_TxValidity'start :: !Data.Word.Word64,
                             TxValidity -> Word64
_TxValidity'ttl :: !Data.Word.Word64,
                             TxValidity -> FieldSet
_TxValidity'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxValidity -> TxValidity -> Bool
(TxValidity -> TxValidity -> Bool)
-> (TxValidity -> TxValidity -> Bool) -> Eq TxValidity
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxValidity -> TxValidity -> Bool
== :: TxValidity -> TxValidity -> Bool
$c/= :: TxValidity -> TxValidity -> Bool
/= :: TxValidity -> TxValidity -> Bool
Prelude.Eq, Eq TxValidity
Eq TxValidity =>
(TxValidity -> TxValidity -> Ordering)
-> (TxValidity -> TxValidity -> Bool)
-> (TxValidity -> TxValidity -> Bool)
-> (TxValidity -> TxValidity -> Bool)
-> (TxValidity -> TxValidity -> Bool)
-> (TxValidity -> TxValidity -> TxValidity)
-> (TxValidity -> TxValidity -> TxValidity)
-> Ord TxValidity
TxValidity -> TxValidity -> Bool
TxValidity -> TxValidity -> Ordering
TxValidity -> TxValidity -> TxValidity
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 :: TxValidity -> TxValidity -> Ordering
compare :: TxValidity -> TxValidity -> Ordering
$c< :: TxValidity -> TxValidity -> Bool
< :: TxValidity -> TxValidity -> Bool
$c<= :: TxValidity -> TxValidity -> Bool
<= :: TxValidity -> TxValidity -> Bool
$c> :: TxValidity -> TxValidity -> Bool
> :: TxValidity -> TxValidity -> Bool
$c>= :: TxValidity -> TxValidity -> Bool
>= :: TxValidity -> TxValidity -> Bool
$cmax :: TxValidity -> TxValidity -> TxValidity
max :: TxValidity -> TxValidity -> TxValidity
$cmin :: TxValidity -> TxValidity -> TxValidity
min :: TxValidity -> TxValidity -> TxValidity
Prelude.Ord)
instance Prelude.Show TxValidity where
  showsPrec :: Int -> TxValidity -> ShowS
showsPrec Int
_ TxValidity
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxValidity -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxValidity
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxValidity "start" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "start"
-> (Word64 -> f Word64) -> TxValidity -> f TxValidity
fieldOf Proxy# "start"
_
    = ((Word64 -> f Word64) -> TxValidity -> f TxValidity)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> TxValidity
-> f TxValidity
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxValidity -> Word64)
-> (TxValidity -> Word64 -> TxValidity)
-> Lens TxValidity TxValidity Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxValidity -> Word64
_TxValidity'start (\ TxValidity
x__ Word64
y__ -> TxValidity
x__ {_TxValidity'start = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxValidity "ttl" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ttl" -> (Word64 -> f Word64) -> TxValidity -> f TxValidity
fieldOf Proxy# "ttl"
_
    = ((Word64 -> f Word64) -> TxValidity -> f TxValidity)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> TxValidity
-> f TxValidity
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxValidity -> Word64)
-> (TxValidity -> Word64 -> TxValidity)
-> Lens TxValidity TxValidity Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxValidity -> Word64
_TxValidity'ttl (\ TxValidity
x__ Word64
y__ -> TxValidity
x__ {_TxValidity'ttl = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxValidity where
  messageName :: Proxy TxValidity -> Text
messageName Proxy TxValidity
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.TxValidity"
  packedMessageDescriptor :: Proxy TxValidity -> ByteString
packedMessageDescriptor Proxy TxValidity
_
    = ByteString
"\n\
      \\n\
      \TxValidity\DC2\DC4\n\
      \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\
      \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl"
  packedFileDescriptor :: Proxy TxValidity -> ByteString
packedFileDescriptor Proxy TxValidity
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxValidity)
fieldsByTag
    = let
        start__field_descriptor :: FieldDescriptor TxValidity
start__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor TxValidity Word64
-> FieldDescriptor TxValidity
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"start"
              (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 TxValidity TxValidity Word64 Word64
-> FieldAccessor TxValidity 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 @"start")) ::
              Data.ProtoLens.FieldDescriptor TxValidity
        ttl__field_descriptor :: FieldDescriptor TxValidity
ttl__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor TxValidity Word64
-> FieldDescriptor TxValidity
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ttl"
              (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 TxValidity TxValidity Word64 Word64
-> FieldAccessor TxValidity 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 @"ttl")) ::
              Data.ProtoLens.FieldDescriptor TxValidity
      in
        [(Tag, FieldDescriptor TxValidity)]
-> Map Tag (FieldDescriptor TxValidity)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxValidity
start__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxValidity
ttl__field_descriptor)]
  unknownFields :: Lens' TxValidity FieldSet
unknownFields
    = (TxValidity -> FieldSet)
-> (TxValidity -> FieldSet -> TxValidity)
-> Lens' TxValidity FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxValidity -> FieldSet
_TxValidity'_unknownFields
        (\ TxValidity
x__ FieldSet
y__ -> TxValidity
x__ {_TxValidity'_unknownFields = y__})
  defMessage :: TxValidity
defMessage
    = TxValidity'_constructor
        {_TxValidity'start :: Word64
_TxValidity'start = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxValidity'ttl :: Word64
_TxValidity'ttl = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxValidity'_unknownFields :: FieldSet
_TxValidity'_unknownFields = []}
  parseMessage :: Parser TxValidity
parseMessage
    = let
        loop ::
          TxValidity -> Data.ProtoLens.Encoding.Bytes.Parser TxValidity
        loop :: TxValidity -> Parser TxValidity
loop TxValidity
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TxValidity -> Parser TxValidity
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxValidity TxValidity FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxValidity -> TxValidity
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxValidity FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxValidity FieldSet
Setter TxValidity TxValidity FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TxValidity
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do Word64
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
"start"
                                TxValidity -> Parser TxValidity
loop (Setter TxValidity TxValidity Word64 Word64
-> Word64 -> TxValidity -> TxValidity
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 @"start") Word64
y TxValidity
x)
                        Word64
16
                          -> do Word64
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
"ttl"
                                TxValidity -> Parser TxValidity
loop (Setter TxValidity TxValidity Word64 Word64
-> Word64 -> TxValidity -> TxValidity
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 @"ttl") Word64
y TxValidity
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxValidity -> Parser TxValidity
loop
                                  (Setter TxValidity TxValidity FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxValidity -> TxValidity
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxValidity FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxValidity FieldSet
Setter TxValidity TxValidity FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxValidity
x)
      in
        Parser TxValidity -> String -> Parser TxValidity
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TxValidity -> Parser TxValidity
loop TxValidity
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TxValidity"
  buildMessage :: TxValidity -> Builder
buildMessage
    = \ TxValidity
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v = FoldLike Word64 TxValidity TxValidity Word64 Word64
-> TxValidity -> 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 @"start") TxValidity
_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 TxValidity TxValidity Word64 Word64
-> TxValidity -> 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 @"ttl") TxValidity
_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 TxValidity TxValidity FieldSet FieldSet
-> TxValidity -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxValidity TxValidity FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxValidity FieldSet
Data.ProtoLens.unknownFields TxValidity
_x)))
instance Control.DeepSeq.NFData TxValidity where
  rnf :: TxValidity -> ()
rnf
    = \ TxValidity
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxValidity -> FieldSet
_TxValidity'_unknownFields TxValidity
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxValidity -> Word64
_TxValidity'start TxValidity
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxValidity -> Word64
_TxValidity'ttl TxValidity
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vkey' @:: Lens' VKeyWitness Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.signature' @:: Lens' VKeyWitness Data.ByteString.ByteString@ -}
data VKeyWitness
  = VKeyWitness'_constructor {VKeyWitness -> ByteString
_VKeyWitness'vkey :: !Data.ByteString.ByteString,
                              VKeyWitness -> ByteString
_VKeyWitness'signature :: !Data.ByteString.ByteString,
                              VKeyWitness -> FieldSet
_VKeyWitness'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (VKeyWitness -> VKeyWitness -> Bool
(VKeyWitness -> VKeyWitness -> Bool)
-> (VKeyWitness -> VKeyWitness -> Bool) -> Eq VKeyWitness
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VKeyWitness -> VKeyWitness -> Bool
== :: VKeyWitness -> VKeyWitness -> Bool
$c/= :: VKeyWitness -> VKeyWitness -> Bool
/= :: VKeyWitness -> VKeyWitness -> Bool
Prelude.Eq, Eq VKeyWitness
Eq VKeyWitness =>
(VKeyWitness -> VKeyWitness -> Ordering)
-> (VKeyWitness -> VKeyWitness -> Bool)
-> (VKeyWitness -> VKeyWitness -> Bool)
-> (VKeyWitness -> VKeyWitness -> Bool)
-> (VKeyWitness -> VKeyWitness -> Bool)
-> (VKeyWitness -> VKeyWitness -> VKeyWitness)
-> (VKeyWitness -> VKeyWitness -> VKeyWitness)
-> Ord VKeyWitness
VKeyWitness -> VKeyWitness -> Bool
VKeyWitness -> VKeyWitness -> Ordering
VKeyWitness -> VKeyWitness -> VKeyWitness
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 :: VKeyWitness -> VKeyWitness -> Ordering
compare :: VKeyWitness -> VKeyWitness -> Ordering
$c< :: VKeyWitness -> VKeyWitness -> Bool
< :: VKeyWitness -> VKeyWitness -> Bool
$c<= :: VKeyWitness -> VKeyWitness -> Bool
<= :: VKeyWitness -> VKeyWitness -> Bool
$c> :: VKeyWitness -> VKeyWitness -> Bool
> :: VKeyWitness -> VKeyWitness -> Bool
$c>= :: VKeyWitness -> VKeyWitness -> Bool
>= :: VKeyWitness -> VKeyWitness -> Bool
$cmax :: VKeyWitness -> VKeyWitness -> VKeyWitness
max :: VKeyWitness -> VKeyWitness -> VKeyWitness
$cmin :: VKeyWitness -> VKeyWitness -> VKeyWitness
min :: VKeyWitness -> VKeyWitness -> VKeyWitness
Prelude.Ord)
instance Prelude.Show VKeyWitness where
  showsPrec :: Int -> VKeyWitness -> ShowS
showsPrec Int
_ VKeyWitness
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (VKeyWitness -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort VKeyWitness
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField VKeyWitness "vkey" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vkey"
-> (ByteString -> f ByteString) -> VKeyWitness -> f VKeyWitness
fieldOf Proxy# "vkey"
_
    = ((ByteString -> f ByteString) -> VKeyWitness -> f VKeyWitness)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> VKeyWitness
-> f VKeyWitness
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((VKeyWitness -> ByteString)
-> (VKeyWitness -> ByteString -> VKeyWitness)
-> Lens VKeyWitness VKeyWitness ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           VKeyWitness -> ByteString
_VKeyWitness'vkey (\ VKeyWitness
x__ ByteString
y__ -> VKeyWitness
x__ {_VKeyWitness'vkey = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField VKeyWitness "signature" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "signature"
-> (ByteString -> f ByteString) -> VKeyWitness -> f VKeyWitness
fieldOf Proxy# "signature"
_
    = ((ByteString -> f ByteString) -> VKeyWitness -> f VKeyWitness)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> VKeyWitness
-> f VKeyWitness
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((VKeyWitness -> ByteString)
-> (VKeyWitness -> ByteString -> VKeyWitness)
-> Lens VKeyWitness VKeyWitness ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           VKeyWitness -> ByteString
_VKeyWitness'signature
           (\ VKeyWitness
x__ ByteString
y__ -> VKeyWitness
x__ {_VKeyWitness'signature = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message VKeyWitness where
  messageName :: Proxy VKeyWitness -> Text
messageName Proxy VKeyWitness
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.VKeyWitness"
  packedMessageDescriptor :: Proxy VKeyWitness -> ByteString
packedMessageDescriptor Proxy VKeyWitness
_
    = ByteString
"\n\
      \\vVKeyWitness\DC2\DC2\n\
      \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\
      \\tsignature\CAN\STX \SOH(\fR\tsignature"
  packedFileDescriptor :: Proxy VKeyWitness -> ByteString
packedFileDescriptor Proxy VKeyWitness
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor VKeyWitness)
fieldsByTag
    = let
        vkey__field_descriptor :: FieldDescriptor VKeyWitness
vkey__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor VKeyWitness ByteString
-> FieldDescriptor VKeyWitness
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 VKeyWitness VKeyWitness ByteString ByteString
-> FieldAccessor VKeyWitness 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 VKeyWitness
        signature__field_descriptor :: FieldDescriptor VKeyWitness
signature__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor VKeyWitness ByteString
-> FieldDescriptor VKeyWitness
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 VKeyWitness VKeyWitness ByteString ByteString
-> FieldAccessor VKeyWitness 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 VKeyWitness
      in
        [(Tag, FieldDescriptor VKeyWitness)]
-> Map Tag (FieldDescriptor VKeyWitness)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor VKeyWitness
vkey__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor VKeyWitness
signature__field_descriptor)]
  unknownFields :: Lens' VKeyWitness FieldSet
unknownFields
    = (VKeyWitness -> FieldSet)
-> (VKeyWitness -> FieldSet -> VKeyWitness)
-> Lens' VKeyWitness FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        VKeyWitness -> FieldSet
_VKeyWitness'_unknownFields
        (\ VKeyWitness
x__ FieldSet
y__ -> VKeyWitness
x__ {_VKeyWitness'_unknownFields = y__})
  defMessage :: VKeyWitness
defMessage
    = VKeyWitness'_constructor
        {_VKeyWitness'vkey :: ByteString
_VKeyWitness'vkey = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _VKeyWitness'signature :: ByteString
_VKeyWitness'signature = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _VKeyWitness'_unknownFields :: FieldSet
_VKeyWitness'_unknownFields = []}
  parseMessage :: Parser VKeyWitness
parseMessage
    = let
        loop ::
          VKeyWitness -> Data.ProtoLens.Encoding.Bytes.Parser VKeyWitness
        loop :: VKeyWitness -> Parser VKeyWitness
loop VKeyWitness
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      VKeyWitness -> Parser VKeyWitness
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter VKeyWitness VKeyWitness FieldSet FieldSet
-> (FieldSet -> FieldSet) -> VKeyWitness -> VKeyWitness
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f VKeyWitness FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' VKeyWitness FieldSet
Setter VKeyWitness VKeyWitness FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) VKeyWitness
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"vkey"
                                VKeyWitness -> Parser VKeyWitness
loop (Setter VKeyWitness VKeyWitness ByteString ByteString
-> ByteString -> VKeyWitness -> VKeyWitness
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 @"vkey") ByteString
y VKeyWitness
x)
                        Word64
18
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"signature"
                                VKeyWitness -> Parser VKeyWitness
loop
                                  (Setter VKeyWitness VKeyWitness ByteString ByteString
-> ByteString -> VKeyWitness -> VKeyWitness
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 @"signature") ByteString
y VKeyWitness
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                VKeyWitness -> Parser VKeyWitness
loop
                                  (Setter VKeyWitness VKeyWitness FieldSet FieldSet
-> (FieldSet -> FieldSet) -> VKeyWitness -> VKeyWitness
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f VKeyWitness FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' VKeyWitness FieldSet
Setter VKeyWitness VKeyWitness FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) VKeyWitness
x)
      in
        Parser VKeyWitness -> String -> Parser VKeyWitness
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do VKeyWitness -> Parser VKeyWitness
loop VKeyWitness
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"VKeyWitness"
  buildMessage :: VKeyWitness -> Builder
buildMessage
    = \ VKeyWitness
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString VKeyWitness VKeyWitness ByteString ByteString
-> VKeyWitness -> 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") VKeyWitness
_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 VKeyWitness VKeyWitness ByteString ByteString
-> VKeyWitness -> 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") VKeyWitness
_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 VKeyWitness VKeyWitness FieldSet FieldSet
-> VKeyWitness -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet VKeyWitness VKeyWitness FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' VKeyWitness FieldSet
Data.ProtoLens.unknownFields VKeyWitness
_x)))
instance Control.DeepSeq.NFData VKeyWitness where
  rnf :: VKeyWitness -> ()
rnf
    = \ VKeyWitness
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (VKeyWitness -> FieldSet
_VKeyWitness'_unknownFields VKeyWitness
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (VKeyWitness -> ByteString
_VKeyWitness'vkey VKeyWitness
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (VKeyWitness -> ByteString
_VKeyWitness'signature VKeyWitness
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.rewardAccount' @:: Lens' Withdrawal Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coin' @:: Lens' Withdrawal Data.Word.Word64@ -}
data Withdrawal
  = Withdrawal'_constructor {Withdrawal -> ByteString
_Withdrawal'rewardAccount :: !Data.ByteString.ByteString,
                             Withdrawal -> Word64
_Withdrawal'coin :: !Data.Word.Word64,
                             Withdrawal -> FieldSet
_Withdrawal'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Withdrawal -> Withdrawal -> Bool
(Withdrawal -> Withdrawal -> Bool)
-> (Withdrawal -> Withdrawal -> Bool) -> Eq Withdrawal
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Withdrawal -> Withdrawal -> Bool
== :: Withdrawal -> Withdrawal -> Bool
$c/= :: Withdrawal -> Withdrawal -> Bool
/= :: Withdrawal -> Withdrawal -> Bool
Prelude.Eq, Eq Withdrawal
Eq Withdrawal =>
(Withdrawal -> Withdrawal -> Ordering)
-> (Withdrawal -> Withdrawal -> Bool)
-> (Withdrawal -> Withdrawal -> Bool)
-> (Withdrawal -> Withdrawal -> Bool)
-> (Withdrawal -> Withdrawal -> Bool)
-> (Withdrawal -> Withdrawal -> Withdrawal)
-> (Withdrawal -> Withdrawal -> Withdrawal)
-> Ord Withdrawal
Withdrawal -> Withdrawal -> Bool
Withdrawal -> Withdrawal -> Ordering
Withdrawal -> Withdrawal -> Withdrawal
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 :: Withdrawal -> Withdrawal -> Ordering
compare :: Withdrawal -> Withdrawal -> Ordering
$c< :: Withdrawal -> Withdrawal -> Bool
< :: Withdrawal -> Withdrawal -> Bool
$c<= :: Withdrawal -> Withdrawal -> Bool
<= :: Withdrawal -> Withdrawal -> Bool
$c> :: Withdrawal -> Withdrawal -> Bool
> :: Withdrawal -> Withdrawal -> Bool
$c>= :: Withdrawal -> Withdrawal -> Bool
>= :: Withdrawal -> Withdrawal -> Bool
$cmax :: Withdrawal -> Withdrawal -> Withdrawal
max :: Withdrawal -> Withdrawal -> Withdrawal
$cmin :: Withdrawal -> Withdrawal -> Withdrawal
min :: Withdrawal -> Withdrawal -> Withdrawal
Prelude.Ord)
instance Prelude.Show Withdrawal where
  showsPrec :: Int -> Withdrawal -> ShowS
showsPrec Int
_ Withdrawal
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Withdrawal -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Withdrawal
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Withdrawal "rewardAccount" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rewardAccount"
-> (ByteString -> f ByteString) -> Withdrawal -> f Withdrawal
fieldOf Proxy# "rewardAccount"
_
    = ((ByteString -> f ByteString) -> Withdrawal -> f Withdrawal)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Withdrawal
-> f Withdrawal
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Withdrawal -> ByteString)
-> (Withdrawal -> ByteString -> Withdrawal)
-> Lens Withdrawal Withdrawal ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Withdrawal -> ByteString
_Withdrawal'rewardAccount
           (\ Withdrawal
x__ ByteString
y__ -> Withdrawal
x__ {_Withdrawal'rewardAccount = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Withdrawal "coin" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "coin" -> (Word64 -> f Word64) -> Withdrawal -> f Withdrawal
fieldOf Proxy# "coin"
_
    = ((Word64 -> f Word64) -> Withdrawal -> f Withdrawal)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Withdrawal
-> f Withdrawal
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Withdrawal -> Word64)
-> (Withdrawal -> Word64 -> Withdrawal)
-> Lens Withdrawal Withdrawal Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Withdrawal -> Word64
_Withdrawal'coin (\ Withdrawal
x__ Word64
y__ -> Withdrawal
x__ {_Withdrawal'coin = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Withdrawal where
  messageName :: Proxy Withdrawal -> Text
messageName Proxy Withdrawal
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Withdrawal"
  packedMessageDescriptor :: Proxy Withdrawal -> ByteString
packedMessageDescriptor Proxy Withdrawal
_
    = ByteString
"\n\
      \\n\
      \Withdrawal\DC2%\n\
      \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC2\DC2\n\
      \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin"
  packedFileDescriptor :: Proxy Withdrawal -> ByteString
packedFileDescriptor Proxy Withdrawal
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Withdrawal)
fieldsByTag
    = let
        rewardAccount__field_descriptor :: FieldDescriptor Withdrawal
rewardAccount__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Withdrawal ByteString
-> FieldDescriptor Withdrawal
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reward_account"
              (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 Withdrawal Withdrawal ByteString ByteString
-> FieldAccessor Withdrawal 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 @"rewardAccount")) ::
              Data.ProtoLens.FieldDescriptor Withdrawal
        coin__field_descriptor :: FieldDescriptor Withdrawal
coin__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Withdrawal Word64
-> FieldDescriptor Withdrawal
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"coin"
              (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 Withdrawal Withdrawal Word64 Word64
-> FieldAccessor Withdrawal 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 @"coin")) ::
              Data.ProtoLens.FieldDescriptor Withdrawal
      in
        [(Tag, FieldDescriptor Withdrawal)]
-> Map Tag (FieldDescriptor Withdrawal)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Withdrawal
rewardAccount__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Withdrawal
coin__field_descriptor)]
  unknownFields :: Lens' Withdrawal FieldSet
unknownFields
    = (Withdrawal -> FieldSet)
-> (Withdrawal -> FieldSet -> Withdrawal)
-> Lens' Withdrawal FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Withdrawal -> FieldSet
_Withdrawal'_unknownFields
        (\ Withdrawal
x__ FieldSet
y__ -> Withdrawal
x__ {_Withdrawal'_unknownFields = y__})
  defMessage :: Withdrawal
defMessage
    = Withdrawal'_constructor
        {_Withdrawal'rewardAccount :: ByteString
_Withdrawal'rewardAccount = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Withdrawal'coin :: Word64
_Withdrawal'coin = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Withdrawal'_unknownFields :: FieldSet
_Withdrawal'_unknownFields = []}
  parseMessage :: Parser Withdrawal
parseMessage
    = let
        loop ::
          Withdrawal -> Data.ProtoLens.Encoding.Bytes.Parser Withdrawal
        loop :: Withdrawal -> Parser Withdrawal
loop Withdrawal
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      Withdrawal -> Parser Withdrawal
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter Withdrawal Withdrawal FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Withdrawal -> Withdrawal
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f Withdrawal FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Withdrawal FieldSet
Setter Withdrawal Withdrawal FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) Withdrawal
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       String
"reward_account"
                                Withdrawal -> Parser Withdrawal
loop
                                  (Setter Withdrawal Withdrawal ByteString ByteString
-> ByteString -> Withdrawal -> Withdrawal
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 @"rewardAccount") ByteString
y Withdrawal
x)
                        Word64
16
                          -> do Word64
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
"coin"
                                Withdrawal -> Parser Withdrawal
loop (Setter Withdrawal Withdrawal Word64 Word64
-> Word64 -> Withdrawal -> Withdrawal
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 @"coin") Word64
y Withdrawal
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                Withdrawal -> Parser Withdrawal
loop
                                  (Setter Withdrawal Withdrawal FieldSet FieldSet
-> (FieldSet -> FieldSet) -> Withdrawal -> Withdrawal
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f Withdrawal FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Withdrawal FieldSet
Setter Withdrawal Withdrawal FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) Withdrawal
x)
      in
        Parser Withdrawal -> String -> Parser Withdrawal
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Withdrawal -> Parser Withdrawal
loop Withdrawal
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Withdrawal"
  buildMessage :: Withdrawal -> Builder
buildMessage
    = \ Withdrawal
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v
                  = FoldLike ByteString Withdrawal Withdrawal ByteString ByteString
-> Withdrawal -> 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 @"rewardAccount") Withdrawal
_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 :: Word64
_v = FoldLike Word64 Withdrawal Withdrawal Word64 Word64
-> Withdrawal -> 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 @"coin") Withdrawal
_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 Withdrawal Withdrawal FieldSet FieldSet
-> Withdrawal -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Withdrawal Withdrawal FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Withdrawal FieldSet
Data.ProtoLens.unknownFields Withdrawal
_x)))
instance Control.DeepSeq.NFData Withdrawal where
  rnf :: Withdrawal -> ()
rnf
    = \ Withdrawal
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Withdrawal -> FieldSet
_Withdrawal'_unknownFields Withdrawal
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Withdrawal -> ByteString
_Withdrawal'rewardAccount Withdrawal
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Withdrawal -> Word64
_Withdrawal'coin Withdrawal
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vkeywitness' @:: Lens' WitnessSet [VKeyWitness]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'vkeywitness' @:: Lens' WitnessSet (Data.Vector.Vector VKeyWitness)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.script' @:: Lens' WitnessSet [Script]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'script' @:: Lens' WitnessSet (Data.Vector.Vector Script)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusDatums' @:: Lens' WitnessSet [PlutusData]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'plutusDatums' @:: Lens' WitnessSet (Data.Vector.Vector PlutusData)@ -}
data WitnessSet
  = WitnessSet'_constructor {WitnessSet -> Vector VKeyWitness
_WitnessSet'vkeywitness :: !(Data.Vector.Vector VKeyWitness),
                             WitnessSet -> Vector Script
_WitnessSet'script :: !(Data.Vector.Vector Script),
                             WitnessSet -> Vector PlutusData
_WitnessSet'plutusDatums :: !(Data.Vector.Vector PlutusData),
                             WitnessSet -> FieldSet
_WitnessSet'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WitnessSet -> WitnessSet -> Bool
(WitnessSet -> WitnessSet -> Bool)
-> (WitnessSet -> WitnessSet -> Bool) -> Eq WitnessSet
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WitnessSet -> WitnessSet -> Bool
== :: WitnessSet -> WitnessSet -> Bool
$c/= :: WitnessSet -> WitnessSet -> Bool
/= :: WitnessSet -> WitnessSet -> Bool
Prelude.Eq, Eq WitnessSet
Eq WitnessSet =>
(WitnessSet -> WitnessSet -> Ordering)
-> (WitnessSet -> WitnessSet -> Bool)
-> (WitnessSet -> WitnessSet -> Bool)
-> (WitnessSet -> WitnessSet -> Bool)
-> (WitnessSet -> WitnessSet -> Bool)
-> (WitnessSet -> WitnessSet -> WitnessSet)
-> (WitnessSet -> WitnessSet -> WitnessSet)
-> Ord WitnessSet
WitnessSet -> WitnessSet -> Bool
WitnessSet -> WitnessSet -> Ordering
WitnessSet -> WitnessSet -> WitnessSet
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 :: WitnessSet -> WitnessSet -> Ordering
compare :: WitnessSet -> WitnessSet -> Ordering
$c< :: WitnessSet -> WitnessSet -> Bool
< :: WitnessSet -> WitnessSet -> Bool
$c<= :: WitnessSet -> WitnessSet -> Bool
<= :: WitnessSet -> WitnessSet -> Bool
$c> :: WitnessSet -> WitnessSet -> Bool
> :: WitnessSet -> WitnessSet -> Bool
$c>= :: WitnessSet -> WitnessSet -> Bool
>= :: WitnessSet -> WitnessSet -> Bool
$cmax :: WitnessSet -> WitnessSet -> WitnessSet
max :: WitnessSet -> WitnessSet -> WitnessSet
$cmin :: WitnessSet -> WitnessSet -> WitnessSet
min :: WitnessSet -> WitnessSet -> WitnessSet
Prelude.Ord)
instance Prelude.Show WitnessSet where
  showsPrec :: Int -> WitnessSet -> ShowS
showsPrec Int
_ WitnessSet
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WitnessSet -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WitnessSet
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WitnessSet "vkeywitness" [VKeyWitness] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vkeywitness"
-> ([VKeyWitness] -> f [VKeyWitness]) -> WitnessSet -> f WitnessSet
fieldOf Proxy# "vkeywitness"
_
    = ((Vector VKeyWitness -> f (Vector VKeyWitness))
 -> WitnessSet -> f WitnessSet)
-> (([VKeyWitness] -> f [VKeyWitness])
    -> Vector VKeyWitness -> f (Vector VKeyWitness))
-> ([VKeyWitness] -> f [VKeyWitness])
-> WitnessSet
-> f WitnessSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WitnessSet -> Vector VKeyWitness)
-> (WitnessSet -> Vector VKeyWitness -> WitnessSet)
-> Lens
     WitnessSet WitnessSet (Vector VKeyWitness) (Vector VKeyWitness)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WitnessSet -> Vector VKeyWitness
_WitnessSet'vkeywitness
           (\ WitnessSet
x__ Vector VKeyWitness
y__ -> WitnessSet
x__ {_WitnessSet'vkeywitness = y__}))
        ((Vector VKeyWitness -> [VKeyWitness])
-> (Vector VKeyWitness -> [VKeyWitness] -> Vector VKeyWitness)
-> Lens
     (Vector VKeyWitness)
     (Vector VKeyWitness)
     [VKeyWitness]
     [VKeyWitness]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector VKeyWitness -> [VKeyWitness]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector VKeyWitness
_ [VKeyWitness]
y__ -> [VKeyWitness] -> Vector VKeyWitness
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [VKeyWitness]
y__))
instance Data.ProtoLens.Field.HasField WitnessSet "vec'vkeywitness" (Data.Vector.Vector VKeyWitness) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'vkeywitness"
-> (Vector VKeyWitness -> f (Vector VKeyWitness))
-> WitnessSet
-> f WitnessSet
fieldOf Proxy# "vec'vkeywitness"
_
    = ((Vector VKeyWitness -> f (Vector VKeyWitness))
 -> WitnessSet -> f WitnessSet)
-> ((Vector VKeyWitness -> f (Vector VKeyWitness))
    -> Vector VKeyWitness -> f (Vector VKeyWitness))
-> (Vector VKeyWitness -> f (Vector VKeyWitness))
-> WitnessSet
-> f WitnessSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WitnessSet -> Vector VKeyWitness)
-> (WitnessSet -> Vector VKeyWitness -> WitnessSet)
-> Lens
     WitnessSet WitnessSet (Vector VKeyWitness) (Vector VKeyWitness)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WitnessSet -> Vector VKeyWitness
_WitnessSet'vkeywitness
           (\ WitnessSet
x__ Vector VKeyWitness
y__ -> WitnessSet
x__ {_WitnessSet'vkeywitness = y__}))
        (Vector VKeyWitness -> f (Vector VKeyWitness))
-> Vector VKeyWitness -> f (Vector VKeyWitness)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WitnessSet "script" [Script] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "script"
-> ([Script] -> f [Script]) -> WitnessSet -> f WitnessSet
fieldOf Proxy# "script"
_
    = ((Vector Script -> f (Vector Script))
 -> WitnessSet -> f WitnessSet)
-> (([Script] -> f [Script]) -> Vector Script -> f (Vector Script))
-> ([Script] -> f [Script])
-> WitnessSet
-> f WitnessSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WitnessSet -> Vector Script)
-> (WitnessSet -> Vector Script -> WitnessSet)
-> Lens WitnessSet WitnessSet (Vector Script) (Vector Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WitnessSet -> Vector Script
_WitnessSet'script (\ WitnessSet
x__ Vector Script
y__ -> WitnessSet
x__ {_WitnessSet'script = 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 WitnessSet "vec'script" (Data.Vector.Vector Script) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'script"
-> (Vector Script -> f (Vector Script))
-> WitnessSet
-> f WitnessSet
fieldOf Proxy# "vec'script"
_
    = ((Vector Script -> f (Vector Script))
 -> WitnessSet -> f WitnessSet)
-> ((Vector Script -> f (Vector Script))
    -> Vector Script -> f (Vector Script))
-> (Vector Script -> f (Vector Script))
-> WitnessSet
-> f WitnessSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WitnessSet -> Vector Script)
-> (WitnessSet -> Vector Script -> WitnessSet)
-> Lens WitnessSet WitnessSet (Vector Script) (Vector Script)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WitnessSet -> Vector Script
_WitnessSet'script (\ WitnessSet
x__ Vector Script
y__ -> WitnessSet
x__ {_WitnessSet'script = y__}))
        (Vector Script -> f (Vector Script))
-> Vector Script -> f (Vector Script)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WitnessSet "plutusDatums" [PlutusData] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusDatums"
-> ([PlutusData] -> f [PlutusData]) -> WitnessSet -> f WitnessSet
fieldOf Proxy# "plutusDatums"
_
    = ((Vector PlutusData -> f (Vector PlutusData))
 -> WitnessSet -> f WitnessSet)
-> (([PlutusData] -> f [PlutusData])
    -> Vector PlutusData -> f (Vector PlutusData))
-> ([PlutusData] -> f [PlutusData])
-> WitnessSet
-> f WitnessSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WitnessSet -> Vector PlutusData)
-> (WitnessSet -> Vector PlutusData -> WitnessSet)
-> Lens
     WitnessSet WitnessSet (Vector PlutusData) (Vector PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WitnessSet -> Vector PlutusData
_WitnessSet'plutusDatums
           (\ WitnessSet
x__ Vector PlutusData
y__ -> WitnessSet
x__ {_WitnessSet'plutusDatums = 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 WitnessSet "vec'plutusDatums" (Data.Vector.Vector PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'plutusDatums"
-> (Vector PlutusData -> f (Vector PlutusData))
-> WitnessSet
-> f WitnessSet
fieldOf Proxy# "vec'plutusDatums"
_
    = ((Vector PlutusData -> f (Vector PlutusData))
 -> WitnessSet -> f WitnessSet)
-> ((Vector PlutusData -> f (Vector PlutusData))
    -> Vector PlutusData -> f (Vector PlutusData))
-> (Vector PlutusData -> f (Vector PlutusData))
-> WitnessSet
-> f WitnessSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WitnessSet -> Vector PlutusData)
-> (WitnessSet -> Vector PlutusData -> WitnessSet)
-> Lens
     WitnessSet WitnessSet (Vector PlutusData) (Vector PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WitnessSet -> Vector PlutusData
_WitnessSet'plutusDatums
           (\ WitnessSet
x__ Vector PlutusData
y__ -> WitnessSet
x__ {_WitnessSet'plutusDatums = y__}))
        (Vector PlutusData -> f (Vector PlutusData))
-> Vector PlutusData -> f (Vector PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WitnessSet where
  messageName :: Proxy WitnessSet -> Text
messageName Proxy WitnessSet
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.WitnessSet"
  packedMessageDescriptor :: Proxy WitnessSet -> ByteString
packedMessageDescriptor Proxy WitnessSet
_
    = ByteString
"\n\
      \\n\
      \WitnessSet\DC2F\n\
      \\vvkeywitness\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.cardano.VKeyWitnessR\vvkeywitness\DC27\n\
      \\ACKscript\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\DC2H\n\
      \\rplutus_datums\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\fplutusDatums"
  packedFileDescriptor :: Proxy WitnessSet -> ByteString
packedFileDescriptor Proxy WitnessSet
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WitnessSet)
fieldsByTag
    = let
        vkeywitness__field_descriptor :: FieldDescriptor WitnessSet
vkeywitness__field_descriptor
          = String
-> FieldTypeDescriptor VKeyWitness
-> FieldAccessor WitnessSet VKeyWitness
-> FieldDescriptor WitnessSet
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"vkeywitness"
              (MessageOrGroup -> FieldTypeDescriptor VKeyWitness
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor VKeyWitness)
              (Packing
-> Lens' WitnessSet [VKeyWitness]
-> FieldAccessor WitnessSet VKeyWitness
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 @"vkeywitness")) ::
              Data.ProtoLens.FieldDescriptor WitnessSet
        script__field_descriptor :: FieldDescriptor WitnessSet
script__field_descriptor
          = String
-> FieldTypeDescriptor Script
-> FieldAccessor WitnessSet Script
-> FieldDescriptor WitnessSet
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"script"
              (MessageOrGroup -> FieldTypeDescriptor Script
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Script)
              (Packing
-> Lens' WitnessSet [Script] -> FieldAccessor WitnessSet 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 @"script")) ::
              Data.ProtoLens.FieldDescriptor WitnessSet
        plutusDatums__field_descriptor :: FieldDescriptor WitnessSet
plutusDatums__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor WitnessSet PlutusData
-> FieldDescriptor WitnessSet
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_datums"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Packing
-> Lens' WitnessSet [PlutusData]
-> FieldAccessor WitnessSet 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 @"plutusDatums")) ::
              Data.ProtoLens.FieldDescriptor WitnessSet
      in
        [(Tag, FieldDescriptor WitnessSet)]
-> Map Tag (FieldDescriptor WitnessSet)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WitnessSet
vkeywitness__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WitnessSet
script__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WitnessSet
plutusDatums__field_descriptor)]
  unknownFields :: Lens' WitnessSet FieldSet
unknownFields
    = (WitnessSet -> FieldSet)
-> (WitnessSet -> FieldSet -> WitnessSet)
-> Lens' WitnessSet FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WitnessSet -> FieldSet
_WitnessSet'_unknownFields
        (\ WitnessSet
x__ FieldSet
y__ -> WitnessSet
x__ {_WitnessSet'_unknownFields = y__})
  defMessage :: WitnessSet
defMessage
    = WitnessSet'_constructor
        {_WitnessSet'vkeywitness :: Vector VKeyWitness
_WitnessSet'vkeywitness = Vector VKeyWitness
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _WitnessSet'script :: Vector Script
_WitnessSet'script = Vector Script
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _WitnessSet'plutusDatums :: Vector PlutusData
_WitnessSet'plutusDatums = Vector PlutusData
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _WitnessSet'_unknownFields :: FieldSet
_WitnessSet'_unknownFields = []}
  parseMessage :: Parser WitnessSet
parseMessage
    = let
        loop ::
          WitnessSet
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script
                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld VKeyWitness
                   -> Data.ProtoLens.Encoding.Bytes.Parser WitnessSet
        loop :: WitnessSet
-> Growing Vector RealWorld PlutusData
-> Growing Vector RealWorld Script
-> Growing Vector RealWorld VKeyWitness
-> Parser WitnessSet
loop WitnessSet
x Growing Vector RealWorld PlutusData
mutable'plutusDatums Growing Vector RealWorld Script
mutable'script Growing Vector RealWorld VKeyWitness
mutable'vkeywitness
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector PlutusData
frozen'plutusDatums <- IO (Vector PlutusData) -> Parser (Vector PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               (Growing Vector (PrimState IO) PlutusData -> IO (Vector PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                  Growing Vector RealWorld PlutusData
Growing Vector (PrimState IO) PlutusData
mutable'plutusDatums)
                      Vector Script
frozen'script <- IO (Vector Script) -> Parser (Vector Script)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) Script -> IO (Vector Script)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld Script
Growing Vector (PrimState IO) Script
mutable'script)
                      Vector VKeyWitness
frozen'vkeywitness <- IO (Vector VKeyWitness) -> Parser (Vector VKeyWitness)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                              (Growing Vector (PrimState IO) VKeyWitness
-> IO (Vector VKeyWitness)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                 Growing Vector RealWorld VKeyWitness
Growing Vector (PrimState IO) VKeyWitness
mutable'vkeywitness)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  String
"Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      WitnessSet -> Parser WitnessSet
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter WitnessSet WitnessSet FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WitnessSet -> WitnessSet
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f WitnessSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WitnessSet FieldSet
Setter WitnessSet WitnessSet FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  WitnessSet WitnessSet (Vector PlutusData) (Vector PlutusData)
-> Vector PlutusData -> WitnessSet -> WitnessSet
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 @"vec'plutusDatums")
                              Vector PlutusData
frozen'plutusDatums
                              (Setter WitnessSet WitnessSet (Vector Script) (Vector Script)
-> Vector Script -> WitnessSet -> WitnessSet
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 @"vec'script") Vector Script
frozen'script
                                 (Setter
  WitnessSet WitnessSet (Vector VKeyWitness) (Vector VKeyWitness)
-> Vector VKeyWitness -> WitnessSet -> WitnessSet
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 @"vec'vkeywitness")
                                    Vector VKeyWitness
frozen'vkeywitness WitnessSet
x))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !VKeyWitness
y <- Parser VKeyWitness -> String -> Parser VKeyWitness
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser VKeyWitness -> Parser VKeyWitness
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser VKeyWitness
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"vkeywitness"
                                Growing Vector RealWorld VKeyWitness
v <- IO (Growing Vector RealWorld VKeyWitness)
-> Parser (Growing Vector RealWorld VKeyWitness)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) VKeyWitness
-> VKeyWitness -> IO (Growing Vector (PrimState IO) VKeyWitness)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld VKeyWitness
Growing Vector (PrimState IO) VKeyWitness
mutable'vkeywitness VKeyWitness
y)
                                WitnessSet
-> Growing Vector RealWorld PlutusData
-> Growing Vector RealWorld Script
-> Growing Vector RealWorld VKeyWitness
-> Parser WitnessSet
loop WitnessSet
x Growing Vector RealWorld PlutusData
mutable'plutusDatums Growing Vector RealWorld Script
mutable'script Growing Vector RealWorld VKeyWitness
v
                        Word64
18
                          -> do !Script
y <- Parser Script -> String -> Parser Script
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Script -> Parser Script
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Script
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"script"
                                Growing Vector RealWorld Script
v <- IO (Growing Vector RealWorld Script)
-> Parser (Growing Vector RealWorld Script)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Script
-> Script -> IO (Growing Vector (PrimState IO) Script)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Script
Growing Vector (PrimState IO) Script
mutable'script Script
y)
                                WitnessSet
-> Growing Vector RealWorld PlutusData
-> Growing Vector RealWorld Script
-> Growing Vector RealWorld VKeyWitness
-> Parser WitnessSet
loop WitnessSet
x Growing Vector RealWorld PlutusData
mutable'plutusDatums Growing Vector RealWorld Script
v Growing Vector RealWorld VKeyWitness
mutable'vkeywitness
                        Word64
26
                          -> do !PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"plutus_datums"
                                Growing Vector RealWorld PlutusData
v <- IO (Growing Vector RealWorld PlutusData)
-> Parser (Growing Vector RealWorld PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) PlutusData
-> PlutusData -> IO (Growing Vector (PrimState IO) PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld PlutusData
Growing Vector (PrimState IO) PlutusData
mutable'plutusDatums PlutusData
y)
                                WitnessSet
-> Growing Vector RealWorld PlutusData
-> Growing Vector RealWorld Script
-> Growing Vector RealWorld VKeyWitness
-> Parser WitnessSet
loop WitnessSet
x Growing Vector RealWorld PlutusData
v Growing Vector RealWorld Script
mutable'script Growing Vector RealWorld VKeyWitness
mutable'vkeywitness
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                WitnessSet
-> Growing Vector RealWorld PlutusData
-> Growing Vector RealWorld Script
-> Growing Vector RealWorld VKeyWitness
-> Parser WitnessSet
loop
                                  (Setter WitnessSet WitnessSet FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WitnessSet -> WitnessSet
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f WitnessSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WitnessSet FieldSet
Setter WitnessSet WitnessSet FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WitnessSet
x)
                                  Growing Vector RealWorld PlutusData
mutable'plutusDatums Growing Vector RealWorld Script
mutable'script Growing Vector RealWorld VKeyWitness
mutable'vkeywitness
      in
        Parser WitnessSet -> String -> Parser WitnessSet
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld PlutusData
mutable'plutusDatums <- 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
              Growing Vector RealWorld Script
mutable'script <- IO (Growing Vector RealWorld Script)
-> Parser (Growing Vector RealWorld Script)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Script)
IO (Growing Vector (PrimState IO) Script)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld VKeyWitness
mutable'vkeywitness <- IO (Growing Vector RealWorld VKeyWitness)
-> Parser (Growing Vector RealWorld VKeyWitness)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       IO (Growing Vector RealWorld VKeyWitness)
IO (Growing Vector (PrimState IO) VKeyWitness)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              WitnessSet
-> Growing Vector RealWorld PlutusData
-> Growing Vector RealWorld Script
-> Growing Vector RealWorld VKeyWitness
-> Parser WitnessSet
loop
                WitnessSet
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld PlutusData
mutable'plutusDatums Growing Vector RealWorld Script
mutable'script
                Growing Vector RealWorld VKeyWitness
mutable'vkeywitness)
          String
"WitnessSet"
  buildMessage :: WitnessSet -> Builder
buildMessage
    = \ WitnessSet
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((VKeyWitness -> Builder) -> Vector VKeyWitness -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ VKeyWitness
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (VKeyWitness -> ByteString) -> VKeyWitness -> 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))
                           VKeyWitness -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage VKeyWitness
_v))
                (FoldLike
  (Vector VKeyWitness)
  WitnessSet
  WitnessSet
  (Vector VKeyWitness)
  (Vector VKeyWitness)
-> WitnessSet -> Vector VKeyWitness
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'vkeywitness") WitnessSet
_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)
  WitnessSet
  WitnessSet
  (Vector Script)
  (Vector Script)
-> WitnessSet -> 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'script") WitnessSet
_x))
                (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)
  WitnessSet
  WitnessSet
  (Vector PlutusData)
  (Vector PlutusData)
-> WitnessSet -> 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'plutusDatums") WitnessSet
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet WitnessSet WitnessSet FieldSet FieldSet
-> WitnessSet -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet WitnessSet WitnessSet FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WitnessSet FieldSet
Data.ProtoLens.unknownFields WitnessSet
_x))))
instance Control.DeepSeq.NFData WitnessSet where
  rnf :: WitnessSet -> ()
rnf
    = \ WitnessSet
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WitnessSet -> FieldSet
_WitnessSet'_unknownFields WitnessSet
x__)
             (Vector VKeyWitness -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WitnessSet -> Vector VKeyWitness
_WitnessSet'vkeywitness WitnessSet
x__)
                (Vector Script -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (WitnessSet -> Vector Script
_WitnessSet'script WitnessSet
x__)
                   (Vector PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WitnessSet -> Vector PlutusData
_WitnessSet'plutusDatums WitnessSet
x__) ())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \%utxorpc/v1alpha/cardano/cardano.proto\DC2\ETButxorpc.v1alpha.cardano\"\137\SOH\n\
    \\bRedeemer\DC2B\n\
    \\apurpose\CAN\SOH \SOH(\SO2(.utxorpc.v1alpha.cardano.RedeemerPurposeR\apurpose\DC29\n\
    \\ENQdatum\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum\"\196\SOH\n\
    \\aTxInput\DC2\ETB\n\
    \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\
    \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2>\n\
    \\tas_output\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\basOutput\DC2=\n\
    \\bredeemer\CAN\EOT \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer\"\136\STX\n\
    \\bTxOutput\DC2\CAN\n\
    \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC2\DC2\n\
    \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2;\n\
    \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\ACKassets\DC29\n\
    \\ENQdatum\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum\DC2\GS\n\
    \\n\
    \datum_hash\CAN\ENQ \SOH(\fR\tdatumHash\DC27\n\
    \\ACKscript\CAN\ACK \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\"Y\n\
    \\ENQAsset\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\US\n\
    \\voutput_coin\CAN\STX \SOH(\EOTR\n\
    \outputCoin\DC2\ESC\n\
    \\tmint_coin\CAN\ETX \SOH(\ETXR\bmintCoin\"a\n\
    \\n\
    \Multiasset\DC2\ESC\n\
    \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC26\n\
    \\ACKassets\CAN\STX \ETX(\v2\RS.utxorpc.v1alpha.cardano.AssetR\ACKassets\"4\n\
    \\n\
    \TxValidity\DC2\DC4\n\
    \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\
    \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl\"\201\SOH\n\
    \\n\
    \Collateral\DC2@\n\
    \\n\
    \collateral\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\n\
    \collateral\DC2N\n\
    \\DC1collateral_return\CAN\STX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\DLEcollateralReturn\DC2)\n\
    \\DLEtotal_collateral\CAN\ETX \SOH(\EOTR\SItotalCollateral\"G\n\
    \\n\
    \Withdrawal\DC2%\n\
    \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC2\DC2\n\
    \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\"\215\SOH\n\
    \\n\
    \WitnessSet\DC2F\n\
    \\vvkeywitness\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.cardano.VKeyWitnessR\vvkeywitness\DC27\n\
    \\ACKscript\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\DC2H\n\
    \\rplutus_datums\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\fplutusDatums\"\131\SOH\n\
    \\aAuxData\DC2=\n\
    \\bmetadata\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.cardano.MetadataR\bmetadata\DC29\n\
    \\ascripts\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ascripts\"\225\ENQ\n\
    \\STXTx\DC28\n\
    \\ACKinputs\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\ACKinputs\DC2;\n\
    \\aoutputs\CAN\STX \ETX(\v2!.utxorpc.v1alpha.cardano.TxOutputR\aoutputs\DC2H\n\
    \\fcertificates\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.cardano.CertificateR\fcertificates\DC2E\n\
    \\vwithdrawals\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.cardano.WithdrawalR\vwithdrawals\DC27\n\
    \\EOTmint\CAN\ENQ \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\EOTmint\DC2K\n\
    \\DLEreference_inputs\CAN\ACK \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\SIreferenceInputs\DC2A\n\
    \\twitnesses\CAN\a \SOH(\v2#.utxorpc.v1alpha.cardano.WitnessSetR\twitnesses\DC2C\n\
    \\n\
    \collateral\CAN\b \SOH(\v2#.utxorpc.v1alpha.cardano.CollateralR\n\
    \collateral\DC2\DLE\n\
    \\ETXfee\CAN\t \SOH(\EOTR\ETXfee\DC2?\n\
    \\bvalidity\CAN\n\
    \ \SOH(\v2#.utxorpc.v1alpha.cardano.TxValidityR\bvalidity\DC2\RS\n\
    \\n\
    \successful\CAN\v \SOH(\bR\n\
    \successful\DC2>\n\
    \\tauxiliary\CAN\f \SOH(\v2 .utxorpc.v1alpha.cardano.AuxDataR\tauxiliary\DC2\DC2\n\
    \\EOThash\CAN\r \SOH(\fR\EOThash\"M\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\"8\n\
    \\tBlockBody\DC2+\n\
    \\STXtx\CAN\SOH \ETX(\v2\ESC.utxorpc.v1alpha.cardano.TxR\STXtx\"}\n\
    \\ENQBlock\DC2<\n\
    \\ACKheader\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.cardano.BlockHeaderR\ACKheader\DC26\n\
    \\EOTbody\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.BlockBodyR\EOTbody\"?\n\
    \\vVKeyWitness\DC2\DC2\n\
    \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\
    \\tsignature\CAN\STX \SOH(\fR\tsignature\"\128\ETX\n\
    \\fNativeScript\DC2%\n\
    \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\
    \\n\
    \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\
    \\n\
    \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\
    \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\
    \scriptNOfK\DC2'\n\
    \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\
    \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\
    \\rnative_script\"O\n\
    \\DLENativeScriptList\DC2;\n\
    \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems\"[\n\
    \\n\
    \ScriptNOfK\DC2\f\n\
    \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\
    \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts\"\128\SOH\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.v1alpha.cardano.PlutusDataR\ACKfields\"c\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\"\130\SOH\n\
    \\SOPlutusDataPair\DC25\n\
    \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\
    \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue\"\183\STX\n\
    \\n\
    \PlutusData\DC29\n\
    \\ACKconstr\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\
    \\ETXmap\CAN\STX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\
    \\abig_int\CAN\ETX \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\
    \\rbounded_bytes\CAN\EOT \SOH(\fH\NULR\fboundedBytes\DC2@\n\
    \\ENQarray\CAN\ENQ \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\
    \\vplutus_data\"N\n\
    \\rPlutusDataMap\DC2=\n\
    \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs\"L\n\
    \\SIPlutusDataArray\DC29\n\
    \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems\"\145\SOH\n\
    \\ACKScript\DC2?\n\
    \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\
    \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\
    \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2B\b\n\
    \\ACKscript\"\214\SOH\n\
    \\tMetadatum\DC2\DC2\n\
    \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\
    \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\
    \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2?\n\
    \\ENQarray\CAN\EOT \SOH(\v2'.utxorpc.v1alpha.cardano.MetadatumArrayH\NULR\ENQarray\DC29\n\
    \\ETXmap\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.MetadatumMapH\NULR\ETXmapB\v\n\
    \\tmetadatum\"J\n\
    \\SOMetadatumArray\DC28\n\
    \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQitems\"L\n\
    \\fMetadatumMap\DC2<\n\
    \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.cardano.MetadatumPairR\ENQpairs\"\DEL\n\
    \\rMetadatumPair\DC24\n\
    \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ETXkey\DC28\n\
    \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue\"Z\n\
    \\bMetadata\DC2\DC4\n\
    \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC28\n\
    \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue\"n\n\
    \\SIStakeCredential\DC2$\n\
    \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\
    \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\
    \scriptHashB\DC2\n\
    \\DLEstake_credential\"P\n\
    \\SORationalNumber\DC2\FS\n\
    \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\
    \\vdenominator\CAN\STX \SOH(\rR\vdenominator\"`\n\
    \\ENQRelay\DC2\DC3\n\
    \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\
    \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\
    \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\
    \\EOTport\CAN\EOT \SOH(\rR\EOTport\"4\n\
    \\fPoolMetadata\DC2\DLE\n\
    \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\
    \\EOThash\CAN\STX \SOH(\fR\EOThash\"\145\ENQ\n\
    \\vCertificate\DC2Y\n\
    \\DC2stake_registration\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2]\n\
    \\DC4stake_deregistration\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2Y\n\
    \\DLEstake_delegation\CAN\ETX \SOH(\v2,.utxorpc.v1alpha.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2\\\n\
    \\DC1pool_registration\CAN\EOT \SOH(\v2-.utxorpc.v1alpha.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2V\n\
    \\SIpool_retirement\CAN\ENQ \SOH(\v2+.utxorpc.v1alpha.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2i\n\
    \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v21.utxorpc.v1alpha.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2=\n\
    \\bmir_cert\CAN\a \SOH(\v2 .utxorpc.v1alpha.cardano.MirCertH\NULR\amirCertB\r\n\
    \\vcertificate\"\141\SOH\n\
    \\DC3StakeDelegationCert\DC2S\n\
    \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\
    \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\"\140\ETX\n\
    \\DC4PoolRegistrationCert\DC2\SUB\n\
    \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\
    \\vvrf_keyhash\CAN\STX \SOH(\fR\n\
    \vrfKeyhash\DC2\SYN\n\
    \\ACKpledge\CAN\ETX \SOH(\EOTR\ACKpledge\DC2\DC2\n\
    \\EOTcost\CAN\EOT \SOH(\EOTR\EOTcost\DC2?\n\
    \\ACKmargin\CAN\ENQ \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmargin\DC2%\n\
    \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\
    \\vpool_owners\CAN\a \ETX(\fR\n\
    \poolOwners\DC26\n\
    \\ACKrelays\CAN\b \ETX(\v2\RS.utxorpc.v1alpha.cardano.RelayR\ACKrelays\DC2J\n\
    \\rpool_metadata\CAN\t \SOH(\v2%.utxorpc.v1alpha.cardano.PoolMetadataR\fpoolMetadata\"M\n\
    \\DC2PoolRetirementCert\DC2!\n\
    \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\
    \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch\"\146\SOH\n\
    \\CANGenesisKeyDelegationCert\DC2!\n\
    \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\
    \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\
    \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\
    \vrfKeyhash\"\DEL\n\
    \\tMirTarget\DC2S\n\
    \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2\GS\n\
    \\n\
    \delta_coin\CAN\STX \SOH(\ETXR\tdeltaCoin\"\146\SOH\n\
    \\aMirCert\DC26\n\
    \\EOTfrom\CAN\SOH \SOH(\SO2\".utxorpc.v1alpha.cardano.MirSourceR\EOTfrom\DC22\n\
    \\STXto\CAN\STX \ETX(\v2\".utxorpc.v1alpha.cardano.MirTargetR\STXto\DC2\ESC\n\
    \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot\"\129\SOH\n\
    \\SOAddressPattern\DC2#\n\
    \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\
    \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\
    \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart\"J\n\
    \\fAssetPattern\DC2\ESC\n\
    \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\
    \\n\
    \asset_name\CAN\STX \SOH(\fR\tassetName\"\145\SOH\n\
    \\SITxOutputPattern\DC2A\n\
    \\aaddress\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\aaddress\DC2;\n\
    \\ENQasset\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\ENQasset\"\241\STX\n\
    \\tTxPattern\DC2D\n\
    \\bconsumes\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bconsumes\DC2D\n\
    \\bproduces\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bproduces\DC2H\n\
    \\vhas_address\CAN\ETX \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\n\
    \hasAddress\DC2F\n\
    \\vmoves_asset\CAN\EOT \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\
    \movesAsset\DC2F\n\
    \\vmints_asset\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\
    \mintsAsset\"7\n\
    \\aExUnits\DC2\DC4\n\
    \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\
    \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory\"\138\SOH\n\
    \\bExPrices\DC2=\n\
    \\ENQsteps\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ENQsteps\DC2?\n\
    \\ACKmemory\CAN\STX \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmemory\"=\n\
    \\SIProtocolVersion\DC2\DC4\n\
    \\ENQmajor\CAN\SOH \SOH(\rR\ENQmajor\DC2\DC4\n\
    \\ENQminor\CAN\STX \SOH(\rR\ENQminor\"\v\n\
    \\tCostModel\"\142\SOH\n\
    \\n\
    \CostModels\DC2?\n\
    \\tplutus_v1\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV1\DC2?\n\
    \\tplutus_v2\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV2\"\182\n\
    \\n\
    \\aPParams\DC2-\n\
    \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByte\DC2\RS\n\
    \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2.\n\
    \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficient\DC2(\n\
    \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstant\DC2-\n\
    \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\
    \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2*\n\
    \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDeposit\DC2!\n\
    \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDeposit\DC2=\n\
    \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\
    \\ETBdesired_number_of_pools\CAN\n\
    \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\
    \\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\
    \\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\
    \\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2\"\n\
    \\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCost\DC2S\n\
    \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2$\n\
    \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSize\DC23\n\
    \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentage\DC22\n\
    \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputs\DC2D\n\
    \\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\
    \costModels\DC29\n\
    \\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\
    \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\
    \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\"\GS\n\
    \\tEvalError\DC2\DLE\n\
    \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\GS\n\
    \\tEvalTrace\DC2\DLE\n\
    \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\207\SOH\n\
    \\ACKTxEval\DC2\DLE\n\
    \\ETXfee\CAN\SOH \SOH(\EOTR\ETXfee\DC2;\n\
    \\bex_units\CAN\STX \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\aexUnits\DC2:\n\
    \\ACKerrors\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.cardano.EvalErrorR\ACKerrors\DC2:\n\
    \\ACKtraces\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.cardano.EvalTraceR\ACKtraces*\162\SOH\n\
    \\SIRedeemerPurpose\DC2 \n\
    \\FSREDEEMER_PURPOSE_UNSPECIFIED\DLE\NUL\DC2\SUB\n\
    \\SYNREDEEMER_PURPOSE_SPEND\DLE\SOH\DC2\EM\n\
    \\NAKREDEEMER_PURPOSE_MINT\DLE\STX\DC2\EM\n\
    \\NAKREDEEMER_PURPOSE_CERT\DLE\ETX\DC2\ESC\n\
    \\ETBREDEEMER_PURPOSE_REWARD\DLE\EOT*Y\n\
    \\tMirSource\DC2\SUB\n\
    \\SYNMIR_SOURCE_UNSPECIFIED\DLE\NUL\DC2\ETB\n\
    \\DC3MIR_SOURCE_RESERVES\DLE\SOH\DC2\ETB\n\
    \\DC3MIR_SOURCE_TREASURY\DLE\STXB\224\SOH\n\
    \\ESCcom.utxorpc.v1alpha.cardanoB\fCardanoProtoP\SOHZ5github.com/utxorpc/go-codegen/utxorpc/v1alpha/cardano\162\STX\ETXUVC\170\STX\ETBUtxorpc.V1alpha.Cardano\202\STX\ETBUtxorpc\\V1alpha\\Cardano\226\STX#Utxorpc\\V1alpha\\Cardano\\GPBMetadata\234\STX\EMUtxorpc::V1alpha::CardanoJ\139\150\SOH\n\
    \\a\DC2\ENQ\NUL\NUL\160\ETX\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL \n\
    \7\n\
    \\STX\ENQ\NUL\DC2\EOT\ENQ\NUL\v\SOH\SUB+ Purpose of the redeemer in a transaction.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ENQ\NUL\SOH\DC2\ETX\ENQ\ENQ\DC4\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX\ACK\STX#\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX\ACK\STX\RS\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX\ACK!\"\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX\a\STX\GS\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX\a\STX\CAN\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX\a\ESC\FS\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\STX\DC2\ETX\b\STX\FS\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX\b\STX\ETB\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX\b\SUB\ESC\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\ETX\DC2\ETX\t\STX\FS\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\t\STX\ETB\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\t\SUB\ESC\n\
    \\v\n\
    \\EOT\ENQ\NUL\STX\EOT\DC2\ETX\n\
    \\STX\RS\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX\n\
    \\STX\EM\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX\n\
    \\FS\GS\n\
    \7\n\
    \\STX\EOT\NUL\DC2\EOT\SO\NUL\DC1\SOH\SUB+ Redeemer information for a Plutus script.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\SO\b\DLE\n\
    \'\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\STX\RS\"\SUB Purpose of the redeemer.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\SI\STX\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\DC2\EM\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\FS\GS\n\
    \8\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DLE\STX\ETB\"+ Plutus data associated with the redeemer.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\DLE\STX\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DLE\r\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DLE\NAK\SYN\n\
    \G\n\
    \\STX\EOT\SOH\DC2\EOT\DC4\NUL\EM\SOH\SUB; Represents a transaction input in the Cardano blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\DC4\b\SI\n\
    \0\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\NAK\STX\DC4\"# Hash of the previous transaction.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\NAK\STX\a\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\NAK\b\SI\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\NAK\DC2\DC3\n\
    \?\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\SYN\STX\SUB\"2 Index of the output in the previous transaction.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\SYN\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\SYN\t\NAK\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\SYN\CAN\EM\n\
    \T\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX\ETB\STX\EM\"G Content of the input represented as output of the related transaction\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\ETB\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\ETB\v\DC4\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\ETB\ETB\CAN\n\
    \.\n\
    \\EOT\EOT\SOH\STX\ETX\DC2\ETX\CAN\STX\CAN\"! Redeemer for the Plutus script.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX\CAN\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\CAN\v\DC3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\CAN\SYN\ETB\n\
    \H\n\
    \\STX\EOT\STX\DC2\EOT\FS\NUL#\SOH\SUB< Represents a transaction output in the Cardano blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\FS\b\DLE\n\
    \,\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX\GS\STX\DC4\"\US Address receiving the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\GS\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\GS\b\SI\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\GS\DC2\DC3\n\
    \+\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX\RS\STX\DC2\"\RS Amount of ADA in the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\RS\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\RS\t\r\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\RS\DLE\DC1\n\
    \@\n\
    \\EOT\EOT\STX\STX\STX\DC2\ETX\US\STX!\"3 Additional native (non-ADA) assets in the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\EOT\DC2\ETX\US\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ACK\DC2\ETX\US\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX\US\SYN\FS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX\US\US \n\
    \6\n\
    \\EOT\EOT\STX\STX\ETX\DC2\ETX \STX\ETB\") Plutus data associated with the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETX \STX\f\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX \r\DC2\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX \NAK\SYN\n\
    \'\n\
    \\EOT\EOT\STX\STX\EOT\DC2\ETX!\STX\ETB\"\SUB Hash of the Plutus data.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\ENQ\DC2\ETX!\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETX!\b\DC2\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETX!\NAK\SYN\n\
    \1\n\
    \\EOT\EOT\STX\STX\ENQ\DC2\ETX\"\STX\DC4\"$ Script associated with the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\ACK\DC2\ETX\"\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\SOH\DC2\ETX\"\t\SI\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\ETX\DC2\ETX\"\DC2\DC3\n\
    \B\n\
    \\STX\EOT\ETX\DC2\EOT&\NUL*\SOH\SUB6 Represents a custom asset in the Cardano blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX&\b\r\n\
    \(\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX'\STX\DC1\"\ESC Name of the custom asset.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX'\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX'\b\f\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX'\SI\DLE\n\
    \A\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX(\STX\EM\"4 Quantity of the custom asset in case of an output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX(\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX(\t\DC4\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX(\ETB\CAN\n\
    \>\n\
    \\EOT\EOT\ETX\STX\STX\DC2\ETX)\STX\SYN\"1 Quantity of the custom asset in case of a mint.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX)\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX)\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX)\DC4\NAK\n\
    \G\n\
    \\STX\EOT\EOT\DC2\EOT-\NUL0\SOH\SUB; Represents a multi-asset group in the Cardano blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETX-\b\DC2\n\
    \5\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETX.\STX\SYN\"( Policy ID governing the custom assets.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX.\STX\a\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX.\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX.\DC4\NAK\n\
    \%\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\ETX/\STX\FS\"\CAN List of custom assets.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\EOT\DC2\ETX/\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX/\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX/\DC1\ETB\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX/\SUB\ESC\n\
    \@\n\
    \\STX\EOT\ENQ\DC2\EOT3\NUL6\SOH\SUB4 Represents the validity interval of a transaction.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX3\b\DC2\n\
    \.\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX4\STX\DC3\"! Start of the validity interval.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX4\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX4\t\SO\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX4\DC1\DC2\n\
    \@\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETX5\STX\DC1\"3 End of the validity interval (TTL: Time to Live).\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETX5\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX5\t\f\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX5\SI\DLE\n\
    \F\n\
    \\STX\EOT\ACK\DC2\EOT9\NUL=\SOH\SUB: Represents the collateral information for a transaction.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETX9\b\DC2\n\
    \5\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETX:\STX\"\"( Collateral inputs for the transaction.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX:\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX:\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX:\DC3\GS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX: !\n\
    \;\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETX;\STX!\". Collateral return in case of script failure.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX;\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX;\v\FS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX;\US \n\
    \*\n\
    \\EOT\EOT\ACK\STX\STX\DC2\ETX<\STX\RS\"\GS Total amount of collateral.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETX<\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX<\t\EM\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX<\FS\GS\n\
    \<\n\
    \\STX\EOT\a\DC2\EOT@\NULC\SOH\SUB0 Represents a withdrawal from a reward account.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETX@\b\DC2\n\
    \-\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETXA\STX\ESC\"  Address of the reward account.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXA\STX\a\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXA\b\SYN\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXA\EM\SUB\n\
    \'\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETXB\STX\DC2\"\SUB Amount of ADA withdrawn.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETXB\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXB\t\r\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXB\DLE\DC1\n\
    \G\n\
    \\STX\EOT\b\DC2\EOTF\NULJ\SOH\SUB; Represents a set of witnesses that validate a transaction\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETXF\b\DC2\n\
    \&\n\
    \\EOT\EOT\b\STX\NUL\DC2\ETXG\STX'\"\EM List of VKey witnesses.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\EOT\DC2\ETXG\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXG\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXG\ETB\"\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXG%&\n\
    \\US\n\
    \\EOT\EOT\b\STX\SOH\DC2\ETXH\STX\GS\"\DC2 List of scripts.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\EOT\DC2\ETXH\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXH\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXH\DC2\CAN\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXH\ESC\FS\n\
    \L\n\
    \\EOT\EOT\b\STX\STX\DC2\ETXI\STX(\"? List of Plutus data elements associated with the transaction.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\EOT\DC2\ETXI\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ACK\DC2\ETXI\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXI\SYN#\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXI&'\n\
    \H\n\
    \\STX\EOT\t\DC2\EOTM\NULP\SOH\SUB< Auxiliary data not directly tied to the validation process\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETXM\b\SI\n\
    \3\n\
    \\EOT\EOT\t\STX\NUL\DC2\ETXN\STX!\"& List of auxiliary metadata elements.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXN\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXN\v\DC3\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXN\DC4\FS\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXN\US \n\
    \)\n\
    \\EOT\EOT\t\STX\SOH\DC2\ETXO\STX\RS\"\FS List of auxiliary scripts.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\EOT\DC2\ETXO\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXO\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXO\DC2\EM\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXO\FS\GS\n\
    \A\n\
    \\STX\EOT\n\
    \\DC2\EOTS\NULa\SOH\SUB5 Represents a transaction in the Cardano blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\n\
    \\SOH\DC2\ETXS\b\n\
    \\n\
    \)\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\ETXT\STX\RS\"\FS List of transaction inputs\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\EOT\DC2\ETXT\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ACK\DC2\ETXT\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\ETXT\DC3\EM\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\ETXT\FS\GS\n\
    \*\n\
    \\EOT\EOT\n\
    \\STX\SOH\DC2\ETXU\STX \"\GS List of transaction outputs\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\EOT\DC2\ETXU\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ACK\DC2\ETXU\v\DC3\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\SOH\DC2\ETXU\DC4\ESC\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ETX\DC2\ETXU\RS\US\n\
    \#\n\
    \\EOT\EOT\n\
    \\STX\STX\DC2\ETXV\STX(\"\SYN List of certificates\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\STX\EOT\DC2\ETXV\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\STX\ACK\DC2\ETXV\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\STX\SOH\DC2\ETXV\ETB#\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\STX\ETX\DC2\ETXV&'\n\
    \\"\n\
    \\EOT\EOT\n\
    \\STX\ETX\DC2\ETXW\STX&\"\NAK List of withdrawals\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ETX\EOT\DC2\ETXW\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ETX\ACK\DC2\ETXW\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ETX\SOH\DC2\ETXW\SYN!\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ETX\ETX\DC2\ETXW$%\n\
    \+\n\
    \\EOT\EOT\n\
    \\STX\EOT\DC2\ETXX\STX\US\"\RS List of minted custom assets\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\EOT\EOT\DC2\ETXX\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\EOT\ACK\DC2\ETXX\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\EOT\SOH\DC2\ETXX\SYN\SUB\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\EOT\ETX\DC2\ETXX\GS\RS\n\
    \'\n\
    \\EOT\EOT\n\
    \\STX\ENQ\DC2\ETXY\STX(\"\SUB List of reference inputs\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ENQ\EOT\DC2\ETXY\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ENQ\ACK\DC2\ETXY\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ENQ\SOH\DC2\ETXY\DC3#\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ENQ\ETX\DC2\ETXY&'\n\
    \5\n\
    \\EOT\EOT\n\
    \\STX\ACK\DC2\ETXZ\STX\ESC\"( Witnesses that validte the transaction\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ACK\ACK\DC2\ETXZ\STX\f\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ACK\SOH\DC2\ETXZ\r\SYN\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\ACK\ETX\DC2\ETXZ\EM\SUB\n\
    \?\n\
    \\EOT\EOT\n\
    \\STX\a\DC2\ETX[\STX\FS\"2 Collateral details in case of failed transaction\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\a\ACK\DC2\ETX[\STX\f\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\a\SOH\DC2\ETX[\r\ETB\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\a\ETX\DC2\ETX[\SUB\ESC\n\
    \%\n\
    \\EOT\EOT\n\
    \\STX\b\DC2\ETX\\\STX\DC1\"\CAN Transaction fee in ADA\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\b\ENQ\DC2\ETX\\\STX\b\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\b\SOH\DC2\ETX\\\t\f\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\b\ETX\DC2\ETX\\\SI\DLE\n\
    \3\n\
    \\EOT\EOT\n\
    \\STX\t\DC2\ETX]\STX\ESC\"& Validity interval of the transaction\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\t\ACK\DC2\ETX]\STX\f\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\t\SOH\DC2\ETX]\r\NAK\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\t\ETX\DC2\ETX]\CAN\SUB\n\
    \E\n\
    \\EOT\EOT\n\
    \\STX\n\
    \\DC2\ETX^\STX\ETB\"8 Flag indicating whether the transaction was successful\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\n\
    \\ENQ\DC2\ETX^\STX\ACK\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\n\
    \\SOH\DC2\ETX^\a\DC1\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\n\
    \\ETX\DC2\ETX^\DC4\SYN\n\
    \I\n\
    \\EOT\EOT\n\
    \\STX\v\DC2\ETX_\STX\EM\"< Auxiliary data not directly tied to the validation process\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\v\ACK\DC2\ETX_\STX\t\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\v\SOH\DC2\ETX_\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\v\ETX\DC2\ETX_\SYN\CAN\n\
    \E\n\
    \\EOT\EOT\n\
    \\STX\f\DC2\ETX`\STX\DC2\"8 Hash of the transaction that serves as main identifier\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\f\ENQ\DC2\ETX`\STX\a\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\f\SOH\DC2\ETX`\b\f\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\f\ETX\DC2\ETX`\SI\DC1\n\
    \:\n\
    \\STX\EOT\v\DC2\EOTd\NULh\SOH\SUB. Contains the header information for a block.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\v\SOH\DC2\ETXd\b\DC3\n\
    \\ESC\n\
    \\EOT\EOT\v\STX\NUL\DC2\ETXe\STX\DC2\"\SO Slot number.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ENQ\DC2\ETXe\STX\b\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXe\t\r\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXe\DLE\DC1\n\
    \\SUB\n\
    \\EOT\EOT\v\STX\SOH\DC2\ETXf\STX\DC1\"\r Block hash.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\ENQ\DC2\ETXf\STX\a\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXf\b\f\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXf\SI\DLE\n\
    \\FS\n\
    \\EOT\EOT\v\STX\STX\DC2\ETXg\STX\DC4\"\SI Block height.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\STX\ENQ\DC2\ETXg\STX\b\n\
    \\f\n\
    \\ENQ\EOT\v\STX\STX\SOH\DC2\ETXg\t\SI\n\
    \\f\n\
    \\ENQ\EOT\v\STX\STX\ETX\DC2\ETXg\DC2\DC3\n\
    \8\n\
    \\STX\EOT\f\DC2\EOTk\NULm\SOH\SUB, Contains the transaction data for a block.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\f\SOH\DC2\ETXk\b\DC1\n\
    \$\n\
    \\EOT\EOT\f\STX\NUL\DC2\ETXl\STX\NAK\"\ETB List of transactions.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXl\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXl\v\r\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXl\SO\DLE\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXl\DC3\DC4\n\
    \E\n\
    \\STX\EOT\r\DC2\EOTp\NULs\SOH\SUB9 Represents a complete block, including header and body.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\r\SOH\DC2\ETXp\b\r\n\
    \\FS\n\
    \\EOT\EOT\r\STX\NUL\DC2\ETXq\STX\EM\"\SI Block header.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXq\STX\r\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXq\SO\DC4\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXq\ETB\CAN\n\
    \\SUB\n\
    \\EOT\EOT\r\STX\SOH\DC2\ETXr\STX\NAK\"\r Block body.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\ACK\DC2\ETXr\STX\v\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETXr\f\DLE\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETXr\DC3\DC4\n\
    \C\n\
    \\STX\EOT\SO\DC2\EOTv\NULy\SOH\SUB7 Represents a VKey witness used to sign a transaction.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SO\SOH\DC2\ETXv\b\DC3\n\
    \ \n\
    \\EOT\EOT\SO\STX\NUL\DC2\ETXw\STX\DC1\"\DC3 Verification key.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ENQ\DC2\ETXw\STX\a\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXw\b\f\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXw\SI\DLE\n\
    \D\n\
    \\EOT\EOT\SO\STX\SOH\DC2\ETXx\STX\SYN\"7 Signature generated using the associated private key.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\ENQ\DC2\ETXx\STX\a\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXx\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXx\DC4\NAK\n\
    \5\n\
    \\STX\EOT\SI\DC2\ENQ|\NUL\133\SOH\SOH\SUB( Represents a native script in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SI\SOH\DC2\ETX|\b\DC4\n\
    \\r\n\
    \\EOT\EOT\SI\b\NUL\DC2\ENQ}\STX\132\SOH\ETX\n\
    \\f\n\
    \\ENQ\EOT\SI\b\NUL\SOH\DC2\ETX}\b\NAK\n\
    \3\n\
    \\EOT\EOT\SI\STX\NUL\DC2\ETX~\EOT\FS\"& Script based on an address key hash.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\ETX~\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\SOH\DC2\ETX~\n\
    \\ETB\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\ETX\DC2\ETX~\SUB\ESC\n\
    \G\n\
    \\EOT\EOT\SI\STX\SOH\DC2\ETX\DEL\EOT$\": Script that requires all nested scripts to be satisfied.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\SOH\ACK\DC2\ETX\DEL\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\SOH\SOH\DC2\ETX\DEL\NAK\US\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\SOH\ETX\DC2\ETX\DEL\"#\n\
    \O\n\
    \\EOT\EOT\SI\STX\STX\DC2\EOT\128\SOH\EOT$\"A Script that requires any of the nested scripts to be satisfied.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\STX\ACK\DC2\EOT\128\SOH\EOT\DC4\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\STX\SOH\DC2\EOT\128\SOH\NAK\US\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\STX\ETX\DC2\EOT\128\SOH\"#\n\
    \O\n\
    \\EOT\EOT\SI\STX\ETX\DC2\EOT\129\SOH\EOT!\"A Script that requires k out of n nested scripts to be satisfied.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\ETX\ACK\DC2\EOT\129\SOH\EOT\SO\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\ETX\SOH\DC2\EOT\129\SOH\SI\FS\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\ETX\ETX\DC2\EOT\129\SOH\US \n\
    \?\n\
    \\EOT\EOT\SI\STX\EOT\DC2\EOT\130\SOH\EOT\RS\"1 Slot number before which the script is invalid.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\EOT\ENQ\DC2\EOT\130\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\EOT\SOH\DC2\EOT\130\SOH\v\EM\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\EOT\ETX\DC2\EOT\130\SOH\FS\GS\n\
    \>\n\
    \\EOT\EOT\SI\STX\ENQ\DC2\EOT\131\SOH\EOT!\"0 Slot number after which the script is invalid.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\ENQ\ENQ\DC2\EOT\131\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\ENQ\SOH\DC2\EOT\131\SOH\v\FS\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\ENQ\ETX\DC2\EOT\131\SOH\US \n\
    \4\n\
    \\STX\EOT\DLE\DC2\ACK\136\SOH\NUL\138\SOH\SOH\SUB& Represents a list of native scripts.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\DLE\SOH\DC2\EOT\136\SOH\b\CAN\n\
    \'\n\
    \\EOT\EOT\DLE\STX\NUL\DC2\EOT\137\SOH\STX\"\"\EM List of native scripts.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\EOT\DC2\EOT\137\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\137\SOH\v\ETB\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\137\SOH\CAN\GS\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\137\SOH !\n\
    \8\n\
    \\STX\EOT\DC1\DC2\ACK\141\SOH\NUL\144\SOH\SOH\SUB* Represents a \"k out of n\" native script.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\DC1\SOH\DC2\EOT\141\SOH\b\DC2\n\
    \9\n\
    \\EOT\EOT\DC1\STX\NUL\DC2\EOT\142\SOH\STX\SI\"+ The number of required satisfied scripts.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ENQ\DC2\EOT\142\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\142\SOH\t\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\142\SOH\r\SO\n\
    \'\n\
    \\EOT\EOT\DC1\STX\SOH\DC2\EOT\143\SOH\STX$\"\EM List of native scripts.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\EOT\DC2\EOT\143\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\143\SOH\v\ETB\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\143\SOH\CAN\US\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\143\SOH\"#\n\
    \D\n\
    \\STX\EOT\DC2\DC2\ACK\147\SOH\NUL\151\SOH\SOH\SUB6 Represents a constructor for Plutus data in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\DC2\SOH\DC2\EOT\147\SOH\b\SO\n\
    \\f\n\
    \\EOT\EOT\DC2\STX\NUL\DC2\EOT\148\SOH\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\148\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\148\SOH\t\f\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\148\SOH\SI\DLE\n\
    \\f\n\
    \\EOT\EOT\DC2\STX\SOH\DC2\EOT\149\SOH\STX\GS\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\SOH\ENQ\DC2\EOT\149\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\149\SOH\t\CAN\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\149\SOH\ESC\FS\n\
    \\f\n\
    \\EOT\EOT\DC2\STX\STX\DC2\EOT\150\SOH\STX!\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\STX\EOT\DC2\EOT\150\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\STX\ACK\DC2\EOT\150\SOH\v\NAK\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\STX\SOH\DC2\EOT\150\SOH\SYN\FS\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\STX\ETX\DC2\EOT\150\SOH\US \n\
    \D\n\
    \\STX\EOT\DC3\DC2\ACK\154\SOH\NUL\160\SOH\SOH\SUB6 Represents a big integer for Plutus data in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\DC3\SOH\DC2\EOT\154\SOH\b\SO\n\
    \\SO\n\
    \\EOT\EOT\DC3\b\NUL\DC2\ACK\155\SOH\STX\159\SOH\ETX\n\
    \\r\n\
    \\ENQ\EOT\DC3\b\NUL\SOH\DC2\EOT\155\SOH\b\SI\n\
    \\f\n\
    \\EOT\EOT\DC3\STX\NUL\DC2\EOT\156\SOH\EOT\DC2\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\156\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\156\SOH\n\
    \\r\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\156\SOH\DLE\DC1\n\
    \\f\n\
    \\EOT\EOT\DC3\STX\SOH\DC2\EOT\157\SOH\EOT\CAN\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\157\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\157\SOH\n\
    \\DC3\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\157\SOH\SYN\ETB\n\
    \\f\n\
    \\EOT\EOT\DC3\STX\STX\DC2\EOT\158\SOH\EOT\CAN\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\ENQ\DC2\EOT\158\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\SOH\DC2\EOT\158\SOH\n\
    \\DC3\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\ETX\DC2\EOT\158\SOH\SYN\ETB\n\
    \G\n\
    \\STX\EOT\DC4\DC2\ACK\163\SOH\NUL\166\SOH\SOH\SUB9 Represents a key-value pair for Plutus data in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\DC4\SOH\DC2\EOT\163\SOH\b\SYN\n\
    \ \n\
    \\EOT\EOT\DC4\STX\NUL\DC2\EOT\164\SOH\STX\NAK\"\DC2 Key of the pair.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ACK\DC2\EOT\164\SOH\STX\f\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\164\SOH\r\DLE\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\164\SOH\DC3\DC4\n\
    \\"\n\
    \\EOT\EOT\DC4\STX\SOH\DC2\EOT\165\SOH\STX\ETB\"\DC4 Value of the pair.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\ACK\DC2\EOT\165\SOH\STX\f\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\165\SOH\r\DC2\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\165\SOH\NAK\SYN\n\
    \9\n\
    \\STX\EOT\NAK\DC2\ACK\169\SOH\NUL\177\SOH\SOH\SUB+ Represents a Plutus data item in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\NAK\SOH\DC2\EOT\169\SOH\b\DC2\n\
    \\SO\n\
    \\EOT\EOT\NAK\b\NUL\DC2\ACK\170\SOH\STX\176\SOH\ETX\n\
    \\r\n\
    \\ENQ\EOT\NAK\b\NUL\SOH\DC2\EOT\170\SOH\b\DC3\n\
    \\FS\n\
    \\EOT\EOT\NAK\STX\NUL\DC2\EOT\171\SOH\EOT\SYN\"\SO Constructor.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ACK\DC2\EOT\171\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\171\SOH\v\DC1\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\171\SOH\DC4\NAK\n\
    \#\n\
    \\EOT\EOT\NAK\STX\SOH\DC2\EOT\172\SOH\EOT\SUB\"\NAK Map of Plutus data.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\ACK\DC2\EOT\172\SOH\EOT\DC1\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\172\SOH\DC2\NAK\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\172\SOH\CAN\EM\n\
    \\FS\n\
    \\EOT\EOT\NAK\STX\STX\DC2\EOT\173\SOH\EOT\ETB\"\SO Big integer.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\STX\ACK\DC2\EOT\173\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\STX\SOH\DC2\EOT\173\SOH\v\DC2\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\STX\ETX\DC2\EOT\173\SOH\NAK\SYN\n\
    \\RS\n\
    \\EOT\EOT\NAK\STX\ETX\DC2\EOT\174\SOH\EOT\FS\"\DLE Bounded bytes.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ETX\ENQ\DC2\EOT\174\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ETX\SOH\DC2\EOT\174\SOH\n\
    \\ETB\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ETX\ETX\DC2\EOT\174\SOH\SUB\ESC\n\
    \%\n\
    \\EOT\EOT\NAK\STX\EOT\DC2\EOT\175\SOH\EOT\RS\"\ETB Array of Plutus data.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\ACK\DC2\EOT\175\SOH\EOT\DC3\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\SOH\DC2\EOT\175\SOH\DC4\EM\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\ETX\DC2\EOT\175\SOH\FS\GS\n\
    \;\n\
    \\STX\EOT\SYN\DC2\ACK\180\SOH\NUL\182\SOH\SOH\SUB- Represents a map of Plutus data in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\SYN\SOH\DC2\EOT\180\SOH\b\NAK\n\
    \(\n\
    \\EOT\EOT\SYN\STX\NUL\DC2\EOT\181\SOH\STX$\"\SUB List of key-value pairs.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\EOT\DC2\EOT\181\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\ACK\DC2\EOT\181\SOH\v\EM\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\181\SOH\SUB\US\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\181\SOH\"#\n\
    \>\n\
    \\STX\EOT\ETB\DC2\ACK\185\SOH\NUL\187\SOH\SOH\SUB0 Represents an array of Plutus data in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\ETB\SOH\DC2\EOT\185\SOH\b\ETB\n\
    \*\n\
    \\EOT\EOT\ETB\STX\NUL\DC2\EOT\186\SOH\STX \"\FS List of Plutus data items.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\NUL\EOT\DC2\EOT\186\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\NUL\ACK\DC2\EOT\186\SOH\v\NAK\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\NUL\SOH\DC2\EOT\186\SOH\SYN\ESC\n\
    \\r\n\
    \\ENQ\EOT\ETB\STX\NUL\ETX\DC2\EOT\186\SOH\RS\US\n\
    \/\n\
    \\STX\EOT\CAN\DC2\ACK\190\SOH\NUL\196\SOH\SOH\SUB! Represents a script in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\CAN\SOH\DC2\EOT\190\SOH\b\SO\n\
    \\SO\n\
    \\EOT\EOT\CAN\b\NUL\DC2\ACK\191\SOH\STX\195\SOH\ETX\n\
    \\r\n\
    \\ENQ\EOT\CAN\b\NUL\SOH\DC2\EOT\191\SOH\b\SO\n\
    \\RS\n\
    \\EOT\EOT\CAN\STX\NUL\DC2\EOT\192\SOH\EOT\FS\"\DLE Native script.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\ACK\DC2\EOT\192\SOH\EOT\DLE\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\SOH\DC2\EOT\192\SOH\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\ETX\DC2\EOT\192\SOH\SUB\ESC\n\
    \!\n\
    \\EOT\EOT\CAN\STX\SOH\DC2\EOT\193\SOH\EOT\CAN\"\DC3 Plutus V1 script.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\ENQ\DC2\EOT\193\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\SOH\DC2\EOT\193\SOH\n\
    \\DC3\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\ETX\DC2\EOT\193\SOH\SYN\ETB\n\
    \!\n\
    \\EOT\EOT\CAN\STX\STX\DC2\EOT\194\SOH\EOT\CAN\"\DC3 Plutus V2 script.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\STX\ENQ\DC2\EOT\194\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\STX\SOH\DC2\EOT\194\SOH\n\
    \\DC3\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\STX\ETX\DC2\EOT\194\SOH\SYN\ETB\n\
    \\f\n\
    \\STX\EOT\EM\DC2\ACK\198\SOH\NUL\206\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\EM\SOH\DC2\EOT\198\SOH\b\DC1\n\
    \\SO\n\
    \\EOT\EOT\EM\b\NUL\DC2\ACK\199\SOH\STX\205\SOH\ETX\n\
    \\r\n\
    \\ENQ\EOT\EM\b\NUL\SOH\DC2\EOT\199\SOH\b\DC1\n\
    \\f\n\
    \\EOT\EOT\EM\STX\NUL\DC2\EOT\200\SOH\EOT\DC2\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\NUL\ENQ\DC2\EOT\200\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\NUL\SOH\DC2\EOT\200\SOH\n\
    \\r\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\NUL\ETX\DC2\EOT\200\SOH\DLE\DC1\n\
    \\f\n\
    \\EOT\EOT\EM\STX\SOH\DC2\EOT\201\SOH\EOT\DC4\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\SOH\ENQ\DC2\EOT\201\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\SOH\SOH\DC2\EOT\201\SOH\n\
    \\SI\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\SOH\ETX\DC2\EOT\201\SOH\DC2\DC3\n\
    \\f\n\
    \\EOT\EOT\EM\STX\STX\DC2\EOT\202\SOH\EOT\DC4\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\STX\ENQ\DC2\EOT\202\SOH\EOT\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\STX\SOH\DC2\EOT\202\SOH\v\SI\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\STX\ETX\DC2\EOT\202\SOH\DC2\DC3\n\
    \\f\n\
    \\EOT\EOT\EM\STX\ETX\DC2\EOT\203\SOH\EOT\GS\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\ETX\ACK\DC2\EOT\203\SOH\EOT\DC2\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\ETX\SOH\DC2\EOT\203\SOH\DC3\CAN\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\ETX\ETX\DC2\EOT\203\SOH\ESC\FS\n\
    \\f\n\
    \\EOT\EOT\EM\STX\EOT\DC2\EOT\204\SOH\EOT\EM\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\EOT\ACK\DC2\EOT\204\SOH\EOT\DLE\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\EOT\SOH\DC2\EOT\204\SOH\DC1\DC4\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\EOT\ETX\DC2\EOT\204\SOH\ETB\CAN\n\
    \\f\n\
    \\STX\EOT\SUB\DC2\ACK\208\SOH\NUL\210\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\SUB\SOH\DC2\EOT\208\SOH\b\SYN\n\
    \\f\n\
    \\EOT\EOT\SUB\STX\NUL\DC2\EOT\209\SOH\STX\US\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\NUL\EOT\DC2\EOT\209\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\NUL\ACK\DC2\EOT\209\SOH\v\DC4\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\NUL\SOH\DC2\EOT\209\SOH\NAK\SUB\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\NUL\ETX\DC2\EOT\209\SOH\GS\RS\n\
    \\f\n\
    \\STX\EOT\ESC\DC2\ACK\212\SOH\NUL\214\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\ESC\SOH\DC2\EOT\212\SOH\b\DC4\n\
    \\f\n\
    \\EOT\EOT\ESC\STX\NUL\DC2\EOT\213\SOH\STX#\n\
    \\r\n\
    \\ENQ\EOT\ESC\STX\NUL\EOT\DC2\EOT\213\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ESC\STX\NUL\ACK\DC2\EOT\213\SOH\v\CAN\n\
    \\r\n\
    \\ENQ\EOT\ESC\STX\NUL\SOH\DC2\EOT\213\SOH\EM\RS\n\
    \\r\n\
    \\ENQ\EOT\ESC\STX\NUL\ETX\DC2\EOT\213\SOH!\"\n\
    \\f\n\
    \\STX\EOT\FS\DC2\ACK\216\SOH\NUL\219\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\FS\SOH\DC2\EOT\216\SOH\b\NAK\n\
    \\f\n\
    \\EOT\EOT\FS\STX\NUL\DC2\EOT\217\SOH\STX\DC4\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\NUL\ACK\DC2\EOT\217\SOH\STX\v\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\NUL\SOH\DC2\EOT\217\SOH\f\SI\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\NUL\ETX\DC2\EOT\217\SOH\DC2\DC3\n\
    \\f\n\
    \\EOT\EOT\FS\STX\SOH\DC2\EOT\218\SOH\STX\SYN\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\SOH\ACK\DC2\EOT\218\SOH\STX\v\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\SOH\SOH\DC2\EOT\218\SOH\f\DC1\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\SOH\ETX\DC2\EOT\218\SOH\DC4\NAK\n\
    \\f\n\
    \\STX\EOT\GS\DC2\ACK\221\SOH\NUL\224\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\GS\SOH\DC2\EOT\221\SOH\b\DLE\n\
    \\f\n\
    \\EOT\EOT\GS\STX\NUL\DC2\EOT\222\SOH\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\NUL\ENQ\DC2\EOT\222\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\NUL\SOH\DC2\EOT\222\SOH\t\SO\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\NUL\ETX\DC2\EOT\222\SOH\DC1\DC2\n\
    \\f\n\
    \\EOT\EOT\GS\STX\SOH\DC2\EOT\223\SOH\STX\SYN\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\SOH\ACK\DC2\EOT\223\SOH\STX\v\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\SOH\SOH\DC2\EOT\223\SOH\f\DC1\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\SOH\ETX\DC2\EOT\223\SOH\DC4\NAK\n\
    \9\n\
    \\STX\EOT\RS\DC2\ACK\227\SOH\NUL\232\SOH\SOH\SUB+ Represents a stake credential in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\RS\SOH\DC2\EOT\227\SOH\b\ETB\n\
    \\SO\n\
    \\EOT\EOT\RS\b\NUL\DC2\ACK\228\SOH\STX\231\SOH\ETX\n\
    \\r\n\
    \\ENQ\EOT\RS\b\NUL\SOH\DC2\EOT\228\SOH\b\CAN\n\
    \!\n\
    \\EOT\EOT\RS\STX\NUL\DC2\EOT\229\SOH\EOT\FS\"\DC3 Address key hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\NUL\ENQ\DC2\EOT\229\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\NUL\SOH\DC2\EOT\229\SOH\n\
    \\ETB\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\NUL\ETX\DC2\EOT\229\SOH\SUB\ESC\n\
    \\FS\n\
    \\EOT\EOT\RS\STX\SOH\DC2\EOT\230\SOH\EOT\SUB\"\SO Script hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\SOH\ENQ\DC2\EOT\230\SOH\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\SOH\SOH\DC2\EOT\230\SOH\n\
    \\NAK\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\SOH\ETX\DC2\EOT\230\SOH\CAN\EM\n\
    \;\n\
    \\STX\EOT\US\DC2\ACK\235\SOH\NUL\238\SOH\SOH\SUB- Represents a rational number as a fraction.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\US\SOH\DC2\EOT\235\SOH\b\SYN\n\
    \\f\n\
    \\EOT\EOT\US\STX\NUL\DC2\EOT\236\SOH\STX\SYN\n\
    \\r\n\
    \\ENQ\EOT\US\STX\NUL\ENQ\DC2\EOT\236\SOH\STX\a\n\
    \\r\n\
    \\ENQ\EOT\US\STX\NUL\SOH\DC2\EOT\236\SOH\b\DC1\n\
    \\r\n\
    \\ENQ\EOT\US\STX\NUL\ETX\DC2\EOT\236\SOH\DC4\NAK\n\
    \\f\n\
    \\EOT\EOT\US\STX\SOH\DC2\EOT\237\SOH\STX\EM\n\
    \\r\n\
    \\ENQ\EOT\US\STX\SOH\ENQ\DC2\EOT\237\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\US\STX\SOH\SOH\DC2\EOT\237\SOH\t\DC4\n\
    \\r\n\
    \\ENQ\EOT\US\STX\SOH\ETX\DC2\EOT\237\SOH\ETB\CAN\n\
    \.\n\
    \\STX\EOT \DC2\ACK\241\SOH\NUL\246\SOH\SOH\SUB  Represents a relay in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT \SOH\DC2\EOT\241\SOH\b\r\n\
    \\f\n\
    \\EOT\EOT \STX\NUL\DC2\EOT\242\SOH\STX\DC2\n\
    \\r\n\
    \\ENQ\EOT \STX\NUL\ENQ\DC2\EOT\242\SOH\STX\a\n\
    \\r\n\
    \\ENQ\EOT \STX\NUL\SOH\DC2\EOT\242\SOH\b\r\n\
    \\r\n\
    \\ENQ\EOT \STX\NUL\ETX\DC2\EOT\242\SOH\DLE\DC1\n\
    \\f\n\
    \\EOT\EOT \STX\SOH\DC2\EOT\243\SOH\STX\DC2\n\
    \\r\n\
    \\ENQ\EOT \STX\SOH\ENQ\DC2\EOT\243\SOH\STX\a\n\
    \\r\n\
    \\ENQ\EOT \STX\SOH\SOH\DC2\EOT\243\SOH\b\r\n\
    \\r\n\
    \\ENQ\EOT \STX\SOH\ETX\DC2\EOT\243\SOH\DLE\DC1\n\
    \\f\n\
    \\EOT\EOT \STX\STX\DC2\EOT\244\SOH\STX\SYN\n\
    \\r\n\
    \\ENQ\EOT \STX\STX\ENQ\DC2\EOT\244\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT \STX\STX\SOH\DC2\EOT\244\SOH\t\DC1\n\
    \\r\n\
    \\ENQ\EOT \STX\STX\ETX\DC2\EOT\244\SOH\DC4\NAK\n\
    \\f\n\
    \\EOT\EOT \STX\ETX\DC2\EOT\245\SOH\STX\DC2\n\
    \\r\n\
    \\ENQ\EOT \STX\ETX\ENQ\DC2\EOT\245\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT \STX\ETX\SOH\DC2\EOT\245\SOH\t\r\n\
    \\r\n\
    \\ENQ\EOT \STX\ETX\ETX\DC2\EOT\245\SOH\DLE\DC1\n\
    \4\n\
    \\STX\EOT!\DC2\ACK\249\SOH\NUL\252\SOH\SOH\SUB& Represents pool metadata in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT!\SOH\DC2\EOT\249\SOH\b\DC4\n\
    \\f\n\
    \\EOT\EOT!\STX\NUL\DC2\EOT\250\SOH\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT!\STX\NUL\ENQ\DC2\EOT\250\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT!\STX\NUL\SOH\DC2\EOT\250\SOH\t\f\n\
    \\r\n\
    \\ENQ\EOT!\STX\NUL\ETX\DC2\EOT\250\SOH\SI\DLE\n\
    \\f\n\
    \\EOT\EOT!\STX\SOH\DC2\EOT\251\SOH\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT!\STX\SOH\ENQ\DC2\EOT\251\SOH\STX\a\n\
    \\r\n\
    \\ENQ\EOT!\STX\SOH\SOH\DC2\EOT\251\SOH\b\f\n\
    \\r\n\
    \\ENQ\EOT!\STX\SOH\ETX\DC2\EOT\251\SOH\SI\DLE\n\
    \4\n\
    \\STX\EOT\"\DC2\ACK\255\SOH\NUL\137\STX\SOH\SUB& Represents a certificate in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\"\SOH\DC2\EOT\255\SOH\b\DC3\n\
    \\SO\n\
    \\EOT\EOT\"\b\NUL\DC2\ACK\128\STX\STX\136\STX\ETX\n\
    \\r\n\
    \\ENQ\EOT\"\b\NUL\SOH\DC2\EOT\128\STX\b\DC3\n\
    \/\n\
    \\EOT\EOT\"\STX\NUL\DC2\EOT\129\STX\EOT+\"! Stake registration certificate.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\NUL\ACK\DC2\EOT\129\STX\EOT\DC3\n\
    \\r\n\
    \\ENQ\EOT\"\STX\NUL\SOH\DC2\EOT\129\STX\DC4&\n\
    \\r\n\
    \\ENQ\EOT\"\STX\NUL\ETX\DC2\EOT\129\STX)*\n\
    \1\n\
    \\EOT\EOT\"\STX\SOH\DC2\EOT\130\STX\EOT-\"# Stake deregistration certificate.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\SOH\ACK\DC2\EOT\130\STX\EOT\DC3\n\
    \\r\n\
    \\ENQ\EOT\"\STX\SOH\SOH\DC2\EOT\130\STX\DC4(\n\
    \\r\n\
    \\ENQ\EOT\"\STX\SOH\ETX\DC2\EOT\130\STX+,\n\
    \-\n\
    \\EOT\EOT\"\STX\STX\DC2\EOT\131\STX\EOT-\"\US Stake delegation certificate.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\STX\ACK\DC2\EOT\131\STX\EOT\ETB\n\
    \\r\n\
    \\ENQ\EOT\"\STX\STX\SOH\DC2\EOT\131\STX\CAN(\n\
    \\r\n\
    \\ENQ\EOT\"\STX\STX\ETX\DC2\EOT\131\STX+,\n\
    \.\n\
    \\EOT\EOT\"\STX\ETX\DC2\EOT\132\STX\EOT/\"  Pool registration certificate.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ETX\ACK\DC2\EOT\132\STX\EOT\CAN\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ETX\SOH\DC2\EOT\132\STX\EM*\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ETX\ETX\DC2\EOT\132\STX-.\n\
    \,\n\
    \\EOT\EOT\"\STX\EOT\DC2\EOT\133\STX\EOT+\"\RS Pool retirement certificate.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\EOT\ACK\DC2\EOT\133\STX\EOT\SYN\n\
    \\r\n\
    \\ENQ\EOT\"\STX\EOT\SOH\DC2\EOT\133\STX\ETB&\n\
    \\r\n\
    \\ENQ\EOT\"\STX\EOT\ETX\DC2\EOT\133\STX)*\n\
    \3\n\
    \\EOT\EOT\"\STX\ENQ\DC2\EOT\134\STX\EOT8\"% Genesis key delegation certificate.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ENQ\ACK\DC2\EOT\134\STX\EOT\FS\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ENQ\SOH\DC2\EOT\134\STX\GS3\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ENQ\ETX\DC2\EOT\134\STX67\n\
    \7\n\
    \\EOT\EOT\"\STX\ACK\DC2\EOT\135\STX\EOT\EM\") Move instantaneous rewards certificate.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ACK\ACK\DC2\EOT\135\STX\EOT\v\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ACK\SOH\DC2\EOT\135\STX\f\DC4\n\
    \\r\n\
    \\ENQ\EOT\"\STX\ACK\ETX\DC2\EOT\135\STX\ETB\CAN\n\
    \E\n\
    \\STX\EOT#\DC2\ACK\140\STX\NUL\143\STX\SOH\SUB7 Represents a stake delegation certificate in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT#\SOH\DC2\EOT\140\STX\b\ESC\n\
    \!\n\
    \\EOT\EOT#\STX\NUL\DC2\EOT\141\STX\STX'\"\DC3 Stake credential.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\NUL\ACK\DC2\EOT\141\STX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT#\STX\NUL\SOH\DC2\EOT\141\STX\DC2\"\n\
    \\r\n\
    \\ENQ\EOT#\STX\NUL\ETX\DC2\EOT\141\STX%&\n\
    \\RS\n\
    \\EOT\EOT#\STX\SOH\DC2\EOT\142\STX\STX\EM\"\DLE Pool key hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\SOH\ENQ\DC2\EOT\142\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT#\STX\SOH\SOH\DC2\EOT\142\STX\b\DC4\n\
    \\r\n\
    \\ENQ\EOT#\STX\SOH\ETX\DC2\EOT\142\STX\ETB\CAN\n\
    \F\n\
    \\STX\EOT$\DC2\ACK\146\STX\NUL\156\STX\SOH\SUB8 Represents a pool registration certificate in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT$\SOH\DC2\EOT\146\STX\b\FS\n\
    \\"\n\
    \\EOT\EOT$\STX\NUL\DC2\EOT\147\STX\STX\NAK\"\DC4 Operator key hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\NUL\ENQ\DC2\EOT\147\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT$\STX\NUL\SOH\DC2\EOT\147\STX\b\DLE\n\
    \\r\n\
    \\ENQ\EOT$\STX\NUL\ETX\DC2\EOT\147\STX\DC3\DC4\n\
    \\GS\n\
    \\EOT\EOT$\STX\SOH\DC2\EOT\148\STX\STX\CAN\"\SI VRF key hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\SOH\ENQ\DC2\EOT\148\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT$\STX\SOH\SOH\DC2\EOT\148\STX\b\DC3\n\
    \\r\n\
    \\ENQ\EOT$\STX\SOH\ETX\DC2\EOT\148\STX\SYN\ETB\n\
    \\RS\n\
    \\EOT\EOT$\STX\STX\DC2\EOT\149\STX\STX\DC4\"\DLE Pledge amount.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\STX\ENQ\DC2\EOT\149\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT$\STX\STX\SOH\DC2\EOT\149\STX\t\SI\n\
    \\r\n\
    \\ENQ\EOT$\STX\STX\ETX\DC2\EOT\149\STX\DC2\DC3\n\
    \\SUB\n\
    \\EOT\EOT$\STX\ETX\DC2\EOT\150\STX\STX\DC2\"\f Pool cost.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\ETX\ENQ\DC2\EOT\150\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT$\STX\ETX\SOH\DC2\EOT\150\STX\t\r\n\
    \\r\n\
    \\ENQ\EOT$\STX\ETX\ETX\DC2\EOT\150\STX\DLE\DC1\n\
    \\FS\n\
    \\EOT\EOT$\STX\EOT\DC2\EOT\151\STX\STX\FS\"\SO Pool margin.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\EOT\ACK\DC2\EOT\151\STX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT$\STX\EOT\SOH\DC2\EOT\151\STX\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT$\STX\EOT\ETX\DC2\EOT\151\STX\SUB\ESC\n\
    \\US\n\
    \\EOT\EOT$\STX\ENQ\DC2\EOT\152\STX\STX\ESC\"\DC1 Reward account.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\ENQ\ENQ\DC2\EOT\152\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT$\STX\ENQ\SOH\DC2\EOT\152\STX\b\SYN\n\
    \\r\n\
    \\ENQ\EOT$\STX\ENQ\ETX\DC2\EOT\152\STX\EM\SUB\n\
    \.\n\
    \\EOT\EOT$\STX\ACK\DC2\EOT\153\STX\STX!\"  List of pool owner key hashes.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\ACK\EOT\DC2\EOT\153\STX\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\ACK\ENQ\DC2\EOT\153\STX\v\DLE\n\
    \\r\n\
    \\ENQ\EOT$\STX\ACK\SOH\DC2\EOT\153\STX\DC1\FS\n\
    \\r\n\
    \\ENQ\EOT$\STX\ACK\ETX\DC2\EOT\153\STX\US \n\
    \\US\n\
    \\EOT\EOT$\STX\a\DC2\EOT\154\STX\STX\FS\"\DC1 List of relays.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\a\EOT\DC2\EOT\154\STX\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\a\ACK\DC2\EOT\154\STX\v\DLE\n\
    \\r\n\
    \\ENQ\EOT$\STX\a\SOH\DC2\EOT\154\STX\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT$\STX\a\ETX\DC2\EOT\154\STX\SUB\ESC\n\
    \\RS\n\
    \\EOT\EOT$\STX\b\DC2\EOT\155\STX\STX!\"\DLE Pool metadata.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT$\STX\b\ACK\DC2\EOT\155\STX\STX\SO\n\
    \\r\n\
    \\ENQ\EOT$\STX\b\SOH\DC2\EOT\155\STX\SI\FS\n\
    \\r\n\
    \\ENQ\EOT$\STX\b\ETX\DC2\EOT\155\STX\US \n\
    \D\n\
    \\STX\EOT%\DC2\ACK\159\STX\NUL\162\STX\SOH\SUB6 Represents a pool retirement certificate in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT%\SOH\DC2\EOT\159\STX\b\SUB\n\
    \\RS\n\
    \\EOT\EOT%\STX\NUL\DC2\EOT\160\STX\STX\EM\"\DLE Pool key hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT%\STX\NUL\ENQ\DC2\EOT\160\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT%\STX\NUL\SOH\DC2\EOT\160\STX\b\DC4\n\
    \\r\n\
    \\ENQ\EOT%\STX\NUL\ETX\DC2\EOT\160\STX\ETB\CAN\n\
    \!\n\
    \\EOT\EOT%\STX\SOH\DC2\EOT\161\STX\STX\DC3\"\DC3 Retirement epoch.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT%\STX\SOH\ENQ\DC2\EOT\161\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT%\STX\SOH\SOH\DC2\EOT\161\STX\t\SO\n\
    \\r\n\
    \\ENQ\EOT%\STX\SOH\ETX\DC2\EOT\161\STX\DC1\DC2\n\
    \K\n\
    \\STX\EOT&\DC2\ACK\165\STX\NUL\169\STX\SOH\SUB= Represents a genesis key delegation certificate in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT&\SOH\DC2\EOT\165\STX\b \n\
    \\GS\n\
    \\EOT\EOT&\STX\NUL\DC2\EOT\166\STX\STX\EM\"\SI Genesis hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT&\STX\NUL\ENQ\DC2\EOT\166\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT&\STX\NUL\SOH\DC2\EOT\166\STX\b\DC4\n\
    \\r\n\
    \\ENQ\EOT&\STX\NUL\ETX\DC2\EOT\166\STX\ETB\CAN\n\
    \&\n\
    \\EOT\EOT&\STX\SOH\DC2\EOT\167\STX\STX\"\"\CAN Genesis delegate hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT&\STX\SOH\ENQ\DC2\EOT\167\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT&\STX\SOH\SOH\DC2\EOT\167\STX\b\GS\n\
    \\r\n\
    \\ENQ\EOT&\STX\SOH\ETX\DC2\EOT\167\STX !\n\
    \\GS\n\
    \\EOT\EOT&\STX\STX\DC2\EOT\168\STX\STX\CAN\"\SI VRF key hash.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT&\STX\STX\ENQ\DC2\EOT\168\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT&\STX\STX\SOH\DC2\EOT\168\STX\b\DC3\n\
    \\r\n\
    \\ENQ\EOT&\STX\STX\ETX\DC2\EOT\168\STX\SYN\ETB\n\
    \\f\n\
    \\STX\ENQ\SOH\DC2\ACK\171\STX\NUL\175\STX\SOH\n\
    \\v\n\
    \\ETX\ENQ\SOH\SOH\DC2\EOT\171\STX\ENQ\SO\n\
    \\f\n\
    \\EOT\ENQ\SOH\STX\NUL\DC2\EOT\172\STX\STX\GS\n\
    \\r\n\
    \\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\EOT\172\STX\STX\CAN\n\
    \\r\n\
    \\ENQ\ENQ\SOH\STX\NUL\STX\DC2\EOT\172\STX\ESC\FS\n\
    \\f\n\
    \\EOT\ENQ\SOH\STX\SOH\DC2\EOT\173\STX\STX\SUB\n\
    \\r\n\
    \\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\EOT\173\STX\STX\NAK\n\
    \\r\n\
    \\ENQ\ENQ\SOH\STX\SOH\STX\DC2\EOT\173\STX\CAN\EM\n\
    \\f\n\
    \\EOT\ENQ\SOH\STX\STX\DC2\EOT\174\STX\STX\SUB\n\
    \\r\n\
    \\ENQ\ENQ\SOH\STX\STX\SOH\DC2\EOT\174\STX\STX\NAK\n\
    \\r\n\
    \\ENQ\ENQ\SOH\STX\STX\STX\DC2\EOT\174\STX\CAN\EM\n\
    \\f\n\
    \\STX\EOT'\DC2\ACK\177\STX\NUL\180\STX\SOH\n\
    \\v\n\
    \\ETX\EOT'\SOH\DC2\EOT\177\STX\b\DC1\n\
    \\f\n\
    \\EOT\EOT'\STX\NUL\DC2\EOT\178\STX\STX'\n\
    \\r\n\
    \\ENQ\EOT'\STX\NUL\ACK\DC2\EOT\178\STX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT'\STX\NUL\SOH\DC2\EOT\178\STX\DC2\"\n\
    \\r\n\
    \\ENQ\EOT'\STX\NUL\ETX\DC2\EOT\178\STX%&\n\
    \\f\n\
    \\EOT\EOT'\STX\SOH\DC2\EOT\179\STX\STX\ETB\n\
    \\r\n\
    \\ENQ\EOT'\STX\SOH\ENQ\DC2\EOT\179\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT'\STX\SOH\SOH\DC2\EOT\179\STX\b\DC2\n\
    \\r\n\
    \\ENQ\EOT'\STX\SOH\ETX\DC2\EOT\179\STX\NAK\SYN\n\
    \N\n\
    \\STX\EOT(\DC2\ACK\183\STX\NUL\187\STX\SOH\SUB@ Represents a move instantaneous reward certificate in Cardano.\n\
    \\n\
    \\v\n\
    \\ETX\EOT(\SOH\DC2\EOT\183\STX\b\SI\n\
    \\f\n\
    \\EOT\EOT(\STX\NUL\DC2\EOT\184\STX\STX\NAK\n\
    \\r\n\
    \\ENQ\EOT(\STX\NUL\ACK\DC2\EOT\184\STX\STX\v\n\
    \\r\n\
    \\ENQ\EOT(\STX\NUL\SOH\DC2\EOT\184\STX\f\DLE\n\
    \\r\n\
    \\ENQ\EOT(\STX\NUL\ETX\DC2\EOT\184\STX\DC3\DC4\n\
    \\f\n\
    \\EOT\EOT(\STX\SOH\DC2\EOT\185\STX\STX\FS\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\EOT\DC2\EOT\185\STX\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\ACK\DC2\EOT\185\STX\v\DC4\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\SOH\DC2\EOT\185\STX\NAK\ETB\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\ETX\DC2\EOT\185\STX\SUB\ESC\n\
    \\f\n\
    \\EOT\EOT(\STX\STX\DC2\EOT\186\STX\STX\ETB\n\
    \\r\n\
    \\ENQ\EOT(\STX\STX\ENQ\DC2\EOT\186\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT(\STX\STX\SOH\DC2\EOT\186\STX\t\DC2\n\
    \\r\n\
    \\ENQ\EOT(\STX\STX\ETX\DC2\EOT\186\STX\NAK\SYN\n\
    \}\n\
    \\STX\EOT)\DC2\ACK\193\STX\NUL\197\STX\SOH\SUBI Pattern of an address that can be used to evaluate matching predicates.\n\
    \2$ PATTERN MATCHING\n\
    \ ================\n\
    \\n\
    \\v\n\
    \\ETX\EOT)\SOH\DC2\EOT\193\STX\b\SYN\n\
    \B\n\
    \\EOT\EOT)\STX\NUL\DC2\EOT\194\STX\STX\SUB\"4 The address should match this exact address value.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT)\STX\NUL\ENQ\DC2\EOT\194\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT)\STX\NUL\SOH\DC2\EOT\194\STX\b\NAK\n\
    \\r\n\
    \\ENQ\EOT)\STX\NUL\ETX\DC2\EOT\194\STX\CAN\EM\n\
    \H\n\
    \\EOT\EOT)\STX\SOH\DC2\EOT\195\STX\STX\EM\": The payment part of the address should match this value.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT)\STX\SOH\ENQ\DC2\EOT\195\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT)\STX\SOH\SOH\DC2\EOT\195\STX\b\DC4\n\
    \\r\n\
    \\ENQ\EOT)\STX\SOH\ETX\DC2\EOT\195\STX\ETB\CAN\n\
    \K\n\
    \\EOT\EOT)\STX\STX\DC2\EOT\196\STX\STX\FS\"= The delegation part of the address should match this value.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT)\STX\STX\ENQ\DC2\EOT\196\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT)\STX\STX\SOH\DC2\EOT\196\STX\b\ETB\n\
    \\r\n\
    \\ENQ\EOT)\STX\STX\ETX\DC2\EOT\196\STX\SUB\ESC\n\
    \[\n\
    \\STX\EOT*\DC2\ACK\200\STX\NUL\203\STX\SOH\SUBM Pattern of a native asset that can be used to evaluate matching predicates.\n\
    \\n\
    \\v\n\
    \\ETX\EOT*\SOH\DC2\EOT\200\STX\b\DC4\n\
    \9\n\
    \\EOT\EOT*\STX\NUL\DC2\EOT\201\STX\STX\SYN\"+ The asset should belong to this policy id\n\
    \\n\
    \\r\n\
    \\ENQ\EOT*\STX\NUL\ENQ\DC2\EOT\201\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT*\STX\NUL\SOH\DC2\EOT\201\STX\b\DC1\n\
    \\r\n\
    \\ENQ\EOT*\STX\NUL\ETX\DC2\EOT\201\STX\DC4\NAK\n\
    \2\n\
    \\EOT\EOT*\STX\SOH\DC2\EOT\202\STX\STX\ETB\"$ The asset should present this name\n\
    \\n\
    \\r\n\
    \\ENQ\EOT*\STX\SOH\ENQ\DC2\EOT\202\STX\STX\a\n\
    \\r\n\
    \\ENQ\EOT*\STX\SOH\SOH\DC2\EOT\202\STX\b\DC2\n\
    \\r\n\
    \\ENQ\EOT*\STX\SOH\ETX\DC2\EOT\202\STX\NAK\SYN\n\
    \X\n\
    \\STX\EOT+\DC2\ACK\206\STX\NUL\209\STX\SOH\SUBJ Pattern of a tx output that can be used to evaluate matching predicates.\n\
    \\n\
    \\v\n\
    \\ETX\EOT+\SOH\DC2\EOT\206\STX\b\ETB\n\
    \K\n\
    \\EOT\EOT+\STX\NUL\DC2\EOT\207\STX\STX\GS\"= Match any address in the output that exhibits this pattern.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT+\STX\NUL\ACK\DC2\EOT\207\STX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT+\STX\NUL\SOH\DC2\EOT\207\STX\DC1\CAN\n\
    \\r\n\
    \\ENQ\EOT+\STX\NUL\ETX\DC2\EOT\207\STX\ESC\FS\n\
    \I\n\
    \\EOT\EOT+\STX\SOH\DC2\EOT\208\STX\STX\EM\"; Match any asset in the output that exhibits this pattern.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT+\STX\SOH\ACK\DC2\EOT\208\STX\STX\SO\n\
    \\r\n\
    \\ENQ\EOT+\STX\SOH\SOH\DC2\EOT\208\STX\SI\DC4\n\
    \\r\n\
    \\ENQ\EOT+\STX\SOH\ETX\DC2\EOT\208\STX\ETB\CAN\n\
    \Q\n\
    \\STX\EOT,\DC2\ACK\212\STX\NUL\218\STX\SOH\SUBC Pattern of a Tx that can be used to evaluate matching predicates.\n\
    \\n\
    \\v\n\
    \\ETX\EOT,\SOH\DC2\EOT\212\STX\b\DC1\n\
    \;\n\
    \\EOT\EOT,\STX\NUL\DC2\EOT\213\STX\STX\US\"- Match any input that exhibits this pattern.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\NUL\ACK\DC2\EOT\213\STX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT,\STX\NUL\SOH\DC2\EOT\213\STX\DC2\SUB\n\
    \\r\n\
    \\ENQ\EOT,\STX\NUL\ETX\DC2\EOT\213\STX\GS\RS\n\
    \<\n\
    \\EOT\EOT,\STX\SOH\DC2\EOT\214\STX\STX\US\". Match any output that exhibits this pattern.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\SOH\ACK\DC2\EOT\214\STX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT,\STX\SOH\SOH\DC2\EOT\214\STX\DC2\SUB\n\
    \\r\n\
    \\ENQ\EOT,\STX\SOH\ETX\DC2\EOT\214\STX\GS\RS\n\
    \`\n\
    \\EOT\EOT,\STX\STX\DC2\EOT\215\STX\STX!\"R Match any address (inputs, outputs, collateral, etc) that exhibits this pattern.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\STX\ACK\DC2\EOT\215\STX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT,\STX\STX\SOH\DC2\EOT\215\STX\DC1\FS\n\
    \\r\n\
    \\ENQ\EOT,\STX\STX\ETX\DC2\EOT\215\STX\US \n\
    \;\n\
    \\EOT\EOT,\STX\ETX\DC2\EOT\216\STX\STX\US\"- Match any asset that exhibits this pattern.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\ETX\ACK\DC2\EOT\216\STX\STX\SO\n\
    \\r\n\
    \\ENQ\EOT,\STX\ETX\SOH\DC2\EOT\216\STX\SI\SUB\n\
    \\r\n\
    \\ENQ\EOT,\STX\ETX\ETX\DC2\EOT\216\STX\GS\RS\n\
    \L\n\
    \\EOT\EOT,\STX\EOT\DC2\EOT\217\STX\STX\US\"> Match any tx that either mint or burn the the asset pattern.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\EOT\ACK\DC2\EOT\217\STX\STX\SO\n\
    \\r\n\
    \\ENQ\EOT,\STX\EOT\SOH\DC2\EOT\217\STX\SI\SUB\n\
    \\r\n\
    \\ENQ\EOT,\STX\EOT\ETX\DC2\EOT\217\STX\GS\RS\n\
    \\RS\n\
    \\STX\EOT-\DC2\ACK\223\STX\NUL\226\STX\SOH2\DLE PARAMS\n\
    \ ======\n\
    \\n\
    \\v\n\
    \\ETX\EOT-\SOH\DC2\EOT\223\STX\b\SI\n\
    \\f\n\
    \\EOT\EOT-\STX\NUL\DC2\EOT\224\STX\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT-\STX\NUL\ENQ\DC2\EOT\224\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT-\STX\NUL\SOH\DC2\EOT\224\STX\t\SO\n\
    \\r\n\
    \\ENQ\EOT-\STX\NUL\ETX\DC2\EOT\224\STX\DC1\DC2\n\
    \\f\n\
    \\EOT\EOT-\STX\SOH\DC2\EOT\225\STX\STX\DC4\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\ENQ\DC2\EOT\225\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\SOH\DC2\EOT\225\STX\t\SI\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\ETX\DC2\EOT\225\STX\DC2\DC3\n\
    \\f\n\
    \\STX\EOT.\DC2\ACK\228\STX\NUL\231\STX\SOH\n\
    \\v\n\
    \\ETX\EOT.\SOH\DC2\EOT\228\STX\b\DLE\n\
    \\f\n\
    \\EOT\EOT.\STX\NUL\DC2\EOT\229\STX\STX\ESC\n\
    \\r\n\
    \\ENQ\EOT.\STX\NUL\ACK\DC2\EOT\229\STX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT.\STX\NUL\SOH\DC2\EOT\229\STX\DC1\SYN\n\
    \\r\n\
    \\ENQ\EOT.\STX\NUL\ETX\DC2\EOT\229\STX\EM\SUB\n\
    \\f\n\
    \\EOT\EOT.\STX\SOH\DC2\EOT\230\STX\STX\FS\n\
    \\r\n\
    \\ENQ\EOT.\STX\SOH\ACK\DC2\EOT\230\STX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT.\STX\SOH\SOH\DC2\EOT\230\STX\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT.\STX\SOH\ETX\DC2\EOT\230\STX\SUB\ESC\n\
    \\f\n\
    \\STX\EOT/\DC2\ACK\233\STX\NUL\236\STX\SOH\n\
    \\v\n\
    \\ETX\EOT/\SOH\DC2\EOT\233\STX\b\ETB\n\
    \\f\n\
    \\EOT\EOT/\STX\NUL\DC2\EOT\234\STX\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT/\STX\NUL\ENQ\DC2\EOT\234\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT/\STX\NUL\SOH\DC2\EOT\234\STX\t\SO\n\
    \\r\n\
    \\ENQ\EOT/\STX\NUL\ETX\DC2\EOT\234\STX\DC1\DC2\n\
    \\f\n\
    \\EOT\EOT/\STX\SOH\DC2\EOT\235\STX\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT/\STX\SOH\ENQ\DC2\EOT\235\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT/\STX\SOH\SOH\DC2\EOT\235\STX\t\SO\n\
    \\r\n\
    \\ENQ\EOT/\STX\SOH\ETX\DC2\EOT\235\STX\DC1\DC2\n\
    \\DC4\n\
    \\STX\EOT0\DC2\ACK\238\STX\NUL\240\STX\SOH\"\ACK TODO\n\
    \\n\
    \\v\n\
    \\ETX\EOT0\SOH\DC2\EOT\238\STX\b\DC1\n\
    \\f\n\
    \\STX\EOT1\DC2\ACK\242\STX\NUL\245\STX\SOH\n\
    \\v\n\
    \\ETX\EOT1\SOH\DC2\EOT\242\STX\b\DC2\n\
    \\f\n\
    \\EOT\EOT1\STX\NUL\DC2\EOT\243\STX\STX\SUB\n\
    \\r\n\
    \\ENQ\EOT1\STX\NUL\ACK\DC2\EOT\243\STX\STX\v\n\
    \\r\n\
    \\ENQ\EOT1\STX\NUL\SOH\DC2\EOT\243\STX\f\NAK\n\
    \\r\n\
    \\ENQ\EOT1\STX\NUL\ETX\DC2\EOT\243\STX\CAN\EM\n\
    \\f\n\
    \\EOT\EOT1\STX\SOH\DC2\EOT\244\STX\STX\SUB\n\
    \\r\n\
    \\ENQ\EOT1\STX\SOH\ACK\DC2\EOT\244\STX\STX\v\n\
    \\r\n\
    \\ENQ\EOT1\STX\SOH\SOH\DC2\EOT\244\STX\f\NAK\n\
    \\r\n\
    \\ENQ\EOT1\STX\SOH\ETX\DC2\EOT\244\STX\CAN\EM\n\
    \\f\n\
    \\STX\EOT2\DC2\ACK\247\STX\NUL\142\ETX\SOH\n\
    \\v\n\
    \\ETX\EOT2\SOH\DC2\EOT\247\STX\b\SI\n\
    \2\n\
    \\EOT\EOT2\STX\NUL\DC2\EOT\248\STX\STX!\"$ The number of coins per UTXO byte.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\NUL\ENQ\DC2\EOT\248\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\NUL\SOH\DC2\EOT\248\STX\t\FS\n\
    \\r\n\
    \\ENQ\EOT2\STX\NUL\ETX\DC2\EOT\248\STX\US \n\
    \-\n\
    \\EOT\EOT2\STX\SOH\DC2\EOT\249\STX\STX\EM\"\US The maximum transaction size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\SOH\ENQ\DC2\EOT\249\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\SOH\SOH\DC2\EOT\249\STX\t\DC4\n\
    \\r\n\
    \\ENQ\EOT2\STX\SOH\ETX\DC2\EOT\249\STX\ETB\CAN\n\
    \,\n\
    \\EOT\EOT2\STX\STX\DC2\EOT\250\STX\STX!\"\RS The minimum fee coefficient.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\STX\ENQ\DC2\EOT\250\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\STX\SOH\DC2\EOT\250\STX\t\FS\n\
    \\r\n\
    \\ENQ\EOT2\STX\STX\ETX\DC2\EOT\250\STX\US \n\
    \)\n\
    \\EOT\EOT2\STX\ETX\DC2\EOT\251\STX\STX\RS\"\ESC The minimum fee constant.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\ETX\ENQ\DC2\EOT\251\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\ETX\SOH\DC2\EOT\251\STX\t\EM\n\
    \\r\n\
    \\ENQ\EOT2\STX\ETX\ETX\DC2\EOT\251\STX\FS\GS\n\
    \,\n\
    \\EOT\EOT2\STX\EOT\DC2\EOT\252\STX\STX!\"\RS The maximum block body size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\EOT\ENQ\DC2\EOT\252\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\EOT\SOH\DC2\EOT\252\STX\t\FS\n\
    \\r\n\
    \\ENQ\EOT2\STX\EOT\ETX\DC2\EOT\252\STX\US \n\
    \.\n\
    \\EOT\EOT2\STX\ENQ\DC2\EOT\253\STX\STX#\"  The maximum block header size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\ENQ\ENQ\DC2\EOT\253\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\ENQ\SOH\DC2\EOT\253\STX\t\RS\n\
    \\r\n\
    \\ENQ\EOT2\STX\ENQ\ETX\DC2\EOT\253\STX!\"\n\
    \&\n\
    \\EOT\EOT2\STX\ACK\DC2\EOT\254\STX\STX\US\"\CAN The stake key deposit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\ACK\ENQ\DC2\EOT\254\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\ACK\SOH\DC2\EOT\254\STX\t\SUB\n\
    \\r\n\
    \\ENQ\EOT2\STX\ACK\ETX\DC2\EOT\254\STX\GS\RS\n\
    \!\n\
    \\EOT\EOT2\STX\a\DC2\EOT\255\STX\STX\SUB\"\DC3 The pool deposit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\a\ENQ\DC2\EOT\255\STX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\a\SOH\DC2\EOT\255\STX\t\NAK\n\
    \\r\n\
    \\ENQ\EOT2\STX\a\ETX\DC2\EOT\255\STX\CAN\EM\n\
    \0\n\
    \\EOT\EOT2\STX\b\DC2\EOT\128\ETX\STX)\"\" The pool retirement epoch bound.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\b\ENQ\DC2\EOT\128\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\b\SOH\DC2\EOT\128\ETX\t$\n\
    \\r\n\
    \\ENQ\EOT2\STX\b\ETX\DC2\EOT\128\ETX'(\n\
    \,\n\
    \\EOT\EOT2\STX\t\DC2\EOT\129\ETX\STX&\"\RS The desired number of pools.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\t\ENQ\DC2\EOT\129\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\t\SOH\DC2\EOT\129\ETX\t \n\
    \\r\n\
    \\ENQ\EOT2\STX\t\ETX\DC2\EOT\129\ETX#%\n\
    \#\n\
    \\EOT\EOT2\STX\n\
    \\DC2\EOT\130\ETX\STX%\"\NAK The pool influence.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\n\
    \\ACK\DC2\EOT\130\ETX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT2\STX\n\
    \\SOH\DC2\EOT\130\ETX\DC1\US\n\
    \\r\n\
    \\ENQ\EOT2\STX\n\
    \\ETX\DC2\EOT\130\ETX\"$\n\
    \'\n\
    \\EOT\EOT2\STX\v\DC2\EOT\131\ETX\STX)\"\EM The monetary expansion.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\v\ACK\DC2\EOT\131\ETX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT2\STX\v\SOH\DC2\EOT\131\ETX\DC1#\n\
    \\r\n\
    \\ENQ\EOT2\STX\v\ETX\DC2\EOT\131\ETX&(\n\
    \'\n\
    \\EOT\EOT2\STX\f\DC2\EOT\132\ETX\STX)\"\EM The treasury expansion.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\f\ACK\DC2\EOT\132\ETX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT2\STX\f\SOH\DC2\EOT\132\ETX\DC1#\n\
    \\r\n\
    \\ENQ\EOT2\STX\f\ETX\DC2\EOT\132\ETX&(\n\
    \&\n\
    \\EOT\EOT2\STX\r\DC2\EOT\133\ETX\STX\FS\"\CAN The minimum pool cost.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\r\ENQ\DC2\EOT\133\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\r\SOH\DC2\EOT\133\ETX\t\SYN\n\
    \\r\n\
    \\ENQ\EOT2\STX\r\ETX\DC2\EOT\133\ETX\EM\ESC\n\
    \%\n\
    \\EOT\EOT2\STX\SO\DC2\EOT\134\ETX\STX(\"\ETB The protocol version.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\SO\ACK\DC2\EOT\134\ETX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT2\STX\SO\SOH\DC2\EOT\134\ETX\DC2\"\n\
    \\r\n\
    \\ENQ\EOT2\STX\SO\ETX\DC2\EOT\134\ETX%'\n\
    \'\n\
    \\EOT\EOT2\STX\SI\DC2\EOT\135\ETX\STX\GS\"\EM The maximum value size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\SI\ENQ\DC2\EOT\135\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\SI\SOH\DC2\EOT\135\ETX\t\ETB\n\
    \\r\n\
    \\ENQ\EOT2\STX\SI\ETX\DC2\EOT\135\ETX\SUB\FS\n\
    \*\n\
    \\EOT\EOT2\STX\DLE\DC2\EOT\136\ETX\STX$\"\FS The collateral percentage.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\DLE\ENQ\DC2\EOT\136\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\DLE\SOH\DC2\EOT\136\ETX\t\RS\n\
    \\r\n\
    \\ENQ\EOT2\STX\DLE\ETX\DC2\EOT\136\ETX!#\n\
    \.\n\
    \\EOT\EOT2\STX\DC1\DC2\EOT\137\ETX\STX$\"  The maximum collateral inputs.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC1\ENQ\DC2\EOT\137\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC1\SOH\DC2\EOT\137\ETX\t\RS\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC1\ETX\DC2\EOT\137\ETX!#\n\
    \ \n\
    \\EOT\EOT2\STX\DC2\DC2\EOT\138\ETX\STX\RS\"\DC2 The cost models.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC2\ACK\DC2\EOT\138\ETX\STX\f\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC2\SOH\DC2\EOT\138\ETX\r\CAN\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC2\ETX\DC2\EOT\138\ETX\ESC\GS\n\
    \\ESC\n\
    \\EOT\EOT2\STX\DC3\DC2\EOT\139\ETX\STX\ETB\"\r The prices.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC3\ACK\DC2\EOT\139\ETX\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC3\SOH\DC2\EOT\139\ETX\v\DC1\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC3\ETX\DC2\EOT\139\ETX\DC4\SYN\n\
    \<\n\
    \\EOT\EOT2\STX\DC4\DC2\EOT\140\ETX\STX3\". The maximum execution units per transaction.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC4\ACK\DC2\EOT\140\ETX\STX\t\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC4\SOH\DC2\EOT\140\ETX\n\
    \-\n\
    \\r\n\
    \\ENQ\EOT2\STX\DC4\ETX\DC2\EOT\140\ETX02\n\
    \6\n\
    \\EOT\EOT2\STX\NAK\DC2\EOT\141\ETX\STX-\"( The maximum execution units per block.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT2\STX\NAK\ACK\DC2\EOT\141\ETX\STX\t\n\
    \\r\n\
    \\ENQ\EOT2\STX\NAK\SOH\DC2\EOT\141\ETX\n\
    \'\n\
    \\r\n\
    \\ENQ\EOT2\STX\NAK\ETX\DC2\EOT\141\ETX*,\n\
    \&\n\
    \\STX\EOT3\DC2\ACK\147\ETX\NUL\149\ETX\SOH2\CAN EVALUATION\n\
    \ ==========\n\
    \\n\
    \\v\n\
    \\ETX\EOT3\SOH\DC2\EOT\147\ETX\b\DC1\n\
    \\f\n\
    \\EOT\EOT3\STX\NUL\DC2\EOT\148\ETX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT3\STX\NUL\ENQ\DC2\EOT\148\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT3\STX\NUL\SOH\DC2\EOT\148\ETX\t\f\n\
    \\r\n\
    \\ENQ\EOT3\STX\NUL\ETX\DC2\EOT\148\ETX\SI\DLE\n\
    \\f\n\
    \\STX\EOT4\DC2\ACK\151\ETX\NUL\153\ETX\SOH\n\
    \\v\n\
    \\ETX\EOT4\SOH\DC2\EOT\151\ETX\b\DC1\n\
    \\f\n\
    \\EOT\EOT4\STX\NUL\DC2\EOT\152\ETX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT4\STX\NUL\ENQ\DC2\EOT\152\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT4\STX\NUL\SOH\DC2\EOT\152\ETX\t\f\n\
    \\r\n\
    \\ENQ\EOT4\STX\NUL\ETX\DC2\EOT\152\ETX\SI\DLE\n\
    \\f\n\
    \\STX\EOT5\DC2\ACK\155\ETX\NUL\160\ETX\SOH\n\
    \\v\n\
    \\ETX\EOT5\SOH\DC2\EOT\155\ETX\b\SO\n\
    \\f\n\
    \\EOT\EOT5\STX\NUL\DC2\EOT\156\ETX\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT5\STX\NUL\ENQ\DC2\EOT\156\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT5\STX\NUL\SOH\DC2\EOT\156\ETX\t\f\n\
    \\r\n\
    \\ENQ\EOT5\STX\NUL\ETX\DC2\EOT\156\ETX\SI\DLE\n\
    \\f\n\
    \\EOT\EOT5\STX\SOH\DC2\EOT\157\ETX\STX\ETB\n\
    \\r\n\
    \\ENQ\EOT5\STX\SOH\ACK\DC2\EOT\157\ETX\STX\t\n\
    \\r\n\
    \\ENQ\EOT5\STX\SOH\SOH\DC2\EOT\157\ETX\n\
    \\DC2\n\
    \\r\n\
    \\ENQ\EOT5\STX\SOH\ETX\DC2\EOT\157\ETX\NAK\SYN\n\
    \\f\n\
    \\EOT\EOT5\STX\STX\DC2\EOT\158\ETX\STX \n\
    \\r\n\
    \\ENQ\EOT5\STX\STX\EOT\DC2\EOT\158\ETX\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT5\STX\STX\ACK\DC2\EOT\158\ETX\v\DC4\n\
    \\r\n\
    \\ENQ\EOT5\STX\STX\SOH\DC2\EOT\158\ETX\NAK\ESC\n\
    \\r\n\
    \\ENQ\EOT5\STX\STX\ETX\DC2\EOT\158\ETX\RS\US\n\
    \\f\n\
    \\EOT\EOT5\STX\ETX\DC2\EOT\159\ETX\STX \n\
    \\r\n\
    \\ENQ\EOT5\STX\ETX\EOT\DC2\EOT\159\ETX\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT5\STX\ETX\ACK\DC2\EOT\159\ETX\v\DC4\n\
    \\r\n\
    \\ENQ\EOT5\STX\ETX\SOH\DC2\EOT\159\ETX\NAK\ESC\n\
    \\r\n\
    \\ENQ\EOT5\STX\ETX\ETX\DC2\EOT\159\ETX\RS\USb\ACKproto3"