{- 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 (
        AddressArray(), Asset(), Asset'Quantity(..), _Asset'OutputCoin,
        _Asset'MintCoin, BigInt(), BigInt'BigInt(..), _BigInt'Int,
        _BigInt'BigUInt, _BigInt'BigNInt, Constr(), CostModel(),
        CostModels(), Datum(), ExPrices(), ExUnits(), 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(),
        ProtocolVersion(), RationalNumber(), Script(), Script'Script(..),
        _Script'Native, _Script'PlutusV1, _Script'PlutusV2,
        _Script'PlutusV3, _Script'PlutusV4, ScriptNOfK(), TxOutput(),
        VotingThresholds()
    ) 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.items' @:: Lens' AddressArray [Data.ByteString.ByteString]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' AddressArray (Data.Vector.Vector Data.ByteString.ByteString)@ -}
data AddressArray
  = AddressArray'_constructor {AddressArray -> Vector ByteString
_AddressArray'items :: !(Data.Vector.Vector Data.ByteString.ByteString),
                               AddressArray -> FieldSet
_AddressArray'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AddressArray -> AddressArray -> Bool
(AddressArray -> AddressArray -> Bool)
-> (AddressArray -> AddressArray -> Bool) -> Eq AddressArray
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AddressArray -> AddressArray -> Bool
== :: AddressArray -> AddressArray -> Bool
$c/= :: AddressArray -> AddressArray -> Bool
/= :: AddressArray -> AddressArray -> Bool
Prelude.Eq, Eq AddressArray
Eq AddressArray =>
(AddressArray -> AddressArray -> Ordering)
-> (AddressArray -> AddressArray -> Bool)
-> (AddressArray -> AddressArray -> Bool)
-> (AddressArray -> AddressArray -> Bool)
-> (AddressArray -> AddressArray -> Bool)
-> (AddressArray -> AddressArray -> AddressArray)
-> (AddressArray -> AddressArray -> AddressArray)
-> Ord AddressArray
AddressArray -> AddressArray -> Bool
AddressArray -> AddressArray -> Ordering
AddressArray -> AddressArray -> AddressArray
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 :: AddressArray -> AddressArray -> Ordering
compare :: AddressArray -> AddressArray -> Ordering
$c< :: AddressArray -> AddressArray -> Bool
< :: AddressArray -> AddressArray -> Bool
$c<= :: AddressArray -> AddressArray -> Bool
<= :: AddressArray -> AddressArray -> Bool
$c> :: AddressArray -> AddressArray -> Bool
> :: AddressArray -> AddressArray -> Bool
$c>= :: AddressArray -> AddressArray -> Bool
>= :: AddressArray -> AddressArray -> Bool
$cmax :: AddressArray -> AddressArray -> AddressArray
max :: AddressArray -> AddressArray -> AddressArray
$cmin :: AddressArray -> AddressArray -> AddressArray
min :: AddressArray -> AddressArray -> AddressArray
Prelude.Ord)
instance Prelude.Show AddressArray where
  showsPrec :: Int -> AddressArray -> ShowS
showsPrec Int
_ AddressArray
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AddressArray -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AddressArray
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AddressArray "items" [Data.ByteString.ByteString] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "items"
-> ([ByteString] -> f [ByteString])
-> AddressArray
-> f AddressArray
fieldOf Proxy# "items"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> AddressArray -> f AddressArray)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> AddressArray
-> f AddressArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressArray -> Vector ByteString)
-> (AddressArray -> Vector ByteString -> AddressArray)
-> Lens
     AddressArray AddressArray (Vector ByteString) (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressArray -> Vector ByteString
_AddressArray'items (\ AddressArray
x__ Vector ByteString
y__ -> AddressArray
x__ {_AddressArray'items = 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 AddressArray "vec'items" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'items"
-> (Vector ByteString -> f (Vector ByteString))
-> AddressArray
-> f AddressArray
fieldOf Proxy# "vec'items"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> AddressArray -> f AddressArray)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> AddressArray
-> f AddressArray
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AddressArray -> Vector ByteString)
-> (AddressArray -> Vector ByteString -> AddressArray)
-> Lens
     AddressArray AddressArray (Vector ByteString) (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AddressArray -> Vector ByteString
_AddressArray'items (\ AddressArray
x__ Vector ByteString
y__ -> AddressArray
x__ {_AddressArray'items = y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AddressArray where
  messageName :: Proxy AddressArray -> Text
messageName Proxy AddressArray
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.AddressArray"
  packedMessageDescriptor :: Proxy AddressArray -> ByteString
packedMessageDescriptor Proxy AddressArray
_
    = ByteString
"\n\
      \\fAddressArray\DC2\DC4\n\
      \\ENQitems\CAN\SOH \ETX(\fR\ENQitems"
  packedFileDescriptor :: Proxy AddressArray -> ByteString
packedFileDescriptor Proxy AddressArray
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AddressArray)
fieldsByTag
    = let
        items__field_descriptor :: FieldDescriptor AddressArray
items__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AddressArray ByteString
-> FieldDescriptor AddressArray
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"items"
              (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' AddressArray [ByteString]
-> FieldAccessor AddressArray 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 @"items")) ::
              Data.ProtoLens.FieldDescriptor AddressArray
      in
        [(Tag, FieldDescriptor AddressArray)]
-> Map Tag (FieldDescriptor AddressArray)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AddressArray
items__field_descriptor)]
  unknownFields :: Lens' AddressArray FieldSet
unknownFields
    = (AddressArray -> FieldSet)
-> (AddressArray -> FieldSet -> AddressArray)
-> Lens' AddressArray FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AddressArray -> FieldSet
_AddressArray'_unknownFields
        (\ AddressArray
x__ FieldSet
y__ -> AddressArray
x__ {_AddressArray'_unknownFields = y__})
  defMessage :: AddressArray
defMessage
    = AddressArray'_constructor
        {_AddressArray'items :: Vector ByteString
_AddressArray'items = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AddressArray'_unknownFields :: FieldSet
_AddressArray'_unknownFields = []}
  parseMessage :: Parser AddressArray
parseMessage
    = let
        loop ::
          AddressArray
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
             -> Data.ProtoLens.Encoding.Bytes.Parser AddressArray
        loop :: AddressArray
-> Growing Vector RealWorld ByteString -> Parser AddressArray
loop AddressArray
x Growing Vector RealWorld ByteString
mutable'items
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getBytes
                                              (Prelude.fromIntegral len))
                                        String
"items"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'items
      in
        Parser AddressArray -> String -> Parser AddressArray
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'items <- 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
              loop Data.ProtoLens.defMessage mutable'items)
          String
"AddressArray"
  buildMessage :: AddressArray -> Builder
buildMessage
    = \ AddressArray
_x
        -> 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
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))
                (FoldLike
  (Vector ByteString)
  AddressArray
  AddressArray
  (Vector ByteString)
  (Vector ByteString)
-> AddressArray -> 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'items") AddressArray
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet AddressArray AddressArray FieldSet FieldSet
-> AddressArray -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AddressArray AddressArray FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AddressArray FieldSet
Data.ProtoLens.unknownFields AddressArray
_x))
instance Control.DeepSeq.NFData AddressArray where
  rnf :: AddressArray -> ()
rnf
    = \ AddressArray
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AddressArray -> FieldSet
_AddressArray'_unknownFields AddressArray
x__)
             (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AddressArray -> Vector ByteString
_AddressArray'items AddressArray
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.name' @:: Lens' Asset Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'quantity' @:: Lens' Asset (Prelude.Maybe Asset'Quantity)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'outputCoin' @:: Lens' Asset (Prelude.Maybe Data.Word.Word64)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputCoin' @:: Lens' Asset Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mintCoin' @:: Lens' Asset (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mintCoin' @:: Lens' Asset Data.Int.Int64@ -}
data Asset
  = Asset'_constructor {Asset -> ByteString
_Asset'name :: !Data.ByteString.ByteString,
                        Asset -> Maybe Asset'Quantity
_Asset'quantity :: !(Prelude.Maybe Asset'Quantity),
                        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))
