{- This file was auto-generated from utxorpc/v1alpha/cardano/cardano.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Utxorpc.V1alpha.Cardano.Cardano (
        CostModel(), CostModels(), ExPrices(), ExUnits(), PParams(),
        ProtocolVersion(), RationalNumber(), VotingThresholds()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.values' @:: Lens' CostModel [Data.Int.Int64]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'values' @:: Lens' CostModel (Data.Vector.Unboxed.Vector Data.Int.Int64)@ -}
data CostModel
  = CostModel'_constructor {CostModel -> Vector Int64
_CostModel'values :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
                            CostModel -> FieldSet
_CostModel'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CostModel -> CostModel -> Bool
(CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool) -> Eq CostModel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CostModel -> CostModel -> Bool
== :: CostModel -> CostModel -> Bool
$c/= :: CostModel -> CostModel -> Bool
/= :: CostModel -> CostModel -> Bool
Prelude.Eq, Eq CostModel
Eq CostModel =>
(CostModel -> CostModel -> Ordering)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> Bool)
-> (CostModel -> CostModel -> CostModel)
-> (CostModel -> CostModel -> CostModel)
-> Ord CostModel
CostModel -> CostModel -> Bool
CostModel -> CostModel -> Ordering
CostModel -> CostModel -> CostModel
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CostModel -> CostModel -> Ordering
compare :: CostModel -> CostModel -> Ordering
$c< :: CostModel -> CostModel -> Bool
< :: CostModel -> CostModel -> Bool
$c<= :: CostModel -> CostModel -> Bool
<= :: CostModel -> CostModel -> Bool
$c> :: CostModel -> CostModel -> Bool
> :: CostModel -> CostModel -> Bool
$c>= :: CostModel -> CostModel -> Bool
>= :: CostModel -> CostModel -> Bool
$cmax :: CostModel -> CostModel -> CostModel
max :: CostModel -> CostModel -> CostModel
$cmin :: CostModel -> CostModel -> CostModel
min :: CostModel -> CostModel -> CostModel
Prelude.Ord)
instance Prelude.Show CostModel where
  showsPrec :: Int -> CostModel -> ShowS
showsPrec Int
_ CostModel
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CostModel -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CostModel
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CostModel "values" [Data.Int.Int64] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "values"
-> ([Int64] -> f [Int64]) -> CostModel -> f CostModel
fieldOf Proxy# "values"
_
    = ((Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> CostModel
-> f CostModel
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModel -> Vector Int64)
-> (CostModel -> Vector Int64 -> CostModel)
-> Lens CostModel CostModel (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModel -> Vector Int64
_CostModel'values (\ CostModel
x__ Vector Int64
y__ -> CostModel
x__ {_CostModel'values = y__}))
        ((Vector Int64 -> [Int64])
-> (Vector Int64 -> [Int64] -> Vector Int64)
-> Lens (Vector Int64) (Vector Int64) [Int64] [Int64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int64 -> [Int64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Int64
_ [Int64]
y__ -> [Int64] -> Vector Int64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int64]
y__))
instance Data.ProtoLens.Field.HasField CostModel "vec'values" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'values"
-> (Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel
fieldOf Proxy# "vec'values"
_
    = ((Vector Int64 -> f (Vector Int64)) -> CostModel -> f CostModel)
-> ((Vector Int64 -> f (Vector Int64))
    -> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> CostModel
-> f CostModel
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CostModel -> Vector Int64)
-> (CostModel -> Vector Int64 -> CostModel)
-> Lens CostModel CostModel (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CostModel -> Vector Int64
_CostModel'values (\ CostModel
x__ Vector Int64
y__ -> CostModel
x__ {_CostModel'values = y__}))
        (Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CostModel where
  messageName :: Proxy CostModel -> Text
messageName Proxy CostModel
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.CostModel"
  packedMessageDescriptor :: Proxy CostModel -> ByteString
packedMessageDescriptor Proxy CostModel
_
    = ByteString
"\n\
      \\tCostModel\DC2\SYN\n\
      \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues"
  packedFileDescriptor :: Proxy CostModel -> ByteString
packedFileDescriptor Proxy CostModel
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CostModel)
fieldsByTag
    = let
        values__field_descriptor :: FieldDescriptor CostModel
values__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CostModel Int64
-> FieldDescriptor CostModel
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"values"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Packing -> Lens' CostModel [Int64] -> FieldAccessor CostModel Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values")) ::
              Data.ProtoLens.FieldDescriptor CostModel
      in
        [(Tag, FieldDescriptor CostModel)]
-> Map Tag (FieldDescriptor CostModel)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CostModel
values__field_descriptor)]
  unknownFields :: Lens' CostModel FieldSet
unknownFields
    = (CostModel -> FieldSet)
-> (CostModel -> FieldSet -> CostModel) -> Lens' CostModel FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CostModel -> FieldSet
_CostModel'_unknownFields
        (\ CostModel
x__ FieldSet
y__ -> CostModel
x__ {_CostModel'_unknownFields = y__})
  defMessage :: CostModel
defMessage
    = CostModel'_constructor
        {_CostModel'values :: Vector Int64
_CostModel'values = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _CostModel'_unknownFields :: FieldSet
_CostModel'_unknownFields = []}
  parseMessage :: Parser CostModel
parseMessage
    = let
        loop ::
          CostModel
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
             -> Data.ProtoLens.Encoding.Bytes.Parser CostModel
        loop :: CostModel -> Growing Vector RealWorld Int64 -> Parser CostModel
loop CostModel
x Growing Vector RealWorld Int64
mutable'values
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'values)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'values") frozen'values x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do !y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        String
"values"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'values y)
                                loop x v
                        Word64
10
                          -> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Data.ProtoLens.Encoding.Bytes.isolate
                                          (Prelude.fromIntegral len)
                                          ((let
                                              ploop Growing v RealWorld a
qs
                                                = do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if packedEnd then
                                                         Prelude.return qs
                                                     else
                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    (Prelude.fmap
                                                                       Prelude.fromIntegral
                                                                       Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "values"
                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Data.ProtoLens.Encoding.Growing.append
                                                                        qs q)
                                                            ploop qs'
                                            in ploop)
                                             mutable'values)
                                loop x y
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'values
      in
        Parser CostModel -> String -> Parser CostModel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'values <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Int64)
IO (Growing Vector (PrimState IO) Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'values)
          String
"CostModel"
  buildMessage :: CostModel -> Builder
buildMessage
    = \ CostModel
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Int64
p = FoldLike
  (Vector Int64) CostModel CostModel (Vector Int64) (Vector Int64)
-> CostModel -> Vector Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") CostModel
_x
              in
                if Vector Int64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int64
p then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                               Vector Int64
p))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet CostModel CostModel FieldSet FieldSet
-> CostModel -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CostModel CostModel FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CostModel FieldSet
Data.ProtoLens.unknownFields CostModel
_x))
instance Control.DeepSeq.NFData CostModel where
  rnf :: CostModel -> ()
rnf
    = \ CostModel
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CostModel -> FieldSet
_CostModel'_unknownFields CostModel
x__)
             (Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CostModel -> Vector Int64
_CostModel'values CostModel
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModels (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' CostModels (Prelude.Maybe CostModel)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV3' @:: Lens' CostModels CostModel@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' CostModels (Prelude.Maybe CostModel)@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.steps' @:: Lens' ExPrices RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'steps' @:: Lens' ExPrices (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.memory' @:: Lens' ExPrices RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'memory' @:: Lens' ExPrices (Prelude.Maybe RationalNumber)@ -}
data ExPrices
  = ExPrices'_constructor {ExPrices -> Maybe RationalNumber
_ExPrices'steps :: !(Prelude.Maybe RationalNumber),
                           ExPrices -> Maybe RationalNumber
_ExPrices'memory :: !(Prelude.Maybe RationalNumber),
                           ExPrices -> FieldSet
_ExPrices'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExPrices -> ExPrices -> Bool
(ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool) -> Eq ExPrices
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExPrices -> ExPrices -> Bool
== :: ExPrices -> ExPrices -> Bool
$c/= :: ExPrices -> ExPrices -> Bool
/= :: ExPrices -> ExPrices -> Bool
Prelude.Eq, Eq ExPrices
Eq ExPrices =>
(ExPrices -> ExPrices -> Ordering)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> Bool)
-> (ExPrices -> ExPrices -> ExPrices)
-> (ExPrices -> ExPrices -> ExPrices)
-> Ord ExPrices
ExPrices -> ExPrices -> Bool
ExPrices -> ExPrices -> Ordering
ExPrices -> ExPrices -> ExPrices
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ExPrices -> ExPrices -> Ordering
compare :: ExPrices -> ExPrices -> Ordering
$c< :: ExPrices -> ExPrices -> Bool
< :: ExPrices -> ExPrices -> Bool
$c<= :: ExPrices -> ExPrices -> Bool
<= :: ExPrices -> ExPrices -> Bool
$c> :: ExPrices -> ExPrices -> Bool
> :: ExPrices -> ExPrices -> Bool
$c>= :: ExPrices -> ExPrices -> Bool
>= :: ExPrices -> ExPrices -> Bool
$cmax :: ExPrices -> ExPrices -> ExPrices
max :: ExPrices -> ExPrices -> ExPrices
$cmin :: ExPrices -> ExPrices -> ExPrices
min :: ExPrices -> ExPrices -> ExPrices
Prelude.Ord)
instance Prelude.Show ExPrices where
  showsPrec :: Int -> ExPrices -> ShowS
showsPrec Int
_ ExPrices
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExPrices -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExPrices
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExPrices "steps" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "steps"
-> (RationalNumber -> f RationalNumber) -> ExPrices -> f ExPrices
fieldOf Proxy# "steps"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'steps (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'steps = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExPrices "maybe'steps" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'steps"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
fieldOf Proxy# "maybe'steps"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'steps (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'steps = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExPrices "memory" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memory"
-> (RationalNumber -> f RationalNumber) -> ExPrices -> f ExPrices
fieldOf Proxy# "memory"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'memory (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'memory = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExPrices "maybe'memory" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'memory"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
fieldOf Proxy# "maybe'memory"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> ExPrices -> f ExPrices)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> ExPrices
-> f ExPrices
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExPrices -> Maybe RationalNumber)
-> (ExPrices -> Maybe RationalNumber -> ExPrices)
-> Lens
     ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExPrices -> Maybe RationalNumber
_ExPrices'memory (\ ExPrices
x__ Maybe RationalNumber
y__ -> ExPrices
x__ {_ExPrices'memory = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExPrices where
  messageName :: Proxy ExPrices -> Text
messageName Proxy ExPrices
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.ExPrices"
  packedMessageDescriptor :: Proxy ExPrices -> ByteString
packedMessageDescriptor Proxy ExPrices
_
    = ByteString
"\n\
      \\bExPrices\DC2=\n\
      \\ENQsteps\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ENQsteps\DC2?\n\
      \\ACKmemory\CAN\STX \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmemory"
  packedFileDescriptor :: Proxy ExPrices -> ByteString
packedFileDescriptor Proxy ExPrices
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExPrices)
fieldsByTag
    = let
        steps__field_descriptor :: FieldDescriptor ExPrices
steps__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor ExPrices RationalNumber
-> FieldDescriptor ExPrices
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"steps"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor ExPrices RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'steps")) ::
              Data.ProtoLens.FieldDescriptor ExPrices
        memory__field_descriptor :: FieldDescriptor ExPrices
memory__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor ExPrices RationalNumber
-> FieldDescriptor ExPrices
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"memory"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Lens
  ExPrices ExPrices (Maybe RationalNumber) (Maybe RationalNumber)
-> FieldAccessor ExPrices RationalNumber
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'memory")) ::
              Data.ProtoLens.FieldDescriptor ExPrices
      in
        [(Tag, FieldDescriptor ExPrices)]
-> Map Tag (FieldDescriptor ExPrices)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExPrices
steps__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExPrices
memory__field_descriptor)]
  unknownFields :: Lens' ExPrices FieldSet
