{-# 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(), CostModel(), CostModels(), Datum(),
ExPrices(), ExUnits(), MultiAsset(), PParams(), ProtocolVersion(),
RationalNumber(), Script(), Script'Script(..), _Script'Native,
_Script'PlutusV1, _Script'PlutusV2, _Script'PlutusV3, 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
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__) ())
data Asset
= Asset'_constructor {Asset -> ByteString
_Asset'name :: !Data.ByteString.ByteString,
Asset -> Word64
_Asset'outputCoin :: !Data.Word.Word64,
Asset -> Maybe Int64
_Asset'mintCoin :: !(Prelude.Maybe Data.Int.Int64),
Asset -> FieldSet
_Asset'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Asset -> Asset -> Bool
(Asset -> Asset -> Bool) -> (Asset -> Asset -> Bool) -> Eq Asset
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Asset -> Asset -> Bool
== :: Asset -> Asset -> Bool
$c/= :: Asset -> Asset -> Bool
/= :: Asset -> Asset -> Bool
Prelude.Eq, Eq Asset
Eq Asset =>
(Asset -> Asset -> Ordering)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Bool)
-> (Asset -> Asset -> Asset)
-> (Asset -> Asset -> Asset)
-> Ord Asset
Asset -> Asset -> Bool
Asset -> Asset -> Ordering
Asset -> Asset -> Asset
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: Asset -> Asset -> Ordering
compare :: Asset -> Asset -> Ordering
$c< :: Asset -> Asset -> Bool
< :: Asset -> Asset -> Bool
$c<= :: Asset -> Asset -> Bool
<= :: Asset -> Asset -> Bool
$c> :: Asset -> Asset -> Bool
> :: Asset -> Asset -> Bool
$c>= :: Asset -> Asset -> Bool
>= :: Asset -> Asset -> Bool
$cmax :: Asset -> Asset -> Asset
max :: Asset -> Asset -> Asset
$cmin :: Asset -> Asset -> Asset
min :: Asset -> Asset -> Asset
Prelude.Ord)
instance Prelude.Show Asset where
showsPrec :: Int -> Asset -> ShowS
showsPrec Int
_ Asset
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Asset -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Asset
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Asset "name" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (ByteString -> f ByteString) -> Asset -> f Asset
fieldOf Proxy# "name"
_
= ((ByteString -> f ByteString) -> Asset -> f Asset)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Asset -> ByteString)
-> (Asset -> ByteString -> Asset)
-> Lens Asset Asset ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Asset -> ByteString
_Asset'name (\ Asset
x__ ByteString
y__ -> Asset
x__ {_Asset'name = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Asset "outputCoin" Data.Word.Word64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "outputCoin" -> (Word64 -> f Word64) -> Asset -> f Asset
fieldOf Proxy# "outputCoin"
_
= ((Word64 -> f Word64) -> Asset -> f Asset)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Asset -> Word64)
-> (Asset -> Word64 -> Asset) -> Lens Asset Asset Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Asset -> Word64
_Asset'outputCoin (\ Asset
x__ Word64
y__ -> Asset
x__ {_Asset'outputCoin = y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Asset "mintCoin" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "mintCoin" -> (Int64 -> f Int64) -> Asset -> f Asset
fieldOf Proxy# "mintCoin"
_
= ((Maybe Int64 -> f (Maybe Int64)) -> Asset -> f Asset)
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Asset -> Maybe Int64)
-> (Asset -> Maybe Int64 -> Asset)
-> Lens Asset Asset (Maybe Int64) (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Asset -> Maybe Int64
_Asset'mintCoin (\ Asset
x__ Maybe Int64
y__ -> Asset
x__ {_Asset'mintCoin = 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 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 Int64 -> f (Maybe Int64)) -> Asset -> f Asset)
-> ((Maybe Int64 -> f (Maybe Int64))
-> Maybe Int64 -> f (Maybe Int64))
-> (Maybe Int64 -> f (Maybe Int64))
-> Asset
-> f Asset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Asset -> Maybe Int64)
-> (Asset -> Maybe Int64 -> Asset)
-> Lens Asset Asset (Maybe Int64) (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Asset -> Maybe Int64
_Asset'mintCoin (\ Asset
x__ Maybe Int64
y__ -> Asset
x__ {_Asset'mintCoin = y__}))
(Maybe Int64 -> f (Maybe Int64)) -> Maybe Int64 -> f (Maybe Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Asset where
messageName :: Proxy Asset -> Text
messageName Proxy Asset
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.Asset"
packedMessageDescriptor :: Proxy Asset -> ByteString
packedMessageDescriptor Proxy Asset
_
= ByteString
"\n\
\\ENQAsset\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\US\n\
\\voutput_coin\CAN\STX \SOH(\EOTR\n\
\outputCoin\DC2 \n\
\\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoin\136\SOH\SOHB\f\n\
\\n\
\_mint_coin"
packedFileDescriptor :: Proxy Asset -> ByteString
packedFileDescriptor Proxy Asset
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Asset)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor Asset
name__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Asset ByteString
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"name"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens Asset Asset ByteString ByteString
-> FieldAccessor Asset ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
Data.ProtoLens.FieldDescriptor Asset
outputCoin__field_descriptor :: FieldDescriptor Asset
outputCoin__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor Asset Word64
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"output_coin"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens Asset Asset Word64 Word64 -> FieldAccessor Asset Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputCoin")) ::
Data.ProtoLens.FieldDescriptor Asset
mintCoin__field_descriptor :: FieldDescriptor Asset
mintCoin__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor Asset Int64
-> FieldDescriptor Asset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"mint_coin"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Lens Asset Asset (Maybe Int64) (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'outputCoin :: Word64
_Asset'outputCoin = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Asset'mintCoin :: Maybe Int64
_Asset'mintCoin = Maybe Int64
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.<>)
(let
_v :: Word64
_v
= FoldLike Word64 Asset Asset Word64 Word64 -> Asset -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputCoin") Asset
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike (Maybe Int64) Asset Asset (Maybe Int64) (Maybe Int64)
-> Asset -> Maybe 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 @"maybe'mintCoin") Asset
_x
of
Maybe Int64
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just 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__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Asset -> Word64
_Asset'outputCoin Asset
x__)
(Maybe Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Asset -> Maybe Int64
_Asset'mintCoin Asset
x__) ())))
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__) ())
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 -> 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.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"
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
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)]
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'_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
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))
(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__) ())))
data Datum
= Datum'_constructor {Datum -> ByteString
_Datum'hash :: !Data.ByteString.ByteString,
Datum -> ByteString
_Datum'originalCbor :: !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 "originalCbor" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "originalCbor"
-> (ByteString -> f ByteString) -> Datum -> f Datum
fieldOf Proxy# "originalCbor"
_
= ((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'originalCbor (\ Datum
x__ ByteString
y__ -> Datum
x__ {_Datum'originalCbor = y__}))
(ByteString -> f ByteString) -> ByteString -> f 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\DC2#\n\
\\roriginal_cbor\CAN\ETX \SOH(\fR\foriginalCbor"
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
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)
(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 @"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
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'originalCbor :: ByteString
_Datum'originalCbor = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_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
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.<>)
(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 @"originalCbor") 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
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__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Datum -> ByteString
_Datum'originalCbor Datum
x__) ()))
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__) ()))
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__) ()))
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__) ()))
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,
:: !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\DC2-\n\
\\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByte\DC2\RS\n\
\\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2.\n\
\\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficient\DC2(\n\
\\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstant\DC2-\n\
\\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\
\\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2*\n\
\\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDeposit\DC2!\n\
\\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDeposit\DC2=\n\
\\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\
\\ETBdesired_number_of_pools\CAN\n\
\ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\
\\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\
\\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\
\\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2\"\n\
\\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCost\DC2S\n\
\\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2$\n\
\\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSize\DC23\n\
\\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentage\DC22\n\
\\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputs\DC2D\n\
\\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\
\costModels\DC29\n\
\\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\
\#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\
\\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\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\ETBgovernanceActionDeposit\DC2!\n\
\\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDeposit\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__)
())))))))))))))))))))))))))))))))
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__) ()))
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\FS\n\
\\tnumerator\CAN\SOH \SOH(\ETXR\tnumerator\DC2 \n\
\\vdenominator\CAN\STX \SOH(\EOTR\vdenominator"
packedFileDescriptor :: Proxy RationalNumber -> ByteString
packedFileDescriptor Proxy RationalNumber
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RationalNumber)
fieldsByTag
= let
numerator__field_descriptor :: FieldDescriptor RationalNumber
numerator__field_descriptor
= String
-> FieldTypeDescriptor 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__) ()))
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 !Data.ByteString.ByteString |
Script'PlutusV1 !Data.ByteString.ByteString |
Script'PlutusV2 !Data.ByteString.ByteString |
Script'PlutusV3 !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 Data.ByteString.ByteString) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'native"
-> (Maybe ByteString -> f (Maybe ByteString)) -> Script -> f Script
fieldOf Proxy# "maybe'native"
_
= ((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'Native 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'Native Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Script "native" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "native"
-> (ByteString -> f ByteString) -> Script -> f Script
fieldOf Proxy# "native"
_
= ((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'Native 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'Native 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'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.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\CAN\n\
\\ACKnative\CAN\SOH \SOH(\fH\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\bplutusV3B\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 ByteString
-> FieldAccessor Script ByteString
-> FieldDescriptor Script
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"native"
(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'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
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)]
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 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
"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
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 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 (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))
(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 ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
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__
_Script'Native ::
Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString
_Script'Native :: Prism' Script'Script ByteString
_Script'Native
= (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'Native
(\ Script'Script
p__
-> case Script'Script
p__ of
(Script'Native 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'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)
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\DC2\n\
\\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\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__) ())))))
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\"\228\SOH\n\
\\bTxOutput\DC2\CAN\n\
\\aaddress\CAN\SOH \SOH(\fR\aaddress\DC2\DC2\n\
\\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2;\n\
\\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiAssetR\ACKassets\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\"@\n\
\\ENQDatum\DC2\DC2\n\
\\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2#\n\
\\roriginal_cbor\CAN\ETX \SOH(\fR\foriginalCbor\"l\n\
\\ENQAsset\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\US\n\
\\voutput_coin\CAN\STX \SOH(\EOTR\n\
\outputCoin\DC2 \n\
\\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoin\136\SOH\SOHB\f\n\
\\n\
\_mint_coin\"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\"\137\SOH\n\
\\ACKScript\DC2\CAN\n\
\\ACKnative\CAN\SOH \SOH(\fH\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\bplutusV3B\b\n\
\\ACKscript\"P\n\
\\SORationalNumber\DC2\FS\n\
\\tnumerator\CAN\SOH \SOH(\ETXR\tnumerator\DC2 \n\
\\vdenominator\CAN\STX \SOH(\EOTR\vdenominator\"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\"\207\SOH\n\
\\n\
\CostModels\DC2?\n\
\\tplutus_v1\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV1\DC2?\n\
\\tplutus_v2\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV2\DC2?\n\
\\tplutus_v3\CAN\ETX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV3\"[\n\
\\DLEVotingThresholds\DC2G\n\
\\n\
\thresholds\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\n\
\thresholds\"\167\SI\n\
\\aPParams\DC2-\n\
\\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByte\DC2\RS\n\
\\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2.\n\
\\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficient\DC2(\n\
\\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstant\DC2-\n\
\\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\
\\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2*\n\
\\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDeposit\DC2!\n\
\\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDeposit\DC2=\n\
\\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\
\\ETBdesired_number_of_pools\CAN\n\
\ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\
\\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\
\\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\
\\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2\"\n\
\\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCost\DC2S\n\
\\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2$\n\
\\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSize\DC23\n\
\\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentage\DC22\n\
\\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputs\DC2D\n\
\\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\
\costModels\DC29\n\
\\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\
\#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\
\\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\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\ETBgovernanceActionDeposit\DC2!\n\
\\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDeposit\DC24\n\
\\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriodJ\226.\n\
\\ACK\DC2\EOT\NUL\NULy\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\DC2\"\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\
\@\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\
\\STX\EOT\STX\DC2\EOT\DC3\NUL\SYN\SOH\SUB0 TODO u5c: replaced plutus_data with just bytes\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\DC3\b\r\n\
\2\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\DC4\STX\DC1\"% Hash of this datum as seen on-chain\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC4\STX\a\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC4\b\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC4\SI\DLE\n\
\:\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX\NAK\STX\SUB\"- Original cbor-encoded data as seen on-chain\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\NAK\STX\a\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\NAK\b\NAK\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\NAK\CAN\EM\n\
\e\n\
\\STX\EOT\ETX\DC2\EOT\SUB\NUL\RS\SOH\SUBY TODO u5c: mint_coin made optional\n\
\ Represents a custom asset in the Cardano blockchain.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\SUB\b\r\n\
\(\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\ESC\STX\DC1\"\ESC Name of the custom asset.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\ESC\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\ESC\b\f\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\ESC\SI\DLE\n\
\A\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETX\FS\STX\EM\"4 Quantity of the custom asset in case of an output.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX\FS\STX\b\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX\FS\t\DC4\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX\FS\ETB\CAN\n\
\>\n\
\\EOT\EOT\ETX\STX\STX\DC2\ETX\GS\STX\US\"1 Quantity of the custom asset in case of a mint.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\EOT\DC2\ETX\GS\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX\GS\v\DLE\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX\GS\DC1\SUB\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX\GS\GS\RS\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\
\]\n\
\\STX\EOT\ENQ\DC2\EOT)\NUL0\SOH\SUBQ Represents a script in Cardano.\n\
\ TODO u5c: removed native script representation\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETX)\b\SO\n\
\\f\n\
\\EOT\EOT\ENQ\b\NUL\DC2\EOT*\STX/\ETX\n\
\\f\n\
\\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX*\b\SO\n\
\\GS\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETX+\EOT\NAK\"\DLE Native script.\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\
\\DLE\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX+\DC3\DC4\n\
\ \n\
\\EOT\EOT\ENQ\STX\SOH\DC2\ETX,\EOT\CAN\"\DC3 Plutus V1 script.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETX,\EOT\t\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX,\n\
\\DC3\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX,\SYN\ETB\n\
\ \n\
\\EOT\EOT\ENQ\STX\STX\DC2\ETX-\EOT\CAN\"\DC3 Plutus V2 script.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\ETX-\EOT\t\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX-\n\
\\DC3\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX-\SYN\ETB\n\
\ \n\
\\EOT\EOT\ENQ\STX\ETX\DC2\ETX.\EOT\CAN\"\DC3 Plutus V3 script.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\ETX.\EOT\t\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETX.\n\
\\DC3\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETX.\SYN\ETB\n\
\b\n\
\\STX\EOT\ACK\DC2\EOT4\NUL7\SOH\SUBV Represents a rational number as a fraction.\n\
\ TODO u5c increased precision to 64 bits\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETX4\b\SYN\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETX5\STX\SYN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX5\STX\a\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX5\b\DC1\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX5\DC4\NAK\n\
\\v\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETX6\STX\EM\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX6\STX\b\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX6\t\DC4\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX6\ETB\CAN\n\
\\FS\n\
\\STX\EOT\a\DC2\EOT<\NUL?\SOH2\DLE PARAMS\n\
\ ======\n\
\\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETX<\b\SI\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETX=\STX\DC3\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\SO\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX=\DC1\DC2\n\
\\v\n\
\\EOT\EOT\a\STX\SOH\DC2\ETX>\STX\DC4\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETX>\STX\b\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX>\t\SI\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX>\DC2\DC3\n\
\\n\
\\n\
\\STX\EOT\b\DC2\EOTA\NULD\SOH\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETXA\b\DLE\n\
\\v\n\
\\EOT\EOT\b\STX\NUL\DC2\ETXB\STX\ESC\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXB\STX\DLE\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXB\DC1\SYN\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXB\EM\SUB\n\
\\v\n\
\\EOT\EOT\b\STX\SOH\DC2\ETXC\STX\FS\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXC\STX\DLE\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXC\DC1\ETB\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXC\SUB\ESC\n\
\\n\
\\n\
\\STX\EOT\t\DC2\EOTF\NULI\SOH\n\
\\n\
\\n\
\\ETX\EOT\t\SOH\DC2\ETXF\b\ETB\n\
\\v\n\
\\EOT\EOT\t\STX\NUL\DC2\ETXG\STX\DC3\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXG\STX\b\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXG\t\SO\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXG\DC1\DC2\n\
\\v\n\
\\EOT\EOT\t\STX\SOH\DC2\ETXH\STX\DC3\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXH\STX\b\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXH\t\SO\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXH\DC1\DC2\n\
\\n\
\\n\
\\STX\EOT\n\
\\DC2\EOTK\NULM\SOH\n\
\\n\
\\n\
\\ETX\EOT\n\
\\SOH\DC2\ETXK\b\DC1\n\
\\v\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\ETXL\STX\FS\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\EOT\DC2\ETXL\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ENQ\DC2\ETXL\v\DLE\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\ETXL\DC1\ETB\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\ETXL\SUB\ESC\n\
\\n\
\\n\
\\STX\EOT\v\DC2\EOTO\NULS\SOH\n\
\\n\
\\n\
\\ETX\EOT\v\SOH\DC2\ETXO\b\DC2\n\
\\v\n\
\\EOT\EOT\v\STX\NUL\DC2\ETXP\STX\SUB\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXP\STX\v\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXP\f\NAK\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXP\CAN\EM\n\
\\v\n\
\\EOT\EOT\v\STX\SOH\DC2\ETXQ\STX\SUB\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXQ\STX\v\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXQ\f\NAK\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXQ\CAN\EM\n\
\\v\n\
\\EOT\EOT\v\STX\STX\DC2\ETXR\STX\SUB\n\
\\f\n\
\\ENQ\EOT\v\STX\STX\ACK\DC2\ETXR\STX\v\n\
\\f\n\
\\ENQ\EOT\v\STX\STX\SOH\DC2\ETXR\f\NAK\n\
\\f\n\
\\ENQ\EOT\v\STX\STX\ETX\DC2\ETXR\CAN\EM\n\
\\n\
\\n\
\\STX\EOT\f\DC2\EOTU\NULW\SOH\n\
\\n\
\\n\
\\ETX\EOT\f\SOH\DC2\ETXU\b\CAN\n\
\\v\n\
\\EOT\EOT\f\STX\NUL\DC2\ETXV\STX)\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXV\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXV\v\EM\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXV\SUB$\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXV'(\n\
\\n\
\\n\
\\STX\EOT\r\DC2\EOTY\NULy\SOH\n\
\\n\
\\n\
\\ETX\EOT\r\SOH\DC2\ETXY\b\SI\n\
\1\n\
\\EOT\EOT\r\STX\NUL\DC2\ETXZ\STX!\"$ The number of coins per UTXO byte.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ENQ\DC2\ETXZ\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXZ\t\FS\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXZ\US \n\
\,\n\
\\EOT\EOT\r\STX\SOH\DC2\ETX[\STX\EM\"\US The maximum transaction size.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\SOH\ENQ\DC2\ETX[\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\SOH\SOH\DC2\ETX[\t\DC4\n\
\\f\n\
\\ENQ\EOT\r\STX\SOH\ETX\DC2\ETX[\ETB\CAN\n\
\+\n\
\\EOT\EOT\r\STX\STX\DC2\ETX\\\STX!\"\RS The minimum fee coefficient.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\STX\ENQ\DC2\ETX\\\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\STX\SOH\DC2\ETX\\\t\FS\n\
\\f\n\
\\ENQ\EOT\r\STX\STX\ETX\DC2\ETX\\\US \n\
\(\n\
\\EOT\EOT\r\STX\ETX\DC2\ETX]\STX\RS\"\ESC The minimum fee constant.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\ETX\ENQ\DC2\ETX]\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\ETX\SOH\DC2\ETX]\t\EM\n\
\\f\n\
\\ENQ\EOT\r\STX\ETX\ETX\DC2\ETX]\FS\GS\n\
\+\n\
\\EOT\EOT\r\STX\EOT\DC2\ETX^\STX!\"\RS The maximum block body size.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\EOT\ENQ\DC2\ETX^\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\EOT\SOH\DC2\ETX^\t\FS\n\
\\f\n\
\\ENQ\EOT\r\STX\EOT\ETX\DC2\ETX^\US \n\
\-\n\
\\EOT\EOT\r\STX\ENQ\DC2\ETX_\STX#\" The maximum block header size.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\ENQ\ENQ\DC2\ETX_\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\ENQ\SOH\DC2\ETX_\t\RS\n\
\\f\n\
\\ENQ\EOT\r\STX\ENQ\ETX\DC2\ETX_!\"\n\
\%\n\
\\EOT\EOT\r\STX\ACK\DC2\ETX`\STX\US\"\CAN The stake key deposit.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\ACK\ENQ\DC2\ETX`\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\ACK\SOH\DC2\ETX`\t\SUB\n\
\\f\n\
\\ENQ\EOT\r\STX\ACK\ETX\DC2\ETX`\GS\RS\n\
\ \n\
\\EOT\EOT\r\STX\a\DC2\ETXa\STX\SUB\"\DC3 The pool deposit.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\a\ENQ\DC2\ETXa\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\a\SOH\DC2\ETXa\t\NAK\n\
\\f\n\
\\ENQ\EOT\r\STX\a\ETX\DC2\ETXa\CAN\EM\n\
\/\n\
\\EOT\EOT\r\STX\b\DC2\ETXb\STX)\"\" The pool retirement epoch bound.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\b\ENQ\DC2\ETXb\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\b\SOH\DC2\ETXb\t$\n\
\\f\n\
\\ENQ\EOT\r\STX\b\ETX\DC2\ETXb'(\n\
\+\n\
\\EOT\EOT\r\STX\t\DC2\ETXc\STX&\"\RS The desired number of pools.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\t\ENQ\DC2\ETXc\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\t\SOH\DC2\ETXc\t \n\
\\f\n\
\\ENQ\EOT\r\STX\t\ETX\DC2\ETXc#%\n\
\\"\n\
\\EOT\EOT\r\STX\n\
\\DC2\ETXd\STX%\"\NAK The pool influence.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\n\
\\ACK\DC2\ETXd\STX\DLE\n\
\\f\n\
\\ENQ\EOT\r\STX\n\
\\SOH\DC2\ETXd\DC1\US\n\
\\f\n\
\\ENQ\EOT\r\STX\n\
\\ETX\DC2\ETXd\"$\n\
\&\n\
\\EOT\EOT\r\STX\v\DC2\ETXe\STX)\"\EM The monetary expansion.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\v\ACK\DC2\ETXe\STX\DLE\n\
\\f\n\
\\ENQ\EOT\r\STX\v\SOH\DC2\ETXe\DC1#\n\
\\f\n\
\\ENQ\EOT\r\STX\v\ETX\DC2\ETXe&(\n\
\&\n\
\\EOT\EOT\r\STX\f\DC2\ETXf\STX)\"\EM The treasury expansion.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\f\ACK\DC2\ETXf\STX\DLE\n\
\\f\n\
\\ENQ\EOT\r\STX\f\SOH\DC2\ETXf\DC1#\n\
\\f\n\
\\ENQ\EOT\r\STX\f\ETX\DC2\ETXf&(\n\
\%\n\
\\EOT\EOT\r\STX\r\DC2\ETXg\STX\FS\"\CAN The minimum pool cost.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\r\ENQ\DC2\ETXg\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\r\SOH\DC2\ETXg\t\SYN\n\
\\f\n\
\\ENQ\EOT\r\STX\r\ETX\DC2\ETXg\EM\ESC\n\
\3\n\
\\EOT\EOT\r\STX\SO\DC2\ETXh\STX(\"& The maximum value size in an output.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\SO\ACK\DC2\ETXh\STX\DC1\n\
\\f\n\
\\ENQ\EOT\r\STX\SO\SOH\DC2\ETXh\DC2\"\n\
\\f\n\
\\ENQ\EOT\r\STX\SO\ETX\DC2\ETXh%'\n\
\&\n\
\\EOT\EOT\r\STX\SI\DC2\ETXi\STX\GS\"\EM The maximum value size.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\SI\ENQ\DC2\ETXi\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\SI\SOH\DC2\ETXi\t\ETB\n\
\\f\n\
\\ENQ\EOT\r\STX\SI\ETX\DC2\ETXi\SUB\FS\n\
\n\n\
\\EOT\EOT\r\STX\DLE\DC2\ETXj\STX$\"a Percentage of the txfee which must be provided as collateral when including non-native scripts.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\DLE\ENQ\DC2\ETXj\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\DLE\SOH\DC2\ETXj\t\RS\n\
\\f\n\
\\ENQ\EOT\r\STX\DLE\ETX\DC2\ETXj!#\n\
\-\n\
\\EOT\EOT\r\STX\DC1\DC2\ETXk\STX$\" The maximum collateral inputs.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\DC1\ENQ\DC2\ETXk\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\DC1\SOH\DC2\ETXk\t\RS\n\
\\f\n\
\\ENQ\EOT\r\STX\DC1\ETX\DC2\ETXk!#\n\
\\US\n\
\\EOT\EOT\r\STX\DC2\DC2\ETXl\STX\RS\"\DC2 The cost models.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\DC2\ACK\DC2\ETXl\STX\f\n\
\\f\n\
\\ENQ\EOT\r\STX\DC2\SOH\DC2\ETXl\r\CAN\n\
\\f\n\
\\ENQ\EOT\r\STX\DC2\ETX\DC2\ETXl\ESC\GS\n\
\\SUB\n\
\\EOT\EOT\r\STX\DC3\DC2\ETXm\STX\ETB\"\r The prices.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\DC3\ACK\DC2\ETXm\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\DC3\SOH\DC2\ETXm\v\DC1\n\
\\f\n\
\\ENQ\EOT\r\STX\DC3\ETX\DC2\ETXm\DC4\SYN\n\
\;\n\
\\EOT\EOT\r\STX\DC4\DC2\ETXn\STX3\". The maximum execution units per transaction.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\DC4\ACK\DC2\ETXn\STX\t\n\
\\f\n\
\\ENQ\EOT\r\STX\DC4\SOH\DC2\ETXn\n\
\-\n\
\\f\n\
\\ENQ\EOT\r\STX\DC4\ETX\DC2\ETXn02\n\
\5\n\
\\EOT\EOT\r\STX\NAK\DC2\ETXo\STX-\"( The maximum execution units per block.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\NAK\ACK\DC2\ETXo\STX\t\n\
\\f\n\
\\ENQ\EOT\r\STX\NAK\SOH\DC2\ETXo\n\
\'\n\
\\f\n\
\\ENQ\EOT\r\STX\NAK\ETX\DC2\ETXo*,\n\
\9\n\
\\EOT\EOT\r\STX\SYN\DC2\ETXp\STX7\", The minimum fee per script reference byte.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\SYN\ACK\DC2\ETXp\STX\DLE\n\
\\f\n\
\\ENQ\EOT\r\STX\SYN\SOH\DC2\ETXp\DC11\n\
\\f\n\
\\ENQ\EOT\r\STX\SYN\ETX\DC2\ETXp46\n\
\*\n\
\\EOT\EOT\r\STX\ETB\DC2\ETXq\STX/\"\GS The pool voting thresholds.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\ETB\ACK\DC2\ETXq\STX\DC2\n\
\\f\n\
\\ENQ\EOT\r\STX\ETB\SOH\DC2\ETXq\DC3)\n\
\\f\n\
\\ENQ\EOT\r\STX\ETB\ETX\DC2\ETXq,.\n\
\*\n\
\\EOT\EOT\r\STX\CAN\DC2\ETXr\STX/\"\GS The drep voting thresholds.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\CAN\ACK\DC2\ETXr\STX\DC2\n\
\\f\n\
\\ENQ\EOT\r\STX\CAN\SOH\DC2\ETXr\DC3)\n\
\\f\n\
\\ENQ\EOT\r\STX\CAN\ETX\DC2\ETXr,.\n\
\*\n\
\\EOT\EOT\r\STX\EM\DC2\ETXs\STX!\"\GS The minimum committee size.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\EM\ENQ\DC2\ETXs\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\EM\SOH\DC2\ETXs\t\ESC\n\
\\f\n\
\\ENQ\EOT\r\STX\EM\ETX\DC2\ETXs\RS \n\
\(\n\
\\EOT\EOT\r\STX\SUB\DC2\ETXt\STX#\"\ESC The committee term limit.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\SUB\ENQ\DC2\ETXt\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\SUB\SOH\DC2\ETXt\t\GS\n\
\\f\n\
\\ENQ\EOT\r\STX\SUB\ETX\DC2\ETXt \"\n\
\5\n\
\\EOT\EOT\r\STX\ESC\DC2\ETXu\STX0\"( The governance action validity period.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\ESC\ENQ\DC2\ETXu\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\ESC\SOH\DC2\ETXu\t*\n\
\\f\n\
\\ENQ\EOT\r\STX\ESC\ETX\DC2\ETXu-/\n\
\-\n\
\\EOT\EOT\r\STX\FS\DC2\ETXv\STX(\" The governance action deposit.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\FS\ENQ\DC2\ETXv\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\FS\SOH\DC2\ETXv\t\"\n\
\\f\n\
\\ENQ\EOT\r\STX\FS\ETX\DC2\ETXv%'\n\
\ \n\
\\EOT\EOT\r\STX\GS\DC2\ETXw\STX\ESC\"\DC3 The drep deposit.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\GS\ENQ\DC2\ETXw\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\GS\SOH\DC2\ETXw\t\NAK\n\
\\f\n\
\\ENQ\EOT\r\STX\GS\ETX\DC2\ETXw\CAN\SUB\n\
\*\n\
\\EOT\EOT\r\STX\RS\DC2\ETXx\STX%\"\GS The drep inactivity period.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\RS\ENQ\DC2\ETXx\STX\b\n\
\\f\n\
\\ENQ\EOT\r\STX\RS\SOH\DC2\ETXx\t\US\n\
\\f\n\
\\ENQ\EOT\r\STX\RS\ETX\DC2\ETXx\"$b\ACKproto3"