data Asset'Quantity
  = Asset'OutputCoin !Data.Word.Word64 |
    Asset'MintCoin !Data.Int.Int64
  deriving stock (Int -> Asset'Quantity -> ShowS
[Asset'Quantity] -> ShowS
Asset'Quantity -> String
(Int -> Asset'Quantity -> ShowS)
-> (Asset'Quantity -> String)
-> ([Asset'Quantity] -> ShowS)
-> Show Asset'Quantity
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Asset'Quantity -> ShowS
showsPrec :: Int -> Asset'Quantity -> ShowS
$cshow :: Asset'Quantity -> String
show :: Asset'Quantity -> String
$cshowList :: [Asset'Quantity] -> ShowS
showList :: [Asset'Quantity] -> ShowS
Prelude.Show, Asset'Quantity -> Asset'Quantity -> Bool
(Asset'Quantity -> Asset'Quantity -> Bool)
-> (Asset'Quantity -> Asset'Quantity -> Bool) -> Eq Asset'Quantity
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Asset'Quantity -> Asset'Quantity -> Bool
== :: Asset'Quantity -> Asset'Quantity -> Bool
$c/= :: Asset'Quantity -> Asset'Quantity -> Bool
/= :: Asset'Quantity -> Asset'Quantity -> Bool
Prelude.Eq, Eq Asset'Quantity
Eq Asset'Quantity =>
(Asset'Quantity -> Asset'Quantity -> Ordering)
-> (Asset'Quantity -> Asset'Quantity -> Bool)
-> (Asset'Quantity -> Asset'Quantity -> Bool)
-> (Asset'Quantity -> Asset'Quantity -> Bool)
-> (Asset'Quantity -> Asset'Quantity -> Bool)
-> (Asset'Quantity -> Asset'Quantity -> Asset'Quantity)
-> (Asset'Quantity -> Asset'Quantity -> Asset'Quantity)
-> Ord Asset'Quantity
Asset'Quantity -> Asset'Quantity -> Bool
Asset'Quantity -> Asset'Quantity -> Ordering
Asset'Quantity -> Asset'Quantity -> Asset'Quantity
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'Quantity -> Asset'Quantity -> Ordering
compare :: Asset'Quantity -> Asset'Quantity -> Ordering
$c< :: Asset'Quantity -> Asset'Quantity -> Bool
< :: Asset'Quantity -> Asset'Quantity -> Bool
$c<= :: Asset'Quantity -> Asset'Quantity -> Bool
<= :: Asset'Quantity -> Asset'Quantity -> Bool
$c> :: Asset'Quantity -> Asset'Quantity -> Bool
> :: Asset'Quantity -> Asset'Quantity -> Bool
$c>= :: Asset'Quantity -> Asset'Quantity -> Bool
>= :: Asset'Quantity -> Asset'Quantity -> Bool
$cmax :: Asset'Quantity -> Asset'Quantity -> Asset'Quantity
max :: Asset'Quantity -> Asset'Quantity -> Asset'Quantity
$cmin :: Asset'Quantity -> Asset'Quantity -> Asset'Quantity
min :: Asset'Quantity -> Asset'Quantity -> Asset'Quantity
Prelude.Ord)
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 "maybe'quantity" (Prelude.Maybe Asset'Quantity) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'quantity"
-> (Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> Asset
-> f Asset
fieldOf Proxy# "maybe'quantity"
_
    = ((Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
 -> Asset -> f Asset)
-> ((Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
    -> Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> (Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Maybe Asset'Quantity)
-> (Asset -> Maybe Asset'Quantity -> Asset)
-> Lens Asset Asset (Maybe Asset'Quantity) (Maybe Asset'Quantity)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Maybe Asset'Quantity
_Asset'quantity (\ Asset
x__ Maybe Asset'Quantity
y__ -> Asset
x__ {_Asset'quantity = y__}))
        (Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> Maybe Asset'Quantity -> f (Maybe Asset'Quantity)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Asset "maybe'outputCoin" (Prelude.Maybe Data.Word.Word64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'outputCoin"
-> (Maybe Word64 -> f (Maybe Word64)) -> Asset -> f Asset
fieldOf Proxy# "maybe'outputCoin"
_
    = ((Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
 -> Asset -> f Asset)
-> ((Maybe Word64 -> f (Maybe Word64))
    -> Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> (Maybe Word64 -> f (Maybe Word64))
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Maybe Asset'Quantity)
-> (Asset -> Maybe Asset'Quantity -> Asset)
-> Lens Asset Asset (Maybe Asset'Quantity) (Maybe Asset'Quantity)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Maybe Asset'Quantity
_Asset'quantity (\ Asset
x__ Maybe Asset'Quantity
y__ -> Asset
x__ {_Asset'quantity = y__}))
        ((Maybe Asset'Quantity -> Maybe Word64)
-> (Maybe Asset'Quantity -> Maybe Word64 -> Maybe Asset'Quantity)
-> Lens
     (Maybe Asset'Quantity)
     (Maybe Asset'Quantity)
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Asset'Quantity
x__
              -> case Maybe Asset'Quantity
x__ of
                   (Prelude.Just (Asset'OutputCoin Word64
x__val)) -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
x__val
                   Maybe Asset'Quantity
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Asset'Quantity
_ Maybe Word64
y__ -> (Word64 -> Asset'Quantity) -> Maybe Word64 -> Maybe Asset'Quantity
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Word64 -> Asset'Quantity
Asset'OutputCoin Maybe Word64
y__))
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"
_
    = ((Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
 -> Asset -> f Asset)
-> ((Word64 -> f Word64)
    -> Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> (Word64 -> f Word64)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Maybe Asset'Quantity)
-> (Asset -> Maybe Asset'Quantity -> Asset)
-> Lens Asset Asset (Maybe Asset'Quantity) (Maybe Asset'Quantity)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Maybe Asset'Quantity
_Asset'quantity (\ Asset
x__ Maybe Asset'Quantity
y__ -> Asset
x__ {_Asset'quantity = y__}))
        (((Maybe Word64 -> f (Maybe Word64))
 -> Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> ((Word64 -> f Word64) -> Maybe Word64 -> f (Maybe Word64))
-> (Word64 -> f Word64)
-> Maybe Asset'Quantity
-> f (Maybe Asset'Quantity)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Asset'Quantity -> Maybe Word64)
-> (Maybe Asset'Quantity -> Maybe Word64 -> Maybe Asset'Quantity)
-> Lens
     (Maybe Asset'Quantity)
     (Maybe Asset'Quantity)
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Asset'Quantity
x__
                 -> case Maybe Asset'Quantity
x__ of
                      (Prelude.Just (Asset'OutputCoin Word64
x__val)) -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
x__val
                      Maybe Asset'Quantity
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Asset'Quantity
_ Maybe Word64
y__ -> (Word64 -> Asset'Quantity) -> Maybe Word64 -> Maybe Asset'Quantity
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Word64 -> Asset'Quantity
Asset'OutputCoin 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 Asset "maybe'mintCoin" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'mintCoin"
-> (Maybe Int64 -> f (Maybe Int64)) -> Asset -> f Asset
fieldOf Proxy# "maybe'mintCoin"
_
    = ((Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
 -> Asset -> f Asset)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> (Maybe Int64 -> f (Maybe Int64))
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Maybe Asset'Quantity)
-> (Asset -> Maybe Asset'Quantity -> Asset)
-> Lens Asset Asset (Maybe Asset'Quantity) (Maybe Asset'Quantity)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Maybe Asset'Quantity
_Asset'quantity (\ Asset
x__ Maybe Asset'Quantity
y__ -> Asset
x__ {_Asset'quantity = y__}))
        ((Maybe Asset'Quantity -> Maybe Int64)
-> (Maybe Asset'Quantity -> Maybe Int64 -> Maybe Asset'Quantity)
-> Lens
     (Maybe Asset'Quantity)
     (Maybe Asset'Quantity)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Asset'Quantity
x__
              -> case Maybe Asset'Quantity
x__ of
                   (Prelude.Just (Asset'MintCoin Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Asset'Quantity
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Asset'Quantity
_ Maybe Int64
y__ -> (Int64 -> Asset'Quantity) -> Maybe Int64 -> Maybe Asset'Quantity
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Asset'Quantity
Asset'MintCoin Maybe Int64
y__))
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"
_
    = ((Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
 -> Asset -> f Asset)
-> ((Int64 -> f Int64)
    -> Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> (Int64 -> f Int64)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Asset -> Maybe Asset'Quantity)
-> (Asset -> Maybe Asset'Quantity -> Asset)
-> Lens Asset Asset (Maybe Asset'Quantity) (Maybe Asset'Quantity)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Asset -> Maybe Asset'Quantity
_Asset'quantity (\ Asset
x__ Maybe Asset'Quantity
y__ -> Asset
x__ {_Asset'quantity = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Asset'Quantity -> f (Maybe Asset'Quantity))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Asset'Quantity
-> f (Maybe Asset'Quantity)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Asset'Quantity -> Maybe Int64)
-> (Maybe Asset'Quantity -> Maybe Int64 -> Maybe Asset'Quantity)
-> Lens
     (Maybe Asset'Quantity)
     (Maybe Asset'Quantity)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Asset'Quantity
x__
                 -> case Maybe Asset'Quantity
x__ of
                      (Prelude.Just (Asset'MintCoin Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Asset'Quantity
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Asset'Quantity
_ Maybe Int64
y__ -> (Int64 -> Asset'Quantity) -> Maybe Int64 -> Maybe Asset'Quantity
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Asset'Quantity
Asset'MintCoin 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.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%\n\
      \\voutput_coin\CAN\STX \SOH(\EOTH\NULR\n\
      \outputCoinB\STX0\SOH\DC2!\n\
      \\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoinB\STX0\SOHB\n\
      \\n\
      \\bquantity"
  packedFileDescriptor :: Proxy Asset -> ByteString
packedFileDescriptor Proxy Asset
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Asset)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor Asset
name__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Asset ByteString
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Asset Asset ByteString ByteString
-> FieldAccessor Asset ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor Asset
        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)
              (Lens' Asset (Maybe Word64) -> FieldAccessor Asset 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'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)
              (Lens' Asset (Maybe Int64) -> FieldAccessor Asset 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'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'quantity :: Maybe Asset'Quantity
_Asset'quantity = Maybe Asset'Quantity
forall a. Maybe a
Prelude.Nothing, _Asset'_unknownFields :: FieldSet
_Asset'_unknownFields = []}
  parseMessage :: Parser Asset
parseMessage
    = let
        loop :: Asset -> Data.ProtoLens.Encoding.Bytes.Parser Asset
        loop :: Asset -> Parser Asset
loop Asset
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"output_coin"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"outputCoin") y x)
                        Word64
24
                          -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"mint_coin"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"mintCoin") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Asset -> String -> Parser Asset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Asset -> Parser Asset
loop Asset
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Asset"
  buildMessage :: Asset -> Builder
buildMessage
    = \ Asset
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString Asset Asset ByteString ByteString
-> Asset -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Asset
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Asset'Quantity)
  Asset
  Asset
  (Maybe Asset'Quantity)
  (Maybe Asset'Quantity)
-> Asset -> Maybe Asset'Quantity
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'quantity") Asset
_x
                 of
                   Maybe Asset'Quantity
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just (Asset'OutputCoin Word64
v))
                     -> 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)
                   (Prelude.Just (Asset'MintCoin Int64
v))
                     -> 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__)
                (Maybe Asset'Quantity -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Asset -> Maybe Asset'Quantity
_Asset'quantity Asset
x__) ()))
instance Control.DeepSeq.NFData Asset'Quantity where
  rnf :: Asset'Quantity -> ()
rnf (Asset'OutputCoin Word64
x__) = Word64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Word64
x__
  rnf (Asset'MintCoin Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
_Asset'OutputCoin ::
  Data.ProtoLens.Prism.Prism' Asset'Quantity Data.Word.Word64
_Asset'OutputCoin :: Prism' Asset'Quantity Word64
_Asset'OutputCoin
  = (Word64 -> Asset'Quantity)
-> (Asset'Quantity -> Maybe Word64) -> Prism' Asset'Quantity Word64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Word64 -> Asset'Quantity
Asset'OutputCoin
      (\ Asset'Quantity
p__
         -> case Asset'Quantity
p__ of
              (Asset'OutputCoin Word64
p__val) -> Word64 -> Maybe Word64
forall a. a -> Maybe a
Prelude.Just Word64
p__val
              Asset'Quantity
_otherwise -> Maybe Word64
forall a. Maybe a
Prelude.Nothing)
_Asset'MintCoin ::
  Data.ProtoLens.Prism.Prism' Asset'Quantity Data.Int.Int64
_Asset'MintCoin :: Prism' Asset'Quantity Int64
_Asset'MintCoin
  = (Int64 -> Asset'Quantity)
-> (Asset'Quantity -> Maybe Int64) -> Prism' Asset'Quantity Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Asset'Quantity
Asset'MintCoin
      (\ Asset'Quantity
p__
         -> case Asset'Quantity
p__ of
              (Asset'MintCoin Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Asset'Quantity
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
{- | 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\SYN\n\
      \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXintB\STX0\SOH\DC2\FS\n\
      \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\
      \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\
      \\abig_int"
  packedFileDescriptor :: Proxy BigInt -> ByteString
packedFileDescriptor Proxy BigInt
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BigInt)
fieldsByTag
    = let
        int__field_descriptor :: FieldDescriptor BigInt
int__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor BigInt Int64
-> FieldDescriptor BigInt
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"int"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens' BigInt (Maybe Int64) -> FieldAccessor BigInt Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'int")) ::
              Data.ProtoLens.FieldDescriptor BigInt
        bigUInt__field_descriptor :: FieldDescriptor BigInt
bigUInt__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BigInt ByteString
-> FieldDescriptor BigInt
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"big_u_int"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' BigInt (Maybe ByteString) -> FieldAccessor BigInt ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'bigUInt")) ::
              Data.ProtoLens.FieldDescriptor BigInt
        bigNInt__field_descriptor :: FieldDescriptor BigInt
bigNInt__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor BigInt ByteString
-> FieldDescriptor BigInt
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"big_n_int"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' BigInt (Maybe ByteString) -> FieldAccessor BigInt ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'bigNInt")) ::
              Data.ProtoLens.FieldDescriptor BigInt
      in
        [(Tag, FieldDescriptor BigInt)] -> Map Tag (FieldDescriptor BigInt)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor BigInt
int__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor BigInt
bigUInt__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor BigInt
bigNInt__field_descriptor)]
  unknownFields :: Lens' BigInt FieldSet
unknownFields
    = (BigInt -> FieldSet)
-> (BigInt -> FieldSet -> BigInt) -> Lens' BigInt FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BigInt -> FieldSet
_BigInt'_unknownFields
        (\ BigInt
x__ FieldSet
y__ -> BigInt
x__ {_BigInt'_unknownFields = y__})
  defMessage :: BigInt
defMessage
    = BigInt'_constructor
        {_BigInt'bigInt :: Maybe BigInt'BigInt
_BigInt'bigInt = Maybe BigInt'BigInt
forall a. Maybe a
Prelude.Nothing, _BigInt'_unknownFields :: FieldSet
_BigInt'_unknownFields = []}
  parseMessage :: Parser BigInt
parseMessage
    = let
        loop :: BigInt -> Data.ProtoLens.Encoding.Bytes.Parser BigInt
        loop :: BigInt -> Parser BigInt
loop BigInt
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"int"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"big_u_int"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigUInt") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"big_n_int"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigNInt") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser BigInt -> String -> Parser BigInt
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BigInt -> Parser BigInt
loop BigInt
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"BigInt"
  buildMessage :: BigInt -> Builder
buildMessage
    = \ BigInt
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe BigInt'BigInt)
  BigInt
  BigInt
  (Maybe BigInt'BigInt)
  (Maybe BigInt'BigInt)
-> BigInt -> Maybe BigInt'BigInt
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'bigInt") BigInt
_x
              of
                Maybe BigInt'BigInt
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (BigInt'Int Int64
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                       ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
v)
                (Prelude.Just (BigInt'BigUInt ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v)
                (Prelude.Just (BigInt'BigNInt ByteString
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((\ ByteString
bs
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          ByteString
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet BigInt BigInt FieldSet FieldSet
-> BigInt -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BigInt BigInt FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' BigInt FieldSet
Data.ProtoLens.unknownFields BigInt
_x))
instance Control.DeepSeq.NFData BigInt where
  rnf :: BigInt -> ()
rnf
    = \ BigInt
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BigInt -> FieldSet
_BigInt'_unknownFields BigInt
x__)
             (Maybe BigInt'BigInt -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BigInt -> Maybe BigInt'BigInt
_BigInt'bigInt BigInt
x__) ())
instance Control.DeepSeq.NFData BigInt'BigInt where
  rnf :: BigInt'BigInt -> ()
rnf (BigInt'Int Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (BigInt'BigUInt ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (BigInt'BigNInt ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
_BigInt'Int ::
  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.Int.Int64
_BigInt'Int :: Prism' BigInt'BigInt Int64
_BigInt'Int
  = (Int64 -> BigInt'BigInt)
-> (BigInt'BigInt -> Maybe Int64) -> Prism' BigInt'BigInt Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> BigInt'BigInt
BigInt'Int
      (\ BigInt'BigInt
p__
         -> case BigInt'BigInt
p__ of
              (BigInt'Int Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              BigInt'BigInt
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_BigInt'BigUInt ::
  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString
_BigInt'BigUInt :: Prism' BigInt'BigInt ByteString
_BigInt'BigUInt
  = (ByteString -> BigInt'BigInt)
-> (BigInt'BigInt -> Maybe ByteString)
-> Prism' BigInt'BigInt ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> BigInt'BigInt
BigInt'BigUInt
      (\ BigInt'BigInt
p__
         -> case BigInt'BigInt
p__ of
              (BigInt'BigUInt ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_BigInt'BigNInt ::
  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString
_BigInt'BigNInt :: Prism' BigInt'BigInt ByteString
_BigInt'BigNInt
  = (ByteString -> BigInt'BigInt)
-> (BigInt'BigInt -> Maybe ByteString)
-> Prism' BigInt'BigInt ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> BigInt'BigInt
BigInt'BigNInt
      (\ BigInt'BigInt
p__
         -> case BigInt'BigInt
p__ of
              (BigInt'BigNInt ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              BigInt'BigInt
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Utxorpc.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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'fields)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'fields") frozen'fields x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"tag"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x)
                                  mutable'fields
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"any_constructor"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"anyConstructor") y x)
                                  mutable'fields
                        Word64
26
                          -> do !y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"fields"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'fields y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'fields
      in
        Parser Constr -> String -> Parser Constr
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'fields <- IO (Growing Vector RealWorld PlutusData)
-> Parser (Growing Vector RealWorld PlutusData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld PlutusData)
IO (Growing Vector (PrimState IO) PlutusData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'fields)
          String
"Constr"
  buildMessage :: Constr -> Builder
buildMessage
    = \ Constr
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word32
_v = FoldLike Word32 Constr Constr Word32 Word32 -> Constr -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tag") Constr
_x
              in
                if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v
                     = FoldLike Word64 Constr Constr Word64 Word64 -> Constr -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"anyConstructor") Constr
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((PlutusData -> Builder) -> Vector PlutusData -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ PlutusData
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (PlutusData -> ByteString) -> PlutusData -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 PlutusData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusData
_v))
                      (FoldLike
  (Vector PlutusData)
  Constr
  Constr
  (Vector PlutusData)
  (Vector PlutusData)
-> Constr -> Vector PlutusData
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'fields") Constr
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Constr Constr FieldSet FieldSet
-> Constr -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Constr Constr FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Constr FieldSet
Data.ProtoLens.unknownFields Constr
_x))))
instance Control.DeepSeq.NFData Constr where
  rnf :: Constr -> ()
rnf
    = \ Constr
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Constr -> FieldSet
_Constr'_unknownFields Constr
x__)
             (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Constr -> Word32
_Constr'tag Constr
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Constr -> Word64
_Constr'anyConstructor Constr
x__)
                   (Vector PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Constr -> Vector PlutusData
_Constr'fields Constr
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.values' @:: Lens' CostModel [Data.Int.Int64]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'values' @:: Lens' CostModel (Data.Vector.Unboxed.Vector Data.Int.Int64)@ -}
data CostModel
  = CostModel'_constructor {CostModel -> Vector Int64
_CostModel'values :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
                            CostModel -> FieldSet
_CostModel'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CostModel -> CostModel -> Bool
(CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool) -> Eq CostModel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CostModel -> CostModel -> Bool
== :: CostModel -> CostModel -> Bool
$c/= :: CostModel -> CostModel -> Bool
/= :: CostModel -> CostModel -> Bool
Prelude.Eq, Eq CostModel
Eq CostModel =>
(CostModel -> CostModel -> Ordering)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> CostModel)
-> (CostModel -> CostModel -> CostModel)
-> Ord CostModel
CostModel -> CostModel -> Bool
CostModel -> CostModel -> Ordering
CostModel -> CostModel -> CostModel
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CostModel -> CostModel -> Ordering
compare :: CostModel -> CostModel -> Ordering
$c< :: CostModel -> CostModel -> Bool
< :: CostModel -> CostModel -> Bool
$c<= :: CostModel -> CostModel -> Bool
<= :: CostModel -> CostModel -> Bool
$c> :: CostModel -> CostModel -> Bool
> :: CostModel -> CostModel -> Bool
$c>= :: CostModel -> CostModel -> Bool
>= :: CostModel -> CostModel -> Bool
$cmax :: CostModel -> CostModel -> CostModel
max :: CostModel -> CostModel -> CostModel
$cmin :: CostModel -> CostModel -> CostModel
min :: CostModel -> CostModel -> CostModel
Prelude.Ord)
instance Prelude.Show CostModel where
  showsPrec :: Int -> CostModel -> ShowS
showsPrec Int
_ CostModel
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CostModel -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CostModel
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CostModel "values" [Data.Int.Int64] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "values"
-> ([Int64] -> f [Int64]) -> CostModel -> f CostModel
fieldOf Proxy# "values"
_
    = ((Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> CostModel
-> f CostModel
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModel -> Vector Int64)
-> (CostModel -> Vector Int64 -> CostModel)
-> Lens CostModel CostModel (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModel -> Vector Int64
_CostModel'values (\ CostModel
x__ Vector Int64
y__ -> CostModel
x__ {_CostModel'values = y__}))
        ((Vector Int64 -> [Int64])
-> (Vector Int64 -> [Int64] -> Vector Int64)
-> Lens (Vector Int64) (Vector Int64) [Int64] [Int64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int64 -> [Int64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Int64
_ [Int64]
y__ -> [Int64] -> Vector Int64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int64]
y__))
instance Data.ProtoLens.Field.HasField CostModel "vec'values" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'values"
-> (Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel
fieldOf Proxy# "vec'values"
_
    = ((Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel)
-> ((Vector Int64 -> f (Vector Int64))
    -> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> CostModel
-> f CostModel
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModel -> Vector Int64)
-> (CostModel -> Vector Int64 -> CostModel)
-> Lens CostModel CostModel (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModel -> Vector Int64
_CostModel'values (\ CostModel
x__ Vector Int64
y__ -> CostModel
x__ {_CostModel'values = y__}))
        (Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CostModel where
  messageName :: Proxy CostModel -> Text
messageName Proxy CostModel
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.CostModel"
  packedMessageDescriptor :: Proxy CostModel -> ByteString
packedMessageDescriptor Proxy CostModel
_
    = ByteString
"\n\
      \\tCostModel\DC2\SYN\n\
      \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues"
  packedFileDescriptor :: Proxy CostModel -> ByteString
packedFileDescriptor Proxy CostModel
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CostModel)
fieldsByTag
    = let
        values__field_descriptor :: FieldDescriptor CostModel
values__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CostModel Int64
-> FieldDescriptor CostModel
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"values"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Packing -> Lens' CostModel [Int64] -> FieldAccessor CostModel Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values")) ::
              Data.ProtoLens.FieldDescriptor CostModel
      in
        [(Tag, FieldDescriptor CostModel)]
-> Map Tag (FieldDescriptor CostModel)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CostModel
values__field_descriptor)]
  unknownFields :: Lens' CostModel FieldSet
unknownFields
    = (CostModel -> FieldSet)
-> (CostModel -> FieldSet -> CostModel) -> Lens' CostModel FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CostModel -> FieldSet
_CostModel'_unknownFields
        (\ CostModel
x__ FieldSet
y__ -> CostModel
x__ {_CostModel'_unknownFields = y__})
  defMessage :: CostModel
defMessage
    = CostModel'_constructor
        {_CostModel'values :: Vector Int64
_CostModel'values = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CostModel'_unknownFields :: FieldSet
_CostModel'_unknownFields = []}
  parseMessage :: Parser CostModel
parseMessage
    = let
        loop ::
          CostModel
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
             -> Data.ProtoLens.Encoding.Bytes.Parser CostModel
        loop :: CostModel -> Growing Vector RealWorld Int64 -> Parser CostModel
loop CostModel
x Growing Vector RealWorld Int64
mutable'values
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'values)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'values") frozen'values x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do !y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        String
"values"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'values y)
                                loop x v
                        Word64
10
                          -> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Data.ProtoLens.Encoding.Bytes.isolate
                                          (Prelude.fromIntegral len)
                                          ((let
                                              ploop Growing v RealWorld a
qs
                                                = do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if packedEnd then
                                                         Prelude.return qs
                                                     else
                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    (Prelude.fmap
                                                                       Prelude.fromIntegral
                                                                       Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "values"
                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Data.ProtoLens.Encoding.Growing.append
                                                                        qs q)
                                                            ploop qs'
                                            in ploop)
                                             mutable'values)
                                loop x y
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'values
      in
        Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'values <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Int64)
IO (Growing Vector (PrimState IO) Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'values)
          String
"CostModel"
  buildMessage :: CostModel -> Builder
buildMessage
    = \ CostModel
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Int64
p = FoldLike
  (Vector Int64) CostModel CostModel (Vector Int64) (Vector Int64)
-> CostModel -> Vector Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") CostModel
_x
              in
                if Vector Int64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int64
p then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                               Vector Int64
p))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet CostModel CostModel FieldSet FieldSet
-> CostModel -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CostModel CostModel FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModel FieldSet
Data.ProtoLens.unknownFields CostModel
_x))
instance Control.DeepSeq.NFData CostModel where
  rnf :: CostModel -> ()
rnf
    = \ CostModel
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CostModel -> FieldSet
_CostModel'_unknownFields CostModel
x__)
             (Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CostModel -> Vector Int64
_CostModel'values CostModel
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.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)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV3' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' CostModels (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV4' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' CostModels (Prelude.Maybe CostModel)@ -}
data CostModels
  = CostModels'_constructor {CostModels -> Maybe CostModel
_CostModels'plutusV1 :: !(Prelude.Maybe CostModel),
                             CostModels -> Maybe CostModel
_CostModels'plutusV2 :: !(Prelude.Maybe CostModel),
                             CostModels -> Maybe CostModel
_CostModels'plutusV3 :: !(Prelude.Maybe CostModel),
                             CostModels -> Maybe CostModel
_CostModels'plutusV4 :: !(Prelude.Maybe CostModel),
                             CostModels -> FieldSet
_CostModels'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CostModels -> CostModels -> Bool
(CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool) -> Eq CostModels
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CostModels -> CostModels -> Bool
== :: CostModels -> CostModels -> Bool
$c/= :: CostModels -> CostModels -> Bool
/= :: CostModels -> CostModels -> Bool
Prelude.Eq, Eq CostModels
Eq CostModels =>
(CostModels -> CostModels -> Ordering)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> Bool)
-> (CostModels -> CostModels -> CostModels)
-> (CostModels -> CostModels -> CostModels)
-> Ord CostModels
CostModels -> CostModels -> Bool
CostModels -> CostModels -> Ordering
CostModels -> CostModels -> CostModels
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CostModels -> CostModels -> Ordering
compare :: CostModels -> CostModels -> Ordering
$c< :: CostModels -> CostModels -> Bool
< :: CostModels -> CostModels -> Bool
$c<= :: CostModels -> CostModels -> Bool
<= :: CostModels -> CostModels -> Bool
$c> :: CostModels -> CostModels -> Bool
> :: CostModels -> CostModels -> Bool
$c>= :: CostModels -> CostModels -> Bool
>= :: CostModels -> CostModels -> Bool
$cmax :: CostModels -> CostModels -> CostModels
max :: CostModels -> CostModels -> CostModels
$cmin :: CostModels -> CostModels -> CostModels
min :: CostModels -> CostModels -> CostModels
Prelude.Ord)
instance Prelude.Show CostModels where
  showsPrec :: Int -> CostModels -> ShowS
showsPrec Int
_ CostModels
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CostModels -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CostModels
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CostModels "plutusV1" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV1"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV1"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV1
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV1 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV1" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV1"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV1"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV1
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV1 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModels "plutusV2" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV2"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV2"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV2
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV2 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV2" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV2"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV2"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV2
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV2 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModels "plutusV3" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV3"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV3"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV3
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV3 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV3" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV3"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV3"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV3
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV3 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CostModels "plutusV4" CostModel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV4"
-> (CostModel -> f CostModel) -> CostModels -> f CostModels
fieldOf Proxy# "plutusV4"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((CostModel -> f CostModel)
    -> Maybe CostModel -> f (Maybe CostModel))
-> (CostModel -> f CostModel)
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV4
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV4 = y__}))
        (CostModel -> Lens' (Maybe CostModel) CostModel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModel
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV4" (Prelude.Maybe CostModel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV4"
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
fieldOf Proxy# "maybe'plutusV4"
_
    = ((Maybe CostModel -> f (Maybe CostModel))
 -> CostModels -> f CostModels)
-> ((Maybe CostModel -> f (Maybe CostModel))
    -> Maybe CostModel -> f (Maybe CostModel))
-> (Maybe CostModel -> f (Maybe CostModel))
-> CostModels
-> f CostModels
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModels -> Maybe CostModel)
-> (CostModels -> Maybe CostModel -> CostModels)
-> Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModels -> Maybe CostModel
_CostModels'plutusV4
           (\ CostModels
x__ Maybe CostModel
y__ -> CostModels
x__ {_CostModels'plutusV4 = y__}))
        (Maybe CostModel -> f (Maybe CostModel))
-> Maybe CostModel -> f (Maybe CostModel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CostModels where
  messageName :: Proxy CostModels -> Text
messageName Proxy CostModels
_ = String -> Text
Data.Text.pack String
"utxorpc.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\DC2?\n\
      \\tplutus_v3\CAN\ETX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV3\DC2?\n\
      \\tplutus_v4\CAN\EOT \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV4"
  packedFileDescriptor :: Proxy CostModels -> ByteString
packedFileDescriptor Proxy CostModels
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CostModels)
fieldsByTag
    = let
        plutusV1__field_descriptor :: FieldDescriptor CostModels
plutusV1__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v1"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV1")) ::
              Data.ProtoLens.FieldDescriptor CostModels
        plutusV2__field_descriptor :: FieldDescriptor CostModels
plutusV2__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v2"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV2")) ::
              Data.ProtoLens.FieldDescriptor CostModels
        plutusV3__field_descriptor :: FieldDescriptor CostModels
plutusV3__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v3"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV3")) ::
              Data.ProtoLens.FieldDescriptor CostModels
        plutusV4__field_descriptor :: FieldDescriptor CostModels
plutusV4__field_descriptor
          = String
-> FieldTypeDescriptor CostModel
-> FieldAccessor CostModels CostModel
-> FieldDescriptor CostModels
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"plutus_v4"
              (MessageOrGroup -> FieldTypeDescriptor CostModel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CostModel)
              (Lens CostModels CostModels (Maybe CostModel) (Maybe CostModel)
-> FieldAccessor CostModels CostModel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV4")) ::
              Data.ProtoLens.FieldDescriptor CostModels
      in
        [(Tag, FieldDescriptor CostModels)]
-> Map Tag (FieldDescriptor CostModels)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CostModels
plutusV1__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CostModels
plutusV2__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor CostModels
plutusV3__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor CostModels
plutusV4__field_descriptor)]
  unknownFields :: Lens' CostModels FieldSet
unknownFields
    = (CostModels -> FieldSet)
-> (CostModels -> FieldSet -> CostModels)
-> Lens' CostModels FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CostModels -> FieldSet
_CostModels'_unknownFields
        (\ CostModels
x__ FieldSet
y__ -> CostModels
x__ {_CostModels'_unknownFields = y__})
  defMessage :: CostModels
defMessage
    = CostModels'_constructor
        {_CostModels'plutusV1 :: Maybe CostModel
_CostModels'plutusV1 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'plutusV2 :: Maybe CostModel
_CostModels'plutusV2 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'plutusV3 :: Maybe CostModel
_CostModels'plutusV3 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'plutusV4 :: Maybe CostModel
_CostModels'plutusV4 = Maybe CostModel
forall a. Maybe a
Prelude.Nothing,
         _CostModels'_unknownFields :: FieldSet
_CostModels'_unknownFields = []}
  parseMessage :: Parser CostModels
parseMessage
    = let
        loop ::
          CostModels -> Data.ProtoLens.Encoding.Bytes.Parser CostModels
        loop :: CostModels -> Parser CostModels
loop CostModels
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v1"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x)
                        Word64
18
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v2"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x)
                        Word64
26
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v3"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x)
                        Word64
34
                          -> do y <- Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"plutus_v4"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser CostModels -> String -> Parser CostModels
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CostModels -> Parser CostModels
loop CostModels
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CostModels"
  buildMessage :: CostModels -> Builder
buildMessage
    = \ CostModels
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV1") CostModels
_x
              of
                Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just CostModel
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV2") CostModels
_x
                 of
                   Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just CostModel
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV3") CostModels
_x
                    of
                      Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just CostModel
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe CostModel)
  CostModels
  CostModels
  (Maybe CostModel)
  (Maybe CostModel)
-> CostModels -> Maybe CostModel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'plutusV4") CostModels
_x
                       of
                         Maybe CostModel
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just CostModel
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (CostModel -> ByteString) -> CostModel -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   CostModel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CostModel
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet CostModels CostModels FieldSet FieldSet
-> CostModels -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CostModels CostModels FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModels FieldSet
Data.ProtoLens.unknownFields CostModels
_x)))))
instance Control.DeepSeq.NFData CostModels where
  rnf :: CostModels -> ()
rnf
    = \ CostModels
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CostModels -> FieldSet
_CostModels'_unknownFields CostModels
x__)
             (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CostModels -> Maybe CostModel
_CostModels'plutusV1 CostModels
x__)
                (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (CostModels -> Maybe CostModel
_CostModels'plutusV2 CostModels
x__)
                   (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (CostModels -> Maybe CostModel
_CostModels'plutusV3 CostModels
x__)
                      (Maybe CostModel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CostModels -> Maybe CostModel
_CostModels'plutusV4 CostModels
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' Datum Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.payload' @:: Lens' Datum PlutusData@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'payload' @:: Lens' Datum (Prelude.Maybe PlutusData)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.originalCbor' @:: Lens' Datum Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'originalCbor' @:: Lens' Datum (Prelude.Maybe Data.ByteString.ByteString)@ -}
data Datum
  = Datum'_constructor {Datum -> ByteString
_Datum'hash :: !Data.ByteString.ByteString,
                        Datum -> Maybe PlutusData
_Datum'payload :: !(Prelude.Maybe PlutusData),
                        Datum -> Maybe ByteString
_Datum'originalCbor :: !(Prelude.Maybe Data.ByteString.ByteString),
                        Datum -> FieldSet
_Datum'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Datum -> Datum -> Bool
(Datum -> Datum -> Bool) -> (Datum -> Datum -> Bool) -> Eq Datum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Datum -> Datum -> Bool
== :: Datum -> Datum -> Bool
$c/= :: Datum -> Datum -> Bool
/= :: Datum -> Datum -> Bool
Prelude.Eq, Eq Datum
Eq Datum =>
(Datum -> Datum -> Ordering)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Bool)
-> (Datum -> Datum -> Datum)
-> (Datum -> Datum -> Datum)
-> Ord Datum
Datum -> Datum -> Bool
Datum -> Datum -> Ordering
Datum -> Datum -> Datum
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Datum -> Datum -> Ordering
compare :: Datum -> Datum -> Ordering
$c< :: Datum -> Datum -> Bool
< :: Datum -> Datum -> Bool
$c<= :: Datum -> Datum -> Bool
<= :: Datum -> Datum -> Bool
$c> :: Datum -> Datum -> Bool
> :: Datum -> Datum -> Bool
$c>= :: Datum -> Datum -> Bool
>= :: Datum -> Datum -> Bool
$cmax :: Datum -> Datum -> Datum
max :: Datum -> Datum -> Datum
$cmin :: Datum -> Datum -> Datum
min :: Datum -> Datum -> Datum
Prelude.Ord)
instance Prelude.Show Datum where
  showsPrec :: Int -> Datum -> ShowS
showsPrec Int
_ Datum
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Datum -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Datum
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Datum "hash" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash" -> (ByteString -> f ByteString) -> Datum -> f Datum
fieldOf Proxy# "hash"
_
    = ((ByteString -> f ByteString) -> Datum -> f Datum)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> ByteString)
-> (Datum -> ByteString -> Datum)
-> Lens Datum Datum ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> ByteString
_Datum'hash (\ Datum
x__ ByteString
y__ -> Datum
x__ {_Datum'hash = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Datum "payload" PlutusData where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "payload"
-> (PlutusData -> f PlutusData) -> Datum -> f Datum
fieldOf Proxy# "payload"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData)) -> Datum -> f Datum)
-> ((PlutusData -> f PlutusData)
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (PlutusData -> f PlutusData)
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe PlutusData)
-> (Datum -> Maybe PlutusData -> Datum)
-> Lens Datum Datum (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe PlutusData
_Datum'payload (\ Datum
x__ Maybe PlutusData
y__ -> Datum
x__ {_Datum'payload = y__}))
        (PlutusData -> Lens' (Maybe PlutusData) PlutusData
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PlutusData
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Datum "maybe'payload" (Prelude.Maybe PlutusData) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'payload"
-> (Maybe PlutusData -> f (Maybe PlutusData)) -> Datum -> f Datum
fieldOf Proxy# "maybe'payload"
_
    = ((Maybe PlutusData -> f (Maybe PlutusData)) -> Datum -> f Datum)
-> ((Maybe PlutusData -> f (Maybe PlutusData))
    -> Maybe PlutusData -> f (Maybe PlutusData))
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe PlutusData)
-> (Datum -> Maybe PlutusData -> Datum)
-> Lens Datum Datum (Maybe PlutusData) (Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe PlutusData
_Datum'payload (\ Datum
x__ Maybe PlutusData
y__ -> Datum
x__ {_Datum'payload = y__}))
        (Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe PlutusData -> f (Maybe PlutusData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Datum "originalCbor" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "originalCbor"
-> (ByteString -> f ByteString) -> Datum -> f Datum
fieldOf Proxy# "originalCbor"
_
    = ((Maybe ByteString -> f (Maybe ByteString)) -> Datum -> f Datum)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe ByteString)
-> (Datum -> Maybe ByteString -> Datum)
-> Lens Datum Datum (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe ByteString
_Datum'originalCbor (\ Datum
x__ Maybe ByteString
y__ -> Datum
x__ {_Datum'originalCbor = y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField Datum "maybe'originalCbor" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'originalCbor"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Datum -> f Datum
fieldOf Proxy# "maybe'originalCbor"
_
    = ((Maybe ByteString -> f (Maybe ByteString)) -> Datum -> f Datum)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Datum
-> f Datum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Datum -> Maybe ByteString)
-> (Datum -> Maybe ByteString -> Datum)
-> Lens Datum Datum (Maybe ByteString) (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Datum -> Maybe ByteString
_Datum'originalCbor (\ Datum
x__ Maybe ByteString
y__ -> Datum
x__ {_Datum'originalCbor = y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Datum where
  messageName :: Proxy Datum -> Text
messageName Proxy Datum
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Datum"
  packedMessageDescriptor :: Proxy Datum -> ByteString
packedMessageDescriptor Proxy Datum
_
    = ByteString
"\n\
      \\ENQDatum\DC2\DC2\n\
      \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2B\n\
      \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataH\NULR\apayload\136\SOH\SOH\DC2(\n\
      \\roriginal_cbor\CAN\ETX \SOH(\fH\SOHR\foriginalCbor\136\SOH\SOHB\n\
      \\n\
      \\b_payloadB\DLE\n\
      \\SO_original_cbor"
  packedFileDescriptor :: Proxy Datum -> ByteString
packedFileDescriptor Proxy Datum
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Datum)
fieldsByTag
    = let
        hash__field_descriptor :: FieldDescriptor Datum
hash__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Datum ByteString
-> FieldDescriptor Datum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hash"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens Datum Datum ByteString ByteString
-> FieldAccessor Datum ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash")) ::
              Data.ProtoLens.FieldDescriptor Datum
        payload__field_descriptor :: FieldDescriptor Datum
payload__field_descriptor
          = String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor Datum PlutusData
-> FieldDescriptor Datum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"payload"
              (MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlutusData)
              (Lens Datum Datum (Maybe PlutusData) (Maybe PlutusData)
-> FieldAccessor Datum PlutusData
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'payload")) ::
              Data.ProtoLens.FieldDescriptor Datum
        originalCbor__field_descriptor :: FieldDescriptor Datum
originalCbor__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Datum ByteString
-> FieldDescriptor Datum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"original_cbor"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens Datum Datum (Maybe ByteString) (Maybe ByteString)
-> FieldAccessor Datum ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalCbor")) ::
              Data.ProtoLens.FieldDescriptor Datum
      in
        [(Tag, FieldDescriptor Datum)] -> Map Tag (FieldDescriptor Datum)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Datum
hash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Datum
payload__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Datum
originalCbor__field_descriptor)]
  unknownFields :: Lens' Datum FieldSet
unknownFields
    = (Datum -> FieldSet)
-> (Datum -> FieldSet -> Datum) -> Lens' Datum FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Datum -> FieldSet
_Datum'_unknownFields
        (\ Datum
x__ FieldSet
y__ -> Datum
x__ {_Datum'_unknownFields = y__})
  defMessage :: Datum
defMessage
    = Datum'_constructor
        {_Datum'hash :: ByteString
_Datum'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Datum'payload :: Maybe PlutusData
_Datum'payload = Maybe PlutusData
forall a. Maybe a
Prelude.Nothing,
         _Datum'originalCbor :: Maybe ByteString
_Datum'originalCbor = Maybe ByteString
forall a. Maybe a
Prelude.Nothing, _Datum'_unknownFields :: FieldSet
_Datum'_unknownFields = []}
  parseMessage :: Parser Datum
parseMessage
    = let
        loop :: Datum -> Data.ProtoLens.Encoding.Bytes.Parser Datum
        loop :: Datum -> Parser Datum
loop Datum
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"hash"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)
                        Word64
18
                          -> do y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"payload"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"original_cbor"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"originalCbor") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Datum -> String -> Parser Datum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Datum -> Parser Datum
loop Datum
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Datum"
  buildMessage :: Datum -> Builder
buildMessage
    = \ Datum
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString Datum Datum ByteString ByteString
-> Datum -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") Datum
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe PlutusData)
  Datum
  Datum
  (Maybe PlutusData)
  (Maybe PlutusData)
-> Datum -> Maybe PlutusData
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'payload") Datum
_x
                 of
                   Maybe PlutusData
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just PlutusData
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (PlutusData -> ByteString) -> PlutusData -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             PlutusData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusData
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe ByteString)
  Datum
  Datum
  (Maybe ByteString)
  (Maybe ByteString)
-> Datum -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalCbor") Datum
_x
                    of
                      Maybe ByteString
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just ByteString
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((\ ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                ByteString
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet Datum Datum FieldSet FieldSet
-> Datum -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Datum Datum FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Datum FieldSet
Data.ProtoLens.unknownFields Datum
_x))))
instance Control.DeepSeq.NFData Datum where
  rnf :: Datum -> ()
rnf
    = \ Datum
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Datum -> FieldSet
_Datum'_unknownFields Datum
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Datum -> ByteString
_Datum'hash Datum
x__)
                (Maybe PlutusData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Datum -> Maybe PlutusData
_Datum'payload Datum
x__)
                   (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Datum -> Maybe ByteString
_Datum'originalCbor Datum
x__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"steps"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x)
                        Word64
18
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"memory"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"steps"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"memory"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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.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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'assets)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'assets") frozen'assets x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"policy_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"policyId") y x)
                                  mutable'assets
                        Word64
18
                          -> do !y <- Parser Asset -> String -> Parser Asset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"assets"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'assets y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'assets
      in
        Parser MultiAsset -> String -> Parser MultiAsset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do 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
              loop Data.ProtoLens.defMessage 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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"script_pubkey"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"scriptPubkey") y x)
                        Word64
18
                          -> do y <- Parser NativeScriptList -> String -> Parser NativeScriptList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"script_all"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAll") y x)
                        Word64
26
                          -> do y <- Parser NativeScriptList -> String -> Parser NativeScriptList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"script_any"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAny") y x)
                        Word64
34
                          -> do y <- Parser ScriptNOfK -> String -> Parser ScriptNOfK
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"script_n_of_k"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptNOfK") y x)
                        Word64
40
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"invalid_before"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"invalidBefore") y x)
                        Word64
48
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"invalid_hereafter"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"invalidHereafter") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser NativeScript -> String -> Parser NativeScript
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"items"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'items
      in
        Parser NativeScriptList -> String -> Parser NativeScriptList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do 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
              loop Data.ProtoLens.defMessage 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)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeScriptRefCostPerByte' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'minFeeScriptRefCostPerByte' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolVotingThresholds' @:: Lens' PParams VotingThresholds@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolVotingThresholds' @:: Lens' PParams (Prelude.Maybe VotingThresholds)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.drepVotingThresholds' @:: Lens' PParams VotingThresholds@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'drepVotingThresholds' @:: Lens' PParams (Prelude.Maybe VotingThresholds)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minCommitteeSize' @:: Lens' PParams Data.Word.Word32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.committeeTermLimit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.governanceActionValidityPeriod' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.governanceActionDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.drepDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.drepInactivityPeriod' @:: Lens' PParams Data.Word.Word64@ -}
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 -> Maybe RationalNumber
_PParams'minFeeScriptRefCostPerByte :: !(Prelude.Maybe RationalNumber),
                          PParams -> Maybe VotingThresholds
_PParams'poolVotingThresholds :: !(Prelude.Maybe VotingThresholds),
                          PParams -> Maybe VotingThresholds
_PParams'drepVotingThresholds :: !(Prelude.Maybe VotingThresholds),
                          PParams -> Word32
_PParams'minCommitteeSize :: !Data.Word.Word32,
                          PParams -> Word64
_PParams'committeeTermLimit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'governanceActionValidityPeriod :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'governanceActionDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'drepDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'drepInactivityPeriod :: !Data.Word.Word64,
                          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.Field.HasField PParams "minFeeScriptRefCostPerByte" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minFeeScriptRefCostPerByte"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "minFeeScriptRefCostPerByte"
_
    = ((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'minFeeScriptRefCostPerByte
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'minFeeScriptRefCostPerByte = 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'minFeeScriptRefCostPerByte" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'minFeeScriptRefCostPerByte"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'minFeeScriptRefCostPerByte"
_
    = ((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'minFeeScriptRefCostPerByte
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'minFeeScriptRefCostPerByte = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolVotingThresholds" VotingThresholds where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolVotingThresholds"
-> (VotingThresholds -> f VotingThresholds) -> PParams -> f PParams
fieldOf Proxy# "poolVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((VotingThresholds -> f VotingThresholds)
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (VotingThresholds -> f VotingThresholds)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'poolVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'poolVotingThresholds = y__}))
        (VotingThresholds -> Lens' (Maybe VotingThresholds) VotingThresholds
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VotingThresholds
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'poolVotingThresholds" (Prelude.Maybe VotingThresholds) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolVotingThresholds"
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'poolVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'poolVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'poolVotingThresholds = y__}))
        (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> Maybe VotingThresholds -> f (Maybe VotingThresholds)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "drepVotingThresholds" VotingThresholds where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "drepVotingThresholds"
-> (VotingThresholds -> f VotingThresholds) -> PParams -> f PParams
fieldOf Proxy# "drepVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((VotingThresholds -> f VotingThresholds)
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (VotingThresholds -> f VotingThresholds)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'drepVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'drepVotingThresholds = y__}))
        (VotingThresholds -> Lens' (Maybe VotingThresholds) VotingThresholds
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VotingThresholds
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'drepVotingThresholds" (Prelude.Maybe VotingThresholds) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'drepVotingThresholds"
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'drepVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'drepVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'drepVotingThresholds = y__}))
        (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> Maybe VotingThresholds -> f (Maybe VotingThresholds)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minCommitteeSize" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minCommitteeSize"
-> (Word32 -> f Word32) -> PParams -> f PParams
fieldOf Proxy# "minCommitteeSize"
_
    = ((Word32 -> f Word32) -> PParams -> f PParams)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word32)
-> (PParams -> Word32 -> PParams)
-> Lens PParams PParams Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word32
_PParams'minCommitteeSize
           (\ PParams
x__ Word32
y__ -> PParams
x__ {_PParams'minCommitteeSize = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "committeeTermLimit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "committeeTermLimit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "committeeTermLimit"
_
    = ((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'committeeTermLimit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'committeeTermLimit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "governanceActionValidityPeriod" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "governanceActionValidityPeriod"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "governanceActionValidityPeriod"
_
    = ((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'governanceActionValidityPeriod
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'governanceActionValidityPeriod = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "governanceActionDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "governanceActionDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "governanceActionDeposit"
_
    = ((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'governanceActionDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'governanceActionDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "drepDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "drepDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "drepDeposit"
_
    = ((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'drepDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'drepDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "drepInactivityPeriod" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "drepInactivityPeriod"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "drepInactivityPeriod"
_
    = ((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'drepInactivityPeriod
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'drepInactivityPeriod = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
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\DC21\n\
      \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByteB\STX0\SOH\DC2\"\n\
      \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSizeB\STX0\SOH\DC22\n\
      \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficientB\STX0\SOH\DC2,\n\
      \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstantB\STX0\SOH\DC21\n\
      \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySizeB\STX0\SOH\DC25\n\
      \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSizeB\STX0\SOH\DC2.\n\
      \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDepositB\STX0\SOH\DC2%\n\
      \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDepositB\STX0\SOH\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\vminPoolCostB\STX0\SOH\DC2S\n\
      \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2(\n\
      \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSizeB\STX0\SOH\DC27\n\
      \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentageB\STX0\SOH\DC26\n\
      \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputsB\STX0\SOH\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\DC2m\n\
      \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2_\n\
      \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2_\n\
      \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4drepVotingThresholds\DC2,\n\
      \\DC2min_committee_size\CAN\SUB \SOH(\rR\DLEminCommitteeSize\DC20\n\
      \\DC4committee_term_limit\CAN\ESC \SOH(\EOTR\DC2committeeTermLimit\DC2I\n\
      \!governance_action_validity_period\CAN\FS \SOH(\EOTR\RSgovernanceActionValidityPeriod\DC2>\n\
      \\EMgovernance_action_deposit\CAN\GS \SOH(\EOTR\ETBgovernanceActionDepositB\STX0\SOH\DC2%\n\
      \\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDepositB\STX0\SOH\DC24\n\
      \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriod"
  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
        minFeeScriptRefCostPerByte__field_descriptor :: FieldDescriptor PParams
minFeeScriptRefCostPerByte__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
"min_fee_script_ref_cost_per_byte"
              (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'minFeeScriptRefCostPerByte")) ::
              Data.ProtoLens.FieldDescriptor PParams
        poolVotingThresholds__field_descriptor :: FieldDescriptor PParams
poolVotingThresholds__field_descriptor
          = String
-> FieldTypeDescriptor VotingThresholds
-> FieldAccessor PParams VotingThresholds
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"pool_voting_thresholds"
              (MessageOrGroup -> FieldTypeDescriptor VotingThresholds
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor VotingThresholds)
              (Lens
  PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
-> FieldAccessor PParams VotingThresholds
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'poolVotingThresholds")) ::
              Data.ProtoLens.FieldDescriptor PParams
        drepVotingThresholds__field_descriptor :: FieldDescriptor PParams
drepVotingThresholds__field_descriptor
          = String
-> FieldTypeDescriptor VotingThresholds
-> FieldAccessor PParams VotingThresholds
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"drep_voting_thresholds"
              (MessageOrGroup -> FieldTypeDescriptor VotingThresholds
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor VotingThresholds)
              (Lens
  PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
-> FieldAccessor PParams VotingThresholds
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'drepVotingThresholds")) ::
              Data.ProtoLens.FieldDescriptor PParams
        minCommitteeSize__field_descriptor :: FieldDescriptor PParams
minCommitteeSize__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor PParams Word32
-> FieldDescriptor PParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"min_committee_size"
              (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 PParams PParams Word32 Word32
-> FieldAccessor PParams 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 @"minCommitteeSize")) ::
              Data.ProtoLens.FieldDescriptor PParams
        committeeTermLimit__field_descriptor :: FieldDescriptor PParams
committeeTermLimit__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
"committee_term_limit"
              (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 @"committeeTermLimit")) ::
              Data.ProtoLens.FieldDescriptor PParams
        governanceActionValidityPeriod__field_descriptor :: FieldDescriptor PParams
governanceActionValidityPeriod__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
"governance_action_validity_period"
              (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 @"governanceActionValidityPeriod")) ::
              Data.ProtoLens.FieldDescriptor PParams
        governanceActionDeposit__field_descriptor :: FieldDescriptor PParams
governanceActionDeposit__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
"governance_action_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 @"governanceActionDeposit")) ::
              Data.ProtoLens.FieldDescriptor PParams
        drepDeposit__field_descriptor :: FieldDescriptor PParams
drepDeposit__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
"drep_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 @"drepDeposit")) ::
              Data.ProtoLens.FieldDescriptor PParams
        drepInactivityPeriod__field_descriptor :: FieldDescriptor PParams
drepInactivityPeriod__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
"drep_inactivity_period"
              (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 @"drepInactivityPeriod")) ::
              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),
           (Int -> Tag
Data.ProtoLens.Tag Int
23, 
            FieldDescriptor PParams
minFeeScriptRefCostPerByte__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
24, FieldDescriptor PParams
poolVotingThresholds__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
25, FieldDescriptor PParams
drepVotingThresholds__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
26, FieldDescriptor PParams
minCommitteeSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
27, FieldDescriptor PParams
committeeTermLimit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
28, 
            FieldDescriptor PParams
governanceActionValidityPeriod__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
29, FieldDescriptor PParams
governanceActionDeposit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
30, FieldDescriptor PParams
drepDeposit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
31, FieldDescriptor PParams
drepInactivityPeriod__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'minFeeScriptRefCostPerByte :: Maybe RationalNumber
_PParams'minFeeScriptRefCostPerByte = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _PParams'poolVotingThresholds :: Maybe VotingThresholds
_PParams'poolVotingThresholds = Maybe VotingThresholds
forall a. Maybe a
Prelude.Nothing,
         _PParams'drepVotingThresholds :: Maybe VotingThresholds
_PParams'drepVotingThresholds = Maybe VotingThresholds
forall a. Maybe a
Prelude.Nothing,
         _PParams'minCommitteeSize :: Word32
_PParams'minCommitteeSize = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'committeeTermLimit :: Word64
_PParams'committeeTermLimit = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'governanceActionValidityPeriod :: Word64
_PParams'governanceActionValidityPeriod = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'governanceActionDeposit :: Word64
_PParams'governanceActionDeposit = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'drepDeposit :: Word64
_PParams'drepDeposit = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PParams'drepInactivityPeriod :: Word64
_PParams'drepInactivityPeriod = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"coins_per_utxo_byte"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"coinsPerUtxoByte") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"max_tx_size"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"maxTxSize") y x)
                        Word64
24
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"min_fee_coefficient"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"minFeeCoefficient") y x)
                        Word64
32
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"min_fee_constant"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"minFeeConstant") y x)
                        Word64
40
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"max_block_body_size"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxBlockBodySize") y x)
                        Word64
48
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"max_block_header_size"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxBlockHeaderSize") y x)
                        Word64
56
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"stake_key_deposit"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"stakeKeyDeposit") y x)
                        Word64
64
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"pool_deposit"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"poolDeposit") y x)
                        Word64
72
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"pool_retirement_epoch_bound"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"poolRetirementEpochBound") y x)
                        Word64
80
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"desired_number_of_pools"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"desiredNumberOfPools") y x)
                        Word64
90
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pool_influence"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"poolInfluence") y x)
                        Word64
98
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"monetary_expansion"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"monetaryExpansion") y x)
                        Word64
106
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"treasury_expansion"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"treasuryExpansion") y x)
                        Word64
112
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"min_pool_cost"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"minPoolCost") y x)
                        Word64
122
                          -> do y <- Parser ProtocolVersion -> String -> Parser ProtocolVersion
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"protocol_version"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"protocolVersion") y x)
                        Word64
128
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"max_value_size"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxValueSize") y x)
                        Word64
136
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"collateral_percentage"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"collateralPercentage") y x)
                        Word64
144
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"max_collateral_inputs"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxCollateralInputs") y x)
                        Word64
154
                          -> do y <- Parser CostModels -> String -> Parser CostModels
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"cost_models"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"costModels") y x)
                        Word64
162
                          -> do y <- Parser ExPrices -> String -> Parser ExPrices
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"prices"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"prices") y x)
                        Word64
170
                          -> do y <- Parser ExUnits -> String -> Parser ExUnits
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"max_execution_units_per_transaction"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxExecutionUnitsPerTransaction")
                                     y x)
                        Word64
178
                          -> do y <- Parser ExUnits -> String -> Parser ExUnits
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"max_execution_units_per_block"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxExecutionUnitsPerBlock") y x)
                        Word64
186
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"min_fee_script_ref_cost_per_byte"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"minFeeScriptRefCostPerByte") y x)
                        Word64
194
                          -> do y <- Parser VotingThresholds -> String -> Parser VotingThresholds
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"pool_voting_thresholds"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"poolVotingThresholds") y x)
                        Word64
202
                          -> do y <- Parser VotingThresholds -> String -> Parser VotingThresholds
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"drep_voting_thresholds"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"drepVotingThresholds") y x)
                        Word64
208
                          -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"min_committee_size"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"minCommitteeSize") y x)
                        Word64
216
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"committee_term_limit"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"committeeTermLimit") y x)
                        Word64
224
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"governance_action_validity_period"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"governanceActionValidityPeriod")
                                     y x)
                        Word64
232
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"governance_action_deposit"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"governanceActionDeposit") y x)
                        Word64
240
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"drep_deposit"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"drepDeposit") y x)
                        Word64
248
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                       String
"drep_inactivity_period"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"drepInactivityPeriod") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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))
                                                                            (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'minFeeScriptRefCostPerByte")
                                                                                      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
186)
                                                                                         ((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 VotingThresholds)
  PParams
  PParams
  (Maybe VotingThresholds)
  (Maybe VotingThresholds)
-> PParams -> Maybe VotingThresholds
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'poolVotingThresholds")
                                                                                         PParams
_x
                                                                                   of
                                                                                     Maybe VotingThresholds
Prelude.Nothing
                                                                                       -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                                     (Prelude.Just VotingThresholds
_v)
                                                                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                               Word64
194)
                                                                                            ((ByteString -> Builder)
-> (VotingThresholds -> ByteString) -> VotingThresholds -> 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))
                                                                                               VotingThresholds -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                                               VotingThresholds
_v))
                                                                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                     (case
                                                                                          FoldLike
  (Maybe VotingThresholds)
  PParams
  PParams
  (Maybe VotingThresholds)
  (Maybe VotingThresholds)
-> PParams -> Maybe VotingThresholds
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'drepVotingThresholds")
                                                                                            PParams
_x
                                                                                      of
                                                                                        Maybe VotingThresholds
Prelude.Nothing
                                                                                          -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                                        (Prelude.Just VotingThresholds
_v)
                                                                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                                  Word64
202)
                                                                                               ((ByteString -> Builder)
-> (VotingThresholds -> ByteString) -> VotingThresholds -> 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))
                                                                                                  VotingThresholds -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                                                  VotingThresholds
_v))
                                                                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                        (let
                                                                                           _v :: Word32
_v
                                                                                             = FoldLike Word32 PParams PParams Word32 Word32 -> PParams -> 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
                                                                                                    @"minCommitteeSize")
                                                                                                 PParams
_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
208)
                                                                                                 ((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 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
                                                                                                       @"committeeTermLimit")
                                                                                                    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
216)
                                                                                                    (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
                                                                                                          @"governanceActionValidityPeriod")
                                                                                                       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
224)
                                                                                                       (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
                                                                                                             @"governanceActionDeposit")
                                                                                                          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
232)
                                                                                                          (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
                                                                                                                @"drepDeposit")
                                                                                                             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
240)
                                                                                                             (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
                                                                                                                   @"drepInactivityPeriod")
                                                                                                                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
248)
                                                                                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                                                   Word64
_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__)
                                                                               (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                  (PParams -> Maybe RationalNumber
_PParams'minFeeScriptRefCostPerByte
                                                                                     PParams
x__)
                                                                                  (Maybe VotingThresholds -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                     (PParams -> Maybe VotingThresholds
_PParams'poolVotingThresholds
                                                                                        PParams
x__)
                                                                                     (Maybe VotingThresholds -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                        (PParams -> Maybe VotingThresholds
_PParams'drepVotingThresholds
                                                                                           PParams
x__)
                                                                                        (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                           (PParams -> Word32
_PParams'minCommitteeSize
                                                                                              PParams
x__)
                                                                                           (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                              (PParams -> Word64
_PParams'committeeTermLimit
                                                                                                 PParams
x__)
                                                                                              (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                                 (PParams -> Word64
_PParams'governanceActionValidityPeriod
                                                                                                    PParams
x__)
                                                                                                 (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                                    (PParams -> Word64
_PParams'governanceActionDeposit
                                                                                                       PParams
x__)
                                                                                                    (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                                       (PParams -> Word64
_PParams'drepDeposit
                                                                                                          PParams
x__)
                                                                                                       (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                                                          (PParams -> Word64
_PParams'drepInactivityPeriod
                                                                                                             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\STX \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\
      \\ETXmap\CAN\ETX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\
      \\abig_int\CAN\EOT \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\
      \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2@\n\
      \\ENQarray\CAN\ACK \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
2, FieldDescriptor PlutusData
constr__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor PlutusData
map__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor PlutusData
bigInt__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor PlutusData
boundedBytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, 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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
18
                          -> do y <- Parser Constr -> String -> Parser Constr
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"constr"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"constr") y x)
                        Word64
26
                          -> do y <- Parser PlutusDataMap -> String -> Parser PlutusDataMap
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"map"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") y x)
                        Word64
34
                          -> do y <- Parser BigInt -> String -> Parser BigInt
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"big_int"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigInt") y x)
                        Word64
42
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"bounded_bytes"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"boundedBytes") y x)
                        Word64
50
                          -> do y <- Parser PlutusDataArray -> String -> Parser PlutusDataArray
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"array"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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
18)
                       ((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
26)
                       ((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
34)
                       ((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
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)
                (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
50)
                       ((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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"items"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'items
      in
        Parser PlutusDataArray -> String -> Parser PlutusDataArray
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do 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
              loop Data.ProtoLens.defMessage 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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser PlutusDataPair -> String -> Parser PlutusDataPair
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"pairs"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'pairs y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'pairs
      in
        Parser PlutusDataMap -> String -> Parser PlutusDataMap
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do 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
              loop Data.ProtoLens.defMessage 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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
18
                          -> do y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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.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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"major"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"major") y x)
                        Word64
16
                          -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"minor"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minor") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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.Int64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.denominator' @:: Lens' RationalNumber Data.Word.Word64@ -}
data RationalNumber
  = RationalNumber'_constructor {RationalNumber -> Int64
_RationalNumber'numerator :: !Data.Int.Int64,
                                 RationalNumber -> Word64
_RationalNumber'denominator :: !Data.Word.Word64,
                                 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.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "numerator"
-> (Int64 -> f Int64) -> RationalNumber -> f RationalNumber
fieldOf Proxy# "numerator"
_
    = ((Int64 -> f Int64) -> RationalNumber -> f RationalNumber)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RationalNumber
-> f RationalNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RationalNumber -> Int64)
-> (RationalNumber -> Int64 -> RationalNumber)
-> Lens RationalNumber RationalNumber Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RationalNumber -> Int64
_RationalNumber'numerator
           (\ RationalNumber
x__ Int64
y__ -> RationalNumber
x__ {_RationalNumber'numerator = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RationalNumber "denominator" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "denominator"
-> (Word64 -> f Word64) -> RationalNumber -> f RationalNumber
fieldOf Proxy# "denominator"
_
    = ((Word64 -> f Word64) -> RationalNumber -> f RationalNumber)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> RationalNumber
-> f RationalNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RationalNumber -> Word64)
-> (RationalNumber -> Word64 -> RationalNumber)
-> Lens RationalNumber RationalNumber Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RationalNumber -> Word64
_RationalNumber'denominator
           (\ RationalNumber
x__ Word64
y__ -> RationalNumber
x__ {_RationalNumber'denominator = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
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 \n\
      \\tnumerator\CAN\SOH \SOH(\ETXR\tnumeratorB\STX0\SOH\DC2$\n\
      \\vdenominator\CAN\STX \SOH(\EOTR\vdenominatorB\STX0\SOH"
  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 Int64
-> FieldAccessor RationalNumber Int64
-> FieldDescriptor RationalNumber
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"numerator"
              (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 RationalNumber RationalNumber Int64 Int64
-> FieldAccessor RationalNumber 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 @"numerator")) ::
              Data.ProtoLens.FieldDescriptor RationalNumber
        denominator__field_descriptor :: FieldDescriptor RationalNumber
denominator__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor RationalNumber Word64
-> FieldDescriptor RationalNumber
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"denominator"
              (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 RationalNumber RationalNumber Word64 Word64
-> FieldAccessor RationalNumber 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 @"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 :: Int64
_RationalNumber'numerator = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RationalNumber'denominator :: Word64
_RationalNumber'denominator = Word64
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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"numerator"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"numerator") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"denominator"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"denominator") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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 :: Int64
_v = FoldLike Int64 RationalNumber RationalNumber Int64 Int64
-> RationalNumber -> 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 @"numerator") RationalNumber
_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
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))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v
                     = FoldLike Word64 RationalNumber RationalNumber Word64 Word64
-> RationalNumber -> 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 @"denominator") RationalNumber
_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 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__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RationalNumber -> Int64
_RationalNumber'numerator RationalNumber
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RationalNumber -> Word64
_RationalNumber'denominator RationalNumber
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@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV3' @:: Lens' Script Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV4' @:: 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 |
    Script'PlutusV3 !Data.ByteString.ByteString |
    Script'PlutusV4 !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.Field.HasField Script "maybe'plutusV3" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV3"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Script -> f Script
fieldOf Proxy# "maybe'plutusV3"
_
    = ((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'PlutusV3 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'PlutusV3 Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Script "plutusV3" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV3"
-> (ByteString -> f ByteString) -> Script -> f Script
fieldOf Proxy# "plutusV3"
_
    = ((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'PlutusV3 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'PlutusV3 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'plutusV4" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'plutusV4"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Script -> f Script
fieldOf Proxy# "maybe'plutusV4"
_
    = ((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'PlutusV4 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'PlutusV4 Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Script "plutusV4" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "plutusV4"
-> (ByteString -> f ByteString) -> Script -> f Script
fieldOf Proxy# "plutusV4"
_
    = ((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'PlutusV4 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'PlutusV4 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\bplutusV2\DC2\GS\n\
      \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\bplutusV3\DC2\GS\n\
      \\tplutus_v4\CAN\ENQ \SOH(\fH\NULR\bplutusV4B\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
        plutusV3__field_descriptor :: FieldDescriptor Script
plutusV3__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_v3"
              (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'plutusV3")) ::
              Data.ProtoLens.FieldDescriptor Script
        plutusV4__field_descriptor :: FieldDescriptor Script
plutusV4__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_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)
              (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'plutusV4")) ::
              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),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Script
plutusV3__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Script
plutusV4__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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser NativeScript -> String -> Parser NativeScript
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"native"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"native") y x)
                        Word64
18
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"plutus_v1"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x)
                        Word64
26
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"plutus_v2"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x)
                        Word64
34
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"plutus_v3"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x)
                        Word64
42
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"plutus_v4"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser 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)
                (Prelude.Just (Script'PlutusV3 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 (Script'PlutusV4 ByteString
v))
                  -> 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))
             (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__
  rnf (Script'PlutusV3 ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (Script'PlutusV4 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)
_Script'PlutusV3 ::
  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString
_Script'PlutusV3 :: Prism' Script'Script ByteString
_Script'PlutusV3
  = (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'PlutusV3
      (\ Script'Script
p__
         -> case Script'Script
p__ of
              (Script'PlutusV3 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'PlutusV4 ::
  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString
_Script'PlutusV4 :: Prism' Script'Script ByteString
_Script'PlutusV4
  = (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'PlutusV4
      (\ Script'Script
p__
         -> case Script'Script
p__ of
              (Script'PlutusV4 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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'scripts)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"k"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"k") y x)
                                  mutable'scripts
                        Word64
18
                          -> do !y <- Parser NativeScript -> String -> Parser NativeScript
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"scripts"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'scripts y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'scripts
      in
        Parser ScriptNOfK -> String -> Parser ScriptNOfK
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do 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
              loop Data.ProtoLens.defMessage 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.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 Datum@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'datum' @:: Lens' TxOutput (Prelude.Maybe Datum)@
         * '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 Datum
_TxOutput'datum :: !(Prelude.Maybe Datum),
                           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" Datum where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "datum" -> (Datum -> f Datum) -> TxOutput -> f TxOutput
fieldOf Proxy# "datum"
_
    = ((Maybe Datum -> f (Maybe Datum)) -> TxOutput -> f TxOutput)
-> ((Datum -> f Datum) -> Maybe Datum -> f (Maybe Datum))
-> (Datum -> f Datum)
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Maybe Datum)
-> (TxOutput -> Maybe Datum -> TxOutput)
-> Lens TxOutput TxOutput (Maybe Datum) (Maybe Datum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Maybe Datum
_TxOutput'datum (\ TxOutput
x__ Maybe Datum
y__ -> TxOutput
x__ {_TxOutput'datum = y__}))
        (Datum -> Lens' (Maybe Datum) Datum
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Datum
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxOutput "maybe'datum" (Prelude.Maybe Datum) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'datum"
-> (Maybe Datum -> f (Maybe Datum)) -> TxOutput -> f TxOutput
fieldOf Proxy# "maybe'datum"
_
    = ((Maybe Datum -> f (Maybe Datum)) -> TxOutput -> f TxOutput)
-> ((Maybe Datum -> f (Maybe Datum))
    -> Maybe Datum -> f (Maybe Datum))
-> (Maybe Datum -> f (Maybe Datum))
-> TxOutput
-> f TxOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxOutput -> Maybe Datum)
-> (TxOutput -> Maybe Datum -> TxOutput)
-> Lens TxOutput TxOutput (Maybe Datum) (Maybe Datum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxOutput -> Maybe Datum
_TxOutput'datum (\ TxOutput
x__ Maybe Datum
y__ -> TxOutput
x__ {_TxOutput'datum = y__}))
        (Maybe Datum -> f (Maybe Datum)) -> Maybe Datum -> f (Maybe Datum)
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\SYN\n\
      \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoinB\STX0\SOH\DC2;\n\
      \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiAssetR\ACKassets\DC24\n\
      \\ENQdatum\CAN\EOT \SOH(\v2\RS.utxorpc.v1alpha.cardano.DatumR\ENQdatum\DC27\n\
      \\ACKscript\CAN\ENQ \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 Datum
-> FieldAccessor TxOutput Datum
-> FieldDescriptor TxOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"datum"
              (MessageOrGroup -> FieldTypeDescriptor Datum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Datum)
              (Lens TxOutput TxOutput (Maybe Datum) (Maybe Datum)
-> FieldAccessor TxOutput Datum
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
        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
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 Datum
_TxOutput'datum = Maybe Datum
forall a. Maybe a
Prelude.Nothing,
         _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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'assets)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'assets") frozen'assets x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"address"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x)
                                  mutable'assets
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"coin"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x)
                                  mutable'assets
                        Word64
26
                          -> do !y <- Parser MultiAsset -> String -> Parser MultiAsset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"assets"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'assets y)
                                loop x v
                        Word64
34
                          -> do y <- Parser Datum -> String -> Parser Datum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"datum"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"datum") y x)
                                  mutable'assets
                        Word64
42
                          -> do y <- Parser Script -> String -> Parser Script
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"script"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"script") y x)
                                  mutable'assets
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'assets
      in
        Parser TxOutput -> String -> Parser TxOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do 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
              loop Data.ProtoLens.defMessage 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 Datum) TxOutput TxOutput (Maybe Datum) (Maybe Datum)
-> TxOutput -> Maybe Datum
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 Datum
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just Datum
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                ((ByteString -> Builder)
-> (Datum -> ByteString) -> Datum -> 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))
                                   Datum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Datum
_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
42)
                                   ((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 Datum -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (TxOutput -> Maybe Datum
_TxOutput'datum 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.thresholds' @:: Lens' VotingThresholds [RationalNumber]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'thresholds' @:: Lens' VotingThresholds (Data.Vector.Vector RationalNumber)@ -}
data VotingThresholds
  = VotingThresholds'_constructor {VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds :: !(Data.Vector.Vector RationalNumber),
                                   VotingThresholds -> FieldSet
_VotingThresholds'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (VotingThresholds -> VotingThresholds -> Bool
(VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> Eq VotingThresholds
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VotingThresholds -> VotingThresholds -> Bool
== :: VotingThresholds -> VotingThresholds -> Bool
$c/= :: VotingThresholds -> VotingThresholds -> Bool
/= :: VotingThresholds -> VotingThresholds -> Bool
Prelude.Eq, Eq VotingThresholds
Eq VotingThresholds =>
(VotingThresholds -> VotingThresholds -> Ordering)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> VotingThresholds)
-> (VotingThresholds -> VotingThresholds -> VotingThresholds)
-> Ord VotingThresholds
VotingThresholds -> VotingThresholds -> Bool
VotingThresholds -> VotingThresholds -> Ordering
VotingThresholds -> VotingThresholds -> VotingThresholds
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 :: VotingThresholds -> VotingThresholds -> Ordering
compare :: VotingThresholds -> VotingThresholds -> Ordering
$c< :: VotingThresholds -> VotingThresholds -> Bool
< :: VotingThresholds -> VotingThresholds -> Bool
$c<= :: VotingThresholds -> VotingThresholds -> Bool
<= :: VotingThresholds -> VotingThresholds -> Bool
$c> :: VotingThresholds -> VotingThresholds -> Bool
> :: VotingThresholds -> VotingThresholds -> Bool
$c>= :: VotingThresholds -> VotingThresholds -> Bool
>= :: VotingThresholds -> VotingThresholds -> Bool
$cmax :: VotingThresholds -> VotingThresholds -> VotingThresholds
max :: VotingThresholds -> VotingThresholds -> VotingThresholds
$cmin :: VotingThresholds -> VotingThresholds -> VotingThresholds
min :: VotingThresholds -> VotingThresholds -> VotingThresholds
Prelude.Ord)
instance Prelude.Show VotingThresholds where
  showsPrec :: Int -> VotingThresholds -> ShowS
showsPrec Int
_ VotingThresholds
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (VotingThresholds -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort VotingThresholds
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField VotingThresholds "thresholds" [RationalNumber] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "thresholds"
-> ([RationalNumber] -> f [RationalNumber])
-> VotingThresholds
-> f VotingThresholds
fieldOf Proxy# "thresholds"
_
    = ((Vector RationalNumber -> f (Vector RationalNumber))
 -> VotingThresholds -> f VotingThresholds)
-> (([RationalNumber] -> f [RationalNumber])
    -> Vector RationalNumber -> f (Vector RationalNumber))
-> ([RationalNumber] -> f [RationalNumber])
-> VotingThresholds
-> f VotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((VotingThresholds -> Vector RationalNumber)
-> (VotingThresholds -> Vector RationalNumber -> VotingThresholds)
-> Lens
     VotingThresholds
     VotingThresholds
     (Vector RationalNumber)
     (Vector RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds
           (\ VotingThresholds
x__ Vector RationalNumber
y__ -> VotingThresholds
x__ {_VotingThresholds'thresholds = y__}))
        ((Vector RationalNumber -> [RationalNumber])
-> (Vector RationalNumber
    -> [RationalNumber] -> Vector RationalNumber)
-> Lens
     (Vector RationalNumber)
     (Vector RationalNumber)
     [RationalNumber]
     [RationalNumber]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector RationalNumber -> [RationalNumber]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector RationalNumber
_ [RationalNumber]
y__ -> [RationalNumber] -> Vector RationalNumber
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [RationalNumber]
y__))
instance Data.ProtoLens.Field.HasField VotingThresholds "vec'thresholds" (Data.Vector.Vector RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'thresholds"
-> (Vector RationalNumber -> f (Vector RationalNumber))
-> VotingThresholds
-> f VotingThresholds
fieldOf Proxy# "vec'thresholds"
_
    = ((Vector RationalNumber -> f (Vector RationalNumber))
 -> VotingThresholds -> f VotingThresholds)
-> ((Vector RationalNumber -> f (Vector RationalNumber))
    -> Vector RationalNumber -> f (Vector RationalNumber))
-> (Vector RationalNumber -> f (Vector RationalNumber))
-> VotingThresholds
-> f VotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((VotingThresholds -> Vector RationalNumber)
-> (VotingThresholds -> Vector RationalNumber -> VotingThresholds)
-> Lens
     VotingThresholds
     VotingThresholds
     (Vector RationalNumber)
     (Vector RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds
           (\ VotingThresholds
x__ Vector RationalNumber
y__ -> VotingThresholds
x__ {_VotingThresholds'thresholds = y__}))
        (Vector RationalNumber -> f (Vector RationalNumber))
-> Vector RationalNumber -> f (Vector RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message VotingThresholds where
  messageName :: Proxy VotingThresholds -> Text
messageName Proxy VotingThresholds
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.VotingThresholds"
  packedMessageDescriptor :: Proxy VotingThresholds -> ByteString
packedMessageDescriptor Proxy VotingThresholds
_
    = ByteString
"\n\
      \\DLEVotingThresholds\DC2G\n\
      \\n\
      \thresholds\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\n\
      \thresholds"
  packedFileDescriptor :: Proxy VotingThresholds -> ByteString
packedFileDescriptor Proxy VotingThresholds
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor VotingThresholds)
fieldsByTag
    = let
        thresholds__field_descriptor :: FieldDescriptor VotingThresholds
thresholds__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor VotingThresholds RationalNumber
-> FieldDescriptor VotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"thresholds"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Packing
-> Lens' VotingThresholds [RationalNumber]
-> FieldAccessor VotingThresholds RationalNumber
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 @"thresholds")) ::
              Data.ProtoLens.FieldDescriptor VotingThresholds
      in
        [(Tag, FieldDescriptor VotingThresholds)]
-> Map Tag (FieldDescriptor VotingThresholds)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor VotingThresholds
thresholds__field_descriptor)]
  unknownFields :: Lens' VotingThresholds FieldSet
unknownFields
    = (VotingThresholds -> FieldSet)
-> (VotingThresholds -> FieldSet -> VotingThresholds)
-> Lens' VotingThresholds FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        VotingThresholds -> FieldSet
_VotingThresholds'_unknownFields
        (\ VotingThresholds
x__ FieldSet
y__ -> VotingThresholds
x__ {_VotingThresholds'_unknownFields = y__})
  defMessage :: VotingThresholds
defMessage
    = VotingThresholds'_constructor
        {_VotingThresholds'thresholds :: Vector RationalNumber
_VotingThresholds'thresholds = Vector RationalNumber
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _VotingThresholds'_unknownFields :: FieldSet
_VotingThresholds'_unknownFields = []}
  parseMessage :: Parser VotingThresholds
parseMessage
    = let
        loop ::
          VotingThresholds
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RationalNumber
             -> Data.ProtoLens.Encoding.Bytes.Parser VotingThresholds
        loop :: VotingThresholds
-> Growing Vector RealWorld RationalNumber
-> Parser VotingThresholds
loop VotingThresholds
x Growing Vector RealWorld RationalNumber
mutable'thresholds
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'thresholds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                mutable'thresholds)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'thresholds") frozen'thresholds
                              x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"thresholds"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'thresholds y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'thresholds
      in
        Parser VotingThresholds -> String -> Parser VotingThresholds
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'thresholds <- IO (Growing Vector RealWorld RationalNumber)
-> Parser (Growing Vector RealWorld RationalNumber)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld RationalNumber)
IO (Growing Vector (PrimState IO) RationalNumber)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'thresholds)
          String
"VotingThresholds"
  buildMessage :: VotingThresholds -> Builder
buildMessage
    = \ VotingThresholds
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((RationalNumber -> Builder) -> Vector RationalNumber -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ 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))
                (FoldLike
  (Vector RationalNumber)
  VotingThresholds
  VotingThresholds
  (Vector RationalNumber)
  (Vector RationalNumber)
-> VotingThresholds -> Vector 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 @"vec'thresholds") VotingThresholds
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet VotingThresholds VotingThresholds FieldSet FieldSet
-> VotingThresholds -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet VotingThresholds VotingThresholds FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' VotingThresholds FieldSet
Data.ProtoLens.unknownFields VotingThresholds
_x))
instance Control.DeepSeq.NFData VotingThresholds where
  rnf :: VotingThresholds -> ()
rnf
    = \ VotingThresholds
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (VotingThresholds -> FieldSet
_VotingThresholds'_unknownFields VotingThresholds
x__)
             (Vector RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds VotingThresholds
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \%utxorpc/v1alpha/cardano/cardano.proto\DC2\ETButxorpc.v1alpha.cardano\"\232\SOH\n\
    \\bTxOutput\DC2\CAN\n\
    \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC2\SYN\n\
    \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoinB\STX0\SOH\DC2;\n\
    \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiAssetR\ACKassets\DC24\n\
    \\ENQdatum\CAN\EOT \SOH(\v2\RS.utxorpc.v1alpha.cardano.DatumR\ENQdatum\DC27\n\
    \\ACKscript\CAN\ENQ \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\"$\n\
    \\fAddressArray\DC2\DC4\n\
    \\ENQitems\CAN\SOH \ETX(\fR\ENQitems\"\167\SOH\n\
    \\ENQDatum\DC2\DC2\n\
    \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2B\n\
    \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataH\NULR\apayload\136\SOH\SOH\DC2(\n\
    \\roriginal_cbor\CAN\ETX \SOH(\fH\SOHR\foriginalCbor\136\SOH\SOHB\n\
    \\n\
    \\b_payloadB\DLE\n\
    \\SO_original_cbor\"q\n\
    \\ENQAsset\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2%\n\
    \\voutput_coin\CAN\STX \SOH(\EOTH\NULR\n\
    \outputCoinB\STX0\SOH\DC2!\n\
    \\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoinB\STX0\SOHB\n\
    \\n\
    \\bquantity\"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\"\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\"g\n\
    \\ACKBigInt\DC2\SYN\n\
    \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXintB\STX0\SOH\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\STX \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\
    \\ETXmap\CAN\ETX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\
    \\abig_int\CAN\EOT \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\
    \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2@\n\
    \\ENQarray\CAN\ACK \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\"\207\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\bplutusV2\DC2\GS\n\
    \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\bplutusV3\DC2\GS\n\
    \\tplutus_v4\CAN\ENQ \SOH(\fH\NULR\bplutusV4B\b\n\
    \\ACKscript\"X\n\
    \\SORationalNumber\DC2 \n\
    \\tnumerator\CAN\SOH \SOH(\ETXR\tnumeratorB\STX0\SOH\DC2$\n\
    \\vdenominator\CAN\STX \SOH(\EOTR\vdenominatorB\STX0\SOH\"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\"#\n\
    \\tCostModel\DC2\SYN\n\
    \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues\"\144\STX\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\DC2?\n\
    \\tplutus_v3\CAN\ETX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV3\DC2?\n\
    \\tplutus_v4\CAN\EOT \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV4\"[\n\
    \\DLEVotingThresholds\DC2G\n\
    \\n\
    \thresholds\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\n\
    \thresholds\"\223\SI\n\
    \\aPParams\DC21\n\
    \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByteB\STX0\SOH\DC2\"\n\
    \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSizeB\STX0\SOH\DC22\n\
    \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficientB\STX0\SOH\DC2,\n\
    \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstantB\STX0\SOH\DC21\n\
    \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySizeB\STX0\SOH\DC25\n\
    \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSizeB\STX0\SOH\DC2.\n\
    \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDepositB\STX0\SOH\DC2%\n\
    \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDepositB\STX0\SOH\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\vminPoolCostB\STX0\SOH\DC2S\n\
    \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2(\n\
    \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSizeB\STX0\SOH\DC27\n\
    \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentageB\STX0\SOH\DC26\n\
    \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputsB\STX0\SOH\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\DC2m\n\
    \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2_\n\
    \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2_\n\
    \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4drepVotingThresholds\DC2,\n\
    \\DC2min_committee_size\CAN\SUB \SOH(\rR\DLEminCommitteeSize\DC20\n\
    \\DC4committee_term_limit\CAN\ESC \SOH(\EOTR\DC2committeeTermLimit\DC2I\n\
    \!governance_action_validity_period\CAN\FS \SOH(\EOTR\RSgovernanceActionValidityPeriod\DC2>\n\
    \\EMgovernance_action_deposit\CAN\GS \SOH(\EOTR\ETBgovernanceActionDepositB\STX0\SOH\DC2%\n\
    \\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDepositB\STX0\SOH\DC24\n\
    \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriodB\169\SOH\n\
    \\ESCcom.utxorpc.v1alpha.cardanoB\fCardanoProtoP\SOH\162\STX\ETXUVC\170\STX\ETBUtxorpc.V1alpha.Cardano\202\STX\ETBUtxorpc\\V1alpha\\Cardano\226\STX#Utxorpc\\V1alpha\\Cardano\\GPBMetadata\234\STX\EMUtxorpc::V1alpha::CardanoJ\185K\n\
    \\a\DC2\ENQ\NUL\NUL\192\SOH\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL \n\
    \H\n\
    \\STX\EOT\NUL\DC2\EOT\ENQ\NUL\v\SOH\SUB< Represents a transaction output in the Cardano blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\ENQ\b\DLE\n\
    \,\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\ACK\STX\DC4\"\US Address receiving the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\ACK\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\ACK\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ACK\DC2\DC3\n\
    \+\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\a\STX'\"\RS Amount of ADA in the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\a\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\a\t\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\a\DLE\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\b\DC2\ETX\a\DC2&\n\
    \\r\n\
    \\ACK\EOT\NUL\STX\SOH\b\ACK\DC2\ETX\a\DC3%\n\
    \@\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\b\STX!\"3 Additional native (non-ADA) assets in the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\EOT\DC2\ETX\b\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\b\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\b\SYN\FS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\b\US \n\
    \6\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX\t\STX\DC2\") Plutus data associated with the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX\t\STX\a\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\t\b\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\t\DLE\DC1\n\
    \1\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX\n\
    \\STX\DC4\"$ Script associated with the output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX\n\
    \\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\n\
    \\t\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\n\
    \\DC2\DC3\n\
    \K\n\
    \\STX\EOT\SOH\DC2\EOT\SO\NUL\DLE\SOH\SUB? TODO u5c: new type - https://github.com/utxorpc/spec/pull/167\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\SO\b\DC4\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\SI\STX\ESC\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\SI\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SI\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SI\DC1\SYN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SI\EM\SUB\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT\DC2\NUL\SYN\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\DC2\b\r\n\
    \2\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX\DC3\STX\DC1\"% Hash of this datum as seen on-chain\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC3\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC3\b\f\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC3\SI\DLE\n\
    \)\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX\DC4\STX\"\"\FS Parsed Plutus data payload\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\EOT\DC2\ETX\DC4\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX\DC4\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\DC4\SYN\GS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\DC4 !\n\
    \:\n\
    \\EOT\EOT\STX\STX\STX\DC2\ETX\NAK\STX#\"- Original cbor-encoded data as seen on-chain\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\EOT\DC2\ETX\NAK\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX\NAK\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX\NAK\DC1\RS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX\NAK!\"\n\
    \B\n\
    \\STX\EOT\ETX\DC2\EOT\EM\NUL\US\SOH\SUB6 Represents a custom asset in the Cardano blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX\EM\b\r\n\
    \(\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX\SUB\STX\DC1\"\ESC Name of the custom asset.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\SUB\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\SUB\b\f\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\SUB\SI\DLE\n\
    \\f\n\
    \\EOT\EOT\ETX\b\NUL\DC2\EOT\ESC\STX\RS\ETX\n\
    \\f\n\
    \\ENQ\EOT\ETX\b\NUL\SOH\DC2\ETX\ESC\b\DLE\n\
    \A\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX\FS\EOT0\"4 Quantity of the custom asset in case of an output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX\FS\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX\FS\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX\FS\EM\SUB\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\b\DC2\ETX\FS\ESC/\n\
    \\r\n\
    \\ACK\EOT\ETX\STX\SOH\b\ACK\DC2\ETX\FS\FS.\n\
    \>\n\
    \\EOT\EOT\ETX\STX\STX\DC2\ETX\GS\EOT-\"1 Quantity of the custom asset in case of a mint.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX\GS\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX\GS\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX\GS\SYN\ETB\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\STX\b\DC2\ETX\GS\CAN,\n\
    \\r\n\
    \\ACK\EOT\ETX\STX\STX\b\ACK\DC2\ETX\GS\EM+\n\
    \g\n\
    \\STX\EOT\EOT\DC2\EOT#\NUL&\SOH\SUB[ TODO u5c: redeemer was removed\n\
    \ 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\
    \4\n\
    \\STX\EOT\ENQ\DC2\EOT)\NUL2\SOH\SUB( Represents a native script in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX)\b\DC4\n\
    \\f\n\
    \\EOT\EOT\ENQ\b\NUL\DC2\EOT*\STX1\ETX\n\
    \\f\n\
    \\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX*\b\NAK\n\
    \3\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX+\EOT\FS\"& Script based on an address key hash.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX+\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX+\n\
    \\ETB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX+\SUB\ESC\n\
    \G\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETX,\EOT$\": Script that requires all nested scripts to be satisfied.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX,\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX,\NAK\US\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX,\"#\n\
    \N\n\
    \\EOT\EOT\ENQ\STX\STX\DC2\ETX-\EOT$\"A Script that requires any of the nested scripts to be satisfied.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETX-\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX-\NAK\US\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX-\"#\n\
    \N\n\
    \\EOT\EOT\ENQ\STX\ETX\DC2\ETX.\EOT!\"A Script that requires k out of n nested scripts to be satisfied.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\ACK\DC2\ETX.\EOT\SO\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETX.\SI\FS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETX.\US \n\
    \>\n\
    \\EOT\EOT\ENQ\STX\EOT\DC2\ETX/\EOT\RS\"1 Slot number before which the script is invalid.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\EOT\ENQ\DC2\ETX/\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\EOT\SOH\DC2\ETX/\v\EM\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\EOT\ETX\DC2\ETX/\FS\GS\n\
    \=\n\
    \\EOT\EOT\ENQ\STX\ENQ\DC2\ETX0\EOT!\"0 Slot number after which the script is invalid.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ENQ\ENQ\DC2\ETX0\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ENQ\SOH\DC2\ETX0\v\FS\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ENQ\ETX\DC2\ETX0\US \n\
    \2\n\
    \\STX\EOT\ACK\DC2\EOT5\NUL7\SOH\SUB& Represents a list of native scripts.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETX5\b\CAN\n\
    \&\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETX6\STX\"\"\EM List of native scripts.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX6\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX6\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX6\CAN\GS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX6 !\n\
    \6\n\
    \\STX\EOT\a\DC2\EOT:\NUL=\SOH\SUB* Represents a \"k out of n\" native script.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETX:\b\DC2\n\
    \8\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETX;\STX\SI\"+ The number of required satisfied scripts.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETX;\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX;\t\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX;\r\SO\n\
    \&\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETX<\STX$\"\EM List of native scripts.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\EOT\DC2\ETX<\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETX<\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX<\CAN\US\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX<\"#\n\
    \B\n\
    \\STX\EOT\b\DC2\EOT@\NULD\SOH\SUB6 Represents a constructor for Plutus data in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETX@\b\SO\n\
    \\v\n\
    \\EOT\EOT\b\STX\NUL\DC2\ETXA\STX\DC1\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXA\STX\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXA\t\f\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXA\SI\DLE\n\
    \\v\n\
    \\EOT\EOT\b\STX\SOH\DC2\ETXB\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETXB\STX\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXB\t\CAN\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXB\ESC\FS\n\
    \\v\n\
    \\EOT\EOT\b\STX\STX\DC2\ETXC\STX!\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\EOT\DC2\ETXC\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ACK\DC2\ETXC\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXC\SYN\FS\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXC\US \n\
    \B\n\
    \\STX\EOT\t\DC2\EOTG\NULM\SOH\SUB6 Represents a big integer for Plutus data in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETXG\b\SO\n\
    \\f\n\
    \\EOT\EOT\t\b\NUL\DC2\EOTH\STXL\ETX\n\
    \\f\n\
    \\ENQ\EOT\t\b\NUL\SOH\DC2\ETXH\b\SI\n\
    \\v\n\
    \\EOT\EOT\t\STX\NUL\DC2\ETXI\EOT'\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXI\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXI\n\
    \\r\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXI\DLE\DC1\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\b\DC2\ETXI\DC2&\n\
    \\r\n\
    \\ACK\EOT\t\STX\NUL\b\ACK\DC2\ETXI\DC3%\n\
    \\v\n\
    \\EOT\EOT\t\STX\SOH\DC2\ETXJ\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXJ\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXJ\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXJ\SYN\ETB\n\
    \\v\n\
    \\EOT\EOT\t\STX\STX\DC2\ETXK\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\ENQ\DC2\ETXK\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\SOH\DC2\ETXK\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\ETX\DC2\ETXK\SYN\ETB\n\
    \E\n\
    \\STX\EOT\n\
    \\DC2\EOTQ\NULT\SOH\SUB9 Represents a key-value pair for Plutus data in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\n\
    \\SOH\DC2\ETXQ\b\SYN\n\
    \\US\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\ETXR\STX\NAK\"\DC2 Key of the pair.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ACK\DC2\ETXR\STX\f\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\ETXR\r\DLE\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\ETXR\DC3\DC4\n\
    \!\n\
    \\EOT\EOT\n\
    \\STX\SOH\DC2\ETXS\STX\ETB\"\DC4 Value of the pair.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ACK\DC2\ETXS\STX\f\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\SOH\DC2\ETXS\r\DC2\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ETX\DC2\ETXS\NAK\SYN\n\
    \7\n\
    \\STX\EOT\v\DC2\EOTW\NUL_\SOH\SUB+ Represents a Plutus data item in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\v\SOH\DC2\ETXW\b\DC2\n\
    \\f\n\
    \\EOT\EOT\v\b\NUL\DC2\EOTX\STX^\ETX\n\
    \\f\n\
    \\ENQ\EOT\v\b\NUL\SOH\DC2\ETXX\b\DC3\n\
    \\ESC\n\
    \\EOT\EOT\v\STX\NUL\DC2\ETXY\EOT\SYN\"\SO Constructor.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXY\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXY\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXY\DC4\NAK\n\
    \\"\n\
    \\EOT\EOT\v\STX\SOH\DC2\ETXZ\EOT\SUB\"\NAK Map of Plutus data.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXZ\EOT\DC1\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXZ\DC2\NAK\n\
    \\f\n\
    \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXZ\CAN\EM\n\
    \\ESC\n\
    \\EOT\EOT\v\STX\STX\DC2\ETX[\EOT\ETB\"\SO Big integer.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\STX\ACK\DC2\ETX[\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\STX\SOH\DC2\ETX[\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\v\STX\STX\ETX\DC2\ETX[\NAK\SYN\n\
    \\GS\n\
    \\EOT\EOT\v\STX\ETX\DC2\ETX\\\EOT\FS\"\DLE Bounded bytes.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\ETX\ENQ\DC2\ETX\\\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETX\\\n\
    \\ETB\n\
    \\f\n\
    \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETX\\\SUB\ESC\n\
    \$\n\
    \\EOT\EOT\v\STX\EOT\DC2\ETX]\EOT\RS\"\ETB Array of Plutus data.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\EOT\ACK\DC2\ETX]\EOT\DC3\n\
    \\f\n\
    \\ENQ\EOT\v\STX\EOT\SOH\DC2\ETX]\DC4\EM\n\
    \\f\n\
    \\ENQ\EOT\v\STX\EOT\ETX\DC2\ETX]\FS\GS\n\
    \9\n\
    \\STX\EOT\f\DC2\EOTb\NULd\SOH\SUB- Represents a map of Plutus data in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\f\SOH\DC2\ETXb\b\NAK\n\
    \'\n\
    \\EOT\EOT\f\STX\NUL\DC2\ETXc\STX$\"\SUB List of key-value pairs.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXc\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXc\v\EM\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXc\SUB\US\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXc\"#\n\
    \<\n\
    \\STX\EOT\r\DC2\EOTg\NULi\SOH\SUB0 Represents an array of Plutus data in Cardano.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\r\SOH\DC2\ETXg\b\ETB\n\
    \)\n\
    \\EOT\EOT\r\STX\NUL\DC2\ETXh\STX \"\FS List of Plutus data items.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\EOT\DC2\ETXh\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXh\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXh\SYN\ESC\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXh\RS\US\n\
    \n\n\
    \\STX\EOT\SO\DC2\EOTn\NULv\SOH\SUBb Represents a script in Cardano.\n\
    \ TODO u5c: removed native script representation, added plutus_v4\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SO\SOH\DC2\ETXn\b\SO\n\
    \\f\n\
    \\EOT\EOT\SO\b\NUL\DC2\EOTo\STXu\ETX\n\
    \\f\n\
    \\ENQ\EOT\SO\b\NUL\SOH\DC2\ETXo\b\SO\n\
    \\GS\n\
    \\EOT\EOT\SO\STX\NUL\DC2\ETXp\EOT\FS\"\DLE Native script.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXp\EOT\DLE\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXp\DC1\ETB\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXp\SUB\ESC\n\
    \ \n\
    \\EOT\EOT\SO\STX\SOH\DC2\ETXq\EOT\CAN\"\DC3 Plutus V1 script.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\ENQ\DC2\ETXq\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXq\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXq\SYN\ETB\n\
    \ \n\
    \\EOT\EOT\SO\STX\STX\DC2\ETXr\EOT\CAN\"\DC3 Plutus V2 script.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\STX\ENQ\DC2\ETXr\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\STX\SOH\DC2\ETXr\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\STX\ETX\DC2\ETXr\SYN\ETB\n\
    \ \n\
    \\EOT\EOT\SO\STX\ETX\DC2\ETXs\EOT\CAN\"\DC3 Plutus V3 script.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\ETX\ENQ\DC2\ETXs\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\ETX\SOH\DC2\ETXs\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\ETX\ETX\DC2\ETXs\SYN\ETB\n\
    \ \n\
    \\EOT\EOT\SO\STX\EOT\DC2\ETXt\EOT\CAN\"\DC3 Plutus V4 script.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\EOT\ENQ\DC2\ETXt\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\EOT\SOH\DC2\ETXt\n\
    \\DC3\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\EOT\ETX\DC2\ETXt\SYN\ETB\n\
    \b\n\
    \\STX\EOT\SI\DC2\EOTz\NUL}\SOH\SUBV Represents a rational number as a fraction.\n\
    \ TODO u5c increased precision to 64 bits\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SI\SOH\DC2\ETXz\b\SYN\n\
    \\v\n\
    \\EOT\EOT\SI\STX\NUL\DC2\ETX{\STX+\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\ETX{\STX\a\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\SOH\DC2\ETX{\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\ETX\DC2\ETX{\DC4\NAK\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\NUL\b\DC2\ETX{\SYN*\n\
    \\r\n\
    \\ACK\EOT\SI\STX\NUL\b\ACK\DC2\ETX{\ETB)\n\
    \\v\n\
    \\EOT\EOT\SI\STX\SOH\DC2\ETX|\STX.\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\SOH\ENQ\DC2\ETX|\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\SOH\SOH\DC2\ETX|\t\DC4\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\SOH\ETX\DC2\ETX|\ETB\CAN\n\
    \\f\n\
    \\ENQ\EOT\SI\STX\SOH\b\DC2\ETX|\EM-\n\
    \\r\n\
    \\ACK\EOT\SI\STX\SOH\b\ACK\DC2\ETX|\SUB,\n\
    \\RS\n\
    \\STX\EOT\DLE\DC2\ACK\130\SOH\NUL\133\SOH\SOH2\DLE PARAMS\n\
    \ ======\n\
    \\n\
    \\v\n\
    \\ETX\EOT\DLE\SOH\DC2\EOT\130\SOH\b\SI\n\
    \\f\n\
    \\EOT\EOT\DLE\STX\NUL\DC2\EOT\131\SOH\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ENQ\DC2\EOT\131\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\131\SOH\t\SO\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\131\SOH\DC1\DC2\n\
    \\f\n\
    \\EOT\EOT\DLE\STX\SOH\DC2\EOT\132\SOH\STX\DC4\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\SOH\ENQ\DC2\EOT\132\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\132\SOH\t\SI\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\132\SOH\DC2\DC3\n\
    \\f\n\
    \\STX\EOT\DC1\DC2\ACK\135\SOH\NUL\138\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC1\SOH\DC2\EOT\135\SOH\b\DLE\n\
    \\f\n\
    \\EOT\EOT\DC1\STX\NUL\DC2\EOT\136\SOH\STX\ESC\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\136\SOH\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\136\SOH\DC1\SYN\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\136\SOH\EM\SUB\n\
    \\f\n\
    \\EOT\EOT\DC1\STX\SOH\DC2\EOT\137\SOH\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\137\SOH\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\137\SOH\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\137\SOH\SUB\ESC\n\
    \\f\n\
    \\STX\EOT\DC2\DC2\ACK\140\SOH\NUL\143\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC2\SOH\DC2\EOT\140\SOH\b\ETB\n\
    \\f\n\
    \\EOT\EOT\DC2\STX\NUL\DC2\EOT\141\SOH\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\141\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\141\SOH\t\SO\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\141\SOH\DC1\DC2\n\
    \\f\n\
    \\EOT\EOT\DC2\STX\SOH\DC2\EOT\142\SOH\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\SOH\ENQ\DC2\EOT\142\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\142\SOH\t\SO\n\
    \\r\n\
    \\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\142\SOH\DC1\DC2\n\
    \\f\n\
    \\STX\EOT\DC3\DC2\ACK\145\SOH\NUL\147\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC3\SOH\DC2\EOT\145\SOH\b\DC1\n\
    \\f\n\
    \\EOT\EOT\DC3\STX\NUL\DC2\EOT\146\SOH\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\EOT\DC2\EOT\146\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\146\SOH\v\DLE\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\146\SOH\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\146\SOH\SUB\ESC\n\
    \\f\n\
    \\STX\EOT\DC4\DC2\ACK\149\SOH\NUL\154\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\DC4\SOH\DC2\EOT\149\SOH\b\DC2\n\
    \\f\n\
    \\EOT\EOT\DC4\STX\NUL\DC2\EOT\150\SOH\STX\SUB\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ACK\DC2\EOT\150\SOH\STX\v\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\150\SOH\f\NAK\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\150\SOH\CAN\EM\n\
    \\f\n\
    \\EOT\EOT\DC4\STX\SOH\DC2\EOT\151\SOH\STX\SUB\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\ACK\DC2\EOT\151\SOH\STX\v\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\151\SOH\f\NAK\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\151\SOH\CAN\EM\n\
    \\f\n\
    \\EOT\EOT\DC4\STX\STX\DC2\EOT\152\SOH\STX\SUB\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\STX\ACK\DC2\EOT\152\SOH\STX\v\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\STX\SOH\DC2\EOT\152\SOH\f\NAK\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\STX\ETX\DC2\EOT\152\SOH\CAN\EM\n\
    \\f\n\
    \\EOT\EOT\DC4\STX\ETX\DC2\EOT\153\SOH\STX\SUB\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\ETX\ACK\DC2\EOT\153\SOH\STX\v\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\ETX\SOH\DC2\EOT\153\SOH\f\NAK\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\ETX\ETX\DC2\EOT\153\SOH\CAN\EM\n\
    \\f\n\
    \\STX\EOT\NAK\DC2\ACK\156\SOH\NUL\158\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\NAK\SOH\DC2\EOT\156\SOH\b\CAN\n\
    \\f\n\
    \\EOT\EOT\NAK\STX\NUL\DC2\EOT\157\SOH\STX)\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\EOT\DC2\EOT\157\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ACK\DC2\EOT\157\SOH\v\EM\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\157\SOH\SUB$\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\157\SOH'(\n\
    \\f\n\
    \\STX\EOT\SYN\DC2\ACK\160\SOH\NUL\192\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\SYN\SOH\DC2\EOT\160\SOH\b\SI\n\
    \2\n\
    \\EOT\EOT\SYN\STX\NUL\DC2\EOT\161\SOH\STX6\"$ The number of coins per UTXO byte.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\ENQ\DC2\EOT\161\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\161\SOH\t\FS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\161\SOH\US \n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\b\DC2\EOT\161\SOH!5\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\NUL\b\ACK\DC2\EOT\161\SOH\"4\n\
    \-\n\
    \\EOT\EOT\SYN\STX\SOH\DC2\EOT\162\SOH\STX.\"\US The maximum transaction size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SOH\ENQ\DC2\EOT\162\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SOH\SOH\DC2\EOT\162\SOH\t\DC4\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SOH\ETX\DC2\EOT\162\SOH\ETB\CAN\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SOH\b\DC2\EOT\162\SOH\EM-\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\SOH\b\ACK\DC2\EOT\162\SOH\SUB,\n\
    \,\n\
    \\EOT\EOT\SYN\STX\STX\DC2\EOT\163\SOH\STX6\"\RS The minimum fee coefficient.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\STX\ENQ\DC2\EOT\163\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\STX\SOH\DC2\EOT\163\SOH\t\FS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\STX\ETX\DC2\EOT\163\SOH\US \n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\STX\b\DC2\EOT\163\SOH!5\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\STX\b\ACK\DC2\EOT\163\SOH\"4\n\
    \)\n\
    \\EOT\EOT\SYN\STX\ETX\DC2\EOT\164\SOH\STX3\"\ESC The minimum fee constant.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ETX\ENQ\DC2\EOT\164\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ETX\SOH\DC2\EOT\164\SOH\t\EM\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ETX\ETX\DC2\EOT\164\SOH\FS\GS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ETX\b\DC2\EOT\164\SOH\RS2\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\ETX\b\ACK\DC2\EOT\164\SOH\US1\n\
    \,\n\
    \\EOT\EOT\SYN\STX\EOT\DC2\EOT\165\SOH\STX6\"\RS The maximum block body size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\EOT\ENQ\DC2\EOT\165\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\EOT\SOH\DC2\EOT\165\SOH\t\FS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\EOT\ETX\DC2\EOT\165\SOH\US \n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\EOT\b\DC2\EOT\165\SOH!5\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\EOT\b\ACK\DC2\EOT\165\SOH\"4\n\
    \.\n\
    \\EOT\EOT\SYN\STX\ENQ\DC2\EOT\166\SOH\STX8\"  The maximum block header size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ENQ\ENQ\DC2\EOT\166\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ENQ\SOH\DC2\EOT\166\SOH\t\RS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ENQ\ETX\DC2\EOT\166\SOH!\"\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ENQ\b\DC2\EOT\166\SOH#7\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\ENQ\b\ACK\DC2\EOT\166\SOH$6\n\
    \&\n\
    \\EOT\EOT\SYN\STX\ACK\DC2\EOT\167\SOH\STX4\"\CAN The stake key deposit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ACK\ENQ\DC2\EOT\167\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ACK\SOH\DC2\EOT\167\SOH\t\SUB\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ACK\ETX\DC2\EOT\167\SOH\GS\RS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ACK\b\DC2\EOT\167\SOH\US3\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\ACK\b\ACK\DC2\EOT\167\SOH 2\n\
    \!\n\
    \\EOT\EOT\SYN\STX\a\DC2\EOT\168\SOH\STX/\"\DC3 The pool deposit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\a\ENQ\DC2\EOT\168\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\a\SOH\DC2\EOT\168\SOH\t\NAK\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\a\ETX\DC2\EOT\168\SOH\CAN\EM\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\a\b\DC2\EOT\168\SOH\SUB.\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\a\b\ACK\DC2\EOT\168\SOH\ESC-\n\
    \0\n\
    \\EOT\EOT\SYN\STX\b\DC2\EOT\169\SOH\STX)\"\" The pool retirement epoch bound.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\b\ENQ\DC2\EOT\169\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\b\SOH\DC2\EOT\169\SOH\t$\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\b\ETX\DC2\EOT\169\SOH'(\n\
    \,\n\
    \\EOT\EOT\SYN\STX\t\DC2\EOT\170\SOH\STX&\"\RS The desired number of pools.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\t\ENQ\DC2\EOT\170\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\t\SOH\DC2\EOT\170\SOH\t \n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\t\ETX\DC2\EOT\170\SOH#%\n\
    \#\n\
    \\EOT\EOT\SYN\STX\n\
    \\DC2\EOT\171\SOH\STX%\"\NAK The pool influence.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\n\
    \\ACK\DC2\EOT\171\SOH\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\n\
    \\SOH\DC2\EOT\171\SOH\DC1\US\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\n\
    \\ETX\DC2\EOT\171\SOH\"$\n\
    \'\n\
    \\EOT\EOT\SYN\STX\v\DC2\EOT\172\SOH\STX)\"\EM The monetary expansion.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\v\ACK\DC2\EOT\172\SOH\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\v\SOH\DC2\EOT\172\SOH\DC1#\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\v\ETX\DC2\EOT\172\SOH&(\n\
    \'\n\
    \\EOT\EOT\SYN\STX\f\DC2\EOT\173\SOH\STX)\"\EM The treasury expansion.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\f\ACK\DC2\EOT\173\SOH\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\f\SOH\DC2\EOT\173\SOH\DC1#\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\f\ETX\DC2\EOT\173\SOH&(\n\
    \&\n\
    \\EOT\EOT\SYN\STX\r\DC2\EOT\174\SOH\STX1\"\CAN The minimum pool cost.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\r\ENQ\DC2\EOT\174\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\r\SOH\DC2\EOT\174\SOH\t\SYN\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\r\ETX\DC2\EOT\174\SOH\EM\ESC\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\r\b\DC2\EOT\174\SOH\FS0\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\r\b\ACK\DC2\EOT\174\SOH\GS/\n\
    \%\n\
    \\EOT\EOT\SYN\STX\SO\DC2\EOT\175\SOH\STX(\"\ETB The protocol version.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SO\ACK\DC2\EOT\175\SOH\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SO\SOH\DC2\EOT\175\SOH\DC2\"\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SO\ETX\DC2\EOT\175\SOH%'\n\
    \'\n\
    \\EOT\EOT\SYN\STX\SI\DC2\EOT\176\SOH\STX2\"\EM The maximum value size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SI\ENQ\DC2\EOT\176\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SI\SOH\DC2\EOT\176\SOH\t\ETB\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SI\ETX\DC2\EOT\176\SOH\SUB\FS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SI\b\DC2\EOT\176\SOH\GS1\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\SI\b\ACK\DC2\EOT\176\SOH\RS0\n\
    \*\n\
    \\EOT\EOT\SYN\STX\DLE\DC2\EOT\177\SOH\STX9\"\FS The collateral percentage.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DLE\ENQ\DC2\EOT\177\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DLE\SOH\DC2\EOT\177\SOH\t\RS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DLE\ETX\DC2\EOT\177\SOH!#\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DLE\b\DC2\EOT\177\SOH$8\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\DLE\b\ACK\DC2\EOT\177\SOH%7\n\
    \.\n\
    \\EOT\EOT\SYN\STX\DC1\DC2\EOT\178\SOH\STX9\"  The maximum collateral inputs.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC1\ENQ\DC2\EOT\178\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC1\SOH\DC2\EOT\178\SOH\t\RS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC1\ETX\DC2\EOT\178\SOH!#\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC1\b\DC2\EOT\178\SOH$8\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\DC1\b\ACK\DC2\EOT\178\SOH%7\n\
    \ \n\
    \\EOT\EOT\SYN\STX\DC2\DC2\EOT\179\SOH\STX\RS\"\DC2 The cost models.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC2\ACK\DC2\EOT\179\SOH\STX\f\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC2\SOH\DC2\EOT\179\SOH\r\CAN\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC2\ETX\DC2\EOT\179\SOH\ESC\GS\n\
    \\ESC\n\
    \\EOT\EOT\SYN\STX\DC3\DC2\EOT\180\SOH\STX\ETB\"\r The prices.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC3\ACK\DC2\EOT\180\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC3\SOH\DC2\EOT\180\SOH\v\DC1\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC3\ETX\DC2\EOT\180\SOH\DC4\SYN\n\
    \<\n\
    \\EOT\EOT\SYN\STX\DC4\DC2\EOT\181\SOH\STX3\". The maximum execution units per transaction.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC4\ACK\DC2\EOT\181\SOH\STX\t\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC4\SOH\DC2\EOT\181\SOH\n\
    \-\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\DC4\ETX\DC2\EOT\181\SOH02\n\
    \6\n\
    \\EOT\EOT\SYN\STX\NAK\DC2\EOT\182\SOH\STX-\"( The maximum execution units per block.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NAK\ACK\DC2\EOT\182\SOH\STX\t\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NAK\SOH\DC2\EOT\182\SOH\n\
    \'\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NAK\ETX\DC2\EOT\182\SOH*,\n\
    \:\n\
    \\EOT\EOT\SYN\STX\SYN\DC2\EOT\183\SOH\STX7\", The minimum fee per script reference byte.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SYN\ACK\DC2\EOT\183\SOH\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SYN\SOH\DC2\EOT\183\SOH\DC11\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SYN\ETX\DC2\EOT\183\SOH46\n\
    \+\n\
    \\EOT\EOT\SYN\STX\ETB\DC2\EOT\184\SOH\STX/\"\GS The pool voting thresholds.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ETB\ACK\DC2\EOT\184\SOH\STX\DC2\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ETB\SOH\DC2\EOT\184\SOH\DC3)\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ETB\ETX\DC2\EOT\184\SOH,.\n\
    \+\n\
    \\EOT\EOT\SYN\STX\CAN\DC2\EOT\185\SOH\STX/\"\GS The drep voting thresholds.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\CAN\ACK\DC2\EOT\185\SOH\STX\DC2\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\CAN\SOH\DC2\EOT\185\SOH\DC3)\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\CAN\ETX\DC2\EOT\185\SOH,.\n\
    \+\n\
    \\EOT\EOT\SYN\STX\EM\DC2\EOT\186\SOH\STX!\"\GS The minimum committee size.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\EM\ENQ\DC2\EOT\186\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\EM\SOH\DC2\EOT\186\SOH\t\ESC\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\EM\ETX\DC2\EOT\186\SOH\RS \n\
    \)\n\
    \\EOT\EOT\SYN\STX\SUB\DC2\EOT\187\SOH\STX#\"\ESC The committee term limit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SUB\ENQ\DC2\EOT\187\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SUB\SOH\DC2\EOT\187\SOH\t\GS\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\SUB\ETX\DC2\EOT\187\SOH \"\n\
    \6\n\
    \\EOT\EOT\SYN\STX\ESC\DC2\EOT\188\SOH\STX0\"( The governance action validity period.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ESC\ENQ\DC2\EOT\188\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ESC\SOH\DC2\EOT\188\SOH\t*\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\ESC\ETX\DC2\EOT\188\SOH-/\n\
    \.\n\
    \\EOT\EOT\SYN\STX\FS\DC2\EOT\189\SOH\STX=\"  The governance action deposit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\FS\ENQ\DC2\EOT\189\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\FS\SOH\DC2\EOT\189\SOH\t\"\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\FS\ETX\DC2\EOT\189\SOH%'\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\FS\b\DC2\EOT\189\SOH(<\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\FS\b\ACK\DC2\EOT\189\SOH);\n\
    \!\n\
    \\EOT\EOT\SYN\STX\GS\DC2\EOT\190\SOH\STX0\"\DC3 The drep deposit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\GS\ENQ\DC2\EOT\190\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\GS\SOH\DC2\EOT\190\SOH\t\NAK\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\GS\ETX\DC2\EOT\190\SOH\CAN\SUB\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\GS\b\DC2\EOT\190\SOH\ESC/\n\
    \\SO\n\
    \\ACK\EOT\SYN\STX\GS\b\ACK\DC2\EOT\190\SOH\FS.\n\
    \+\n\
    \\EOT\EOT\SYN\STX\RS\DC2\EOT\191\SOH\STX%\"\GS The drep inactivity period.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\RS\ENQ\DC2\EOT\191\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\RS\SOH\DC2\EOT\191\SOH\t\US\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\RS\ETX\DC2\EOT\191\SOH\"$b\ACKproto3"