unknownFields
    = (ExPrices -> FieldSet)
-> (ExPrices -> FieldSet -> ExPrices) -> Lens' ExPrices FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExPrices -> FieldSet
_ExPrices'_unknownFields
        (\ ExPrices
x__ FieldSet
y__ -> ExPrices
x__ {_ExPrices'_unknownFields = y__})
  defMessage :: ExPrices
defMessage
    = ExPrices'_constructor
        {_ExPrices'steps :: Maybe RationalNumber
_ExPrices'steps = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing,
         _ExPrices'memory :: Maybe RationalNumber
_ExPrices'memory = Maybe RationalNumber
forall a. Maybe a
Prelude.Nothing, _ExPrices'_unknownFields :: FieldSet
_ExPrices'_unknownFields = []}
  parseMessage :: Parser ExPrices
parseMessage
    = let
        loop :: ExPrices -> Data.ProtoLens.Encoding.Bytes.Parser ExPrices
        loop :: ExPrices -> Parser ExPrices
loop ExPrices
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"steps"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x)
                        Word64
18
                          -> do y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"memory"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ExPrices -> String -> Parser ExPrices
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExPrices -> Parser ExPrices
loop ExPrices
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExPrices"
  buildMessage :: ExPrices -> Builder
buildMessage
    = \ ExPrices
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe RationalNumber)
  ExPrices
  ExPrices
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> ExPrices -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'steps") ExPrices
_x
              of
                Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just RationalNumber
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe RationalNumber)
  ExPrices
  ExPrices
  (Maybe RationalNumber)
  (Maybe RationalNumber)
-> ExPrices -> Maybe RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'memory") ExPrices
_x
                 of
                   Maybe RationalNumber
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just RationalNumber
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ExPrices ExPrices FieldSet FieldSet
-> ExPrices -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ExPrices ExPrices FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExPrices FieldSet
Data.ProtoLens.unknownFields ExPrices
_x)))
instance Control.DeepSeq.NFData ExPrices where
  rnf :: ExPrices -> ()
rnf
    = \ ExPrices
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExPrices -> FieldSet
_ExPrices'_unknownFields ExPrices
x__)
             (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExPrices -> Maybe RationalNumber
_ExPrices'steps ExPrices
x__)
                (Maybe RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ExPrices -> Maybe RationalNumber
_ExPrices'memory ExPrices
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.steps' @:: Lens' ExUnits Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.memory' @:: Lens' ExUnits Data.Word.Word64@ -}
data ExUnits
  = ExUnits'_constructor {ExUnits -> Word64
_ExUnits'steps :: !Data.Word.Word64,
                          ExUnits -> Word64
_ExUnits'memory :: !Data.Word.Word64,
                          ExUnits -> FieldSet
_ExUnits'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExUnits -> ExUnits -> Bool
(ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool) -> Eq ExUnits
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExUnits -> ExUnits -> Bool
== :: ExUnits -> ExUnits -> Bool
$c/= :: ExUnits -> ExUnits -> Bool
/= :: ExUnits -> ExUnits -> Bool
Prelude.Eq, Eq ExUnits
Eq ExUnits =>
(ExUnits -> ExUnits -> Ordering)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> Bool)
-> (ExUnits -> ExUnits -> ExUnits)
-> (ExUnits -> ExUnits -> ExUnits)
-> Ord ExUnits
ExUnits -> ExUnits -> Bool
ExUnits -> ExUnits -> Ordering
ExUnits -> ExUnits -> ExUnits
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ExUnits -> ExUnits -> Ordering
compare :: ExUnits -> ExUnits -> Ordering
$c< :: ExUnits -> ExUnits -> Bool
< :: ExUnits -> ExUnits -> Bool
$c<= :: ExUnits -> ExUnits -> Bool
<= :: ExUnits -> ExUnits -> Bool
$c> :: ExUnits -> ExUnits -> Bool
> :: ExUnits -> ExUnits -> Bool
$c>= :: ExUnits -> ExUnits -> Bool
>= :: ExUnits -> ExUnits -> Bool
$cmax :: ExUnits -> ExUnits -> ExUnits
max :: ExUnits -> ExUnits -> ExUnits
$cmin :: ExUnits -> ExUnits -> ExUnits
min :: ExUnits -> ExUnits -> ExUnits
Prelude.Ord)
instance Prelude.Show ExUnits where
  showsPrec :: Int -> ExUnits -> ShowS
showsPrec Int
_ ExUnits
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExUnits -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExUnits
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExUnits "steps" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "steps" -> (Word64 -> f Word64) -> ExUnits -> f ExUnits
fieldOf Proxy# "steps"
_
    = ((Word64 -> f Word64) -> ExUnits -> f ExUnits)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExUnits
-> f ExUnits
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExUnits -> Word64)
-> (ExUnits -> Word64 -> ExUnits)
-> Lens ExUnits ExUnits Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExUnits -> Word64
_ExUnits'steps (\ ExUnits
x__ Word64
y__ -> ExUnits
x__ {_ExUnits'steps = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExUnits "memory" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memory" -> (Word64 -> f Word64) -> ExUnits -> f ExUnits
fieldOf Proxy# "memory"
_
    = ((Word64 -> f Word64) -> ExUnits -> f ExUnits)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ExUnits
-> f ExUnits
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExUnits -> Word64)
-> (ExUnits -> Word64 -> ExUnits)
-> Lens ExUnits ExUnits Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExUnits -> Word64
_ExUnits'memory (\ ExUnits
x__ Word64
y__ -> ExUnits
x__ {_ExUnits'memory = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExUnits where
  messageName :: Proxy ExUnits -> Text
messageName Proxy ExUnits
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.ExUnits"
  packedMessageDescriptor :: Proxy ExUnits -> ByteString
packedMessageDescriptor Proxy ExUnits
_
    = ByteString
"\n\
      \\aExUnits\DC2\DC4\n\
      \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\
      \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory"
  packedFileDescriptor :: Proxy ExUnits -> ByteString
packedFileDescriptor Proxy ExUnits
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExUnits)
fieldsByTag
    = let
        steps__field_descriptor :: FieldDescriptor ExUnits
steps__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExUnits Word64
-> FieldDescriptor ExUnits
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"steps"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens ExUnits ExUnits Word64 Word64
-> FieldAccessor ExUnits Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"steps")) ::
              Data.ProtoLens.FieldDescriptor ExUnits
        memory__field_descriptor :: FieldDescriptor ExUnits
memory__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ExUnits Word64
-> FieldDescriptor ExUnits
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"memory"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens ExUnits ExUnits Word64 Word64
-> FieldAccessor ExUnits Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memory")) ::
              Data.ProtoLens.FieldDescriptor ExUnits
      in
        [(Tag, FieldDescriptor ExUnits)]
-> Map Tag (FieldDescriptor ExUnits)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExUnits
steps__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExUnits
memory__field_descriptor)]
  unknownFields :: Lens' ExUnits FieldSet
unknownFields
    = (ExUnits -> FieldSet)
-> (ExUnits -> FieldSet -> ExUnits) -> Lens' ExUnits FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExUnits -> FieldSet
_ExUnits'_unknownFields
        (\ ExUnits
x__ FieldSet
y__ -> ExUnits
x__ {_ExUnits'_unknownFields = y__})
  defMessage :: ExUnits
defMessage
    = ExUnits'_constructor
        {_ExUnits'steps :: Word64
_ExUnits'steps = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExUnits'memory :: Word64
_ExUnits'memory = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExUnits'_unknownFields :: FieldSet
_ExUnits'_unknownFields = []}
  parseMessage :: Parser ExUnits
parseMessage
    = let
        loop :: ExUnits -> Data.ProtoLens.Encoding.Bytes.Parser ExUnits
        loop :: ExUnits -> Parser ExUnits
loop ExUnits
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"steps"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"memory"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ExUnits -> String -> Parser ExUnits
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExUnits -> Parser ExUnits
loop ExUnits
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExUnits"
  buildMessage :: ExUnits -> Builder
buildMessage
    = \ ExUnits
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v = FoldLike Word64 ExUnits ExUnits Word64 Word64 -> ExUnits -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"steps") ExUnits
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v = FoldLike Word64 ExUnits ExUnits Word64 Word64 -> ExUnits -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memory") ExUnits
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ExUnits ExUnits FieldSet FieldSet
-> ExUnits -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ExUnits ExUnits FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExUnits FieldSet
Data.ProtoLens.unknownFields ExUnits
_x)))
instance Control.DeepSeq.NFData ExUnits where
  rnf :: ExUnits -> ()
rnf
    = \ ExUnits
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExUnits -> FieldSet
_ExUnits'_unknownFields ExUnits
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExUnits -> Word64
_ExUnits'steps ExUnits
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ExUnits -> Word64
_ExUnits'memory ExUnits
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coinsPerUtxoByte' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxTxSize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeCoefficient' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeConstant' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockBodySize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockHeaderSize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeKeyDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRetirementEpochBound' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.desiredNumberOfPools' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolInfluence' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolInfluence' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.monetaryExpansion' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'monetaryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.treasuryExpansion' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'treasuryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minPoolCost' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.protocolVersion' @:: Lens' PParams ProtocolVersion@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'protocolVersion' @:: Lens' PParams (Prelude.Maybe ProtocolVersion)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxValueSize' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateralPercentage' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxCollateralInputs' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.costModels' @:: Lens' PParams CostModels@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'costModels' @:: Lens' PParams (Prelude.Maybe CostModels)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.prices' @:: Lens' PParams ExPrices@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'prices' @:: Lens' PParams (Prelude.Maybe ExPrices)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerTransaction' @:: Lens' PParams ExUnits@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerTransaction' @:: Lens' PParams (Prelude.Maybe ExUnits)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerBlock' @:: Lens' PParams ExUnits@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerBlock' @:: Lens' PParams (Prelude.Maybe ExUnits)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeScriptRefCostPerByte' @:: Lens' PParams RationalNumber@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'minFeeScriptRefCostPerByte' @:: Lens' PParams (Prelude.Maybe RationalNumber)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolVotingThresholds' @:: Lens' PParams VotingThresholds@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolVotingThresholds' @:: Lens' PParams (Prelude.Maybe VotingThresholds)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.drepVotingThresholds' @:: Lens' PParams VotingThresholds@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'drepVotingThresholds' @:: Lens' PParams (Prelude.Maybe VotingThresholds)@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minCommitteeSize' @:: Lens' PParams Data.Word.Word32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.committeeTermLimit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.governanceActionValidityPeriod' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.governanceActionDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.drepDeposit' @:: Lens' PParams Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.drepInactivityPeriod' @:: Lens' PParams Data.Word.Word64@ -}
data PParams
  = PParams'_constructor {PParams -> Word64
_PParams'coinsPerUtxoByte :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxTxSize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'minFeeCoefficient :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'minFeeConstant :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxBlockBodySize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxBlockHeaderSize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'stakeKeyDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'poolDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'poolRetirementEpochBound :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'desiredNumberOfPools :: !Data.Word.Word64,
                          PParams -> Maybe RationalNumber
_PParams'poolInfluence :: !(Prelude.Maybe RationalNumber),
                          PParams -> Maybe RationalNumber
_PParams'monetaryExpansion :: !(Prelude.Maybe RationalNumber),
                          PParams -> Maybe RationalNumber
_PParams'treasuryExpansion :: !(Prelude.Maybe RationalNumber),
                          PParams -> Word64
_PParams'minPoolCost :: !Data.Word.Word64,
                          PParams -> Maybe ProtocolVersion
_PParams'protocolVersion :: !(Prelude.Maybe ProtocolVersion),
                          PParams -> Word64
_PParams'maxValueSize :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'collateralPercentage :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'maxCollateralInputs :: !Data.Word.Word64,
                          PParams -> Maybe CostModels
_PParams'costModels :: !(Prelude.Maybe CostModels),
                          PParams -> Maybe ExPrices
_PParams'prices :: !(Prelude.Maybe ExPrices),
                          PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction :: !(Prelude.Maybe ExUnits),
                          PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock :: !(Prelude.Maybe ExUnits),
                          PParams -> Maybe RationalNumber
_PParams'minFeeScriptRefCostPerByte :: !(Prelude.Maybe RationalNumber),
                          PParams -> Maybe VotingThresholds
_PParams'poolVotingThresholds :: !(Prelude.Maybe VotingThresholds),
                          PParams -> Maybe VotingThresholds
_PParams'drepVotingThresholds :: !(Prelude.Maybe VotingThresholds),
                          PParams -> Word32
_PParams'minCommitteeSize :: !Data.Word.Word32,
                          PParams -> Word64
_PParams'committeeTermLimit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'governanceActionValidityPeriod :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'governanceActionDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'drepDeposit :: !Data.Word.Word64,
                          PParams -> Word64
_PParams'drepInactivityPeriod :: !Data.Word.Word64,
                          PParams -> FieldSet
_PParams'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PParams -> PParams -> Bool
(PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool) -> Eq PParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PParams -> PParams -> Bool
== :: PParams -> PParams -> Bool
$c/= :: PParams -> PParams -> Bool
/= :: PParams -> PParams -> Bool
Prelude.Eq, Eq PParams
Eq PParams =>
(PParams -> PParams -> Ordering)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> Bool)
-> (PParams -> PParams -> PParams)
-> (PParams -> PParams -> PParams)
-> Ord PParams
PParams -> PParams -> Bool
PParams -> PParams -> Ordering
PParams -> PParams -> PParams
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: PParams -> PParams -> Ordering
compare :: PParams -> PParams -> Ordering
$c< :: PParams -> PParams -> Bool
< :: PParams -> PParams -> Bool
$c<= :: PParams -> PParams -> Bool
<= :: PParams -> PParams -> Bool
$c> :: PParams -> PParams -> Bool
> :: PParams -> PParams -> Bool
$c>= :: PParams -> PParams -> Bool
>= :: PParams -> PParams -> Bool
$cmax :: PParams -> PParams -> PParams
max :: PParams -> PParams -> PParams
$cmin :: PParams -> PParams -> PParams
min :: PParams -> PParams -> PParams
Prelude.Ord)
instance Prelude.Show PParams where
  showsPrec :: Int -> PParams -> ShowS
showsPrec Int
_ PParams
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PParams -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PParams
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PParams "coinsPerUtxoByte" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "coinsPerUtxoByte"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "coinsPerUtxoByte"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'coinsPerUtxoByte
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'coinsPerUtxoByte = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxTxSize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxTxSize" -> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxTxSize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxTxSize (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxTxSize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minFeeCoefficient" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minFeeCoefficient"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "minFeeCoefficient"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'minFeeCoefficient
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'minFeeCoefficient = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minFeeConstant" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minFeeConstant"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "minFeeConstant"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'minFeeConstant
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'minFeeConstant = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxBlockBodySize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxBlockBodySize"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxBlockBodySize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxBlockBodySize
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxBlockBodySize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxBlockHeaderSize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxBlockHeaderSize"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxBlockHeaderSize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxBlockHeaderSize
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxBlockHeaderSize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "stakeKeyDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stakeKeyDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "stakeKeyDeposit"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'stakeKeyDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'stakeKeyDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "poolDeposit"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'poolDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'poolDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolRetirementEpochBound" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolRetirementEpochBound"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "poolRetirementEpochBound"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'poolRetirementEpochBound
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'poolRetirementEpochBound = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "desiredNumberOfPools" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "desiredNumberOfPools"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "desiredNumberOfPools"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'desiredNumberOfPools
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'desiredNumberOfPools = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolInfluence" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolInfluence"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "poolInfluence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'poolInfluence
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'poolInfluence = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'poolInfluence" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolInfluence"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'poolInfluence"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'poolInfluence
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'poolInfluence = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "monetaryExpansion" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "monetaryExpansion"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "monetaryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'monetaryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'monetaryExpansion = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'monetaryExpansion" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'monetaryExpansion"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'monetaryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'monetaryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'monetaryExpansion = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "treasuryExpansion" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "treasuryExpansion"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "treasuryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'treasuryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'treasuryExpansion = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'treasuryExpansion" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'treasuryExpansion"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'treasuryExpansion"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'treasuryExpansion
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'treasuryExpansion = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minPoolCost" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minPoolCost"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "minPoolCost"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'minPoolCost
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'minPoolCost = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "protocolVersion" ProtocolVersion where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "protocolVersion"
-> (ProtocolVersion -> f ProtocolVersion) -> PParams -> f PParams
fieldOf Proxy# "protocolVersion"
_
    = ((Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
 -> PParams -> f PParams)
-> ((ProtocolVersion -> f ProtocolVersion)
    -> Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> (ProtocolVersion -> f ProtocolVersion)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ProtocolVersion)
-> (PParams -> Maybe ProtocolVersion -> PParams)
-> Lens
     PParams PParams (Maybe ProtocolVersion) (Maybe ProtocolVersion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ProtocolVersion
_PParams'protocolVersion
           (\ PParams
x__ Maybe ProtocolVersion
y__ -> PParams
x__ {_PParams'protocolVersion = y__}))
        (ProtocolVersion -> Lens' (Maybe ProtocolVersion) ProtocolVersion
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ProtocolVersion
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'protocolVersion" (Prelude.Maybe ProtocolVersion) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'protocolVersion"
-> (Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'protocolVersion"
_
    = ((Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
 -> PParams -> f PParams)
-> ((Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
    -> Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> (Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ProtocolVersion)
-> (PParams -> Maybe ProtocolVersion -> PParams)
-> Lens
     PParams PParams (Maybe ProtocolVersion) (Maybe ProtocolVersion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ProtocolVersion
_PParams'protocolVersion
           (\ PParams
x__ Maybe ProtocolVersion
y__ -> PParams
x__ {_PParams'protocolVersion = y__}))
        (Maybe ProtocolVersion -> f (Maybe ProtocolVersion))
-> Maybe ProtocolVersion -> f (Maybe ProtocolVersion)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxValueSize" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxValueSize"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxValueSize"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxValueSize
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxValueSize = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "collateralPercentage" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "collateralPercentage"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "collateralPercentage"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'collateralPercentage
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'collateralPercentage = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxCollateralInputs" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxCollateralInputs"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "maxCollateralInputs"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'maxCollateralInputs
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'maxCollateralInputs = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "costModels" CostModels where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "costModels"
-> (CostModels -> f CostModels) -> PParams -> f PParams
fieldOf Proxy# "costModels"
_
    = ((Maybe CostModels -> f (Maybe CostModels))
 -> PParams -> f PParams)
-> ((CostModels -> f CostModels)
    -> Maybe CostModels -> f (Maybe CostModels))
-> (CostModels -> f CostModels)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe CostModels)
-> (PParams -> Maybe CostModels -> PParams)
-> Lens PParams PParams (Maybe CostModels) (Maybe CostModels)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe CostModels
_PParams'costModels (\ PParams
x__ Maybe CostModels
y__ -> PParams
x__ {_PParams'costModels = y__}))
        (CostModels -> Lens' (Maybe CostModels) CostModels
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CostModels
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'costModels" (Prelude.Maybe CostModels) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'costModels"
-> (Maybe CostModels -> f (Maybe CostModels))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'costModels"
_
    = ((Maybe CostModels -> f (Maybe CostModels))
 -> PParams -> f PParams)
-> ((Maybe CostModels -> f (Maybe CostModels))
    -> Maybe CostModels -> f (Maybe CostModels))
-> (Maybe CostModels -> f (Maybe CostModels))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe CostModels)
-> (PParams -> Maybe CostModels -> PParams)
-> Lens PParams PParams (Maybe CostModels) (Maybe CostModels)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe CostModels
_PParams'costModels (\ PParams
x__ Maybe CostModels
y__ -> PParams
x__ {_PParams'costModels = y__}))
        (Maybe CostModels -> f (Maybe CostModels))
-> Maybe CostModels -> f (Maybe CostModels)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "prices" ExPrices where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prices" -> (ExPrices -> f ExPrices) -> PParams -> f PParams
fieldOf Proxy# "prices"
_
    = ((Maybe ExPrices -> f (Maybe ExPrices)) -> PParams -> f PParams)
-> ((ExPrices -> f ExPrices)
    -> Maybe ExPrices -> f (Maybe ExPrices))
-> (ExPrices -> f ExPrices)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExPrices)
-> (PParams -> Maybe ExPrices -> PParams)
-> Lens PParams PParams (Maybe ExPrices) (Maybe ExPrices)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExPrices
_PParams'prices (\ PParams
x__ Maybe ExPrices
y__ -> PParams
x__ {_PParams'prices = y__}))
        (ExPrices -> Lens' (Maybe ExPrices) ExPrices
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExPrices
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'prices" (Prelude.Maybe ExPrices) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'prices"
-> (Maybe ExPrices -> f (Maybe ExPrices)) -> PParams -> f PParams
fieldOf Proxy# "maybe'prices"
_
    = ((Maybe ExPrices -> f (Maybe ExPrices)) -> PParams -> f PParams)
-> ((Maybe ExPrices -> f (Maybe ExPrices))
    -> Maybe ExPrices -> f (Maybe ExPrices))
-> (Maybe ExPrices -> f (Maybe ExPrices))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExPrices)
-> (PParams -> Maybe ExPrices -> PParams)
-> Lens PParams PParams (Maybe ExPrices) (Maybe ExPrices)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExPrices
_PParams'prices (\ PParams
x__ Maybe ExPrices
y__ -> PParams
x__ {_PParams'prices = y__}))
        (Maybe ExPrices -> f (Maybe ExPrices))
-> Maybe ExPrices -> f (Maybe ExPrices)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerTransaction" ExUnits where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxExecutionUnitsPerTransaction"
-> (ExUnits -> f ExUnits) -> PParams -> f PParams
fieldOf Proxy# "maxExecutionUnitsPerTransaction"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((ExUnits -> f ExUnits) -> Maybe ExUnits -> f (Maybe ExUnits))
-> (ExUnits -> f ExUnits)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction
           (\ PParams
x__ Maybe ExUnits
y__
              -> PParams
x__ {_PParams'maxExecutionUnitsPerTransaction = y__}))
        (ExUnits -> Lens' (Maybe ExUnits) ExUnits
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExUnits
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerTransaction" (Prelude.Maybe ExUnits) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'maxExecutionUnitsPerTransaction"
-> (Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams
fieldOf Proxy# "maybe'maxExecutionUnitsPerTransaction"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((Maybe ExUnits -> f (Maybe ExUnits))
    -> Maybe ExUnits -> f (Maybe ExUnits))
-> (Maybe ExUnits -> f (Maybe ExUnits))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerTransaction
           (\ PParams
x__ Maybe ExUnits
y__
              -> PParams
x__ {_PParams'maxExecutionUnitsPerTransaction = y__}))
        (Maybe ExUnits -> f (Maybe ExUnits))
-> Maybe ExUnits -> f (Maybe ExUnits)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerBlock" ExUnits where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxExecutionUnitsPerBlock"
-> (ExUnits -> f ExUnits) -> PParams -> f PParams
fieldOf Proxy# "maxExecutionUnitsPerBlock"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((ExUnits -> f ExUnits) -> Maybe ExUnits -> f (Maybe ExUnits))
-> (ExUnits -> f ExUnits)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock
           (\ PParams
x__ Maybe ExUnits
y__ -> PParams
x__ {_PParams'maxExecutionUnitsPerBlock = y__}))
        (ExUnits -> Lens' (Maybe ExUnits) ExUnits
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExUnits
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerBlock" (Prelude.Maybe ExUnits) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'maxExecutionUnitsPerBlock"
-> (Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams
fieldOf Proxy# "maybe'maxExecutionUnitsPerBlock"
_
    = ((Maybe ExUnits -> f (Maybe ExUnits)) -> PParams -> f PParams)
-> ((Maybe ExUnits -> f (Maybe ExUnits))
    -> Maybe ExUnits -> f (Maybe ExUnits))
-> (Maybe ExUnits -> f (Maybe ExUnits))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe ExUnits)
-> (PParams -> Maybe ExUnits -> PParams)
-> Lens PParams PParams (Maybe ExUnits) (Maybe ExUnits)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe ExUnits
_PParams'maxExecutionUnitsPerBlock
           (\ PParams
x__ Maybe ExUnits
y__ -> PParams
x__ {_PParams'maxExecutionUnitsPerBlock = y__}))
        (Maybe ExUnits -> f (Maybe ExUnits))
-> Maybe ExUnits -> f (Maybe ExUnits)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minFeeScriptRefCostPerByte" RationalNumber where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minFeeScriptRefCostPerByte"
-> (RationalNumber -> f RationalNumber) -> PParams -> f PParams
fieldOf Proxy# "minFeeScriptRefCostPerByte"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((RationalNumber -> f RationalNumber)
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (RationalNumber -> f RationalNumber)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'minFeeScriptRefCostPerByte
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'minFeeScriptRefCostPerByte = y__}))
        (RationalNumber -> Lens' (Maybe RationalNumber) RationalNumber
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RationalNumber
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'minFeeScriptRefCostPerByte" (Prelude.Maybe RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'minFeeScriptRefCostPerByte"
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'minFeeScriptRefCostPerByte"
_
    = ((Maybe RationalNumber -> f (Maybe RationalNumber))
 -> PParams -> f PParams)
-> ((Maybe RationalNumber -> f (Maybe RationalNumber))
    -> Maybe RationalNumber -> f (Maybe RationalNumber))
-> (Maybe RationalNumber -> f (Maybe RationalNumber))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe RationalNumber)
-> (PParams -> Maybe RationalNumber -> PParams)
-> Lens
     PParams PParams (Maybe RationalNumber) (Maybe RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe RationalNumber
_PParams'minFeeScriptRefCostPerByte
           (\ PParams
x__ Maybe RationalNumber
y__ -> PParams
x__ {_PParams'minFeeScriptRefCostPerByte = y__}))
        (Maybe RationalNumber -> f (Maybe RationalNumber))
-> Maybe RationalNumber -> f (Maybe RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "poolVotingThresholds" VotingThresholds where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "poolVotingThresholds"
-> (VotingThresholds -> f VotingThresholds) -> PParams -> f PParams
fieldOf Proxy# "poolVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((VotingThresholds -> f VotingThresholds)
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (VotingThresholds -> f VotingThresholds)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'poolVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'poolVotingThresholds = y__}))
        (VotingThresholds -> Lens' (Maybe VotingThresholds) VotingThresholds
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VotingThresholds
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'poolVotingThresholds" (Prelude.Maybe VotingThresholds) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'poolVotingThresholds"
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'poolVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'poolVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'poolVotingThresholds = y__}))
        (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> Maybe VotingThresholds -> f (Maybe VotingThresholds)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "drepVotingThresholds" VotingThresholds where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "drepVotingThresholds"
-> (VotingThresholds -> f VotingThresholds) -> PParams -> f PParams
fieldOf Proxy# "drepVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((VotingThresholds -> f VotingThresholds)
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (VotingThresholds -> f VotingThresholds)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'drepVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'drepVotingThresholds = y__}))
        (VotingThresholds -> Lens' (Maybe VotingThresholds) VotingThresholds
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VotingThresholds
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PParams "maybe'drepVotingThresholds" (Prelude.Maybe VotingThresholds) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'drepVotingThresholds"
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
fieldOf Proxy# "maybe'drepVotingThresholds"
_
    = ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
 -> PParams -> f PParams)
-> ((Maybe VotingThresholds -> f (Maybe VotingThresholds))
    -> Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Maybe VotingThresholds)
-> (PParams -> Maybe VotingThresholds -> PParams)
-> Lens
     PParams PParams (Maybe VotingThresholds) (Maybe VotingThresholds)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Maybe VotingThresholds
_PParams'drepVotingThresholds
           (\ PParams
x__ Maybe VotingThresholds
y__ -> PParams
x__ {_PParams'drepVotingThresholds = y__}))
        (Maybe VotingThresholds -> f (Maybe VotingThresholds))
-> Maybe VotingThresholds -> f (Maybe VotingThresholds)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "minCommitteeSize" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minCommitteeSize"
-> (Word32 -> f Word32) -> PParams -> f PParams
fieldOf Proxy# "minCommitteeSize"
_
    = ((Word32 -> f Word32) -> PParams -> f PParams)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word32)
-> (PParams -> Word32 -> PParams)
-> Lens PParams PParams Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word32
_PParams'minCommitteeSize
           (\ PParams
x__ Word32
y__ -> PParams
x__ {_PParams'minCommitteeSize = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "committeeTermLimit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "committeeTermLimit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "committeeTermLimit"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'committeeTermLimit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'committeeTermLimit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "governanceActionValidityPeriod" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "governanceActionValidityPeriod"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "governanceActionValidityPeriod"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'governanceActionValidityPeriod
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'governanceActionValidityPeriod = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "governanceActionDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "governanceActionDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "governanceActionDeposit"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'governanceActionDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'governanceActionDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "drepDeposit" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "drepDeposit"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "drepDeposit"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'drepDeposit
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'drepDeposit = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PParams "drepInactivityPeriod" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "drepInactivityPeriod"
-> (Word64 -> f Word64) -> PParams -> f PParams
fieldOf Proxy# "drepInactivityPeriod"
_
    = ((Word64 -> f Word64) -> PParams -> f PParams)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> PParams
-> f PParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PParams -> Word64)
-> (PParams -> Word64 -> PParams)
-> Lens PParams PParams Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PParams -> Word64
_PParams'drepInactivityPeriod
           (\ PParams
x__ Word64
y__ -> PParams
x__ {_PParams'drepInactivityPeriod = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PParams where
  messageName :: Proxy PParams -> Text
messageName Proxy PParams
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.PParams"
  packedMessageDescriptor :: Proxy PParams -> ByteString
packedMessageDescriptor Proxy PParams
_
    = ByteString
"\n\
      \\aPParams\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__)
                                                                                                          ())))))))))))))))))))))))))))))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.major' @:: Lens' ProtocolVersion Data.Word.Word32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minor' @:: Lens' ProtocolVersion Data.Word.Word32@ -}
data ProtocolVersion
  = ProtocolVersion'_constructor {ProtocolVersion -> Word32
_ProtocolVersion'major :: !Data.Word.Word32,
                                  ProtocolVersion -> Word32
_ProtocolVersion'minor :: !Data.Word.Word32,
                                  ProtocolVersion -> FieldSet
_ProtocolVersion'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ProtocolVersion -> ProtocolVersion -> Bool
(ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> Eq ProtocolVersion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProtocolVersion -> ProtocolVersion -> Bool
== :: ProtocolVersion -> ProtocolVersion -> Bool
$c/= :: ProtocolVersion -> ProtocolVersion -> Bool
/= :: ProtocolVersion -> ProtocolVersion -> Bool
Prelude.Eq, Eq ProtocolVersion
Eq ProtocolVersion =>
(ProtocolVersion -> ProtocolVersion -> Ordering)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> Bool)
-> (ProtocolVersion -> ProtocolVersion -> ProtocolVersion)
-> (ProtocolVersion -> ProtocolVersion -> ProtocolVersion)
-> Ord ProtocolVersion
ProtocolVersion -> ProtocolVersion -> Bool
ProtocolVersion -> ProtocolVersion -> Ordering
ProtocolVersion -> ProtocolVersion -> ProtocolVersion
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ProtocolVersion -> ProtocolVersion -> Ordering
compare :: ProtocolVersion -> ProtocolVersion -> Ordering
$c< :: ProtocolVersion -> ProtocolVersion -> Bool
< :: ProtocolVersion -> ProtocolVersion -> Bool
$c<= :: ProtocolVersion -> ProtocolVersion -> Bool
<= :: ProtocolVersion -> ProtocolVersion -> Bool
$c> :: ProtocolVersion -> ProtocolVersion -> Bool
> :: ProtocolVersion -> ProtocolVersion -> Bool
$c>= :: ProtocolVersion -> ProtocolVersion -> Bool
>= :: ProtocolVersion -> ProtocolVersion -> Bool
$cmax :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
max :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
$cmin :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
min :: ProtocolVersion -> ProtocolVersion -> ProtocolVersion
Prelude.Ord)
instance Prelude.Show ProtocolVersion where
  showsPrec :: Int -> ProtocolVersion -> ShowS
showsPrec Int
_ ProtocolVersion
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ProtocolVersion -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ProtocolVersion
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ProtocolVersion "major" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "major"
-> (Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion
fieldOf Proxy# "major"
_
    = ((Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> ProtocolVersion
-> f ProtocolVersion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ProtocolVersion -> Word32)
-> (ProtocolVersion -> Word32 -> ProtocolVersion)
-> Lens ProtocolVersion ProtocolVersion Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ProtocolVersion -> Word32
_ProtocolVersion'major
           (\ ProtocolVersion
x__ Word32
y__ -> ProtocolVersion
x__ {_ProtocolVersion'major = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ProtocolVersion "minor" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minor"
-> (Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion
fieldOf Proxy# "minor"
_
    = ((Word32 -> f Word32) -> ProtocolVersion -> f ProtocolVersion)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> ProtocolVersion
-> f ProtocolVersion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ProtocolVersion -> Word32)
-> (ProtocolVersion -> Word32 -> ProtocolVersion)
-> Lens ProtocolVersion ProtocolVersion Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ProtocolVersion -> Word32
_ProtocolVersion'minor
           (\ ProtocolVersion
x__ Word32
y__ -> ProtocolVersion
x__ {_ProtocolVersion'minor = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ProtocolVersion where
  messageName :: Proxy ProtocolVersion -> Text
messageName Proxy ProtocolVersion
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.ProtocolVersion"
  packedMessageDescriptor :: Proxy ProtocolVersion -> ByteString
packedMessageDescriptor Proxy ProtocolVersion
_
    = ByteString
"\n\
      \\SIProtocolVersion\DC2\DC4\n\
      \\ENQmajor\CAN\SOH \SOH(\rR\ENQmajor\DC2\DC4\n\
      \\ENQminor\CAN\STX \SOH(\rR\ENQminor"
  packedFileDescriptor :: Proxy ProtocolVersion -> ByteString
packedFileDescriptor Proxy ProtocolVersion
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ProtocolVersion)
fieldsByTag
    = let
        major__field_descriptor :: FieldDescriptor ProtocolVersion
major__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor ProtocolVersion Word32
-> FieldDescriptor ProtocolVersion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"major"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens ProtocolVersion ProtocolVersion Word32 Word32
-> FieldAccessor ProtocolVersion Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"major")) ::
              Data.ProtoLens.FieldDescriptor ProtocolVersion
        minor__field_descriptor :: FieldDescriptor ProtocolVersion
minor__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor ProtocolVersion Word32
-> FieldDescriptor ProtocolVersion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"minor"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens ProtocolVersion ProtocolVersion Word32 Word32
-> FieldAccessor ProtocolVersion Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"minor")) ::
              Data.ProtoLens.FieldDescriptor ProtocolVersion
      in
        [(Tag, FieldDescriptor ProtocolVersion)]
-> Map Tag (FieldDescriptor ProtocolVersion)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ProtocolVersion
major__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ProtocolVersion
minor__field_descriptor)]
  unknownFields :: Lens' ProtocolVersion FieldSet
unknownFields
    = (ProtocolVersion -> FieldSet)
-> (ProtocolVersion -> FieldSet -> ProtocolVersion)
-> Lens' ProtocolVersion FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ProtocolVersion -> FieldSet
_ProtocolVersion'_unknownFields
        (\ ProtocolVersion
x__ FieldSet
y__ -> ProtocolVersion
x__ {_ProtocolVersion'_unknownFields = y__})
  defMessage :: ProtocolVersion
defMessage
    = ProtocolVersion'_constructor
        {_ProtocolVersion'major :: Word32
_ProtocolVersion'major = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ProtocolVersion'minor :: Word32
_ProtocolVersion'minor = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ProtocolVersion'_unknownFields :: FieldSet
_ProtocolVersion'_unknownFields = []}
  parseMessage :: Parser ProtocolVersion
parseMessage
    = let
        loop ::
          ProtocolVersion
          -> Data.ProtoLens.Encoding.Bytes.Parser ProtocolVersion
        loop :: ProtocolVersion -> Parser ProtocolVersion
loop ProtocolVersion
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"major"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"major") y x)
                        Word64
16
                          -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"minor"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minor") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ProtocolVersion -> String -> Parser ProtocolVersion
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ProtocolVersion -> Parser ProtocolVersion
loop ProtocolVersion
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ProtocolVersion"
  buildMessage :: ProtocolVersion -> Builder
buildMessage
    = \ ProtocolVersion
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word32
_v = FoldLike Word32 ProtocolVersion ProtocolVersion Word32 Word32
-> ProtocolVersion -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"major") ProtocolVersion
_x
              in
                if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word32
_v = FoldLike Word32 ProtocolVersion ProtocolVersion Word32 Word32
-> ProtocolVersion -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"minor") ProtocolVersion
_x
                 in
                   if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ProtocolVersion ProtocolVersion FieldSet FieldSet
-> ProtocolVersion -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ProtocolVersion ProtocolVersion FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ProtocolVersion FieldSet
Data.ProtoLens.unknownFields ProtocolVersion
_x)))
instance Control.DeepSeq.NFData ProtocolVersion where
  rnf :: ProtocolVersion -> ()
rnf
    = \ ProtocolVersion
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ProtocolVersion -> FieldSet
_ProtocolVersion'_unknownFields ProtocolVersion
x__)
             (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ProtocolVersion -> Word32
_ProtocolVersion'major ProtocolVersion
x__)
                (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ProtocolVersion -> Word32
_ProtocolVersion'minor ProtocolVersion
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.numerator' @:: Lens' RationalNumber Data.Int.Int32@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.denominator' @:: Lens' RationalNumber Data.Word.Word32@ -}
data RationalNumber
  = RationalNumber'_constructor {RationalNumber -> Int32
_RationalNumber'numerator :: !Data.Int.Int32,
                                 RationalNumber -> Word32
_RationalNumber'denominator :: !Data.Word.Word32,
                                 RationalNumber -> FieldSet
_RationalNumber'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RationalNumber -> RationalNumber -> Bool
(RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool) -> Eq RationalNumber
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RationalNumber -> RationalNumber -> Bool
== :: RationalNumber -> RationalNumber -> Bool
$c/= :: RationalNumber -> RationalNumber -> Bool
/= :: RationalNumber -> RationalNumber -> Bool
Prelude.Eq, Eq RationalNumber
Eq RationalNumber =>
(RationalNumber -> RationalNumber -> Ordering)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> Bool)
-> (RationalNumber -> RationalNumber -> RationalNumber)
-> (RationalNumber -> RationalNumber -> RationalNumber)
-> Ord RationalNumber
RationalNumber -> RationalNumber -> Bool
RationalNumber -> RationalNumber -> Ordering
RationalNumber -> RationalNumber -> RationalNumber
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: RationalNumber -> RationalNumber -> Ordering
compare :: RationalNumber -> RationalNumber -> Ordering
$c< :: RationalNumber -> RationalNumber -> Bool
< :: RationalNumber -> RationalNumber -> Bool
$c<= :: RationalNumber -> RationalNumber -> Bool
<= :: RationalNumber -> RationalNumber -> Bool
$c> :: RationalNumber -> RationalNumber -> Bool
> :: RationalNumber -> RationalNumber -> Bool
$c>= :: RationalNumber -> RationalNumber -> Bool
>= :: RationalNumber -> RationalNumber -> Bool
$cmax :: RationalNumber -> RationalNumber -> RationalNumber
max :: RationalNumber -> RationalNumber -> RationalNumber
$cmin :: RationalNumber -> RationalNumber -> RationalNumber
min :: RationalNumber -> RationalNumber -> RationalNumber
Prelude.Ord)
instance Prelude.Show RationalNumber where
  showsPrec :: Int -> RationalNumber -> ShowS
showsPrec Int
_ RationalNumber
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RationalNumber -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RationalNumber
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RationalNumber "numerator" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "numerator"
-> (Int32 -> f Int32) -> RationalNumber -> f RationalNumber
fieldOf Proxy# "numerator"
_
    = ((Int32 -> f Int32) -> RationalNumber -> f RationalNumber)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> RationalNumber
-> f RationalNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RationalNumber -> Int32)
-> (RationalNumber -> Int32 -> RationalNumber)
-> Lens RationalNumber RationalNumber Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RationalNumber -> Int32
_RationalNumber'numerator
           (\ RationalNumber
x__ Int32
y__ -> RationalNumber
x__ {_RationalNumber'numerator = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RationalNumber "denominator" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "denominator"
-> (Word32 -> f Word32) -> RationalNumber -> f RationalNumber
fieldOf Proxy# "denominator"
_
    = ((Word32 -> f Word32) -> RationalNumber -> f RationalNumber)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> RationalNumber
-> f RationalNumber
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RationalNumber -> Word32)
-> (RationalNumber -> Word32 -> RationalNumber)
-> Lens RationalNumber RationalNumber Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RationalNumber -> Word32
_RationalNumber'denominator
           (\ RationalNumber
x__ Word32
y__ -> RationalNumber
x__ {_RationalNumber'denominator = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RationalNumber where
  messageName :: Proxy RationalNumber -> Text
messageName Proxy RationalNumber
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.RationalNumber"
  packedMessageDescriptor :: Proxy RationalNumber -> ByteString
packedMessageDescriptor Proxy RationalNumber
_
    = ByteString
"\n\
      \\SORationalNumber\DC2\FS\n\
      \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\
      \\vdenominator\CAN\STX \SOH(\rR\vdenominator"
  packedFileDescriptor :: Proxy RationalNumber -> ByteString
packedFileDescriptor Proxy RationalNumber
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RationalNumber)
fieldsByTag
    = let
        numerator__field_descriptor :: FieldDescriptor RationalNumber
numerator__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor RationalNumber Int32
-> FieldDescriptor RationalNumber
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"numerator"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (WireDefault Int32
-> Lens RationalNumber RationalNumber Int32 Int32
-> FieldAccessor RationalNumber Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numerator")) ::
              Data.ProtoLens.FieldDescriptor RationalNumber
        denominator__field_descriptor :: FieldDescriptor RationalNumber
denominator__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor RationalNumber Word32
-> FieldDescriptor RationalNumber
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"denominator"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens RationalNumber RationalNumber Word32 Word32
-> FieldAccessor RationalNumber Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"denominator")) ::
              Data.ProtoLens.FieldDescriptor RationalNumber
      in
        [(Tag, FieldDescriptor RationalNumber)]
-> Map Tag (FieldDescriptor RationalNumber)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RationalNumber
numerator__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RationalNumber
denominator__field_descriptor)]
  unknownFields :: Lens' RationalNumber FieldSet
unknownFields
    = (RationalNumber -> FieldSet)
-> (RationalNumber -> FieldSet -> RationalNumber)
-> Lens' RationalNumber FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RationalNumber -> FieldSet
_RationalNumber'_unknownFields
        (\ RationalNumber
x__ FieldSet
y__ -> RationalNumber
x__ {_RationalNumber'_unknownFields = y__})
  defMessage :: RationalNumber
defMessage
    = RationalNumber'_constructor
        {_RationalNumber'numerator :: Int32
_RationalNumber'numerator = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RationalNumber'denominator :: Word32
_RationalNumber'denominator = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RationalNumber'_unknownFields :: FieldSet
_RationalNumber'_unknownFields = []}
  parseMessage :: Parser RationalNumber
parseMessage
    = let
        loop ::
          RationalNumber
          -> Data.ProtoLens.Encoding.Bytes.Parser RationalNumber
        loop :: RationalNumber -> Parser RationalNumber
loop RationalNumber
x
          = do 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 Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"numerator"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"numerator") 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
"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 :: Int32
_v = FoldLike Int32 RationalNumber RationalNumber Int32 Int32
-> RationalNumber -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numerator") RationalNumber
_x
              in
                if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
                      ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word32
_v
                     = FoldLike Word32 RationalNumber RationalNumber Word32 Word32
-> RationalNumber -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"denominator") RationalNumber
_x
                 in
                   if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet RationalNumber RationalNumber FieldSet FieldSet
-> RationalNumber -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RationalNumber RationalNumber FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RationalNumber FieldSet
Data.ProtoLens.unknownFields RationalNumber
_x)))
instance Control.DeepSeq.NFData RationalNumber where
  rnf :: RationalNumber -> ()
rnf
    = \ RationalNumber
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RationalNumber -> FieldSet
_RationalNumber'_unknownFields RationalNumber
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RationalNumber -> Int32
_RationalNumber'numerator RationalNumber
x__)
                (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RationalNumber -> Word32
_RationalNumber'denominator RationalNumber
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.thresholds' @:: Lens' VotingThresholds [RationalNumber]@
         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'thresholds' @:: Lens' VotingThresholds (Data.Vector.Vector RationalNumber)@ -}
data VotingThresholds
  = VotingThresholds'_constructor {VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds :: !(Data.Vector.Vector RationalNumber),
                                   VotingThresholds -> FieldSet
_VotingThresholds'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (VotingThresholds -> VotingThresholds -> Bool
(VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> Eq VotingThresholds
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VotingThresholds -> VotingThresholds -> Bool
== :: VotingThresholds -> VotingThresholds -> Bool
$c/= :: VotingThresholds -> VotingThresholds -> Bool
/= :: VotingThresholds -> VotingThresholds -> Bool
Prelude.Eq, Eq VotingThresholds
Eq VotingThresholds =>
(VotingThresholds -> VotingThresholds -> Ordering)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> Bool)
-> (VotingThresholds -> VotingThresholds -> VotingThresholds)
-> (VotingThresholds -> VotingThresholds -> VotingThresholds)
-> Ord VotingThresholds
VotingThresholds -> VotingThresholds -> Bool
VotingThresholds -> VotingThresholds -> Ordering
VotingThresholds -> VotingThresholds -> VotingThresholds
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: VotingThresholds -> VotingThresholds -> Ordering
compare :: VotingThresholds -> VotingThresholds -> Ordering
$c< :: VotingThresholds -> VotingThresholds -> Bool
< :: VotingThresholds -> VotingThresholds -> Bool
$c<= :: VotingThresholds -> VotingThresholds -> Bool
<= :: VotingThresholds -> VotingThresholds -> Bool
$c> :: VotingThresholds -> VotingThresholds -> Bool
> :: VotingThresholds -> VotingThresholds -> Bool
$c>= :: VotingThresholds -> VotingThresholds -> Bool
>= :: VotingThresholds -> VotingThresholds -> Bool
$cmax :: VotingThresholds -> VotingThresholds -> VotingThresholds
max :: VotingThresholds -> VotingThresholds -> VotingThresholds
$cmin :: VotingThresholds -> VotingThresholds -> VotingThresholds
min :: VotingThresholds -> VotingThresholds -> VotingThresholds
Prelude.Ord)
instance Prelude.Show VotingThresholds where
  showsPrec :: Int -> VotingThresholds -> ShowS
showsPrec Int
_ VotingThresholds
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (VotingThresholds -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort VotingThresholds
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField VotingThresholds "thresholds" [RationalNumber] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "thresholds"
-> ([RationalNumber] -> f [RationalNumber])
-> VotingThresholds
-> f VotingThresholds
fieldOf Proxy# "thresholds"
_
    = ((Vector RationalNumber -> f (Vector RationalNumber))
 -> VotingThresholds -> f VotingThresholds)
-> (([RationalNumber] -> f [RationalNumber])
    -> Vector RationalNumber -> f (Vector RationalNumber))
-> ([RationalNumber] -> f [RationalNumber])
-> VotingThresholds
-> f VotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((VotingThresholds -> Vector RationalNumber)
-> (VotingThresholds -> Vector RationalNumber -> VotingThresholds)
-> Lens
     VotingThresholds
     VotingThresholds
     (Vector RationalNumber)
     (Vector RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds
           (\ VotingThresholds
x__ Vector RationalNumber
y__ -> VotingThresholds
x__ {_VotingThresholds'thresholds = y__}))
        ((Vector RationalNumber -> [RationalNumber])
-> (Vector RationalNumber
    -> [RationalNumber] -> Vector RationalNumber)
-> Lens
     (Vector RationalNumber)
     (Vector RationalNumber)
     [RationalNumber]
     [RationalNumber]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector RationalNumber -> [RationalNumber]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector RationalNumber
_ [RationalNumber]
y__ -> [RationalNumber] -> Vector RationalNumber
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [RationalNumber]
y__))
instance Data.ProtoLens.Field.HasField VotingThresholds "vec'thresholds" (Data.Vector.Vector RationalNumber) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'thresholds"
-> (Vector RationalNumber -> f (Vector RationalNumber))
-> VotingThresholds
-> f VotingThresholds
fieldOf Proxy# "vec'thresholds"
_
    = ((Vector RationalNumber -> f (Vector RationalNumber))
 -> VotingThresholds -> f VotingThresholds)
-> ((Vector RationalNumber -> f (Vector RationalNumber))
    -> Vector RationalNumber -> f (Vector RationalNumber))
-> (Vector RationalNumber -> f (Vector RationalNumber))
-> VotingThresholds
-> f VotingThresholds
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((VotingThresholds -> Vector RationalNumber)
-> (VotingThresholds -> Vector RationalNumber -> VotingThresholds)
-> Lens
     VotingThresholds
     VotingThresholds
     (Vector RationalNumber)
     (Vector RationalNumber)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds
           (\ VotingThresholds
x__ Vector RationalNumber
y__ -> VotingThresholds
x__ {_VotingThresholds'thresholds = y__}))
        (Vector RationalNumber -> f (Vector RationalNumber))
-> Vector RationalNumber -> f (Vector RationalNumber)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message VotingThresholds where
  messageName :: Proxy VotingThresholds -> Text
messageName Proxy VotingThresholds
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.cardano.VotingThresholds"
  packedMessageDescriptor :: Proxy VotingThresholds -> ByteString
packedMessageDescriptor Proxy VotingThresholds
_
    = ByteString
"\n\
      \\DLEVotingThresholds\DC2G\n\
      \\n\
      \thresholds\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\n\
      \thresholds"
  packedFileDescriptor :: Proxy VotingThresholds -> ByteString
packedFileDescriptor Proxy VotingThresholds
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor VotingThresholds)
fieldsByTag
    = let
        thresholds__field_descriptor :: FieldDescriptor VotingThresholds
thresholds__field_descriptor
          = String
-> FieldTypeDescriptor RationalNumber
-> FieldAccessor VotingThresholds RationalNumber
-> FieldDescriptor VotingThresholds
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"thresholds"
              (MessageOrGroup -> FieldTypeDescriptor RationalNumber
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)
              (Packing
-> Lens' VotingThresholds [RationalNumber]
-> FieldAccessor VotingThresholds RationalNumber
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"thresholds")) ::
              Data.ProtoLens.FieldDescriptor VotingThresholds
      in
        [(Tag, FieldDescriptor VotingThresholds)]
-> Map Tag (FieldDescriptor VotingThresholds)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor VotingThresholds
thresholds__field_descriptor)]
  unknownFields :: Lens' VotingThresholds FieldSet
unknownFields
    = (VotingThresholds -> FieldSet)
-> (VotingThresholds -> FieldSet -> VotingThresholds)
-> Lens' VotingThresholds FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        VotingThresholds -> FieldSet
_VotingThresholds'_unknownFields
        (\ VotingThresholds
x__ FieldSet
y__ -> VotingThresholds
x__ {_VotingThresholds'_unknownFields = y__})
  defMessage :: VotingThresholds
defMessage
    = VotingThresholds'_constructor
        {_VotingThresholds'thresholds :: Vector RationalNumber
_VotingThresholds'thresholds = Vector RationalNumber
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _VotingThresholds'_unknownFields :: FieldSet
_VotingThresholds'_unknownFields = []}
  parseMessage :: Parser VotingThresholds
parseMessage
    = let
        loop ::
          VotingThresholds
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RationalNumber
             -> Data.ProtoLens.Encoding.Bytes.Parser VotingThresholds
        loop :: VotingThresholds
-> Growing Vector RealWorld RationalNumber
-> Parser VotingThresholds
loop VotingThresholds
x Growing Vector RealWorld RationalNumber
mutable'thresholds
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'thresholds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                mutable'thresholds)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'thresholds") frozen'thresholds
                              x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser RationalNumber -> String -> Parser RationalNumber
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"thresholds"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'thresholds y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'thresholds
      in
        Parser VotingThresholds -> String -> Parser VotingThresholds
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'thresholds <- IO (Growing Vector RealWorld RationalNumber)
-> Parser (Growing Vector RealWorld RationalNumber)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld RationalNumber)
IO (Growing Vector (PrimState IO) RationalNumber)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'thresholds)
          String
"VotingThresholds"
  buildMessage :: VotingThresholds -> Builder
buildMessage
    = \ VotingThresholds
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((RationalNumber -> Builder) -> Vector RationalNumber -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ RationalNumber
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (RationalNumber -> ByteString) -> RationalNumber -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           RationalNumber -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RationalNumber
_v))
                (FoldLike
  (Vector RationalNumber)
  VotingThresholds
  VotingThresholds
  (Vector RationalNumber)
  (Vector RationalNumber)
-> VotingThresholds -> Vector RationalNumber
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'thresholds") VotingThresholds
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet VotingThresholds VotingThresholds FieldSet FieldSet
-> VotingThresholds -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet VotingThresholds VotingThresholds FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' VotingThresholds FieldSet
Data.ProtoLens.unknownFields VotingThresholds
_x))
instance Control.DeepSeq.NFData VotingThresholds where
  rnf :: VotingThresholds -> ()
rnf
    = \ VotingThresholds
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (VotingThresholds -> FieldSet
_VotingThresholds'_unknownFields VotingThresholds
x__)
             (Vector RationalNumber -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (VotingThresholds -> Vector RationalNumber
_VotingThresholds'thresholds VotingThresholds
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \%utxorpc/v1alpha/cardano/cardano.proto\DC2\ETButxorpc.v1alpha.cardano\"P\n\
    \\SORationalNumber\DC2\FS\n\
    \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\
    \\vdenominator\CAN\STX \SOH(\rR\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\186\GS\n\
    \\ACK\DC2\EOT\NUL\NULJ\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL \n\
    \9\n\
    \\STX\EOT\NUL\DC2\EOT\ENQ\NUL\b\SOH\SUB- Represents a rational number as a fraction.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\ENQ\b\SYN\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\ACK\STX\SYN\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\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ACK\DC4\NAK\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\a\STX\EM\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\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\a\ETB\CAN\n\
    \\FS\n\
    \\STX\EOT\SOH\DC2\EOT\r\NUL\DLE\SOH2\DLE PARAMS\n\
    \ ======\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\r\b\SI\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\SO\STX\DC3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SO\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SO\t\SO\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SO\DC1\DC2\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\SI\STX\DC4\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\SI\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\SI\t\SI\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\SI\DC2\DC3\n\
    \\n\
    \\n\
    \\STX\EOT\STX\DC2\EOT\DC2\NUL\NAK\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\DC2\b\DLE\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX\DC3\STX\ESC\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\DC3\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC3\DC1\SYN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC3\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX\DC4\STX\FS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX\DC4\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\DC4\DC1\ETB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\DC4\SUB\ESC\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOT\ETB\NUL\SUB\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX\ETB\b\ETB\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX\CAN\STX\DC3\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\CAN\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\CAN\t\SO\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\CAN\DC1\DC2\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\ETX\EM\STX\DC3\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX\EM\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX\EM\t\SO\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX\EM\DC1\DC2\n\
    \\n\
    \\n\
    \\STX\EOT\EOT\DC2\EOT\FS\NUL\RS\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETX\FS\b\DC1\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETX\GS\STX\FS\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\EOT\DC2\ETX\GS\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX\GS\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX\GS\DC1\ETB\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX\GS\SUB\ESC\n\
    \\n\
    \\n\
    \\STX\EOT\ENQ\DC2\EOT \NUL$\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX \b\DC2\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX!\STX\SUB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX!\STX\v\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX!\f\NAK\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX!\CAN\EM\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETX\"\STX\SUB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX\"\STX\v\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX\"\f\NAK\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX\"\CAN\EM\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\STX\DC2\ETX#\STX\SUB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETX#\STX\v\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX#\f\NAK\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX#\CAN\EM\n\
    \\n\
    \\n\
    \\STX\EOT\ACK\DC2\EOT&\NUL(\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETX&\b\CAN\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETX'\STX)\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX'\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX'\v\EM\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX'\SUB$\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX''(\n\
    \\n\
    \\n\
    \\STX\EOT\a\DC2\EOT*\NULJ\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETX*\b\SI\n\
    \1\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETX+\STX!\"$ The number of coins per UTXO byte.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETX+\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX+\t\FS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX+\US \n\
    \,\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETX,\STX\EM\"\US The maximum transaction size.\n\
    \\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\DC4\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX,\ETB\CAN\n\
    \+\n\
    \\EOT\EOT\a\STX\STX\DC2\ETX-\STX!\"\RS The minimum fee coefficient.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ENQ\DC2\ETX-\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\SOH\DC2\ETX-\t\FS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\STX\ETX\DC2\ETX-\US \n\
    \(\n\
    \\EOT\EOT\a\STX\ETX\DC2\ETX.\STX\RS\"\ESC The minimum fee constant.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETX\ENQ\DC2\ETX.\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETX\SOH\DC2\ETX.\t\EM\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETX\ETX\DC2\ETX.\FS\GS\n\
    \+\n\
    \\EOT\EOT\a\STX\EOT\DC2\ETX/\STX!\"\RS The maximum block body size.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EOT\ENQ\DC2\ETX/\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EOT\SOH\DC2\ETX/\t\FS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EOT\ETX\DC2\ETX/\US \n\
    \-\n\
    \\EOT\EOT\a\STX\ENQ\DC2\ETX0\STX#\"  The maximum block header size.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ENQ\ENQ\DC2\ETX0\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ENQ\SOH\DC2\ETX0\t\RS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ENQ\ETX\DC2\ETX0!\"\n\
    \%\n\
    \\EOT\EOT\a\STX\ACK\DC2\ETX1\STX\US\"\CAN The stake key deposit.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ACK\ENQ\DC2\ETX1\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ACK\SOH\DC2\ETX1\t\SUB\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ACK\ETX\DC2\ETX1\GS\RS\n\
    \ \n\
    \\EOT\EOT\a\STX\a\DC2\ETX2\STX\SUB\"\DC3 The pool deposit.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\a\ENQ\DC2\ETX2\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\a\SOH\DC2\ETX2\t\NAK\n\
    \\f\n\
    \\ENQ\EOT\a\STX\a\ETX\DC2\ETX2\CAN\EM\n\
    \/\n\
    \\EOT\EOT\a\STX\b\DC2\ETX3\STX)\"\" The pool retirement epoch bound.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\b\ENQ\DC2\ETX3\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\b\SOH\DC2\ETX3\t$\n\
    \\f\n\
    \\ENQ\EOT\a\STX\b\ETX\DC2\ETX3'(\n\
    \+\n\
    \\EOT\EOT\a\STX\t\DC2\ETX4\STX&\"\RS The desired number of pools.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\t\ENQ\DC2\ETX4\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\t\SOH\DC2\ETX4\t \n\
    \\f\n\
    \\ENQ\EOT\a\STX\t\ETX\DC2\ETX4#%\n\
    \\"\n\
    \\EOT\EOT\a\STX\n\
    \\DC2\ETX5\STX%\"\NAK The pool influence.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\n\
    \\ACK\DC2\ETX5\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\a\STX\n\
    \\SOH\DC2\ETX5\DC1\US\n\
    \\f\n\
    \\ENQ\EOT\a\STX\n\
    \\ETX\DC2\ETX5\"$\n\
    \&\n\
    \\EOT\EOT\a\STX\v\DC2\ETX6\STX)\"\EM The monetary expansion.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\v\ACK\DC2\ETX6\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\a\STX\v\SOH\DC2\ETX6\DC1#\n\
    \\f\n\
    \\ENQ\EOT\a\STX\v\ETX\DC2\ETX6&(\n\
    \&\n\
    \\EOT\EOT\a\STX\f\DC2\ETX7\STX)\"\EM The treasury expansion.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\f\ACK\DC2\ETX7\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\a\STX\f\SOH\DC2\ETX7\DC1#\n\
    \\f\n\
    \\ENQ\EOT\a\STX\f\ETX\DC2\ETX7&(\n\
    \%\n\
    \\EOT\EOT\a\STX\r\DC2\ETX8\STX\FS\"\CAN The minimum pool cost.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\r\ENQ\DC2\ETX8\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\r\SOH\DC2\ETX8\t\SYN\n\
    \\f\n\
    \\ENQ\EOT\a\STX\r\ETX\DC2\ETX8\EM\ESC\n\
    \3\n\
    \\EOT\EOT\a\STX\SO\DC2\ETX9\STX(\"& The maximum value size in an output.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SO\ACK\DC2\ETX9\STX\DC1\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SO\SOH\DC2\ETX9\DC2\"\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SO\ETX\DC2\ETX9%'\n\
    \&\n\
    \\EOT\EOT\a\STX\SI\DC2\ETX:\STX\GS\"\EM The maximum value size.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SI\ENQ\DC2\ETX:\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SI\SOH\DC2\ETX:\t\ETB\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SI\ETX\DC2\ETX:\SUB\FS\n\
    \n\n\
    \\EOT\EOT\a\STX\DLE\DC2\ETX;\STX$\"a Percentage of the txfee which must be provided as collateral when including non-native scripts.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DLE\ENQ\DC2\ETX;\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DLE\SOH\DC2\ETX;\t\RS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DLE\ETX\DC2\ETX;!#\n\
    \-\n\
    \\EOT\EOT\a\STX\DC1\DC2\ETX<\STX$\"  The maximum collateral inputs.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC1\ENQ\DC2\ETX<\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC1\SOH\DC2\ETX<\t\RS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC1\ETX\DC2\ETX<!#\n\
    \\US\n\
    \\EOT\EOT\a\STX\DC2\DC2\ETX=\STX\RS\"\DC2 The cost models.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC2\ACK\DC2\ETX=\STX\f\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC2\SOH\DC2\ETX=\r\CAN\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC2\ETX\DC2\ETX=\ESC\GS\n\
    \\SUB\n\
    \\EOT\EOT\a\STX\DC3\DC2\ETX>\STX\ETB\"\r The prices.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC3\ACK\DC2\ETX>\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC3\SOH\DC2\ETX>\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC3\ETX\DC2\ETX>\DC4\SYN\n\
    \;\n\
    \\EOT\EOT\a\STX\DC4\DC2\ETX?\STX3\". The maximum execution units per transaction.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC4\ACK\DC2\ETX?\STX\t\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC4\SOH\DC2\ETX?\n\
    \-\n\
    \\f\n\
    \\ENQ\EOT\a\STX\DC4\ETX\DC2\ETX?02\n\
    \5\n\
    \\EOT\EOT\a\STX\NAK\DC2\ETX@\STX-\"( The maximum execution units per block.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NAK\ACK\DC2\ETX@\STX\t\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NAK\SOH\DC2\ETX@\n\
    \'\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NAK\ETX\DC2\ETX@*,\n\
    \9\n\
    \\EOT\EOT\a\STX\SYN\DC2\ETXA\STX7\", The minimum fee per script reference byte.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SYN\ACK\DC2\ETXA\STX\DLE\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SYN\SOH\DC2\ETXA\DC11\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SYN\ETX\DC2\ETXA46\n\
    \*\n\
    \\EOT\EOT\a\STX\ETB\DC2\ETXB\STX/\"\GS The pool voting thresholds.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETB\ACK\DC2\ETXB\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETB\SOH\DC2\ETXB\DC3)\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ETB\ETX\DC2\ETXB,.\n\
    \*\n\
    \\EOT\EOT\a\STX\CAN\DC2\ETXC\STX/\"\GS The drep voting thresholds.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\CAN\ACK\DC2\ETXC\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\a\STX\CAN\SOH\DC2\ETXC\DC3)\n\
    \\f\n\
    \\ENQ\EOT\a\STX\CAN\ETX\DC2\ETXC,.\n\
    \*\n\
    \\EOT\EOT\a\STX\EM\DC2\ETXD\STX!\"\GS The minimum committee size.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EM\ENQ\DC2\ETXD\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EM\SOH\DC2\ETXD\t\ESC\n\
    \\f\n\
    \\ENQ\EOT\a\STX\EM\ETX\DC2\ETXD\RS \n\
    \(\n\
    \\EOT\EOT\a\STX\SUB\DC2\ETXE\STX#\"\ESC The committee term limit.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SUB\ENQ\DC2\ETXE\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SUB\SOH\DC2\ETXE\t\GS\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SUB\ETX\DC2\ETXE \"\n\
    \5\n\
    \\EOT\EOT\a\STX\ESC\DC2\ETXF\STX0\"( The governance action validity period.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ESC\ENQ\DC2\ETXF\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ESC\SOH\DC2\ETXF\t*\n\
    \\f\n\
    \\ENQ\EOT\a\STX\ESC\ETX\DC2\ETXF-/\n\
    \-\n\
    \\EOT\EOT\a\STX\FS\DC2\ETXG\STX(\"  The governance action deposit.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\FS\ENQ\DC2\ETXG\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\FS\SOH\DC2\ETXG\t\"\n\
    \\f\n\
    \\ENQ\EOT\a\STX\FS\ETX\DC2\ETXG%'\n\
    \ \n\
    \\EOT\EOT\a\STX\GS\DC2\ETXH\STX\ESC\"\DC3 The drep deposit.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\GS\ENQ\DC2\ETXH\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\GS\SOH\DC2\ETXH\t\NAK\n\
    \\f\n\
    \\ENQ\EOT\a\STX\GS\ETX\DC2\ETXH\CAN\SUB\n\
    \*\n\
    \\EOT\EOT\a\STX\RS\DC2\ETXI\STX%\"\GS The drep inactivity period.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\RS\ENQ\DC2\ETXI\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\RS\SOH\DC2\ETXI\t\US\n\
    \\f\n\
    \\ENQ\EOT\a\STX\RS\ETX\DC2\ETXI\"$b\ACKproto3"