From 8b17be1b3b3cf0d2fe3524acb63c47983a3fef87 Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Wed, 28 Jan 2026 14:43:36 +0100 Subject: [PATCH 1/4] Move proto files from v1alpha to v1beta directory --- .../proto/utxorpc/{v1alpha => v1beta}/cardano/cardano.proto | 0 cardano-rpc/proto/utxorpc/{v1alpha => v1beta}/query/query.proto | 0 cardano-rpc/proto/utxorpc/{v1alpha => v1beta}/submit/submit.proto | 0 3 files changed, 0 insertions(+), 0 deletions(-) rename cardano-rpc/proto/utxorpc/{v1alpha => v1beta}/cardano/cardano.proto (100%) rename cardano-rpc/proto/utxorpc/{v1alpha => v1beta}/query/query.proto (100%) rename cardano-rpc/proto/utxorpc/{v1alpha => v1beta}/submit/submit.proto (100%) diff --git a/cardano-rpc/proto/utxorpc/v1alpha/cardano/cardano.proto b/cardano-rpc/proto/utxorpc/v1beta/cardano/cardano.proto similarity index 100% rename from cardano-rpc/proto/utxorpc/v1alpha/cardano/cardano.proto rename to cardano-rpc/proto/utxorpc/v1beta/cardano/cardano.proto diff --git a/cardano-rpc/proto/utxorpc/v1alpha/query/query.proto b/cardano-rpc/proto/utxorpc/v1beta/query/query.proto similarity index 100% rename from cardano-rpc/proto/utxorpc/v1alpha/query/query.proto rename to cardano-rpc/proto/utxorpc/v1beta/query/query.proto diff --git a/cardano-rpc/proto/utxorpc/v1alpha/submit/submit.proto b/cardano-rpc/proto/utxorpc/v1beta/submit/submit.proto similarity index 100% rename from cardano-rpc/proto/utxorpc/v1alpha/submit/submit.proto rename to cardano-rpc/proto/utxorpc/v1beta/submit/submit.proto From f3ac2907c40191bcab5a4f2908818c4a25ba43e9 Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Tue, 20 Jan 2026 14:23:34 +0100 Subject: [PATCH 2/4] Update proto definitions to V1beta, regenerate code --- cardano-rpc/cardano-rpc.cabal | 12 +- .../Proto/Utxorpc/V1alpha/Cardano/Cardano.hs | 7712 ---- .../Utxorpc/V1alpha/Cardano/Cardano_Fields.hs | 803 - .../gen/Proto/Utxorpc/V1alpha/Query/Query.hs | 2064 - .../Proto/Utxorpc/V1alpha/Submit/Submit.hs | 812 - .../Utxorpc/V1alpha/Submit/Submit_Fields.hs | 97 - .../Proto/Utxorpc/V1beta/Cardano/Cardano.hs | 36114 ++++++++++++++++ .../Utxorpc/V1beta/Cardano/Cardano_Fields.hs | 2903 ++ .../gen/Proto/Utxorpc/V1beta/Query/Query.hs | 5504 +++ .../Utxorpc/V1beta/Query/Query_Fields.hs | 295 + .../gen/Proto/Utxorpc/V1beta/Submit/Submit.hs | 2955 ++ .../Submit/Submit_Fields.hs} | 157 +- .../utxorpc/v1beta/cardano/cardano.proto | 712 +- .../proto/utxorpc/v1beta/query/query.proto | 136 +- .../proto/utxorpc/v1beta/submit/submit.proto | 100 +- .../Cardano/Rpc/Proto/Api/UtxoRpc/Query.hs | 22 +- .../Cardano/Rpc/Proto/Api/UtxoRpc/Submit.hs | 8 +- 17 files changed, 48765 insertions(+), 11641 deletions(-) delete mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs delete mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano_Fields.hs delete mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query.hs delete mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit.hs delete mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit_Fields.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano_Fields.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query_Fields.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1beta/Submit/Submit.hs rename cardano-rpc/gen/Proto/Utxorpc/{V1alpha/Query/Query_Fields.hs => V1beta/Submit/Submit_Fields.hs} (61%) diff --git a/cardano-rpc/cardano-rpc.cabal b/cardano-rpc/cardano-rpc.cabal index 5f48267894..e6165fbb22 100644 --- a/cardano-rpc/cardano-rpc.cabal +++ b/cardano-rpc/cardano-rpc.cabal @@ -96,12 +96,12 @@ library gen exposed-modules: Proto.Cardano.Rpc.Node Proto.Cardano.Rpc.Node_Fields - Proto.Utxorpc.V1alpha.Cardano.Cardano - Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields - Proto.Utxorpc.V1alpha.Query.Query - Proto.Utxorpc.V1alpha.Query.Query_Fields - Proto.Utxorpc.V1alpha.Submit.Submit - Proto.Utxorpc.V1alpha.Submit.Submit_Fields + Proto.Utxorpc.V1beta.Cardano.Cardano + Proto.Utxorpc.V1beta.Cardano.Cardano_Fields + Proto.Utxorpc.V1beta.Query.Query + Proto.Utxorpc.V1beta.Query.Query_Fields + Proto.Utxorpc.V1beta.Submit.Submit + Proto.Utxorpc.V1beta.Submit.Submit_Fields build-depends: proto-lens-protobuf-types, diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs deleted file mode 100644 index 56e5073f81..0000000000 --- a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs +++ /dev/null @@ -1,7712 +0,0 @@ -{- This file was auto-generated from utxorpc/v1alpha/cardano/cardano.proto by the proto-lens-protoc program. -} -{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} -{-# OPTIONS_GHC -Wno-unused-imports#-} -{-# OPTIONS_GHC -Wno-duplicate-exports#-} -{-# OPTIONS_GHC -Wno-dodgy-exports#-} -module Proto.Utxorpc.V1alpha.Cardano.Cardano ( - AddressArray(), Asset(), Asset'Quantity(..), _Asset'OutputCoin, - _Asset'MintCoin, BigInt(), BigInt'BigInt(..), _BigInt'Int, - _BigInt'BigUInt, _BigInt'BigNInt, Constr(), CostModel(), - CostModels(), Datum(), ExPrices(), ExUnits(), MultiAsset(), - NativeScript(), NativeScript'NativeScript(..), - _NativeScript'ScriptPubkey, _NativeScript'ScriptAll, - _NativeScript'ScriptAny, _NativeScript'ScriptNOfK, - _NativeScript'InvalidBefore, _NativeScript'InvalidHereafter, - NativeScriptList(), PParams(), PlutusData(), - PlutusData'PlutusData(..), _PlutusData'Constr, _PlutusData'Map, - _PlutusData'BigInt, _PlutusData'BoundedBytes, _PlutusData'Array, - PlutusDataArray(), PlutusDataMap(), PlutusDataPair(), - ProtocolVersion(), RationalNumber(), Script(), Script'Script(..), - _Script'Native, _Script'PlutusV1, _Script'PlutusV2, - _Script'PlutusV3, _Script'PlutusV4, ScriptNOfK(), TxOutput(), - VotingThresholds() - ) where -import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism -import qualified Data.ProtoLens.Runtime.Prelude as Prelude -import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int -import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid -import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word -import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum -import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked -import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text -import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map -import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 -import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding -import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector -import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic -import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed -import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' AddressArray [Data.ByteString.ByteString]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' AddressArray (Data.Vector.Vector Data.ByteString.ByteString)@ -} -data AddressArray - = AddressArray'_constructor {_AddressArray'items :: !(Data.Vector.Vector Data.ByteString.ByteString), - _AddressArray'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show AddressArray where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField AddressArray "items" [Data.ByteString.ByteString] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AddressArray'items (\ x__ y__ -> x__ {_AddressArray'items = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField AddressArray "vec'items" (Data.Vector.Vector Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AddressArray'items (\ x__ y__ -> x__ {_AddressArray'items = y__})) - Prelude.id -instance Data.ProtoLens.Message AddressArray where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.AddressArray" - packedMessageDescriptor _ - = "\n\ - \\fAddressArray\DC2\DC4\n\ - \\ENQitems\CAN\SOH \ETX(\fR\ENQitems" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - items__field_descriptor - = Data.ProtoLens.FieldDescriptor - "items" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: - Data.ProtoLens.FieldDescriptor AddressArray - in - Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _AddressArray'_unknownFields - (\ x__ y__ -> x__ {_AddressArray'_unknownFields = y__}) - defMessage - = AddressArray'_constructor - {_AddressArray'items = Data.Vector.Generic.empty, - _AddressArray'_unknownFields = []} - parseMessage - = let - loop :: - AddressArray - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString - -> Data.ProtoLens.Encoding.Bytes.Parser AddressArray - loop x mutable'items - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "items" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'items y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'items - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'items) - "AddressArray" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData AddressArray where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_AddressArray'_unknownFields x__) - (Control.DeepSeq.deepseq (_AddressArray'items x__) ()) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.name' @:: Lens' Asset Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'quantity' @:: Lens' Asset (Prelude.Maybe Asset'Quantity)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'outputCoin' @:: Lens' Asset (Prelude.Maybe Data.Word.Word64)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputCoin' @:: Lens' Asset Data.Word.Word64@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mintCoin' @:: Lens' Asset (Prelude.Maybe Data.Int.Int64)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mintCoin' @:: Lens' Asset Data.Int.Int64@ -} -data Asset - = Asset'_constructor {_Asset'name :: !Data.ByteString.ByteString, - _Asset'quantity :: !(Prelude.Maybe Asset'Quantity), - _Asset'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show Asset where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data Asset'Quantity - = Asset'OutputCoin !Data.Word.Word64 | - Asset'MintCoin !Data.Int.Int64 - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField Asset "name" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Asset'name (\ x__ y__ -> x__ {_Asset'name = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField Asset "maybe'quantity" (Prelude.Maybe Asset'Quantity) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Asset'quantity (\ x__ y__ -> x__ {_Asset'quantity = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField Asset "maybe'outputCoin" (Prelude.Maybe Data.Word.Word64) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Asset'quantity (\ x__ y__ -> x__ {_Asset'quantity = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Asset'OutputCoin x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Asset'OutputCoin y__)) -instance Data.ProtoLens.Field.HasField Asset "outputCoin" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Asset'quantity (\ x__ y__ -> x__ {_Asset'quantity = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Asset'OutputCoin x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Asset'OutputCoin y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField Asset "maybe'mintCoin" (Prelude.Maybe Data.Int.Int64) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Asset'quantity (\ x__ y__ -> x__ {_Asset'quantity = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Asset'MintCoin x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Asset'MintCoin y__)) -instance Data.ProtoLens.Field.HasField Asset "mintCoin" Data.Int.Int64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Asset'quantity (\ x__ y__ -> x__ {_Asset'quantity = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Asset'MintCoin x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Asset'MintCoin y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Message Asset where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Asset" - packedMessageDescriptor _ - = "\n\ - \\ENQAsset\DC2\DC2\n\ - \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2%\n\ - \\voutput_coin\CAN\STX \SOH(\EOTH\NULR\n\ - \outputCoinB\STX0\SOH\DC2!\n\ - \\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoinB\STX0\SOHB\n\ - \\n\ - \\bquantity" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - name__field_descriptor - = Data.ProtoLens.FieldDescriptor - "name" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: - Data.ProtoLens.FieldDescriptor Asset - outputCoin__field_descriptor - = Data.ProtoLens.FieldDescriptor - "output_coin" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'outputCoin")) :: - Data.ProtoLens.FieldDescriptor Asset - mintCoin__field_descriptor - = Data.ProtoLens.FieldDescriptor - "mint_coin" - (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'mintCoin")) :: - Data.ProtoLens.FieldDescriptor Asset - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, outputCoin__field_descriptor), - (Data.ProtoLens.Tag 3, mintCoin__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _Asset'_unknownFields - (\ x__ y__ -> x__ {_Asset'_unknownFields = y__}) - defMessage - = Asset'_constructor - {_Asset'name = Data.ProtoLens.fieldDefault, - _Asset'quantity = Prelude.Nothing, _Asset'_unknownFields = []} - parseMessage - = let - loop :: Asset -> Data.ProtoLens.Encoding.Bytes.Parser Asset - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "name" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "output_coin" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"outputCoin") y x) - 24 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "mint_coin" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"mintCoin") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "Asset" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'quantity") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (Asset'OutputCoin v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - (Data.ProtoLens.Encoding.Bytes.putVarInt v) - (Prelude.Just (Asset'MintCoin v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData Asset where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_Asset'_unknownFields x__) - (Control.DeepSeq.deepseq - (_Asset'name x__) - (Control.DeepSeq.deepseq (_Asset'quantity x__) ())) -instance Control.DeepSeq.NFData Asset'Quantity where - rnf (Asset'OutputCoin x__) = Control.DeepSeq.rnf x__ - rnf (Asset'MintCoin x__) = Control.DeepSeq.rnf x__ -_Asset'OutputCoin :: - Data.ProtoLens.Prism.Prism' Asset'Quantity Data.Word.Word64 -_Asset'OutputCoin - = Data.ProtoLens.Prism.prism' - Asset'OutputCoin - (\ p__ - -> case p__ of - (Asset'OutputCoin p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_Asset'MintCoin :: - Data.ProtoLens.Prism.Prism' Asset'Quantity Data.Int.Int64 -_Asset'MintCoin - = Data.ProtoLens.Prism.prism' - Asset'MintCoin - (\ p__ - -> case p__ of - (Asset'MintCoin p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' BigInt (Prelude.Maybe BigInt'BigInt)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'int' @:: Lens' BigInt (Prelude.Maybe Data.Int.Int64)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.int' @:: Lens' BigInt Data.Int.Int64@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigUInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigUInt' @:: Lens' BigInt Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigNInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigNInt' @:: Lens' BigInt Data.ByteString.ByteString@ -} -data BigInt - = BigInt'_constructor {_BigInt'bigInt :: !(Prelude.Maybe BigInt'BigInt), - _BigInt'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show BigInt where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data BigInt'BigInt - = BigInt'Int !Data.Int.Int64 | - BigInt'BigUInt !Data.ByteString.ByteString | - BigInt'BigNInt !Data.ByteString.ByteString - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField BigInt "maybe'bigInt" (Prelude.Maybe BigInt'BigInt) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField BigInt "maybe'int" (Prelude.Maybe Data.Int.Int64) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap BigInt'Int y__)) -instance Data.ProtoLens.Field.HasField BigInt "int" Data.Int.Int64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap BigInt'Int y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField BigInt "maybe'bigUInt" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__)) -instance Data.ProtoLens.Field.HasField BigInt "bigUInt" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField BigInt "maybe'bigNInt" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__)) -instance Data.ProtoLens.Field.HasField BigInt "bigNInt" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Message BigInt where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.BigInt" - packedMessageDescriptor _ - = "\n\ - \\ACKBigInt\DC2\SYN\n\ - \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXintB\STX0\SOH\DC2\FS\n\ - \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\ - \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\ - \\abig_int" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - int__field_descriptor - = Data.ProtoLens.FieldDescriptor - "int" - (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'int")) :: - Data.ProtoLens.FieldDescriptor BigInt - bigUInt__field_descriptor - = Data.ProtoLens.FieldDescriptor - "big_u_int" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'bigUInt")) :: - Data.ProtoLens.FieldDescriptor BigInt - bigNInt__field_descriptor - = Data.ProtoLens.FieldDescriptor - "big_n_int" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'bigNInt")) :: - Data.ProtoLens.FieldDescriptor BigInt - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, int__field_descriptor), - (Data.ProtoLens.Tag 2, bigUInt__field_descriptor), - (Data.ProtoLens.Tag 3, bigNInt__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _BigInt'_unknownFields - (\ x__ y__ -> x__ {_BigInt'_unknownFields = y__}) - defMessage - = BigInt'_constructor - {_BigInt'bigInt = Prelude.Nothing, _BigInt'_unknownFields = []} - parseMessage - = let - loop :: BigInt -> Data.ProtoLens.Encoding.Bytes.Parser BigInt - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "int" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "big_u_int" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigUInt") y x) - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "big_n_int" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigNInt") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "BigInt" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'bigInt") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (BigInt'Int v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v) - (Prelude.Just (BigInt'BigUInt v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v) - (Prelude.Just (BigInt'BigNInt v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData BigInt where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_BigInt'_unknownFields x__) - (Control.DeepSeq.deepseq (_BigInt'bigInt x__) ()) -instance Control.DeepSeq.NFData BigInt'BigInt where - rnf (BigInt'Int x__) = Control.DeepSeq.rnf x__ - rnf (BigInt'BigUInt x__) = Control.DeepSeq.rnf x__ - rnf (BigInt'BigNInt x__) = Control.DeepSeq.rnf x__ -_BigInt'Int :: - Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.Int.Int64 -_BigInt'Int - = Data.ProtoLens.Prism.prism' - BigInt'Int - (\ p__ - -> case p__ of - (BigInt'Int p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_BigInt'BigUInt :: - Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString -_BigInt'BigUInt - = Data.ProtoLens.Prism.prism' - BigInt'BigUInt - (\ p__ - -> case p__ of - (BigInt'BigUInt p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_BigInt'BigNInt :: - Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString -_BigInt'BigNInt - = Data.ProtoLens.Prism.prism' - BigInt'BigNInt - (\ p__ - -> case p__ of - (BigInt'BigNInt p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.tag' @:: Lens' Constr Data.Word.Word32@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.anyConstructor' @:: Lens' Constr Data.Word.Word64@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fields' @:: Lens' Constr [PlutusData]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'fields' @:: Lens' Constr (Data.Vector.Vector PlutusData)@ -} -data Constr - = Constr'_constructor {_Constr'tag :: !Data.Word.Word32, - _Constr'anyConstructor :: !Data.Word.Word64, - _Constr'fields :: !(Data.Vector.Vector PlutusData), - _Constr'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show Constr where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField Constr "tag" Data.Word.Word32 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Constr'tag (\ x__ y__ -> x__ {_Constr'tag = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField Constr "anyConstructor" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Constr'anyConstructor - (\ x__ y__ -> x__ {_Constr'anyConstructor = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField Constr "fields" [PlutusData] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField Constr "vec'fields" (Data.Vector.Vector PlutusData) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__})) - Prelude.id -instance Data.ProtoLens.Message Constr where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Constr" - packedMessageDescriptor _ - = "\n\ - \\ACKConstr\DC2\DLE\n\ - \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\ - \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2;\n\ - \\ACKfields\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ACKfields" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - tag__field_descriptor - = Data.ProtoLens.FieldDescriptor - "tag" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"tag")) :: - Data.ProtoLens.FieldDescriptor Constr - anyConstructor__field_descriptor - = Data.ProtoLens.FieldDescriptor - "any_constructor" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"anyConstructor")) :: - Data.ProtoLens.FieldDescriptor Constr - fields__field_descriptor - = Data.ProtoLens.FieldDescriptor - "fields" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusData) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"fields")) :: - Data.ProtoLens.FieldDescriptor Constr - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, tag__field_descriptor), - (Data.ProtoLens.Tag 2, anyConstructor__field_descriptor), - (Data.ProtoLens.Tag 3, fields__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _Constr'_unknownFields - (\ x__ y__ -> x__ {_Constr'_unknownFields = y__}) - defMessage - = Constr'_constructor - {_Constr'tag = Data.ProtoLens.fieldDefault, - _Constr'anyConstructor = Data.ProtoLens.fieldDefault, - _Constr'fields = Data.Vector.Generic.empty, - _Constr'_unknownFields = []} - parseMessage - = let - loop :: - Constr - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData - -> Data.ProtoLens.Encoding.Bytes.Parser Constr - loop x mutable'fields - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze - mutable'fields) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'fields") frozen'fields x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "tag" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x) - mutable'fields - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "any_constructor" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"anyConstructor") y x) - mutable'fields - 26 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "fields" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'fields y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'fields - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'fields) - "Constr" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"tag") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"anyConstructor") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'fields") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) -instance Control.DeepSeq.NFData Constr where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_Constr'_unknownFields x__) - (Control.DeepSeq.deepseq - (_Constr'tag x__) - (Control.DeepSeq.deepseq - (_Constr'anyConstructor x__) - (Control.DeepSeq.deepseq (_Constr'fields x__) ()))) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.values' @:: Lens' CostModel [Data.Int.Int64]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'values' @:: Lens' CostModel (Data.Vector.Unboxed.Vector Data.Int.Int64)@ -} -data CostModel - = CostModel'_constructor {_CostModel'values :: !(Data.Vector.Unboxed.Vector Data.Int.Int64), - _CostModel'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show CostModel where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField CostModel "values" [Data.Int.Int64] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModel'values (\ x__ y__ -> x__ {_CostModel'values = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField CostModel "vec'values" (Data.Vector.Unboxed.Vector Data.Int.Int64) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModel'values (\ x__ y__ -> x__ {_CostModel'values = y__})) - Prelude.id -instance Data.ProtoLens.Message CostModel where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.CostModel" - packedMessageDescriptor _ - = "\n\ - \\tCostModel\DC2\SYN\n\ - \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - values__field_descriptor - = Data.ProtoLens.FieldDescriptor - "values" - (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"values")) :: - Data.ProtoLens.FieldDescriptor CostModel - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, values__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _CostModel'_unknownFields - (\ x__ y__ -> x__ {_CostModel'_unknownFields = y__}) - defMessage - = CostModel'_constructor - {_CostModel'values = Data.Vector.Generic.empty, - _CostModel'_unknownFields = []} - 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 x mutable'values - = do end <- 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 (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'values") frozen'values x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "values" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'values y) - loop x v - 10 - -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - ((let - ploop qs - = do packedEnd <- 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 - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'values - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'values) - "CostModel" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'values") _x - in - if Data.Vector.Generic.null p then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - (Data.ProtoLens.Encoding.Bytes.runBuilder - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) - p)))) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData CostModel where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_CostModel'_unknownFields x__) - (Control.DeepSeq.deepseq (_CostModel'values x__) ()) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModels CostModel@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModels (Prelude.Maybe CostModel)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModels CostModel@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' CostModels (Prelude.Maybe CostModel)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV3' @:: Lens' CostModels CostModel@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' CostModels (Prelude.Maybe CostModel)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV4' @:: Lens' CostModels CostModel@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' CostModels (Prelude.Maybe CostModel)@ -} -data CostModels - = CostModels'_constructor {_CostModels'plutusV1 :: !(Prelude.Maybe CostModel), - _CostModels'plutusV2 :: !(Prelude.Maybe CostModel), - _CostModels'plutusV3 :: !(Prelude.Maybe CostModel), - _CostModels'plutusV4 :: !(Prelude.Maybe CostModel), - _CostModels'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show CostModels where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField CostModels "plutusV1" CostModel where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV1 - (\ x__ y__ -> x__ {_CostModels'plutusV1 = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV1" (Prelude.Maybe CostModel) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV1 - (\ x__ y__ -> x__ {_CostModels'plutusV1 = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField CostModels "plutusV2" CostModel where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV2 - (\ x__ y__ -> x__ {_CostModels'plutusV2 = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV2" (Prelude.Maybe CostModel) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV2 - (\ x__ y__ -> x__ {_CostModels'plutusV2 = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField CostModels "plutusV3" CostModel where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV3 - (\ x__ y__ -> x__ {_CostModels'plutusV3 = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV3" (Prelude.Maybe CostModel) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV3 - (\ x__ y__ -> x__ {_CostModels'plutusV3 = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField CostModels "plutusV4" CostModel where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV4 - (\ x__ y__ -> x__ {_CostModels'plutusV4 = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV4" (Prelude.Maybe CostModel) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _CostModels'plutusV4 - (\ x__ y__ -> x__ {_CostModels'plutusV4 = y__})) - Prelude.id -instance Data.ProtoLens.Message CostModels where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.CostModels" - packedMessageDescriptor _ - = "\n\ - \\n\ - \CostModels\DC2?\n\ - \\tplutus_v1\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV1\DC2?\n\ - \\tplutus_v2\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV2\DC2?\n\ - \\tplutus_v3\CAN\ETX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV3\DC2?\n\ - \\tplutus_v4\CAN\EOT \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV4" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - plutusV1__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v1" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor CostModel) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV1")) :: - Data.ProtoLens.FieldDescriptor CostModels - plutusV2__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v2" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor CostModel) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV2")) :: - Data.ProtoLens.FieldDescriptor CostModels - plutusV3__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v3" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor CostModel) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV3")) :: - Data.ProtoLens.FieldDescriptor CostModels - plutusV4__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v4" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor CostModel) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV4")) :: - Data.ProtoLens.FieldDescriptor CostModels - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, plutusV1__field_descriptor), - (Data.ProtoLens.Tag 2, plutusV2__field_descriptor), - (Data.ProtoLens.Tag 3, plutusV3__field_descriptor), - (Data.ProtoLens.Tag 4, plutusV4__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _CostModels'_unknownFields - (\ x__ y__ -> x__ {_CostModels'_unknownFields = y__}) - defMessage - = CostModels'_constructor - {_CostModels'plutusV1 = Prelude.Nothing, - _CostModels'plutusV2 = Prelude.Nothing, - _CostModels'plutusV3 = Prelude.Nothing, - _CostModels'plutusV4 = Prelude.Nothing, - _CostModels'_unknownFields = []} - parseMessage - = let - loop :: - CostModels -> Data.ProtoLens.Encoding.Bytes.Parser CostModels - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "plutus_v1" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "plutus_v2" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x) - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "plutus_v3" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x) - 34 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "plutus_v4" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "CostModels" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV1") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV2") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV3") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV4") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) -instance Control.DeepSeq.NFData CostModels where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_CostModels'_unknownFields x__) - (Control.DeepSeq.deepseq - (_CostModels'plutusV1 x__) - (Control.DeepSeq.deepseq - (_CostModels'plutusV2 x__) - (Control.DeepSeq.deepseq - (_CostModels'plutusV3 x__) - (Control.DeepSeq.deepseq (_CostModels'plutusV4 x__) ())))) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' Datum Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.payload' @:: Lens' Datum PlutusData@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'payload' @:: Lens' Datum (Prelude.Maybe PlutusData)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.originalCbor' @:: Lens' Datum Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'originalCbor' @:: Lens' Datum (Prelude.Maybe Data.ByteString.ByteString)@ -} -data Datum - = Datum'_constructor {_Datum'hash :: !Data.ByteString.ByteString, - _Datum'payload :: !(Prelude.Maybe PlutusData), - _Datum'originalCbor :: !(Prelude.Maybe Data.ByteString.ByteString), - _Datum'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show Datum where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField Datum "hash" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Datum'hash (\ x__ y__ -> x__ {_Datum'hash = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField Datum "payload" PlutusData where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Datum'payload (\ x__ y__ -> x__ {_Datum'payload = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField Datum "maybe'payload" (Prelude.Maybe PlutusData) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Datum'payload (\ x__ y__ -> x__ {_Datum'payload = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField Datum "originalCbor" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Datum'originalCbor (\ x__ y__ -> x__ {_Datum'originalCbor = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) -instance Data.ProtoLens.Field.HasField Datum "maybe'originalCbor" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Datum'originalCbor (\ x__ y__ -> x__ {_Datum'originalCbor = y__})) - Prelude.id -instance Data.ProtoLens.Message Datum where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Datum" - packedMessageDescriptor _ - = "\n\ - \\ENQDatum\DC2\DC2\n\ - \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2B\n\ - \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataH\NULR\apayload\136\SOH\SOH\DC2(\n\ - \\roriginal_cbor\CAN\ETX \SOH(\fH\SOHR\foriginalCbor\136\SOH\SOHB\n\ - \\n\ - \\b_payloadB\DLE\n\ - \\SO_original_cbor" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - hash__field_descriptor - = Data.ProtoLens.FieldDescriptor - "hash" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: - Data.ProtoLens.FieldDescriptor Datum - payload__field_descriptor - = Data.ProtoLens.FieldDescriptor - "payload" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusData) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'payload")) :: - Data.ProtoLens.FieldDescriptor Datum - originalCbor__field_descriptor - = Data.ProtoLens.FieldDescriptor - "original_cbor" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'originalCbor")) :: - Data.ProtoLens.FieldDescriptor Datum - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, hash__field_descriptor), - (Data.ProtoLens.Tag 2, payload__field_descriptor), - (Data.ProtoLens.Tag 3, originalCbor__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _Datum'_unknownFields - (\ x__ y__ -> x__ {_Datum'_unknownFields = y__}) - defMessage - = Datum'_constructor - {_Datum'hash = Data.ProtoLens.fieldDefault, - _Datum'payload = Prelude.Nothing, - _Datum'originalCbor = Prelude.Nothing, _Datum'_unknownFields = []} - parseMessage - = let - loop :: Datum -> Data.ProtoLens.Encoding.Bytes.Parser Datum - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "hash" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "payload" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "original_cbor" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"originalCbor") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "Datum" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'originalCbor") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) -instance Control.DeepSeq.NFData Datum where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_Datum'_unknownFields x__) - (Control.DeepSeq.deepseq - (_Datum'hash x__) - (Control.DeepSeq.deepseq - (_Datum'payload x__) - (Control.DeepSeq.deepseq (_Datum'originalCbor 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'steps :: !(Prelude.Maybe RationalNumber), - _ExPrices'memory :: !(Prelude.Maybe RationalNumber), - _ExPrices'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ExPrices where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ExPrices "steps" RationalNumber where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExPrices'steps (\ x__ y__ -> x__ {_ExPrices'steps = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField ExPrices "maybe'steps" (Prelude.Maybe RationalNumber) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExPrices'steps (\ x__ y__ -> x__ {_ExPrices'steps = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ExPrices "memory" RationalNumber where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExPrices'memory (\ x__ y__ -> x__ {_ExPrices'memory = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField ExPrices "maybe'memory" (Prelude.Maybe RationalNumber) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExPrices'memory (\ x__ y__ -> x__ {_ExPrices'memory = y__})) - Prelude.id -instance Data.ProtoLens.Message ExPrices where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.ExPrices" - packedMessageDescriptor _ - = "\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 _ = packedFileDescriptor - fieldsByTag - = let - steps__field_descriptor - = Data.ProtoLens.FieldDescriptor - "steps" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor RationalNumber) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'steps")) :: - Data.ProtoLens.FieldDescriptor ExPrices - memory__field_descriptor - = Data.ProtoLens.FieldDescriptor - "memory" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor RationalNumber) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'memory")) :: - Data.ProtoLens.FieldDescriptor ExPrices - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, steps__field_descriptor), - (Data.ProtoLens.Tag 2, memory__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ExPrices'_unknownFields - (\ x__ y__ -> x__ {_ExPrices'_unknownFields = y__}) - defMessage - = ExPrices'_constructor - {_ExPrices'steps = Prelude.Nothing, - _ExPrices'memory = Prelude.Nothing, _ExPrices'_unknownFields = []} - parseMessage - = let - loop :: ExPrices -> Data.ProtoLens.Encoding.Bytes.Parser ExPrices - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "steps" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "memory" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "ExPrices" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'steps") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'memory") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData ExPrices where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ExPrices'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ExPrices'steps x__) - (Control.DeepSeq.deepseq (_ExPrices'memory 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'steps :: !Data.Word.Word64, - _ExUnits'memory :: !Data.Word.Word64, - _ExUnits'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ExUnits where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ExUnits "steps" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExUnits'steps (\ x__ y__ -> x__ {_ExUnits'steps = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ExUnits "memory" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ExUnits'memory (\ x__ y__ -> x__ {_ExUnits'memory = y__})) - Prelude.id -instance Data.ProtoLens.Message ExUnits where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.ExUnits" - packedMessageDescriptor _ - = "\n\ - \\aExUnits\DC2\DC4\n\ - \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\ - \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - steps__field_descriptor - = Data.ProtoLens.FieldDescriptor - "steps" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"steps")) :: - Data.ProtoLens.FieldDescriptor ExUnits - memory__field_descriptor - = Data.ProtoLens.FieldDescriptor - "memory" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"memory")) :: - Data.ProtoLens.FieldDescriptor ExUnits - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, steps__field_descriptor), - (Data.ProtoLens.Tag 2, memory__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ExUnits'_unknownFields - (\ x__ y__ -> x__ {_ExUnits'_unknownFields = y__}) - defMessage - = ExUnits'_constructor - {_ExUnits'steps = Data.ProtoLens.fieldDefault, - _ExUnits'memory = Data.ProtoLens.fieldDefault, - _ExUnits'_unknownFields = []} - parseMessage - = let - loop :: ExUnits -> Data.ProtoLens.Encoding.Bytes.Parser ExUnits - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "steps" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x) - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "memory" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "ExUnits" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"steps") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"memory") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData ExUnits where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ExUnits'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ExUnits'steps x__) - (Control.DeepSeq.deepseq (_ExUnits'memory x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.policyId' @:: Lens' MultiAsset Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.assets' @:: Lens' MultiAsset [Asset]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'assets' @:: Lens' MultiAsset (Data.Vector.Vector Asset)@ -} -data MultiAsset - = MultiAsset'_constructor {_MultiAsset'policyId :: !Data.ByteString.ByteString, - _MultiAsset'assets :: !(Data.Vector.Vector Asset), - _MultiAsset'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show MultiAsset where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField MultiAsset "policyId" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MultiAsset'policyId - (\ x__ y__ -> x__ {_MultiAsset'policyId = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField MultiAsset "assets" [Asset] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MultiAsset'assets (\ x__ y__ -> x__ {_MultiAsset'assets = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField MultiAsset "vec'assets" (Data.Vector.Vector Asset) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _MultiAsset'assets (\ x__ y__ -> x__ {_MultiAsset'assets = y__})) - Prelude.id -instance Data.ProtoLens.Message MultiAsset where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.MultiAsset" - packedMessageDescriptor _ - = "\n\ - \\n\ - \MultiAsset\DC2\ESC\n\ - \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC26\n\ - \\ACKassets\CAN\STX \ETX(\v2\RS.utxorpc.v1alpha.cardano.AssetR\ACKassets" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - policyId__field_descriptor - = Data.ProtoLens.FieldDescriptor - "policy_id" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"policyId")) :: - Data.ProtoLens.FieldDescriptor MultiAsset - assets__field_descriptor - = Data.ProtoLens.FieldDescriptor - "assets" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Asset) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"assets")) :: - Data.ProtoLens.FieldDescriptor MultiAsset - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, policyId__field_descriptor), - (Data.ProtoLens.Tag 2, assets__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _MultiAsset'_unknownFields - (\ x__ y__ -> x__ {_MultiAsset'_unknownFields = y__}) - defMessage - = MultiAsset'_constructor - {_MultiAsset'policyId = Data.ProtoLens.fieldDefault, - _MultiAsset'assets = Data.Vector.Generic.empty, - _MultiAsset'_unknownFields = []} - parseMessage - = let - loop :: - MultiAsset - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Asset - -> Data.ProtoLens.Encoding.Bytes.Parser MultiAsset - loop x mutable'assets - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze - mutable'assets) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'assets") frozen'assets x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "policy_id" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"policyId") y x) - mutable'assets - 18 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "assets" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'assets y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'assets - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'assets) - "MultiAsset" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"policyId") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - ((Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'assets") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData MultiAsset where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_MultiAsset'_unknownFields x__) - (Control.DeepSeq.deepseq - (_MultiAsset'policyId x__) - (Control.DeepSeq.deepseq (_MultiAsset'assets x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'nativeScript' @:: Lens' NativeScript (Prelude.Maybe NativeScript'NativeScript)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptPubkey' @:: Lens' NativeScript (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptPubkey' @:: Lens' NativeScript Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAll' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAll' @:: Lens' NativeScript NativeScriptList@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAny' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAny' @:: Lens' NativeScript NativeScriptList@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptNOfK' @:: Lens' NativeScript (Prelude.Maybe ScriptNOfK)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptNOfK' @:: Lens' NativeScript ScriptNOfK@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidBefore' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidBefore' @:: Lens' NativeScript Data.Word.Word64@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidHereafter' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidHereafter' @:: Lens' NativeScript Data.Word.Word64@ -} -data NativeScript - = NativeScript'_constructor {_NativeScript'nativeScript :: !(Prelude.Maybe NativeScript'NativeScript), - _NativeScript'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show NativeScript where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data NativeScript'NativeScript - = NativeScript'ScriptPubkey !Data.ByteString.ByteString | - NativeScript'ScriptAll !NativeScriptList | - NativeScript'ScriptAny !NativeScriptList | - NativeScript'ScriptNOfK !ScriptNOfK | - NativeScript'InvalidBefore !Data.Word.Word64 | - NativeScript'InvalidHereafter !Data.Word.Word64 - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField NativeScript "maybe'nativeScript" (Prelude.Maybe NativeScript'NativeScript) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptPubkey" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptPubkey x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkey y__)) -instance Data.ProtoLens.Field.HasField NativeScript "scriptPubkey" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptPubkey x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkey y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAll" (Prelude.Maybe NativeScriptList) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptAll x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__)) -instance Data.ProtoLens.Field.HasField NativeScript "scriptAll" NativeScriptList where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptAll x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAny" (Prelude.Maybe NativeScriptList) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptAny x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__)) -instance Data.ProtoLens.Field.HasField NativeScript "scriptAny" NativeScriptList where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptAny x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptNOfK" (Prelude.Maybe ScriptNOfK) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptNOfK x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__)) -instance Data.ProtoLens.Field.HasField NativeScript "scriptNOfK" ScriptNOfK where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'ScriptNOfK x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidBefore" (Prelude.Maybe Data.Word.Word64) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'InvalidBefore x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__)) -instance Data.ProtoLens.Field.HasField NativeScript "invalidBefore" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'InvalidBefore x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidHereafter" (Prelude.Maybe Data.Word.Word64) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'InvalidHereafter x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__)) -instance Data.ProtoLens.Field.HasField NativeScript "invalidHereafter" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScript'nativeScript - (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (NativeScript'InvalidHereafter x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Message NativeScript where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.NativeScript" - packedMessageDescriptor _ - = "\n\ - \\fNativeScript\DC2%\n\ - \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\ - \\n\ - \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\ - \\n\ - \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\ - \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\ - \scriptNOfK\DC2'\n\ - \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\ - \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\ - \\rnative_script" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - scriptPubkey__field_descriptor - = Data.ProtoLens.FieldDescriptor - "script_pubkey" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'scriptPubkey")) :: - Data.ProtoLens.FieldDescriptor NativeScript - scriptAll__field_descriptor - = Data.ProtoLens.FieldDescriptor - "script_all" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor NativeScriptList) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'scriptAll")) :: - Data.ProtoLens.FieldDescriptor NativeScript - scriptAny__field_descriptor - = Data.ProtoLens.FieldDescriptor - "script_any" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor NativeScriptList) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'scriptAny")) :: - Data.ProtoLens.FieldDescriptor NativeScript - scriptNOfK__field_descriptor - = Data.ProtoLens.FieldDescriptor - "script_n_of_k" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor ScriptNOfK) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'scriptNOfK")) :: - Data.ProtoLens.FieldDescriptor NativeScript - invalidBefore__field_descriptor - = Data.ProtoLens.FieldDescriptor - "invalid_before" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'invalidBefore")) :: - Data.ProtoLens.FieldDescriptor NativeScript - invalidHereafter__field_descriptor - = Data.ProtoLens.FieldDescriptor - "invalid_hereafter" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'invalidHereafter")) :: - Data.ProtoLens.FieldDescriptor NativeScript - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, scriptPubkey__field_descriptor), - (Data.ProtoLens.Tag 2, scriptAll__field_descriptor), - (Data.ProtoLens.Tag 3, scriptAny__field_descriptor), - (Data.ProtoLens.Tag 4, scriptNOfK__field_descriptor), - (Data.ProtoLens.Tag 5, invalidBefore__field_descriptor), - (Data.ProtoLens.Tag 6, invalidHereafter__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _NativeScript'_unknownFields - (\ x__ y__ -> x__ {_NativeScript'_unknownFields = y__}) - defMessage - = NativeScript'_constructor - {_NativeScript'nativeScript = Prelude.Nothing, - _NativeScript'_unknownFields = []} - parseMessage - = let - loop :: - NativeScript -> Data.ProtoLens.Encoding.Bytes.Parser NativeScript - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "script_pubkey" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"scriptPubkey") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "script_all" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAll") y x) - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "script_any" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAny") y x) - 34 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "script_n_of_k" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptNOfK") y x) - 40 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_before" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"invalidBefore") y x) - 48 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_hereafter" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"invalidHereafter") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "NativeScript" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'nativeScript") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (NativeScript'ScriptPubkey v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v) - (Prelude.Just (NativeScript'ScriptAll v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (NativeScript'ScriptAny v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (NativeScript'ScriptNOfK v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (NativeScript'InvalidBefore v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 40) - (Data.ProtoLens.Encoding.Bytes.putVarInt v) - (Prelude.Just (NativeScript'InvalidHereafter v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 48) - (Data.ProtoLens.Encoding.Bytes.putVarInt v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData NativeScript where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_NativeScript'_unknownFields x__) - (Control.DeepSeq.deepseq (_NativeScript'nativeScript x__) ()) -instance Control.DeepSeq.NFData NativeScript'NativeScript where - rnf (NativeScript'ScriptPubkey x__) = Control.DeepSeq.rnf x__ - rnf (NativeScript'ScriptAll x__) = Control.DeepSeq.rnf x__ - rnf (NativeScript'ScriptAny x__) = Control.DeepSeq.rnf x__ - rnf (NativeScript'ScriptNOfK x__) = Control.DeepSeq.rnf x__ - rnf (NativeScript'InvalidBefore x__) = Control.DeepSeq.rnf x__ - rnf (NativeScript'InvalidHereafter x__) = Control.DeepSeq.rnf x__ -_NativeScript'ScriptPubkey :: - Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.ByteString.ByteString -_NativeScript'ScriptPubkey - = Data.ProtoLens.Prism.prism' - NativeScript'ScriptPubkey - (\ p__ - -> case p__ of - (NativeScript'ScriptPubkey p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_NativeScript'ScriptAll :: - Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList -_NativeScript'ScriptAll - = Data.ProtoLens.Prism.prism' - NativeScript'ScriptAll - (\ p__ - -> case p__ of - (NativeScript'ScriptAll p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_NativeScript'ScriptAny :: - Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList -_NativeScript'ScriptAny - = Data.ProtoLens.Prism.prism' - NativeScript'ScriptAny - (\ p__ - -> case p__ of - (NativeScript'ScriptAny p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_NativeScript'ScriptNOfK :: - Data.ProtoLens.Prism.Prism' NativeScript'NativeScript ScriptNOfK -_NativeScript'ScriptNOfK - = Data.ProtoLens.Prism.prism' - NativeScript'ScriptNOfK - (\ p__ - -> case p__ of - (NativeScript'ScriptNOfK p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_NativeScript'InvalidBefore :: - Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64 -_NativeScript'InvalidBefore - = Data.ProtoLens.Prism.prism' - NativeScript'InvalidBefore - (\ p__ - -> case p__ of - (NativeScript'InvalidBefore p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_NativeScript'InvalidHereafter :: - Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64 -_NativeScript'InvalidHereafter - = Data.ProtoLens.Prism.prism' - NativeScript'InvalidHereafter - (\ p__ - -> case p__ of - (NativeScript'InvalidHereafter p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' NativeScriptList [NativeScript]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' NativeScriptList (Data.Vector.Vector NativeScript)@ -} -data NativeScriptList - = NativeScriptList'_constructor {_NativeScriptList'items :: !(Data.Vector.Vector NativeScript), - _NativeScriptList'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show NativeScriptList where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField NativeScriptList "items" [NativeScript] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScriptList'items - (\ x__ y__ -> x__ {_NativeScriptList'items = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField NativeScriptList "vec'items" (Data.Vector.Vector NativeScript) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _NativeScriptList'items - (\ x__ y__ -> x__ {_NativeScriptList'items = y__})) - Prelude.id -instance Data.ProtoLens.Message NativeScriptList where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.NativeScriptList" - packedMessageDescriptor _ - = "\n\ - \\DLENativeScriptList\DC2;\n\ - \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - items__field_descriptor - = Data.ProtoLens.FieldDescriptor - "items" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor NativeScript) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: - Data.ProtoLens.FieldDescriptor NativeScriptList - in - Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _NativeScriptList'_unknownFields - (\ x__ y__ -> x__ {_NativeScriptList'_unknownFields = y__}) - defMessage - = NativeScriptList'_constructor - {_NativeScriptList'items = Data.Vector.Generic.empty, - _NativeScriptList'_unknownFields = []} - parseMessage - = let - loop :: - NativeScriptList - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript - -> Data.ProtoLens.Encoding.Bytes.Parser NativeScriptList - loop x mutable'items - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "items" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'items y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'items - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'items) - "NativeScriptList" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData NativeScriptList where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_NativeScriptList'_unknownFields x__) - (Control.DeepSeq.deepseq (_NativeScriptList'items 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'coinsPerUtxoByte :: !Data.Word.Word64, - _PParams'maxTxSize :: !Data.Word.Word64, - _PParams'minFeeCoefficient :: !Data.Word.Word64, - _PParams'minFeeConstant :: !Data.Word.Word64, - _PParams'maxBlockBodySize :: !Data.Word.Word64, - _PParams'maxBlockHeaderSize :: !Data.Word.Word64, - _PParams'stakeKeyDeposit :: !Data.Word.Word64, - _PParams'poolDeposit :: !Data.Word.Word64, - _PParams'poolRetirementEpochBound :: !Data.Word.Word64, - _PParams'desiredNumberOfPools :: !Data.Word.Word64, - _PParams'poolInfluence :: !(Prelude.Maybe RationalNumber), - _PParams'monetaryExpansion :: !(Prelude.Maybe RationalNumber), - _PParams'treasuryExpansion :: !(Prelude.Maybe RationalNumber), - _PParams'minPoolCost :: !Data.Word.Word64, - _PParams'protocolVersion :: !(Prelude.Maybe ProtocolVersion), - _PParams'maxValueSize :: !Data.Word.Word64, - _PParams'collateralPercentage :: !Data.Word.Word64, - _PParams'maxCollateralInputs :: !Data.Word.Word64, - _PParams'costModels :: !(Prelude.Maybe CostModels), - _PParams'prices :: !(Prelude.Maybe ExPrices), - _PParams'maxExecutionUnitsPerTransaction :: !(Prelude.Maybe ExUnits), - _PParams'maxExecutionUnitsPerBlock :: !(Prelude.Maybe ExUnits), - _PParams'minFeeScriptRefCostPerByte :: !(Prelude.Maybe RationalNumber), - _PParams'poolVotingThresholds :: !(Prelude.Maybe VotingThresholds), - _PParams'drepVotingThresholds :: !(Prelude.Maybe VotingThresholds), - _PParams'minCommitteeSize :: !Data.Word.Word32, - _PParams'committeeTermLimit :: !Data.Word.Word64, - _PParams'governanceActionValidityPeriod :: !Data.Word.Word64, - _PParams'governanceActionDeposit :: !Data.Word.Word64, - _PParams'drepDeposit :: !Data.Word.Word64, - _PParams'drepInactivityPeriod :: !Data.Word.Word64, - _PParams'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show PParams where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField PParams "coinsPerUtxoByte" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'coinsPerUtxoByte - (\ x__ y__ -> x__ {_PParams'coinsPerUtxoByte = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "maxTxSize" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxTxSize (\ x__ y__ -> x__ {_PParams'maxTxSize = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "minFeeCoefficient" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'minFeeCoefficient - (\ x__ y__ -> x__ {_PParams'minFeeCoefficient = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "minFeeConstant" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'minFeeConstant - (\ x__ y__ -> x__ {_PParams'minFeeConstant = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "maxBlockBodySize" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxBlockBodySize - (\ x__ y__ -> x__ {_PParams'maxBlockBodySize = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "maxBlockHeaderSize" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxBlockHeaderSize - (\ x__ y__ -> x__ {_PParams'maxBlockHeaderSize = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "stakeKeyDeposit" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'stakeKeyDeposit - (\ x__ y__ -> x__ {_PParams'stakeKeyDeposit = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "poolDeposit" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'poolDeposit - (\ x__ y__ -> x__ {_PParams'poolDeposit = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "poolRetirementEpochBound" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'poolRetirementEpochBound - (\ x__ y__ -> x__ {_PParams'poolRetirementEpochBound = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "desiredNumberOfPools" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'desiredNumberOfPools - (\ x__ y__ -> x__ {_PParams'desiredNumberOfPools = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "poolInfluence" RationalNumber where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'poolInfluence - (\ x__ y__ -> x__ {_PParams'poolInfluence = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'poolInfluence" (Prelude.Maybe RationalNumber) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'poolInfluence - (\ x__ y__ -> x__ {_PParams'poolInfluence = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "monetaryExpansion" RationalNumber where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'monetaryExpansion - (\ x__ y__ -> x__ {_PParams'monetaryExpansion = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'monetaryExpansion" (Prelude.Maybe RationalNumber) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'monetaryExpansion - (\ x__ y__ -> x__ {_PParams'monetaryExpansion = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "treasuryExpansion" RationalNumber where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'treasuryExpansion - (\ x__ y__ -> x__ {_PParams'treasuryExpansion = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'treasuryExpansion" (Prelude.Maybe RationalNumber) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'treasuryExpansion - (\ x__ y__ -> x__ {_PParams'treasuryExpansion = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "minPoolCost" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'minPoolCost - (\ x__ y__ -> x__ {_PParams'minPoolCost = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "protocolVersion" ProtocolVersion where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'protocolVersion - (\ x__ y__ -> x__ {_PParams'protocolVersion = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'protocolVersion" (Prelude.Maybe ProtocolVersion) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'protocolVersion - (\ x__ y__ -> x__ {_PParams'protocolVersion = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "maxValueSize" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxValueSize - (\ x__ y__ -> x__ {_PParams'maxValueSize = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "collateralPercentage" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'collateralPercentage - (\ x__ y__ -> x__ {_PParams'collateralPercentage = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "maxCollateralInputs" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxCollateralInputs - (\ x__ y__ -> x__ {_PParams'maxCollateralInputs = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "costModels" CostModels where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'costModels (\ x__ y__ -> x__ {_PParams'costModels = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'costModels" (Prelude.Maybe CostModels) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'costModels (\ x__ y__ -> x__ {_PParams'costModels = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "prices" ExPrices where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'prices (\ x__ y__ -> x__ {_PParams'prices = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'prices" (Prelude.Maybe ExPrices) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'prices (\ x__ y__ -> x__ {_PParams'prices = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerTransaction" ExUnits where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxExecutionUnitsPerTransaction - (\ x__ y__ - -> x__ {_PParams'maxExecutionUnitsPerTransaction = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerTransaction" (Prelude.Maybe ExUnits) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxExecutionUnitsPerTransaction - (\ x__ y__ - -> x__ {_PParams'maxExecutionUnitsPerTransaction = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerBlock" ExUnits where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxExecutionUnitsPerBlock - (\ x__ y__ -> x__ {_PParams'maxExecutionUnitsPerBlock = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerBlock" (Prelude.Maybe ExUnits) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'maxExecutionUnitsPerBlock - (\ x__ y__ -> x__ {_PParams'maxExecutionUnitsPerBlock = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "minFeeScriptRefCostPerByte" RationalNumber where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'minFeeScriptRefCostPerByte - (\ x__ y__ -> x__ {_PParams'minFeeScriptRefCostPerByte = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'minFeeScriptRefCostPerByte" (Prelude.Maybe RationalNumber) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'minFeeScriptRefCostPerByte - (\ x__ y__ -> x__ {_PParams'minFeeScriptRefCostPerByte = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "poolVotingThresholds" VotingThresholds where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'poolVotingThresholds - (\ x__ y__ -> x__ {_PParams'poolVotingThresholds = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'poolVotingThresholds" (Prelude.Maybe VotingThresholds) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'poolVotingThresholds - (\ x__ y__ -> x__ {_PParams'poolVotingThresholds = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "drepVotingThresholds" VotingThresholds where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'drepVotingThresholds - (\ x__ y__ -> x__ {_PParams'drepVotingThresholds = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PParams "maybe'drepVotingThresholds" (Prelude.Maybe VotingThresholds) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'drepVotingThresholds - (\ x__ y__ -> x__ {_PParams'drepVotingThresholds = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "minCommitteeSize" Data.Word.Word32 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'minCommitteeSize - (\ x__ y__ -> x__ {_PParams'minCommitteeSize = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "committeeTermLimit" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'committeeTermLimit - (\ x__ y__ -> x__ {_PParams'committeeTermLimit = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "governanceActionValidityPeriod" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'governanceActionValidityPeriod - (\ x__ y__ -> x__ {_PParams'governanceActionValidityPeriod = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "governanceActionDeposit" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'governanceActionDeposit - (\ x__ y__ -> x__ {_PParams'governanceActionDeposit = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "drepDeposit" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'drepDeposit - (\ x__ y__ -> x__ {_PParams'drepDeposit = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PParams "drepInactivityPeriod" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PParams'drepInactivityPeriod - (\ x__ y__ -> x__ {_PParams'drepInactivityPeriod = y__})) - Prelude.id -instance Data.ProtoLens.Message PParams where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.PParams" - packedMessageDescriptor _ - = "\n\ - \\aPParams\DC21\n\ - \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByteB\STX0\SOH\DC2\"\n\ - \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSizeB\STX0\SOH\DC22\n\ - \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficientB\STX0\SOH\DC2,\n\ - \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstantB\STX0\SOH\DC21\n\ - \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySizeB\STX0\SOH\DC25\n\ - \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSizeB\STX0\SOH\DC2.\n\ - \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDepositB\STX0\SOH\DC2%\n\ - \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDepositB\STX0\SOH\DC2=\n\ - \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\ - \\ETBdesired_number_of_pools\CAN\n\ - \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\ - \\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\ - \\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\ - \\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2&\n\ - \\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCostB\STX0\SOH\DC2S\n\ - \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2(\n\ - \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSizeB\STX0\SOH\DC27\n\ - \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentageB\STX0\SOH\DC26\n\ - \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputsB\STX0\SOH\DC2D\n\ - \\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\ - \costModels\DC29\n\ - \\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\ - \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\ - \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\DC2m\n\ - \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2_\n\ - \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2_\n\ - \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4drepVotingThresholds\DC2,\n\ - \\DC2min_committee_size\CAN\SUB \SOH(\rR\DLEminCommitteeSize\DC20\n\ - \\DC4committee_term_limit\CAN\ESC \SOH(\EOTR\DC2committeeTermLimit\DC2I\n\ - \!governance_action_validity_period\CAN\FS \SOH(\EOTR\RSgovernanceActionValidityPeriod\DC2>\n\ - \\EMgovernance_action_deposit\CAN\GS \SOH(\EOTR\ETBgovernanceActionDepositB\STX0\SOH\DC2%\n\ - \\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDepositB\STX0\SOH\DC24\n\ - \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriod" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - coinsPerUtxoByte__field_descriptor - = Data.ProtoLens.FieldDescriptor - "coins_per_utxo_byte" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"coinsPerUtxoByte")) :: - Data.ProtoLens.FieldDescriptor PParams - maxTxSize__field_descriptor - = Data.ProtoLens.FieldDescriptor - "max_tx_size" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"maxTxSize")) :: - Data.ProtoLens.FieldDescriptor PParams - minFeeCoefficient__field_descriptor - = Data.ProtoLens.FieldDescriptor - "min_fee_coefficient" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"minFeeCoefficient")) :: - Data.ProtoLens.FieldDescriptor PParams - minFeeConstant__field_descriptor - = Data.ProtoLens.FieldDescriptor - "min_fee_constant" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"minFeeConstant")) :: - Data.ProtoLens.FieldDescriptor PParams - maxBlockBodySize__field_descriptor - = Data.ProtoLens.FieldDescriptor - "max_block_body_size" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"maxBlockBodySize")) :: - Data.ProtoLens.FieldDescriptor PParams - maxBlockHeaderSize__field_descriptor - = Data.ProtoLens.FieldDescriptor - "max_block_header_size" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"maxBlockHeaderSize")) :: - Data.ProtoLens.FieldDescriptor PParams - stakeKeyDeposit__field_descriptor - = Data.ProtoLens.FieldDescriptor - "stake_key_deposit" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"stakeKeyDeposit")) :: - Data.ProtoLens.FieldDescriptor PParams - poolDeposit__field_descriptor - = Data.ProtoLens.FieldDescriptor - "pool_deposit" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"poolDeposit")) :: - Data.ProtoLens.FieldDescriptor PParams - poolRetirementEpochBound__field_descriptor - = Data.ProtoLens.FieldDescriptor - "pool_retirement_epoch_bound" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"poolRetirementEpochBound")) :: - Data.ProtoLens.FieldDescriptor PParams - desiredNumberOfPools__field_descriptor - = Data.ProtoLens.FieldDescriptor - "desired_number_of_pools" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"desiredNumberOfPools")) :: - Data.ProtoLens.FieldDescriptor PParams - poolInfluence__field_descriptor - = Data.ProtoLens.FieldDescriptor - "pool_influence" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor RationalNumber) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'poolInfluence")) :: - Data.ProtoLens.FieldDescriptor PParams - monetaryExpansion__field_descriptor - = Data.ProtoLens.FieldDescriptor - "monetary_expansion" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor RationalNumber) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'monetaryExpansion")) :: - Data.ProtoLens.FieldDescriptor PParams - treasuryExpansion__field_descriptor - = Data.ProtoLens.FieldDescriptor - "treasury_expansion" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor RationalNumber) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'treasuryExpansion")) :: - Data.ProtoLens.FieldDescriptor PParams - minPoolCost__field_descriptor - = Data.ProtoLens.FieldDescriptor - "min_pool_cost" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"minPoolCost")) :: - Data.ProtoLens.FieldDescriptor PParams - protocolVersion__field_descriptor - = Data.ProtoLens.FieldDescriptor - "protocol_version" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor ProtocolVersion) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'protocolVersion")) :: - Data.ProtoLens.FieldDescriptor PParams - maxValueSize__field_descriptor - = Data.ProtoLens.FieldDescriptor - "max_value_size" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"maxValueSize")) :: - Data.ProtoLens.FieldDescriptor PParams - collateralPercentage__field_descriptor - = Data.ProtoLens.FieldDescriptor - "collateral_percentage" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"collateralPercentage")) :: - Data.ProtoLens.FieldDescriptor PParams - maxCollateralInputs__field_descriptor - = Data.ProtoLens.FieldDescriptor - "max_collateral_inputs" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"maxCollateralInputs")) :: - Data.ProtoLens.FieldDescriptor PParams - costModels__field_descriptor - = Data.ProtoLens.FieldDescriptor - "cost_models" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor CostModels) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'costModels")) :: - Data.ProtoLens.FieldDescriptor PParams - prices__field_descriptor - = Data.ProtoLens.FieldDescriptor - "prices" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor ExPrices) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'prices")) :: - Data.ProtoLens.FieldDescriptor PParams - maxExecutionUnitsPerTransaction__field_descriptor - = Data.ProtoLens.FieldDescriptor - "max_execution_units_per_transaction" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor ExUnits) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field - @"maybe'maxExecutionUnitsPerTransaction")) :: - Data.ProtoLens.FieldDescriptor PParams - maxExecutionUnitsPerBlock__field_descriptor - = Data.ProtoLens.FieldDescriptor - "max_execution_units_per_block" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor ExUnits) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'maxExecutionUnitsPerBlock")) :: - Data.ProtoLens.FieldDescriptor PParams - minFeeScriptRefCostPerByte__field_descriptor - = Data.ProtoLens.FieldDescriptor - "min_fee_script_ref_cost_per_byte" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor RationalNumber) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field - @"maybe'minFeeScriptRefCostPerByte")) :: - Data.ProtoLens.FieldDescriptor PParams - poolVotingThresholds__field_descriptor - = Data.ProtoLens.FieldDescriptor - "pool_voting_thresholds" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor VotingThresholds) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'poolVotingThresholds")) :: - Data.ProtoLens.FieldDescriptor PParams - drepVotingThresholds__field_descriptor - = Data.ProtoLens.FieldDescriptor - "drep_voting_thresholds" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor VotingThresholds) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'drepVotingThresholds")) :: - Data.ProtoLens.FieldDescriptor PParams - minCommitteeSize__field_descriptor - = Data.ProtoLens.FieldDescriptor - "min_committee_size" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"minCommitteeSize")) :: - Data.ProtoLens.FieldDescriptor PParams - committeeTermLimit__field_descriptor - = Data.ProtoLens.FieldDescriptor - "committee_term_limit" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"committeeTermLimit")) :: - Data.ProtoLens.FieldDescriptor PParams - governanceActionValidityPeriod__field_descriptor - = Data.ProtoLens.FieldDescriptor - "governance_action_validity_period" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"governanceActionValidityPeriod")) :: - Data.ProtoLens.FieldDescriptor PParams - governanceActionDeposit__field_descriptor - = Data.ProtoLens.FieldDescriptor - "governance_action_deposit" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"governanceActionDeposit")) :: - Data.ProtoLens.FieldDescriptor PParams - drepDeposit__field_descriptor - = Data.ProtoLens.FieldDescriptor - "drep_deposit" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"drepDeposit")) :: - Data.ProtoLens.FieldDescriptor PParams - drepInactivityPeriod__field_descriptor - = Data.ProtoLens.FieldDescriptor - "drep_inactivity_period" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"drepInactivityPeriod")) :: - Data.ProtoLens.FieldDescriptor PParams - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, coinsPerUtxoByte__field_descriptor), - (Data.ProtoLens.Tag 2, maxTxSize__field_descriptor), - (Data.ProtoLens.Tag 3, minFeeCoefficient__field_descriptor), - (Data.ProtoLens.Tag 4, minFeeConstant__field_descriptor), - (Data.ProtoLens.Tag 5, maxBlockBodySize__field_descriptor), - (Data.ProtoLens.Tag 6, maxBlockHeaderSize__field_descriptor), - (Data.ProtoLens.Tag 7, stakeKeyDeposit__field_descriptor), - (Data.ProtoLens.Tag 8, poolDeposit__field_descriptor), - (Data.ProtoLens.Tag 9, poolRetirementEpochBound__field_descriptor), - (Data.ProtoLens.Tag 10, desiredNumberOfPools__field_descriptor), - (Data.ProtoLens.Tag 11, poolInfluence__field_descriptor), - (Data.ProtoLens.Tag 12, monetaryExpansion__field_descriptor), - (Data.ProtoLens.Tag 13, treasuryExpansion__field_descriptor), - (Data.ProtoLens.Tag 14, minPoolCost__field_descriptor), - (Data.ProtoLens.Tag 15, protocolVersion__field_descriptor), - (Data.ProtoLens.Tag 16, maxValueSize__field_descriptor), - (Data.ProtoLens.Tag 17, collateralPercentage__field_descriptor), - (Data.ProtoLens.Tag 18, maxCollateralInputs__field_descriptor), - (Data.ProtoLens.Tag 19, costModels__field_descriptor), - (Data.ProtoLens.Tag 20, prices__field_descriptor), - (Data.ProtoLens.Tag 21, - maxExecutionUnitsPerTransaction__field_descriptor), - (Data.ProtoLens.Tag 22, - maxExecutionUnitsPerBlock__field_descriptor), - (Data.ProtoLens.Tag 23, - minFeeScriptRefCostPerByte__field_descriptor), - (Data.ProtoLens.Tag 24, poolVotingThresholds__field_descriptor), - (Data.ProtoLens.Tag 25, drepVotingThresholds__field_descriptor), - (Data.ProtoLens.Tag 26, minCommitteeSize__field_descriptor), - (Data.ProtoLens.Tag 27, committeeTermLimit__field_descriptor), - (Data.ProtoLens.Tag 28, - governanceActionValidityPeriod__field_descriptor), - (Data.ProtoLens.Tag 29, governanceActionDeposit__field_descriptor), - (Data.ProtoLens.Tag 30, drepDeposit__field_descriptor), - (Data.ProtoLens.Tag 31, drepInactivityPeriod__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _PParams'_unknownFields - (\ x__ y__ -> x__ {_PParams'_unknownFields = y__}) - defMessage - = PParams'_constructor - {_PParams'coinsPerUtxoByte = Data.ProtoLens.fieldDefault, - _PParams'maxTxSize = Data.ProtoLens.fieldDefault, - _PParams'minFeeCoefficient = Data.ProtoLens.fieldDefault, - _PParams'minFeeConstant = Data.ProtoLens.fieldDefault, - _PParams'maxBlockBodySize = Data.ProtoLens.fieldDefault, - _PParams'maxBlockHeaderSize = Data.ProtoLens.fieldDefault, - _PParams'stakeKeyDeposit = Data.ProtoLens.fieldDefault, - _PParams'poolDeposit = Data.ProtoLens.fieldDefault, - _PParams'poolRetirementEpochBound = Data.ProtoLens.fieldDefault, - _PParams'desiredNumberOfPools = Data.ProtoLens.fieldDefault, - _PParams'poolInfluence = Prelude.Nothing, - _PParams'monetaryExpansion = Prelude.Nothing, - _PParams'treasuryExpansion = Prelude.Nothing, - _PParams'minPoolCost = Data.ProtoLens.fieldDefault, - _PParams'protocolVersion = Prelude.Nothing, - _PParams'maxValueSize = Data.ProtoLens.fieldDefault, - _PParams'collateralPercentage = Data.ProtoLens.fieldDefault, - _PParams'maxCollateralInputs = Data.ProtoLens.fieldDefault, - _PParams'costModels = Prelude.Nothing, - _PParams'prices = Prelude.Nothing, - _PParams'maxExecutionUnitsPerTransaction = Prelude.Nothing, - _PParams'maxExecutionUnitsPerBlock = Prelude.Nothing, - _PParams'minFeeScriptRefCostPerByte = Prelude.Nothing, - _PParams'poolVotingThresholds = Prelude.Nothing, - _PParams'drepVotingThresholds = Prelude.Nothing, - _PParams'minCommitteeSize = Data.ProtoLens.fieldDefault, - _PParams'committeeTermLimit = Data.ProtoLens.fieldDefault, - _PParams'governanceActionValidityPeriod = Data.ProtoLens.fieldDefault, - _PParams'governanceActionDeposit = Data.ProtoLens.fieldDefault, - _PParams'drepDeposit = Data.ProtoLens.fieldDefault, - _PParams'drepInactivityPeriod = Data.ProtoLens.fieldDefault, - _PParams'_unknownFields = []} - parseMessage - = let - loop :: PParams -> Data.ProtoLens.Encoding.Bytes.Parser PParams - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "coins_per_utxo_byte" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"coinsPerUtxoByte") y x) - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "max_tx_size" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"maxTxSize") y x) - 24 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "min_fee_coefficient" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"minFeeCoefficient") y x) - 32 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "min_fee_constant" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"minFeeConstant") y x) - 40 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "max_block_body_size" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"maxBlockBodySize") y x) - 48 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "max_block_header_size" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"maxBlockHeaderSize") y x) - 56 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "stake_key_deposit" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"stakeKeyDeposit") y x) - 64 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "pool_deposit" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"poolDeposit") y x) - 72 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "pool_retirement_epoch_bound" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"poolRetirementEpochBound") y x) - 80 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "desired_number_of_pools" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"desiredNumberOfPools") y x) - 90 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "pool_influence" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"poolInfluence") y x) - 98 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "monetary_expansion" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"monetaryExpansion") y x) - 106 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "treasury_expansion" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"treasuryExpansion") y x) - 112 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "min_pool_cost" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"minPoolCost") y x) - 122 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "protocol_version" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"protocolVersion") y x) - 128 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "max_value_size" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"maxValueSize") y x) - 136 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "collateral_percentage" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"collateralPercentage") y x) - 144 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "max_collateral_inputs" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"maxCollateralInputs") y x) - 154 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "cost_models" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"costModels") y x) - 162 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "prices" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"prices") y x) - 170 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "max_execution_units_per_transaction" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"maxExecutionUnitsPerTransaction") - y x) - 178 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "max_execution_units_per_block" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"maxExecutionUnitsPerBlock") y x) - 186 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "min_fee_script_ref_cost_per_byte" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"minFeeScriptRefCostPerByte") y x) - 194 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "pool_voting_thresholds" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"poolVotingThresholds") y x) - 202 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "drep_voting_thresholds" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"drepVotingThresholds") y x) - 208 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "min_committee_size" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"minCommitteeSize") y x) - 216 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "committee_term_limit" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"committeeTermLimit") y x) - 224 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "governance_action_validity_period" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"governanceActionValidityPeriod") - y x) - 232 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "governance_action_deposit" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"governanceActionDeposit") y x) - 240 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "drep_deposit" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"drepDeposit") y x) - 248 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt - "drep_inactivity_period" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"drepInactivityPeriod") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "PParams" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"coinsPerUtxoByte") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxTxSize") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"minFeeCoefficient") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"minFeeConstant") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 32) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"maxBlockBodySize") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 40) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"maxBlockHeaderSize") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 48) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"stakeKeyDeposit") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 56) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field @"poolDeposit") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 64) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"poolRetirementEpochBound") - _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 72) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"desiredNumberOfPools") - _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 80) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'poolInfluence") - _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 90) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'monetaryExpansion") - _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 98) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'treasuryExpansion") - _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 106) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"minPoolCost") - _x - in - if (Prelude.==) - _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 112) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'protocolVersion") - _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 122) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"maxValueSize") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 128) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"collateralPercentage") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 136) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"maxCollateralInputs") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 144) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'costModels") - _x - of - Prelude.Nothing - -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 154) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'prices") - _x - of - Prelude.Nothing - -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 162) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'maxExecutionUnitsPerTransaction") - _x - of - Prelude.Nothing - -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 170) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'maxExecutionUnitsPerBlock") - _x - of - Prelude.Nothing - -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 178) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'minFeeScriptRefCostPerByte") - _x - of - Prelude.Nothing - -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 186) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'poolVotingThresholds") - _x - of - Prelude.Nothing - -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 194) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field - @"maybe'drepVotingThresholds") - _x - of - Prelude.Nothing - -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 202) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral - (Data.ByteString.length - bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes - bs)) - Data.ProtoLens.encodeMessage - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"minCommitteeSize") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 208) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt - Prelude.fromIntegral - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"committeeTermLimit") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 216) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"governanceActionValidityPeriod") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 224) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"governanceActionDeposit") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 232) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"drepDeposit") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 240) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view - (Data.ProtoLens.Field.field - @"drepInactivityPeriod") - _x - in - if (Prelude.==) - _v - Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - 248) - (Data.ProtoLens.Encoding.Bytes.putVarInt - _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view - Data.ProtoLens.unknownFields - _x)))))))))))))))))))))))))))))))) -instance Control.DeepSeq.NFData PParams where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_PParams'_unknownFields x__) - (Control.DeepSeq.deepseq - (_PParams'coinsPerUtxoByte x__) - (Control.DeepSeq.deepseq - (_PParams'maxTxSize x__) - (Control.DeepSeq.deepseq - (_PParams'minFeeCoefficient x__) - (Control.DeepSeq.deepseq - (_PParams'minFeeConstant x__) - (Control.DeepSeq.deepseq - (_PParams'maxBlockBodySize x__) - (Control.DeepSeq.deepseq - (_PParams'maxBlockHeaderSize x__) - (Control.DeepSeq.deepseq - (_PParams'stakeKeyDeposit x__) - (Control.DeepSeq.deepseq - (_PParams'poolDeposit x__) - (Control.DeepSeq.deepseq - (_PParams'poolRetirementEpochBound x__) - (Control.DeepSeq.deepseq - (_PParams'desiredNumberOfPools x__) - (Control.DeepSeq.deepseq - (_PParams'poolInfluence x__) - (Control.DeepSeq.deepseq - (_PParams'monetaryExpansion x__) - (Control.DeepSeq.deepseq - (_PParams'treasuryExpansion x__) - (Control.DeepSeq.deepseq - (_PParams'minPoolCost x__) - (Control.DeepSeq.deepseq - (_PParams'protocolVersion x__) - (Control.DeepSeq.deepseq - (_PParams'maxValueSize x__) - (Control.DeepSeq.deepseq - (_PParams'collateralPercentage x__) - (Control.DeepSeq.deepseq - (_PParams'maxCollateralInputs - x__) - (Control.DeepSeq.deepseq - (_PParams'costModels x__) - (Control.DeepSeq.deepseq - (_PParams'prices x__) - (Control.DeepSeq.deepseq - (_PParams'maxExecutionUnitsPerTransaction - x__) - (Control.DeepSeq.deepseq - (_PParams'maxExecutionUnitsPerBlock - x__) - (Control.DeepSeq.deepseq - (_PParams'minFeeScriptRefCostPerByte - x__) - (Control.DeepSeq.deepseq - (_PParams'poolVotingThresholds - x__) - (Control.DeepSeq.deepseq - (_PParams'drepVotingThresholds - x__) - (Control.DeepSeq.deepseq - (_PParams'minCommitteeSize - x__) - (Control.DeepSeq.deepseq - (_PParams'committeeTermLimit - x__) - (Control.DeepSeq.deepseq - (_PParams'governanceActionValidityPeriod - x__) - (Control.DeepSeq.deepseq - (_PParams'governanceActionDeposit - x__) - (Control.DeepSeq.deepseq - (_PParams'drepDeposit - x__) - (Control.DeepSeq.deepseq - (_PParams'drepInactivityPeriod - x__) - ()))))))))))))))))))))))))))))))) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusData' @:: Lens' PlutusData (Prelude.Maybe PlutusData'PlutusData)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'constr' @:: Lens' PlutusData (Prelude.Maybe Constr)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.constr' @:: Lens' PlutusData Constr@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'map' @:: Lens' PlutusData (Prelude.Maybe PlutusDataMap)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.map' @:: Lens' PlutusData PlutusDataMap@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' PlutusData (Prelude.Maybe BigInt)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigInt' @:: Lens' PlutusData BigInt@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'boundedBytes' @:: Lens' PlutusData (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.boundedBytes' @:: Lens' PlutusData Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'array' @:: Lens' PlutusData (Prelude.Maybe PlutusDataArray)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.array' @:: Lens' PlutusData PlutusDataArray@ -} -data PlutusData - = PlutusData'_constructor {_PlutusData'plutusData :: !(Prelude.Maybe PlutusData'PlutusData), - _PlutusData'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show PlutusData where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data PlutusData'PlutusData - = PlutusData'Constr !Constr | - PlutusData'Map !PlutusDataMap | - PlutusData'BigInt !BigInt | - PlutusData'BoundedBytes !Data.ByteString.ByteString | - PlutusData'Array !PlutusDataArray - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField PlutusData "maybe'plutusData" (Prelude.Maybe PlutusData'PlutusData) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PlutusData "maybe'constr" (Prelude.Maybe Constr) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'Constr y__)) -instance Data.ProtoLens.Field.HasField PlutusData "constr" Constr where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'Constr y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField PlutusData "maybe'map" (Prelude.Maybe PlutusDataMap) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'Map y__)) -instance Data.ProtoLens.Field.HasField PlutusData "map" PlutusDataMap where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'Map y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField PlutusData "maybe'bigInt" (Prelude.Maybe BigInt) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__)) -instance Data.ProtoLens.Field.HasField PlutusData "bigInt" BigInt where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField PlutusData "maybe'boundedBytes" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'BoundedBytes x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__)) -instance Data.ProtoLens.Field.HasField PlutusData "boundedBytes" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'BoundedBytes x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField PlutusData "maybe'array" (Prelude.Maybe PlutusDataArray) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'Array y__)) -instance Data.ProtoLens.Field.HasField PlutusData "array" PlutusDataArray where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusData'plutusData - (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap PlutusData'Array y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Message PlutusData where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusData" - packedMessageDescriptor _ - = "\n\ - \\n\ - \PlutusData\DC29\n\ - \\ACKconstr\CAN\STX \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\ - \\ETXmap\CAN\ETX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\ - \\abig_int\CAN\EOT \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\ - \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2@\n\ - \\ENQarray\CAN\ACK \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\ - \\vplutus_data" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - constr__field_descriptor - = Data.ProtoLens.FieldDescriptor - "constr" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Constr) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'constr")) :: - Data.ProtoLens.FieldDescriptor PlutusData - map__field_descriptor - = Data.ProtoLens.FieldDescriptor - "map" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusDataMap) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'map")) :: - Data.ProtoLens.FieldDescriptor PlutusData - bigInt__field_descriptor - = Data.ProtoLens.FieldDescriptor - "big_int" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor BigInt) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'bigInt")) :: - Data.ProtoLens.FieldDescriptor PlutusData - boundedBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor - "bounded_bytes" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'boundedBytes")) :: - Data.ProtoLens.FieldDescriptor PlutusData - array__field_descriptor - = Data.ProtoLens.FieldDescriptor - "array" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusDataArray) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'array")) :: - Data.ProtoLens.FieldDescriptor PlutusData - in - Data.Map.fromList - [(Data.ProtoLens.Tag 2, constr__field_descriptor), - (Data.ProtoLens.Tag 3, map__field_descriptor), - (Data.ProtoLens.Tag 4, bigInt__field_descriptor), - (Data.ProtoLens.Tag 5, boundedBytes__field_descriptor), - (Data.ProtoLens.Tag 6, array__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _PlutusData'_unknownFields - (\ x__ y__ -> x__ {_PlutusData'_unknownFields = y__}) - defMessage - = PlutusData'_constructor - {_PlutusData'plutusData = Prelude.Nothing, - _PlutusData'_unknownFields = []} - parseMessage - = let - loop :: - PlutusData -> Data.ProtoLens.Encoding.Bytes.Parser PlutusData - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "constr" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"constr") y x) - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "map" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") y x) - 34 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "big_int" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigInt") y x) - 42 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "bounded_bytes" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"boundedBytes") y x) - 50 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "array" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "PlutusData" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'plutusData") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (PlutusData'Constr v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (PlutusData'Map v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (PlutusData'BigInt v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (PlutusData'BoundedBytes v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 42) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v) - (Prelude.Just (PlutusData'Array v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 50) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData PlutusData where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_PlutusData'_unknownFields x__) - (Control.DeepSeq.deepseq (_PlutusData'plutusData x__) ()) -instance Control.DeepSeq.NFData PlutusData'PlutusData where - rnf (PlutusData'Constr x__) = Control.DeepSeq.rnf x__ - rnf (PlutusData'Map x__) = Control.DeepSeq.rnf x__ - rnf (PlutusData'BigInt x__) = Control.DeepSeq.rnf x__ - rnf (PlutusData'BoundedBytes x__) = Control.DeepSeq.rnf x__ - rnf (PlutusData'Array x__) = Control.DeepSeq.rnf x__ -_PlutusData'Constr :: - Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Constr -_PlutusData'Constr - = Data.ProtoLens.Prism.prism' - PlutusData'Constr - (\ p__ - -> case p__ of - (PlutusData'Constr p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_PlutusData'Map :: - Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataMap -_PlutusData'Map - = Data.ProtoLens.Prism.prism' - PlutusData'Map - (\ p__ - -> case p__ of - (PlutusData'Map p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_PlutusData'BigInt :: - Data.ProtoLens.Prism.Prism' PlutusData'PlutusData BigInt -_PlutusData'BigInt - = Data.ProtoLens.Prism.prism' - PlutusData'BigInt - (\ p__ - -> case p__ of - (PlutusData'BigInt p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_PlutusData'BoundedBytes :: - Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Data.ByteString.ByteString -_PlutusData'BoundedBytes - = Data.ProtoLens.Prism.prism' - PlutusData'BoundedBytes - (\ p__ - -> case p__ of - (PlutusData'BoundedBytes p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_PlutusData'Array :: - Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataArray -_PlutusData'Array - = Data.ProtoLens.Prism.prism' - PlutusData'Array - (\ p__ - -> case p__ of - (PlutusData'Array p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' PlutusDataArray [PlutusData]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' PlutusDataArray (Data.Vector.Vector PlutusData)@ -} -data PlutusDataArray - = PlutusDataArray'_constructor {_PlutusDataArray'items :: !(Data.Vector.Vector PlutusData), - _PlutusDataArray'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show PlutusDataArray where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField PlutusDataArray "items" [PlutusData] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataArray'items - (\ x__ y__ -> x__ {_PlutusDataArray'items = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField PlutusDataArray "vec'items" (Data.Vector.Vector PlutusData) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataArray'items - (\ x__ y__ -> x__ {_PlutusDataArray'items = y__})) - Prelude.id -instance Data.ProtoLens.Message PlutusDataArray where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataArray" - packedMessageDescriptor _ - = "\n\ - \\SIPlutusDataArray\DC29\n\ - \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - items__field_descriptor - = Data.ProtoLens.FieldDescriptor - "items" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusData) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: - Data.ProtoLens.FieldDescriptor PlutusDataArray - in - Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _PlutusDataArray'_unknownFields - (\ x__ y__ -> x__ {_PlutusDataArray'_unknownFields = y__}) - defMessage - = PlutusDataArray'_constructor - {_PlutusDataArray'items = Data.Vector.Generic.empty, - _PlutusDataArray'_unknownFields = []} - parseMessage - = let - loop :: - PlutusDataArray - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData - -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataArray - loop x mutable'items - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "items" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'items y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'items - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'items) - "PlutusDataArray" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData PlutusDataArray where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_PlutusDataArray'_unknownFields x__) - (Control.DeepSeq.deepseq (_PlutusDataArray'items x__) ()) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pairs' @:: Lens' PlutusDataMap [PlutusDataPair]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'pairs' @:: Lens' PlutusDataMap (Data.Vector.Vector PlutusDataPair)@ -} -data PlutusDataMap - = PlutusDataMap'_constructor {_PlutusDataMap'pairs :: !(Data.Vector.Vector PlutusDataPair), - _PlutusDataMap'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show PlutusDataMap where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField PlutusDataMap "pairs" [PlutusDataPair] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataMap'pairs - (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField PlutusDataMap "vec'pairs" (Data.Vector.Vector PlutusDataPair) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataMap'pairs - (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__})) - Prelude.id -instance Data.ProtoLens.Message PlutusDataMap where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataMap" - packedMessageDescriptor _ - = "\n\ - \\rPlutusDataMap\DC2=\n\ - \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - pairs__field_descriptor - = Data.ProtoLens.FieldDescriptor - "pairs" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusDataPair) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pairs")) :: - Data.ProtoLens.FieldDescriptor PlutusDataMap - in - Data.Map.fromList [(Data.ProtoLens.Tag 1, pairs__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _PlutusDataMap'_unknownFields - (\ x__ y__ -> x__ {_PlutusDataMap'_unknownFields = y__}) - defMessage - = PlutusDataMap'_constructor - {_PlutusDataMap'pairs = Data.Vector.Generic.empty, - _PlutusDataMap'_unknownFields = []} - parseMessage - = let - loop :: - PlutusDataMap - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusDataPair - -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataMap - loop x mutable'pairs - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "pairs" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'pairs y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'pairs - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'pairs) - "PlutusDataMap" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pairs") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData PlutusDataMap where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_PlutusDataMap'_unknownFields x__) - (Control.DeepSeq.deepseq (_PlutusDataMap'pairs x__) ()) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.key' @:: Lens' PlutusDataPair PlutusData@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'key' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' PlutusDataPair PlutusData@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@ -} -data PlutusDataPair - = PlutusDataPair'_constructor {_PlutusDataPair'key :: !(Prelude.Maybe PlutusData), - _PlutusDataPair'value :: !(Prelude.Maybe PlutusData), - _PlutusDataPair'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show PlutusDataPair where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField PlutusDataPair "key" PlutusData where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'key" (Prelude.Maybe PlutusData) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField PlutusDataPair "value" PlutusData where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataPair'value - (\ x__ y__ -> x__ {_PlutusDataPair'value = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'value" (Prelude.Maybe PlutusData) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _PlutusDataPair'value - (\ x__ y__ -> x__ {_PlutusDataPair'value = y__})) - Prelude.id -instance Data.ProtoLens.Message PlutusDataPair where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataPair" - packedMessageDescriptor _ - = "\n\ - \\SOPlutusDataPair\DC25\n\ - \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\ - \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - key__field_descriptor - = Data.ProtoLens.FieldDescriptor - "key" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusData) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'key")) :: - Data.ProtoLens.FieldDescriptor PlutusDataPair - value__field_descriptor - = Data.ProtoLens.FieldDescriptor - "value" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor PlutusData) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'value")) :: - Data.ProtoLens.FieldDescriptor PlutusDataPair - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, key__field_descriptor), - (Data.ProtoLens.Tag 2, value__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _PlutusDataPair'_unknownFields - (\ x__ y__ -> x__ {_PlutusDataPair'_unknownFields = y__}) - defMessage - = PlutusDataPair'_constructor - {_PlutusDataPair'key = Prelude.Nothing, - _PlutusDataPair'value = Prelude.Nothing, - _PlutusDataPair'_unknownFields = []} - parseMessage - = let - loop :: - PlutusDataPair - -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataPair - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "key" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "value" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "PlutusDataPair" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData PlutusDataPair where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_PlutusDataPair'_unknownFields x__) - (Control.DeepSeq.deepseq - (_PlutusDataPair'key x__) - (Control.DeepSeq.deepseq (_PlutusDataPair'value 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'major :: !Data.Word.Word32, - _ProtocolVersion'minor :: !Data.Word.Word32, - _ProtocolVersion'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ProtocolVersion where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ProtocolVersion "major" Data.Word.Word32 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ProtocolVersion'major - (\ x__ y__ -> x__ {_ProtocolVersion'major = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ProtocolVersion "minor" Data.Word.Word32 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ProtocolVersion'minor - (\ x__ y__ -> x__ {_ProtocolVersion'minor = y__})) - Prelude.id -instance Data.ProtoLens.Message ProtocolVersion where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.ProtocolVersion" - packedMessageDescriptor _ - = "\n\ - \\SIProtocolVersion\DC2\DC4\n\ - \\ENQmajor\CAN\SOH \SOH(\rR\ENQmajor\DC2\DC4\n\ - \\ENQminor\CAN\STX \SOH(\rR\ENQminor" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - major__field_descriptor - = Data.ProtoLens.FieldDescriptor - "major" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"major")) :: - Data.ProtoLens.FieldDescriptor ProtocolVersion - minor__field_descriptor - = Data.ProtoLens.FieldDescriptor - "minor" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minor")) :: - Data.ProtoLens.FieldDescriptor ProtocolVersion - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, major__field_descriptor), - (Data.ProtoLens.Tag 2, minor__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ProtocolVersion'_unknownFields - (\ x__ y__ -> x__ {_ProtocolVersion'_unknownFields = y__}) - defMessage - = ProtocolVersion'_constructor - {_ProtocolVersion'major = Data.ProtoLens.fieldDefault, - _ProtocolVersion'minor = Data.ProtoLens.fieldDefault, - _ProtocolVersion'_unknownFields = []} - parseMessage - = let - loop :: - ProtocolVersion - -> Data.ProtoLens.Encoding.Bytes.Parser ProtocolVersion - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "major" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"major") y x) - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "minor" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minor") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "ProtocolVersion" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"major") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) - ((Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"minor") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData ProtocolVersion where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ProtocolVersion'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ProtocolVersion'major x__) - (Control.DeepSeq.deepseq (_ProtocolVersion'minor x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.numerator' @:: Lens' RationalNumber Data.Int.Int64@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.denominator' @:: Lens' RationalNumber Data.Word.Word64@ -} -data RationalNumber - = RationalNumber'_constructor {_RationalNumber'numerator :: !Data.Int.Int64, - _RationalNumber'denominator :: !Data.Word.Word64, - _RationalNumber'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show RationalNumber where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField RationalNumber "numerator" Data.Int.Int64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RationalNumber'numerator - (\ x__ y__ -> x__ {_RationalNumber'numerator = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField RationalNumber "denominator" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _RationalNumber'denominator - (\ x__ y__ -> x__ {_RationalNumber'denominator = y__})) - Prelude.id -instance Data.ProtoLens.Message RationalNumber where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.RationalNumber" - packedMessageDescriptor _ - = "\n\ - \\SORationalNumber\DC2 \n\ - \\tnumerator\CAN\SOH \SOH(\ETXR\tnumeratorB\STX0\SOH\DC2$\n\ - \\vdenominator\CAN\STX \SOH(\EOTR\vdenominatorB\STX0\SOH" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - numerator__field_descriptor - = Data.ProtoLens.FieldDescriptor - "numerator" - (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"numerator")) :: - Data.ProtoLens.FieldDescriptor RationalNumber - denominator__field_descriptor - = Data.ProtoLens.FieldDescriptor - "denominator" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"denominator")) :: - Data.ProtoLens.FieldDescriptor RationalNumber - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, numerator__field_descriptor), - (Data.ProtoLens.Tag 2, denominator__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _RationalNumber'_unknownFields - (\ x__ y__ -> x__ {_RationalNumber'_unknownFields = y__}) - defMessage - = RationalNumber'_constructor - {_RationalNumber'numerator = Data.ProtoLens.fieldDefault, - _RationalNumber'denominator = Data.ProtoLens.fieldDefault, - _RationalNumber'_unknownFields = []} - parseMessage - = let - loop :: - RationalNumber - -> Data.ProtoLens.Encoding.Bytes.Parser RationalNumber - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "numerator" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"numerator") y x) - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "denominator" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"denominator") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "RationalNumber" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"numerator") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) - ((Data.Monoid.<>) - (let - _v - = Lens.Family2.view (Data.ProtoLens.Field.field @"denominator") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData RationalNumber where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_RationalNumber'_unknownFields x__) - (Control.DeepSeq.deepseq - (_RationalNumber'numerator x__) - (Control.DeepSeq.deepseq (_RationalNumber'denominator x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'script' @:: Lens' Script (Prelude.Maybe Script'Script)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'native' @:: Lens' Script (Prelude.Maybe NativeScript)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.native' @:: Lens' Script NativeScript@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' Script Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' Script Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV3' @:: Lens' Script Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV4' @:: Lens' Script Data.ByteString.ByteString@ -} -data Script - = Script'_constructor {_Script'script :: !(Prelude.Maybe Script'Script), - _Script'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show Script where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data Script'Script - = Script'Native !NativeScript | - Script'PlutusV1 !Data.ByteString.ByteString | - Script'PlutusV2 !Data.ByteString.ByteString | - Script'PlutusV3 !Data.ByteString.ByteString | - Script'PlutusV4 !Data.ByteString.ByteString - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField Script "maybe'script" (Prelude.Maybe Script'Script) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField Script "maybe'native" (Prelude.Maybe NativeScript) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'Native y__)) -instance Data.ProtoLens.Field.HasField Script "native" NativeScript where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'Native y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField Script "maybe'plutusV1" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__)) -instance Data.ProtoLens.Field.HasField Script "plutusV1" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField Script "maybe'plutusV2" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__)) -instance Data.ProtoLens.Field.HasField Script "plutusV2" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField Script "maybe'plutusV3" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV3 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV3 y__)) -instance Data.ProtoLens.Field.HasField Script "plutusV3" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV3 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV3 y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField Script "maybe'plutusV4" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV4 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV4 y__)) -instance Data.ProtoLens.Field.HasField Script "plutusV4" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (Script'PlutusV4 x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap Script'PlutusV4 y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Message Script where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Script" - packedMessageDescriptor _ - = "\n\ - \\ACKScript\DC2?\n\ - \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\ - \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\ - \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2\DC2\GS\n\ - \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\bplutusV3\DC2\GS\n\ - \\tplutus_v4\CAN\ENQ \SOH(\fH\NULR\bplutusV4B\b\n\ - \\ACKscript" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - native__field_descriptor - = Data.ProtoLens.FieldDescriptor - "native" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor NativeScript) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'native")) :: - Data.ProtoLens.FieldDescriptor Script - plutusV1__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v1" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV1")) :: - Data.ProtoLens.FieldDescriptor Script - plutusV2__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v2" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV2")) :: - Data.ProtoLens.FieldDescriptor Script - plutusV3__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v3" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV3")) :: - Data.ProtoLens.FieldDescriptor Script - plutusV4__field_descriptor - = Data.ProtoLens.FieldDescriptor - "plutus_v4" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'plutusV4")) :: - Data.ProtoLens.FieldDescriptor Script - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, native__field_descriptor), - (Data.ProtoLens.Tag 2, plutusV1__field_descriptor), - (Data.ProtoLens.Tag 3, plutusV2__field_descriptor), - (Data.ProtoLens.Tag 4, plutusV3__field_descriptor), - (Data.ProtoLens.Tag 5, plutusV4__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _Script'_unknownFields - (\ x__ y__ -> x__ {_Script'_unknownFields = y__}) - defMessage - = Script'_constructor - {_Script'script = Prelude.Nothing, _Script'_unknownFields = []} - parseMessage - = let - loop :: Script -> Data.ProtoLens.Encoding.Bytes.Parser Script - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "native" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"native") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "plutus_v1" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x) - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "plutus_v2" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x) - 34 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "plutus_v3" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x) - 42 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "plutus_v4" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "Script" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'script") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (Script'Native v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (Script'PlutusV1 v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v) - (Prelude.Just (Script'PlutusV2 v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v) - (Prelude.Just (Script'PlutusV3 v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v) - (Prelude.Just (Script'PlutusV4 v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 42) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData Script where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_Script'_unknownFields x__) - (Control.DeepSeq.deepseq (_Script'script x__) ()) -instance Control.DeepSeq.NFData Script'Script where - rnf (Script'Native x__) = Control.DeepSeq.rnf x__ - rnf (Script'PlutusV1 x__) = Control.DeepSeq.rnf x__ - rnf (Script'PlutusV2 x__) = Control.DeepSeq.rnf x__ - rnf (Script'PlutusV3 x__) = Control.DeepSeq.rnf x__ - rnf (Script'PlutusV4 x__) = Control.DeepSeq.rnf x__ -_Script'Native :: - Data.ProtoLens.Prism.Prism' Script'Script NativeScript -_Script'Native - = Data.ProtoLens.Prism.prism' - Script'Native - (\ p__ - -> case p__ of - (Script'Native p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_Script'PlutusV1 :: - Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString -_Script'PlutusV1 - = Data.ProtoLens.Prism.prism' - Script'PlutusV1 - (\ p__ - -> case p__ of - (Script'PlutusV1 p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_Script'PlutusV2 :: - Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString -_Script'PlutusV2 - = Data.ProtoLens.Prism.prism' - Script'PlutusV2 - (\ p__ - -> case p__ of - (Script'PlutusV2 p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_Script'PlutusV3 :: - Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString -_Script'PlutusV3 - = Data.ProtoLens.Prism.prism' - Script'PlutusV3 - (\ p__ - -> case p__ of - (Script'PlutusV3 p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_Script'PlutusV4 :: - Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString -_Script'PlutusV4 - = Data.ProtoLens.Prism.prism' - Script'PlutusV4 - (\ p__ - -> case p__ of - (Script'PlutusV4 p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.k' @:: Lens' ScriptNOfK Data.Word.Word32@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scripts' @:: Lens' ScriptNOfK [NativeScript]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'scripts' @:: Lens' ScriptNOfK (Data.Vector.Vector NativeScript)@ -} -data ScriptNOfK - = ScriptNOfK'_constructor {_ScriptNOfK'k :: !Data.Word.Word32, - _ScriptNOfK'scripts :: !(Data.Vector.Vector NativeScript), - _ScriptNOfK'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ScriptNOfK where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ScriptNOfK "k" Data.Word.Word32 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ScriptNOfK'k (\ x__ y__ -> x__ {_ScriptNOfK'k = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ScriptNOfK "scripts" [NativeScript] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField ScriptNOfK "vec'scripts" (Data.Vector.Vector NativeScript) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__})) - Prelude.id -instance Data.ProtoLens.Message ScriptNOfK where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.ScriptNOfK" - packedMessageDescriptor _ - = "\n\ - \\n\ - \ScriptNOfK\DC2\f\n\ - \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\ - \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - k__field_descriptor - = Data.ProtoLens.FieldDescriptor - "k" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"k")) :: - Data.ProtoLens.FieldDescriptor ScriptNOfK - scripts__field_descriptor - = Data.ProtoLens.FieldDescriptor - "scripts" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor NativeScript) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"scripts")) :: - Data.ProtoLens.FieldDescriptor ScriptNOfK - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, k__field_descriptor), - (Data.ProtoLens.Tag 2, scripts__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ScriptNOfK'_unknownFields - (\ x__ y__ -> x__ {_ScriptNOfK'_unknownFields = y__}) - defMessage - = ScriptNOfK'_constructor - {_ScriptNOfK'k = Data.ProtoLens.fieldDefault, - _ScriptNOfK'scripts = Data.Vector.Generic.empty, - _ScriptNOfK'_unknownFields = []} - parseMessage - = let - loop :: - ScriptNOfK - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript - -> Data.ProtoLens.Encoding.Bytes.Parser ScriptNOfK - loop x mutable'scripts - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze - mutable'scripts) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "k" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"k") y x) - mutable'scripts - 18 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "scripts" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'scripts y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'scripts - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'scripts) - "ScriptNOfK" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"k") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) - ((Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'scripts") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData ScriptNOfK where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ScriptNOfK'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ScriptNOfK'k x__) - (Control.DeepSeq.deepseq (_ScriptNOfK'scripts x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.address' @:: Lens' TxOutput Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coin' @:: Lens' TxOutput Data.Word.Word64@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.assets' @:: Lens' TxOutput [MultiAsset]@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'assets' @:: Lens' TxOutput (Data.Vector.Vector MultiAsset)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.datum' @:: Lens' TxOutput Datum@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'datum' @:: Lens' TxOutput (Prelude.Maybe Datum)@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.script' @:: Lens' TxOutput Script@ - * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'script' @:: Lens' TxOutput (Prelude.Maybe Script)@ -} -data TxOutput - = TxOutput'_constructor {_TxOutput'address :: !Data.ByteString.ByteString, - _TxOutput'coin :: !Data.Word.Word64, - _TxOutput'assets :: !(Data.Vector.Vector MultiAsset), - _TxOutput'datum :: !(Prelude.Maybe Datum), - _TxOutput'script :: !(Prelude.Maybe Script), - _TxOutput'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show TxOutput where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField TxOutput "address" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'address (\ x__ y__ -> x__ {_TxOutput'address = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField TxOutput "coin" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'coin (\ x__ y__ -> x__ {_TxOutput'coin = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField TxOutput "assets" [MultiAsset] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'assets (\ x__ y__ -> x__ {_TxOutput'assets = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField TxOutput "vec'assets" (Data.Vector.Vector MultiAsset) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'assets (\ x__ y__ -> x__ {_TxOutput'assets = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField TxOutput "datum" Datum where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'datum (\ x__ y__ -> x__ {_TxOutput'datum = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField TxOutput "maybe'datum" (Prelude.Maybe Datum) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'datum (\ x__ y__ -> x__ {_TxOutput'datum = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField TxOutput "script" Script where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'script (\ x__ y__ -> x__ {_TxOutput'script = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField TxOutput "maybe'script" (Prelude.Maybe Script) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxOutput'script (\ x__ y__ -> x__ {_TxOutput'script = y__})) - Prelude.id -instance Data.ProtoLens.Message TxOutput where - messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxOutput" - packedMessageDescriptor _ - = "\n\ - \\bTxOutput\DC2\CAN\n\ - \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC2\SYN\n\ - \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoinB\STX0\SOH\DC2;\n\ - \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiAssetR\ACKassets\DC24\n\ - \\ENQdatum\CAN\EOT \SOH(\v2\RS.utxorpc.v1alpha.cardano.DatumR\ENQdatum\DC27\n\ - \\ACKscript\CAN\ENQ \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - address__field_descriptor - = Data.ProtoLens.FieldDescriptor - "address" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"address")) :: - Data.ProtoLens.FieldDescriptor TxOutput - coin__field_descriptor - = Data.ProtoLens.FieldDescriptor - "coin" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"coin")) :: - Data.ProtoLens.FieldDescriptor TxOutput - assets__field_descriptor - = Data.ProtoLens.FieldDescriptor - "assets" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor MultiAsset) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"assets")) :: - Data.ProtoLens.FieldDescriptor TxOutput - datum__field_descriptor - = Data.ProtoLens.FieldDescriptor - "datum" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Datum) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'datum")) :: - Data.ProtoLens.FieldDescriptor TxOutput - script__field_descriptor - = Data.ProtoLens.FieldDescriptor - "script" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Script) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'script")) :: - Data.ProtoLens.FieldDescriptor TxOutput - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, address__field_descriptor), - (Data.ProtoLens.Tag 2, coin__field_descriptor), - (Data.ProtoLens.Tag 3, assets__field_descriptor), - (Data.ProtoLens.Tag 4, datum__field_descriptor), - (Data.ProtoLens.Tag 5, script__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _TxOutput'_unknownFields - (\ x__ y__ -> x__ {_TxOutput'_unknownFields = y__}) - defMessage - = TxOutput'_constructor - {_TxOutput'address = Data.ProtoLens.fieldDefault, - _TxOutput'coin = Data.ProtoLens.fieldDefault, - _TxOutput'assets = Data.Vector.Generic.empty, - _TxOutput'datum = Prelude.Nothing, - _TxOutput'script = Prelude.Nothing, _TxOutput'_unknownFields = []} - parseMessage - = let - loop :: - TxOutput - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MultiAsset - -> Data.ProtoLens.Encoding.Bytes.Parser TxOutput - loop x mutable'assets - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze - mutable'assets) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'assets") frozen'assets x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "address" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x) - mutable'assets - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "coin" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) - mutable'assets - 26 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "assets" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'assets y) - loop x v - 34 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "datum" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"datum") y x) - mutable'assets - 42 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "script" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"script") y x) - mutable'assets - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'assets - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'assets) - "TxOutput" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"address") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - ((Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"coin") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'assets") _x)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'datum") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 34) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'script") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 42) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) -instance Control.DeepSeq.NFData TxOutput where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_TxOutput'_unknownFields x__) - (Control.DeepSeq.deepseq - (_TxOutput'address x__) - (Control.DeepSeq.deepseq - (_TxOutput'coin x__) - (Control.DeepSeq.deepseq - (_TxOutput'assets x__) - (Control.DeepSeq.deepseq - (_TxOutput'datum x__) - (Control.DeepSeq.deepseq (_TxOutput'script 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'thresholds :: !(Data.Vector.Vector RationalNumber), - _VotingThresholds'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show VotingThresholds where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField VotingThresholds "thresholds" [RationalNumber] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _VotingThresholds'thresholds - (\ x__ y__ -> x__ {_VotingThresholds'thresholds = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField VotingThresholds "vec'thresholds" (Data.Vector.Vector RationalNumber) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _VotingThresholds'thresholds - (\ x__ y__ -> x__ {_VotingThresholds'thresholds = y__})) - Prelude.id -instance Data.ProtoLens.Message VotingThresholds where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.cardano.VotingThresholds" - packedMessageDescriptor _ - = "\n\ - \\DLEVotingThresholds\DC2G\n\ - \\n\ - \thresholds\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\n\ - \thresholds" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - thresholds__field_descriptor - = Data.ProtoLens.FieldDescriptor - "thresholds" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor RationalNumber) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked - (Data.ProtoLens.Field.field @"thresholds")) :: - Data.ProtoLens.FieldDescriptor VotingThresholds - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, thresholds__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _VotingThresholds'_unknownFields - (\ x__ y__ -> x__ {_VotingThresholds'_unknownFields = y__}) - defMessage - = VotingThresholds'_constructor - {_VotingThresholds'thresholds = Data.Vector.Generic.empty, - _VotingThresholds'_unknownFields = []} - 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 x mutable'thresholds - = do end <- 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 (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'thresholds") frozen'thresholds - x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "thresholds" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'thresholds y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'thresholds - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'thresholds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'thresholds) - "VotingThresholds" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view - (Data.ProtoLens.Field.field @"vec'thresholds") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData VotingThresholds where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_VotingThresholds'_unknownFields x__) - (Control.DeepSeq.deepseq (_VotingThresholds'thresholds x__) ()) -packedFileDescriptor :: Data.ByteString.ByteString -packedFileDescriptor - = "\n\ - \%utxorpc/v1alpha/cardano/cardano.proto\DC2\ETButxorpc.v1alpha.cardano\"\232\SOH\n\ - \\bTxOutput\DC2\CAN\n\ - \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC2\SYN\n\ - \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoinB\STX0\SOH\DC2;\n\ - \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiAssetR\ACKassets\DC24\n\ - \\ENQdatum\CAN\EOT \SOH(\v2\RS.utxorpc.v1alpha.cardano.DatumR\ENQdatum\DC27\n\ - \\ACKscript\CAN\ENQ \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\"$\n\ - \\fAddressArray\DC2\DC4\n\ - \\ENQitems\CAN\SOH \ETX(\fR\ENQitems\"\167\SOH\n\ - \\ENQDatum\DC2\DC2\n\ - \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2B\n\ - \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataH\NULR\apayload\136\SOH\SOH\DC2(\n\ - \\roriginal_cbor\CAN\ETX \SOH(\fH\SOHR\foriginalCbor\136\SOH\SOHB\n\ - \\n\ - \\b_payloadB\DLE\n\ - \\SO_original_cbor\"q\n\ - \\ENQAsset\DC2\DC2\n\ - \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2%\n\ - \\voutput_coin\CAN\STX \SOH(\EOTH\NULR\n\ - \outputCoinB\STX0\SOH\DC2!\n\ - \\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoinB\STX0\SOHB\n\ - \\n\ - \\bquantity\"a\n\ - \\n\ - \MultiAsset\DC2\ESC\n\ - \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC26\n\ - \\ACKassets\CAN\STX \ETX(\v2\RS.utxorpc.v1alpha.cardano.AssetR\ACKassets\"\128\ETX\n\ - \\fNativeScript\DC2%\n\ - \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\ - \\n\ - \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\ - \\n\ - \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\ - \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\ - \scriptNOfK\DC2'\n\ - \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\ - \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\ - \\rnative_script\"O\n\ - \\DLENativeScriptList\DC2;\n\ - \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems\"[\n\ - \\n\ - \ScriptNOfK\DC2\f\n\ - \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\ - \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts\"\128\SOH\n\ - \\ACKConstr\DC2\DLE\n\ - \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\ - \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2;\n\ - \\ACKfields\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ACKfields\"g\n\ - \\ACKBigInt\DC2\SYN\n\ - \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXintB\STX0\SOH\DC2\FS\n\ - \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\ - \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\ - \\abig_int\"\130\SOH\n\ - \\SOPlutusDataPair\DC25\n\ - \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\ - \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue\"\183\STX\n\ - \\n\ - \PlutusData\DC29\n\ - \\ACKconstr\CAN\STX \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\ - \\ETXmap\CAN\ETX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\ - \\abig_int\CAN\EOT \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\ - \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2@\n\ - \\ENQarray\CAN\ACK \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\ - \\vplutus_data\"N\n\ - \\rPlutusDataMap\DC2=\n\ - \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs\"L\n\ - \\SIPlutusDataArray\DC29\n\ - \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems\"\207\SOH\n\ - \\ACKScript\DC2?\n\ - \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\ - \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\ - \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2\DC2\GS\n\ - \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\bplutusV3\DC2\GS\n\ - \\tplutus_v4\CAN\ENQ \SOH(\fH\NULR\bplutusV4B\b\n\ - \\ACKscript\"X\n\ - \\SORationalNumber\DC2 \n\ - \\tnumerator\CAN\SOH \SOH(\ETXR\tnumeratorB\STX0\SOH\DC2$\n\ - \\vdenominator\CAN\STX \SOH(\EOTR\vdenominatorB\STX0\SOH\"7\n\ - \\aExUnits\DC2\DC4\n\ - \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\ - \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory\"\138\SOH\n\ - \\bExPrices\DC2=\n\ - \\ENQsteps\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ENQsteps\DC2?\n\ - \\ACKmemory\CAN\STX \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmemory\"=\n\ - \\SIProtocolVersion\DC2\DC4\n\ - \\ENQmajor\CAN\SOH \SOH(\rR\ENQmajor\DC2\DC4\n\ - \\ENQminor\CAN\STX \SOH(\rR\ENQminor\"#\n\ - \\tCostModel\DC2\SYN\n\ - \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues\"\144\STX\n\ - \\n\ - \CostModels\DC2?\n\ - \\tplutus_v1\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV1\DC2?\n\ - \\tplutus_v2\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV2\DC2?\n\ - \\tplutus_v3\CAN\ETX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV3\DC2?\n\ - \\tplutus_v4\CAN\EOT \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV4\"[\n\ - \\DLEVotingThresholds\DC2G\n\ - \\n\ - \thresholds\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\n\ - \thresholds\"\223\SI\n\ - \\aPParams\DC21\n\ - \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByteB\STX0\SOH\DC2\"\n\ - \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSizeB\STX0\SOH\DC22\n\ - \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficientB\STX0\SOH\DC2,\n\ - \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstantB\STX0\SOH\DC21\n\ - \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySizeB\STX0\SOH\DC25\n\ - \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSizeB\STX0\SOH\DC2.\n\ - \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDepositB\STX0\SOH\DC2%\n\ - \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDepositB\STX0\SOH\DC2=\n\ - \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\ - \\ETBdesired_number_of_pools\CAN\n\ - \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\ - \\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\ - \\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\ - \\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2&\n\ - \\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCostB\STX0\SOH\DC2S\n\ - \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2(\n\ - \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSizeB\STX0\SOH\DC27\n\ - \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentageB\STX0\SOH\DC26\n\ - \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputsB\STX0\SOH\DC2D\n\ - \\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\ - \costModels\DC29\n\ - \\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\ - \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\ - \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\DC2m\n\ - \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2_\n\ - \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2_\n\ - \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4drepVotingThresholds\DC2,\n\ - \\DC2min_committee_size\CAN\SUB \SOH(\rR\DLEminCommitteeSize\DC20\n\ - \\DC4committee_term_limit\CAN\ESC \SOH(\EOTR\DC2committeeTermLimit\DC2I\n\ - \!governance_action_validity_period\CAN\FS \SOH(\EOTR\RSgovernanceActionValidityPeriod\DC2>\n\ - \\EMgovernance_action_deposit\CAN\GS \SOH(\EOTR\ETBgovernanceActionDepositB\STX0\SOH\DC2%\n\ - \\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDepositB\STX0\SOH\DC24\n\ - \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriodB\169\SOH\n\ - \\ESCcom.utxorpc.v1alpha.cardanoB\fCardanoProtoP\SOH\162\STX\ETXUVC\170\STX\ETBUtxorpc.V1alpha.Cardano\202\STX\ETBUtxorpc\\V1alpha\\Cardano\226\STX#Utxorpc\\V1alpha\\Cardano\\GPBMetadata\234\STX\EMUtxorpc::V1alpha::CardanoJ\185K\n\ - \\a\DC2\ENQ\NUL\NUL\192\SOH\SOH\n\ - \\b\n\ - \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ - \\b\n\ - \\SOH\STX\DC2\ETX\STX\NUL \n\ - \H\n\ - \\STX\EOT\NUL\DC2\EOT\ENQ\NUL\v\SOH\SUB< Represents a transaction output in the Cardano blockchain.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\NUL\SOH\DC2\ETX\ENQ\b\DLE\n\ - \,\n\ - \\EOT\EOT\NUL\STX\NUL\DC2\ETX\ACK\STX\DC4\"\US Address receiving the output.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\ACK\STX\a\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\ACK\b\SI\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ACK\DC2\DC3\n\ - \+\n\ - \\EOT\EOT\NUL\STX\SOH\DC2\ETX\a\STX'\"\RS Amount of ADA in the output.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\a\STX\b\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\a\t\r\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\a\DLE\DC1\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\SOH\b\DC2\ETX\a\DC2&\n\ - \\r\n\ - \\ACK\EOT\NUL\STX\SOH\b\ACK\DC2\ETX\a\DC3%\n\ - \@\n\ - \\EOT\EOT\NUL\STX\STX\DC2\ETX\b\STX!\"3 Additional native (non-ADA) assets in the output.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\STX\EOT\DC2\ETX\b\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\b\v\NAK\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\b\SYN\FS\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\b\US \n\ - \6\n\ - \\EOT\EOT\NUL\STX\ETX\DC2\ETX\t\STX\DC2\") Plutus data associated with the output.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX\t\STX\a\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\t\b\r\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\t\DLE\DC1\n\ - \1\n\ - \\EOT\EOT\NUL\STX\EOT\DC2\ETX\n\ - \\STX\DC4\"$ Script associated with the output.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX\n\ - \\STX\b\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\n\ - \\t\SI\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\n\ - \\DC2\DC3\n\ - \K\n\ - \\STX\EOT\SOH\DC2\EOT\SO\NUL\DLE\SOH\SUB? TODO u5c: new type - https://github.com/utxorpc/spec/pull/167\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\SOH\SOH\DC2\ETX\SO\b\DC4\n\ - \\v\n\ - \\EOT\EOT\SOH\STX\NUL\DC2\ETX\SI\STX\ESC\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\SI\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SI\v\DLE\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SI\DC1\SYN\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SI\EM\SUB\n\ - \\n\ - \\n\ - \\STX\EOT\STX\DC2\EOT\DC2\NUL\SYN\SOH\n\ - \\n\ - \\n\ - \\ETX\EOT\STX\SOH\DC2\ETX\DC2\b\r\n\ - \2\n\ - \\EOT\EOT\STX\STX\NUL\DC2\ETX\DC3\STX\DC1\"% Hash of this datum as seen on-chain\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC3\STX\a\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC3\b\f\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC3\SI\DLE\n\ - \)\n\ - \\EOT\EOT\STX\STX\SOH\DC2\ETX\DC4\STX\"\"\FS Parsed Plutus data payload\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\SOH\EOT\DC2\ETX\DC4\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX\DC4\v\NAK\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\DC4\SYN\GS\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\DC4 !\n\ - \:\n\ - \\EOT\EOT\STX\STX\STX\DC2\ETX\NAK\STX#\"- Original cbor-encoded data as seen on-chain\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\STX\EOT\DC2\ETX\NAK\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX\NAK\v\DLE\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX\NAK\DC1\RS\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX\NAK!\"\n\ - \B\n\ - \\STX\EOT\ETX\DC2\EOT\EM\NUL\US\SOH\SUB6 Represents a custom asset in the Cardano blockchain.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\ETX\SOH\DC2\ETX\EM\b\r\n\ - \(\n\ - \\EOT\EOT\ETX\STX\NUL\DC2\ETX\SUB\STX\DC1\"\ESC Name of the custom asset.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\SUB\STX\a\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\SUB\b\f\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\SUB\SI\DLE\n\ - \\f\n\ - \\EOT\EOT\ETX\b\NUL\DC2\EOT\ESC\STX\RS\ETX\n\ - \\f\n\ - \\ENQ\EOT\ETX\b\NUL\SOH\DC2\ETX\ESC\b\DLE\n\ - \A\n\ - \\EOT\EOT\ETX\STX\SOH\DC2\ETX\FS\EOT0\"4 Quantity of the custom asset in case of an output.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX\FS\EOT\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX\FS\v\SYN\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX\FS\EM\SUB\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\SOH\b\DC2\ETX\FS\ESC/\n\ - \\r\n\ - \\ACK\EOT\ETX\STX\SOH\b\ACK\DC2\ETX\FS\FS.\n\ - \>\n\ - \\EOT\EOT\ETX\STX\STX\DC2\ETX\GS\EOT-\"1 Quantity of the custom asset in case of a mint.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX\GS\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX\GS\n\ - \\DC3\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX\GS\SYN\ETB\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\STX\b\DC2\ETX\GS\CAN,\n\ - \\r\n\ - \\ACK\EOT\ETX\STX\STX\b\ACK\DC2\ETX\GS\EM+\n\ - \g\n\ - \\STX\EOT\EOT\DC2\EOT#\NUL&\SOH\SUB[ TODO u5c: redeemer was removed\n\ - \ Represents a multi-asset group in the Cardano blockchain.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\EOT\SOH\DC2\ETX#\b\DC2\n\ - \5\n\ - \\EOT\EOT\EOT\STX\NUL\DC2\ETX$\STX\SYN\"( Policy ID governing the custom assets.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX$\STX\a\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX$\b\DC1\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX$\DC4\NAK\n\ - \%\n\ - \\EOT\EOT\EOT\STX\SOH\DC2\ETX%\STX\FS\"\CAN List of custom assets.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\SOH\EOT\DC2\ETX%\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX%\v\DLE\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX%\DC1\ETB\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX%\SUB\ESC\n\ - \4\n\ - \\STX\EOT\ENQ\DC2\EOT)\NUL2\SOH\SUB( Represents a native script in Cardano.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\ENQ\SOH\DC2\ETX)\b\DC4\n\ - \\f\n\ - \\EOT\EOT\ENQ\b\NUL\DC2\EOT*\STX1\ETX\n\ - \\f\n\ - \\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX*\b\NAK\n\ - \3\n\ - \\EOT\EOT\ENQ\STX\NUL\DC2\ETX+\EOT\FS\"& Script based on an address key hash.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX+\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX+\n\ - \\ETB\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX+\SUB\ESC\n\ - \G\n\ - \\EOT\EOT\ENQ\STX\SOH\DC2\ETX,\EOT$\": Script that requires all nested scripts to be satisfied.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX,\EOT\DC4\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX,\NAK\US\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX,\"#\n\ - \N\n\ - \\EOT\EOT\ENQ\STX\STX\DC2\ETX-\EOT$\"A Script that requires any of the nested scripts to be satisfied.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETX-\EOT\DC4\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX-\NAK\US\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX-\"#\n\ - \N\n\ - \\EOT\EOT\ENQ\STX\ETX\DC2\ETX.\EOT!\"A Script that requires k out of n nested scripts to be satisfied.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\ETX\ACK\DC2\ETX.\EOT\SO\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETX.\SI\FS\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETX.\US \n\ - \>\n\ - \\EOT\EOT\ENQ\STX\EOT\DC2\ETX/\EOT\RS\"1 Slot number before which the script is invalid.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\EOT\ENQ\DC2\ETX/\EOT\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\EOT\SOH\DC2\ETX/\v\EM\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\EOT\ETX\DC2\ETX/\FS\GS\n\ - \=\n\ - \\EOT\EOT\ENQ\STX\ENQ\DC2\ETX0\EOT!\"0 Slot number after which the script is invalid.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\ENQ\ENQ\DC2\ETX0\EOT\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\ENQ\SOH\DC2\ETX0\v\FS\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\ENQ\ETX\DC2\ETX0\US \n\ - \2\n\ - \\STX\EOT\ACK\DC2\EOT5\NUL7\SOH\SUB& Represents a list of native scripts.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\ACK\SOH\DC2\ETX5\b\CAN\n\ - \&\n\ - \\EOT\EOT\ACK\STX\NUL\DC2\ETX6\STX\"\"\EM List of native scripts.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX6\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX6\v\ETB\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX6\CAN\GS\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX6 !\n\ - \6\n\ - \\STX\EOT\a\DC2\EOT:\NUL=\SOH\SUB* Represents a \"k out of n\" native script.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\a\SOH\DC2\ETX:\b\DC2\n\ - \8\n\ - \\EOT\EOT\a\STX\NUL\DC2\ETX;\STX\SI\"+ The number of required satisfied scripts.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETX;\STX\b\n\ - \\f\n\ - \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX;\t\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX;\r\SO\n\ - \&\n\ - \\EOT\EOT\a\STX\SOH\DC2\ETX<\STX$\"\EM List of native scripts.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\STX\SOH\EOT\DC2\ETX<\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETX<\v\ETB\n\ - \\f\n\ - \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX<\CAN\US\n\ - \\f\n\ - \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX<\"#\n\ - \B\n\ - \\STX\EOT\b\DC2\EOT@\NULD\SOH\SUB6 Represents a constructor for Plutus data in Cardano.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\b\SOH\DC2\ETX@\b\SO\n\ - \\v\n\ - \\EOT\EOT\b\STX\NUL\DC2\ETXA\STX\DC1\n\ - \\f\n\ - \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXA\STX\b\n\ - \\f\n\ - \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXA\t\f\n\ - \\f\n\ - \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXA\SI\DLE\n\ - \\v\n\ - \\EOT\EOT\b\STX\SOH\DC2\ETXB\STX\GS\n\ - \\f\n\ - \\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETXB\STX\b\n\ - \\f\n\ - \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXB\t\CAN\n\ - \\f\n\ - \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXB\ESC\FS\n\ - \\v\n\ - \\EOT\EOT\b\STX\STX\DC2\ETXC\STX!\n\ - \\f\n\ - \\ENQ\EOT\b\STX\STX\EOT\DC2\ETXC\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\b\STX\STX\ACK\DC2\ETXC\v\NAK\n\ - \\f\n\ - \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXC\SYN\FS\n\ - \\f\n\ - \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXC\US \n\ - \B\n\ - \\STX\EOT\t\DC2\EOTG\NULM\SOH\SUB6 Represents a big integer for Plutus data in Cardano.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\t\SOH\DC2\ETXG\b\SO\n\ - \\f\n\ - \\EOT\EOT\t\b\NUL\DC2\EOTH\STXL\ETX\n\ - \\f\n\ - \\ENQ\EOT\t\b\NUL\SOH\DC2\ETXH\b\SI\n\ - \\v\n\ - \\EOT\EOT\t\STX\NUL\DC2\ETXI\EOT'\n\ - \\f\n\ - \\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXI\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXI\n\ - \\r\n\ - \\f\n\ - \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXI\DLE\DC1\n\ - \\f\n\ - \\ENQ\EOT\t\STX\NUL\b\DC2\ETXI\DC2&\n\ - \\r\n\ - \\ACK\EOT\t\STX\NUL\b\ACK\DC2\ETXI\DC3%\n\ - \\v\n\ - \\EOT\EOT\t\STX\SOH\DC2\ETXJ\EOT\CAN\n\ - \\f\n\ - \\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXJ\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXJ\n\ - \\DC3\n\ - \\f\n\ - \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXJ\SYN\ETB\n\ - \\v\n\ - \\EOT\EOT\t\STX\STX\DC2\ETXK\EOT\CAN\n\ - \\f\n\ - \\ENQ\EOT\t\STX\STX\ENQ\DC2\ETXK\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\t\STX\STX\SOH\DC2\ETXK\n\ - \\DC3\n\ - \\f\n\ - \\ENQ\EOT\t\STX\STX\ETX\DC2\ETXK\SYN\ETB\n\ - \E\n\ - \\STX\EOT\n\ - \\DC2\EOTQ\NULT\SOH\SUB9 Represents a key-value pair for Plutus data in Cardano.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\n\ - \\SOH\DC2\ETXQ\b\SYN\n\ - \\US\n\ - \\EOT\EOT\n\ - \\STX\NUL\DC2\ETXR\STX\NAK\"\DC2 Key of the pair.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\n\ - \\STX\NUL\ACK\DC2\ETXR\STX\f\n\ - \\f\n\ - \\ENQ\EOT\n\ - \\STX\NUL\SOH\DC2\ETXR\r\DLE\n\ - \\f\n\ - \\ENQ\EOT\n\ - \\STX\NUL\ETX\DC2\ETXR\DC3\DC4\n\ - \!\n\ - \\EOT\EOT\n\ - \\STX\SOH\DC2\ETXS\STX\ETB\"\DC4 Value of the pair.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\n\ - \\STX\SOH\ACK\DC2\ETXS\STX\f\n\ - \\f\n\ - \\ENQ\EOT\n\ - \\STX\SOH\SOH\DC2\ETXS\r\DC2\n\ - \\f\n\ - \\ENQ\EOT\n\ - \\STX\SOH\ETX\DC2\ETXS\NAK\SYN\n\ - \7\n\ - \\STX\EOT\v\DC2\EOTW\NUL_\SOH\SUB+ Represents a Plutus data item in Cardano.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\v\SOH\DC2\ETXW\b\DC2\n\ - \\f\n\ - \\EOT\EOT\v\b\NUL\DC2\EOTX\STX^\ETX\n\ - \\f\n\ - \\ENQ\EOT\v\b\NUL\SOH\DC2\ETXX\b\DC3\n\ - \\ESC\n\ - \\EOT\EOT\v\STX\NUL\DC2\ETXY\EOT\SYN\"\SO Constructor.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXY\EOT\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXY\v\DC1\n\ - \\f\n\ - \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXY\DC4\NAK\n\ - \\"\n\ - \\EOT\EOT\v\STX\SOH\DC2\ETXZ\EOT\SUB\"\NAK Map of Plutus data.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXZ\EOT\DC1\n\ - \\f\n\ - \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXZ\DC2\NAK\n\ - \\f\n\ - \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXZ\CAN\EM\n\ - \\ESC\n\ - \\EOT\EOT\v\STX\STX\DC2\ETX[\EOT\ETB\"\SO Big integer.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\v\STX\STX\ACK\DC2\ETX[\EOT\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\v\STX\STX\SOH\DC2\ETX[\v\DC2\n\ - \\f\n\ - \\ENQ\EOT\v\STX\STX\ETX\DC2\ETX[\NAK\SYN\n\ - \\GS\n\ - \\EOT\EOT\v\STX\ETX\DC2\ETX\\\EOT\FS\"\DLE Bounded bytes.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\v\STX\ETX\ENQ\DC2\ETX\\\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETX\\\n\ - \\ETB\n\ - \\f\n\ - \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETX\\\SUB\ESC\n\ - \$\n\ - \\EOT\EOT\v\STX\EOT\DC2\ETX]\EOT\RS\"\ETB Array of Plutus data.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\v\STX\EOT\ACK\DC2\ETX]\EOT\DC3\n\ - \\f\n\ - \\ENQ\EOT\v\STX\EOT\SOH\DC2\ETX]\DC4\EM\n\ - \\f\n\ - \\ENQ\EOT\v\STX\EOT\ETX\DC2\ETX]\FS\GS\n\ - \9\n\ - \\STX\EOT\f\DC2\EOTb\NULd\SOH\SUB- Represents a map of Plutus data in Cardano.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\f\SOH\DC2\ETXb\b\NAK\n\ - \'\n\ - \\EOT\EOT\f\STX\NUL\DC2\ETXc\STX$\"\SUB List of key-value pairs.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXc\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXc\v\EM\n\ - \\f\n\ - \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXc\SUB\US\n\ - \\f\n\ - \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXc\"#\n\ - \<\n\ - \\STX\EOT\r\DC2\EOTg\NULi\SOH\SUB0 Represents an array of Plutus data in Cardano.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\r\SOH\DC2\ETXg\b\ETB\n\ - \)\n\ - \\EOT\EOT\r\STX\NUL\DC2\ETXh\STX \"\FS List of Plutus data items.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\r\STX\NUL\EOT\DC2\ETXh\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXh\v\NAK\n\ - \\f\n\ - \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXh\SYN\ESC\n\ - \\f\n\ - \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXh\RS\US\n\ - \n\n\ - \\STX\EOT\SO\DC2\EOTn\NULv\SOH\SUBb Represents a script in Cardano.\n\ - \ TODO u5c: removed native script representation, added plutus_v4\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\SO\SOH\DC2\ETXn\b\SO\n\ - \\f\n\ - \\EOT\EOT\SO\b\NUL\DC2\EOTo\STXu\ETX\n\ - \\f\n\ - \\ENQ\EOT\SO\b\NUL\SOH\DC2\ETXo\b\SO\n\ - \\GS\n\ - \\EOT\EOT\SO\STX\NUL\DC2\ETXp\EOT\FS\"\DLE Native script.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXp\EOT\DLE\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXp\DC1\ETB\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXp\SUB\ESC\n\ - \ \n\ - \\EOT\EOT\SO\STX\SOH\DC2\ETXq\EOT\CAN\"\DC3 Plutus V1 script.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\SOH\ENQ\DC2\ETXq\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXq\n\ - \\DC3\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXq\SYN\ETB\n\ - \ \n\ - \\EOT\EOT\SO\STX\STX\DC2\ETXr\EOT\CAN\"\DC3 Plutus V2 script.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\STX\ENQ\DC2\ETXr\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\STX\SOH\DC2\ETXr\n\ - \\DC3\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\STX\ETX\DC2\ETXr\SYN\ETB\n\ - \ \n\ - \\EOT\EOT\SO\STX\ETX\DC2\ETXs\EOT\CAN\"\DC3 Plutus V3 script.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\ETX\ENQ\DC2\ETXs\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\ETX\SOH\DC2\ETXs\n\ - \\DC3\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\ETX\ETX\DC2\ETXs\SYN\ETB\n\ - \ \n\ - \\EOT\EOT\SO\STX\EOT\DC2\ETXt\EOT\CAN\"\DC3 Plutus V4 script.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\EOT\ENQ\DC2\ETXt\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\EOT\SOH\DC2\ETXt\n\ - \\DC3\n\ - \\f\n\ - \\ENQ\EOT\SO\STX\EOT\ETX\DC2\ETXt\SYN\ETB\n\ - \b\n\ - \\STX\EOT\SI\DC2\EOTz\NUL}\SOH\SUBV Represents a rational number as a fraction.\n\ - \ TODO u5c increased precision to 64 bits\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\SI\SOH\DC2\ETXz\b\SYN\n\ - \\v\n\ - \\EOT\EOT\SI\STX\NUL\DC2\ETX{\STX+\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\ETX{\STX\a\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\NUL\SOH\DC2\ETX{\b\DC1\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\NUL\ETX\DC2\ETX{\DC4\NAK\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\NUL\b\DC2\ETX{\SYN*\n\ - \\r\n\ - \\ACK\EOT\SI\STX\NUL\b\ACK\DC2\ETX{\ETB)\n\ - \\v\n\ - \\EOT\EOT\SI\STX\SOH\DC2\ETX|\STX.\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\SOH\ENQ\DC2\ETX|\STX\b\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\SOH\SOH\DC2\ETX|\t\DC4\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\SOH\ETX\DC2\ETX|\ETB\CAN\n\ - \\f\n\ - \\ENQ\EOT\SI\STX\SOH\b\DC2\ETX|\EM-\n\ - \\r\n\ - \\ACK\EOT\SI\STX\SOH\b\ACK\DC2\ETX|\SUB,\n\ - \\RS\n\ - \\STX\EOT\DLE\DC2\ACK\130\SOH\NUL\133\SOH\SOH2\DLE PARAMS\n\ - \ ======\n\ - \\n\ - \\v\n\ - \\ETX\EOT\DLE\SOH\DC2\EOT\130\SOH\b\SI\n\ - \\f\n\ - \\EOT\EOT\DLE\STX\NUL\DC2\EOT\131\SOH\STX\DC3\n\ - \\r\n\ - \\ENQ\EOT\DLE\STX\NUL\ENQ\DC2\EOT\131\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\131\SOH\t\SO\n\ - \\r\n\ - \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\131\SOH\DC1\DC2\n\ - \\f\n\ - \\EOT\EOT\DLE\STX\SOH\DC2\EOT\132\SOH\STX\DC4\n\ - \\r\n\ - \\ENQ\EOT\DLE\STX\SOH\ENQ\DC2\EOT\132\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\132\SOH\t\SI\n\ - \\r\n\ - \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\132\SOH\DC2\DC3\n\ - \\f\n\ - \\STX\EOT\DC1\DC2\ACK\135\SOH\NUL\138\SOH\SOH\n\ - \\v\n\ - \\ETX\EOT\DC1\SOH\DC2\EOT\135\SOH\b\DLE\n\ - \\f\n\ - \\EOT\EOT\DC1\STX\NUL\DC2\EOT\136\SOH\STX\ESC\n\ - \\r\n\ - \\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\136\SOH\STX\DLE\n\ - \\r\n\ - \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\136\SOH\DC1\SYN\n\ - \\r\n\ - \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\136\SOH\EM\SUB\n\ - \\f\n\ - \\EOT\EOT\DC1\STX\SOH\DC2\EOT\137\SOH\STX\FS\n\ - \\r\n\ - \\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\137\SOH\STX\DLE\n\ - \\r\n\ - \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\137\SOH\DC1\ETB\n\ - \\r\n\ - \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\137\SOH\SUB\ESC\n\ - \\f\n\ - \\STX\EOT\DC2\DC2\ACK\140\SOH\NUL\143\SOH\SOH\n\ - \\v\n\ - \\ETX\EOT\DC2\SOH\DC2\EOT\140\SOH\b\ETB\n\ - \\f\n\ - \\EOT\EOT\DC2\STX\NUL\DC2\EOT\141\SOH\STX\DC3\n\ - \\r\n\ - \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\141\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\141\SOH\t\SO\n\ - \\r\n\ - \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\141\SOH\DC1\DC2\n\ - \\f\n\ - \\EOT\EOT\DC2\STX\SOH\DC2\EOT\142\SOH\STX\DC3\n\ - \\r\n\ - \\ENQ\EOT\DC2\STX\SOH\ENQ\DC2\EOT\142\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\142\SOH\t\SO\n\ - \\r\n\ - \\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\142\SOH\DC1\DC2\n\ - \\f\n\ - \\STX\EOT\DC3\DC2\ACK\145\SOH\NUL\147\SOH\SOH\n\ - \\v\n\ - \\ETX\EOT\DC3\SOH\DC2\EOT\145\SOH\b\DC1\n\ - \\f\n\ - \\EOT\EOT\DC3\STX\NUL\DC2\EOT\146\SOH\STX\FS\n\ - \\r\n\ - \\ENQ\EOT\DC3\STX\NUL\EOT\DC2\EOT\146\SOH\STX\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\146\SOH\v\DLE\n\ - \\r\n\ - \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\146\SOH\DC1\ETB\n\ - \\r\n\ - \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\146\SOH\SUB\ESC\n\ - \\f\n\ - \\STX\EOT\DC4\DC2\ACK\149\SOH\NUL\154\SOH\SOH\n\ - \\v\n\ - \\ETX\EOT\DC4\SOH\DC2\EOT\149\SOH\b\DC2\n\ - \\f\n\ - \\EOT\EOT\DC4\STX\NUL\DC2\EOT\150\SOH\STX\SUB\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\NUL\ACK\DC2\EOT\150\SOH\STX\v\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\150\SOH\f\NAK\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\150\SOH\CAN\EM\n\ - \\f\n\ - \\EOT\EOT\DC4\STX\SOH\DC2\EOT\151\SOH\STX\SUB\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\SOH\ACK\DC2\EOT\151\SOH\STX\v\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\151\SOH\f\NAK\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\151\SOH\CAN\EM\n\ - \\f\n\ - \\EOT\EOT\DC4\STX\STX\DC2\EOT\152\SOH\STX\SUB\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\STX\ACK\DC2\EOT\152\SOH\STX\v\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\STX\SOH\DC2\EOT\152\SOH\f\NAK\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\STX\ETX\DC2\EOT\152\SOH\CAN\EM\n\ - \\f\n\ - \\EOT\EOT\DC4\STX\ETX\DC2\EOT\153\SOH\STX\SUB\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\ETX\ACK\DC2\EOT\153\SOH\STX\v\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\ETX\SOH\DC2\EOT\153\SOH\f\NAK\n\ - \\r\n\ - \\ENQ\EOT\DC4\STX\ETX\ETX\DC2\EOT\153\SOH\CAN\EM\n\ - \\f\n\ - \\STX\EOT\NAK\DC2\ACK\156\SOH\NUL\158\SOH\SOH\n\ - \\v\n\ - \\ETX\EOT\NAK\SOH\DC2\EOT\156\SOH\b\CAN\n\ - \\f\n\ - \\EOT\EOT\NAK\STX\NUL\DC2\EOT\157\SOH\STX)\n\ - \\r\n\ - \\ENQ\EOT\NAK\STX\NUL\EOT\DC2\EOT\157\SOH\STX\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\NAK\STX\NUL\ACK\DC2\EOT\157\SOH\v\EM\n\ - \\r\n\ - \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\157\SOH\SUB$\n\ - \\r\n\ - \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\157\SOH'(\n\ - \\f\n\ - \\STX\EOT\SYN\DC2\ACK\160\SOH\NUL\192\SOH\SOH\n\ - \\v\n\ - \\ETX\EOT\SYN\SOH\DC2\EOT\160\SOH\b\SI\n\ - \2\n\ - \\EOT\EOT\SYN\STX\NUL\DC2\EOT\161\SOH\STX6\"$ The number of coins per UTXO byte.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\NUL\ENQ\DC2\EOT\161\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\161\SOH\t\FS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\161\SOH\US \n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\NUL\b\DC2\EOT\161\SOH!5\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\NUL\b\ACK\DC2\EOT\161\SOH\"4\n\ - \-\n\ - \\EOT\EOT\SYN\STX\SOH\DC2\EOT\162\SOH\STX.\"\US The maximum transaction size.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SOH\ENQ\DC2\EOT\162\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SOH\SOH\DC2\EOT\162\SOH\t\DC4\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SOH\ETX\DC2\EOT\162\SOH\ETB\CAN\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SOH\b\DC2\EOT\162\SOH\EM-\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\SOH\b\ACK\DC2\EOT\162\SOH\SUB,\n\ - \,\n\ - \\EOT\EOT\SYN\STX\STX\DC2\EOT\163\SOH\STX6\"\RS The minimum fee coefficient.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\STX\ENQ\DC2\EOT\163\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\STX\SOH\DC2\EOT\163\SOH\t\FS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\STX\ETX\DC2\EOT\163\SOH\US \n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\STX\b\DC2\EOT\163\SOH!5\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\STX\b\ACK\DC2\EOT\163\SOH\"4\n\ - \)\n\ - \\EOT\EOT\SYN\STX\ETX\DC2\EOT\164\SOH\STX3\"\ESC The minimum fee constant.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ETX\ENQ\DC2\EOT\164\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ETX\SOH\DC2\EOT\164\SOH\t\EM\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ETX\ETX\DC2\EOT\164\SOH\FS\GS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ETX\b\DC2\EOT\164\SOH\RS2\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\ETX\b\ACK\DC2\EOT\164\SOH\US1\n\ - \,\n\ - \\EOT\EOT\SYN\STX\EOT\DC2\EOT\165\SOH\STX6\"\RS The maximum block body size.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\EOT\ENQ\DC2\EOT\165\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\EOT\SOH\DC2\EOT\165\SOH\t\FS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\EOT\ETX\DC2\EOT\165\SOH\US \n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\EOT\b\DC2\EOT\165\SOH!5\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\EOT\b\ACK\DC2\EOT\165\SOH\"4\n\ - \.\n\ - \\EOT\EOT\SYN\STX\ENQ\DC2\EOT\166\SOH\STX8\" The maximum block header size.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ENQ\ENQ\DC2\EOT\166\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ENQ\SOH\DC2\EOT\166\SOH\t\RS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ENQ\ETX\DC2\EOT\166\SOH!\"\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ENQ\b\DC2\EOT\166\SOH#7\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\ENQ\b\ACK\DC2\EOT\166\SOH$6\n\ - \&\n\ - \\EOT\EOT\SYN\STX\ACK\DC2\EOT\167\SOH\STX4\"\CAN The stake key deposit.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ACK\ENQ\DC2\EOT\167\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ACK\SOH\DC2\EOT\167\SOH\t\SUB\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ACK\ETX\DC2\EOT\167\SOH\GS\RS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ACK\b\DC2\EOT\167\SOH\US3\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\ACK\b\ACK\DC2\EOT\167\SOH 2\n\ - \!\n\ - \\EOT\EOT\SYN\STX\a\DC2\EOT\168\SOH\STX/\"\DC3 The pool deposit.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\a\ENQ\DC2\EOT\168\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\a\SOH\DC2\EOT\168\SOH\t\NAK\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\a\ETX\DC2\EOT\168\SOH\CAN\EM\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\a\b\DC2\EOT\168\SOH\SUB.\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\a\b\ACK\DC2\EOT\168\SOH\ESC-\n\ - \0\n\ - \\EOT\EOT\SYN\STX\b\DC2\EOT\169\SOH\STX)\"\" The pool retirement epoch bound.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\b\ENQ\DC2\EOT\169\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\b\SOH\DC2\EOT\169\SOH\t$\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\b\ETX\DC2\EOT\169\SOH'(\n\ - \,\n\ - \\EOT\EOT\SYN\STX\t\DC2\EOT\170\SOH\STX&\"\RS The desired number of pools.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\t\ENQ\DC2\EOT\170\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\t\SOH\DC2\EOT\170\SOH\t \n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\t\ETX\DC2\EOT\170\SOH#%\n\ - \#\n\ - \\EOT\EOT\SYN\STX\n\ - \\DC2\EOT\171\SOH\STX%\"\NAK The pool influence.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\n\ - \\ACK\DC2\EOT\171\SOH\STX\DLE\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\n\ - \\SOH\DC2\EOT\171\SOH\DC1\US\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\n\ - \\ETX\DC2\EOT\171\SOH\"$\n\ - \'\n\ - \\EOT\EOT\SYN\STX\v\DC2\EOT\172\SOH\STX)\"\EM The monetary expansion.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\v\ACK\DC2\EOT\172\SOH\STX\DLE\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\v\SOH\DC2\EOT\172\SOH\DC1#\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\v\ETX\DC2\EOT\172\SOH&(\n\ - \'\n\ - \\EOT\EOT\SYN\STX\f\DC2\EOT\173\SOH\STX)\"\EM The treasury expansion.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\f\ACK\DC2\EOT\173\SOH\STX\DLE\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\f\SOH\DC2\EOT\173\SOH\DC1#\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\f\ETX\DC2\EOT\173\SOH&(\n\ - \&\n\ - \\EOT\EOT\SYN\STX\r\DC2\EOT\174\SOH\STX1\"\CAN The minimum pool cost.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\r\ENQ\DC2\EOT\174\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\r\SOH\DC2\EOT\174\SOH\t\SYN\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\r\ETX\DC2\EOT\174\SOH\EM\ESC\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\r\b\DC2\EOT\174\SOH\FS0\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\r\b\ACK\DC2\EOT\174\SOH\GS/\n\ - \%\n\ - \\EOT\EOT\SYN\STX\SO\DC2\EOT\175\SOH\STX(\"\ETB The protocol version.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SO\ACK\DC2\EOT\175\SOH\STX\DC1\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SO\SOH\DC2\EOT\175\SOH\DC2\"\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SO\ETX\DC2\EOT\175\SOH%'\n\ - \'\n\ - \\EOT\EOT\SYN\STX\SI\DC2\EOT\176\SOH\STX2\"\EM The maximum value size.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SI\ENQ\DC2\EOT\176\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SI\SOH\DC2\EOT\176\SOH\t\ETB\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SI\ETX\DC2\EOT\176\SOH\SUB\FS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SI\b\DC2\EOT\176\SOH\GS1\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\SI\b\ACK\DC2\EOT\176\SOH\RS0\n\ - \*\n\ - \\EOT\EOT\SYN\STX\DLE\DC2\EOT\177\SOH\STX9\"\FS The collateral percentage.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DLE\ENQ\DC2\EOT\177\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DLE\SOH\DC2\EOT\177\SOH\t\RS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DLE\ETX\DC2\EOT\177\SOH!#\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DLE\b\DC2\EOT\177\SOH$8\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\DLE\b\ACK\DC2\EOT\177\SOH%7\n\ - \.\n\ - \\EOT\EOT\SYN\STX\DC1\DC2\EOT\178\SOH\STX9\" The maximum collateral inputs.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC1\ENQ\DC2\EOT\178\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC1\SOH\DC2\EOT\178\SOH\t\RS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC1\ETX\DC2\EOT\178\SOH!#\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC1\b\DC2\EOT\178\SOH$8\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\DC1\b\ACK\DC2\EOT\178\SOH%7\n\ - \ \n\ - \\EOT\EOT\SYN\STX\DC2\DC2\EOT\179\SOH\STX\RS\"\DC2 The cost models.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC2\ACK\DC2\EOT\179\SOH\STX\f\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC2\SOH\DC2\EOT\179\SOH\r\CAN\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC2\ETX\DC2\EOT\179\SOH\ESC\GS\n\ - \\ESC\n\ - \\EOT\EOT\SYN\STX\DC3\DC2\EOT\180\SOH\STX\ETB\"\r The prices.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC3\ACK\DC2\EOT\180\SOH\STX\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC3\SOH\DC2\EOT\180\SOH\v\DC1\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC3\ETX\DC2\EOT\180\SOH\DC4\SYN\n\ - \<\n\ - \\EOT\EOT\SYN\STX\DC4\DC2\EOT\181\SOH\STX3\". The maximum execution units per transaction.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC4\ACK\DC2\EOT\181\SOH\STX\t\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC4\SOH\DC2\EOT\181\SOH\n\ - \-\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\DC4\ETX\DC2\EOT\181\SOH02\n\ - \6\n\ - \\EOT\EOT\SYN\STX\NAK\DC2\EOT\182\SOH\STX-\"( The maximum execution units per block.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\NAK\ACK\DC2\EOT\182\SOH\STX\t\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\NAK\SOH\DC2\EOT\182\SOH\n\ - \'\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\NAK\ETX\DC2\EOT\182\SOH*,\n\ - \:\n\ - \\EOT\EOT\SYN\STX\SYN\DC2\EOT\183\SOH\STX7\", The minimum fee per script reference byte.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SYN\ACK\DC2\EOT\183\SOH\STX\DLE\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SYN\SOH\DC2\EOT\183\SOH\DC11\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SYN\ETX\DC2\EOT\183\SOH46\n\ - \+\n\ - \\EOT\EOT\SYN\STX\ETB\DC2\EOT\184\SOH\STX/\"\GS The pool voting thresholds.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ETB\ACK\DC2\EOT\184\SOH\STX\DC2\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ETB\SOH\DC2\EOT\184\SOH\DC3)\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ETB\ETX\DC2\EOT\184\SOH,.\n\ - \+\n\ - \\EOT\EOT\SYN\STX\CAN\DC2\EOT\185\SOH\STX/\"\GS The drep voting thresholds.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\CAN\ACK\DC2\EOT\185\SOH\STX\DC2\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\CAN\SOH\DC2\EOT\185\SOH\DC3)\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\CAN\ETX\DC2\EOT\185\SOH,.\n\ - \+\n\ - \\EOT\EOT\SYN\STX\EM\DC2\EOT\186\SOH\STX!\"\GS The minimum committee size.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\EM\ENQ\DC2\EOT\186\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\EM\SOH\DC2\EOT\186\SOH\t\ESC\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\EM\ETX\DC2\EOT\186\SOH\RS \n\ - \)\n\ - \\EOT\EOT\SYN\STX\SUB\DC2\EOT\187\SOH\STX#\"\ESC The committee term limit.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SUB\ENQ\DC2\EOT\187\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SUB\SOH\DC2\EOT\187\SOH\t\GS\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\SUB\ETX\DC2\EOT\187\SOH \"\n\ - \6\n\ - \\EOT\EOT\SYN\STX\ESC\DC2\EOT\188\SOH\STX0\"( The governance action validity period.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ESC\ENQ\DC2\EOT\188\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ESC\SOH\DC2\EOT\188\SOH\t*\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\ESC\ETX\DC2\EOT\188\SOH-/\n\ - \.\n\ - \\EOT\EOT\SYN\STX\FS\DC2\EOT\189\SOH\STX=\" The governance action deposit.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\FS\ENQ\DC2\EOT\189\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\FS\SOH\DC2\EOT\189\SOH\t\"\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\FS\ETX\DC2\EOT\189\SOH%'\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\FS\b\DC2\EOT\189\SOH(<\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\FS\b\ACK\DC2\EOT\189\SOH);\n\ - \!\n\ - \\EOT\EOT\SYN\STX\GS\DC2\EOT\190\SOH\STX0\"\DC3 The drep deposit.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\GS\ENQ\DC2\EOT\190\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\GS\SOH\DC2\EOT\190\SOH\t\NAK\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\GS\ETX\DC2\EOT\190\SOH\CAN\SUB\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\GS\b\DC2\EOT\190\SOH\ESC/\n\ - \\SO\n\ - \\ACK\EOT\SYN\STX\GS\b\ACK\DC2\EOT\190\SOH\FS.\n\ - \+\n\ - \\EOT\EOT\SYN\STX\RS\DC2\EOT\191\SOH\STX%\"\GS The drep inactivity period.\n\ - \\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\RS\ENQ\DC2\EOT\191\SOH\STX\b\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\RS\SOH\DC2\EOT\191\SOH\t\US\n\ - \\r\n\ - \\ENQ\EOT\SYN\STX\RS\ETX\DC2\EOT\191\SOH\"$b\ACKproto3" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano_Fields.hs b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano_Fields.hs deleted file mode 100644 index 1cfc9f0f9e..0000000000 --- a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano_Fields.hs +++ /dev/null @@ -1,803 +0,0 @@ -{- 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_Fields where -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 -address :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "address" a) => - Lens.Family2.LensLike' f s a -address = Data.ProtoLens.Field.field @"address" -anyConstructor :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "anyConstructor" a) => - Lens.Family2.LensLike' f s a -anyConstructor = Data.ProtoLens.Field.field @"anyConstructor" -array :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "array" a) => - Lens.Family2.LensLike' f s a -array = Data.ProtoLens.Field.field @"array" -assets :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "assets" a) => - Lens.Family2.LensLike' f s a -assets = Data.ProtoLens.Field.field @"assets" -bigInt :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bigInt" a) => - Lens.Family2.LensLike' f s a -bigInt = Data.ProtoLens.Field.field @"bigInt" -bigNInt :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bigNInt" a) => - Lens.Family2.LensLike' f s a -bigNInt = Data.ProtoLens.Field.field @"bigNInt" -bigUInt :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bigUInt" a) => - Lens.Family2.LensLike' f s a -bigUInt = Data.ProtoLens.Field.field @"bigUInt" -boundedBytes :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "boundedBytes" a) => - Lens.Family2.LensLike' f s a -boundedBytes = Data.ProtoLens.Field.field @"boundedBytes" -coin :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "coin" a) => - Lens.Family2.LensLike' f s a -coin = Data.ProtoLens.Field.field @"coin" -coinsPerUtxoByte :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "coinsPerUtxoByte" a) => - Lens.Family2.LensLike' f s a -coinsPerUtxoByte = Data.ProtoLens.Field.field @"coinsPerUtxoByte" -collateralPercentage :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "collateralPercentage" a) => - Lens.Family2.LensLike' f s a -collateralPercentage - = Data.ProtoLens.Field.field @"collateralPercentage" -committeeTermLimit :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "committeeTermLimit" a) => - Lens.Family2.LensLike' f s a -committeeTermLimit - = Data.ProtoLens.Field.field @"committeeTermLimit" -constr :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "constr" a) => - Lens.Family2.LensLike' f s a -constr = Data.ProtoLens.Field.field @"constr" -costModels :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "costModels" a) => - Lens.Family2.LensLike' f s a -costModels = Data.ProtoLens.Field.field @"costModels" -datum :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "datum" a) => - Lens.Family2.LensLike' f s a -datum = Data.ProtoLens.Field.field @"datum" -denominator :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "denominator" a) => - Lens.Family2.LensLike' f s a -denominator = Data.ProtoLens.Field.field @"denominator" -desiredNumberOfPools :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "desiredNumberOfPools" a) => - Lens.Family2.LensLike' f s a -desiredNumberOfPools - = Data.ProtoLens.Field.field @"desiredNumberOfPools" -drepDeposit :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "drepDeposit" a) => - Lens.Family2.LensLike' f s a -drepDeposit = Data.ProtoLens.Field.field @"drepDeposit" -drepInactivityPeriod :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "drepInactivityPeriod" a) => - Lens.Family2.LensLike' f s a -drepInactivityPeriod - = Data.ProtoLens.Field.field @"drepInactivityPeriod" -drepVotingThresholds :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "drepVotingThresholds" a) => - Lens.Family2.LensLike' f s a -drepVotingThresholds - = Data.ProtoLens.Field.field @"drepVotingThresholds" -fields :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fields" a) => - Lens.Family2.LensLike' f s a -fields = Data.ProtoLens.Field.field @"fields" -governanceActionDeposit :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "governanceActionDeposit" a) => - Lens.Family2.LensLike' f s a -governanceActionDeposit - = Data.ProtoLens.Field.field @"governanceActionDeposit" -governanceActionValidityPeriod :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "governanceActionValidityPeriod" a) => - Lens.Family2.LensLike' f s a -governanceActionValidityPeriod - = Data.ProtoLens.Field.field @"governanceActionValidityPeriod" -hash :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "hash" a) => - Lens.Family2.LensLike' f s a -hash = Data.ProtoLens.Field.field @"hash" -int :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "int" a) => - Lens.Family2.LensLike' f s a -int = Data.ProtoLens.Field.field @"int" -invalidBefore :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "invalidBefore" a) => - Lens.Family2.LensLike' f s a -invalidBefore = Data.ProtoLens.Field.field @"invalidBefore" -invalidHereafter :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "invalidHereafter" a) => - Lens.Family2.LensLike' f s a -invalidHereafter = Data.ProtoLens.Field.field @"invalidHereafter" -items :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "items" a) => - Lens.Family2.LensLike' f s a -items = Data.ProtoLens.Field.field @"items" -k :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "k" a) => - Lens.Family2.LensLike' f s a -k = Data.ProtoLens.Field.field @"k" -key :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) => - Lens.Family2.LensLike' f s a -key = Data.ProtoLens.Field.field @"key" -major :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "major" a) => - Lens.Family2.LensLike' f s a -major = Data.ProtoLens.Field.field @"major" -map :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "map" a) => - Lens.Family2.LensLike' f s a -map = Data.ProtoLens.Field.field @"map" -maxBlockBodySize :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maxBlockBodySize" a) => - Lens.Family2.LensLike' f s a -maxBlockBodySize = Data.ProtoLens.Field.field @"maxBlockBodySize" -maxBlockHeaderSize :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maxBlockHeaderSize" a) => - Lens.Family2.LensLike' f s a -maxBlockHeaderSize - = Data.ProtoLens.Field.field @"maxBlockHeaderSize" -maxCollateralInputs :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maxCollateralInputs" a) => - Lens.Family2.LensLike' f s a -maxCollateralInputs - = Data.ProtoLens.Field.field @"maxCollateralInputs" -maxExecutionUnitsPerBlock :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maxExecutionUnitsPerBlock" a) => - Lens.Family2.LensLike' f s a -maxExecutionUnitsPerBlock - = Data.ProtoLens.Field.field @"maxExecutionUnitsPerBlock" -maxExecutionUnitsPerTransaction :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maxExecutionUnitsPerTransaction" a) => - Lens.Family2.LensLike' f s a -maxExecutionUnitsPerTransaction - = Data.ProtoLens.Field.field @"maxExecutionUnitsPerTransaction" -maxTxSize :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maxTxSize" a) => - Lens.Family2.LensLike' f s a -maxTxSize = Data.ProtoLens.Field.field @"maxTxSize" -maxValueSize :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maxValueSize" a) => - Lens.Family2.LensLike' f s a -maxValueSize = Data.ProtoLens.Field.field @"maxValueSize" -maybe'array :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'array" a) => - Lens.Family2.LensLike' f s a -maybe'array = Data.ProtoLens.Field.field @"maybe'array" -maybe'bigInt :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'bigInt" a) => - Lens.Family2.LensLike' f s a -maybe'bigInt = Data.ProtoLens.Field.field @"maybe'bigInt" -maybe'bigNInt :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'bigNInt" a) => - Lens.Family2.LensLike' f s a -maybe'bigNInt = Data.ProtoLens.Field.field @"maybe'bigNInt" -maybe'bigUInt :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'bigUInt" a) => - Lens.Family2.LensLike' f s a -maybe'bigUInt = Data.ProtoLens.Field.field @"maybe'bigUInt" -maybe'boundedBytes :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'boundedBytes" a) => - Lens.Family2.LensLike' f s a -maybe'boundedBytes - = Data.ProtoLens.Field.field @"maybe'boundedBytes" -maybe'constr :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'constr" a) => - Lens.Family2.LensLike' f s a -maybe'constr = Data.ProtoLens.Field.field @"maybe'constr" -maybe'costModels :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'costModels" a) => - Lens.Family2.LensLike' f s a -maybe'costModels = Data.ProtoLens.Field.field @"maybe'costModels" -maybe'datum :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'datum" a) => - Lens.Family2.LensLike' f s a -maybe'datum = Data.ProtoLens.Field.field @"maybe'datum" -maybe'drepVotingThresholds :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'drepVotingThresholds" a) => - Lens.Family2.LensLike' f s a -maybe'drepVotingThresholds - = Data.ProtoLens.Field.field @"maybe'drepVotingThresholds" -maybe'int :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'int" a) => - Lens.Family2.LensLike' f s a -maybe'int = Data.ProtoLens.Field.field @"maybe'int" -maybe'invalidBefore :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'invalidBefore" a) => - Lens.Family2.LensLike' f s a -maybe'invalidBefore - = Data.ProtoLens.Field.field @"maybe'invalidBefore" -maybe'invalidHereafter :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'invalidHereafter" a) => - Lens.Family2.LensLike' f s a -maybe'invalidHereafter - = Data.ProtoLens.Field.field @"maybe'invalidHereafter" -maybe'key :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'key" a) => - Lens.Family2.LensLike' f s a -maybe'key = Data.ProtoLens.Field.field @"maybe'key" -maybe'map :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'map" a) => - Lens.Family2.LensLike' f s a -maybe'map = Data.ProtoLens.Field.field @"maybe'map" -maybe'maxExecutionUnitsPerBlock :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'maxExecutionUnitsPerBlock" a) => - Lens.Family2.LensLike' f s a -maybe'maxExecutionUnitsPerBlock - = Data.ProtoLens.Field.field @"maybe'maxExecutionUnitsPerBlock" -maybe'maxExecutionUnitsPerTransaction :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'maxExecutionUnitsPerTransaction" a) => - Lens.Family2.LensLike' f s a -maybe'maxExecutionUnitsPerTransaction - = Data.ProtoLens.Field.field - @"maybe'maxExecutionUnitsPerTransaction" -maybe'memory :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'memory" a) => - Lens.Family2.LensLike' f s a -maybe'memory = Data.ProtoLens.Field.field @"maybe'memory" -maybe'minFeeScriptRefCostPerByte :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'minFeeScriptRefCostPerByte" a) => - Lens.Family2.LensLike' f s a -maybe'minFeeScriptRefCostPerByte - = Data.ProtoLens.Field.field @"maybe'minFeeScriptRefCostPerByte" -maybe'mintCoin :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'mintCoin" a) => - Lens.Family2.LensLike' f s a -maybe'mintCoin = Data.ProtoLens.Field.field @"maybe'mintCoin" -maybe'monetaryExpansion :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'monetaryExpansion" a) => - Lens.Family2.LensLike' f s a -maybe'monetaryExpansion - = Data.ProtoLens.Field.field @"maybe'monetaryExpansion" -maybe'native :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'native" a) => - Lens.Family2.LensLike' f s a -maybe'native = Data.ProtoLens.Field.field @"maybe'native" -maybe'nativeScript :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'nativeScript" a) => - Lens.Family2.LensLike' f s a -maybe'nativeScript - = Data.ProtoLens.Field.field @"maybe'nativeScript" -maybe'originalCbor :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'originalCbor" a) => - Lens.Family2.LensLike' f s a -maybe'originalCbor - = Data.ProtoLens.Field.field @"maybe'originalCbor" -maybe'outputCoin :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'outputCoin" a) => - Lens.Family2.LensLike' f s a -maybe'outputCoin = Data.ProtoLens.Field.field @"maybe'outputCoin" -maybe'payload :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'payload" a) => - Lens.Family2.LensLike' f s a -maybe'payload = Data.ProtoLens.Field.field @"maybe'payload" -maybe'plutusData :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'plutusData" a) => - Lens.Family2.LensLike' f s a -maybe'plutusData = Data.ProtoLens.Field.field @"maybe'plutusData" -maybe'plutusV1 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'plutusV1" a) => - Lens.Family2.LensLike' f s a -maybe'plutusV1 = Data.ProtoLens.Field.field @"maybe'plutusV1" -maybe'plutusV2 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'plutusV2" a) => - Lens.Family2.LensLike' f s a -maybe'plutusV2 = Data.ProtoLens.Field.field @"maybe'plutusV2" -maybe'plutusV3 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'plutusV3" a) => - Lens.Family2.LensLike' f s a -maybe'plutusV3 = Data.ProtoLens.Field.field @"maybe'plutusV3" -maybe'plutusV4 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'plutusV4" a) => - Lens.Family2.LensLike' f s a -maybe'plutusV4 = Data.ProtoLens.Field.field @"maybe'plutusV4" -maybe'poolInfluence :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'poolInfluence" a) => - Lens.Family2.LensLike' f s a -maybe'poolInfluence - = Data.ProtoLens.Field.field @"maybe'poolInfluence" -maybe'poolVotingThresholds :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'poolVotingThresholds" a) => - Lens.Family2.LensLike' f s a -maybe'poolVotingThresholds - = Data.ProtoLens.Field.field @"maybe'poolVotingThresholds" -maybe'prices :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'prices" a) => - Lens.Family2.LensLike' f s a -maybe'prices = Data.ProtoLens.Field.field @"maybe'prices" -maybe'protocolVersion :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'protocolVersion" a) => - Lens.Family2.LensLike' f s a -maybe'protocolVersion - = Data.ProtoLens.Field.field @"maybe'protocolVersion" -maybe'quantity :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'quantity" a) => - Lens.Family2.LensLike' f s a -maybe'quantity = Data.ProtoLens.Field.field @"maybe'quantity" -maybe'script :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'script" a) => - Lens.Family2.LensLike' f s a -maybe'script = Data.ProtoLens.Field.field @"maybe'script" -maybe'scriptAll :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'scriptAll" a) => - Lens.Family2.LensLike' f s a -maybe'scriptAll = Data.ProtoLens.Field.field @"maybe'scriptAll" -maybe'scriptAny :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'scriptAny" a) => - Lens.Family2.LensLike' f s a -maybe'scriptAny = Data.ProtoLens.Field.field @"maybe'scriptAny" -maybe'scriptNOfK :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'scriptNOfK" a) => - Lens.Family2.LensLike' f s a -maybe'scriptNOfK = Data.ProtoLens.Field.field @"maybe'scriptNOfK" -maybe'scriptPubkey :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'scriptPubkey" a) => - Lens.Family2.LensLike' f s a -maybe'scriptPubkey - = Data.ProtoLens.Field.field @"maybe'scriptPubkey" -maybe'steps :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'steps" a) => - Lens.Family2.LensLike' f s a -maybe'steps = Data.ProtoLens.Field.field @"maybe'steps" -maybe'treasuryExpansion :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'treasuryExpansion" a) => - Lens.Family2.LensLike' f s a -maybe'treasuryExpansion - = Data.ProtoLens.Field.field @"maybe'treasuryExpansion" -maybe'value :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'value" a) => - Lens.Family2.LensLike' f s a -maybe'value = Data.ProtoLens.Field.field @"maybe'value" -memory :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "memory" a) => - Lens.Family2.LensLike' f s a -memory = Data.ProtoLens.Field.field @"memory" -minCommitteeSize :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "minCommitteeSize" a) => - Lens.Family2.LensLike' f s a -minCommitteeSize = Data.ProtoLens.Field.field @"minCommitteeSize" -minFeeCoefficient :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "minFeeCoefficient" a) => - Lens.Family2.LensLike' f s a -minFeeCoefficient = Data.ProtoLens.Field.field @"minFeeCoefficient" -minFeeConstant :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "minFeeConstant" a) => - Lens.Family2.LensLike' f s a -minFeeConstant = Data.ProtoLens.Field.field @"minFeeConstant" -minFeeScriptRefCostPerByte :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "minFeeScriptRefCostPerByte" a) => - Lens.Family2.LensLike' f s a -minFeeScriptRefCostPerByte - = Data.ProtoLens.Field.field @"minFeeScriptRefCostPerByte" -minPoolCost :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "minPoolCost" a) => - Lens.Family2.LensLike' f s a -minPoolCost = Data.ProtoLens.Field.field @"minPoolCost" -minor :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "minor" a) => - Lens.Family2.LensLike' f s a -minor = Data.ProtoLens.Field.field @"minor" -mintCoin :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "mintCoin" a) => - Lens.Family2.LensLike' f s a -mintCoin = Data.ProtoLens.Field.field @"mintCoin" -monetaryExpansion :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "monetaryExpansion" a) => - Lens.Family2.LensLike' f s a -monetaryExpansion = Data.ProtoLens.Field.field @"monetaryExpansion" -name :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) => - Lens.Family2.LensLike' f s a -name = Data.ProtoLens.Field.field @"name" -native :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "native" a) => - Lens.Family2.LensLike' f s a -native = Data.ProtoLens.Field.field @"native" -numerator :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "numerator" a) => - Lens.Family2.LensLike' f s a -numerator = Data.ProtoLens.Field.field @"numerator" -originalCbor :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "originalCbor" a) => - Lens.Family2.LensLike' f s a -originalCbor = Data.ProtoLens.Field.field @"originalCbor" -outputCoin :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "outputCoin" a) => - Lens.Family2.LensLike' f s a -outputCoin = Data.ProtoLens.Field.field @"outputCoin" -pairs :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "pairs" a) => - Lens.Family2.LensLike' f s a -pairs = Data.ProtoLens.Field.field @"pairs" -payload :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "payload" a) => - Lens.Family2.LensLike' f s a -payload = Data.ProtoLens.Field.field @"payload" -plutusV1 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "plutusV1" a) => - Lens.Family2.LensLike' f s a -plutusV1 = Data.ProtoLens.Field.field @"plutusV1" -plutusV2 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "plutusV2" a) => - Lens.Family2.LensLike' f s a -plutusV2 = Data.ProtoLens.Field.field @"plutusV2" -plutusV3 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "plutusV3" a) => - Lens.Family2.LensLike' f s a -plutusV3 = Data.ProtoLens.Field.field @"plutusV3" -plutusV4 :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "plutusV4" a) => - Lens.Family2.LensLike' f s a -plutusV4 = Data.ProtoLens.Field.field @"plutusV4" -policyId :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "policyId" a) => - Lens.Family2.LensLike' f s a -policyId = Data.ProtoLens.Field.field @"policyId" -poolDeposit :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "poolDeposit" a) => - Lens.Family2.LensLike' f s a -poolDeposit = Data.ProtoLens.Field.field @"poolDeposit" -poolInfluence :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "poolInfluence" a) => - Lens.Family2.LensLike' f s a -poolInfluence = Data.ProtoLens.Field.field @"poolInfluence" -poolRetirementEpochBound :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "poolRetirementEpochBound" a) => - Lens.Family2.LensLike' f s a -poolRetirementEpochBound - = Data.ProtoLens.Field.field @"poolRetirementEpochBound" -poolVotingThresholds :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "poolVotingThresholds" a) => - Lens.Family2.LensLike' f s a -poolVotingThresholds - = Data.ProtoLens.Field.field @"poolVotingThresholds" -prices :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "prices" a) => - Lens.Family2.LensLike' f s a -prices = Data.ProtoLens.Field.field @"prices" -protocolVersion :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "protocolVersion" a) => - Lens.Family2.LensLike' f s a -protocolVersion = Data.ProtoLens.Field.field @"protocolVersion" -script :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "script" a) => - Lens.Family2.LensLike' f s a -script = Data.ProtoLens.Field.field @"script" -scriptAll :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "scriptAll" a) => - Lens.Family2.LensLike' f s a -scriptAll = Data.ProtoLens.Field.field @"scriptAll" -scriptAny :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "scriptAny" a) => - Lens.Family2.LensLike' f s a -scriptAny = Data.ProtoLens.Field.field @"scriptAny" -scriptNOfK :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "scriptNOfK" a) => - Lens.Family2.LensLike' f s a -scriptNOfK = Data.ProtoLens.Field.field @"scriptNOfK" -scriptPubkey :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "scriptPubkey" a) => - Lens.Family2.LensLike' f s a -scriptPubkey = Data.ProtoLens.Field.field @"scriptPubkey" -scripts :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "scripts" a) => - Lens.Family2.LensLike' f s a -scripts = Data.ProtoLens.Field.field @"scripts" -stakeKeyDeposit :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "stakeKeyDeposit" a) => - Lens.Family2.LensLike' f s a -stakeKeyDeposit = Data.ProtoLens.Field.field @"stakeKeyDeposit" -steps :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "steps" a) => - Lens.Family2.LensLike' f s a -steps = Data.ProtoLens.Field.field @"steps" -tag :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tag" a) => - Lens.Family2.LensLike' f s a -tag = Data.ProtoLens.Field.field @"tag" -thresholds :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "thresholds" a) => - Lens.Family2.LensLike' f s a -thresholds = Data.ProtoLens.Field.field @"thresholds" -treasuryExpansion :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "treasuryExpansion" a) => - Lens.Family2.LensLike' f s a -treasuryExpansion = Data.ProtoLens.Field.field @"treasuryExpansion" -value :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) => - Lens.Family2.LensLike' f s a -value = Data.ProtoLens.Field.field @"value" -values :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "values" a) => - Lens.Family2.LensLike' f s a -values = Data.ProtoLens.Field.field @"values" -vec'assets :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'assets" a) => - Lens.Family2.LensLike' f s a -vec'assets = Data.ProtoLens.Field.field @"vec'assets" -vec'fields :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'fields" a) => - Lens.Family2.LensLike' f s a -vec'fields = Data.ProtoLens.Field.field @"vec'fields" -vec'items :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'items" a) => - Lens.Family2.LensLike' f s a -vec'items = Data.ProtoLens.Field.field @"vec'items" -vec'pairs :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'pairs" a) => - Lens.Family2.LensLike' f s a -vec'pairs = Data.ProtoLens.Field.field @"vec'pairs" -vec'scripts :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'scripts" a) => - Lens.Family2.LensLike' f s a -vec'scripts = Data.ProtoLens.Field.field @"vec'scripts" -vec'thresholds :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'thresholds" a) => - Lens.Family2.LensLike' f s a -vec'thresholds = Data.ProtoLens.Field.field @"vec'thresholds" -vec'values :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'values" a) => - Lens.Family2.LensLike' f s a -vec'values = Data.ProtoLens.Field.field @"vec'values" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query.hs b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query.hs deleted file mode 100644 index 177debc49d..0000000000 --- a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query.hs +++ /dev/null @@ -1,2064 +0,0 @@ -{- This file was auto-generated from utxorpc/v1alpha/query/query.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.Query.Query ( - QueryService(..), AnyChainParams(), AnyChainParams'Params(..), - _AnyChainParams'Cardano, AnyUtxoData(), - AnyUtxoData'ParsedState(..), _AnyUtxoData'Cardano, ChainPoint(), - ReadParamsRequest(), ReadParamsResponse(), ReadUtxosRequest(), - ReadUtxosRequest'QueryArgs(..), _ReadUtxosRequest'TxoRefs, - _ReadUtxosRequest'CardanoAddresses, ReadUtxosResponse(), TxoRef(), - TxoRefArray() - ) 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 -import qualified Proto.Google.Protobuf.FieldMask -import qualified Proto.Utxorpc.V1alpha.Cardano.Cardano -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'params' @:: Lens' AnyChainParams (Prelude.Maybe AnyChainParams'Params)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainParams (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyChainParams Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams@ -} -data AnyChainParams - = AnyChainParams'_constructor {_AnyChainParams'params :: !(Prelude.Maybe AnyChainParams'Params), - _AnyChainParams'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show AnyChainParams where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data AnyChainParams'Params - = AnyChainParams'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'params" (Prelude.Maybe AnyChainParams'Params) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyChainParams'params - (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyChainParams'params - (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (AnyChainParams'Cardano x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AnyChainParams'Cardano y__)) -instance Data.ProtoLens.Field.HasField AnyChainParams "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyChainParams'params - (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (AnyChainParams'Cardano x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AnyChainParams'Cardano y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Message AnyChainParams where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.query.AnyChainParams" - packedMessageDescriptor _ - = "\n\ - \\SOAnyChainParams\DC2<\n\ - \\acardano\CAN\SOH \SOH(\v2 .utxorpc.v1alpha.cardano.PParamsH\NULR\acardanoB\b\n\ - \\ACKparams" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - cardano__field_descriptor - = Data.ProtoLens.FieldDescriptor - "cardano" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'cardano")) :: - Data.ProtoLens.FieldDescriptor AnyChainParams - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _AnyChainParams'_unknownFields - (\ x__ y__ -> x__ {_AnyChainParams'_unknownFields = y__}) - defMessage - = AnyChainParams'_constructor - {_AnyChainParams'params = Prelude.Nothing, - _AnyChainParams'_unknownFields = []} - parseMessage - = let - loop :: - AnyChainParams - -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainParams - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "cardano" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "AnyChainParams" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'params") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (AnyChainParams'Cardano v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData AnyChainParams where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_AnyChainParams'_unknownFields x__) - (Control.DeepSeq.deepseq (_AnyChainParams'params x__) ()) -instance Control.DeepSeq.NFData AnyChainParams'Params where - rnf (AnyChainParams'Cardano x__) = Control.DeepSeq.rnf x__ -_AnyChainParams'Cardano :: - Data.ProtoLens.Prism.Prism' AnyChainParams'Params Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams -_AnyChainParams'Cardano - = Data.ProtoLens.Prism.prism' - AnyChainParams'Cardano - (\ p__ - -> case p__ of - (AnyChainParams'Cardano p__val) -> Prelude.Just p__val) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.nativeBytes' @:: Lens' AnyUtxoData Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.txoRef' @:: Lens' AnyUtxoData TxoRef@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'txoRef' @:: Lens' AnyUtxoData (Prelude.Maybe TxoRef)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'parsedState' @:: Lens' AnyUtxoData (Prelude.Maybe AnyUtxoData'ParsedState)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyUtxoData (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyUtxoData Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput@ -} -data AnyUtxoData - = AnyUtxoData'_constructor {_AnyUtxoData'nativeBytes :: !Data.ByteString.ByteString, - _AnyUtxoData'txoRef :: !(Prelude.Maybe TxoRef), - _AnyUtxoData'parsedState :: !(Prelude.Maybe AnyUtxoData'ParsedState), - _AnyUtxoData'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show AnyUtxoData where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data AnyUtxoData'ParsedState - = AnyUtxoData'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField AnyUtxoData "nativeBytes" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyUtxoData'nativeBytes - (\ x__ y__ -> x__ {_AnyUtxoData'nativeBytes = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField AnyUtxoData "txoRef" TxoRef where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyUtxoData'txoRef (\ x__ y__ -> x__ {_AnyUtxoData'txoRef = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'txoRef" (Prelude.Maybe TxoRef) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyUtxoData'txoRef (\ x__ y__ -> x__ {_AnyUtxoData'txoRef = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'parsedState" (Prelude.Maybe AnyUtxoData'ParsedState) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyUtxoData'parsedState - (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyUtxoData'parsedState - (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (AnyUtxoData'Cardano x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AnyUtxoData'Cardano y__)) -instance Data.ProtoLens.Field.HasField AnyUtxoData "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyUtxoData'parsedState - (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (AnyUtxoData'Cardano x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AnyUtxoData'Cardano y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Message AnyUtxoData where - messageName _ = Data.Text.pack "utxorpc.v1alpha.query.AnyUtxoData" - packedMessageDescriptor _ - = "\n\ - \\vAnyUtxoData\DC2!\n\ - \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC26\n\ - \\atxo_ref\CAN\STX \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\DC2=\n\ - \\acardano\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\SO\n\ - \\fparsed_state" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - nativeBytes__field_descriptor - = Data.ProtoLens.FieldDescriptor - "native_bytes" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"nativeBytes")) :: - Data.ProtoLens.FieldDescriptor AnyUtxoData - txoRef__field_descriptor - = Data.ProtoLens.FieldDescriptor - "txo_ref" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor TxoRef) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'txoRef")) :: - Data.ProtoLens.FieldDescriptor AnyUtxoData - cardano__field_descriptor - = Data.ProtoLens.FieldDescriptor - "cardano" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'cardano")) :: - Data.ProtoLens.FieldDescriptor AnyUtxoData - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, nativeBytes__field_descriptor), - (Data.ProtoLens.Tag 2, txoRef__field_descriptor), - (Data.ProtoLens.Tag 3, cardano__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _AnyUtxoData'_unknownFields - (\ x__ y__ -> x__ {_AnyUtxoData'_unknownFields = y__}) - defMessage - = AnyUtxoData'_constructor - {_AnyUtxoData'nativeBytes = Data.ProtoLens.fieldDefault, - _AnyUtxoData'txoRef = Prelude.Nothing, - _AnyUtxoData'parsedState = Prelude.Nothing, - _AnyUtxoData'_unknownFields = []} - parseMessage - = let - loop :: - AnyUtxoData -> Data.ProtoLens.Encoding.Bytes.Parser AnyUtxoData - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "native_bytes" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "txo_ref" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txoRef") y x) - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "cardano" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "AnyUtxoData" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let - _v - = Lens.Family2.view (Data.ProtoLens.Field.field @"nativeBytes") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'txoRef") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'parsedState") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (AnyUtxoData'Cardano v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) -instance Control.DeepSeq.NFData AnyUtxoData where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_AnyUtxoData'_unknownFields x__) - (Control.DeepSeq.deepseq - (_AnyUtxoData'nativeBytes x__) - (Control.DeepSeq.deepseq - (_AnyUtxoData'txoRef x__) - (Control.DeepSeq.deepseq (_AnyUtxoData'parsedState x__) ()))) -instance Control.DeepSeq.NFData AnyUtxoData'ParsedState where - rnf (AnyUtxoData'Cardano x__) = Control.DeepSeq.rnf x__ -_AnyUtxoData'Cardano :: - Data.ProtoLens.Prism.Prism' AnyUtxoData'ParsedState Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput -_AnyUtxoData'Cardano - = Data.ProtoLens.Prism.prism' - AnyUtxoData'Cardano - (\ p__ - -> case p__ of (AnyUtxoData'Cardano p__val) -> Prelude.Just p__val) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.slot' @:: Lens' ChainPoint Data.Word.Word64@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.hash' @:: Lens' ChainPoint Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.height' @:: Lens' ChainPoint Data.Word.Word64@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.timestamp' @:: Lens' ChainPoint Data.Word.Word64@ -} -data ChainPoint - = ChainPoint'_constructor {_ChainPoint'slot :: !Data.Word.Word64, - _ChainPoint'hash :: !Data.ByteString.ByteString, - _ChainPoint'height :: !Data.Word.Word64, - _ChainPoint'timestamp :: !Data.Word.Word64, - _ChainPoint'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ChainPoint where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ChainPoint "slot" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ChainPoint'slot (\ x__ y__ -> x__ {_ChainPoint'slot = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ChainPoint "hash" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ChainPoint'hash (\ x__ y__ -> x__ {_ChainPoint'hash = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ChainPoint "height" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ChainPoint'height (\ x__ y__ -> x__ {_ChainPoint'height = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ChainPoint "timestamp" Data.Word.Word64 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ChainPoint'timestamp - (\ x__ y__ -> x__ {_ChainPoint'timestamp = y__})) - Prelude.id -instance Data.ProtoLens.Message ChainPoint where - messageName _ = Data.Text.pack "utxorpc.v1alpha.query.ChainPoint" - packedMessageDescriptor _ - = "\n\ - \\n\ - \ChainPoint\DC2\DC2\n\ - \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ - \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\ - \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\DC2\FS\n\ - \\ttimestamp\CAN\EOT \SOH(\EOTR\ttimestamp" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - slot__field_descriptor - = Data.ProtoLens.FieldDescriptor - "slot" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) :: - Data.ProtoLens.FieldDescriptor ChainPoint - hash__field_descriptor - = Data.ProtoLens.FieldDescriptor - "hash" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: - Data.ProtoLens.FieldDescriptor ChainPoint - height__field_descriptor - = Data.ProtoLens.FieldDescriptor - "height" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) :: - Data.ProtoLens.FieldDescriptor ChainPoint - timestamp__field_descriptor - = Data.ProtoLens.FieldDescriptor - "timestamp" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional - (Data.ProtoLens.Field.field @"timestamp")) :: - Data.ProtoLens.FieldDescriptor ChainPoint - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, slot__field_descriptor), - (Data.ProtoLens.Tag 2, hash__field_descriptor), - (Data.ProtoLens.Tag 3, height__field_descriptor), - (Data.ProtoLens.Tag 4, timestamp__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ChainPoint'_unknownFields - (\ x__ y__ -> x__ {_ChainPoint'_unknownFields = y__}) - defMessage - = ChainPoint'_constructor - {_ChainPoint'slot = Data.ProtoLens.fieldDefault, - _ChainPoint'hash = Data.ProtoLens.fieldDefault, - _ChainPoint'height = Data.ProtoLens.fieldDefault, - _ChainPoint'timestamp = Data.ProtoLens.fieldDefault, - _ChainPoint'_unknownFields = []} - parseMessage - = let - loop :: - ChainPoint -> Data.ProtoLens.Encoding.Bytes.Parser ChainPoint - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "slot" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "hash" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) - 24 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "height" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x) - 32 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - Data.ProtoLens.Encoding.Bytes.getVarInt "timestamp" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "ChainPoint" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 8) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - ((Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"height") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 24) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - ((Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timestamp") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 32) - (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) -instance Control.DeepSeq.NFData ChainPoint where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ChainPoint'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ChainPoint'slot x__) - (Control.DeepSeq.deepseq - (_ChainPoint'hash x__) - (Control.DeepSeq.deepseq - (_ChainPoint'height x__) - (Control.DeepSeq.deepseq (_ChainPoint'timestamp x__) ())))) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.fieldMask' @:: Lens' ReadParamsRequest Proto.Google.Protobuf.FieldMask.FieldMask@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadParamsRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} -data ReadParamsRequest - = ReadParamsRequest'_constructor {_ReadParamsRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), - _ReadParamsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ReadParamsRequest where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ReadParamsRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadParamsRequest'fieldMask - (\ x__ y__ -> x__ {_ReadParamsRequest'fieldMask = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField ReadParamsRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadParamsRequest'fieldMask - (\ x__ y__ -> x__ {_ReadParamsRequest'fieldMask = y__})) - Prelude.id -instance Data.ProtoLens.Message ReadParamsRequest where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.query.ReadParamsRequest" - packedMessageDescriptor _ - = "\n\ - \\DC1ReadParamsRequest\DC29\n\ - \\n\ - \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - fieldMask__field_descriptor - = Data.ProtoLens.FieldDescriptor - "field_mask" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: - Data.ProtoLens.FieldDescriptor ReadParamsRequest - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, fieldMask__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ReadParamsRequest'_unknownFields - (\ x__ y__ -> x__ {_ReadParamsRequest'_unknownFields = y__}) - defMessage - = ReadParamsRequest'_constructor - {_ReadParamsRequest'fieldMask = Prelude.Nothing, - _ReadParamsRequest'_unknownFields = []} - parseMessage - = let - loop :: - ReadParamsRequest - -> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsRequest - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "field_mask" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "ReadParamsRequest" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'fieldMask") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData ReadParamsRequest where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ReadParamsRequest'_unknownFields x__) - (Control.DeepSeq.deepseq (_ReadParamsRequest'fieldMask x__) ()) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.values' @:: Lens' ReadParamsResponse AnyChainParams@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'values' @:: Lens' ReadParamsResponse (Prelude.Maybe AnyChainParams)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' ReadParamsResponse ChainPoint@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadParamsResponse (Prelude.Maybe ChainPoint)@ -} -data ReadParamsResponse - = ReadParamsResponse'_constructor {_ReadParamsResponse'values :: !(Prelude.Maybe AnyChainParams), - _ReadParamsResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), - _ReadParamsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ReadParamsResponse where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ReadParamsResponse "values" AnyChainParams where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadParamsResponse'values - (\ x__ y__ -> x__ {_ReadParamsResponse'values = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'values" (Prelude.Maybe AnyChainParams) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadParamsResponse'values - (\ x__ y__ -> x__ {_ReadParamsResponse'values = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ReadParamsResponse "ledgerTip" ChainPoint where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadParamsResponse'ledgerTip - (\ x__ y__ -> x__ {_ReadParamsResponse'ledgerTip = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadParamsResponse'ledgerTip - (\ x__ y__ -> x__ {_ReadParamsResponse'ledgerTip = y__})) - Prelude.id -instance Data.ProtoLens.Message ReadParamsResponse where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.query.ReadParamsResponse" - packedMessageDescriptor _ - = "\n\ - \\DC2ReadParamsResponse\DC2=\n\ - \\ACKvalues\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyChainParamsR\ACKvalues\DC2@\n\ - \\n\ - \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - values__field_descriptor - = Data.ProtoLens.FieldDescriptor - "values" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor AnyChainParams) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'values")) :: - Data.ProtoLens.FieldDescriptor ReadParamsResponse - ledgerTip__field_descriptor - = Data.ProtoLens.FieldDescriptor - "ledger_tip" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor ChainPoint) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: - Data.ProtoLens.FieldDescriptor ReadParamsResponse - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, values__field_descriptor), - (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ReadParamsResponse'_unknownFields - (\ x__ y__ -> x__ {_ReadParamsResponse'_unknownFields = y__}) - defMessage - = ReadParamsResponse'_constructor - {_ReadParamsResponse'values = Prelude.Nothing, - _ReadParamsResponse'ledgerTip = Prelude.Nothing, - _ReadParamsResponse'_unknownFields = []} - parseMessage - = let - loop :: - ReadParamsResponse - -> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsResponse - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "values" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"values") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "ledger_tip" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "ReadParamsResponse" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'values") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData ReadParamsResponse where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ReadParamsResponse'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ReadParamsResponse'values x__) - (Control.DeepSeq.deepseq (_ReadParamsResponse'ledgerTip x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.fieldMask' @:: Lens' ReadUtxosRequest Proto.Google.Protobuf.FieldMask.FieldMask@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadUtxosRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'queryArgs' @:: Lens' ReadUtxosRequest (Prelude.Maybe ReadUtxosRequest'QueryArgs)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'txoRefs' @:: Lens' ReadUtxosRequest (Prelude.Maybe TxoRefArray)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.txoRefs' @:: Lens' ReadUtxosRequest TxoRefArray@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardanoAddresses' @:: Lens' ReadUtxosRequest (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.AddressArray)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardanoAddresses' @:: Lens' ReadUtxosRequest Proto.Utxorpc.V1alpha.Cardano.Cardano.AddressArray@ -} -data ReadUtxosRequest - = ReadUtxosRequest'_constructor {_ReadUtxosRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), - _ReadUtxosRequest'queryArgs :: !(Prelude.Maybe ReadUtxosRequest'QueryArgs), - _ReadUtxosRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ReadUtxosRequest where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data ReadUtxosRequest'QueryArgs - = ReadUtxosRequest'TxoRefs !TxoRefArray | - ReadUtxosRequest'CardanoAddresses !Proto.Utxorpc.V1alpha.Cardano.Cardano.AddressArray - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField ReadUtxosRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosRequest'fieldMask - (\ x__ y__ -> x__ {_ReadUtxosRequest'fieldMask = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField ReadUtxosRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosRequest'fieldMask - (\ x__ y__ -> x__ {_ReadUtxosRequest'fieldMask = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ReadUtxosRequest "maybe'queryArgs" (Prelude.Maybe ReadUtxosRequest'QueryArgs) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosRequest'queryArgs - (\ x__ y__ -> x__ {_ReadUtxosRequest'queryArgs = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ReadUtxosRequest "maybe'txoRefs" (Prelude.Maybe TxoRefArray) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosRequest'queryArgs - (\ x__ y__ -> x__ {_ReadUtxosRequest'queryArgs = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (ReadUtxosRequest'TxoRefs x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ReadUtxosRequest'TxoRefs y__)) -instance Data.ProtoLens.Field.HasField ReadUtxosRequest "txoRefs" TxoRefArray where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosRequest'queryArgs - (\ x__ y__ -> x__ {_ReadUtxosRequest'queryArgs = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (ReadUtxosRequest'TxoRefs x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ReadUtxosRequest'TxoRefs y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Field.HasField ReadUtxosRequest "maybe'cardanoAddresses" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.AddressArray) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosRequest'queryArgs - (\ x__ y__ -> x__ {_ReadUtxosRequest'queryArgs = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (ReadUtxosRequest'CardanoAddresses x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ReadUtxosRequest'CardanoAddresses y__)) -instance Data.ProtoLens.Field.HasField ReadUtxosRequest "cardanoAddresses" Proto.Utxorpc.V1alpha.Cardano.Cardano.AddressArray where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosRequest'queryArgs - (\ x__ y__ -> x__ {_ReadUtxosRequest'queryArgs = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (ReadUtxosRequest'CardanoAddresses x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap ReadUtxosRequest'CardanoAddresses y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) -instance Data.ProtoLens.Message ReadUtxosRequest where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.query.ReadUtxosRequest" - packedMessageDescriptor _ - = "\n\ - \\DLEReadUtxosRequest\DC2>\n\ - \\atxoRefs\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.query.TxoRefArrayH\NULR\atxoRefs\DC2T\n\ - \\DC1cardano_addresses\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AddressArrayH\NULR\DLEcardanoAddresses\DC29\n\ - \\n\ - \field_mask\CAN\ETX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMaskB\f\n\ - \\n\ - \query_args" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - fieldMask__field_descriptor - = Data.ProtoLens.FieldDescriptor - "field_mask" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: - Data.ProtoLens.FieldDescriptor ReadUtxosRequest - txoRefs__field_descriptor - = Data.ProtoLens.FieldDescriptor - "txoRefs" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor TxoRefArray) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'txoRefs")) :: - Data.ProtoLens.FieldDescriptor ReadUtxosRequest - cardanoAddresses__field_descriptor - = Data.ProtoLens.FieldDescriptor - "cardano_addresses" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.AddressArray) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'cardanoAddresses")) :: - Data.ProtoLens.FieldDescriptor ReadUtxosRequest - in - Data.Map.fromList - [(Data.ProtoLens.Tag 3, fieldMask__field_descriptor), - (Data.ProtoLens.Tag 1, txoRefs__field_descriptor), - (Data.ProtoLens.Tag 2, cardanoAddresses__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ReadUtxosRequest'_unknownFields - (\ x__ y__ -> x__ {_ReadUtxosRequest'_unknownFields = y__}) - defMessage - = ReadUtxosRequest'_constructor - {_ReadUtxosRequest'fieldMask = Prelude.Nothing, - _ReadUtxosRequest'queryArgs = Prelude.Nothing, - _ReadUtxosRequest'_unknownFields = []} - parseMessage - = let - loop :: - ReadUtxosRequest - -> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosRequest - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 26 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "field_mask" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "txoRefs" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txoRefs") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "cardano_addresses" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"cardanoAddresses") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "ReadUtxosRequest" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'fieldMask") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 26) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'queryArgs") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (ReadUtxosRequest'TxoRefs v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v) - (Prelude.Just (ReadUtxosRequest'CardanoAddresses v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData ReadUtxosRequest where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ReadUtxosRequest'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ReadUtxosRequest'fieldMask x__) - (Control.DeepSeq.deepseq (_ReadUtxosRequest'queryArgs x__) ())) -instance Control.DeepSeq.NFData ReadUtxosRequest'QueryArgs where - rnf (ReadUtxosRequest'TxoRefs x__) = Control.DeepSeq.rnf x__ - rnf (ReadUtxosRequest'CardanoAddresses x__) - = Control.DeepSeq.rnf x__ -_ReadUtxosRequest'TxoRefs :: - Data.ProtoLens.Prism.Prism' ReadUtxosRequest'QueryArgs TxoRefArray -_ReadUtxosRequest'TxoRefs - = Data.ProtoLens.Prism.prism' - ReadUtxosRequest'TxoRefs - (\ p__ - -> case p__ of - (ReadUtxosRequest'TxoRefs p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_ReadUtxosRequest'CardanoAddresses :: - Data.ProtoLens.Prism.Prism' ReadUtxosRequest'QueryArgs Proto.Utxorpc.V1alpha.Cardano.Cardano.AddressArray -_ReadUtxosRequest'CardanoAddresses - = Data.ProtoLens.Prism.prism' - ReadUtxosRequest'CardanoAddresses - (\ p__ - -> case p__ of - (ReadUtxosRequest'CardanoAddresses p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.items' @:: Lens' ReadUtxosResponse [AnyUtxoData]@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'items' @:: Lens' ReadUtxosResponse (Data.Vector.Vector AnyUtxoData)@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' ReadUtxosResponse ChainPoint@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadUtxosResponse (Prelude.Maybe ChainPoint)@ -} -data ReadUtxosResponse - = ReadUtxosResponse'_constructor {_ReadUtxosResponse'items :: !(Data.Vector.Vector AnyUtxoData), - _ReadUtxosResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), - _ReadUtxosResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show ReadUtxosResponse where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField ReadUtxosResponse "items" [AnyUtxoData] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosResponse'items - (\ x__ y__ -> x__ {_ReadUtxosResponse'items = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField ReadUtxosResponse "vec'items" (Data.Vector.Vector AnyUtxoData) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosResponse'items - (\ x__ y__ -> x__ {_ReadUtxosResponse'items = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField ReadUtxosResponse "ledgerTip" ChainPoint where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosResponse'ledgerTip - (\ x__ y__ -> x__ {_ReadUtxosResponse'ledgerTip = y__})) - (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) -instance Data.ProtoLens.Field.HasField ReadUtxosResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _ReadUtxosResponse'ledgerTip - (\ x__ y__ -> x__ {_ReadUtxosResponse'ledgerTip = y__})) - Prelude.id -instance Data.ProtoLens.Message ReadUtxosResponse where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.query.ReadUtxosResponse" - packedMessageDescriptor _ - = "\n\ - \\DC1ReadUtxosResponse\DC28\n\ - \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\ - \\n\ - \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - items__field_descriptor - = Data.ProtoLens.FieldDescriptor - "items" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor AnyUtxoData) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: - Data.ProtoLens.FieldDescriptor ReadUtxosResponse - ledgerTip__field_descriptor - = Data.ProtoLens.FieldDescriptor - "ledger_tip" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor ChainPoint) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: - Data.ProtoLens.FieldDescriptor ReadUtxosResponse - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, items__field_descriptor), - (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _ReadUtxosResponse'_unknownFields - (\ x__ y__ -> x__ {_ReadUtxosResponse'_unknownFields = y__}) - defMessage - = ReadUtxosResponse'_constructor - {_ReadUtxosResponse'items = Data.Vector.Generic.empty, - _ReadUtxosResponse'ledgerTip = Prelude.Nothing, - _ReadUtxosResponse'_unknownFields = []} - parseMessage - = let - loop :: - ReadUtxosResponse - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyUtxoData - -> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosResponse - loop x mutable'items - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "items" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'items y) - loop x v - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) - "ledger_tip" - loop - (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) - mutable'items - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'items - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'items) - "ReadUtxosResponse" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) - ((Data.Monoid.<>) - (case - Lens.Family2.view - (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just _v) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData ReadUtxosResponse where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_ReadUtxosResponse'_unknownFields x__) - (Control.DeepSeq.deepseq - (_ReadUtxosResponse'items x__) - (Control.DeepSeq.deepseq (_ReadUtxosResponse'ledgerTip x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.hash' @:: Lens' TxoRef Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.index' @:: Lens' TxoRef Data.Word.Word32@ -} -data TxoRef - = TxoRef'_constructor {_TxoRef'hash :: !Data.ByteString.ByteString, - _TxoRef'index :: !Data.Word.Word32, - _TxoRef'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show TxoRef where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField TxoRef "hash" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxoRef'hash (\ x__ y__ -> x__ {_TxoRef'hash = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField TxoRef "index" Data.Word.Word32 where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxoRef'index (\ x__ y__ -> x__ {_TxoRef'index = y__})) - Prelude.id -instance Data.ProtoLens.Message TxoRef where - messageName _ = Data.Text.pack "utxorpc.v1alpha.query.TxoRef" - packedMessageDescriptor _ - = "\n\ - \\ACKTxoRef\DC2\DC2\n\ - \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\ - \\ENQindex\CAN\STX \SOH(\rR\ENQindex" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - hash__field_descriptor - = Data.ProtoLens.FieldDescriptor - "hash" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: - Data.ProtoLens.FieldDescriptor TxoRef - index__field_descriptor - = Data.ProtoLens.FieldDescriptor - "index" - (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) - (Data.ProtoLens.PlainField - Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"index")) :: - Data.ProtoLens.FieldDescriptor TxoRef - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, hash__field_descriptor), - (Data.ProtoLens.Tag 2, index__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _TxoRef'_unknownFields - (\ x__ y__ -> x__ {_TxoRef'_unknownFields = y__}) - defMessage - = TxoRef'_constructor - {_TxoRef'hash = Data.ProtoLens.fieldDefault, - _TxoRef'index = Data.ProtoLens.fieldDefault, - _TxoRef'_unknownFields = []} - parseMessage - = let - loop :: TxoRef -> Data.ProtoLens.Encoding.Bytes.Parser TxoRef - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "hash" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) - 16 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (Prelude.fmap - Prelude.fromIntegral - Data.ProtoLens.Encoding.Bytes.getVarInt) - "index" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"index") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "TxoRef" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - _v)) - ((Data.Monoid.<>) - (let - _v = Lens.Family2.view (Data.ProtoLens.Field.field @"index") _x - in - if (Prelude.==) _v Data.ProtoLens.fieldDefault then - Data.Monoid.mempty - else - (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 16) - ((Prelude..) - Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x))) -instance Control.DeepSeq.NFData TxoRef where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_TxoRef'_unknownFields x__) - (Control.DeepSeq.deepseq - (_TxoRef'hash x__) - (Control.DeepSeq.deepseq (_TxoRef'index x__) ())) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.items' @:: Lens' TxoRefArray [TxoRef]@ - * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'items' @:: Lens' TxoRefArray (Data.Vector.Vector TxoRef)@ -} -data TxoRefArray - = TxoRefArray'_constructor {_TxoRefArray'items :: !(Data.Vector.Vector TxoRef), - _TxoRefArray'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show TxoRefArray where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField TxoRefArray "items" [TxoRef] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxoRefArray'items (\ x__ y__ -> x__ {_TxoRefArray'items = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField TxoRefArray "vec'items" (Data.Vector.Vector TxoRef) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxoRefArray'items (\ x__ y__ -> x__ {_TxoRefArray'items = y__})) - Prelude.id -instance Data.ProtoLens.Message TxoRefArray where - messageName _ = Data.Text.pack "utxorpc.v1alpha.query.TxoRefArray" - packedMessageDescriptor _ - = "\n\ - \\vTxoRefArray\DC23\n\ - \\ENQitems\CAN\SOH \ETX(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ENQitems" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - items__field_descriptor - = Data.ProtoLens.FieldDescriptor - "items" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor TxoRef) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: - Data.ProtoLens.FieldDescriptor TxoRefArray - in - Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _TxoRefArray'_unknownFields - (\ x__ y__ -> x__ {_TxoRefArray'_unknownFields = y__}) - defMessage - = TxoRefArray'_constructor - {_TxoRefArray'items = Data.Vector.Generic.empty, - _TxoRefArray'_unknownFields = []} - parseMessage - = let - loop :: - TxoRefArray - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxoRef - -> Data.ProtoLens.Encoding.Bytes.Parser TxoRefArray - loop x mutable'items - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "items" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'items y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'items - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'items) - "TxoRefArray" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData TxoRefArray where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_TxoRefArray'_unknownFields x__) - (Control.DeepSeq.deepseq (_TxoRefArray'items x__) ()) -data QueryService = QueryService {} -instance Data.ProtoLens.Service.Types.Service QueryService where - type ServiceName QueryService = "QueryService" - type ServicePackage QueryService = "utxorpc.v1alpha.query" - type ServiceMethods QueryService = '["readParams", "readUtxos"] - packedServiceDescriptor _ - = "\n\ - \\fQueryService\DC2a\n\ - \\n\ - \ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponse\DC2^\n\ - \\tReadUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponse" -instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readParams" where - type MethodName QueryService "readParams" = "ReadParams" - type MethodInput QueryService "readParams" = ReadParamsRequest - type MethodOutput QueryService "readParams" = ReadParamsResponse - type MethodStreamingType QueryService "readParams" = 'Data.ProtoLens.Service.Types.NonStreaming -instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readUtxos" where - type MethodName QueryService "readUtxos" = "ReadUtxos" - type MethodInput QueryService "readUtxos" = ReadUtxosRequest - type MethodOutput QueryService "readUtxos" = ReadUtxosResponse - type MethodStreamingType QueryService "readUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming -packedFileDescriptor :: Data.ByteString.ByteString -packedFileDescriptor - = "\n\ - \!utxorpc/v1alpha/query/query.proto\DC2\NAKutxorpc.v1alpha.query\SUB google/protobuf/field_mask.proto\SUB%utxorpc/v1alpha/cardano/cardano.proto\"j\n\ - \\n\ - \ChainPoint\DC2\DC2\n\ - \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ - \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\ - \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\DC2\FS\n\ - \\ttimestamp\CAN\EOT \SOH(\EOTR\ttimestamp\"2\n\ - \\ACKTxoRef\DC2\DC2\n\ - \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\ - \\ENQindex\CAN\STX \SOH(\rR\ENQindex\"B\n\ - \\vTxoRefArray\DC23\n\ - \\ENQitems\CAN\SOH \ETX(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ENQitems\"N\n\ - \\DC1ReadParamsRequest\DC29\n\ - \\n\ - \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"X\n\ - \\SOAnyChainParams\DC2<\n\ - \\acardano\CAN\SOH \SOH(\v2 .utxorpc.v1alpha.cardano.PParamsH\NULR\acardanoB\b\n\ - \\ACKparams\"\149\SOH\n\ - \\DC2ReadParamsResponse\DC2=\n\ - \\ACKvalues\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyChainParamsR\ACKvalues\DC2@\n\ - \\n\ - \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip\"\183\SOH\n\ - \\vAnyUtxoData\DC2!\n\ - \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC26\n\ - \\atxo_ref\CAN\STX \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\DC2=\n\ - \\acardano\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\SO\n\ - \\fparsed_state\"\241\SOH\n\ - \\DLEReadUtxosRequest\DC2>\n\ - \\atxoRefs\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.query.TxoRefArrayH\NULR\atxoRefs\DC2T\n\ - \\DC1cardano_addresses\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AddressArrayH\NULR\DLEcardanoAddresses\DC29\n\ - \\n\ - \field_mask\CAN\ETX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMaskB\f\n\ - \\n\ - \query_args\"\143\SOH\n\ - \\DC1ReadUtxosResponse\DC28\n\ - \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\ - \\n\ - \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip2\209\SOH\n\ - \\fQueryService\DC2a\n\ - \\n\ - \ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponse\DC2^\n\ - \\tReadUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponseB\157\SOH\n\ - \\EMcom.utxorpc.v1alpha.queryB\n\ - \QueryProtoP\SOH\162\STX\ETXUVQ\170\STX\NAKUtxorpc.V1alpha.Query\202\STX\NAKUtxorpc\\V1alpha\\Query\226\STX!Utxorpc\\V1alpha\\Query\\GPBMetadata\234\STX\ETBUtxorpc::V1alpha::QueryJ\173\SYN\n\ - \\ACK\DC2\EOT\STX\NULK\SOH\n\ - \9\n\ - \\SOH\f\DC2\ETX\STX\NUL\DC22// A consistent view of the state of the ledger\n\ - \\n\ - \\b\n\ - \\SOH\STX\DC2\ETX\EOT\NUL\RS\n\ - \\t\n\ - \\STX\ETX\NUL\DC2\ETX\ACK\NUL*\n\ - \\t\n\ - \\STX\ETX\SOH\DC2\ETX\a\NUL/\n\ - \<\n\ - \\STX\EOT\NUL\DC2\EOT\n\ - \\NUL\SI\SOH\SUB0 Represents a specific point in the blockchain.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\NUL\SOH\DC2\ETX\n\ - \\b\DC2\n\ - \\ESC\n\ - \\EOT\EOT\NUL\STX\NUL\DC2\ETX\v\STX\DC2\"\SO Slot number.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\v\STX\b\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\v\t\r\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\v\DLE\DC1\n\ - \\SUB\n\ - \\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\DC1\"\r Block hash.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\a\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\b\f\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\SI\DLE\n\ - \\FS\n\ - \\EOT\EOT\NUL\STX\STX\DC2\ETX\r\STX\DC4\"\SI Block height.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\r\STX\b\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\r\t\SI\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\r\DC2\DC3\n\ - \!\n\ - \\EOT\EOT\NUL\STX\ETX\DC2\ETX\SO\STX\ETB\"\DC4 Block ms timestamp\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX\SO\STX\b\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\SO\t\DC2\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\SO\NAK\SYN\n\ - \<\n\ - \\STX\EOT\SOH\DC2\EOT\DC2\NUL\NAK\SOH\SUB0 Represents a reference to a transaction output\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\SOH\SOH\DC2\ETX\DC2\b\SO\n\ - \\ETB\n\ - \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC3\STX\DC1\"\n\ - \ Tx hash.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\DC3\STX\a\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC3\b\f\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC3\SI\DLE\n\ - \\FS\n\ - \\EOT\EOT\SOH\STX\SOH\DC2\ETX\DC4\STX\DC3\"\SI Output index.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\DC4\STX\b\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\DC4\t\SO\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\DC4\DC1\DC2\n\ - \\n\ - \\n\ - \\STX\EOT\STX\DC2\EOT\ETB\NUL\SUB\SOH\n\ - \\n\ - \\n\ - \\ETX\EOT\STX\SOH\DC2\ETX\ETB\b\DC3\n\ - \W\n\ - \\EOT\EOT\STX\STX\NUL\DC2\ETX\EM\STX\FS\SUBJ TODO u5c: changed to repeated - https://github.com/utxorpc/spec/pull/167\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETX\EM\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\EM\v\DC1\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\EM\DC2\ETB\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\EM\SUB\ESC\n\ - \1\n\ - \\STX\EOT\ETX\DC2\EOT\GS\NUL\US\SOH\SUB% Request to get the chain parameters\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\ETX\SOH\DC2\ETX\GS\b\EM\n\ - \N\n\ - \\EOT\EOT\ETX\STX\NUL\DC2\ETX\RS\STX+\"A Field mask to selectively return fields in the parsed response.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\RS\STX\ESC\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\RS\FS&\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\RS)*\n\ - \U\n\ - \\STX\EOT\EOT\DC2\EOT\"\NUL&\SOH\SUBI An evenlope that holds parameter data from any of the compatible chains\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\EOT\SOH\DC2\ETX\"\b\SYN\n\ - \\f\n\ - \\EOT\EOT\EOT\b\NUL\DC2\EOT#\STX%\ETX\n\ - \\f\n\ - \\ENQ\EOT\EOT\b\NUL\SOH\DC2\ETX#\b\SO\n\ - \!\n\ - \\EOT\EOT\EOT\STX\NUL\DC2\ETX$\EOT0\"\DC4 Cardano parameters\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX$\EOT#\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX$$+\n\ - \\f\n\ - \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX$./\n\ - \6\n\ - \\STX\EOT\ENQ\DC2\EOT)\NUL,\SOH\SUB* Response containing the chain parameters\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\ENQ\SOH\DC2\ETX)\b\SUB\n\ - \+\n\ - \\EOT\EOT\ENQ\STX\NUL\DC2\ETX*\STX\FS\"\RS The value of the parameters.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX*\STX\DLE\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX*\DC1\ETB\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX*\SUB\ESC\n\ - \J\n\ - \\EOT\EOT\ENQ\STX\SOH\DC2\ETX+\STX\FS\"= The chain point that represent the ledger current position.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX+\STX\f\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX+\r\ETB\n\ - \\f\n\ - \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX+\SUB\ESC\n\ - \J\n\ - \\STX\EOT\ACK\DC2\EOT/\NUL5\SOH\SUB> An evenlope that holds an UTxO from any of compatible chains\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\ACK\SOH\DC2\ETX/\b\DC3\n\ - \5\n\ - \\EOT\EOT\ACK\STX\NUL\DC2\ETX0\STX\EM\"( Original bytes as defined by the chain\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX0\STX\a\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX0\b\DC4\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX0\ETB\CAN\n\ - \0\n\ - \\EOT\EOT\ACK\STX\SOH\DC2\ETX1\STX\NAK\"# Hash of the previous transaction.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX1\STX\b\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX1\t\DLE\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX1\DC3\DC4\n\ - \\f\n\ - \\EOT\EOT\ACK\b\NUL\DC2\EOT2\STX4\ETX\n\ - \\f\n\ - \\ENQ\EOT\ACK\b\NUL\SOH\DC2\ETX2\b\DC4\n\ - \\GS\n\ - \\EOT\EOT\ACK\STX\STX\DC2\ETX3\EOT1\"\DLE A cardano UTxO\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETX3\EOT$\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX3%,\n\ - \\f\n\ - \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX3/0\n\ - \+\n\ - \\STX\EOT\a\DC2\EOT8\NUL?\SOH\SUB\US Request to get specific UTxOs\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\a\SOH\DC2\ETX8\b\CAN\n\ - \N\n\ - \\EOT\EOT\a\b\NUL\DC2\EOT:\STX=\ETX\SUB@ TODO u5c: new oneof - https://github.com/utxorpc/spec/pull/167\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\b\NUL\SOH\DC2\ETX:\b\DC2\n\ - \,\n\ - \\EOT\EOT\a\STX\NUL\DC2\ETX;\EOT\FS\"\US Array of Tx Output references\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX;\EOT\SI\n\ - \\f\n\ - \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX;\DLE\ETB\n\ - \\f\n\ - \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX;\SUB\ESC\n\ - \!\n\ - \\EOT\EOT\a\STX\SOH\DC2\ETX<\EOT?\"\DC4 Array of addresses\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETX<\EOT(\n\ - \\f\n\ - \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX<):\n\ - \\f\n\ - \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX<=>\n\ - \7\n\ - \\EOT\EOT\a\STX\STX\DC2\ETX>\STX+\"* Field mask to selectively return fields.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\a\STX\STX\ACK\DC2\ETX>\STX\ESC\n\ - \\f\n\ - \\ENQ\EOT\a\STX\STX\SOH\DC2\ETX>\FS&\n\ - \\f\n\ - \\ENQ\EOT\a\STX\STX\ETX\DC2\ETX>)*\n\ - \T\n\ - \\STX\EOT\b\DC2\EOTB\NULE\SOH\SUBH Response containing the UTxOs associated with the requested addresses.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\b\SOH\DC2\ETXB\b\EM\n\ - \\GS\n\ - \\EOT\EOT\b\STX\NUL\DC2\ETXC\STX!\"\DLE List of UTxOs.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\b\STX\NUL\EOT\DC2\ETXC\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXC\v\SYN\n\ - \\f\n\ - \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXC\ETB\FS\n\ - \\f\n\ - \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXC\US \n\ - \J\n\ - \\EOT\EOT\b\STX\SOH\DC2\ETXD\STX\FS\"= The chain point that represent the ledger current position.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXD\STX\f\n\ - \\f\n\ - \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXD\r\ETB\n\ - \\f\n\ - \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXD\SUB\ESC\n\ - \E\n\ - \\STX\ACK\NUL\DC2\EOTH\NULK\SOH\SUB9 Service definition for querying the state of the chain.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\ACK\NUL\SOH\DC2\ETXH\b\DC4\n\ - \'\n\ - \\EOT\ACK\NUL\STX\NUL\DC2\ETXI\STXA\"\SUB Get overall chain state.\n\ - \\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETXI\ACK\DLE\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETXI\DC1\"\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETXI-?\n\ - \0\n\ - \\EOT\ACK\NUL\STX\SOH\DC2\ETXJ\STX>\"# Read specific UTxOs by reference.\n\ - \\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETXJ\ACK\SI\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETXJ\DLE \n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETXJ+ x__ {_AnyChainTx'type' = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'raw" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyChainTx'type' (\ x__ y__ -> x__ {_AnyChainTx'type' = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (AnyChainTx'Raw x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AnyChainTx'Raw y__)) -instance Data.ProtoLens.Field.HasField AnyChainTx "raw" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _AnyChainTx'type' (\ x__ y__ -> x__ {_AnyChainTx'type' = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (AnyChainTx'Raw x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap AnyChainTx'Raw y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Message AnyChainTx where - messageName _ = Data.Text.pack "utxorpc.v1alpha.submit.AnyChainTx" - packedMessageDescriptor _ - = "\n\ - \\n\ - \AnyChainTx\DC2\DC2\n\ - \\ETXraw\CAN\SOH \SOH(\fH\NULR\ETXrawB\ACK\n\ - \\EOTtype" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - raw__field_descriptor - = Data.ProtoLens.FieldDescriptor - "raw" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'raw")) :: - Data.ProtoLens.FieldDescriptor AnyChainTx - in - Data.Map.fromList [(Data.ProtoLens.Tag 1, raw__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _AnyChainTx'_unknownFields - (\ x__ y__ -> x__ {_AnyChainTx'_unknownFields = y__}) - defMessage - = AnyChainTx'_constructor - {_AnyChainTx'type' = Prelude.Nothing, - _AnyChainTx'_unknownFields = []} - parseMessage - = let - loop :: - AnyChainTx -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTx - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "raw" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"raw") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "AnyChainTx" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (AnyChainTx'Raw v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData AnyChainTx where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_AnyChainTx'_unknownFields x__) - (Control.DeepSeq.deepseq (_AnyChainTx'type' x__) ()) -instance Control.DeepSeq.NFData AnyChainTx'Type where - rnf (AnyChainTx'Raw x__) = Control.DeepSeq.rnf x__ -_AnyChainTx'Raw :: - Data.ProtoLens.Prism.Prism' AnyChainTx'Type Data.ByteString.ByteString -_AnyChainTx'Raw - = Data.ProtoLens.Prism.prism' - AnyChainTx'Raw - (\ p__ - -> case p__ of (AnyChainTx'Raw p__val) -> Prelude.Just p__val) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.tx' @:: Lens' SubmitTxRequest [AnyChainTx]@ - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'tx' @:: Lens' SubmitTxRequest (Data.Vector.Vector AnyChainTx)@ -} -data SubmitTxRequest - = SubmitTxRequest'_constructor {_SubmitTxRequest'tx :: !(Data.Vector.Vector AnyChainTx), - _SubmitTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show SubmitTxRequest where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField SubmitTxRequest "tx" [AnyChainTx] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _SubmitTxRequest'tx (\ x__ y__ -> x__ {_SubmitTxRequest'tx = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField SubmitTxRequest "vec'tx" (Data.Vector.Vector AnyChainTx) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _SubmitTxRequest'tx (\ x__ y__ -> x__ {_SubmitTxRequest'tx = y__})) - Prelude.id -instance Data.ProtoLens.Message SubmitTxRequest where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.submit.SubmitTxRequest" - packedMessageDescriptor _ - = "\n\ - \\SISubmitTxRequest\DC22\n\ - \\STXtx\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - tx__field_descriptor - = Data.ProtoLens.FieldDescriptor - "tx" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor AnyChainTx) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"tx")) :: - Data.ProtoLens.FieldDescriptor SubmitTxRequest - in Data.Map.fromList [(Data.ProtoLens.Tag 1, tx__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _SubmitTxRequest'_unknownFields - (\ x__ y__ -> x__ {_SubmitTxRequest'_unknownFields = y__}) - defMessage - = SubmitTxRequest'_constructor - {_SubmitTxRequest'tx = Data.Vector.Generic.empty, - _SubmitTxRequest'_unknownFields = []} - parseMessage - = let - loop :: - SubmitTxRequest - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainTx - -> Data.ProtoLens.Encoding.Bytes.Parser SubmitTxRequest - loop x mutable'tx - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tx) - (let missing = [] - in - if Prelude.null missing then - Prelude.return () - else - Prelude.fail - ((Prelude.++) - "Missing required fields: " - (Prelude.show (missing :: [Prelude.String])))) - Prelude.return - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'tx") frozen'tx x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "tx" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'tx y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'tx - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'tx) - "SubmitTxRequest" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tx") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData SubmitTxRequest where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_SubmitTxRequest'_unknownFields x__) - (Control.DeepSeq.deepseq (_SubmitTxRequest'tx x__) ()) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.results' @:: Lens' SubmitTxResponse [TxSubmitResult]@ - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'results' @:: Lens' SubmitTxResponse (Data.Vector.Vector TxSubmitResult)@ -} -data SubmitTxResponse - = SubmitTxResponse'_constructor {_SubmitTxResponse'results :: !(Data.Vector.Vector TxSubmitResult), - _SubmitTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show SubmitTxResponse where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -instance Data.ProtoLens.Field.HasField SubmitTxResponse "results" [TxSubmitResult] where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _SubmitTxResponse'results - (\ x__ y__ -> x__ {_SubmitTxResponse'results = y__})) - (Lens.Family2.Unchecked.lens - Data.Vector.Generic.toList - (\ _ y__ -> Data.Vector.Generic.fromList y__)) -instance Data.ProtoLens.Field.HasField SubmitTxResponse "vec'results" (Data.Vector.Vector TxSubmitResult) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _SubmitTxResponse'results - (\ x__ y__ -> x__ {_SubmitTxResponse'results = y__})) - Prelude.id -instance Data.ProtoLens.Message SubmitTxResponse where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.submit.SubmitTxResponse" - packedMessageDescriptor _ - = "\n\ - \\DLESubmitTxResponse\DC2@\n\ - \\aresults\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.submit.TxSubmitResultR\aresults" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - results__field_descriptor - = Data.ProtoLens.FieldDescriptor - "results" - (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: - Data.ProtoLens.FieldTypeDescriptor TxSubmitResult) - (Data.ProtoLens.RepeatedField - Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"results")) :: - Data.ProtoLens.FieldDescriptor SubmitTxResponse - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, results__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _SubmitTxResponse'_unknownFields - (\ x__ y__ -> x__ {_SubmitTxResponse'_unknownFields = y__}) - defMessage - = SubmitTxResponse'_constructor - {_SubmitTxResponse'results = Data.Vector.Generic.empty, - _SubmitTxResponse'_unknownFields = []} - parseMessage - = let - loop :: - SubmitTxResponse - -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxSubmitResult - -> Data.ProtoLens.Encoding.Bytes.Parser SubmitTxResponse - loop x mutable'results - = do end <- Data.ProtoLens.Encoding.Bytes.atEnd - if end then - do frozen'results <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.unsafeFreeze - mutable'results) - (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 (\ !t -> Prelude.reverse t) - (Lens.Family2.set - (Data.ProtoLens.Field.field @"vec'results") frozen'results x)) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do !y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.isolate - (Prelude.fromIntegral len) - Data.ProtoLens.parseMessage) - "results" - v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - (Data.ProtoLens.Encoding.Growing.append mutable'results y) - loop x v - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - mutable'results - in - (Data.ProtoLens.Encoding.Bytes.) - (do mutable'results <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO - Data.ProtoLens.Encoding.Growing.new - loop Data.ProtoLens.defMessage mutable'results) - "SubmitTxResponse" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.foldMapBuilder - (\ _v - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.ProtoLens.encodeMessage _v)) - (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'results") _x)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData SubmitTxResponse where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_SubmitTxResponse'_unknownFields x__) - (Control.DeepSeq.deepseq (_SubmitTxResponse'results x__) ()) -{- | Fields : - - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'result' @:: Lens' TxSubmitResult (Prelude.Maybe TxSubmitResult'Result)@ - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'ref' @:: Lens' TxSubmitResult (Prelude.Maybe Data.ByteString.ByteString)@ - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.ref' @:: Lens' TxSubmitResult Data.ByteString.ByteString@ - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'errorMessage' @:: Lens' TxSubmitResult (Prelude.Maybe Data.Text.Text)@ - * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.errorMessage' @:: Lens' TxSubmitResult Data.Text.Text@ -} -data TxSubmitResult - = TxSubmitResult'_constructor {_TxSubmitResult'result :: !(Prelude.Maybe TxSubmitResult'Result), - _TxSubmitResult'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving stock (Prelude.Eq, Prelude.Ord) -instance Prelude.Show TxSubmitResult where - showsPrec _ __x __s - = Prelude.showChar - '{' - (Prelude.showString - (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) -data TxSubmitResult'Result - = TxSubmitResult'Ref !Data.ByteString.ByteString | - TxSubmitResult'ErrorMessage !Data.Text.Text - deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance Data.ProtoLens.Field.HasField TxSubmitResult "maybe'result" (Prelude.Maybe TxSubmitResult'Result) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxSubmitResult'result - (\ x__ y__ -> x__ {_TxSubmitResult'result = y__})) - Prelude.id -instance Data.ProtoLens.Field.HasField TxSubmitResult "maybe'ref" (Prelude.Maybe Data.ByteString.ByteString) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxSubmitResult'result - (\ x__ y__ -> x__ {_TxSubmitResult'result = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (TxSubmitResult'Ref x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TxSubmitResult'Ref y__)) -instance Data.ProtoLens.Field.HasField TxSubmitResult "ref" Data.ByteString.ByteString where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxSubmitResult'result - (\ x__ y__ -> x__ {_TxSubmitResult'result = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (TxSubmitResult'Ref x__val)) -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TxSubmitResult'Ref y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Field.HasField TxSubmitResult "maybe'errorMessage" (Prelude.Maybe Data.Text.Text) where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxSubmitResult'result - (\ x__ y__ -> x__ {_TxSubmitResult'result = y__})) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (TxSubmitResult'ErrorMessage x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TxSubmitResult'ErrorMessage y__)) -instance Data.ProtoLens.Field.HasField TxSubmitResult "errorMessage" Data.Text.Text where - fieldOf _ - = (Prelude..) - (Lens.Family2.Unchecked.lens - _TxSubmitResult'result - (\ x__ y__ -> x__ {_TxSubmitResult'result = y__})) - ((Prelude..) - (Lens.Family2.Unchecked.lens - (\ x__ - -> case x__ of - (Prelude.Just (TxSubmitResult'ErrorMessage x__val)) - -> Prelude.Just x__val - _otherwise -> Prelude.Nothing) - (\ _ y__ -> Prelude.fmap TxSubmitResult'ErrorMessage y__)) - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) -instance Data.ProtoLens.Message TxSubmitResult where - messageName _ - = Data.Text.pack "utxorpc.v1alpha.submit.TxSubmitResult" - packedMessageDescriptor _ - = "\n\ - \\SOTxSubmitResult\DC2\DC2\n\ - \\ETXref\CAN\SOH \SOH(\fH\NULR\ETXref\DC2%\n\ - \\rerror_message\CAN\STX \SOH(\tH\NULR\ferrorMessageB\b\n\ - \\ACKresult" - packedFileDescriptor _ = packedFileDescriptor - fieldsByTag - = let - ref__field_descriptor - = Data.ProtoLens.FieldDescriptor - "ref" - (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'ref")) :: - Data.ProtoLens.FieldDescriptor TxSubmitResult - errorMessage__field_descriptor - = Data.ProtoLens.FieldDescriptor - "error_message" - (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField - (Data.ProtoLens.Field.field @"maybe'errorMessage")) :: - Data.ProtoLens.FieldDescriptor TxSubmitResult - in - Data.Map.fromList - [(Data.ProtoLens.Tag 1, ref__field_descriptor), - (Data.ProtoLens.Tag 2, errorMessage__field_descriptor)] - unknownFields - = Lens.Family2.Unchecked.lens - _TxSubmitResult'_unknownFields - (\ x__ y__ -> x__ {_TxSubmitResult'_unknownFields = y__}) - defMessage - = TxSubmitResult'_constructor - {_TxSubmitResult'result = Prelude.Nothing, - _TxSubmitResult'_unknownFields = []} - parseMessage - = let - loop :: - TxSubmitResult - -> Data.ProtoLens.Encoding.Bytes.Parser TxSubmitResult - loop x - = do end <- 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 (\ !t -> Prelude.reverse t) x) - else - do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt - case tag of - 10 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len)) - "ref" - loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ref") y x) - 18 - -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getText - (Prelude.fromIntegral len)) - "error_message" - loop - (Lens.Family2.set - (Data.ProtoLens.Field.field @"errorMessage") y x) - wire - -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire - wire - loop - (Lens.Family2.over - Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) - in - (Data.ProtoLens.Encoding.Bytes.) - (do loop Data.ProtoLens.defMessage) "TxSubmitResult" - buildMessage - = \ _x - -> (Data.Monoid.<>) - (case - Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'result") _x - of - Prelude.Nothing -> Data.Monoid.mempty - (Prelude.Just (TxSubmitResult'Ref v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 10) - ((\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - v) - (Prelude.Just (TxSubmitResult'ErrorMessage v)) - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt 18) - ((Prelude..) - (\ bs - -> (Data.Monoid.<>) - (Data.ProtoLens.Encoding.Bytes.putVarInt - (Prelude.fromIntegral (Data.ByteString.length bs))) - (Data.ProtoLens.Encoding.Bytes.putBytes bs)) - Data.Text.Encoding.encodeUtf8 v)) - (Data.ProtoLens.Encoding.Wire.buildFieldSet - (Lens.Family2.view Data.ProtoLens.unknownFields _x)) -instance Control.DeepSeq.NFData TxSubmitResult where - rnf - = \ x__ - -> Control.DeepSeq.deepseq - (_TxSubmitResult'_unknownFields x__) - (Control.DeepSeq.deepseq (_TxSubmitResult'result x__) ()) -instance Control.DeepSeq.NFData TxSubmitResult'Result where - rnf (TxSubmitResult'Ref x__) = Control.DeepSeq.rnf x__ - rnf (TxSubmitResult'ErrorMessage x__) = Control.DeepSeq.rnf x__ -_TxSubmitResult'Ref :: - Data.ProtoLens.Prism.Prism' TxSubmitResult'Result Data.ByteString.ByteString -_TxSubmitResult'Ref - = Data.ProtoLens.Prism.prism' - TxSubmitResult'Ref - (\ p__ - -> case p__ of - (TxSubmitResult'Ref p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -_TxSubmitResult'ErrorMessage :: - Data.ProtoLens.Prism.Prism' TxSubmitResult'Result Data.Text.Text -_TxSubmitResult'ErrorMessage - = Data.ProtoLens.Prism.prism' - TxSubmitResult'ErrorMessage - (\ p__ - -> case p__ of - (TxSubmitResult'ErrorMessage p__val) -> Prelude.Just p__val - _otherwise -> Prelude.Nothing) -data SubmitService = SubmitService {} -instance Data.ProtoLens.Service.Types.Service SubmitService where - type ServiceName SubmitService = "SubmitService" - type ServicePackage SubmitService = "utxorpc.v1alpha.submit" - type ServiceMethods SubmitService = '["submitTx"] - packedServiceDescriptor _ - = "\n\ - \\rSubmitService\DC2]\n\ - \\bSubmitTx\DC2'.utxorpc.v1alpha.submit.SubmitTxRequest\SUB(.utxorpc.v1alpha.submit.SubmitTxResponse" -instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "submitTx" where - type MethodName SubmitService "submitTx" = "SubmitTx" - type MethodInput SubmitService "submitTx" = SubmitTxRequest - type MethodOutput SubmitService "submitTx" = SubmitTxResponse - type MethodStreamingType SubmitService "submitTx" = 'Data.ProtoLens.Service.Types.NonStreaming -packedFileDescriptor :: Data.ByteString.ByteString -packedFileDescriptor - = "\n\ - \#utxorpc/v1alpha/submit/submit.proto\DC2\SYNutxorpc.v1alpha.submit\"(\n\ - \\n\ - \AnyChainTx\DC2\DC2\n\ - \\ETXraw\CAN\SOH \SOH(\fH\NULR\ETXrawB\ACK\n\ - \\EOTtype\"E\n\ - \\SISubmitTxRequest\DC22\n\ - \\STXtx\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx\"U\n\ - \\SOTxSubmitResult\DC2\DC2\n\ - \\ETXref\CAN\SOH \SOH(\fH\NULR\ETXref\DC2%\n\ - \\rerror_message\CAN\STX \SOH(\tH\NULR\ferrorMessageB\b\n\ - \\ACKresult\"T\n\ - \\DLESubmitTxResponse\DC2@\n\ - \\aresults\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.submit.TxSubmitResultR\aresults2n\n\ - \\rSubmitService\DC2]\n\ - \\bSubmitTx\DC2'.utxorpc.v1alpha.submit.SubmitTxRequest\SUB(.utxorpc.v1alpha.submit.SubmitTxResponseB\163\SOH\n\ - \\SUBcom.utxorpc.v1alpha.submitB\vSubmitProtoP\SOH\162\STX\ETXUVS\170\STX\SYNUtxorpc.V1alpha.Submit\202\STX\SYNUtxorpc\\V1alpha\\Submit\226\STX\"Utxorpc\\V1alpha\\Submit\\GPBMetadata\234\STX\CANUtxorpc::V1alpha::SubmitJ\136\t\n\ - \\ACK\DC2\EOT\NUL\NUL!\SOH\n\ - \\b\n\ - \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ - \\b\n\ - \\SOH\STX\DC2\ETX\STX\NUL\US\n\ - \E\n\ - \\STX\EOT\NUL\DC2\EOT\ENQ\NUL\t\SOH\SUB9 Represents a transaction from any supported blockchain.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\NUL\SOH\DC2\ETX\ENQ\b\DC2\n\ - \\f\n\ - \\EOT\EOT\NUL\b\NUL\DC2\EOT\ACK\STX\b\ETX\n\ - \\f\n\ - \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\ACK\b\f\n\ - \$\n\ - \\EOT\EOT\NUL\STX\NUL\DC2\ETX\a\EOT\DC2\"\ETB Raw transaction data.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\a\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\a\n\ - \\r\n\ - \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\a\DLE\DC1\n\ - \?\n\ - \\STX\EOT\SOH\DC2\EOT\f\NUL\SO\SOH\SUB3 Request to submit transactions to the blockchain.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\SOH\SOH\DC2\ETX\f\b\ETB\n\ - \.\n\ - \\EOT\EOT\SOH\STX\NUL\DC2\ETX\r\STX\GS\"! List of transactions to submit.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\r\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\r\v\NAK\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\r\SYN\CAN\n\ - \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\r\ESC\FS\n\ - \K\n\ - \\STX\EOT\STX\DC2\EOT\DC1\NUL\SYN\SOH\SUB? TODO u5c: new type - https://github.com/utxorpc/spec/pull/163\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\STX\SOH\DC2\ETX\DC1\b\SYN\n\ - \\f\n\ - \\EOT\EOT\STX\b\NUL\DC2\EOT\DC2\STX\NAK\ETX\n\ - \\f\n\ - \\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX\DC2\b\SO\n\ - \&\n\ - \\EOT\EOT\STX\STX\NUL\DC2\ETX\DC3\EOT\DC2\"\EM Transaction references.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC3\EOT\t\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC3\n\ - \\r\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC3\DLE\DC1\n\ - \ \n\ - \\EOT\EOT\STX\STX\SOH\DC2\ETX\DC4\EOT\GS\"\DC3 The error message\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\DC4\EOT\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\DC4\v\CAN\n\ - \\f\n\ - \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\DC4\ESC\FS\n\ - \\143\SOH\n\ - \\STX\EOT\ETX\DC2\EOT\SUB\NUL\FS\SOH\SUB\130\SOH Response containing references to the submitted transactions.\n\ - \ TODO u5c: changed type - https://github.com/utxorpc/spec/pull/163\n\ - \\n\ - \\n\ - \\n\ - \\ETX\EOT\ETX\SOH\DC2\ETX\SUB\b\CAN\n\ - \G\n\ - \\EOT\EOT\ETX\STX\NUL\DC2\ETX\ESC\STX&\": List of either transaction references or error messages.\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX\ESC\STX\n\ - \\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\ESC\v\EM\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\ESC\SUB!\n\ - \\f\n\ - \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\ESC$%\n\ - \W\n\ - \\STX\ACK\NUL\DC2\EOT\US\NUL!\SOH\SUBK Service definition for submitting transactions and checking their status.\n\ - \\n\ - \\n\ - \\n\ - \\ETX\ACK\NUL\SOH\DC2\ETX\US\b\NAK\n\ - \5\n\ - \\EOT\ACK\NUL\STX\NUL\DC2\ETX \STX;\"( Submit transactions to the blockchain.\n\ - \\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX \ACK\SO\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX \SI\RS\n\ - \\f\n\ - \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX )9b\ACKproto3" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit_Fields.hs b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit_Fields.hs deleted file mode 100644 index a76c34d8b1..0000000000 --- a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit_Fields.hs +++ /dev/null @@ -1,97 +0,0 @@ -{- This file was auto-generated from utxorpc/v1alpha/submit/submit.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.Submit.Submit_Fields where -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 -errorMessage :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "errorMessage" a) => - Lens.Family2.LensLike' f s a -errorMessage = Data.ProtoLens.Field.field @"errorMessage" -maybe'errorMessage :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'errorMessage" a) => - Lens.Family2.LensLike' f s a -maybe'errorMessage - = Data.ProtoLens.Field.field @"maybe'errorMessage" -maybe'raw :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'raw" a) => - Lens.Family2.LensLike' f s a -maybe'raw = Data.ProtoLens.Field.field @"maybe'raw" -maybe'ref :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'ref" a) => - Lens.Family2.LensLike' f s a -maybe'ref = Data.ProtoLens.Field.field @"maybe'ref" -maybe'result :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'result" a) => - Lens.Family2.LensLike' f s a -maybe'result = Data.ProtoLens.Field.field @"maybe'result" -maybe'type' :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'type'" a) => - Lens.Family2.LensLike' f s a -maybe'type' = Data.ProtoLens.Field.field @"maybe'type'" -raw :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "raw" a) => - Lens.Family2.LensLike' f s a -raw = Data.ProtoLens.Field.field @"raw" -ref :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ref" a) => - Lens.Family2.LensLike' f s a -ref = Data.ProtoLens.Field.field @"ref" -results :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "results" a) => - Lens.Family2.LensLike' f s a -results = Data.ProtoLens.Field.field @"results" -tx :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tx" a) => - Lens.Family2.LensLike' f s a -tx = Data.ProtoLens.Field.field @"tx" -vec'results :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "vec'results" a) => - Lens.Family2.LensLike' f s a -vec'results = Data.ProtoLens.Field.field @"vec'results" -vec'tx :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'tx" a) => - Lens.Family2.LensLike' f s a -vec'tx = Data.ProtoLens.Field.field @"vec'tx" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano.hs b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano.hs new file mode 100644 index 0000000000..3cb3e14087 --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano.hs @@ -0,0 +1,36114 @@ +{- This file was auto-generated from utxorpc/v1beta/cardano/cardano.proto by the proto-lens-protoc program. -} +{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} +{-# OPTIONS_GHC -Wno-unused-imports#-} +{-# OPTIONS_GHC -Wno-duplicate-exports#-} +{-# OPTIONS_GHC -Wno-dodgy-exports#-} +module Proto.Utxorpc.V1beta.Cardano.Cardano ( + AddressPattern(), Anchor(), Asset(), AssetPattern(), + AuthCommitteeHotCert(), AuxData(), BigInt(), BigInt'BigInt(..), + _BigInt'Int, _BigInt'BigUInt, _BigInt'BigNInt, Block(), + BlockBody(), BlockHeader(), BlockVersionData(), BootstrapWitness(), + Certificate(), Certificate'Certificate(..), + _Certificate'StakeRegistration, _Certificate'StakeDeregistration, + _Certificate'StakeDelegation, _Certificate'PoolRegistration, + _Certificate'PoolRetirement, _Certificate'GenesisKeyDelegation, + _Certificate'MirCert, _Certificate'RegCert, _Certificate'UnregCert, + _Certificate'VoteDelegCert, _Certificate'StakeVoteDelegCert, + _Certificate'StakeRegDelegCert, _Certificate'VoteRegDelegCert, + _Certificate'StakeVoteRegDelegCert, + _Certificate'AuthCommitteeHotCert, + _Certificate'ResignCommitteeColdCert, _Certificate'RegDrepCert, + _Certificate'UnregDrepCert, _Certificate'UpdateDrepCert, + CertificatePattern(), CertificatePattern'CertificateType(..), + _CertificatePattern'StakeRegistration, + _CertificatePattern'StakeDeregistration, + _CertificatePattern'StakeDelegation, + _CertificatePattern'PoolRegistration, + _CertificatePattern'PoolRetirement, + _CertificatePattern'AnyStakeCredential, + _CertificatePattern'AnyPoolKeyhash, _CertificatePattern'AnyDrep, + Collateral(), Committee(), Committee'MembersEntry(), + Constitution(), Constr(), CostModel(), CostModelMap(), + CostModels(), DRep(), DRep'Drep(..), _DRep'AddrKeyHash, + _DRep'ScriptHash, _DRep'Abstain, _DRep'NoConfidence, + DRepVotingThresholds(), Datum(), EraBoundary(), EraSummaries(), + EraSummary(), EvalError(), EvalTrace(), ExPrices(), ExUnits(), + ExtraEntropy(), GenDelegs(), Genesis(), Genesis'AvvmDistrEntry(), + Genesis'BootStakeholdersEntry(), Genesis'GenDelegsEntry(), + Genesis'HeavyDelegationEntry(), Genesis'InitialFundsEntry(), + Genesis'NonAvvmBalancesEntry(), Genesis'VssCertsEntry(), + GenesisKeyDelegationCert(), GovernanceAction(), + GovernanceAction'GovernanceAction(..), + _GovernanceAction'ParameterChangeAction, + _GovernanceAction'HardForkInitiationAction, + _GovernanceAction'TreasuryWithdrawalsAction, + _GovernanceAction'NoConfidenceAction, + _GovernanceAction'UpdateCommitteeAction, + _GovernanceAction'NewConstitutionAction, + _GovernanceAction'InfoAction, GovernanceActionId(), + GovernanceActionProposal(), HardForkInitiationAction(), + HeavyDelegation(), InfoAction(), Metadata(), Metadatum(), + Metadatum'Metadatum(..), _Metadatum'Int, _Metadatum'Bytes, + _Metadatum'Text, _Metadatum'Array, _Metadatum'Map, + MetadatumArray(), MetadatumMap(), MetadatumPair(), MirCert(), + MirSource(..), MirSource(), MirSource'UnrecognizedValue, + MirTarget(), Multiasset(), NativeScript(), + NativeScript'NativeScript(..), _NativeScript'ScriptPubkeyHash, + _NativeScript'ScriptAll, _NativeScript'ScriptAny, + _NativeScript'ScriptNOfK, _NativeScript'InvalidBefore, + _NativeScript'InvalidHereafter, NativeScriptList(), + NewCommitteeCredentials(), NewConstitutionAction(), + NoConfidenceAction(), PParams(), ParameterChangeAction(), + PlutusData(), PlutusData'PlutusData(..), _PlutusData'Constr, + _PlutusData'Map, _PlutusData'BigInt, _PlutusData'BoundedBytes, + _PlutusData'Array, PlutusDataArray(), PlutusDataMap(), + PlutusDataPair(), PoolMetadata(), PoolRegistrationCert(), + PoolRegistrationPattern(), PoolRetirementCert(), + PoolRetirementPattern(), PoolVotingThresholds(), ProtocolConsts(), + ProtocolVersion(), RationalNumber(), Redeemer(), + RedeemerPurpose(..), RedeemerPurpose(), + RedeemerPurpose'UnrecognizedValue, RegCert(), RegDRepCert(), + Relay(), ResignCommitteeColdCert(), Script(), Script'Script(..), + _Script'Native, _Script'PlutusV1, _Script'PlutusV2, + _Script'PlutusV3, _Script'PlutusV4, ScriptNOfK(), SoftforkRule(), + StakeCredential(), StakeCredential'StakeCredential(..), + _StakeCredential'AddrKeyHash, _StakeCredential'ScriptHash, + StakeDelegationCert(), StakeDelegationPattern(), + StakeRegDelegCert(), StakeVoteDelegCert(), StakeVoteRegDelegCert(), + TreasuryWithdrawalsAction(), Tx(), TxEval(), TxFeePolicy(), + TxInput(), TxOutput(), TxOutputPattern(), TxPattern(), + TxValidity(), UnRegCert(), UnRegDRepCert(), + UpdateCommitteeAction(), UpdateDRepCert(), VKeyWitness(), + VoteDelegCert(), VoteRegDelegCert(), VotingThresholds(), VssCert(), + Withdrawal(), WithdrawalAmount(), WitnessSet() + ) where +import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString +import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding +import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector +import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic +import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.exactAddress' @:: Lens' AddressPattern Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.paymentPart' @:: Lens' AddressPattern Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.delegationPart' @:: Lens' AddressPattern Data.ByteString.ByteString@ -} +data AddressPattern + = AddressPattern'_constructor {_AddressPattern'exactAddress :: !Data.ByteString.ByteString, + _AddressPattern'paymentPart :: !Data.ByteString.ByteString, + _AddressPattern'delegationPart :: !Data.ByteString.ByteString, + _AddressPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AddressPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AddressPattern "exactAddress" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AddressPattern'exactAddress + (\ x__ y__ -> x__ {_AddressPattern'exactAddress = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AddressPattern "paymentPart" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AddressPattern'paymentPart + (\ x__ y__ -> x__ {_AddressPattern'paymentPart = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AddressPattern "delegationPart" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AddressPattern'delegationPart + (\ x__ y__ -> x__ {_AddressPattern'delegationPart = y__})) + Prelude.id +instance Data.ProtoLens.Message AddressPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.AddressPattern" + packedMessageDescriptor _ + = "\n\ + \\SOAddressPattern\DC2#\n\ + \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\ + \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\ + \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + exactAddress__field_descriptor + = Data.ProtoLens.FieldDescriptor + "exact_address" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"exactAddress")) :: + Data.ProtoLens.FieldDescriptor AddressPattern + paymentPart__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payment_part" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"paymentPart")) :: + Data.ProtoLens.FieldDescriptor AddressPattern + delegationPart__field_descriptor + = Data.ProtoLens.FieldDescriptor + "delegation_part" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"delegationPart")) :: + Data.ProtoLens.FieldDescriptor AddressPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, exactAddress__field_descriptor), + (Data.ProtoLens.Tag 2, paymentPart__field_descriptor), + (Data.ProtoLens.Tag 3, delegationPart__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AddressPattern'_unknownFields + (\ x__ y__ -> x__ {_AddressPattern'_unknownFields = y__}) + defMessage + = AddressPattern'_constructor + {_AddressPattern'exactAddress = Data.ProtoLens.fieldDefault, + _AddressPattern'paymentPart = Data.ProtoLens.fieldDefault, + _AddressPattern'delegationPart = Data.ProtoLens.fieldDefault, + _AddressPattern'_unknownFields = []} + parseMessage + = let + loop :: + AddressPattern + -> Data.ProtoLens.Encoding.Bytes.Parser AddressPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "exact_address" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"exactAddress") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "payment_part" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentPart") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "delegation_part" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"delegationPart") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AddressPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"exactAddress") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"paymentPart") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"delegationPart") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData AddressPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AddressPattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AddressPattern'exactAddress x__) + (Control.DeepSeq.deepseq + (_AddressPattern'paymentPart x__) + (Control.DeepSeq.deepseq (_AddressPattern'delegationPart x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.url' @:: Lens' Anchor Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.contentHash' @:: Lens' Anchor Data.ByteString.ByteString@ -} +data Anchor + = Anchor'_constructor {_Anchor'url :: !Data.Text.Text, + _Anchor'contentHash :: !Data.ByteString.ByteString, + _Anchor'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Anchor where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Anchor "url" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Anchor'url (\ x__ y__ -> x__ {_Anchor'url = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Anchor "contentHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Anchor'contentHash (\ x__ y__ -> x__ {_Anchor'contentHash = y__})) + Prelude.id +instance Data.ProtoLens.Message Anchor where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Anchor" + packedMessageDescriptor _ + = "\n\ + \\ACKAnchor\DC2\DLE\n\ + \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2!\n\ + \\fcontent_hash\CAN\STX \SOH(\fR\vcontentHash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + url__field_descriptor + = Data.ProtoLens.FieldDescriptor + "url" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"url")) :: + Data.ProtoLens.FieldDescriptor Anchor + contentHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "content_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"contentHash")) :: + Data.ProtoLens.FieldDescriptor Anchor + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, url__field_descriptor), + (Data.ProtoLens.Tag 2, contentHash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Anchor'_unknownFields + (\ x__ y__ -> x__ {_Anchor'_unknownFields = y__}) + defMessage + = Anchor'_constructor + {_Anchor'url = Data.ProtoLens.fieldDefault, + _Anchor'contentHash = Data.ProtoLens.fieldDefault, + _Anchor'_unknownFields = []} + parseMessage + = let + loop :: Anchor -> Data.ProtoLens.Encoding.Bytes.Parser Anchor + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "url" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"url") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "content_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"contentHash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Anchor" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"url") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"contentHash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Anchor where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Anchor'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Anchor'url x__) + (Control.DeepSeq.deepseq (_Anchor'contentHash x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.name' @:: Lens' Asset Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.quantity' @:: Lens' Asset BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'quantity' @:: Lens' Asset (Prelude.Maybe BigInt)@ -} +data Asset + = Asset'_constructor {_Asset'name :: !Data.ByteString.ByteString, + _Asset'quantity :: !(Prelude.Maybe BigInt), + _Asset'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Asset where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Asset "name" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Asset'name (\ x__ y__ -> x__ {_Asset'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Asset "quantity" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Asset'quantity (\ x__ y__ -> x__ {_Asset'quantity = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Asset "maybe'quantity" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Asset'quantity (\ x__ y__ -> x__ {_Asset'quantity = y__})) + Prelude.id +instance Data.ProtoLens.Message Asset where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Asset" + packedMessageDescriptor _ + = "\n\ + \\ENQAsset\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2:\n\ + \\bquantity\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\bquantity" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor Asset + quantity__field_descriptor + = Data.ProtoLens.FieldDescriptor + "quantity" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'quantity")) :: + Data.ProtoLens.FieldDescriptor Asset + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, quantity__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Asset'_unknownFields + (\ x__ y__ -> x__ {_Asset'_unknownFields = y__}) + defMessage + = Asset'_constructor + {_Asset'name = Data.ProtoLens.fieldDefault, + _Asset'quantity = Prelude.Nothing, _Asset'_unknownFields = []} + parseMessage + = let + loop :: Asset -> Data.ProtoLens.Encoding.Bytes.Parser Asset + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "quantity" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"quantity") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Asset" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'quantity") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Asset where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Asset'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Asset'name x__) + (Control.DeepSeq.deepseq (_Asset'quantity x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.policyId' @:: Lens' AssetPattern Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.assetName' @:: Lens' AssetPattern Data.ByteString.ByteString@ -} +data AssetPattern + = AssetPattern'_constructor {_AssetPattern'policyId :: !Data.ByteString.ByteString, + _AssetPattern'assetName :: !Data.ByteString.ByteString, + _AssetPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AssetPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AssetPattern "policyId" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AssetPattern'policyId + (\ x__ y__ -> x__ {_AssetPattern'policyId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AssetPattern "assetName" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AssetPattern'assetName + (\ x__ y__ -> x__ {_AssetPattern'assetName = y__})) + Prelude.id +instance Data.ProtoLens.Message AssetPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.AssetPattern" + packedMessageDescriptor _ + = "\n\ + \\fAssetPattern\DC2\ESC\n\ + \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\ + \\n\ + \asset_name\CAN\STX \SOH(\fR\tassetName" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + policyId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "policy_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"policyId")) :: + Data.ProtoLens.FieldDescriptor AssetPattern + assetName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "asset_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"assetName")) :: + Data.ProtoLens.FieldDescriptor AssetPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, policyId__field_descriptor), + (Data.ProtoLens.Tag 2, assetName__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AssetPattern'_unknownFields + (\ x__ y__ -> x__ {_AssetPattern'_unknownFields = y__}) + defMessage + = AssetPattern'_constructor + {_AssetPattern'policyId = Data.ProtoLens.fieldDefault, + _AssetPattern'assetName = Data.ProtoLens.fieldDefault, + _AssetPattern'_unknownFields = []} + parseMessage + = let + loop :: + AssetPattern -> Data.ProtoLens.Encoding.Bytes.Parser AssetPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "policy_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"policyId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "asset_name" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"assetName") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AssetPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"policyId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"assetName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AssetPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AssetPattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AssetPattern'policyId x__) + (Control.DeepSeq.deepseq (_AssetPattern'assetName x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeColdCredential' @:: Lens' AuthCommitteeHotCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeColdCredential' @:: Lens' AuthCommitteeHotCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeHotCredential' @:: Lens' AuthCommitteeHotCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeHotCredential' @:: Lens' AuthCommitteeHotCert (Prelude.Maybe StakeCredential)@ -} +data AuthCommitteeHotCert + = AuthCommitteeHotCert'_constructor {_AuthCommitteeHotCert'committeeColdCredential :: !(Prelude.Maybe StakeCredential), + _AuthCommitteeHotCert'committeeHotCredential :: !(Prelude.Maybe StakeCredential), + _AuthCommitteeHotCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AuthCommitteeHotCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "committeeColdCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthCommitteeHotCert'committeeColdCredential + (\ x__ y__ + -> x__ {_AuthCommitteeHotCert'committeeColdCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "maybe'committeeColdCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthCommitteeHotCert'committeeColdCredential + (\ x__ y__ + -> x__ {_AuthCommitteeHotCert'committeeColdCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "committeeHotCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthCommitteeHotCert'committeeHotCredential + (\ x__ y__ + -> x__ {_AuthCommitteeHotCert'committeeHotCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AuthCommitteeHotCert "maybe'committeeHotCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthCommitteeHotCert'committeeHotCredential + (\ x__ y__ + -> x__ {_AuthCommitteeHotCert'committeeHotCredential = y__})) + Prelude.id +instance Data.ProtoLens.Message AuthCommitteeHotCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.AuthCommitteeHotCert" + packedMessageDescriptor _ + = "\n\ + \\DC4AuthCommitteeHotCert\DC2c\n\ + \\EMcommittee_cold_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\ETBcommitteeColdCredential\DC2a\n\ + \\CANcommittee_hot_credential\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SYNcommitteeHotCredential" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + committeeColdCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_cold_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeColdCredential")) :: + Data.ProtoLens.FieldDescriptor AuthCommitteeHotCert + committeeHotCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_hot_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeHotCredential")) :: + Data.ProtoLens.FieldDescriptor AuthCommitteeHotCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, committeeColdCredential__field_descriptor), + (Data.ProtoLens.Tag 2, committeeHotCredential__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AuthCommitteeHotCert'_unknownFields + (\ x__ y__ -> x__ {_AuthCommitteeHotCert'_unknownFields = y__}) + defMessage + = AuthCommitteeHotCert'_constructor + {_AuthCommitteeHotCert'committeeColdCredential = Prelude.Nothing, + _AuthCommitteeHotCert'committeeHotCredential = Prelude.Nothing, + _AuthCommitteeHotCert'_unknownFields = []} + parseMessage + = let + loop :: + AuthCommitteeHotCert + -> Data.ProtoLens.Encoding.Bytes.Parser AuthCommitteeHotCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_cold_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeColdCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_hot_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeHotCredential") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AuthCommitteeHotCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeColdCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeHotCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AuthCommitteeHotCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AuthCommitteeHotCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AuthCommitteeHotCert'committeeColdCredential x__) + (Control.DeepSeq.deepseq + (_AuthCommitteeHotCert'committeeHotCredential x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.metadata' @:: Lens' AuxData [Metadata]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'metadata' @:: Lens' AuxData (Data.Vector.Vector Metadata)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scripts' @:: Lens' AuxData [Script]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'scripts' @:: Lens' AuxData (Data.Vector.Vector Script)@ -} +data AuxData + = AuxData'_constructor {_AuxData'metadata :: !(Data.Vector.Vector Metadata), + _AuxData'scripts :: !(Data.Vector.Vector Script), + _AuxData'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AuxData where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField AuxData "metadata" [Metadata] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuxData'metadata (\ x__ y__ -> x__ {_AuxData'metadata = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField AuxData "vec'metadata" (Data.Vector.Vector Metadata) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuxData'metadata (\ x__ y__ -> x__ {_AuxData'metadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AuxData "scripts" [Script] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuxData'scripts (\ x__ y__ -> x__ {_AuxData'scripts = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField AuxData "vec'scripts" (Data.Vector.Vector Script) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuxData'scripts (\ x__ y__ -> x__ {_AuxData'scripts = y__})) + Prelude.id +instance Data.ProtoLens.Message AuxData where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.AuxData" + packedMessageDescriptor _ + = "\n\ + \\aAuxData\DC2<\n\ + \\bmetadata\CAN\SOH \ETX(\v2 .utxorpc.v1beta.cardano.MetadataR\bmetadata\DC28\n\ + \\ascripts\CAN\STX \ETX(\v2\RS.utxorpc.v1beta.cardano.ScriptR\ascripts" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + metadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Metadata) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"metadata")) :: + Data.ProtoLens.FieldDescriptor AuxData + scripts__field_descriptor + = Data.ProtoLens.FieldDescriptor + "scripts" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Script) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"scripts")) :: + Data.ProtoLens.FieldDescriptor AuxData + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, metadata__field_descriptor), + (Data.ProtoLens.Tag 2, scripts__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AuxData'_unknownFields + (\ x__ y__ -> x__ {_AuxData'_unknownFields = y__}) + defMessage + = AuxData'_constructor + {_AuxData'metadata = Data.Vector.Generic.empty, + _AuxData'scripts = Data.Vector.Generic.empty, + _AuxData'_unknownFields = []} + parseMessage + = let + loop :: + AuxData + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadata + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script + -> Data.ProtoLens.Encoding.Bytes.Parser AuxData + loop x mutable'metadata mutable'scripts + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'metadata) + frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'scripts) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'metadata") frozen'metadata + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "metadata" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'metadata y) + loop x v mutable'scripts + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "scripts" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'scripts y) + loop x mutable'metadata v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'metadata mutable'scripts + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'metadata mutable'scripts) + "AuxData" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'metadata") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'scripts") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AuxData where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AuxData'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AuxData'metadata x__) + (Control.DeepSeq.deepseq (_AuxData'scripts x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' BigInt (Prelude.Maybe BigInt'BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'int' @:: Lens' BigInt (Prelude.Maybe Data.Int.Int64)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.int' @:: Lens' BigInt Data.Int.Int64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bigUInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bigUInt' @:: Lens' BigInt Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bigNInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bigNInt' @:: Lens' BigInt Data.ByteString.ByteString@ -} +data BigInt + = BigInt'_constructor {_BigInt'bigInt :: !(Prelude.Maybe BigInt'BigInt), + _BigInt'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show BigInt where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data BigInt'BigInt + = BigInt'Int !Data.Int.Int64 | + BigInt'BigUInt !Data.ByteString.ByteString | + BigInt'BigNInt !Data.ByteString.ByteString + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField BigInt "maybe'bigInt" (Prelude.Maybe BigInt'BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BigInt "maybe'int" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap BigInt'Int y__)) +instance Data.ProtoLens.Field.HasField BigInt "int" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap BigInt'Int y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField BigInt "maybe'bigUInt" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__)) +instance Data.ProtoLens.Field.HasField BigInt "bigUInt" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField BigInt "maybe'bigNInt" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__)) +instance Data.ProtoLens.Field.HasField BigInt "bigNInt" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message BigInt where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.BigInt" + packedMessageDescriptor _ + = "\n\ + \\ACKBigInt\DC2\DC2\n\ + \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\FS\n\ + \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\ + \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\ + \\abig_int" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + int__field_descriptor + = Data.ProtoLens.FieldDescriptor + "int" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'int")) :: + Data.ProtoLens.FieldDescriptor BigInt + bigUInt__field_descriptor + = Data.ProtoLens.FieldDescriptor + "big_u_int" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'bigUInt")) :: + Data.ProtoLens.FieldDescriptor BigInt + bigNInt__field_descriptor + = Data.ProtoLens.FieldDescriptor + "big_n_int" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'bigNInt")) :: + Data.ProtoLens.FieldDescriptor BigInt + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, int__field_descriptor), + (Data.ProtoLens.Tag 2, bigUInt__field_descriptor), + (Data.ProtoLens.Tag 3, bigNInt__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _BigInt'_unknownFields + (\ x__ y__ -> x__ {_BigInt'_unknownFields = y__}) + defMessage + = BigInt'_constructor + {_BigInt'bigInt = Prelude.Nothing, _BigInt'_unknownFields = []} + parseMessage + = let + loop :: BigInt -> Data.ProtoLens.Encoding.Bytes.Parser BigInt + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "int" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "big_u_int" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigUInt") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "big_n_int" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigNInt") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "BigInt" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'bigInt") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (BigInt'Int v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v) + (Prelude.Just (BigInt'BigUInt v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (BigInt'BigNInt v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData BigInt where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_BigInt'_unknownFields x__) + (Control.DeepSeq.deepseq (_BigInt'bigInt x__) ()) +instance Control.DeepSeq.NFData BigInt'BigInt where + rnf (BigInt'Int x__) = Control.DeepSeq.rnf x__ + rnf (BigInt'BigUInt x__) = Control.DeepSeq.rnf x__ + rnf (BigInt'BigNInt x__) = Control.DeepSeq.rnf x__ +_BigInt'Int :: + Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.Int.Int64 +_BigInt'Int + = Data.ProtoLens.Prism.prism' + BigInt'Int + (\ p__ + -> case p__ of + (BigInt'Int p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_BigInt'BigUInt :: + Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString +_BigInt'BigUInt + = Data.ProtoLens.Prism.prism' + BigInt'BigUInt + (\ p__ + -> case p__ of + (BigInt'BigUInt p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_BigInt'BigNInt :: + Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString +_BigInt'BigNInt + = Data.ProtoLens.Prism.prism' + BigInt'BigNInt + (\ p__ + -> case p__ of + (BigInt'BigNInt p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.header' @:: Lens' Block BlockHeader@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'header' @:: Lens' Block (Prelude.Maybe BlockHeader)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.body' @:: Lens' Block BlockBody@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'body' @:: Lens' Block (Prelude.Maybe BlockBody)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.timestamp' @:: Lens' Block Data.Word.Word64@ -} +data Block + = Block'_constructor {_Block'header :: !(Prelude.Maybe BlockHeader), + _Block'body :: !(Prelude.Maybe BlockBody), + _Block'timestamp :: !Data.Word.Word64, + _Block'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Block where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Block "header" BlockHeader where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Block'header (\ x__ y__ -> x__ {_Block'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Block "maybe'header" (Prelude.Maybe BlockHeader) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Block'header (\ x__ y__ -> x__ {_Block'header = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Block "body" BlockBody where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Block'body (\ x__ y__ -> x__ {_Block'body = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Block "maybe'body" (Prelude.Maybe BlockBody) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Block'body (\ x__ y__ -> x__ {_Block'body = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Block "timestamp" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Block'timestamp (\ x__ y__ -> x__ {_Block'timestamp = y__})) + Prelude.id +instance Data.ProtoLens.Message Block where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Block" + packedMessageDescriptor _ + = "\n\ + \\ENQBlock\DC2;\n\ + \\ACKheader\CAN\SOH \SOH(\v2#.utxorpc.v1beta.cardano.BlockHeaderR\ACKheader\DC25\n\ + \\EOTbody\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.BlockBodyR\EOTbody\DC2\FS\n\ + \\ttimestamp\CAN\ETX \SOH(\EOTR\ttimestamp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + header__field_descriptor + = Data.ProtoLens.FieldDescriptor + "header" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BlockHeader) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'header")) :: + Data.ProtoLens.FieldDescriptor Block + body__field_descriptor + = Data.ProtoLens.FieldDescriptor + "body" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BlockBody) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'body")) :: + Data.ProtoLens.FieldDescriptor Block + timestamp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timestamp" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"timestamp")) :: + Data.ProtoLens.FieldDescriptor Block + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, header__field_descriptor), + (Data.ProtoLens.Tag 2, body__field_descriptor), + (Data.ProtoLens.Tag 3, timestamp__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Block'_unknownFields + (\ x__ y__ -> x__ {_Block'_unknownFields = y__}) + defMessage + = Block'_constructor + {_Block'header = Prelude.Nothing, _Block'body = Prelude.Nothing, + _Block'timestamp = Data.ProtoLens.fieldDefault, + _Block'_unknownFields = []} + parseMessage + = let + loop :: Block -> Data.ProtoLens.Encoding.Bytes.Parser Block + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "header" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "body" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "timestamp" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Block" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'header") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'body") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timestamp") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData Block where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Block'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Block'header x__) + (Control.DeepSeq.deepseq + (_Block'body x__) + (Control.DeepSeq.deepseq (_Block'timestamp x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.tx' @:: Lens' BlockBody [Tx]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'tx' @:: Lens' BlockBody (Data.Vector.Vector Tx)@ -} +data BlockBody + = BlockBody'_constructor {_BlockBody'tx :: !(Data.Vector.Vector Tx), + _BlockBody'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show BlockBody where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField BlockBody "tx" [Tx] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockBody'tx (\ x__ y__ -> x__ {_BlockBody'tx = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField BlockBody "vec'tx" (Data.Vector.Vector Tx) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockBody'tx (\ x__ y__ -> x__ {_BlockBody'tx = y__})) + Prelude.id +instance Data.ProtoLens.Message BlockBody where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.BlockBody" + packedMessageDescriptor _ + = "\n\ + \\tBlockBody\DC2*\n\ + \\STXtx\CAN\SOH \ETX(\v2\SUB.utxorpc.v1beta.cardano.TxR\STXtx" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + tx__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tx" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Tx) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"tx")) :: + Data.ProtoLens.FieldDescriptor BlockBody + in Data.Map.fromList [(Data.ProtoLens.Tag 1, tx__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _BlockBody'_unknownFields + (\ x__ y__ -> x__ {_BlockBody'_unknownFields = y__}) + defMessage + = BlockBody'_constructor + {_BlockBody'tx = Data.Vector.Generic.empty, + _BlockBody'_unknownFields = []} + parseMessage + = let + loop :: + BlockBody + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Tx + -> Data.ProtoLens.Encoding.Bytes.Parser BlockBody + loop x mutable'tx + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tx) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'tx") frozen'tx x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "tx" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'tx y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'tx + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'tx) + "BlockBody" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tx") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData BlockBody where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_BlockBody'_unknownFields x__) + (Control.DeepSeq.deepseq (_BlockBody'tx x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slot' @:: Lens' BlockHeader Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' BlockHeader Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.height' @:: Lens' BlockHeader Data.Word.Word64@ -} +data BlockHeader + = BlockHeader'_constructor {_BlockHeader'slot :: !Data.Word.Word64, + _BlockHeader'hash :: !Data.ByteString.ByteString, + _BlockHeader'height :: !Data.Word.Word64, + _BlockHeader'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show BlockHeader where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField BlockHeader "slot" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockHeader'slot (\ x__ y__ -> x__ {_BlockHeader'slot = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockHeader "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockHeader'hash (\ x__ y__ -> x__ {_BlockHeader'hash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockHeader "height" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockHeader'height (\ x__ y__ -> x__ {_BlockHeader'height = y__})) + Prelude.id +instance Data.ProtoLens.Message BlockHeader where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.BlockHeader" + packedMessageDescriptor _ + = "\n\ + \\vBlockHeader\DC2\DC2\n\ + \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\ + \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + slot__field_descriptor + = Data.ProtoLens.FieldDescriptor + "slot" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) :: + Data.ProtoLens.FieldDescriptor BlockHeader + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor BlockHeader + height__field_descriptor + = Data.ProtoLens.FieldDescriptor + "height" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) :: + Data.ProtoLens.FieldDescriptor BlockHeader + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, slot__field_descriptor), + (Data.ProtoLens.Tag 2, hash__field_descriptor), + (Data.ProtoLens.Tag 3, height__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _BlockHeader'_unknownFields + (\ x__ y__ -> x__ {_BlockHeader'_unknownFields = y__}) + defMessage + = BlockHeader'_constructor + {_BlockHeader'slot = Data.ProtoLens.fieldDefault, + _BlockHeader'hash = Data.ProtoLens.fieldDefault, + _BlockHeader'height = Data.ProtoLens.fieldDefault, + _BlockHeader'_unknownFields = []} + parseMessage + = let + loop :: + BlockHeader -> Data.ProtoLens.Encoding.Bytes.Parser BlockHeader + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "slot" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "height" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "BlockHeader" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"height") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData BlockHeader where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_BlockHeader'_unknownFields x__) + (Control.DeepSeq.deepseq + (_BlockHeader'slot x__) + (Control.DeepSeq.deepseq + (_BlockHeader'hash x__) + (Control.DeepSeq.deepseq (_BlockHeader'height x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptVersion' @:: Lens' BlockVersionData Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slotDuration' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxBlockSize' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxHeaderSize' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxTxSize' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxProposalSize' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.mpcThd' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.heavyDelThd' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateVoteThd' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateProposalThd' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateImplicit' @:: Lens' BlockVersionData Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.softforkRule' @:: Lens' BlockVersionData SoftforkRule@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'softforkRule' @:: Lens' BlockVersionData (Prelude.Maybe SoftforkRule)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.txFeePolicy' @:: Lens' BlockVersionData TxFeePolicy@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'txFeePolicy' @:: Lens' BlockVersionData (Prelude.Maybe TxFeePolicy)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.unlockStakeEpoch' @:: Lens' BlockVersionData Data.Text.Text@ -} +data BlockVersionData + = BlockVersionData'_constructor {_BlockVersionData'scriptVersion :: !Data.Word.Word32, + _BlockVersionData'slotDuration :: !Data.Text.Text, + _BlockVersionData'maxBlockSize :: !Data.Text.Text, + _BlockVersionData'maxHeaderSize :: !Data.Text.Text, + _BlockVersionData'maxTxSize :: !Data.Text.Text, + _BlockVersionData'maxProposalSize :: !Data.Text.Text, + _BlockVersionData'mpcThd :: !Data.Text.Text, + _BlockVersionData'heavyDelThd :: !Data.Text.Text, + _BlockVersionData'updateVoteThd :: !Data.Text.Text, + _BlockVersionData'updateProposalThd :: !Data.Text.Text, + _BlockVersionData'updateImplicit :: !Data.Text.Text, + _BlockVersionData'softforkRule :: !(Prelude.Maybe SoftforkRule), + _BlockVersionData'txFeePolicy :: !(Prelude.Maybe TxFeePolicy), + _BlockVersionData'unlockStakeEpoch :: !Data.Text.Text, + _BlockVersionData'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show BlockVersionData where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField BlockVersionData "scriptVersion" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'scriptVersion + (\ x__ y__ -> x__ {_BlockVersionData'scriptVersion = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "slotDuration" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'slotDuration + (\ x__ y__ -> x__ {_BlockVersionData'slotDuration = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "maxBlockSize" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'maxBlockSize + (\ x__ y__ -> x__ {_BlockVersionData'maxBlockSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "maxHeaderSize" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'maxHeaderSize + (\ x__ y__ -> x__ {_BlockVersionData'maxHeaderSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "maxTxSize" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'maxTxSize + (\ x__ y__ -> x__ {_BlockVersionData'maxTxSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "maxProposalSize" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'maxProposalSize + (\ x__ y__ -> x__ {_BlockVersionData'maxProposalSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "mpcThd" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'mpcThd + (\ x__ y__ -> x__ {_BlockVersionData'mpcThd = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "heavyDelThd" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'heavyDelThd + (\ x__ y__ -> x__ {_BlockVersionData'heavyDelThd = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "updateVoteThd" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'updateVoteThd + (\ x__ y__ -> x__ {_BlockVersionData'updateVoteThd = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "updateProposalThd" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'updateProposalThd + (\ x__ y__ -> x__ {_BlockVersionData'updateProposalThd = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "updateImplicit" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'updateImplicit + (\ x__ y__ -> x__ {_BlockVersionData'updateImplicit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "softforkRule" SoftforkRule where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'softforkRule + (\ x__ y__ -> x__ {_BlockVersionData'softforkRule = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField BlockVersionData "maybe'softforkRule" (Prelude.Maybe SoftforkRule) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'softforkRule + (\ x__ y__ -> x__ {_BlockVersionData'softforkRule = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "txFeePolicy" TxFeePolicy where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'txFeePolicy + (\ x__ y__ -> x__ {_BlockVersionData'txFeePolicy = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField BlockVersionData "maybe'txFeePolicy" (Prelude.Maybe TxFeePolicy) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'txFeePolicy + (\ x__ y__ -> x__ {_BlockVersionData'txFeePolicy = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BlockVersionData "unlockStakeEpoch" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BlockVersionData'unlockStakeEpoch + (\ x__ y__ -> x__ {_BlockVersionData'unlockStakeEpoch = y__})) + Prelude.id +instance Data.ProtoLens.Message BlockVersionData where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.BlockVersionData" + packedMessageDescriptor _ + = "\n\ + \\DLEBlockVersionData\DC2%\n\ + \\SOscript_version\CAN\SOH \SOH(\rR\rscriptVersion\DC2#\n\ + \\rslot_duration\CAN\STX \SOH(\tR\fslotDuration\DC2$\n\ + \\SOmax_block_size\CAN\ETX \SOH(\tR\fmaxBlockSize\DC2&\n\ + \\SImax_header_size\CAN\EOT \SOH(\tR\rmaxHeaderSize\DC2\RS\n\ + \\vmax_tx_size\CAN\ENQ \SOH(\tR\tmaxTxSize\DC2*\n\ + \\DC1max_proposal_size\CAN\ACK \SOH(\tR\SImaxProposalSize\DC2\ETB\n\ + \\ampc_thd\CAN\a \SOH(\tR\ACKmpcThd\DC2\"\n\ + \\rheavy_del_thd\CAN\b \SOH(\tR\vheavyDelThd\DC2&\n\ + \\SIupdate_vote_thd\CAN\t \SOH(\tR\rupdateVoteThd\DC2.\n\ + \\DC3update_proposal_thd\CAN\n\ + \ \SOH(\tR\DC1updateProposalThd\DC2'\n\ + \\SIupdate_implicit\CAN\v \SOH(\tR\SOupdateImplicit\DC2I\n\ + \\rsoftfork_rule\CAN\f \SOH(\v2$.utxorpc.v1beta.cardano.SoftforkRuleR\fsoftforkRule\DC2G\n\ + \\rtx_fee_policy\CAN\r \SOH(\v2#.utxorpc.v1beta.cardano.TxFeePolicyR\vtxFeePolicy\DC2,\n\ + \\DC2unlock_stake_epoch\CAN\SO \SOH(\tR\DLEunlockStakeEpoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + scriptVersion__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script_version" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"scriptVersion")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + slotDuration__field_descriptor + = Data.ProtoLens.FieldDescriptor + "slot_duration" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"slotDuration")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + maxBlockSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_block_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxBlockSize")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + maxHeaderSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_header_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxHeaderSize")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + maxTxSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_tx_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxTxSize")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + maxProposalSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_proposal_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxProposalSize")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + mpcThd__field_descriptor + = Data.ProtoLens.FieldDescriptor + "mpc_thd" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"mpcThd")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + heavyDelThd__field_descriptor + = Data.ProtoLens.FieldDescriptor + "heavy_del_thd" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"heavyDelThd")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + updateVoteThd__field_descriptor + = Data.ProtoLens.FieldDescriptor + "update_vote_thd" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"updateVoteThd")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + updateProposalThd__field_descriptor + = Data.ProtoLens.FieldDescriptor + "update_proposal_thd" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"updateProposalThd")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + updateImplicit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "update_implicit" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"updateImplicit")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + softforkRule__field_descriptor + = Data.ProtoLens.FieldDescriptor + "softfork_rule" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor SoftforkRule) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'softforkRule")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + txFeePolicy__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tx_fee_policy" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxFeePolicy) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'txFeePolicy")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + unlockStakeEpoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "unlock_stake_epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"unlockStakeEpoch")) :: + Data.ProtoLens.FieldDescriptor BlockVersionData + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, scriptVersion__field_descriptor), + (Data.ProtoLens.Tag 2, slotDuration__field_descriptor), + (Data.ProtoLens.Tag 3, maxBlockSize__field_descriptor), + (Data.ProtoLens.Tag 4, maxHeaderSize__field_descriptor), + (Data.ProtoLens.Tag 5, maxTxSize__field_descriptor), + (Data.ProtoLens.Tag 6, maxProposalSize__field_descriptor), + (Data.ProtoLens.Tag 7, mpcThd__field_descriptor), + (Data.ProtoLens.Tag 8, heavyDelThd__field_descriptor), + (Data.ProtoLens.Tag 9, updateVoteThd__field_descriptor), + (Data.ProtoLens.Tag 10, updateProposalThd__field_descriptor), + (Data.ProtoLens.Tag 11, updateImplicit__field_descriptor), + (Data.ProtoLens.Tag 12, softforkRule__field_descriptor), + (Data.ProtoLens.Tag 13, txFeePolicy__field_descriptor), + (Data.ProtoLens.Tag 14, unlockStakeEpoch__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _BlockVersionData'_unknownFields + (\ x__ y__ -> x__ {_BlockVersionData'_unknownFields = y__}) + defMessage + = BlockVersionData'_constructor + {_BlockVersionData'scriptVersion = Data.ProtoLens.fieldDefault, + _BlockVersionData'slotDuration = Data.ProtoLens.fieldDefault, + _BlockVersionData'maxBlockSize = Data.ProtoLens.fieldDefault, + _BlockVersionData'maxHeaderSize = Data.ProtoLens.fieldDefault, + _BlockVersionData'maxTxSize = Data.ProtoLens.fieldDefault, + _BlockVersionData'maxProposalSize = Data.ProtoLens.fieldDefault, + _BlockVersionData'mpcThd = Data.ProtoLens.fieldDefault, + _BlockVersionData'heavyDelThd = Data.ProtoLens.fieldDefault, + _BlockVersionData'updateVoteThd = Data.ProtoLens.fieldDefault, + _BlockVersionData'updateProposalThd = Data.ProtoLens.fieldDefault, + _BlockVersionData'updateImplicit = Data.ProtoLens.fieldDefault, + _BlockVersionData'softforkRule = Prelude.Nothing, + _BlockVersionData'txFeePolicy = Prelude.Nothing, + _BlockVersionData'unlockStakeEpoch = Data.ProtoLens.fieldDefault, + _BlockVersionData'_unknownFields = []} + parseMessage + = let + loop :: + BlockVersionData + -> Data.ProtoLens.Encoding.Bytes.Parser BlockVersionData + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "script_version" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"scriptVersion") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "slot_duration" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"slotDuration") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "max_block_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxBlockSize") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "max_header_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxHeaderSize") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "max_tx_size" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"maxTxSize") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "max_proposal_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxProposalSize") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "mpc_thd" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mpcThd") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "heavy_del_thd" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"heavyDelThd") y x) + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "update_vote_thd" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"updateVoteThd") y x) + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "update_proposal_thd" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"updateProposalThd") y x) + 90 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "update_implicit" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"updateImplicit") y x) + 98 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "softfork_rule" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"softforkRule") y x) + 106 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "tx_fee_policy" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"txFeePolicy") y x) + 114 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "unlock_stake_epoch" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"unlockStakeEpoch") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "BlockVersionData" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"scriptVersion") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"slotDuration") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"maxBlockSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxHeaderSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxTxSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxProposalSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"mpcThd") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"heavyDelThd") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"updateVoteThd") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"updateProposalThd") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"updateImplicit") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 90) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'softforkRule") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 98) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'txFeePolicy") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 106) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"unlockStakeEpoch") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 114) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x))))))))))))))) +instance Control.DeepSeq.NFData BlockVersionData where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_BlockVersionData'_unknownFields x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'scriptVersion x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'slotDuration x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'maxBlockSize x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'maxHeaderSize x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'maxTxSize x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'maxProposalSize x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'mpcThd x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'heavyDelThd x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'updateVoteThd x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'updateProposalThd x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'updateImplicit x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'softforkRule x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'txFeePolicy x__) + (Control.DeepSeq.deepseq + (_BlockVersionData'unlockStakeEpoch x__) + ())))))))))))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vkey' @:: Lens' BootstrapWitness Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.signature' @:: Lens' BootstrapWitness Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.chainCode' @:: Lens' BootstrapWitness Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.attributes' @:: Lens' BootstrapWitness Data.ByteString.ByteString@ -} +data BootstrapWitness + = BootstrapWitness'_constructor {_BootstrapWitness'vkey :: !Data.ByteString.ByteString, + _BootstrapWitness'signature :: !Data.ByteString.ByteString, + _BootstrapWitness'chainCode :: !Data.ByteString.ByteString, + _BootstrapWitness'attributes :: !Data.ByteString.ByteString, + _BootstrapWitness'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show BootstrapWitness where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField BootstrapWitness "vkey" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BootstrapWitness'vkey + (\ x__ y__ -> x__ {_BootstrapWitness'vkey = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BootstrapWitness "signature" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BootstrapWitness'signature + (\ x__ y__ -> x__ {_BootstrapWitness'signature = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BootstrapWitness "chainCode" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BootstrapWitness'chainCode + (\ x__ y__ -> x__ {_BootstrapWitness'chainCode = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField BootstrapWitness "attributes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BootstrapWitness'attributes + (\ x__ y__ -> x__ {_BootstrapWitness'attributes = y__})) + Prelude.id +instance Data.ProtoLens.Message BootstrapWitness where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.BootstrapWitness" + packedMessageDescriptor _ + = "\n\ + \\DLEBootstrapWitness\DC2\DC2\n\ + \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\ + \\tsignature\CAN\STX \SOH(\fR\tsignature\DC2\GS\n\ + \\n\ + \chain_code\CAN\ETX \SOH(\fR\tchainCode\DC2\RS\n\ + \\n\ + \attributes\CAN\EOT \SOH(\fR\n\ + \attributes" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + vkey__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vkey" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"vkey")) :: + Data.ProtoLens.FieldDescriptor BootstrapWitness + signature__field_descriptor + = Data.ProtoLens.FieldDescriptor + "signature" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"signature")) :: + Data.ProtoLens.FieldDescriptor BootstrapWitness + chainCode__field_descriptor + = Data.ProtoLens.FieldDescriptor + "chain_code" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"chainCode")) :: + Data.ProtoLens.FieldDescriptor BootstrapWitness + attributes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "attributes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"attributes")) :: + Data.ProtoLens.FieldDescriptor BootstrapWitness + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, vkey__field_descriptor), + (Data.ProtoLens.Tag 2, signature__field_descriptor), + (Data.ProtoLens.Tag 3, chainCode__field_descriptor), + (Data.ProtoLens.Tag 4, attributes__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _BootstrapWitness'_unknownFields + (\ x__ y__ -> x__ {_BootstrapWitness'_unknownFields = y__}) + defMessage + = BootstrapWitness'_constructor + {_BootstrapWitness'vkey = Data.ProtoLens.fieldDefault, + _BootstrapWitness'signature = Data.ProtoLens.fieldDefault, + _BootstrapWitness'chainCode = Data.ProtoLens.fieldDefault, + _BootstrapWitness'attributes = Data.ProtoLens.fieldDefault, + _BootstrapWitness'_unknownFields = []} + parseMessage + = let + loop :: + BootstrapWitness + -> Data.ProtoLens.Encoding.Bytes.Parser BootstrapWitness + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vkey" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"vkey") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "signature" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "chain_code" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"chainCode") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "attributes" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"attributes") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "BootstrapWitness" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vkey") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"signature") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"chainCode") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"attributes") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData BootstrapWitness where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_BootstrapWitness'_unknownFields x__) + (Control.DeepSeq.deepseq + (_BootstrapWitness'vkey x__) + (Control.DeepSeq.deepseq + (_BootstrapWitness'signature x__) + (Control.DeepSeq.deepseq + (_BootstrapWitness'chainCode x__) + (Control.DeepSeq.deepseq (_BootstrapWitness'attributes x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.redeemer' @:: Lens' Certificate Redeemer@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Certificate (Prelude.Maybe Redeemer)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'certificate' @:: Lens' Certificate (Prelude.Maybe Certificate'Certificate)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeRegistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeRegistration' @:: Lens' Certificate StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDeregistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDeregistration' @:: Lens' Certificate StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDelegation' @:: Lens' Certificate (Prelude.Maybe StakeDelegationCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDelegation' @:: Lens' Certificate StakeDelegationCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRegistration' @:: Lens' Certificate (Prelude.Maybe PoolRegistrationCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRegistration' @:: Lens' Certificate PoolRegistrationCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRetirement' @:: Lens' Certificate (Prelude.Maybe PoolRetirementCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRetirement' @:: Lens' Certificate PoolRetirementCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'genesisKeyDelegation' @:: Lens' Certificate (Prelude.Maybe GenesisKeyDelegationCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.genesisKeyDelegation' @:: Lens' Certificate GenesisKeyDelegationCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'mirCert' @:: Lens' Certificate (Prelude.Maybe MirCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.mirCert' @:: Lens' Certificate MirCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'regCert' @:: Lens' Certificate (Prelude.Maybe RegCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.regCert' @:: Lens' Certificate RegCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'unregCert' @:: Lens' Certificate (Prelude.Maybe UnRegCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.unregCert' @:: Lens' Certificate UnRegCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'voteDelegCert' @:: Lens' Certificate (Prelude.Maybe VoteDelegCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.voteDelegCert' @:: Lens' Certificate VoteDelegCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeVoteDelegCert' @:: Lens' Certificate (Prelude.Maybe StakeVoteDelegCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeVoteDelegCert' @:: Lens' Certificate StakeVoteDelegCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeRegDelegCert' @:: Lens' Certificate (Prelude.Maybe StakeRegDelegCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeRegDelegCert' @:: Lens' Certificate StakeRegDelegCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'voteRegDelegCert' @:: Lens' Certificate (Prelude.Maybe VoteRegDelegCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.voteRegDelegCert' @:: Lens' Certificate VoteRegDelegCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeVoteRegDelegCert' @:: Lens' Certificate (Prelude.Maybe StakeVoteRegDelegCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeVoteRegDelegCert' @:: Lens' Certificate StakeVoteRegDelegCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'authCommitteeHotCert' @:: Lens' Certificate (Prelude.Maybe AuthCommitteeHotCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.authCommitteeHotCert' @:: Lens' Certificate AuthCommitteeHotCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'resignCommitteeColdCert' @:: Lens' Certificate (Prelude.Maybe ResignCommitteeColdCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.resignCommitteeColdCert' @:: Lens' Certificate ResignCommitteeColdCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'regDrepCert' @:: Lens' Certificate (Prelude.Maybe RegDRepCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.regDrepCert' @:: Lens' Certificate RegDRepCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'unregDrepCert' @:: Lens' Certificate (Prelude.Maybe UnRegDRepCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.unregDrepCert' @:: Lens' Certificate UnRegDRepCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'updateDrepCert' @:: Lens' Certificate (Prelude.Maybe UpdateDRepCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateDrepCert' @:: Lens' Certificate UpdateDRepCert@ -} +data Certificate + = Certificate'_constructor {_Certificate'redeemer :: !(Prelude.Maybe Redeemer), + _Certificate'certificate :: !(Prelude.Maybe Certificate'Certificate), + _Certificate'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Certificate where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data Certificate'Certificate + = Certificate'StakeRegistration !StakeCredential | + Certificate'StakeDeregistration !StakeCredential | + Certificate'StakeDelegation !StakeDelegationCert | + Certificate'PoolRegistration !PoolRegistrationCert | + Certificate'PoolRetirement !PoolRetirementCert | + Certificate'GenesisKeyDelegation !GenesisKeyDelegationCert | + Certificate'MirCert !MirCert | + Certificate'RegCert !RegCert | + Certificate'UnregCert !UnRegCert | + Certificate'VoteDelegCert !VoteDelegCert | + Certificate'StakeVoteDelegCert !StakeVoteDelegCert | + Certificate'StakeRegDelegCert !StakeRegDelegCert | + Certificate'VoteRegDelegCert !VoteRegDelegCert | + Certificate'StakeVoteRegDelegCert !StakeVoteRegDelegCert | + Certificate'AuthCommitteeHotCert !AuthCommitteeHotCert | + Certificate'ResignCommitteeColdCert !ResignCommitteeColdCert | + Certificate'RegDrepCert !RegDRepCert | + Certificate'UnregDrepCert !UnRegDRepCert | + Certificate'UpdateDrepCert !UpdateDRepCert + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField Certificate "redeemer" Redeemer where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'redeemer + (\ x__ y__ -> x__ {_Certificate'redeemer = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Certificate "maybe'redeemer" (Prelude.Maybe Redeemer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'redeemer + (\ x__ y__ -> x__ {_Certificate'redeemer = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Certificate "maybe'certificate" (Prelude.Maybe Certificate'Certificate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeRegistration" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeRegistration y__)) +instance Data.ProtoLens.Field.HasField Certificate "stakeRegistration" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeRegistration y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDeregistration" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeDeregistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeDeregistration y__)) +instance Data.ProtoLens.Field.HasField Certificate "stakeDeregistration" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeDeregistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeDeregistration y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDelegation" (Prelude.Maybe StakeDelegationCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeDelegation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeDelegation y__)) +instance Data.ProtoLens.Field.HasField Certificate "stakeDelegation" StakeDelegationCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeDelegation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeDelegation y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRegistration" (Prelude.Maybe PoolRegistrationCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'PoolRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'PoolRegistration y__)) +instance Data.ProtoLens.Field.HasField Certificate "poolRegistration" PoolRegistrationCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'PoolRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'PoolRegistration y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRetirement" (Prelude.Maybe PoolRetirementCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'PoolRetirement x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'PoolRetirement y__)) +instance Data.ProtoLens.Field.HasField Certificate "poolRetirement" PoolRetirementCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'PoolRetirement x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'PoolRetirement y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'genesisKeyDelegation" (Prelude.Maybe GenesisKeyDelegationCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'GenesisKeyDelegation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'GenesisKeyDelegation y__)) +instance Data.ProtoLens.Field.HasField Certificate "genesisKeyDelegation" GenesisKeyDelegationCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'GenesisKeyDelegation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'GenesisKeyDelegation y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'mirCert" (Prelude.Maybe MirCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'MirCert x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'MirCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "mirCert" MirCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'MirCert x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'MirCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'regCert" (Prelude.Maybe RegCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'RegCert x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'RegCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "regCert" RegCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'RegCert x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'RegCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'unregCert" (Prelude.Maybe UnRegCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'UnregCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'UnregCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "unregCert" UnRegCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'UnregCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'UnregCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'voteDelegCert" (Prelude.Maybe VoteDelegCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'VoteDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'VoteDelegCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "voteDelegCert" VoteDelegCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'VoteDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'VoteDelegCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeVoteDelegCert" (Prelude.Maybe StakeVoteDelegCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeVoteDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeVoteDelegCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "stakeVoteDelegCert" StakeVoteDelegCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeVoteDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeVoteDelegCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeRegDelegCert" (Prelude.Maybe StakeRegDelegCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeRegDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeRegDelegCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "stakeRegDelegCert" StakeRegDelegCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeRegDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeRegDelegCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'voteRegDelegCert" (Prelude.Maybe VoteRegDelegCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'VoteRegDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'VoteRegDelegCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "voteRegDelegCert" VoteRegDelegCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'VoteRegDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'VoteRegDelegCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeVoteRegDelegCert" (Prelude.Maybe StakeVoteRegDelegCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeVoteRegDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeVoteRegDelegCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "stakeVoteRegDelegCert" StakeVoteRegDelegCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'StakeVoteRegDelegCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'StakeVoteRegDelegCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'authCommitteeHotCert" (Prelude.Maybe AuthCommitteeHotCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'AuthCommitteeHotCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'AuthCommitteeHotCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "authCommitteeHotCert" AuthCommitteeHotCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'AuthCommitteeHotCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'AuthCommitteeHotCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'resignCommitteeColdCert" (Prelude.Maybe ResignCommitteeColdCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'ResignCommitteeColdCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'ResignCommitteeColdCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "resignCommitteeColdCert" ResignCommitteeColdCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'ResignCommitteeColdCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'ResignCommitteeColdCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'regDrepCert" (Prelude.Maybe RegDRepCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'RegDrepCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'RegDrepCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "regDrepCert" RegDRepCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'RegDrepCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'RegDrepCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'unregDrepCert" (Prelude.Maybe UnRegDRepCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'UnregDrepCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'UnregDrepCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "unregDrepCert" UnRegDRepCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'UnregDrepCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'UnregDrepCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Certificate "maybe'updateDrepCert" (Prelude.Maybe UpdateDRepCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'UpdateDrepCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'UpdateDrepCert y__)) +instance Data.ProtoLens.Field.HasField Certificate "updateDrepCert" UpdateDRepCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Certificate'certificate + (\ x__ y__ -> x__ {_Certificate'certificate = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Certificate'UpdateDrepCert x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Certificate'UpdateDrepCert y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message Certificate where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Certificate" + packedMessageDescriptor _ + = "\n\ + \\vCertificate\DC2X\n\ + \\DC2stake_registration\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2\\\n\ + \\DC4stake_deregistration\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2X\n\ + \\DLEstake_delegation\CAN\ETX \SOH(\v2+.utxorpc.v1beta.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2[\n\ + \\DC1pool_registration\CAN\EOT \SOH(\v2,.utxorpc.v1beta.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2U\n\ + \\SIpool_retirement\CAN\ENQ \SOH(\v2*.utxorpc.v1beta.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2h\n\ + \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v20.utxorpc.v1beta.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2<\n\ + \\bmir_cert\CAN\a \SOH(\v2\US.utxorpc.v1beta.cardano.MirCertH\NULR\amirCert\DC2<\n\ + \\breg_cert\CAN\b \SOH(\v2\US.utxorpc.v1beta.cardano.RegCertH\NULR\aregCert\DC2B\n\ + \\n\ + \unreg_cert\CAN\t \SOH(\v2!.utxorpc.v1beta.cardano.UnRegCertH\NULR\tunregCert\DC2O\n\ + \\SIvote_deleg_cert\CAN\n\ + \ \SOH(\v2%.utxorpc.v1beta.cardano.VoteDelegCertH\NULR\rvoteDelegCert\DC2_\n\ + \\NAKstake_vote_deleg_cert\CAN\v \SOH(\v2*.utxorpc.v1beta.cardano.StakeVoteDelegCertH\NULR\DC2stakeVoteDelegCert\DC2\\\n\ + \\DC4stake_reg_deleg_cert\CAN\f \SOH(\v2).utxorpc.v1beta.cardano.StakeRegDelegCertH\NULR\DC1stakeRegDelegCert\DC2Y\n\ + \\DC3vote_reg_deleg_cert\CAN\r \SOH(\v2(.utxorpc.v1beta.cardano.VoteRegDelegCertH\NULR\DLEvoteRegDelegCert\DC2i\n\ + \\EMstake_vote_reg_deleg_cert\CAN\SO \SOH(\v2-.utxorpc.v1beta.cardano.StakeVoteRegDelegCertH\NULR\NAKstakeVoteRegDelegCert\DC2e\n\ + \\ETBauth_committee_hot_cert\CAN\SI \SOH(\v2,.utxorpc.v1beta.cardano.AuthCommitteeHotCertH\NULR\DC4authCommitteeHotCert\DC2n\n\ + \\SUBresign_committee_cold_cert\CAN\DLE \SOH(\v2/.utxorpc.v1beta.cardano.ResignCommitteeColdCertH\NULR\ETBresignCommitteeColdCert\DC2I\n\ + \\rreg_drep_cert\CAN\DC1 \SOH(\v2#.utxorpc.v1beta.cardano.RegDRepCertH\NULR\vregDrepCert\DC2O\n\ + \\SIunreg_drep_cert\CAN\DC2 \SOH(\v2%.utxorpc.v1beta.cardano.UnRegDRepCertH\NULR\runregDrepCert\DC2R\n\ + \\DLEupdate_drep_cert\CAN\DC3 \SOH(\v2&.utxorpc.v1beta.cardano.UpdateDRepCertH\NULR\SOupdateDrepCert\DC2<\n\ + \\bredeemer\CANd \SOH(\v2 .utxorpc.v1beta.cardano.RedeemerR\bredeemerB\r\n\ + \\vcertificate" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + redeemer__field_descriptor + = Data.ProtoLens.FieldDescriptor + "redeemer" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Redeemer) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'redeemer")) :: + Data.ProtoLens.FieldDescriptor Certificate + stakeRegistration__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_registration" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeRegistration")) :: + Data.ProtoLens.FieldDescriptor Certificate + stakeDeregistration__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_deregistration" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeDeregistration")) :: + Data.ProtoLens.FieldDescriptor Certificate + stakeDelegation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_delegation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeDelegationCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeDelegation")) :: + Data.ProtoLens.FieldDescriptor Certificate + poolRegistration__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_registration" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PoolRegistrationCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolRegistration")) :: + Data.ProtoLens.FieldDescriptor Certificate + poolRetirement__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_retirement" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PoolRetirementCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolRetirement")) :: + Data.ProtoLens.FieldDescriptor Certificate + genesisKeyDelegation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "genesis_key_delegation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GenesisKeyDelegationCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'genesisKeyDelegation")) :: + Data.ProtoLens.FieldDescriptor Certificate + mirCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "mir_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MirCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'mirCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + regCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reg_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RegCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'regCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + unregCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "unreg_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UnRegCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'unregCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + voteDelegCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vote_deleg_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor VoteDelegCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'voteDelegCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + stakeVoteDelegCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_vote_deleg_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeVoteDelegCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeVoteDelegCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + stakeRegDelegCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_reg_deleg_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeRegDelegCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeRegDelegCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + voteRegDelegCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vote_reg_deleg_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor VoteRegDelegCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'voteRegDelegCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + stakeVoteRegDelegCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_vote_reg_deleg_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeVoteRegDelegCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeVoteRegDelegCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + authCommitteeHotCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "auth_committee_hot_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AuthCommitteeHotCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'authCommitteeHotCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + resignCommitteeColdCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "resign_committee_cold_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ResignCommitteeColdCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'resignCommitteeColdCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + regDrepCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reg_drep_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RegDRepCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'regDrepCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + unregDrepCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "unreg_drep_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UnRegDRepCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'unregDrepCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + updateDrepCert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "update_drep_cert" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UpdateDRepCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'updateDrepCert")) :: + Data.ProtoLens.FieldDescriptor Certificate + in + Data.Map.fromList + [(Data.ProtoLens.Tag 100, redeemer__field_descriptor), + (Data.ProtoLens.Tag 1, stakeRegistration__field_descriptor), + (Data.ProtoLens.Tag 2, stakeDeregistration__field_descriptor), + (Data.ProtoLens.Tag 3, stakeDelegation__field_descriptor), + (Data.ProtoLens.Tag 4, poolRegistration__field_descriptor), + (Data.ProtoLens.Tag 5, poolRetirement__field_descriptor), + (Data.ProtoLens.Tag 6, genesisKeyDelegation__field_descriptor), + (Data.ProtoLens.Tag 7, mirCert__field_descriptor), + (Data.ProtoLens.Tag 8, regCert__field_descriptor), + (Data.ProtoLens.Tag 9, unregCert__field_descriptor), + (Data.ProtoLens.Tag 10, voteDelegCert__field_descriptor), + (Data.ProtoLens.Tag 11, stakeVoteDelegCert__field_descriptor), + (Data.ProtoLens.Tag 12, stakeRegDelegCert__field_descriptor), + (Data.ProtoLens.Tag 13, voteRegDelegCert__field_descriptor), + (Data.ProtoLens.Tag 14, stakeVoteRegDelegCert__field_descriptor), + (Data.ProtoLens.Tag 15, authCommitteeHotCert__field_descriptor), + (Data.ProtoLens.Tag 16, resignCommitteeColdCert__field_descriptor), + (Data.ProtoLens.Tag 17, regDrepCert__field_descriptor), + (Data.ProtoLens.Tag 18, unregDrepCert__field_descriptor), + (Data.ProtoLens.Tag 19, updateDrepCert__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Certificate'_unknownFields + (\ x__ y__ -> x__ {_Certificate'_unknownFields = y__}) + defMessage + = Certificate'_constructor + {_Certificate'redeemer = Prelude.Nothing, + _Certificate'certificate = Prelude.Nothing, + _Certificate'_unknownFields = []} + parseMessage + = let + loop :: + Certificate -> Data.ProtoLens.Encoding.Bytes.Parser Certificate + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 802 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "redeemer" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x) + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_registration" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeRegistration") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_deregistration" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeDeregistration") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_delegation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeDelegation") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_registration" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolRegistration") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_retirement" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolRetirement") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "genesis_key_delegation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"genesisKeyDelegation") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "mir_cert" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mirCert") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "reg_cert" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"regCert") y x) + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "unreg_cert" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"unregCert") y x) + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "vote_deleg_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"voteDelegCert") y x) + 90 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_vote_deleg_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeVoteDelegCert") y x) + 98 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_reg_deleg_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeRegDelegCert") y x) + 106 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "vote_reg_deleg_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"voteRegDelegCert") y x) + 114 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_vote_reg_deleg_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeVoteRegDelegCert") y x) + 122 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "auth_committee_hot_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"authCommitteeHotCert") y x) + 130 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "resign_committee_cold_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"resignCommitteeColdCert") y x) + 138 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "reg_drep_cert" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"regDrepCert") y x) + 146 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "unreg_drep_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"unregDrepCert") y x) + 154 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "update_drep_cert" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"updateDrepCert") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Certificate" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 802) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'certificate") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (Certificate'StakeRegistration v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'StakeDeregistration v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'StakeDelegation v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'PoolRegistration v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'PoolRetirement v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'GenesisKeyDelegation v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'MirCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'RegCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'UnregCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'VoteDelegCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'StakeVoteDelegCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 90) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'StakeRegDelegCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 98) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'VoteRegDelegCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 106) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'StakeVoteRegDelegCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 114) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'AuthCommitteeHotCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 122) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'ResignCommitteeColdCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 130) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'RegDrepCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 138) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'UnregDrepCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 146) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Certificate'UpdateDrepCert v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 154) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Certificate where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Certificate'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Certificate'redeemer x__) + (Control.DeepSeq.deepseq (_Certificate'certificate x__) ())) +instance Control.DeepSeq.NFData Certificate'Certificate where + rnf (Certificate'StakeRegistration x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'StakeDeregistration x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'StakeDelegation x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'PoolRegistration x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'PoolRetirement x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'GenesisKeyDelegation x__) + = Control.DeepSeq.rnf x__ + rnf (Certificate'MirCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'RegCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'UnregCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'VoteDelegCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'StakeVoteDelegCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'StakeRegDelegCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'VoteRegDelegCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'StakeVoteRegDelegCert x__) + = Control.DeepSeq.rnf x__ + rnf (Certificate'AuthCommitteeHotCert x__) + = Control.DeepSeq.rnf x__ + rnf (Certificate'ResignCommitteeColdCert x__) + = Control.DeepSeq.rnf x__ + rnf (Certificate'RegDrepCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'UnregDrepCert x__) = Control.DeepSeq.rnf x__ + rnf (Certificate'UpdateDrepCert x__) = Control.DeepSeq.rnf x__ +_Certificate'StakeRegistration :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential +_Certificate'StakeRegistration + = Data.ProtoLens.Prism.prism' + Certificate'StakeRegistration + (\ p__ + -> case p__ of + (Certificate'StakeRegistration p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'StakeDeregistration :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential +_Certificate'StakeDeregistration + = Data.ProtoLens.Prism.prism' + Certificate'StakeDeregistration + (\ p__ + -> case p__ of + (Certificate'StakeDeregistration p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'StakeDelegation :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeDelegationCert +_Certificate'StakeDelegation + = Data.ProtoLens.Prism.prism' + Certificate'StakeDelegation + (\ p__ + -> case p__ of + (Certificate'StakeDelegation p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'PoolRegistration :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRegistrationCert +_Certificate'PoolRegistration + = Data.ProtoLens.Prism.prism' + Certificate'PoolRegistration + (\ p__ + -> case p__ of + (Certificate'PoolRegistration p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'PoolRetirement :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRetirementCert +_Certificate'PoolRetirement + = Data.ProtoLens.Prism.prism' + Certificate'PoolRetirement + (\ p__ + -> case p__ of + (Certificate'PoolRetirement p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'GenesisKeyDelegation :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate GenesisKeyDelegationCert +_Certificate'GenesisKeyDelegation + = Data.ProtoLens.Prism.prism' + Certificate'GenesisKeyDelegation + (\ p__ + -> case p__ of + (Certificate'GenesisKeyDelegation p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'MirCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate MirCert +_Certificate'MirCert + = Data.ProtoLens.Prism.prism' + Certificate'MirCert + (\ p__ + -> case p__ of + (Certificate'MirCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'RegCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate RegCert +_Certificate'RegCert + = Data.ProtoLens.Prism.prism' + Certificate'RegCert + (\ p__ + -> case p__ of + (Certificate'RegCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'UnregCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate UnRegCert +_Certificate'UnregCert + = Data.ProtoLens.Prism.prism' + Certificate'UnregCert + (\ p__ + -> case p__ of + (Certificate'UnregCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'VoteDelegCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate VoteDelegCert +_Certificate'VoteDelegCert + = Data.ProtoLens.Prism.prism' + Certificate'VoteDelegCert + (\ p__ + -> case p__ of + (Certificate'VoteDelegCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'StakeVoteDelegCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeVoteDelegCert +_Certificate'StakeVoteDelegCert + = Data.ProtoLens.Prism.prism' + Certificate'StakeVoteDelegCert + (\ p__ + -> case p__ of + (Certificate'StakeVoteDelegCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'StakeRegDelegCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeRegDelegCert +_Certificate'StakeRegDelegCert + = Data.ProtoLens.Prism.prism' + Certificate'StakeRegDelegCert + (\ p__ + -> case p__ of + (Certificate'StakeRegDelegCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'VoteRegDelegCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate VoteRegDelegCert +_Certificate'VoteRegDelegCert + = Data.ProtoLens.Prism.prism' + Certificate'VoteRegDelegCert + (\ p__ + -> case p__ of + (Certificate'VoteRegDelegCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'StakeVoteRegDelegCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeVoteRegDelegCert +_Certificate'StakeVoteRegDelegCert + = Data.ProtoLens.Prism.prism' + Certificate'StakeVoteRegDelegCert + (\ p__ + -> case p__ of + (Certificate'StakeVoteRegDelegCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'AuthCommitteeHotCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate AuthCommitteeHotCert +_Certificate'AuthCommitteeHotCert + = Data.ProtoLens.Prism.prism' + Certificate'AuthCommitteeHotCert + (\ p__ + -> case p__ of + (Certificate'AuthCommitteeHotCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'ResignCommitteeColdCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate ResignCommitteeColdCert +_Certificate'ResignCommitteeColdCert + = Data.ProtoLens.Prism.prism' + Certificate'ResignCommitteeColdCert + (\ p__ + -> case p__ of + (Certificate'ResignCommitteeColdCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'RegDrepCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate RegDRepCert +_Certificate'RegDrepCert + = Data.ProtoLens.Prism.prism' + Certificate'RegDrepCert + (\ p__ + -> case p__ of + (Certificate'RegDrepCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'UnregDrepCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate UnRegDRepCert +_Certificate'UnregDrepCert + = Data.ProtoLens.Prism.prism' + Certificate'UnregDrepCert + (\ p__ + -> case p__ of + (Certificate'UnregDrepCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Certificate'UpdateDrepCert :: + Data.ProtoLens.Prism.Prism' Certificate'Certificate UpdateDRepCert +_Certificate'UpdateDrepCert + = Data.ProtoLens.Prism.prism' + Certificate'UpdateDrepCert + (\ p__ + -> case p__ of + (Certificate'UpdateDrepCert p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'certificateType' @:: Lens' CertificatePattern (Prelude.Maybe CertificatePattern'CertificateType)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeRegistration' @:: Lens' CertificatePattern (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeRegistration' @:: Lens' CertificatePattern StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDeregistration' @:: Lens' CertificatePattern (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDeregistration' @:: Lens' CertificatePattern StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeDelegation' @:: Lens' CertificatePattern (Prelude.Maybe StakeDelegationPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeDelegation' @:: Lens' CertificatePattern StakeDelegationPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRegistration' @:: Lens' CertificatePattern (Prelude.Maybe PoolRegistrationPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRegistration' @:: Lens' CertificatePattern PoolRegistrationPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolRetirement' @:: Lens' CertificatePattern (Prelude.Maybe PoolRetirementPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRetirement' @:: Lens' CertificatePattern PoolRetirementPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anyStakeCredential' @:: Lens' CertificatePattern (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyStakeCredential' @:: Lens' CertificatePattern Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anyPoolKeyhash' @:: Lens' CertificatePattern (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyPoolKeyhash' @:: Lens' CertificatePattern Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anyDrep' @:: Lens' CertificatePattern (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyDrep' @:: Lens' CertificatePattern Data.ByteString.ByteString@ -} +data CertificatePattern + = CertificatePattern'_constructor {_CertificatePattern'certificateType :: !(Prelude.Maybe CertificatePattern'CertificateType), + _CertificatePattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CertificatePattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data CertificatePattern'CertificateType + = CertificatePattern'StakeRegistration !StakeCredential | + CertificatePattern'StakeDeregistration !StakeCredential | + CertificatePattern'StakeDelegation !StakeDelegationPattern | + CertificatePattern'PoolRegistration !PoolRegistrationPattern | + CertificatePattern'PoolRetirement !PoolRetirementPattern | + CertificatePattern'AnyStakeCredential !Data.ByteString.ByteString | + CertificatePattern'AnyPoolKeyhash !Data.ByteString.ByteString | + CertificatePattern'AnyDrep !Data.ByteString.ByteString + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'certificateType" (Prelude.Maybe CertificatePattern'CertificateType) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'stakeRegistration" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'StakeRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'StakeRegistration y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "stakeRegistration" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'StakeRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'StakeRegistration y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'stakeDeregistration" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'StakeDeregistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap CertificatePattern'StakeDeregistration y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "stakeDeregistration" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'StakeDeregistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap CertificatePattern'StakeDeregistration y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'stakeDelegation" (Prelude.Maybe StakeDelegationPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'StakeDelegation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'StakeDelegation y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "stakeDelegation" StakeDelegationPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'StakeDelegation x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'StakeDelegation y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'poolRegistration" (Prelude.Maybe PoolRegistrationPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'PoolRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'PoolRegistration y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "poolRegistration" PoolRegistrationPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'PoolRegistration x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'PoolRegistration y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'poolRetirement" (Prelude.Maybe PoolRetirementPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'PoolRetirement x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'PoolRetirement y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "poolRetirement" PoolRetirementPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'PoolRetirement x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'PoolRetirement y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'anyStakeCredential" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'AnyStakeCredential x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap CertificatePattern'AnyStakeCredential y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "anyStakeCredential" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'AnyStakeCredential x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap CertificatePattern'AnyStakeCredential y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'anyPoolKeyhash" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'AnyPoolKeyhash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'AnyPoolKeyhash y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "anyPoolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'AnyPoolKeyhash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'AnyPoolKeyhash y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField CertificatePattern "maybe'anyDrep" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'AnyDrep x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'AnyDrep y__)) +instance Data.ProtoLens.Field.HasField CertificatePattern "anyDrep" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CertificatePattern'certificateType + (\ x__ y__ -> x__ {_CertificatePattern'certificateType = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (CertificatePattern'AnyDrep x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap CertificatePattern'AnyDrep y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message CertificatePattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.CertificatePattern" + packedMessageDescriptor _ + = "\n\ + \\DC2CertificatePattern\DC2X\n\ + \\DC2stake_registration\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2\\\n\ + \\DC4stake_deregistration\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2[\n\ + \\DLEstake_delegation\CAN\ETX \SOH(\v2..utxorpc.v1beta.cardano.StakeDelegationPatternH\NULR\SIstakeDelegation\DC2^\n\ + \\DC1pool_registration\CAN\EOT \SOH(\v2/.utxorpc.v1beta.cardano.PoolRegistrationPatternH\NULR\DLEpoolRegistration\DC2X\n\ + \\SIpool_retirement\CAN\ENQ \SOH(\v2-.utxorpc.v1beta.cardano.PoolRetirementPatternH\NULR\SOpoolRetirement\DC22\n\ + \\DC4any_stake_credential\CAN\ACK \SOH(\fH\NULR\DC2anyStakeCredential\DC2*\n\ + \\DLEany_pool_keyhash\CAN\a \SOH(\fH\NULR\SOanyPoolKeyhash\DC2\ESC\n\ + \\bany_drep\CAN\b \SOH(\fH\NULR\aanyDrepB\DC2\n\ + \\DLEcertificate_type" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeRegistration__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_registration" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeRegistration")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + stakeDeregistration__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_deregistration" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeDeregistration")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + stakeDelegation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_delegation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeDelegationPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeDelegation")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + poolRegistration__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_registration" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PoolRegistrationPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolRegistration")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + poolRetirement__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_retirement" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PoolRetirementPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolRetirement")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + anyStakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any_stake_credential" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anyStakeCredential")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + anyPoolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any_pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anyPoolKeyhash")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + anyDrep__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any_drep" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anyDrep")) :: + Data.ProtoLens.FieldDescriptor CertificatePattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeRegistration__field_descriptor), + (Data.ProtoLens.Tag 2, stakeDeregistration__field_descriptor), + (Data.ProtoLens.Tag 3, stakeDelegation__field_descriptor), + (Data.ProtoLens.Tag 4, poolRegistration__field_descriptor), + (Data.ProtoLens.Tag 5, poolRetirement__field_descriptor), + (Data.ProtoLens.Tag 6, anyStakeCredential__field_descriptor), + (Data.ProtoLens.Tag 7, anyPoolKeyhash__field_descriptor), + (Data.ProtoLens.Tag 8, anyDrep__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CertificatePattern'_unknownFields + (\ x__ y__ -> x__ {_CertificatePattern'_unknownFields = y__}) + defMessage + = CertificatePattern'_constructor + {_CertificatePattern'certificateType = Prelude.Nothing, + _CertificatePattern'_unknownFields = []} + parseMessage + = let + loop :: + CertificatePattern + -> Data.ProtoLens.Encoding.Bytes.Parser CertificatePattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_registration" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeRegistration") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_deregistration" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeDeregistration") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_delegation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeDelegation") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_registration" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolRegistration") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_retirement" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolRetirement") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "any_stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"anyStakeCredential") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "any_pool_keyhash" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"anyPoolKeyhash") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "any_drep" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anyDrep") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CertificatePattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'certificateType") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (CertificatePattern'StakeRegistration v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (CertificatePattern'StakeDeregistration v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (CertificatePattern'StakeDelegation v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (CertificatePattern'PoolRegistration v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (CertificatePattern'PoolRetirement v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (CertificatePattern'AnyStakeCredential v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (CertificatePattern'AnyPoolKeyhash v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (CertificatePattern'AnyDrep v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CertificatePattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CertificatePattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CertificatePattern'certificateType x__) ()) +instance Control.DeepSeq.NFData CertificatePattern'CertificateType where + rnf (CertificatePattern'StakeRegistration x__) + = Control.DeepSeq.rnf x__ + rnf (CertificatePattern'StakeDeregistration x__) + = Control.DeepSeq.rnf x__ + rnf (CertificatePattern'StakeDelegation x__) + = Control.DeepSeq.rnf x__ + rnf (CertificatePattern'PoolRegistration x__) + = Control.DeepSeq.rnf x__ + rnf (CertificatePattern'PoolRetirement x__) + = Control.DeepSeq.rnf x__ + rnf (CertificatePattern'AnyStakeCredential x__) + = Control.DeepSeq.rnf x__ + rnf (CertificatePattern'AnyPoolKeyhash x__) + = Control.DeepSeq.rnf x__ + rnf (CertificatePattern'AnyDrep x__) = Control.DeepSeq.rnf x__ +_CertificatePattern'StakeRegistration :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType StakeCredential +_CertificatePattern'StakeRegistration + = Data.ProtoLens.Prism.prism' + CertificatePattern'StakeRegistration + (\ p__ + -> case p__ of + (CertificatePattern'StakeRegistration p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CertificatePattern'StakeDeregistration :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType StakeCredential +_CertificatePattern'StakeDeregistration + = Data.ProtoLens.Prism.prism' + CertificatePattern'StakeDeregistration + (\ p__ + -> case p__ of + (CertificatePattern'StakeDeregistration p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CertificatePattern'StakeDelegation :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType StakeDelegationPattern +_CertificatePattern'StakeDelegation + = Data.ProtoLens.Prism.prism' + CertificatePattern'StakeDelegation + (\ p__ + -> case p__ of + (CertificatePattern'StakeDelegation p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CertificatePattern'PoolRegistration :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType PoolRegistrationPattern +_CertificatePattern'PoolRegistration + = Data.ProtoLens.Prism.prism' + CertificatePattern'PoolRegistration + (\ p__ + -> case p__ of + (CertificatePattern'PoolRegistration p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CertificatePattern'PoolRetirement :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType PoolRetirementPattern +_CertificatePattern'PoolRetirement + = Data.ProtoLens.Prism.prism' + CertificatePattern'PoolRetirement + (\ p__ + -> case p__ of + (CertificatePattern'PoolRetirement p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CertificatePattern'AnyStakeCredential :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType Data.ByteString.ByteString +_CertificatePattern'AnyStakeCredential + = Data.ProtoLens.Prism.prism' + CertificatePattern'AnyStakeCredential + (\ p__ + -> case p__ of + (CertificatePattern'AnyStakeCredential p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CertificatePattern'AnyPoolKeyhash :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType Data.ByteString.ByteString +_CertificatePattern'AnyPoolKeyhash + = Data.ProtoLens.Prism.prism' + CertificatePattern'AnyPoolKeyhash + (\ p__ + -> case p__ of + (CertificatePattern'AnyPoolKeyhash p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_CertificatePattern'AnyDrep :: + Data.ProtoLens.Prism.Prism' CertificatePattern'CertificateType Data.ByteString.ByteString +_CertificatePattern'AnyDrep + = Data.ProtoLens.Prism.prism' + CertificatePattern'AnyDrep + (\ p__ + -> case p__ of + (CertificatePattern'AnyDrep p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.collateral' @:: Lens' Collateral [TxInput]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'collateral' @:: Lens' Collateral (Data.Vector.Vector TxInput)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.collateralReturn' @:: Lens' Collateral TxOutput@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'collateralReturn' @:: Lens' Collateral (Prelude.Maybe TxOutput)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.totalCollateral' @:: Lens' Collateral BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'totalCollateral' @:: Lens' Collateral (Prelude.Maybe BigInt)@ -} +data Collateral + = Collateral'_constructor {_Collateral'collateral :: !(Data.Vector.Vector TxInput), + _Collateral'collateralReturn :: !(Prelude.Maybe TxOutput), + _Collateral'totalCollateral :: !(Prelude.Maybe BigInt), + _Collateral'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Collateral where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Collateral "collateral" [TxInput] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Collateral'collateral + (\ x__ y__ -> x__ {_Collateral'collateral = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Collateral "vec'collateral" (Data.Vector.Vector TxInput) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Collateral'collateral + (\ x__ y__ -> x__ {_Collateral'collateral = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Collateral "collateralReturn" TxOutput where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Collateral'collateralReturn + (\ x__ y__ -> x__ {_Collateral'collateralReturn = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Collateral "maybe'collateralReturn" (Prelude.Maybe TxOutput) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Collateral'collateralReturn + (\ x__ y__ -> x__ {_Collateral'collateralReturn = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Collateral "totalCollateral" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Collateral'totalCollateral + (\ x__ y__ -> x__ {_Collateral'totalCollateral = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Collateral "maybe'totalCollateral" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Collateral'totalCollateral + (\ x__ y__ -> x__ {_Collateral'totalCollateral = y__})) + Prelude.id +instance Data.ProtoLens.Message Collateral where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Collateral" + packedMessageDescriptor _ + = "\n\ + \\n\ + \Collateral\DC2?\n\ + \\n\ + \collateral\CAN\SOH \ETX(\v2\US.utxorpc.v1beta.cardano.TxInputR\n\ + \collateral\DC2M\n\ + \\DC1collateral_return\CAN\STX \SOH(\v2 .utxorpc.v1beta.cardano.TxOutputR\DLEcollateralReturn\DC2I\n\ + \\DLEtotal_collateral\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\SItotalCollateral" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + collateral__field_descriptor + = Data.ProtoLens.FieldDescriptor + "collateral" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxInput) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"collateral")) :: + Data.ProtoLens.FieldDescriptor Collateral + collateralReturn__field_descriptor + = Data.ProtoLens.FieldDescriptor + "collateral_return" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxOutput) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'collateralReturn")) :: + Data.ProtoLens.FieldDescriptor Collateral + totalCollateral__field_descriptor + = Data.ProtoLens.FieldDescriptor + "total_collateral" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'totalCollateral")) :: + Data.ProtoLens.FieldDescriptor Collateral + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, collateral__field_descriptor), + (Data.ProtoLens.Tag 2, collateralReturn__field_descriptor), + (Data.ProtoLens.Tag 3, totalCollateral__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Collateral'_unknownFields + (\ x__ y__ -> x__ {_Collateral'_unknownFields = y__}) + defMessage + = Collateral'_constructor + {_Collateral'collateral = Data.Vector.Generic.empty, + _Collateral'collateralReturn = Prelude.Nothing, + _Collateral'totalCollateral = Prelude.Nothing, + _Collateral'_unknownFields = []} + parseMessage + = let + loop :: + Collateral + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput + -> Data.ProtoLens.Encoding.Bytes.Parser Collateral + loop x mutable'collateral + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'collateral <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'collateral) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'collateral") frozen'collateral + x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "collateral" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'collateral y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "collateral_return" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"collateralReturn") y x) + mutable'collateral + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "total_collateral" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"totalCollateral") y x) + mutable'collateral + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'collateral + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'collateral <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'collateral) + "Collateral" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'collateral") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'collateralReturn") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'totalCollateral") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData Collateral where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Collateral'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Collateral'collateral x__) + (Control.DeepSeq.deepseq + (_Collateral'collateralReturn x__) + (Control.DeepSeq.deepseq (_Collateral'totalCollateral x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.members' @:: Lens' Committee (Data.Map.Map Data.Text.Text Data.Word.Word64)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.threshold' @:: Lens' Committee RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'threshold' @:: Lens' Committee (Prelude.Maybe RationalNumber)@ -} +data Committee + = Committee'_constructor {_Committee'members :: !(Data.Map.Map Data.Text.Text Data.Word.Word64), + _Committee'threshold :: !(Prelude.Maybe RationalNumber), + _Committee'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Committee where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Committee "members" (Data.Map.Map Data.Text.Text Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Committee'members (\ x__ y__ -> x__ {_Committee'members = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Committee "threshold" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Committee'threshold + (\ x__ y__ -> x__ {_Committee'threshold = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Committee "maybe'threshold" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Committee'threshold + (\ x__ y__ -> x__ {_Committee'threshold = y__})) + Prelude.id +instance Data.ProtoLens.Message Committee where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Committee" + packedMessageDescriptor _ + = "\n\ + \\tCommittee\DC2H\n\ + \\amembers\CAN\SOH \ETX(\v2..utxorpc.v1beta.cardano.Committee.MembersEntryR\amembers\DC2D\n\ + \\tthreshold\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\tthreshold\SUB:\n\ + \\fMembersEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + members__field_descriptor + = Data.ProtoLens.FieldDescriptor + "members" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Committee'MembersEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"members")) :: + Data.ProtoLens.FieldDescriptor Committee + threshold__field_descriptor + = Data.ProtoLens.FieldDescriptor + "threshold" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'threshold")) :: + Data.ProtoLens.FieldDescriptor Committee + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, members__field_descriptor), + (Data.ProtoLens.Tag 2, threshold__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Committee'_unknownFields + (\ x__ y__ -> x__ {_Committee'_unknownFields = y__}) + defMessage + = Committee'_constructor + {_Committee'members = Data.Map.empty, + _Committee'threshold = Prelude.Nothing, + _Committee'_unknownFields = []} + parseMessage + = let + loop :: Committee -> Data.ProtoLens.Encoding.Bytes.Parser Committee + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !(entry :: Committee'MembersEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "members" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"members") + (\ !t -> Data.Map.insert key value t) x)) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "threshold" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"threshold") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Committee" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: Committee'MembersEntry))))) + (Data.Map.toList + (Lens.Family2.view (Data.ProtoLens.Field.field @"members") _x)))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'threshold") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Committee where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Committee'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Committee'members x__) + (Control.DeepSeq.deepseq (_Committee'threshold x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Committee'MembersEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Committee'MembersEntry Data.Word.Word64@ -} +data Committee'MembersEntry + = Committee'MembersEntry'_constructor {_Committee'MembersEntry'key :: !Data.Text.Text, + _Committee'MembersEntry'value :: !Data.Word.Word64, + _Committee'MembersEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Committee'MembersEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Committee'MembersEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Committee'MembersEntry'key + (\ x__ y__ -> x__ {_Committee'MembersEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Committee'MembersEntry "value" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Committee'MembersEntry'value + (\ x__ y__ -> x__ {_Committee'MembersEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Committee'MembersEntry where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.Committee.MembersEntry" + packedMessageDescriptor _ + = "\n\ + \\fMembersEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Committee'MembersEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor Committee'MembersEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Committee'MembersEntry'_unknownFields + (\ x__ y__ -> x__ {_Committee'MembersEntry'_unknownFields = y__}) + defMessage + = Committee'MembersEntry'_constructor + {_Committee'MembersEntry'key = Data.ProtoLens.fieldDefault, + _Committee'MembersEntry'value = Data.ProtoLens.fieldDefault, + _Committee'MembersEntry'_unknownFields = []} + parseMessage + = let + loop :: + Committee'MembersEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Committee'MembersEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MembersEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Committee'MembersEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Committee'MembersEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Committee'MembersEntry'key x__) + (Control.DeepSeq.deepseq (_Committee'MembersEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anchor' @:: Lens' Constitution Anchor@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anchor' @:: Lens' Constitution (Prelude.Maybe Anchor)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' Constitution Data.ByteString.ByteString@ -} +data Constitution + = Constitution'_constructor {_Constitution'anchor :: !(Prelude.Maybe Anchor), + _Constitution'hash :: !Data.ByteString.ByteString, + _Constitution'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Constitution where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Constitution "anchor" Anchor where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Constitution'anchor + (\ x__ y__ -> x__ {_Constitution'anchor = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Constitution "maybe'anchor" (Prelude.Maybe Anchor) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Constitution'anchor + (\ x__ y__ -> x__ {_Constitution'anchor = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Constitution "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Constitution'hash (\ x__ y__ -> x__ {_Constitution'hash = y__})) + Prelude.id +instance Data.ProtoLens.Message Constitution where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.Constitution" + packedMessageDescriptor _ + = "\n\ + \\fConstitution\DC26\n\ + \\ACKanchor\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + anchor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "anchor" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Anchor) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anchor")) :: + Data.ProtoLens.FieldDescriptor Constitution + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor Constitution + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, anchor__field_descriptor), + (Data.ProtoLens.Tag 2, hash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Constitution'_unknownFields + (\ x__ y__ -> x__ {_Constitution'_unknownFields = y__}) + defMessage + = Constitution'_constructor + {_Constitution'anchor = Prelude.Nothing, + _Constitution'hash = Data.ProtoLens.fieldDefault, + _Constitution'_unknownFields = []} + parseMessage + = let + loop :: + Constitution -> Data.ProtoLens.Encoding.Bytes.Parser Constitution + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "anchor" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anchor") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Constitution" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'anchor") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Constitution where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Constitution'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Constitution'anchor x__) + (Control.DeepSeq.deepseq (_Constitution'hash x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.tag' @:: Lens' Constr Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anyConstructor' @:: Lens' Constr Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.fields' @:: Lens' Constr [PlutusData]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'fields' @:: Lens' Constr (Data.Vector.Vector PlutusData)@ -} +data Constr + = Constr'_constructor {_Constr'tag :: !Data.Word.Word32, + _Constr'anyConstructor :: !Data.Word.Word64, + _Constr'fields :: !(Data.Vector.Vector PlutusData), + _Constr'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Constr where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Constr "tag" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Constr'tag (\ x__ y__ -> x__ {_Constr'tag = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Constr "anyConstructor" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Constr'anyConstructor + (\ x__ y__ -> x__ {_Constr'anyConstructor = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Constr "fields" [PlutusData] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Constr "vec'fields" (Data.Vector.Vector PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__})) + Prelude.id +instance Data.ProtoLens.Message Constr where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Constr" + packedMessageDescriptor _ + = "\n\ + \\ACKConstr\DC2\DLE\n\ + \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\ + \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2:\n\ + \\ACKfields\CAN\ETX \ETX(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ACKfields" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + tag__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tag" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"tag")) :: + Data.ProtoLens.FieldDescriptor Constr + anyConstructor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any_constructor" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"anyConstructor")) :: + Data.ProtoLens.FieldDescriptor Constr + fields__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fields" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusData) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"fields")) :: + Data.ProtoLens.FieldDescriptor Constr + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, tag__field_descriptor), + (Data.ProtoLens.Tag 2, anyConstructor__field_descriptor), + (Data.ProtoLens.Tag 3, fields__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Constr'_unknownFields + (\ x__ y__ -> x__ {_Constr'_unknownFields = y__}) + defMessage + = Constr'_constructor + {_Constr'tag = Data.ProtoLens.fieldDefault, + _Constr'anyConstructor = Data.ProtoLens.fieldDefault, + _Constr'fields = Data.Vector.Generic.empty, + _Constr'_unknownFields = []} + parseMessage + = let + loop :: + Constr + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData + -> Data.ProtoLens.Encoding.Bytes.Parser Constr + loop x mutable'fields + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'fields) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'fields") frozen'fields x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "tag" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x) + mutable'fields + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "any_constructor" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"anyConstructor") y x) + mutable'fields + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "fields" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'fields y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'fields + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'fields) + "Constr" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"tag") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"anyConstructor") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'fields") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData Constr where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Constr'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Constr'tag x__) + (Control.DeepSeq.deepseq + (_Constr'anyConstructor x__) + (Control.DeepSeq.deepseq (_Constr'fields x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.values' @:: Lens' CostModel [Data.Int.Int64]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'values' @:: Lens' CostModel (Data.Vector.Unboxed.Vector Data.Int.Int64)@ -} +data CostModel + = CostModel'_constructor {_CostModel'values :: !(Data.Vector.Unboxed.Vector Data.Int.Int64), + _CostModel'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CostModel where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CostModel "values" [Data.Int.Int64] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModel'values (\ x__ y__ -> x__ {_CostModel'values = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField CostModel "vec'values" (Data.Vector.Unboxed.Vector Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModel'values (\ x__ y__ -> x__ {_CostModel'values = y__})) + Prelude.id +instance Data.ProtoLens.Message CostModel where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.CostModel" + packedMessageDescriptor _ + = "\n\ + \\tCostModel\DC2\SYN\n\ + \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + values__field_descriptor + = Data.ProtoLens.FieldDescriptor + "values" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"values")) :: + Data.ProtoLens.FieldDescriptor CostModel + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, values__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CostModel'_unknownFields + (\ x__ y__ -> x__ {_CostModel'_unknownFields = y__}) + defMessage + = CostModel'_constructor + {_CostModel'values = Data.Vector.Generic.empty, + _CostModel'_unknownFields = []} + 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 x mutable'values + = do end <- 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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'values") frozen'values x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "values" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'values y) + loop x v + 10 + -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + ((let + ploop qs + = do packedEnd <- 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 + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'values + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'values) + "CostModel" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'values") _x + in + if Data.Vector.Generic.null p then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Data.ProtoLens.Encoding.Bytes.runBuilder + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + p)))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CostModel where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CostModel'_unknownFields x__) + (Control.DeepSeq.deepseq (_CostModel'values x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModelMap CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModelMap CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV3' @:: Lens' CostModelMap CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV4' @:: Lens' CostModelMap CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' CostModelMap (Prelude.Maybe CostModel)@ -} +data CostModelMap + = CostModelMap'_constructor {_CostModelMap'plutusV1 :: !(Prelude.Maybe CostModel), + _CostModelMap'plutusV2 :: !(Prelude.Maybe CostModel), + _CostModelMap'plutusV3 :: !(Prelude.Maybe CostModel), + _CostModelMap'plutusV4 :: !(Prelude.Maybe CostModel), + _CostModelMap'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CostModelMap where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CostModelMap "plutusV1" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV1 + (\ x__ y__ -> x__ {_CostModelMap'plutusV1 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV1" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV1 + (\ x__ y__ -> x__ {_CostModelMap'plutusV1 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CostModelMap "plutusV2" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV2 + (\ x__ y__ -> x__ {_CostModelMap'plutusV2 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV2" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV2 + (\ x__ y__ -> x__ {_CostModelMap'plutusV2 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CostModelMap "plutusV3" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV3 + (\ x__ y__ -> x__ {_CostModelMap'plutusV3 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV3" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV3 + (\ x__ y__ -> x__ {_CostModelMap'plutusV3 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CostModelMap "plutusV4" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV4 + (\ x__ y__ -> x__ {_CostModelMap'plutusV4 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModelMap "maybe'plutusV4" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModelMap'plutusV4 + (\ x__ y__ -> x__ {_CostModelMap'plutusV4 = y__})) + Prelude.id +instance Data.ProtoLens.Message CostModelMap where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.CostModelMap" + packedMessageDescriptor _ + = "\n\ + \\fCostModelMap\DC2>\n\ + \\tplutus_v1\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV1\DC2>\n\ + \\tplutus_v2\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV2\DC2>\n\ + \\tplutus_v3\CAN\ETX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV3\DC2>\n\ + \\tplutus_v4\CAN\EOT \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV4" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + plutusV1__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v1" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV1")) :: + Data.ProtoLens.FieldDescriptor CostModelMap + plutusV2__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v2" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV2")) :: + Data.ProtoLens.FieldDescriptor CostModelMap + plutusV3__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v3" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV3")) :: + Data.ProtoLens.FieldDescriptor CostModelMap + plutusV4__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v4" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV4")) :: + Data.ProtoLens.FieldDescriptor CostModelMap + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, plutusV1__field_descriptor), + (Data.ProtoLens.Tag 2, plutusV2__field_descriptor), + (Data.ProtoLens.Tag 3, plutusV3__field_descriptor), + (Data.ProtoLens.Tag 4, plutusV4__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CostModelMap'_unknownFields + (\ x__ y__ -> x__ {_CostModelMap'_unknownFields = y__}) + defMessage + = CostModelMap'_constructor + {_CostModelMap'plutusV1 = Prelude.Nothing, + _CostModelMap'plutusV2 = Prelude.Nothing, + _CostModelMap'plutusV3 = Prelude.Nothing, + _CostModelMap'plutusV4 = Prelude.Nothing, + _CostModelMap'_unknownFields = []} + parseMessage + = let + loop :: + CostModelMap -> Data.ProtoLens.Encoding.Bytes.Parser CostModelMap + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v1" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v2" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v3" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v4" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CostModelMap" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV1") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV2") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV3") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV4") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData CostModelMap where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CostModelMap'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CostModelMap'plutusV1 x__) + (Control.DeepSeq.deepseq + (_CostModelMap'plutusV2 x__) + (Control.DeepSeq.deepseq + (_CostModelMap'plutusV3 x__) + (Control.DeepSeq.deepseq (_CostModelMap'plutusV4 x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModels CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModels (Prelude.Maybe CostModel)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModels CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' CostModels (Prelude.Maybe CostModel)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV3' @:: Lens' CostModels CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' CostModels (Prelude.Maybe CostModel)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV4' @:: Lens' CostModels CostModel@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' CostModels (Prelude.Maybe CostModel)@ -} +data CostModels + = CostModels'_constructor {_CostModels'plutusV1 :: !(Prelude.Maybe CostModel), + _CostModels'plutusV2 :: !(Prelude.Maybe CostModel), + _CostModels'plutusV3 :: !(Prelude.Maybe CostModel), + _CostModels'plutusV4 :: !(Prelude.Maybe CostModel), + _CostModels'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CostModels where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CostModels "plutusV1" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV1 + (\ x__ y__ -> x__ {_CostModels'plutusV1 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV1" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV1 + (\ x__ y__ -> x__ {_CostModels'plutusV1 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CostModels "plutusV2" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV2 + (\ x__ y__ -> x__ {_CostModels'plutusV2 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV2" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV2 + (\ x__ y__ -> x__ {_CostModels'plutusV2 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CostModels "plutusV3" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV3 + (\ x__ y__ -> x__ {_CostModels'plutusV3 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV3" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV3 + (\ x__ y__ -> x__ {_CostModels'plutusV3 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField CostModels "plutusV4" CostModel where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV4 + (\ x__ y__ -> x__ {_CostModels'plutusV4 = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField CostModels "maybe'plutusV4" (Prelude.Maybe CostModel) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CostModels'plutusV4 + (\ x__ y__ -> x__ {_CostModels'plutusV4 = y__})) + Prelude.id +instance Data.ProtoLens.Message CostModels where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.CostModels" + packedMessageDescriptor _ + = "\n\ + \\n\ + \CostModels\DC2>\n\ + \\tplutus_v1\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV1\DC2>\n\ + \\tplutus_v2\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV2\DC2>\n\ + \\tplutus_v3\CAN\ETX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV3\DC2>\n\ + \\tplutus_v4\CAN\EOT \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV4" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + plutusV1__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v1" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV1")) :: + Data.ProtoLens.FieldDescriptor CostModels + plutusV2__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v2" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV2")) :: + Data.ProtoLens.FieldDescriptor CostModels + plutusV3__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v3" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV3")) :: + Data.ProtoLens.FieldDescriptor CostModels + plutusV4__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v4" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModel) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV4")) :: + Data.ProtoLens.FieldDescriptor CostModels + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, plutusV1__field_descriptor), + (Data.ProtoLens.Tag 2, plutusV2__field_descriptor), + (Data.ProtoLens.Tag 3, plutusV3__field_descriptor), + (Data.ProtoLens.Tag 4, plutusV4__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CostModels'_unknownFields + (\ x__ y__ -> x__ {_CostModels'_unknownFields = y__}) + defMessage + = CostModels'_constructor + {_CostModels'plutusV1 = Prelude.Nothing, + _CostModels'plutusV2 = Prelude.Nothing, + _CostModels'plutusV3 = Prelude.Nothing, + _CostModels'plutusV4 = Prelude.Nothing, + _CostModels'_unknownFields = []} + parseMessage + = let + loop :: + CostModels -> Data.ProtoLens.Encoding.Bytes.Parser CostModels + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v1" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v2" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v3" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "plutus_v4" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "CostModels" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV1") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV2") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV3") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'plutusV4") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData CostModels where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CostModels'_unknownFields x__) + (Control.DeepSeq.deepseq + (_CostModels'plutusV1 x__) + (Control.DeepSeq.deepseq + (_CostModels'plutusV2 x__) + (Control.DeepSeq.deepseq + (_CostModels'plutusV3 x__) + (Control.DeepSeq.deepseq (_CostModels'plutusV4 x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drep' @:: Lens' DRep (Prelude.Maybe DRep'Drep)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'addrKeyHash' @:: Lens' DRep (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.addrKeyHash' @:: Lens' DRep Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'scriptHash' @:: Lens' DRep (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptHash' @:: Lens' DRep Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'abstain' @:: Lens' DRep (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.abstain' @:: Lens' DRep Prelude.Bool@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'noConfidence' @:: Lens' DRep (Prelude.Maybe Prelude.Bool)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.noConfidence' @:: Lens' DRep Prelude.Bool@ -} +data DRep + = DRep'_constructor {_DRep'drep :: !(Prelude.Maybe DRep'Drep), + _DRep'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DRep where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data DRep'Drep + = DRep'AddrKeyHash !Data.ByteString.ByteString | + DRep'ScriptHash !Data.ByteString.ByteString | + DRep'Abstain !Prelude.Bool | + DRep'NoConfidence !Prelude.Bool + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField DRep "maybe'drep" (Prelude.Maybe DRep'Drep) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRep "maybe'addrKeyHash" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'AddrKeyHash x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'AddrKeyHash y__)) +instance Data.ProtoLens.Field.HasField DRep "addrKeyHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'AddrKeyHash x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'AddrKeyHash y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField DRep "maybe'scriptHash" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'ScriptHash x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'ScriptHash y__)) +instance Data.ProtoLens.Field.HasField DRep "scriptHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'ScriptHash x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'ScriptHash y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField DRep "maybe'abstain" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'Abstain x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'Abstain y__)) +instance Data.ProtoLens.Field.HasField DRep "abstain" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'Abstain x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'Abstain y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField DRep "maybe'noConfidence" (Prelude.Maybe Prelude.Bool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'NoConfidence x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'NoConfidence y__)) +instance Data.ProtoLens.Field.HasField DRep "noConfidence" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRep'drep (\ x__ y__ -> x__ {_DRep'drep = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (DRep'NoConfidence x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap DRep'NoConfidence y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message DRep where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.DRep" + packedMessageDescriptor _ + = "\n\ + \\EOTDRep\DC2$\n\ + \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\ + \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\ + \scriptHash\DC2\SUB\n\ + \\aabstain\CAN\ETX \SOH(\bH\NULR\aabstain\DC2%\n\ + \\rno_confidence\CAN\EOT \SOH(\bH\NULR\fnoConfidenceB\ACK\n\ + \\EOTdrep" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + addrKeyHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "addr_key_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'addrKeyHash")) :: + Data.ProtoLens.FieldDescriptor DRep + scriptHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'scriptHash")) :: + Data.ProtoLens.FieldDescriptor DRep + abstain__field_descriptor + = Data.ProtoLens.FieldDescriptor + "abstain" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'abstain")) :: + Data.ProtoLens.FieldDescriptor DRep + noConfidence__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_confidence" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noConfidence")) :: + Data.ProtoLens.FieldDescriptor DRep + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, addrKeyHash__field_descriptor), + (Data.ProtoLens.Tag 2, scriptHash__field_descriptor), + (Data.ProtoLens.Tag 3, abstain__field_descriptor), + (Data.ProtoLens.Tag 4, noConfidence__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DRep'_unknownFields + (\ x__ y__ -> x__ {_DRep'_unknownFields = y__}) + defMessage + = DRep'_constructor + {_DRep'drep = Prelude.Nothing, _DRep'_unknownFields = []} + parseMessage + = let + loop :: DRep -> Data.ProtoLens.Encoding.Bytes.Parser DRep + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "addr_key_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"addrKeyHash") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "script_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptHash") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "abstain" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"abstain") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "no_confidence" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"noConfidence") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DRep" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'drep") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (DRep'AddrKeyHash v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (DRep'ScriptHash v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (DRep'Abstain v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0) + v) + (Prelude.Just (DRep'NoConfidence v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0) + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData DRep where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DRep'_unknownFields x__) + (Control.DeepSeq.deepseq (_DRep'drep x__) ()) +instance Control.DeepSeq.NFData DRep'Drep where + rnf (DRep'AddrKeyHash x__) = Control.DeepSeq.rnf x__ + rnf (DRep'ScriptHash x__) = Control.DeepSeq.rnf x__ + rnf (DRep'Abstain x__) = Control.DeepSeq.rnf x__ + rnf (DRep'NoConfidence x__) = Control.DeepSeq.rnf x__ +_DRep'AddrKeyHash :: + Data.ProtoLens.Prism.Prism' DRep'Drep Data.ByteString.ByteString +_DRep'AddrKeyHash + = Data.ProtoLens.Prism.prism' + DRep'AddrKeyHash + (\ p__ + -> case p__ of + (DRep'AddrKeyHash p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_DRep'ScriptHash :: + Data.ProtoLens.Prism.Prism' DRep'Drep Data.ByteString.ByteString +_DRep'ScriptHash + = Data.ProtoLens.Prism.prism' + DRep'ScriptHash + (\ p__ + -> case p__ of + (DRep'ScriptHash p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_DRep'Abstain :: Data.ProtoLens.Prism.Prism' DRep'Drep Prelude.Bool +_DRep'Abstain + = Data.ProtoLens.Prism.prism' + DRep'Abstain + (\ p__ + -> case p__ of + (DRep'Abstain p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_DRep'NoConfidence :: + Data.ProtoLens.Prism.Prism' DRep'Drep Prelude.Bool +_DRep'NoConfidence + = Data.ProtoLens.Prism.prism' + DRep'NoConfidence + (\ p__ + -> case p__ of + (DRep'NoConfidence p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.motionNoConfidence' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'motionNoConfidence' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeNormal' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeNormal' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeNoConfidence' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeNoConfidence' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateToConstitution' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'updateToConstitution' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hardForkInitiation' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'hardForkInitiation' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppNetworkGroup' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppNetworkGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppEconomicGroup' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppEconomicGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppTechnicalGroup' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppTechnicalGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppGovGroup' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppGovGroup' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.treasuryWithdrawal' @:: Lens' DRepVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'treasuryWithdrawal' @:: Lens' DRepVotingThresholds (Prelude.Maybe RationalNumber)@ -} +data DRepVotingThresholds + = DRepVotingThresholds'_constructor {_DRepVotingThresholds'motionNoConfidence :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'committeeNormal :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'committeeNoConfidence :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'updateToConstitution :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'hardForkInitiation :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'ppNetworkGroup :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'ppEconomicGroup :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'ppTechnicalGroup :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'ppGovGroup :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'treasuryWithdrawal :: !(Prelude.Maybe RationalNumber), + _DRepVotingThresholds'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DRepVotingThresholds where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "motionNoConfidence" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'motionNoConfidence + (\ x__ y__ + -> x__ {_DRepVotingThresholds'motionNoConfidence = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'motionNoConfidence" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'motionNoConfidence + (\ x__ y__ + -> x__ {_DRepVotingThresholds'motionNoConfidence = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "committeeNormal" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'committeeNormal + (\ x__ y__ -> x__ {_DRepVotingThresholds'committeeNormal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'committeeNormal" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'committeeNormal + (\ x__ y__ -> x__ {_DRepVotingThresholds'committeeNormal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "committeeNoConfidence" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'committeeNoConfidence + (\ x__ y__ + -> x__ {_DRepVotingThresholds'committeeNoConfidence = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'committeeNoConfidence" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'committeeNoConfidence + (\ x__ y__ + -> x__ {_DRepVotingThresholds'committeeNoConfidence = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "updateToConstitution" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'updateToConstitution + (\ x__ y__ + -> x__ {_DRepVotingThresholds'updateToConstitution = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'updateToConstitution" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'updateToConstitution + (\ x__ y__ + -> x__ {_DRepVotingThresholds'updateToConstitution = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "hardForkInitiation" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'hardForkInitiation + (\ x__ y__ + -> x__ {_DRepVotingThresholds'hardForkInitiation = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'hardForkInitiation" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'hardForkInitiation + (\ x__ y__ + -> x__ {_DRepVotingThresholds'hardForkInitiation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppNetworkGroup" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppNetworkGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppNetworkGroup = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppNetworkGroup" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppNetworkGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppNetworkGroup = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppEconomicGroup" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppEconomicGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppEconomicGroup = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppEconomicGroup" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppEconomicGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppEconomicGroup = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppTechnicalGroup" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppTechnicalGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppTechnicalGroup = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppTechnicalGroup" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppTechnicalGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppTechnicalGroup = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "ppGovGroup" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppGovGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppGovGroup = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'ppGovGroup" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'ppGovGroup + (\ x__ y__ -> x__ {_DRepVotingThresholds'ppGovGroup = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "treasuryWithdrawal" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'treasuryWithdrawal + (\ x__ y__ + -> x__ {_DRepVotingThresholds'treasuryWithdrawal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField DRepVotingThresholds "maybe'treasuryWithdrawal" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _DRepVotingThresholds'treasuryWithdrawal + (\ x__ y__ + -> x__ {_DRepVotingThresholds'treasuryWithdrawal = y__})) + Prelude.id +instance Data.ProtoLens.Message DRepVotingThresholds where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.DRepVotingThresholds" + packedMessageDescriptor _ + = "\n\ + \\DC4DRepVotingThresholds\DC2X\n\ + \\DC4motion_no_confidence\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2motionNoConfidence\DC2Q\n\ + \\DLEcommittee_normal\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIcommitteeNormal\DC2^\n\ + \\ETBcommittee_no_confidence\CAN\ETX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\NAKcommitteeNoConfidence\DC2\\\n\ + \\SYNupdate_to_constitution\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC4updateToConstitution\DC2X\n\ + \\DC4hard_fork_initiation\CAN\ENQ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2hardForkInitiation\DC2P\n\ + \\DLEpp_network_group\CAN\ACK \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SOppNetworkGroup\DC2R\n\ + \\DC1pp_economic_group\CAN\a \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIppEconomicGroup\DC2T\n\ + \\DC2pp_technical_group\CAN\b \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DLEppTechnicalGroup\DC2H\n\ + \\fpp_gov_group\CAN\t \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\n\ + \ppGovGroup\DC2W\n\ + \\DC3treasury_withdrawal\CAN\n\ + \ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2treasuryWithdrawal" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + motionNoConfidence__field_descriptor + = Data.ProtoLens.FieldDescriptor + "motion_no_confidence" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'motionNoConfidence")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + committeeNormal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_normal" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeNormal")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + committeeNoConfidence__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_no_confidence" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeNoConfidence")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + updateToConstitution__field_descriptor + = Data.ProtoLens.FieldDescriptor + "update_to_constitution" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'updateToConstitution")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + hardForkInitiation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hard_fork_initiation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hardForkInitiation")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + ppNetworkGroup__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pp_network_group" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ppNetworkGroup")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + ppEconomicGroup__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pp_economic_group" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ppEconomicGroup")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + ppTechnicalGroup__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pp_technical_group" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ppTechnicalGroup")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + ppGovGroup__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pp_gov_group" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ppGovGroup")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + treasuryWithdrawal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "treasury_withdrawal" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'treasuryWithdrawal")) :: + Data.ProtoLens.FieldDescriptor DRepVotingThresholds + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, motionNoConfidence__field_descriptor), + (Data.ProtoLens.Tag 2, committeeNormal__field_descriptor), + (Data.ProtoLens.Tag 3, committeeNoConfidence__field_descriptor), + (Data.ProtoLens.Tag 4, updateToConstitution__field_descriptor), + (Data.ProtoLens.Tag 5, hardForkInitiation__field_descriptor), + (Data.ProtoLens.Tag 6, ppNetworkGroup__field_descriptor), + (Data.ProtoLens.Tag 7, ppEconomicGroup__field_descriptor), + (Data.ProtoLens.Tag 8, ppTechnicalGroup__field_descriptor), + (Data.ProtoLens.Tag 9, ppGovGroup__field_descriptor), + (Data.ProtoLens.Tag 10, treasuryWithdrawal__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _DRepVotingThresholds'_unknownFields + (\ x__ y__ -> x__ {_DRepVotingThresholds'_unknownFields = y__}) + defMessage + = DRepVotingThresholds'_constructor + {_DRepVotingThresholds'motionNoConfidence = Prelude.Nothing, + _DRepVotingThresholds'committeeNormal = Prelude.Nothing, + _DRepVotingThresholds'committeeNoConfidence = Prelude.Nothing, + _DRepVotingThresholds'updateToConstitution = Prelude.Nothing, + _DRepVotingThresholds'hardForkInitiation = Prelude.Nothing, + _DRepVotingThresholds'ppNetworkGroup = Prelude.Nothing, + _DRepVotingThresholds'ppEconomicGroup = Prelude.Nothing, + _DRepVotingThresholds'ppTechnicalGroup = Prelude.Nothing, + _DRepVotingThresholds'ppGovGroup = Prelude.Nothing, + _DRepVotingThresholds'treasuryWithdrawal = Prelude.Nothing, + _DRepVotingThresholds'_unknownFields = []} + parseMessage + = let + loop :: + DRepVotingThresholds + -> Data.ProtoLens.Encoding.Bytes.Parser DRepVotingThresholds + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "motion_no_confidence" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"motionNoConfidence") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_normal" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeNormal") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_no_confidence" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeNoConfidence") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "update_to_constitution" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"updateToConstitution") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "hard_fork_initiation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"hardForkInitiation") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pp_network_group" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"ppNetworkGroup") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pp_economic_group" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"ppEconomicGroup") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pp_technical_group" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"ppTechnicalGroup") y x) + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pp_gov_group" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ppGovGroup") y x) + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "treasury_withdrawal" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"treasuryWithdrawal") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "DRepVotingThresholds" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'motionNoConfidence") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeNormal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeNoConfidence") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'updateToConstitution") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'hardForkInitiation") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ppNetworkGroup") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ppEconomicGroup") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ppTechnicalGroup") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ppGovGroup") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'treasuryWithdrawal") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x))))))))))) +instance Control.DeepSeq.NFData DRepVotingThresholds where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_DRepVotingThresholds'_unknownFields x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'motionNoConfidence x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'committeeNormal x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'committeeNoConfidence x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'updateToConstitution x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'hardForkInitiation x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'ppNetworkGroup x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'ppEconomicGroup x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'ppTechnicalGroup x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'ppGovGroup x__) + (Control.DeepSeq.deepseq + (_DRepVotingThresholds'treasuryWithdrawal x__) + ())))))))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' Datum Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.payload' @:: Lens' Datum PlutusData@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'payload' @:: Lens' Datum (Prelude.Maybe PlutusData)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.originalCbor' @:: Lens' Datum Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'originalCbor' @:: Lens' Datum (Prelude.Maybe Data.ByteString.ByteString)@ -} +data Datum + = Datum'_constructor {_Datum'hash :: !Data.ByteString.ByteString, + _Datum'payload :: !(Prelude.Maybe PlutusData), + _Datum'originalCbor :: !(Prelude.Maybe Data.ByteString.ByteString), + _Datum'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Datum where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Datum "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Datum'hash (\ x__ y__ -> x__ {_Datum'hash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Datum "payload" PlutusData where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Datum'payload (\ x__ y__ -> x__ {_Datum'payload = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Datum "maybe'payload" (Prelude.Maybe PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Datum'payload (\ x__ y__ -> x__ {_Datum'payload = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Datum "originalCbor" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Datum'originalCbor (\ x__ y__ -> x__ {_Datum'originalCbor = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) +instance Data.ProtoLens.Field.HasField Datum "maybe'originalCbor" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Datum'originalCbor (\ x__ y__ -> x__ {_Datum'originalCbor = y__})) + Prelude.id +instance Data.ProtoLens.Message Datum where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Datum" + packedMessageDescriptor _ + = "\n\ + \\ENQDatum\DC2\DC2\n\ + \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2A\n\ + \\apayload\CAN\STX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataH\NULR\apayload\136\SOH\SOH\DC2(\n\ + \\roriginal_cbor\CAN\ETX \SOH(\fH\SOHR\foriginalCbor\136\SOH\SOHB\n\ + \\n\ + \\b_payloadB\DLE\n\ + \\SO_original_cbor" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor Datum + payload__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payload" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusData) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'payload")) :: + Data.ProtoLens.FieldDescriptor Datum + originalCbor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "original_cbor" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'originalCbor")) :: + Data.ProtoLens.FieldDescriptor Datum + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, hash__field_descriptor), + (Data.ProtoLens.Tag 2, payload__field_descriptor), + (Data.ProtoLens.Tag 3, originalCbor__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Datum'_unknownFields + (\ x__ y__ -> x__ {_Datum'_unknownFields = y__}) + defMessage + = Datum'_constructor + {_Datum'hash = Data.ProtoLens.fieldDefault, + _Datum'payload = Prelude.Nothing, + _Datum'originalCbor = Prelude.Nothing, _Datum'_unknownFields = []} + parseMessage + = let + loop :: Datum -> Data.ProtoLens.Encoding.Bytes.Parser Datum + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "payload" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "original_cbor" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"originalCbor") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Datum" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'originalCbor") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData Datum where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Datum'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Datum'hash x__) + (Control.DeepSeq.deepseq + (_Datum'payload x__) + (Control.DeepSeq.deepseq (_Datum'originalCbor x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.time' @:: Lens' EraBoundary Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slot' @:: Lens' EraBoundary Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.epoch' @:: Lens' EraBoundary Data.Word.Word64@ -} +data EraBoundary + = EraBoundary'_constructor {_EraBoundary'time :: !Data.Word.Word64, + _EraBoundary'slot :: !Data.Word.Word64, + _EraBoundary'epoch :: !Data.Word.Word64, + _EraBoundary'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EraBoundary where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EraBoundary "time" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraBoundary'time (\ x__ y__ -> x__ {_EraBoundary'time = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EraBoundary "slot" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraBoundary'slot (\ x__ y__ -> x__ {_EraBoundary'slot = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EraBoundary "epoch" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraBoundary'epoch (\ x__ y__ -> x__ {_EraBoundary'epoch = y__})) + Prelude.id +instance Data.ProtoLens.Message EraBoundary where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.EraBoundary" + packedMessageDescriptor _ + = "\n\ + \\vEraBoundary\DC2\DC2\n\ + \\EOTtime\CAN\SOH \SOH(\EOTR\EOTtime\DC2\DC2\n\ + \\EOTslot\CAN\STX \SOH(\EOTR\EOTslot\DC2\DC4\n\ + \\ENQepoch\CAN\ETX \SOH(\EOTR\ENQepoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + time__field_descriptor + = Data.ProtoLens.FieldDescriptor + "time" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"time")) :: + Data.ProtoLens.FieldDescriptor EraBoundary + slot__field_descriptor + = Data.ProtoLens.FieldDescriptor + "slot" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) :: + Data.ProtoLens.FieldDescriptor EraBoundary + epoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"epoch")) :: + Data.ProtoLens.FieldDescriptor EraBoundary + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, time__field_descriptor), + (Data.ProtoLens.Tag 2, slot__field_descriptor), + (Data.ProtoLens.Tag 3, epoch__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EraBoundary'_unknownFields + (\ x__ y__ -> x__ {_EraBoundary'_unknownFields = y__}) + defMessage + = EraBoundary'_constructor + {_EraBoundary'time = Data.ProtoLens.fieldDefault, + _EraBoundary'slot = Data.ProtoLens.fieldDefault, + _EraBoundary'epoch = Data.ProtoLens.fieldDefault, + _EraBoundary'_unknownFields = []} + parseMessage + = let + loop :: + EraBoundary -> Data.ProtoLens.Encoding.Bytes.Parser EraBoundary + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "time" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"time") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "slot" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "epoch" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epoch") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EraBoundary" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"time") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"epoch") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData EraBoundary where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EraBoundary'_unknownFields x__) + (Control.DeepSeq.deepseq + (_EraBoundary'time x__) + (Control.DeepSeq.deepseq + (_EraBoundary'slot x__) + (Control.DeepSeq.deepseq (_EraBoundary'epoch x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.summaries' @:: Lens' EraSummaries [EraSummary]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'summaries' @:: Lens' EraSummaries (Data.Vector.Vector EraSummary)@ -} +data EraSummaries + = EraSummaries'_constructor {_EraSummaries'summaries :: !(Data.Vector.Vector EraSummary), + _EraSummaries'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EraSummaries where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EraSummaries "summaries" [EraSummary] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummaries'summaries + (\ x__ y__ -> x__ {_EraSummaries'summaries = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField EraSummaries "vec'summaries" (Data.Vector.Vector EraSummary) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummaries'summaries + (\ x__ y__ -> x__ {_EraSummaries'summaries = y__})) + Prelude.id +instance Data.ProtoLens.Message EraSummaries where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.EraSummaries" + packedMessageDescriptor _ + = "\n\ + \\fEraSummaries\DC2@\n\ + \\tsummaries\CAN\SOH \ETX(\v2\".utxorpc.v1beta.cardano.EraSummaryR\tsummaries" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + summaries__field_descriptor + = Data.ProtoLens.FieldDescriptor + "summaries" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EraSummary) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"summaries")) :: + Data.ProtoLens.FieldDescriptor EraSummaries + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, summaries__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EraSummaries'_unknownFields + (\ x__ y__ -> x__ {_EraSummaries'_unknownFields = y__}) + defMessage + = EraSummaries'_constructor + {_EraSummaries'summaries = Data.Vector.Generic.empty, + _EraSummaries'_unknownFields = []} + parseMessage + = let + loop :: + EraSummaries + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EraSummary + -> Data.ProtoLens.Encoding.Bytes.Parser EraSummaries + loop x mutable'summaries + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'summaries <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'summaries) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'summaries") frozen'summaries x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "summaries" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'summaries y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'summaries + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'summaries <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'summaries) + "EraSummaries" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'summaries") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EraSummaries where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EraSummaries'_unknownFields x__) + (Control.DeepSeq.deepseq (_EraSummaries'summaries x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.name' @:: Lens' EraSummary Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.start' @:: Lens' EraSummary EraBoundary@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'start' @:: Lens' EraSummary (Prelude.Maybe EraBoundary)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.end' @:: Lens' EraSummary EraBoundary@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'end' @:: Lens' EraSummary (Prelude.Maybe EraBoundary)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolParams' @:: Lens' EraSummary PParams@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'protocolParams' @:: Lens' EraSummary (Prelude.Maybe PParams)@ -} +data EraSummary + = EraSummary'_constructor {_EraSummary'name :: !Data.Text.Text, + _EraSummary'start :: !(Prelude.Maybe EraBoundary), + _EraSummary'end :: !(Prelude.Maybe EraBoundary), + _EraSummary'protocolParams :: !(Prelude.Maybe PParams), + _EraSummary'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EraSummary where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EraSummary "name" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummary'name (\ x__ y__ -> x__ {_EraSummary'name = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EraSummary "start" EraBoundary where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummary'start (\ x__ y__ -> x__ {_EraSummary'start = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField EraSummary "maybe'start" (Prelude.Maybe EraBoundary) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummary'start (\ x__ y__ -> x__ {_EraSummary'start = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EraSummary "end" EraBoundary where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummary'end (\ x__ y__ -> x__ {_EraSummary'end = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField EraSummary "maybe'end" (Prelude.Maybe EraBoundary) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummary'end (\ x__ y__ -> x__ {_EraSummary'end = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EraSummary "protocolParams" PParams where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummary'protocolParams + (\ x__ y__ -> x__ {_EraSummary'protocolParams = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField EraSummary "maybe'protocolParams" (Prelude.Maybe PParams) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EraSummary'protocolParams + (\ x__ y__ -> x__ {_EraSummary'protocolParams = y__})) + Prelude.id +instance Data.ProtoLens.Message EraSummary where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.EraSummary" + packedMessageDescriptor _ + = "\n\ + \\n\ + \EraSummary\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC29\n\ + \\ENQstart\CAN\STX \SOH(\v2#.utxorpc.v1beta.cardano.EraBoundaryR\ENQstart\DC25\n\ + \\ETXend\CAN\ETX \SOH(\v2#.utxorpc.v1beta.cardano.EraBoundaryR\ETXend\DC2H\n\ + \\SIprotocol_params\CAN\EOT \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsR\SOprotocolParams" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + name__field_descriptor + = Data.ProtoLens.FieldDescriptor + "name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"name")) :: + Data.ProtoLens.FieldDescriptor EraSummary + start__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EraBoundary) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'start")) :: + Data.ProtoLens.FieldDescriptor EraSummary + end__field_descriptor + = Data.ProtoLens.FieldDescriptor + "end" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EraBoundary) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'end")) :: + Data.ProtoLens.FieldDescriptor EraSummary + protocolParams__field_descriptor + = Data.ProtoLens.FieldDescriptor + "protocol_params" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PParams) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'protocolParams")) :: + Data.ProtoLens.FieldDescriptor EraSummary + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, start__field_descriptor), + (Data.ProtoLens.Tag 3, end__field_descriptor), + (Data.ProtoLens.Tag 4, protocolParams__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EraSummary'_unknownFields + (\ x__ y__ -> x__ {_EraSummary'_unknownFields = y__}) + defMessage + = EraSummary'_constructor + {_EraSummary'name = Data.ProtoLens.fieldDefault, + _EraSummary'start = Prelude.Nothing, + _EraSummary'end = Prelude.Nothing, + _EraSummary'protocolParams = Prelude.Nothing, + _EraSummary'_unknownFields = []} + parseMessage + = let + loop :: + EraSummary -> Data.ProtoLens.Encoding.Bytes.Parser EraSummary + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "start" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "end" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "protocol_params" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"protocolParams") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EraSummary" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"name") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'protocolParams") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData EraSummary where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EraSummary'_unknownFields x__) + (Control.DeepSeq.deepseq + (_EraSummary'name x__) + (Control.DeepSeq.deepseq + (_EraSummary'start x__) + (Control.DeepSeq.deepseq + (_EraSummary'end x__) + (Control.DeepSeq.deepseq (_EraSummary'protocolParams x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.msg' @:: Lens' EvalError Data.Text.Text@ -} +data EvalError + = EvalError'_constructor {_EvalError'msg :: !Data.Text.Text, + _EvalError'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EvalError where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EvalError "msg" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EvalError'msg (\ x__ y__ -> x__ {_EvalError'msg = y__})) + Prelude.id +instance Data.ProtoLens.Message EvalError where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.EvalError" + packedMessageDescriptor _ + = "\n\ + \\tEvalError\DC2\DLE\n\ + \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + msg__field_descriptor + = Data.ProtoLens.FieldDescriptor + "msg" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) :: + Data.ProtoLens.FieldDescriptor EvalError + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EvalError'_unknownFields + (\ x__ y__ -> x__ {_EvalError'_unknownFields = y__}) + defMessage + = EvalError'_constructor + {_EvalError'msg = Data.ProtoLens.fieldDefault, + _EvalError'_unknownFields = []} + parseMessage + = let + loop :: EvalError -> Data.ProtoLens.Encoding.Bytes.Parser EvalError + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "msg" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EvalError" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EvalError where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EvalError'_unknownFields x__) + (Control.DeepSeq.deepseq (_EvalError'msg x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.msg' @:: Lens' EvalTrace Data.Text.Text@ -} +data EvalTrace + = EvalTrace'_constructor {_EvalTrace'msg :: !Data.Text.Text, + _EvalTrace'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EvalTrace where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EvalTrace "msg" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EvalTrace'msg (\ x__ y__ -> x__ {_EvalTrace'msg = y__})) + Prelude.id +instance Data.ProtoLens.Message EvalTrace where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.EvalTrace" + packedMessageDescriptor _ + = "\n\ + \\tEvalTrace\DC2\DLE\n\ + \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + msg__field_descriptor + = Data.ProtoLens.FieldDescriptor + "msg" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) :: + Data.ProtoLens.FieldDescriptor EvalTrace + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EvalTrace'_unknownFields + (\ x__ y__ -> x__ {_EvalTrace'_unknownFields = y__}) + defMessage + = EvalTrace'_constructor + {_EvalTrace'msg = Data.ProtoLens.fieldDefault, + _EvalTrace'_unknownFields = []} + parseMessage + = let + loop :: EvalTrace -> Data.ProtoLens.Encoding.Bytes.Parser EvalTrace + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "msg" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EvalTrace" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EvalTrace where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EvalTrace'_unknownFields x__) + (Control.DeepSeq.deepseq (_EvalTrace'msg x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.steps' @:: Lens' ExPrices RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'steps' @:: Lens' ExPrices (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.memory' @:: Lens' ExPrices RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'memory' @:: Lens' ExPrices (Prelude.Maybe RationalNumber)@ -} +data ExPrices + = ExPrices'_constructor {_ExPrices'steps :: !(Prelude.Maybe RationalNumber), + _ExPrices'memory :: !(Prelude.Maybe RationalNumber), + _ExPrices'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ExPrices where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ExPrices "steps" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ExPrices'steps (\ x__ y__ -> x__ {_ExPrices'steps = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ExPrices "maybe'steps" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ExPrices'steps (\ x__ y__ -> x__ {_ExPrices'steps = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ExPrices "memory" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ExPrices'memory (\ x__ y__ -> x__ {_ExPrices'memory = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ExPrices "maybe'memory" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ExPrices'memory (\ x__ y__ -> x__ {_ExPrices'memory = y__})) + Prelude.id +instance Data.ProtoLens.Message ExPrices where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.ExPrices" + packedMessageDescriptor _ + = "\n\ + \\bExPrices\DC2<\n\ + \\ENQsteps\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\ENQsteps\DC2>\n\ + \\ACKmemory\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\ACKmemory" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + steps__field_descriptor + = Data.ProtoLens.FieldDescriptor + "steps" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'steps")) :: + Data.ProtoLens.FieldDescriptor ExPrices + memory__field_descriptor + = Data.ProtoLens.FieldDescriptor + "memory" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'memory")) :: + Data.ProtoLens.FieldDescriptor ExPrices + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, steps__field_descriptor), + (Data.ProtoLens.Tag 2, memory__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ExPrices'_unknownFields + (\ x__ y__ -> x__ {_ExPrices'_unknownFields = y__}) + defMessage + = ExPrices'_constructor + {_ExPrices'steps = Prelude.Nothing, + _ExPrices'memory = Prelude.Nothing, _ExPrices'_unknownFields = []} + parseMessage + = let + loop :: ExPrices -> Data.ProtoLens.Encoding.Bytes.Parser ExPrices + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "steps" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "memory" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ExPrices" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'steps") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'memory") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ExPrices where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ExPrices'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ExPrices'steps x__) + (Control.DeepSeq.deepseq (_ExPrices'memory x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.steps' @:: Lens' ExUnits Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.memory' @:: Lens' ExUnits Data.Word.Word64@ -} +data ExUnits + = ExUnits'_constructor {_ExUnits'steps :: !Data.Word.Word64, + _ExUnits'memory :: !Data.Word.Word64, + _ExUnits'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ExUnits where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ExUnits "steps" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ExUnits'steps (\ x__ y__ -> x__ {_ExUnits'steps = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ExUnits "memory" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ExUnits'memory (\ x__ y__ -> x__ {_ExUnits'memory = y__})) + Prelude.id +instance Data.ProtoLens.Message ExUnits where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.ExUnits" + packedMessageDescriptor _ + = "\n\ + \\aExUnits\DC2\DC4\n\ + \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\ + \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + steps__field_descriptor + = Data.ProtoLens.FieldDescriptor + "steps" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"steps")) :: + Data.ProtoLens.FieldDescriptor ExUnits + memory__field_descriptor + = Data.ProtoLens.FieldDescriptor + "memory" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"memory")) :: + Data.ProtoLens.FieldDescriptor ExUnits + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, steps__field_descriptor), + (Data.ProtoLens.Tag 2, memory__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ExUnits'_unknownFields + (\ x__ y__ -> x__ {_ExUnits'_unknownFields = y__}) + defMessage + = ExUnits'_constructor + {_ExUnits'steps = Data.ProtoLens.fieldDefault, + _ExUnits'memory = Data.ProtoLens.fieldDefault, + _ExUnits'_unknownFields = []} + parseMessage + = let + loop :: ExUnits -> Data.ProtoLens.Encoding.Bytes.Parser ExUnits + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "steps" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"steps") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "memory" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memory") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ExUnits" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"steps") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"memory") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ExUnits where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ExUnits'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ExUnits'steps x__) + (Control.DeepSeq.deepseq (_ExUnits'memory x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.tag' @:: Lens' ExtraEntropy Data.Text.Text@ -} +data ExtraEntropy + = ExtraEntropy'_constructor {_ExtraEntropy'tag :: !Data.Text.Text, + _ExtraEntropy'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ExtraEntropy where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ExtraEntropy "tag" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ExtraEntropy'tag (\ x__ y__ -> x__ {_ExtraEntropy'tag = y__})) + Prelude.id +instance Data.ProtoLens.Message ExtraEntropy where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.ExtraEntropy" + packedMessageDescriptor _ + = "\n\ + \\fExtraEntropy\DC2\DLE\n\ + \\ETXtag\CAN\SOH \SOH(\tR\ETXtag" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + tag__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tag" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"tag")) :: + Data.ProtoLens.FieldDescriptor ExtraEntropy + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, tag__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ExtraEntropy'_unknownFields + (\ x__ y__ -> x__ {_ExtraEntropy'_unknownFields = y__}) + defMessage + = ExtraEntropy'_constructor + {_ExtraEntropy'tag = Data.ProtoLens.fieldDefault, + _ExtraEntropy'_unknownFields = []} + parseMessage + = let + loop :: + ExtraEntropy -> Data.ProtoLens.Encoding.Bytes.Parser ExtraEntropy + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "tag" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ExtraEntropy" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"tag") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ExtraEntropy where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ExtraEntropy'_unknownFields x__) + (Control.DeepSeq.deepseq (_ExtraEntropy'tag x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.delegate' @:: Lens' GenDelegs Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vrf' @:: Lens' GenDelegs Data.Text.Text@ -} +data GenDelegs + = GenDelegs'_constructor {_GenDelegs'delegate :: !Data.Text.Text, + _GenDelegs'vrf :: !Data.Text.Text, + _GenDelegs'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show GenDelegs where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField GenDelegs "delegate" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GenDelegs'delegate (\ x__ y__ -> x__ {_GenDelegs'delegate = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GenDelegs "vrf" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GenDelegs'vrf (\ x__ y__ -> x__ {_GenDelegs'vrf = y__})) + Prelude.id +instance Data.ProtoLens.Message GenDelegs where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.GenDelegs" + packedMessageDescriptor _ + = "\n\ + \\tGenDelegs\DC2\SUB\n\ + \\bdelegate\CAN\SOH \SOH(\tR\bdelegate\DC2\DLE\n\ + \\ETXvrf\CAN\STX \SOH(\tR\ETXvrf" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + delegate__field_descriptor + = Data.ProtoLens.FieldDescriptor + "delegate" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"delegate")) :: + Data.ProtoLens.FieldDescriptor GenDelegs + vrf__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vrf" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"vrf")) :: + Data.ProtoLens.FieldDescriptor GenDelegs + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, delegate__field_descriptor), + (Data.ProtoLens.Tag 2, vrf__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _GenDelegs'_unknownFields + (\ x__ y__ -> x__ {_GenDelegs'_unknownFields = y__}) + defMessage + = GenDelegs'_constructor + {_GenDelegs'delegate = Data.ProtoLens.fieldDefault, + _GenDelegs'vrf = Data.ProtoLens.fieldDefault, + _GenDelegs'_unknownFields = []} + parseMessage + = let + loop :: GenDelegs -> Data.ProtoLens.Encoding.Bytes.Parser GenDelegs + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "delegate" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"delegate") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "vrf" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"vrf") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "GenDelegs" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"delegate") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vrf") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData GenDelegs where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_GenDelegs'_unknownFields x__) + (Control.DeepSeq.deepseq + (_GenDelegs'delegate x__) + (Control.DeepSeq.deepseq (_GenDelegs'vrf x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.avvmDistr' @:: Lens' Genesis (Data.Map.Map Data.Text.Text Data.Text.Text)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.blockVersionData' @:: Lens' Genesis BlockVersionData@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'blockVersionData' @:: Lens' Genesis (Prelude.Maybe BlockVersionData)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ftsSeed' @:: Lens' Genesis Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolConsts' @:: Lens' Genesis ProtocolConsts@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'protocolConsts' @:: Lens' Genesis (Prelude.Maybe ProtocolConsts)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.startTime' @:: Lens' Genesis Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bootStakeholders' @:: Lens' Genesis (Data.Map.Map Data.Text.Text Data.Word.Word64)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.heavyDelegation' @:: Lens' Genesis (Data.Map.Map Data.Text.Text HeavyDelegation)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.nonAvvmBalances' @:: Lens' Genesis (Data.Map.Map Data.Text.Text Data.Text.Text)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vssCerts' @:: Lens' Genesis (Data.Map.Map Data.Text.Text VssCert)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.activeSlotsCoeff' @:: Lens' Genesis RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'activeSlotsCoeff' @:: Lens' Genesis (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.epochLength' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.genDelegs' @:: Lens' Genesis (Data.Map.Map Data.Text.Text GenDelegs)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.initialFunds' @:: Lens' Genesis (Data.Map.Map Data.Text.Text BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxKesEvolutions' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxLovelaceSupply' @:: Lens' Genesis BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'maxLovelaceSupply' @:: Lens' Genesis (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.networkId' @:: Lens' Genesis Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.networkMagic' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolParams' @:: Lens' Genesis PParams@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'protocolParams' @:: Lens' Genesis (Prelude.Maybe PParams)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.securityParam' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slotLength' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.slotsPerKesPeriod' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.systemStart' @:: Lens' Genesis Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateQuorum' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.lovelacePerUtxoWord' @:: Lens' Genesis BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'lovelacePerUtxoWord' @:: Lens' Genesis (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.executionPrices' @:: Lens' Genesis ExPrices@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'executionPrices' @:: Lens' Genesis (Prelude.Maybe ExPrices)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxTxExUnits' @:: Lens' Genesis ExUnits@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'maxTxExUnits' @:: Lens' Genesis (Prelude.Maybe ExUnits)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxBlockExUnits' @:: Lens' Genesis ExUnits@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'maxBlockExUnits' @:: Lens' Genesis (Prelude.Maybe ExUnits)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxValueSize' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.collateralPercentage' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxCollateralInputs' @:: Lens' Genesis Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.costModels' @:: Lens' Genesis CostModelMap@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'costModels' @:: Lens' Genesis (Prelude.Maybe CostModelMap)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committee' @:: Lens' Genesis Committee@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committee' @:: Lens' Genesis (Prelude.Maybe Committee)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.constitution' @:: Lens' Genesis Constitution@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'constitution' @:: Lens' Genesis (Prelude.Maybe Constitution)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeMinSize' @:: Lens' Genesis Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeMaxTermLength' @:: Lens' Genesis Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govActionLifetime' @:: Lens' Genesis Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govActionDeposit' @:: Lens' Genesis BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'govActionDeposit' @:: Lens' Genesis (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepDeposit' @:: Lens' Genesis BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drepDeposit' @:: Lens' Genesis (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepActivity' @:: Lens' Genesis Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minFeeRefScriptCostPerByte' @:: Lens' Genesis RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'minFeeRefScriptCostPerByte' @:: Lens' Genesis (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepVotingThresholds' @:: Lens' Genesis DRepVotingThresholds@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drepVotingThresholds' @:: Lens' Genesis (Prelude.Maybe DRepVotingThresholds)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolVotingThresholds' @:: Lens' Genesis PoolVotingThresholds@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolVotingThresholds' @:: Lens' Genesis (Prelude.Maybe PoolVotingThresholds)@ -} +data Genesis + = Genesis'_constructor {_Genesis'avvmDistr :: !(Data.Map.Map Data.Text.Text Data.Text.Text), + _Genesis'blockVersionData :: !(Prelude.Maybe BlockVersionData), + _Genesis'ftsSeed :: !Data.Text.Text, + _Genesis'protocolConsts :: !(Prelude.Maybe ProtocolConsts), + _Genesis'startTime :: !Data.Word.Word64, + _Genesis'bootStakeholders :: !(Data.Map.Map Data.Text.Text Data.Word.Word64), + _Genesis'heavyDelegation :: !(Data.Map.Map Data.Text.Text HeavyDelegation), + _Genesis'nonAvvmBalances :: !(Data.Map.Map Data.Text.Text Data.Text.Text), + _Genesis'vssCerts :: !(Data.Map.Map Data.Text.Text VssCert), + _Genesis'activeSlotsCoeff :: !(Prelude.Maybe RationalNumber), + _Genesis'epochLength :: !Data.Word.Word32, + _Genesis'genDelegs :: !(Data.Map.Map Data.Text.Text GenDelegs), + _Genesis'initialFunds :: !(Data.Map.Map Data.Text.Text BigInt), + _Genesis'maxKesEvolutions :: !Data.Word.Word32, + _Genesis'maxLovelaceSupply :: !(Prelude.Maybe BigInt), + _Genesis'networkId :: !Data.Text.Text, + _Genesis'networkMagic :: !Data.Word.Word32, + _Genesis'protocolParams :: !(Prelude.Maybe PParams), + _Genesis'securityParam :: !Data.Word.Word32, + _Genesis'slotLength :: !Data.Word.Word32, + _Genesis'slotsPerKesPeriod :: !Data.Word.Word32, + _Genesis'systemStart :: !Data.Text.Text, + _Genesis'updateQuorum :: !Data.Word.Word32, + _Genesis'lovelacePerUtxoWord :: !(Prelude.Maybe BigInt), + _Genesis'executionPrices :: !(Prelude.Maybe ExPrices), + _Genesis'maxTxExUnits :: !(Prelude.Maybe ExUnits), + _Genesis'maxBlockExUnits :: !(Prelude.Maybe ExUnits), + _Genesis'maxValueSize :: !Data.Word.Word32, + _Genesis'collateralPercentage :: !Data.Word.Word32, + _Genesis'maxCollateralInputs :: !Data.Word.Word32, + _Genesis'costModels :: !(Prelude.Maybe CostModelMap), + _Genesis'committee :: !(Prelude.Maybe Committee), + _Genesis'constitution :: !(Prelude.Maybe Constitution), + _Genesis'committeeMinSize :: !Data.Word.Word64, + _Genesis'committeeMaxTermLength :: !Data.Word.Word64, + _Genesis'govActionLifetime :: !Data.Word.Word64, + _Genesis'govActionDeposit :: !(Prelude.Maybe BigInt), + _Genesis'drepDeposit :: !(Prelude.Maybe BigInt), + _Genesis'drepActivity :: !Data.Word.Word64, + _Genesis'minFeeRefScriptCostPerByte :: !(Prelude.Maybe RationalNumber), + _Genesis'drepVotingThresholds :: !(Prelude.Maybe DRepVotingThresholds), + _Genesis'poolVotingThresholds :: !(Prelude.Maybe PoolVotingThresholds), + _Genesis'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis "avvmDistr" (Data.Map.Map Data.Text.Text Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'avvmDistr (\ x__ y__ -> x__ {_Genesis'avvmDistr = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "blockVersionData" BlockVersionData where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'blockVersionData + (\ x__ y__ -> x__ {_Genesis'blockVersionData = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'blockVersionData" (Prelude.Maybe BlockVersionData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'blockVersionData + (\ x__ y__ -> x__ {_Genesis'blockVersionData = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "ftsSeed" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'ftsSeed (\ x__ y__ -> x__ {_Genesis'ftsSeed = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "protocolConsts" ProtocolConsts where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'protocolConsts + (\ x__ y__ -> x__ {_Genesis'protocolConsts = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'protocolConsts" (Prelude.Maybe ProtocolConsts) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'protocolConsts + (\ x__ y__ -> x__ {_Genesis'protocolConsts = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "startTime" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'startTime (\ x__ y__ -> x__ {_Genesis'startTime = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "bootStakeholders" (Data.Map.Map Data.Text.Text Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'bootStakeholders + (\ x__ y__ -> x__ {_Genesis'bootStakeholders = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "heavyDelegation" (Data.Map.Map Data.Text.Text HeavyDelegation) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'heavyDelegation + (\ x__ y__ -> x__ {_Genesis'heavyDelegation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "nonAvvmBalances" (Data.Map.Map Data.Text.Text Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'nonAvvmBalances + (\ x__ y__ -> x__ {_Genesis'nonAvvmBalances = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "vssCerts" (Data.Map.Map Data.Text.Text VssCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'vssCerts (\ x__ y__ -> x__ {_Genesis'vssCerts = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "activeSlotsCoeff" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'activeSlotsCoeff + (\ x__ y__ -> x__ {_Genesis'activeSlotsCoeff = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'activeSlotsCoeff" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'activeSlotsCoeff + (\ x__ y__ -> x__ {_Genesis'activeSlotsCoeff = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "epochLength" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'epochLength + (\ x__ y__ -> x__ {_Genesis'epochLength = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "genDelegs" (Data.Map.Map Data.Text.Text GenDelegs) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'genDelegs (\ x__ y__ -> x__ {_Genesis'genDelegs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "initialFunds" (Data.Map.Map Data.Text.Text BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'initialFunds + (\ x__ y__ -> x__ {_Genesis'initialFunds = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "maxKesEvolutions" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxKesEvolutions + (\ x__ y__ -> x__ {_Genesis'maxKesEvolutions = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "maxLovelaceSupply" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxLovelaceSupply + (\ x__ y__ -> x__ {_Genesis'maxLovelaceSupply = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'maxLovelaceSupply" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxLovelaceSupply + (\ x__ y__ -> x__ {_Genesis'maxLovelaceSupply = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "networkId" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'networkId (\ x__ y__ -> x__ {_Genesis'networkId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "networkMagic" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'networkMagic + (\ x__ y__ -> x__ {_Genesis'networkMagic = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "protocolParams" PParams where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'protocolParams + (\ x__ y__ -> x__ {_Genesis'protocolParams = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'protocolParams" (Prelude.Maybe PParams) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'protocolParams + (\ x__ y__ -> x__ {_Genesis'protocolParams = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "securityParam" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'securityParam + (\ x__ y__ -> x__ {_Genesis'securityParam = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "slotLength" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'slotLength (\ x__ y__ -> x__ {_Genesis'slotLength = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "slotsPerKesPeriod" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'slotsPerKesPeriod + (\ x__ y__ -> x__ {_Genesis'slotsPerKesPeriod = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "systemStart" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'systemStart + (\ x__ y__ -> x__ {_Genesis'systemStart = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "updateQuorum" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'updateQuorum + (\ x__ y__ -> x__ {_Genesis'updateQuorum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "lovelacePerUtxoWord" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'lovelacePerUtxoWord + (\ x__ y__ -> x__ {_Genesis'lovelacePerUtxoWord = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'lovelacePerUtxoWord" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'lovelacePerUtxoWord + (\ x__ y__ -> x__ {_Genesis'lovelacePerUtxoWord = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "executionPrices" ExPrices where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'executionPrices + (\ x__ y__ -> x__ {_Genesis'executionPrices = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'executionPrices" (Prelude.Maybe ExPrices) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'executionPrices + (\ x__ y__ -> x__ {_Genesis'executionPrices = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "maxTxExUnits" ExUnits where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxTxExUnits + (\ x__ y__ -> x__ {_Genesis'maxTxExUnits = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'maxTxExUnits" (Prelude.Maybe ExUnits) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxTxExUnits + (\ x__ y__ -> x__ {_Genesis'maxTxExUnits = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "maxBlockExUnits" ExUnits where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxBlockExUnits + (\ x__ y__ -> x__ {_Genesis'maxBlockExUnits = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'maxBlockExUnits" (Prelude.Maybe ExUnits) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxBlockExUnits + (\ x__ y__ -> x__ {_Genesis'maxBlockExUnits = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "maxValueSize" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxValueSize + (\ x__ y__ -> x__ {_Genesis'maxValueSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "collateralPercentage" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'collateralPercentage + (\ x__ y__ -> x__ {_Genesis'collateralPercentage = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "maxCollateralInputs" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'maxCollateralInputs + (\ x__ y__ -> x__ {_Genesis'maxCollateralInputs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "costModels" CostModelMap where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'costModels (\ x__ y__ -> x__ {_Genesis'costModels = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'costModels" (Prelude.Maybe CostModelMap) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'costModels (\ x__ y__ -> x__ {_Genesis'costModels = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "committee" Committee where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'committee (\ x__ y__ -> x__ {_Genesis'committee = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'committee" (Prelude.Maybe Committee) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'committee (\ x__ y__ -> x__ {_Genesis'committee = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "constitution" Constitution where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'constitution + (\ x__ y__ -> x__ {_Genesis'constitution = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'constitution" (Prelude.Maybe Constitution) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'constitution + (\ x__ y__ -> x__ {_Genesis'constitution = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "committeeMinSize" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'committeeMinSize + (\ x__ y__ -> x__ {_Genesis'committeeMinSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "committeeMaxTermLength" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'committeeMaxTermLength + (\ x__ y__ -> x__ {_Genesis'committeeMaxTermLength = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "govActionLifetime" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'govActionLifetime + (\ x__ y__ -> x__ {_Genesis'govActionLifetime = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "govActionDeposit" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'govActionDeposit + (\ x__ y__ -> x__ {_Genesis'govActionDeposit = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'govActionDeposit" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'govActionDeposit + (\ x__ y__ -> x__ {_Genesis'govActionDeposit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "drepDeposit" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'drepDeposit + (\ x__ y__ -> x__ {_Genesis'drepDeposit = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'drepDeposit" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'drepDeposit + (\ x__ y__ -> x__ {_Genesis'drepDeposit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "drepActivity" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'drepActivity + (\ x__ y__ -> x__ {_Genesis'drepActivity = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "minFeeRefScriptCostPerByte" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'minFeeRefScriptCostPerByte + (\ x__ y__ -> x__ {_Genesis'minFeeRefScriptCostPerByte = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'minFeeRefScriptCostPerByte" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'minFeeRefScriptCostPerByte + (\ x__ y__ -> x__ {_Genesis'minFeeRefScriptCostPerByte = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "drepVotingThresholds" DRepVotingThresholds where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'drepVotingThresholds + (\ x__ y__ -> x__ {_Genesis'drepVotingThresholds = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'drepVotingThresholds" (Prelude.Maybe DRepVotingThresholds) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'drepVotingThresholds + (\ x__ y__ -> x__ {_Genesis'drepVotingThresholds = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis "poolVotingThresholds" PoolVotingThresholds where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'poolVotingThresholds + (\ x__ y__ -> x__ {_Genesis'poolVotingThresholds = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis "maybe'poolVotingThresholds" (Prelude.Maybe PoolVotingThresholds) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'poolVotingThresholds + (\ x__ y__ -> x__ {_Genesis'poolVotingThresholds = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Genesis" + packedMessageDescriptor _ + = "\n\ + \\aGenesis\DC2M\n\ + \\n\ + \avvm_distr\CAN\SOH \ETX(\v2..utxorpc.v1beta.cardano.Genesis.AvvmDistrEntryR\tavvmDistr\DC2V\n\ + \\DC2block_version_data\CAN\STX \SOH(\v2(.utxorpc.v1beta.cardano.BlockVersionDataR\DLEblockVersionData\DC2\EM\n\ + \\bfts_seed\CAN\ETX \SOH(\tR\aftsSeed\DC2O\n\ + \\SIprotocol_consts\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.ProtocolConstsR\SOprotocolConsts\DC2\GS\n\ + \\n\ + \start_time\CAN\ENQ \SOH(\EOTR\tstartTime\DC2b\n\ + \\DC1boot_stakeholders\CAN\ACK \ETX(\v25.utxorpc.v1beta.cardano.Genesis.BootStakeholdersEntryR\DLEbootStakeholders\DC2_\n\ + \\DLEheavy_delegation\CAN\a \ETX(\v24.utxorpc.v1beta.cardano.Genesis.HeavyDelegationEntryR\SIheavyDelegation\DC2`\n\ + \\DC1non_avvm_balances\CAN\b \ETX(\v24.utxorpc.v1beta.cardano.Genesis.NonAvvmBalancesEntryR\SInonAvvmBalances\DC2J\n\ + \\tvss_certs\CAN\t \ETX(\v2-.utxorpc.v1beta.cardano.Genesis.VssCertsEntryR\bvssCerts\DC2T\n\ + \\DC2active_slots_coeff\CAN\n\ + \ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DLEactiveSlotsCoeff\DC2!\n\ + \\fepoch_length\CAN\v \SOH(\rR\vepochLength\DC2M\n\ + \\n\ + \gen_delegs\CAN\f \ETX(\v2..utxorpc.v1beta.cardano.Genesis.GenDelegsEntryR\tgenDelegs\DC2V\n\ + \\rinitial_funds\CAN\r \ETX(\v21.utxorpc.v1beta.cardano.Genesis.InitialFundsEntryR\finitialFunds\DC2,\n\ + \\DC2max_kes_evolutions\CAN\SO \SOH(\rR\DLEmaxKesEvolutions\DC2N\n\ + \\DC3max_lovelace_supply\CAN\SI \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DC1maxLovelaceSupply\DC2\GS\n\ + \\n\ + \network_id\CAN\DLE \SOH(\tR\tnetworkId\DC2#\n\ + \\rnetwork_magic\CAN\DC1 \SOH(\rR\fnetworkMagic\DC2H\n\ + \\SIprotocol_params\CAN\DC2 \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsR\SOprotocolParams\DC2%\n\ + \\SOsecurity_param\CAN\DC3 \SOH(\rR\rsecurityParam\DC2\US\n\ + \\vslot_length\CAN\DC4 \SOH(\rR\n\ + \slotLength\DC2/\n\ + \\DC4slots_per_kes_period\CAN\NAK \SOH(\rR\DC1slotsPerKesPeriod\DC2!\n\ + \\fsystem_start\CAN\SYN \SOH(\tR\vsystemStart\DC2#\n\ + \\rupdate_quorum\CAN\ETB \SOH(\rR\fupdateQuorum\DC2S\n\ + \\SYNlovelace_per_utxo_word\CAN\CAN \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DC3lovelacePerUtxoWord\DC2K\n\ + \\DLEexecution_prices\CAN\EM \SOH(\v2 .utxorpc.v1beta.cardano.ExPricesR\SIexecutionPrices\DC2F\n\ + \\SImax_tx_ex_units\CAN\SUB \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\fmaxTxExUnits\DC2L\n\ + \\DC2max_block_ex_units\CAN\ESC \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\SImaxBlockExUnits\DC2$\n\ + \\SOmax_value_size\CAN\FS \SOH(\rR\fmaxValueSize\DC23\n\ + \\NAKcollateral_percentage\CAN\GS \SOH(\rR\DC4collateralPercentage\DC22\n\ + \\NAKmax_collateral_inputs\CAN\RS \SOH(\rR\DC3maxCollateralInputs\DC2E\n\ + \\vcost_models\CAN\US \SOH(\v2$.utxorpc.v1beta.cardano.CostModelMapR\n\ + \costModels\DC2?\n\ + \\tcommittee\CAN \SOH(\v2!.utxorpc.v1beta.cardano.CommitteeR\tcommittee\DC2H\n\ + \\fconstitution\CAN! \SOH(\v2$.utxorpc.v1beta.cardano.ConstitutionR\fconstitution\DC2,\n\ + \\DC2committee_min_size\CAN\" \SOH(\EOTR\DLEcommitteeMinSize\DC29\n\ + \\EMcommittee_max_term_length\CAN# \SOH(\EOTR\SYNcommitteeMaxTermLength\DC2.\n\ + \\DC3gov_action_lifetime\CAN$ \SOH(\EOTR\DC1govActionLifetime\DC2L\n\ + \\DC2gov_action_deposit\CAN% \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DLEgovActionDeposit\DC2A\n\ + \\fdrep_deposit\CAN& \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vdrepDeposit\DC2#\n\ + \\rdrep_activity\CAN' \SOH(\EOTR\fdrepActivity\DC2l\n\ + \ min_fee_ref_script_cost_per_byte\CAN( \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SUBminFeeRefScriptCostPerByte\DC2b\n\ + \\SYNdrep_voting_thresholds\CAN) \SOH(\v2,.utxorpc.v1beta.cardano.DRepVotingThresholdsR\DC4drepVotingThresholds\DC2b\n\ + \\SYNpool_voting_thresholds\CAN* \SOH(\v2,.utxorpc.v1beta.cardano.PoolVotingThresholdsR\DC4poolVotingThresholds\SUB<\n\ + \\SOAvvmDistrEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUBC\n\ + \\NAKBootStakeholdersEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH\SUBk\n\ + \\DC4HeavyDelegationEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\ + \\ENQvalue\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.HeavyDelegationR\ENQvalue:\STX8\SOH\SUBB\n\ + \\DC4NonAvvmBalancesEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB\\\n\ + \\rVssCertsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\ + \\ENQvalue\CAN\STX \SOH(\v2\US.utxorpc.v1beta.cardano.VssCertR\ENQvalue:\STX8\SOH\SUB_\n\ + \\SOGenDelegsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC27\n\ + \\ENQvalue\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.GenDelegsR\ENQvalue:\STX8\SOH\SUB_\n\ + \\DC1InitialFundsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC24\n\ + \\ENQvalue\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + avvmDistr__field_descriptor + = Data.ProtoLens.FieldDescriptor + "avvm_distr" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Genesis'AvvmDistrEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"avvmDistr")) :: + Data.ProtoLens.FieldDescriptor Genesis + blockVersionData__field_descriptor + = Data.ProtoLens.FieldDescriptor + "block_version_data" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BlockVersionData) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'blockVersionData")) :: + Data.ProtoLens.FieldDescriptor Genesis + ftsSeed__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fts_seed" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ftsSeed")) :: + Data.ProtoLens.FieldDescriptor Genesis + protocolConsts__field_descriptor + = Data.ProtoLens.FieldDescriptor + "protocol_consts" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ProtocolConsts) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'protocolConsts")) :: + Data.ProtoLens.FieldDescriptor Genesis + startTime__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start_time" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"startTime")) :: + Data.ProtoLens.FieldDescriptor Genesis + bootStakeholders__field_descriptor + = Data.ProtoLens.FieldDescriptor + "boot_stakeholders" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Genesis'BootStakeholdersEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"bootStakeholders")) :: + Data.ProtoLens.FieldDescriptor Genesis + heavyDelegation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "heavy_delegation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Genesis'HeavyDelegationEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"heavyDelegation")) :: + Data.ProtoLens.FieldDescriptor Genesis + nonAvvmBalances__field_descriptor + = Data.ProtoLens.FieldDescriptor + "non_avvm_balances" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Genesis'NonAvvmBalancesEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"nonAvvmBalances")) :: + Data.ProtoLens.FieldDescriptor Genesis + vssCerts__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vss_certs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Genesis'VssCertsEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"vssCerts")) :: + Data.ProtoLens.FieldDescriptor Genesis + activeSlotsCoeff__field_descriptor + = Data.ProtoLens.FieldDescriptor + "active_slots_coeff" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'activeSlotsCoeff")) :: + Data.ProtoLens.FieldDescriptor Genesis + epochLength__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch_length" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"epochLength")) :: + Data.ProtoLens.FieldDescriptor Genesis + genDelegs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gen_delegs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Genesis'GenDelegsEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"genDelegs")) :: + Data.ProtoLens.FieldDescriptor Genesis + initialFunds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "initial_funds" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Genesis'InitialFundsEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"initialFunds")) :: + Data.ProtoLens.FieldDescriptor Genesis + maxKesEvolutions__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_kes_evolutions" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxKesEvolutions")) :: + Data.ProtoLens.FieldDescriptor Genesis + maxLovelaceSupply__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_lovelace_supply" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'maxLovelaceSupply")) :: + Data.ProtoLens.FieldDescriptor Genesis + networkId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "network_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"networkId")) :: + Data.ProtoLens.FieldDescriptor Genesis + networkMagic__field_descriptor + = Data.ProtoLens.FieldDescriptor + "network_magic" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"networkMagic")) :: + Data.ProtoLens.FieldDescriptor Genesis + protocolParams__field_descriptor + = Data.ProtoLens.FieldDescriptor + "protocol_params" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PParams) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'protocolParams")) :: + Data.ProtoLens.FieldDescriptor Genesis + securityParam__field_descriptor + = Data.ProtoLens.FieldDescriptor + "security_param" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"securityParam")) :: + Data.ProtoLens.FieldDescriptor Genesis + slotLength__field_descriptor + = Data.ProtoLens.FieldDescriptor + "slot_length" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"slotLength")) :: + Data.ProtoLens.FieldDescriptor Genesis + slotsPerKesPeriod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "slots_per_kes_period" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"slotsPerKesPeriod")) :: + Data.ProtoLens.FieldDescriptor Genesis + systemStart__field_descriptor + = Data.ProtoLens.FieldDescriptor + "system_start" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"systemStart")) :: + Data.ProtoLens.FieldDescriptor Genesis + updateQuorum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "update_quorum" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"updateQuorum")) :: + Data.ProtoLens.FieldDescriptor Genesis + lovelacePerUtxoWord__field_descriptor + = Data.ProtoLens.FieldDescriptor + "lovelace_per_utxo_word" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'lovelacePerUtxoWord")) :: + Data.ProtoLens.FieldDescriptor Genesis + executionPrices__field_descriptor + = Data.ProtoLens.FieldDescriptor + "execution_prices" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExPrices) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'executionPrices")) :: + Data.ProtoLens.FieldDescriptor Genesis + maxTxExUnits__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_tx_ex_units" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExUnits) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'maxTxExUnits")) :: + Data.ProtoLens.FieldDescriptor Genesis + maxBlockExUnits__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_block_ex_units" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExUnits) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'maxBlockExUnits")) :: + Data.ProtoLens.FieldDescriptor Genesis + maxValueSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_value_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxValueSize")) :: + Data.ProtoLens.FieldDescriptor Genesis + collateralPercentage__field_descriptor + = Data.ProtoLens.FieldDescriptor + "collateral_percentage" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"collateralPercentage")) :: + Data.ProtoLens.FieldDescriptor Genesis + maxCollateralInputs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_collateral_inputs" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxCollateralInputs")) :: + Data.ProtoLens.FieldDescriptor Genesis + costModels__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cost_models" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModelMap) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'costModels")) :: + Data.ProtoLens.FieldDescriptor Genesis + committee__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Committee) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committee")) :: + Data.ProtoLens.FieldDescriptor Genesis + constitution__field_descriptor + = Data.ProtoLens.FieldDescriptor + "constitution" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Constitution) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'constitution")) :: + Data.ProtoLens.FieldDescriptor Genesis + committeeMinSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_min_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"committeeMinSize")) :: + Data.ProtoLens.FieldDescriptor Genesis + committeeMaxTermLength__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_max_term_length" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"committeeMaxTermLength")) :: + Data.ProtoLens.FieldDescriptor Genesis + govActionLifetime__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action_lifetime" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"govActionLifetime")) :: + Data.ProtoLens.FieldDescriptor Genesis + govActionDeposit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action_deposit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'govActionDeposit")) :: + Data.ProtoLens.FieldDescriptor Genesis + drepDeposit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_deposit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drepDeposit")) :: + Data.ProtoLens.FieldDescriptor Genesis + drepActivity__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_activity" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"drepActivity")) :: + Data.ProtoLens.FieldDescriptor Genesis + minFeeRefScriptCostPerByte__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_fee_ref_script_cost_per_byte" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field + @"maybe'minFeeRefScriptCostPerByte")) :: + Data.ProtoLens.FieldDescriptor Genesis + drepVotingThresholds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_voting_thresholds" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DRepVotingThresholds) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drepVotingThresholds")) :: + Data.ProtoLens.FieldDescriptor Genesis + poolVotingThresholds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_voting_thresholds" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PoolVotingThresholds) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolVotingThresholds")) :: + Data.ProtoLens.FieldDescriptor Genesis + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, avvmDistr__field_descriptor), + (Data.ProtoLens.Tag 2, blockVersionData__field_descriptor), + (Data.ProtoLens.Tag 3, ftsSeed__field_descriptor), + (Data.ProtoLens.Tag 4, protocolConsts__field_descriptor), + (Data.ProtoLens.Tag 5, startTime__field_descriptor), + (Data.ProtoLens.Tag 6, bootStakeholders__field_descriptor), + (Data.ProtoLens.Tag 7, heavyDelegation__field_descriptor), + (Data.ProtoLens.Tag 8, nonAvvmBalances__field_descriptor), + (Data.ProtoLens.Tag 9, vssCerts__field_descriptor), + (Data.ProtoLens.Tag 10, activeSlotsCoeff__field_descriptor), + (Data.ProtoLens.Tag 11, epochLength__field_descriptor), + (Data.ProtoLens.Tag 12, genDelegs__field_descriptor), + (Data.ProtoLens.Tag 13, initialFunds__field_descriptor), + (Data.ProtoLens.Tag 14, maxKesEvolutions__field_descriptor), + (Data.ProtoLens.Tag 15, maxLovelaceSupply__field_descriptor), + (Data.ProtoLens.Tag 16, networkId__field_descriptor), + (Data.ProtoLens.Tag 17, networkMagic__field_descriptor), + (Data.ProtoLens.Tag 18, protocolParams__field_descriptor), + (Data.ProtoLens.Tag 19, securityParam__field_descriptor), + (Data.ProtoLens.Tag 20, slotLength__field_descriptor), + (Data.ProtoLens.Tag 21, slotsPerKesPeriod__field_descriptor), + (Data.ProtoLens.Tag 22, systemStart__field_descriptor), + (Data.ProtoLens.Tag 23, updateQuorum__field_descriptor), + (Data.ProtoLens.Tag 24, lovelacePerUtxoWord__field_descriptor), + (Data.ProtoLens.Tag 25, executionPrices__field_descriptor), + (Data.ProtoLens.Tag 26, maxTxExUnits__field_descriptor), + (Data.ProtoLens.Tag 27, maxBlockExUnits__field_descriptor), + (Data.ProtoLens.Tag 28, maxValueSize__field_descriptor), + (Data.ProtoLens.Tag 29, collateralPercentage__field_descriptor), + (Data.ProtoLens.Tag 30, maxCollateralInputs__field_descriptor), + (Data.ProtoLens.Tag 31, costModels__field_descriptor), + (Data.ProtoLens.Tag 32, committee__field_descriptor), + (Data.ProtoLens.Tag 33, constitution__field_descriptor), + (Data.ProtoLens.Tag 34, committeeMinSize__field_descriptor), + (Data.ProtoLens.Tag 35, committeeMaxTermLength__field_descriptor), + (Data.ProtoLens.Tag 36, govActionLifetime__field_descriptor), + (Data.ProtoLens.Tag 37, govActionDeposit__field_descriptor), + (Data.ProtoLens.Tag 38, drepDeposit__field_descriptor), + (Data.ProtoLens.Tag 39, drepActivity__field_descriptor), + (Data.ProtoLens.Tag 40, + minFeeRefScriptCostPerByte__field_descriptor), + (Data.ProtoLens.Tag 41, drepVotingThresholds__field_descriptor), + (Data.ProtoLens.Tag 42, poolVotingThresholds__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'_unknownFields + (\ x__ y__ -> x__ {_Genesis'_unknownFields = y__}) + defMessage + = Genesis'_constructor + {_Genesis'avvmDistr = Data.Map.empty, + _Genesis'blockVersionData = Prelude.Nothing, + _Genesis'ftsSeed = Data.ProtoLens.fieldDefault, + _Genesis'protocolConsts = Prelude.Nothing, + _Genesis'startTime = Data.ProtoLens.fieldDefault, + _Genesis'bootStakeholders = Data.Map.empty, + _Genesis'heavyDelegation = Data.Map.empty, + _Genesis'nonAvvmBalances = Data.Map.empty, + _Genesis'vssCerts = Data.Map.empty, + _Genesis'activeSlotsCoeff = Prelude.Nothing, + _Genesis'epochLength = Data.ProtoLens.fieldDefault, + _Genesis'genDelegs = Data.Map.empty, + _Genesis'initialFunds = Data.Map.empty, + _Genesis'maxKesEvolutions = Data.ProtoLens.fieldDefault, + _Genesis'maxLovelaceSupply = Prelude.Nothing, + _Genesis'networkId = Data.ProtoLens.fieldDefault, + _Genesis'networkMagic = Data.ProtoLens.fieldDefault, + _Genesis'protocolParams = Prelude.Nothing, + _Genesis'securityParam = Data.ProtoLens.fieldDefault, + _Genesis'slotLength = Data.ProtoLens.fieldDefault, + _Genesis'slotsPerKesPeriod = Data.ProtoLens.fieldDefault, + _Genesis'systemStart = Data.ProtoLens.fieldDefault, + _Genesis'updateQuorum = Data.ProtoLens.fieldDefault, + _Genesis'lovelacePerUtxoWord = Prelude.Nothing, + _Genesis'executionPrices = Prelude.Nothing, + _Genesis'maxTxExUnits = Prelude.Nothing, + _Genesis'maxBlockExUnits = Prelude.Nothing, + _Genesis'maxValueSize = Data.ProtoLens.fieldDefault, + _Genesis'collateralPercentage = Data.ProtoLens.fieldDefault, + _Genesis'maxCollateralInputs = Data.ProtoLens.fieldDefault, + _Genesis'costModels = Prelude.Nothing, + _Genesis'committee = Prelude.Nothing, + _Genesis'constitution = Prelude.Nothing, + _Genesis'committeeMinSize = Data.ProtoLens.fieldDefault, + _Genesis'committeeMaxTermLength = Data.ProtoLens.fieldDefault, + _Genesis'govActionLifetime = Data.ProtoLens.fieldDefault, + _Genesis'govActionDeposit = Prelude.Nothing, + _Genesis'drepDeposit = Prelude.Nothing, + _Genesis'drepActivity = Data.ProtoLens.fieldDefault, + _Genesis'minFeeRefScriptCostPerByte = Prelude.Nothing, + _Genesis'drepVotingThresholds = Prelude.Nothing, + _Genesis'poolVotingThresholds = Prelude.Nothing, + _Genesis'_unknownFields = []} + parseMessage + = let + loop :: Genesis -> Data.ProtoLens.Encoding.Bytes.Parser Genesis + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !(entry :: Genesis'AvvmDistrEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "avvm_distr" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"avvmDistr") + (\ !t -> Data.Map.insert key value t) x)) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "block_version_data" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"blockVersionData") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "fts_seed" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ftsSeed") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "protocol_consts" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"protocolConsts") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "start_time" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"startTime") y x) + 50 + -> do !(entry :: Genesis'BootStakeholdersEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "boot_stakeholders" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"bootStakeholders") + (\ !t -> Data.Map.insert key value t) x)) + 58 + -> do !(entry :: Genesis'HeavyDelegationEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "heavy_delegation" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"heavyDelegation") + (\ !t -> Data.Map.insert key value t) x)) + 66 + -> do !(entry :: Genesis'NonAvvmBalancesEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "non_avvm_balances" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"nonAvvmBalances") + (\ !t -> Data.Map.insert key value t) x)) + 74 + -> do !(entry :: Genesis'VssCertsEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "vss_certs" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"vssCerts") + (\ !t -> Data.Map.insert key value t) x)) + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "active_slots_coeff" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"activeSlotsCoeff") y x) + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "epoch_length" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"epochLength") y x) + 98 + -> do !(entry :: Genesis'GenDelegsEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "gen_delegs" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"genDelegs") + (\ !t -> Data.Map.insert key value t) x)) + 106 + -> do !(entry :: Genesis'InitialFundsEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "initial_funds" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"initialFunds") + (\ !t -> Data.Map.insert key value t) x)) + 112 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_kes_evolutions" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxKesEvolutions") y x) + 122 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "max_lovelace_supply" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxLovelaceSupply") y x) + 130 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "network_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"networkId") y x) + 136 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "network_magic" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"networkMagic") y x) + 146 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "protocol_params" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"protocolParams") y x) + 152 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "security_param" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"securityParam") y x) + 160 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "slot_length" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"slotLength") y x) + 168 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "slots_per_kes_period" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"slotsPerKesPeriod") y x) + 178 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "system_start" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"systemStart") y x) + 184 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "update_quorum" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"updateQuorum") y x) + 194 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "lovelace_per_utxo_word" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"lovelacePerUtxoWord") y x) + 202 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "execution_prices" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"executionPrices") y x) + 210 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "max_tx_ex_units" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxTxExUnits") y x) + 218 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "max_block_ex_units" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxBlockExUnits") y x) + 224 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_value_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxValueSize") y x) + 232 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "collateral_percentage" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"collateralPercentage") y x) + 240 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_collateral_inputs" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxCollateralInputs") y x) + 250 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cost_models" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"costModels") y x) + 258 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"committee") y x) + 266 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "constitution" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"constitution") y x) + 272 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "committee_min_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeMinSize") y x) + 280 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "committee_max_term_length" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeMaxTermLength") y x) + 288 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "gov_action_lifetime" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"govActionLifetime") y x) + 298 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gov_action_deposit" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"govActionDeposit") y x) + 306 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep_deposit" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"drepDeposit") y x) + 312 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "drep_activity" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"drepActivity") y x) + 322 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "min_fee_ref_script_cost_per_byte" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minFeeRefScriptCostPerByte") y x) + 330 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep_voting_thresholds" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"drepVotingThresholds") y x) + 338 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_voting_thresholds" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolVotingThresholds") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Genesis" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: Genesis'AvvmDistrEntry))))) + (Data.Map.toList + (Lens.Family2.view (Data.ProtoLens.Field.field @"avvmDistr") _x)))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'blockVersionData") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ftsSeed") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'protocolConsts") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"startTime") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + Genesis'BootStakeholdersEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"bootStakeholders") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + Genesis'HeavyDelegationEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"heavyDelegation") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + Genesis'NonAvvmBalancesEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"nonAvvmBalances") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + Genesis'VssCertsEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vssCerts") _x)))) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'activeSlotsCoeff") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"epochLength") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 98) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field + @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field + @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + Genesis'GenDelegsEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"genDelegs") + _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 106) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field + @"key") + (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field + @"value") + (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + Genesis'InitialFundsEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field + @"initialFunds") + _x)))) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"maxKesEvolutions") + _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 112) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'maxLovelaceSupply") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 122) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"networkId") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 130) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"networkMagic") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 136) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'protocolParams") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 146) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"securityParam") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 152) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"slotLength") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 160) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"slotsPerKesPeriod") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 168) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"systemStart") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 178) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.Text.Encoding.encodeUtf8 + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"updateQuorum") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 184) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'lovelacePerUtxoWord") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 194) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'executionPrices") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 202) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'maxTxExUnits") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 210) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'maxBlockExUnits") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 218) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"maxValueSize") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 224) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"collateralPercentage") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 232) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"maxCollateralInputs") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 240) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'costModels") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 250) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'committee") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 258) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'constitution") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 266) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"committeeMinSize") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 272) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"committeeMaxTermLength") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 280) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"govActionLifetime") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 288) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'govActionDeposit") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 298) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'drepDeposit") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 306) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"drepActivity") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 312) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'minFeeRefScriptCostPerByte") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 322) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'drepVotingThresholds") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 330) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'poolVotingThresholds") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 338) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x))))))))))))))))))))))))))))))))))))))))))) +instance Control.DeepSeq.NFData Genesis where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'avvmDistr x__) + (Control.DeepSeq.deepseq + (_Genesis'blockVersionData x__) + (Control.DeepSeq.deepseq + (_Genesis'ftsSeed x__) + (Control.DeepSeq.deepseq + (_Genesis'protocolConsts x__) + (Control.DeepSeq.deepseq + (_Genesis'startTime x__) + (Control.DeepSeq.deepseq + (_Genesis'bootStakeholders x__) + (Control.DeepSeq.deepseq + (_Genesis'heavyDelegation x__) + (Control.DeepSeq.deepseq + (_Genesis'nonAvvmBalances x__) + (Control.DeepSeq.deepseq + (_Genesis'vssCerts x__) + (Control.DeepSeq.deepseq + (_Genesis'activeSlotsCoeff x__) + (Control.DeepSeq.deepseq + (_Genesis'epochLength x__) + (Control.DeepSeq.deepseq + (_Genesis'genDelegs x__) + (Control.DeepSeq.deepseq + (_Genesis'initialFunds x__) + (Control.DeepSeq.deepseq + (_Genesis'maxKesEvolutions x__) + (Control.DeepSeq.deepseq + (_Genesis'maxLovelaceSupply x__) + (Control.DeepSeq.deepseq + (_Genesis'networkId x__) + (Control.DeepSeq.deepseq + (_Genesis'networkMagic x__) + (Control.DeepSeq.deepseq + (_Genesis'protocolParams x__) + (Control.DeepSeq.deepseq + (_Genesis'securityParam x__) + (Control.DeepSeq.deepseq + (_Genesis'slotLength x__) + (Control.DeepSeq.deepseq + (_Genesis'slotsPerKesPeriod + x__) + (Control.DeepSeq.deepseq + (_Genesis'systemStart + x__) + (Control.DeepSeq.deepseq + (_Genesis'updateQuorum + x__) + (Control.DeepSeq.deepseq + (_Genesis'lovelacePerUtxoWord + x__) + (Control.DeepSeq.deepseq + (_Genesis'executionPrices + x__) + (Control.DeepSeq.deepseq + (_Genesis'maxTxExUnits + x__) + (Control.DeepSeq.deepseq + (_Genesis'maxBlockExUnits + x__) + (Control.DeepSeq.deepseq + (_Genesis'maxValueSize + x__) + (Control.DeepSeq.deepseq + (_Genesis'collateralPercentage + x__) + (Control.DeepSeq.deepseq + (_Genesis'maxCollateralInputs + x__) + (Control.DeepSeq.deepseq + (_Genesis'costModels + x__) + (Control.DeepSeq.deepseq + (_Genesis'committee + x__) + (Control.DeepSeq.deepseq + (_Genesis'constitution + x__) + (Control.DeepSeq.deepseq + (_Genesis'committeeMinSize + x__) + (Control.DeepSeq.deepseq + (_Genesis'committeeMaxTermLength + x__) + (Control.DeepSeq.deepseq + (_Genesis'govActionLifetime + x__) + (Control.DeepSeq.deepseq + (_Genesis'govActionDeposit + x__) + (Control.DeepSeq.deepseq + (_Genesis'drepDeposit + x__) + (Control.DeepSeq.deepseq + (_Genesis'drepActivity + x__) + (Control.DeepSeq.deepseq + (_Genesis'minFeeRefScriptCostPerByte + x__) + (Control.DeepSeq.deepseq + (_Genesis'drepVotingThresholds + x__) + (Control.DeepSeq.deepseq + (_Genesis'poolVotingThresholds + x__) + ())))))))))))))))))))))))))))))))))))))))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Genesis'AvvmDistrEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Genesis'AvvmDistrEntry Data.Text.Text@ -} +data Genesis'AvvmDistrEntry + = Genesis'AvvmDistrEntry'_constructor {_Genesis'AvvmDistrEntry'key :: !Data.Text.Text, + _Genesis'AvvmDistrEntry'value :: !Data.Text.Text, + _Genesis'AvvmDistrEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis'AvvmDistrEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis'AvvmDistrEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'AvvmDistrEntry'key + (\ x__ y__ -> x__ {_Genesis'AvvmDistrEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis'AvvmDistrEntry "value" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'AvvmDistrEntry'value + (\ x__ y__ -> x__ {_Genesis'AvvmDistrEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis'AvvmDistrEntry where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.Genesis.AvvmDistrEntry" + packedMessageDescriptor _ + = "\n\ + \\SOAvvmDistrEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Genesis'AvvmDistrEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor Genesis'AvvmDistrEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'AvvmDistrEntry'_unknownFields + (\ x__ y__ -> x__ {_Genesis'AvvmDistrEntry'_unknownFields = y__}) + defMessage + = Genesis'AvvmDistrEntry'_constructor + {_Genesis'AvvmDistrEntry'key = Data.ProtoLens.fieldDefault, + _Genesis'AvvmDistrEntry'value = Data.ProtoLens.fieldDefault, + _Genesis'AvvmDistrEntry'_unknownFields = []} + parseMessage + = let + loop :: + Genesis'AvvmDistrEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Genesis'AvvmDistrEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AvvmDistrEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Genesis'AvvmDistrEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'AvvmDistrEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'AvvmDistrEntry'key x__) + (Control.DeepSeq.deepseq (_Genesis'AvvmDistrEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Genesis'BootStakeholdersEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Genesis'BootStakeholdersEntry Data.Word.Word64@ -} +data Genesis'BootStakeholdersEntry + = Genesis'BootStakeholdersEntry'_constructor {_Genesis'BootStakeholdersEntry'key :: !Data.Text.Text, + _Genesis'BootStakeholdersEntry'value :: !Data.Word.Word64, + _Genesis'BootStakeholdersEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis'BootStakeholdersEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis'BootStakeholdersEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'BootStakeholdersEntry'key + (\ x__ y__ -> x__ {_Genesis'BootStakeholdersEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis'BootStakeholdersEntry "value" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'BootStakeholdersEntry'value + (\ x__ y__ -> x__ {_Genesis'BootStakeholdersEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis'BootStakeholdersEntry where + messageName _ + = Data.Text.pack + "utxorpc.v1beta.cardano.Genesis.BootStakeholdersEntry" + packedMessageDescriptor _ + = "\n\ + \\NAKBootStakeholdersEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Genesis'BootStakeholdersEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor Genesis'BootStakeholdersEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'BootStakeholdersEntry'_unknownFields + (\ x__ y__ + -> x__ {_Genesis'BootStakeholdersEntry'_unknownFields = y__}) + defMessage + = Genesis'BootStakeholdersEntry'_constructor + {_Genesis'BootStakeholdersEntry'key = Data.ProtoLens.fieldDefault, + _Genesis'BootStakeholdersEntry'value = Data.ProtoLens.fieldDefault, + _Genesis'BootStakeholdersEntry'_unknownFields = []} + parseMessage + = let + loop :: + Genesis'BootStakeholdersEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Genesis'BootStakeholdersEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "BootStakeholdersEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Genesis'BootStakeholdersEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'BootStakeholdersEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'BootStakeholdersEntry'key x__) + (Control.DeepSeq.deepseq + (_Genesis'BootStakeholdersEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Genesis'GenDelegsEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Genesis'GenDelegsEntry GenDelegs@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'value' @:: Lens' Genesis'GenDelegsEntry (Prelude.Maybe GenDelegs)@ -} +data Genesis'GenDelegsEntry + = Genesis'GenDelegsEntry'_constructor {_Genesis'GenDelegsEntry'key :: !Data.Text.Text, + _Genesis'GenDelegsEntry'value :: !(Prelude.Maybe GenDelegs), + _Genesis'GenDelegsEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis'GenDelegsEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis'GenDelegsEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'GenDelegsEntry'key + (\ x__ y__ -> x__ {_Genesis'GenDelegsEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis'GenDelegsEntry "value" GenDelegs where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'GenDelegsEntry'value + (\ x__ y__ -> x__ {_Genesis'GenDelegsEntry'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis'GenDelegsEntry "maybe'value" (Prelude.Maybe GenDelegs) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'GenDelegsEntry'value + (\ x__ y__ -> x__ {_Genesis'GenDelegsEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis'GenDelegsEntry where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.Genesis.GenDelegsEntry" + packedMessageDescriptor _ + = "\n\ + \\SOGenDelegsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC27\n\ + \\ENQvalue\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.GenDelegsR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Genesis'GenDelegsEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GenDelegs) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor Genesis'GenDelegsEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'GenDelegsEntry'_unknownFields + (\ x__ y__ -> x__ {_Genesis'GenDelegsEntry'_unknownFields = y__}) + defMessage + = Genesis'GenDelegsEntry'_constructor + {_Genesis'GenDelegsEntry'key = Data.ProtoLens.fieldDefault, + _Genesis'GenDelegsEntry'value = Prelude.Nothing, + _Genesis'GenDelegsEntry'_unknownFields = []} + parseMessage + = let + loop :: + Genesis'GenDelegsEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Genesis'GenDelegsEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "GenDelegsEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Genesis'GenDelegsEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'GenDelegsEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'GenDelegsEntry'key x__) + (Control.DeepSeq.deepseq (_Genesis'GenDelegsEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Genesis'HeavyDelegationEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Genesis'HeavyDelegationEntry HeavyDelegation@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'value' @:: Lens' Genesis'HeavyDelegationEntry (Prelude.Maybe HeavyDelegation)@ -} +data Genesis'HeavyDelegationEntry + = Genesis'HeavyDelegationEntry'_constructor {_Genesis'HeavyDelegationEntry'key :: !Data.Text.Text, + _Genesis'HeavyDelegationEntry'value :: !(Prelude.Maybe HeavyDelegation), + _Genesis'HeavyDelegationEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis'HeavyDelegationEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis'HeavyDelegationEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'HeavyDelegationEntry'key + (\ x__ y__ -> x__ {_Genesis'HeavyDelegationEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis'HeavyDelegationEntry "value" HeavyDelegation where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'HeavyDelegationEntry'value + (\ x__ y__ -> x__ {_Genesis'HeavyDelegationEntry'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis'HeavyDelegationEntry "maybe'value" (Prelude.Maybe HeavyDelegation) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'HeavyDelegationEntry'value + (\ x__ y__ -> x__ {_Genesis'HeavyDelegationEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis'HeavyDelegationEntry where + messageName _ + = Data.Text.pack + "utxorpc.v1beta.cardano.Genesis.HeavyDelegationEntry" + packedMessageDescriptor _ + = "\n\ + \\DC4HeavyDelegationEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\ + \\ENQvalue\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.HeavyDelegationR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Genesis'HeavyDelegationEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor HeavyDelegation) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor Genesis'HeavyDelegationEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'HeavyDelegationEntry'_unknownFields + (\ x__ y__ + -> x__ {_Genesis'HeavyDelegationEntry'_unknownFields = y__}) + defMessage + = Genesis'HeavyDelegationEntry'_constructor + {_Genesis'HeavyDelegationEntry'key = Data.ProtoLens.fieldDefault, + _Genesis'HeavyDelegationEntry'value = Prelude.Nothing, + _Genesis'HeavyDelegationEntry'_unknownFields = []} + parseMessage + = let + loop :: + Genesis'HeavyDelegationEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Genesis'HeavyDelegationEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "HeavyDelegationEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Genesis'HeavyDelegationEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'HeavyDelegationEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'HeavyDelegationEntry'key x__) + (Control.DeepSeq.deepseq + (_Genesis'HeavyDelegationEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Genesis'InitialFundsEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Genesis'InitialFundsEntry BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'value' @:: Lens' Genesis'InitialFundsEntry (Prelude.Maybe BigInt)@ -} +data Genesis'InitialFundsEntry + = Genesis'InitialFundsEntry'_constructor {_Genesis'InitialFundsEntry'key :: !Data.Text.Text, + _Genesis'InitialFundsEntry'value :: !(Prelude.Maybe BigInt), + _Genesis'InitialFundsEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis'InitialFundsEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis'InitialFundsEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'InitialFundsEntry'key + (\ x__ y__ -> x__ {_Genesis'InitialFundsEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis'InitialFundsEntry "value" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'InitialFundsEntry'value + (\ x__ y__ -> x__ {_Genesis'InitialFundsEntry'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis'InitialFundsEntry "maybe'value" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'InitialFundsEntry'value + (\ x__ y__ -> x__ {_Genesis'InitialFundsEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis'InitialFundsEntry where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.Genesis.InitialFundsEntry" + packedMessageDescriptor _ + = "\n\ + \\DC1InitialFundsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC24\n\ + \\ENQvalue\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Genesis'InitialFundsEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor Genesis'InitialFundsEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'InitialFundsEntry'_unknownFields + (\ x__ y__ + -> x__ {_Genesis'InitialFundsEntry'_unknownFields = y__}) + defMessage + = Genesis'InitialFundsEntry'_constructor + {_Genesis'InitialFundsEntry'key = Data.ProtoLens.fieldDefault, + _Genesis'InitialFundsEntry'value = Prelude.Nothing, + _Genesis'InitialFundsEntry'_unknownFields = []} + parseMessage + = let + loop :: + Genesis'InitialFundsEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Genesis'InitialFundsEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "InitialFundsEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Genesis'InitialFundsEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'InitialFundsEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'InitialFundsEntry'key x__) + (Control.DeepSeq.deepseq + (_Genesis'InitialFundsEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Genesis'NonAvvmBalancesEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Genesis'NonAvvmBalancesEntry Data.Text.Text@ -} +data Genesis'NonAvvmBalancesEntry + = Genesis'NonAvvmBalancesEntry'_constructor {_Genesis'NonAvvmBalancesEntry'key :: !Data.Text.Text, + _Genesis'NonAvvmBalancesEntry'value :: !Data.Text.Text, + _Genesis'NonAvvmBalancesEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis'NonAvvmBalancesEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis'NonAvvmBalancesEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'NonAvvmBalancesEntry'key + (\ x__ y__ -> x__ {_Genesis'NonAvvmBalancesEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis'NonAvvmBalancesEntry "value" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'NonAvvmBalancesEntry'value + (\ x__ y__ -> x__ {_Genesis'NonAvvmBalancesEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis'NonAvvmBalancesEntry where + messageName _ + = Data.Text.pack + "utxorpc.v1beta.cardano.Genesis.NonAvvmBalancesEntry" + packedMessageDescriptor _ + = "\n\ + \\DC4NonAvvmBalancesEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Genesis'NonAvvmBalancesEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor Genesis'NonAvvmBalancesEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'NonAvvmBalancesEntry'_unknownFields + (\ x__ y__ + -> x__ {_Genesis'NonAvvmBalancesEntry'_unknownFields = y__}) + defMessage + = Genesis'NonAvvmBalancesEntry'_constructor + {_Genesis'NonAvvmBalancesEntry'key = Data.ProtoLens.fieldDefault, + _Genesis'NonAvvmBalancesEntry'value = Data.ProtoLens.fieldDefault, + _Genesis'NonAvvmBalancesEntry'_unknownFields = []} + parseMessage + = let + loop :: + Genesis'NonAvvmBalancesEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Genesis'NonAvvmBalancesEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NonAvvmBalancesEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Genesis'NonAvvmBalancesEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'NonAvvmBalancesEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'NonAvvmBalancesEntry'key x__) + (Control.DeepSeq.deepseq + (_Genesis'NonAvvmBalancesEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' Genesis'VssCertsEntry Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Genesis'VssCertsEntry VssCert@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'value' @:: Lens' Genesis'VssCertsEntry (Prelude.Maybe VssCert)@ -} +data Genesis'VssCertsEntry + = Genesis'VssCertsEntry'_constructor {_Genesis'VssCertsEntry'key :: !Data.Text.Text, + _Genesis'VssCertsEntry'value :: !(Prelude.Maybe VssCert), + _Genesis'VssCertsEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Genesis'VssCertsEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Genesis'VssCertsEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'VssCertsEntry'key + (\ x__ y__ -> x__ {_Genesis'VssCertsEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Genesis'VssCertsEntry "value" VssCert where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'VssCertsEntry'value + (\ x__ y__ -> x__ {_Genesis'VssCertsEntry'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Genesis'VssCertsEntry "maybe'value" (Prelude.Maybe VssCert) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Genesis'VssCertsEntry'value + (\ x__ y__ -> x__ {_Genesis'VssCertsEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Genesis'VssCertsEntry where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.Genesis.VssCertsEntry" + packedMessageDescriptor _ + = "\n\ + \\rVssCertsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\ + \\ENQvalue\CAN\STX \SOH(\v2\US.utxorpc.v1beta.cardano.VssCertR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor Genesis'VssCertsEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor VssCert) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor Genesis'VssCertsEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Genesis'VssCertsEntry'_unknownFields + (\ x__ y__ -> x__ {_Genesis'VssCertsEntry'_unknownFields = y__}) + defMessage + = Genesis'VssCertsEntry'_constructor + {_Genesis'VssCertsEntry'key = Data.ProtoLens.fieldDefault, + _Genesis'VssCertsEntry'value = Prelude.Nothing, + _Genesis'VssCertsEntry'_unknownFields = []} + parseMessage + = let + loop :: + Genesis'VssCertsEntry + -> Data.ProtoLens.Encoding.Bytes.Parser Genesis'VssCertsEntry + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "VssCertsEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Genesis'VssCertsEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Genesis'VssCertsEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Genesis'VssCertsEntry'key x__) + (Control.DeepSeq.deepseq (_Genesis'VssCertsEntry'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.genesisHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.genesisDelegateHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@ -} +data GenesisKeyDelegationCert + = GenesisKeyDelegationCert'_constructor {_GenesisKeyDelegationCert'genesisHash :: !Data.ByteString.ByteString, + _GenesisKeyDelegationCert'genesisDelegateHash :: !Data.ByteString.ByteString, + _GenesisKeyDelegationCert'vrfKeyhash :: !Data.ByteString.ByteString, + _GenesisKeyDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show GenesisKeyDelegationCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GenesisKeyDelegationCert'genesisHash + (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'genesisHash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisDelegateHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GenesisKeyDelegationCert'genesisDelegateHash + (\ x__ y__ + -> x__ {_GenesisKeyDelegationCert'genesisDelegateHash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "vrfKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GenesisKeyDelegationCert'vrfKeyhash + (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'vrfKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Message GenesisKeyDelegationCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.GenesisKeyDelegationCert" + packedMessageDescriptor _ + = "\n\ + \\CANGenesisKeyDelegationCert\DC2!\n\ + \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\ + \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\ + \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\ + \vrfKeyhash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + genesisHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "genesis_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"genesisHash")) :: + Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert + genesisDelegateHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "genesis_delegate_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"genesisDelegateHash")) :: + Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert + vrfKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vrf_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"vrfKeyhash")) :: + Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, genesisHash__field_descriptor), + (Data.ProtoLens.Tag 2, genesisDelegateHash__field_descriptor), + (Data.ProtoLens.Tag 3, vrfKeyhash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _GenesisKeyDelegationCert'_unknownFields + (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'_unknownFields = y__}) + defMessage + = GenesisKeyDelegationCert'_constructor + {_GenesisKeyDelegationCert'genesisHash = Data.ProtoLens.fieldDefault, + _GenesisKeyDelegationCert'genesisDelegateHash = Data.ProtoLens.fieldDefault, + _GenesisKeyDelegationCert'vrfKeyhash = Data.ProtoLens.fieldDefault, + _GenesisKeyDelegationCert'_unknownFields = []} + parseMessage + = let + loop :: + GenesisKeyDelegationCert + -> Data.ProtoLens.Encoding.Bytes.Parser GenesisKeyDelegationCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "genesis_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"genesisHash") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "genesis_delegate_hash" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"genesisDelegateHash") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vrf_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vrfKeyhash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "GenesisKeyDelegationCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"genesisHash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"genesisDelegateHash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"vrfKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData GenesisKeyDelegationCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_GenesisKeyDelegationCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_GenesisKeyDelegationCert'genesisHash x__) + (Control.DeepSeq.deepseq + (_GenesisKeyDelegationCert'genesisDelegateHash x__) + (Control.DeepSeq.deepseq + (_GenesisKeyDelegationCert'vrfKeyhash x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'governanceAction' @:: Lens' GovernanceAction (Prelude.Maybe GovernanceAction'GovernanceAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'parameterChangeAction' @:: Lens' GovernanceAction (Prelude.Maybe ParameterChangeAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.parameterChangeAction' @:: Lens' GovernanceAction ParameterChangeAction@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'hardForkInitiationAction' @:: Lens' GovernanceAction (Prelude.Maybe HardForkInitiationAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hardForkInitiationAction' @:: Lens' GovernanceAction HardForkInitiationAction@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'treasuryWithdrawalsAction' @:: Lens' GovernanceAction (Prelude.Maybe TreasuryWithdrawalsAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.treasuryWithdrawalsAction' @:: Lens' GovernanceAction TreasuryWithdrawalsAction@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'noConfidenceAction' @:: Lens' GovernanceAction (Prelude.Maybe NoConfidenceAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.noConfidenceAction' @:: Lens' GovernanceAction NoConfidenceAction@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'updateCommitteeAction' @:: Lens' GovernanceAction (Prelude.Maybe UpdateCommitteeAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.updateCommitteeAction' @:: Lens' GovernanceAction UpdateCommitteeAction@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'newConstitutionAction' @:: Lens' GovernanceAction (Prelude.Maybe NewConstitutionAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.newConstitutionAction' @:: Lens' GovernanceAction NewConstitutionAction@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'infoAction' @:: Lens' GovernanceAction (Prelude.Maybe InfoAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.infoAction' @:: Lens' GovernanceAction InfoAction@ -} +data GovernanceAction + = GovernanceAction'_constructor {_GovernanceAction'governanceAction :: !(Prelude.Maybe GovernanceAction'GovernanceAction), + _GovernanceAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show GovernanceAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data GovernanceAction'GovernanceAction + = GovernanceAction'ParameterChangeAction !ParameterChangeAction | + GovernanceAction'HardForkInitiationAction !HardForkInitiationAction | + GovernanceAction'TreasuryWithdrawalsAction !TreasuryWithdrawalsAction | + GovernanceAction'NoConfidenceAction !NoConfidenceAction | + GovernanceAction'UpdateCommitteeAction !UpdateCommitteeAction | + GovernanceAction'NewConstitutionAction !NewConstitutionAction | + GovernanceAction'InfoAction !InfoAction + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'governanceAction" (Prelude.Maybe GovernanceAction'GovernanceAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'parameterChangeAction" (Prelude.Maybe ParameterChangeAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'ParameterChangeAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'ParameterChangeAction y__)) +instance Data.ProtoLens.Field.HasField GovernanceAction "parameterChangeAction" ParameterChangeAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'ParameterChangeAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'ParameterChangeAction y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'hardForkInitiationAction" (Prelude.Maybe HardForkInitiationAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'HardForkInitiationAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'HardForkInitiationAction y__)) +instance Data.ProtoLens.Field.HasField GovernanceAction "hardForkInitiationAction" HardForkInitiationAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'HardForkInitiationAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'HardForkInitiationAction y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'treasuryWithdrawalsAction" (Prelude.Maybe TreasuryWithdrawalsAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'TreasuryWithdrawalsAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'TreasuryWithdrawalsAction y__)) +instance Data.ProtoLens.Field.HasField GovernanceAction "treasuryWithdrawalsAction" TreasuryWithdrawalsAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'TreasuryWithdrawalsAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'TreasuryWithdrawalsAction y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'noConfidenceAction" (Prelude.Maybe NoConfidenceAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'NoConfidenceAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap GovernanceAction'NoConfidenceAction y__)) +instance Data.ProtoLens.Field.HasField GovernanceAction "noConfidenceAction" NoConfidenceAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'NoConfidenceAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap GovernanceAction'NoConfidenceAction y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'updateCommitteeAction" (Prelude.Maybe UpdateCommitteeAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'UpdateCommitteeAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'UpdateCommitteeAction y__)) +instance Data.ProtoLens.Field.HasField GovernanceAction "updateCommitteeAction" UpdateCommitteeAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'UpdateCommitteeAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'UpdateCommitteeAction y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'newConstitutionAction" (Prelude.Maybe NewConstitutionAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'NewConstitutionAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'NewConstitutionAction y__)) +instance Data.ProtoLens.Field.HasField GovernanceAction "newConstitutionAction" NewConstitutionAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'NewConstitutionAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ + -> Prelude.fmap GovernanceAction'NewConstitutionAction y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField GovernanceAction "maybe'infoAction" (Prelude.Maybe InfoAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'InfoAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap GovernanceAction'InfoAction y__)) +instance Data.ProtoLens.Field.HasField GovernanceAction "infoAction" InfoAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceAction'governanceAction + (\ x__ y__ -> x__ {_GovernanceAction'governanceAction = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (GovernanceAction'InfoAction x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap GovernanceAction'InfoAction y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message GovernanceAction where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.GovernanceAction" + packedMessageDescriptor _ + = "\n\ + \\DLEGovernanceAction\DC2g\n\ + \\ETBparameter_change_action\CAN\SOH \SOH(\v2-.utxorpc.v1beta.cardano.ParameterChangeActionH\NULR\NAKparameterChangeAction\DC2q\n\ + \\ESChard_fork_initiation_action\CAN\STX \SOH(\v20.utxorpc.v1beta.cardano.HardForkInitiationActionH\NULR\CANhardForkInitiationAction\DC2s\n\ + \\ESCtreasury_withdrawals_action\CAN\ETX \SOH(\v21.utxorpc.v1beta.cardano.TreasuryWithdrawalsActionH\NULR\EMtreasuryWithdrawalsAction\DC2^\n\ + \\DC4no_confidence_action\CAN\EOT \SOH(\v2*.utxorpc.v1beta.cardano.NoConfidenceActionH\NULR\DC2noConfidenceAction\DC2g\n\ + \\ETBupdate_committee_action\CAN\ENQ \SOH(\v2-.utxorpc.v1beta.cardano.UpdateCommitteeActionH\NULR\NAKupdateCommitteeAction\DC2g\n\ + \\ETBnew_constitution_action\CAN\ACK \SOH(\v2-.utxorpc.v1beta.cardano.NewConstitutionActionH\NULR\NAKnewConstitutionAction\DC2E\n\ + \\vinfo_action\CAN\a \SOH(\v2\".utxorpc.v1beta.cardano.InfoActionH\NULR\n\ + \infoActionB\DC3\n\ + \\DC1governance_action" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + parameterChangeAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "parameter_change_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ParameterChangeAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'parameterChangeAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceAction + hardForkInitiationAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hard_fork_initiation_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor HardForkInitiationAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hardForkInitiationAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceAction + treasuryWithdrawalsAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "treasury_withdrawals_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TreasuryWithdrawalsAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'treasuryWithdrawalsAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceAction + noConfidenceAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "no_confidence_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NoConfidenceAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'noConfidenceAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceAction + updateCommitteeAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "update_committee_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UpdateCommitteeAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'updateCommitteeAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceAction + newConstitutionAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "new_constitution_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NewConstitutionAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'newConstitutionAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceAction + infoAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "info_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor InfoAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'infoAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceAction + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, parameterChangeAction__field_descriptor), + (Data.ProtoLens.Tag 2, hardForkInitiationAction__field_descriptor), + (Data.ProtoLens.Tag 3, + treasuryWithdrawalsAction__field_descriptor), + (Data.ProtoLens.Tag 4, noConfidenceAction__field_descriptor), + (Data.ProtoLens.Tag 5, updateCommitteeAction__field_descriptor), + (Data.ProtoLens.Tag 6, newConstitutionAction__field_descriptor), + (Data.ProtoLens.Tag 7, infoAction__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _GovernanceAction'_unknownFields + (\ x__ y__ -> x__ {_GovernanceAction'_unknownFields = y__}) + defMessage + = GovernanceAction'_constructor + {_GovernanceAction'governanceAction = Prelude.Nothing, + _GovernanceAction'_unknownFields = []} + parseMessage + = let + loop :: + GovernanceAction + -> Data.ProtoLens.Encoding.Bytes.Parser GovernanceAction + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "parameter_change_action" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"parameterChangeAction") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "hard_fork_initiation_action" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"hardForkInitiationAction") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "treasury_withdrawals_action" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"treasuryWithdrawalsAction") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "no_confidence_action" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"noConfidenceAction") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "update_committee_action" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"updateCommitteeAction") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "new_constitution_action" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"newConstitutionAction") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "info_action" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"infoAction") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "GovernanceAction" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'governanceAction") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (GovernanceAction'ParameterChangeAction v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (GovernanceAction'HardForkInitiationAction v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (GovernanceAction'TreasuryWithdrawalsAction v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (GovernanceAction'NoConfidenceAction v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (GovernanceAction'UpdateCommitteeAction v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (GovernanceAction'NewConstitutionAction v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (GovernanceAction'InfoAction v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData GovernanceAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_GovernanceAction'_unknownFields x__) + (Control.DeepSeq.deepseq + (_GovernanceAction'governanceAction x__) ()) +instance Control.DeepSeq.NFData GovernanceAction'GovernanceAction where + rnf (GovernanceAction'ParameterChangeAction x__) + = Control.DeepSeq.rnf x__ + rnf (GovernanceAction'HardForkInitiationAction x__) + = Control.DeepSeq.rnf x__ + rnf (GovernanceAction'TreasuryWithdrawalsAction x__) + = Control.DeepSeq.rnf x__ + rnf (GovernanceAction'NoConfidenceAction x__) + = Control.DeepSeq.rnf x__ + rnf (GovernanceAction'UpdateCommitteeAction x__) + = Control.DeepSeq.rnf x__ + rnf (GovernanceAction'NewConstitutionAction x__) + = Control.DeepSeq.rnf x__ + rnf (GovernanceAction'InfoAction x__) = Control.DeepSeq.rnf x__ +_GovernanceAction'ParameterChangeAction :: + Data.ProtoLens.Prism.Prism' GovernanceAction'GovernanceAction ParameterChangeAction +_GovernanceAction'ParameterChangeAction + = Data.ProtoLens.Prism.prism' + GovernanceAction'ParameterChangeAction + (\ p__ + -> case p__ of + (GovernanceAction'ParameterChangeAction p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_GovernanceAction'HardForkInitiationAction :: + Data.ProtoLens.Prism.Prism' GovernanceAction'GovernanceAction HardForkInitiationAction +_GovernanceAction'HardForkInitiationAction + = Data.ProtoLens.Prism.prism' + GovernanceAction'HardForkInitiationAction + (\ p__ + -> case p__ of + (GovernanceAction'HardForkInitiationAction p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_GovernanceAction'TreasuryWithdrawalsAction :: + Data.ProtoLens.Prism.Prism' GovernanceAction'GovernanceAction TreasuryWithdrawalsAction +_GovernanceAction'TreasuryWithdrawalsAction + = Data.ProtoLens.Prism.prism' + GovernanceAction'TreasuryWithdrawalsAction + (\ p__ + -> case p__ of + (GovernanceAction'TreasuryWithdrawalsAction p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_GovernanceAction'NoConfidenceAction :: + Data.ProtoLens.Prism.Prism' GovernanceAction'GovernanceAction NoConfidenceAction +_GovernanceAction'NoConfidenceAction + = Data.ProtoLens.Prism.prism' + GovernanceAction'NoConfidenceAction + (\ p__ + -> case p__ of + (GovernanceAction'NoConfidenceAction p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_GovernanceAction'UpdateCommitteeAction :: + Data.ProtoLens.Prism.Prism' GovernanceAction'GovernanceAction UpdateCommitteeAction +_GovernanceAction'UpdateCommitteeAction + = Data.ProtoLens.Prism.prism' + GovernanceAction'UpdateCommitteeAction + (\ p__ + -> case p__ of + (GovernanceAction'UpdateCommitteeAction p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_GovernanceAction'NewConstitutionAction :: + Data.ProtoLens.Prism.Prism' GovernanceAction'GovernanceAction NewConstitutionAction +_GovernanceAction'NewConstitutionAction + = Data.ProtoLens.Prism.prism' + GovernanceAction'NewConstitutionAction + (\ p__ + -> case p__ of + (GovernanceAction'NewConstitutionAction p__val) + -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_GovernanceAction'InfoAction :: + Data.ProtoLens.Prism.Prism' GovernanceAction'GovernanceAction InfoAction +_GovernanceAction'InfoAction + = Data.ProtoLens.Prism.prism' + GovernanceAction'InfoAction + (\ p__ + -> case p__ of + (GovernanceAction'InfoAction p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.transactionId' @:: Lens' GovernanceActionId Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.governanceActionIndex' @:: Lens' GovernanceActionId Data.Word.Word32@ -} +data GovernanceActionId + = GovernanceActionId'_constructor {_GovernanceActionId'transactionId :: !Data.ByteString.ByteString, + _GovernanceActionId'governanceActionIndex :: !Data.Word.Word32, + _GovernanceActionId'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show GovernanceActionId where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField GovernanceActionId "transactionId" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionId'transactionId + (\ x__ y__ -> x__ {_GovernanceActionId'transactionId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GovernanceActionId "governanceActionIndex" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionId'governanceActionIndex + (\ x__ y__ + -> x__ {_GovernanceActionId'governanceActionIndex = y__})) + Prelude.id +instance Data.ProtoLens.Message GovernanceActionId where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.GovernanceActionId" + packedMessageDescriptor _ + = "\n\ + \\DC2GovernanceActionId\DC2%\n\ + \\SOtransaction_id\CAN\SOH \SOH(\fR\rtransactionId\DC26\n\ + \\ETBgovernance_action_index\CAN\STX \SOH(\rR\NAKgovernanceActionIndex" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + transactionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "transaction_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"transactionId")) :: + Data.ProtoLens.FieldDescriptor GovernanceActionId + governanceActionIndex__field_descriptor + = Data.ProtoLens.FieldDescriptor + "governance_action_index" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"governanceActionIndex")) :: + Data.ProtoLens.FieldDescriptor GovernanceActionId + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, transactionId__field_descriptor), + (Data.ProtoLens.Tag 2, governanceActionIndex__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _GovernanceActionId'_unknownFields + (\ x__ y__ -> x__ {_GovernanceActionId'_unknownFields = y__}) + defMessage + = GovernanceActionId'_constructor + {_GovernanceActionId'transactionId = Data.ProtoLens.fieldDefault, + _GovernanceActionId'governanceActionIndex = Data.ProtoLens.fieldDefault, + _GovernanceActionId'_unknownFields = []} + parseMessage + = let + loop :: + GovernanceActionId + -> Data.ProtoLens.Encoding.Bytes.Parser GovernanceActionId + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "transaction_id" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"transactionId") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "governance_action_index" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"governanceActionIndex") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "GovernanceActionId" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"transactionId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"governanceActionIndex") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData GovernanceActionId where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_GovernanceActionId'_unknownFields x__) + (Control.DeepSeq.deepseq + (_GovernanceActionId'transactionId x__) + (Control.DeepSeq.deepseq + (_GovernanceActionId'governanceActionIndex x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.deposit' @:: Lens' GovernanceActionProposal BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'deposit' @:: Lens' GovernanceActionProposal (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.rewardAccount' @:: Lens' GovernanceActionProposal Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govAction' @:: Lens' GovernanceActionProposal GovernanceAction@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'govAction' @:: Lens' GovernanceActionProposal (Prelude.Maybe GovernanceAction)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anchor' @:: Lens' GovernanceActionProposal Anchor@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anchor' @:: Lens' GovernanceActionProposal (Prelude.Maybe Anchor)@ -} +data GovernanceActionProposal + = GovernanceActionProposal'_constructor {_GovernanceActionProposal'deposit :: !(Prelude.Maybe BigInt), + _GovernanceActionProposal'rewardAccount :: !Data.ByteString.ByteString, + _GovernanceActionProposal'govAction :: !(Prelude.Maybe GovernanceAction), + _GovernanceActionProposal'anchor :: !(Prelude.Maybe Anchor), + _GovernanceActionProposal'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show GovernanceActionProposal where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField GovernanceActionProposal "deposit" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionProposal'deposit + (\ x__ y__ -> x__ {_GovernanceActionProposal'deposit = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField GovernanceActionProposal "maybe'deposit" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionProposal'deposit + (\ x__ y__ -> x__ {_GovernanceActionProposal'deposit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GovernanceActionProposal "rewardAccount" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionProposal'rewardAccount + (\ x__ y__ -> x__ {_GovernanceActionProposal'rewardAccount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GovernanceActionProposal "govAction" GovernanceAction where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionProposal'govAction + (\ x__ y__ -> x__ {_GovernanceActionProposal'govAction = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField GovernanceActionProposal "maybe'govAction" (Prelude.Maybe GovernanceAction) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionProposal'govAction + (\ x__ y__ -> x__ {_GovernanceActionProposal'govAction = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField GovernanceActionProposal "anchor" Anchor where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionProposal'anchor + (\ x__ y__ -> x__ {_GovernanceActionProposal'anchor = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField GovernanceActionProposal "maybe'anchor" (Prelude.Maybe Anchor) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _GovernanceActionProposal'anchor + (\ x__ y__ -> x__ {_GovernanceActionProposal'anchor = y__})) + Prelude.id +instance Data.ProtoLens.Message GovernanceActionProposal where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.GovernanceActionProposal" + packedMessageDescriptor _ + = "\n\ + \\CANGovernanceActionProposal\DC28\n\ + \\adeposit\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\adeposit\DC2%\n\ + \\SOreward_account\CAN\STX \SOH(\fR\rrewardAccount\DC2G\n\ + \\n\ + \gov_action\CAN\ETX \SOH(\v2(.utxorpc.v1beta.cardano.GovernanceActionR\tgovAction\DC26\n\ + \\ACKanchor\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + deposit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "deposit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'deposit")) :: + Data.ProtoLens.FieldDescriptor GovernanceActionProposal + rewardAccount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reward_account" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"rewardAccount")) :: + Data.ProtoLens.FieldDescriptor GovernanceActionProposal + govAction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GovernanceAction) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'govAction")) :: + Data.ProtoLens.FieldDescriptor GovernanceActionProposal + anchor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "anchor" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Anchor) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anchor")) :: + Data.ProtoLens.FieldDescriptor GovernanceActionProposal + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, deposit__field_descriptor), + (Data.ProtoLens.Tag 2, rewardAccount__field_descriptor), + (Data.ProtoLens.Tag 3, govAction__field_descriptor), + (Data.ProtoLens.Tag 4, anchor__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _GovernanceActionProposal'_unknownFields + (\ x__ y__ -> x__ {_GovernanceActionProposal'_unknownFields = y__}) + defMessage + = GovernanceActionProposal'_constructor + {_GovernanceActionProposal'deposit = Prelude.Nothing, + _GovernanceActionProposal'rewardAccount = Data.ProtoLens.fieldDefault, + _GovernanceActionProposal'govAction = Prelude.Nothing, + _GovernanceActionProposal'anchor = Prelude.Nothing, + _GovernanceActionProposal'_unknownFields = []} + parseMessage + = let + loop :: + GovernanceActionProposal + -> Data.ProtoLens.Encoding.Bytes.Parser GovernanceActionProposal + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "deposit" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"deposit") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "reward_account" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"rewardAccount") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gov_action" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"govAction") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "anchor" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anchor") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "GovernanceActionProposal" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deposit") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"rewardAccount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'govAction") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'anchor") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData GovernanceActionProposal where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_GovernanceActionProposal'_unknownFields x__) + (Control.DeepSeq.deepseq + (_GovernanceActionProposal'deposit x__) + (Control.DeepSeq.deepseq + (_GovernanceActionProposal'rewardAccount x__) + (Control.DeepSeq.deepseq + (_GovernanceActionProposal'govAction x__) + (Control.DeepSeq.deepseq + (_GovernanceActionProposal'anchor x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govActionId' @:: Lens' HardForkInitiationAction GovernanceActionId@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'govActionId' @:: Lens' HardForkInitiationAction (Prelude.Maybe GovernanceActionId)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolVersion' @:: Lens' HardForkInitiationAction ProtocolVersion@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'protocolVersion' @:: Lens' HardForkInitiationAction (Prelude.Maybe ProtocolVersion)@ -} +data HardForkInitiationAction + = HardForkInitiationAction'_constructor {_HardForkInitiationAction'govActionId :: !(Prelude.Maybe GovernanceActionId), + _HardForkInitiationAction'protocolVersion :: !(Prelude.Maybe ProtocolVersion), + _HardForkInitiationAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show HardForkInitiationAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField HardForkInitiationAction "govActionId" GovernanceActionId where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HardForkInitiationAction'govActionId + (\ x__ y__ -> x__ {_HardForkInitiationAction'govActionId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField HardForkInitiationAction "maybe'govActionId" (Prelude.Maybe GovernanceActionId) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HardForkInitiationAction'govActionId + (\ x__ y__ -> x__ {_HardForkInitiationAction'govActionId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField HardForkInitiationAction "protocolVersion" ProtocolVersion where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HardForkInitiationAction'protocolVersion + (\ x__ y__ + -> x__ {_HardForkInitiationAction'protocolVersion = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField HardForkInitiationAction "maybe'protocolVersion" (Prelude.Maybe ProtocolVersion) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HardForkInitiationAction'protocolVersion + (\ x__ y__ + -> x__ {_HardForkInitiationAction'protocolVersion = y__})) + Prelude.id +instance Data.ProtoLens.Message HardForkInitiationAction where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.HardForkInitiationAction" + packedMessageDescriptor _ + = "\n\ + \\CANHardForkInitiationAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2R\n\ + \\DLEprotocol_version\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.ProtocolVersionR\SIprotocolVersion" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + govActionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GovernanceActionId) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'govActionId")) :: + Data.ProtoLens.FieldDescriptor HardForkInitiationAction + protocolVersion__field_descriptor + = Data.ProtoLens.FieldDescriptor + "protocol_version" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ProtocolVersion) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'protocolVersion")) :: + Data.ProtoLens.FieldDescriptor HardForkInitiationAction + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, govActionId__field_descriptor), + (Data.ProtoLens.Tag 2, protocolVersion__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _HardForkInitiationAction'_unknownFields + (\ x__ y__ -> x__ {_HardForkInitiationAction'_unknownFields = y__}) + defMessage + = HardForkInitiationAction'_constructor + {_HardForkInitiationAction'govActionId = Prelude.Nothing, + _HardForkInitiationAction'protocolVersion = Prelude.Nothing, + _HardForkInitiationAction'_unknownFields = []} + parseMessage + = let + loop :: + HardForkInitiationAction + -> Data.ProtoLens.Encoding.Bytes.Parser HardForkInitiationAction + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gov_action_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"govActionId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "protocol_version" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"protocolVersion") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "HardForkInitiationAction" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'govActionId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'protocolVersion") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData HardForkInitiationAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_HardForkInitiationAction'_unknownFields x__) + (Control.DeepSeq.deepseq + (_HardForkInitiationAction'govActionId x__) + (Control.DeepSeq.deepseq + (_HardForkInitiationAction'protocolVersion x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.cert' @:: Lens' HeavyDelegation Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.delegatePk' @:: Lens' HeavyDelegation Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.issuerPk' @:: Lens' HeavyDelegation Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.omega' @:: Lens' HeavyDelegation Data.Word.Word32@ -} +data HeavyDelegation + = HeavyDelegation'_constructor {_HeavyDelegation'cert :: !Data.Text.Text, + _HeavyDelegation'delegatePk :: !Data.Text.Text, + _HeavyDelegation'issuerPk :: !Data.Text.Text, + _HeavyDelegation'omega :: !Data.Word.Word32, + _HeavyDelegation'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show HeavyDelegation where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField HeavyDelegation "cert" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HeavyDelegation'cert + (\ x__ y__ -> x__ {_HeavyDelegation'cert = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField HeavyDelegation "delegatePk" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HeavyDelegation'delegatePk + (\ x__ y__ -> x__ {_HeavyDelegation'delegatePk = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField HeavyDelegation "issuerPk" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HeavyDelegation'issuerPk + (\ x__ y__ -> x__ {_HeavyDelegation'issuerPk = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField HeavyDelegation "omega" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HeavyDelegation'omega + (\ x__ y__ -> x__ {_HeavyDelegation'omega = y__})) + Prelude.id +instance Data.ProtoLens.Message HeavyDelegation where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.HeavyDelegation" + packedMessageDescriptor _ + = "\n\ + \\SIHeavyDelegation\DC2\DC2\n\ + \\EOTcert\CAN\SOH \SOH(\tR\EOTcert\DC2\US\n\ + \\vdelegate_pk\CAN\STX \SOH(\tR\n\ + \delegatePk\DC2\ESC\n\ + \\tissuer_pk\CAN\ETX \SOH(\tR\bissuerPk\DC2\DC4\n\ + \\ENQomega\CAN\EOT \SOH(\rR\ENQomega" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cert__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cert" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"cert")) :: + Data.ProtoLens.FieldDescriptor HeavyDelegation + delegatePk__field_descriptor + = Data.ProtoLens.FieldDescriptor + "delegate_pk" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"delegatePk")) :: + Data.ProtoLens.FieldDescriptor HeavyDelegation + issuerPk__field_descriptor + = Data.ProtoLens.FieldDescriptor + "issuer_pk" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"issuerPk")) :: + Data.ProtoLens.FieldDescriptor HeavyDelegation + omega__field_descriptor + = Data.ProtoLens.FieldDescriptor + "omega" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"omega")) :: + Data.ProtoLens.FieldDescriptor HeavyDelegation + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, cert__field_descriptor), + (Data.ProtoLens.Tag 2, delegatePk__field_descriptor), + (Data.ProtoLens.Tag 3, issuerPk__field_descriptor), + (Data.ProtoLens.Tag 4, omega__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _HeavyDelegation'_unknownFields + (\ x__ y__ -> x__ {_HeavyDelegation'_unknownFields = y__}) + defMessage + = HeavyDelegation'_constructor + {_HeavyDelegation'cert = Data.ProtoLens.fieldDefault, + _HeavyDelegation'delegatePk = Data.ProtoLens.fieldDefault, + _HeavyDelegation'issuerPk = Data.ProtoLens.fieldDefault, + _HeavyDelegation'omega = Data.ProtoLens.fieldDefault, + _HeavyDelegation'_unknownFields = []} + parseMessage + = let + loop :: + HeavyDelegation + -> Data.ProtoLens.Encoding.Bytes.Parser HeavyDelegation + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "cert" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cert") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "delegate_pk" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"delegatePk") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "issuer_pk" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"issuerPk") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "omega" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"omega") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "HeavyDelegation" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"cert") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"delegatePk") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"issuerPk") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"omega") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData HeavyDelegation where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_HeavyDelegation'_unknownFields x__) + (Control.DeepSeq.deepseq + (_HeavyDelegation'cert x__) + (Control.DeepSeq.deepseq + (_HeavyDelegation'delegatePk x__) + (Control.DeepSeq.deepseq + (_HeavyDelegation'issuerPk x__) + (Control.DeepSeq.deepseq (_HeavyDelegation'omega x__) ())))) +{- | Fields : + -} +data InfoAction + = InfoAction'_constructor {_InfoAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show InfoAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message InfoAction where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.InfoAction" + packedMessageDescriptor _ + = "\n\ + \\n\ + \InfoAction" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _InfoAction'_unknownFields + (\ x__ y__ -> x__ {_InfoAction'_unknownFields = y__}) + defMessage + = InfoAction'_constructor {_InfoAction'_unknownFields = []} + parseMessage + = let + loop :: + InfoAction -> Data.ProtoLens.Encoding.Bytes.Parser InfoAction + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "InfoAction" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData InfoAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_InfoAction'_unknownFields x__) () +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.label' @:: Lens' Metadata Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' Metadata Metadatum@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'value' @:: Lens' Metadata (Prelude.Maybe Metadatum)@ -} +data Metadata + = Metadata'_constructor {_Metadata'label :: !Data.Word.Word64, + _Metadata'value :: !(Prelude.Maybe Metadatum), + _Metadata'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Metadata where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Metadata "label" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadata'label (\ x__ y__ -> x__ {_Metadata'label = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Metadata "value" Metadatum where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadata'value (\ x__ y__ -> x__ {_Metadata'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Metadata "maybe'value" (Prelude.Maybe Metadatum) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadata'value (\ x__ y__ -> x__ {_Metadata'value = y__})) + Prelude.id +instance Data.ProtoLens.Message Metadata where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Metadata" + packedMessageDescriptor _ + = "\n\ + \\bMetadata\DC2\DC4\n\ + \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC27\n\ + \\ENQvalue\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.MetadatumR\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + label__field_descriptor + = Data.ProtoLens.FieldDescriptor + "label" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"label")) :: + Data.ProtoLens.FieldDescriptor Metadata + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Metadatum) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor Metadata + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, label__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Metadata'_unknownFields + (\ x__ y__ -> x__ {_Metadata'_unknownFields = y__}) + defMessage + = Metadata'_constructor + {_Metadata'label = Data.ProtoLens.fieldDefault, + _Metadata'value = Prelude.Nothing, _Metadata'_unknownFields = []} + parseMessage + = let + loop :: Metadata -> Data.ProtoLens.Encoding.Bytes.Parser Metadata + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "label" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Metadata" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"label") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Metadata where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Metadata'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Metadata'label x__) + (Control.DeepSeq.deepseq (_Metadata'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'metadatum' @:: Lens' Metadatum (Prelude.Maybe Metadatum'Metadatum)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'int' @:: Lens' Metadatum (Prelude.Maybe Data.Int.Int64)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.int' @:: Lens' Metadatum Data.Int.Int64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bytes' @:: Lens' Metadatum (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bytes' @:: Lens' Metadatum Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'text' @:: Lens' Metadatum (Prelude.Maybe Data.Text.Text)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.text' @:: Lens' Metadatum Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'array' @:: Lens' Metadatum (Prelude.Maybe MetadatumArray)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.array' @:: Lens' Metadatum MetadatumArray@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'map' @:: Lens' Metadatum (Prelude.Maybe MetadatumMap)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.map' @:: Lens' Metadatum MetadatumMap@ -} +data Metadatum + = Metadatum'_constructor {_Metadatum'metadatum :: !(Prelude.Maybe Metadatum'Metadatum), + _Metadatum'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Metadatum where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data Metadatum'Metadatum + = Metadatum'Int !Data.Int.Int64 | + Metadatum'Bytes !Data.ByteString.ByteString | + Metadatum'Text !Data.Text.Text | + Metadatum'Array !MetadatumArray | + Metadatum'Map !MetadatumMap + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField Metadatum "maybe'metadatum" (Prelude.Maybe Metadatum'Metadatum) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Metadatum "maybe'int" (Prelude.Maybe Data.Int.Int64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Int x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Int y__)) +instance Data.ProtoLens.Field.HasField Metadatum "int" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Int x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Int y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField Metadatum "maybe'bytes" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Bytes x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Bytes y__)) +instance Data.ProtoLens.Field.HasField Metadatum "bytes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Bytes x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Bytes y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField Metadatum "maybe'text" (Prelude.Maybe Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Text x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Text y__)) +instance Data.ProtoLens.Field.HasField Metadatum "text" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Text x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Text y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField Metadatum "maybe'array" (Prelude.Maybe MetadatumArray) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Array x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Array y__)) +instance Data.ProtoLens.Field.HasField Metadatum "array" MetadatumArray where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Array x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Array y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Metadatum "maybe'map" (Prelude.Maybe MetadatumMap) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Map x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Map y__)) +instance Data.ProtoLens.Field.HasField Metadatum "map" MetadatumMap where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Metadatum'metadatum + (\ x__ y__ -> x__ {_Metadatum'metadatum = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Metadatum'Map x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Metadatum'Map y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message Metadatum where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Metadatum" + packedMessageDescriptor _ + = "\n\ + \\tMetadatum\DC2\DC2\n\ + \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\ + \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\ + \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2>\n\ + \\ENQarray\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.MetadatumArrayH\NULR\ENQarray\DC28\n\ + \\ETXmap\CAN\ENQ \SOH(\v2$.utxorpc.v1beta.cardano.MetadatumMapH\NULR\ETXmapB\v\n\ + \\tmetadatum" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + int__field_descriptor + = Data.ProtoLens.FieldDescriptor + "int" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'int")) :: + Data.ProtoLens.FieldDescriptor Metadatum + bytes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bytes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'bytes")) :: + Data.ProtoLens.FieldDescriptor Metadatum + text__field_descriptor + = Data.ProtoLens.FieldDescriptor + "text" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'text")) :: + Data.ProtoLens.FieldDescriptor Metadatum + array__field_descriptor + = Data.ProtoLens.FieldDescriptor + "array" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MetadatumArray) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'array")) :: + Data.ProtoLens.FieldDescriptor Metadatum + map__field_descriptor + = Data.ProtoLens.FieldDescriptor + "map" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MetadatumMap) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'map")) :: + Data.ProtoLens.FieldDescriptor Metadatum + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, int__field_descriptor), + (Data.ProtoLens.Tag 2, bytes__field_descriptor), + (Data.ProtoLens.Tag 3, text__field_descriptor), + (Data.ProtoLens.Tag 4, array__field_descriptor), + (Data.ProtoLens.Tag 5, map__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Metadatum'_unknownFields + (\ x__ y__ -> x__ {_Metadatum'_unknownFields = y__}) + defMessage + = Metadatum'_constructor + {_Metadatum'metadatum = Prelude.Nothing, + _Metadatum'_unknownFields = []} + parseMessage + = let + loop :: Metadatum -> Data.ProtoLens.Encoding.Bytes.Parser Metadatum + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "int" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bytes" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bytes") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "text" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"text") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "array" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "map" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Metadatum" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'metadatum") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (Metadatum'Int v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v) + (Prelude.Just (Metadatum'Bytes v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (Metadatum'Text v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 v) + (Prelude.Just (Metadatum'Array v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Metadatum'Map v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData Metadatum where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Metadatum'_unknownFields x__) + (Control.DeepSeq.deepseq (_Metadatum'metadatum x__) ()) +instance Control.DeepSeq.NFData Metadatum'Metadatum where + rnf (Metadatum'Int x__) = Control.DeepSeq.rnf x__ + rnf (Metadatum'Bytes x__) = Control.DeepSeq.rnf x__ + rnf (Metadatum'Text x__) = Control.DeepSeq.rnf x__ + rnf (Metadatum'Array x__) = Control.DeepSeq.rnf x__ + rnf (Metadatum'Map x__) = Control.DeepSeq.rnf x__ +_Metadatum'Int :: + Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Int.Int64 +_Metadatum'Int + = Data.ProtoLens.Prism.prism' + Metadatum'Int + (\ p__ + -> case p__ of + (Metadatum'Int p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Metadatum'Bytes :: + Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.ByteString.ByteString +_Metadatum'Bytes + = Data.ProtoLens.Prism.prism' + Metadatum'Bytes + (\ p__ + -> case p__ of + (Metadatum'Bytes p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Metadatum'Text :: + Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Text.Text +_Metadatum'Text + = Data.ProtoLens.Prism.prism' + Metadatum'Text + (\ p__ + -> case p__ of + (Metadatum'Text p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Metadatum'Array :: + Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumArray +_Metadatum'Array + = Data.ProtoLens.Prism.prism' + Metadatum'Array + (\ p__ + -> case p__ of + (Metadatum'Array p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Metadatum'Map :: + Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumMap +_Metadatum'Map + = Data.ProtoLens.Prism.prism' + Metadatum'Map + (\ p__ + -> case p__ of + (Metadatum'Map p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.items' @:: Lens' MetadatumArray [Metadatum]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'items' @:: Lens' MetadatumArray (Data.Vector.Vector Metadatum)@ -} +data MetadatumArray + = MetadatumArray'_constructor {_MetadatumArray'items :: !(Data.Vector.Vector Metadatum), + _MetadatumArray'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MetadatumArray where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MetadatumArray "items" [Metadatum] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumArray'items + (\ x__ y__ -> x__ {_MetadatumArray'items = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField MetadatumArray "vec'items" (Data.Vector.Vector Metadatum) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumArray'items + (\ x__ y__ -> x__ {_MetadatumArray'items = y__})) + Prelude.id +instance Data.ProtoLens.Message MetadatumArray where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.MetadatumArray" + packedMessageDescriptor _ + = "\n\ + \\SOMetadatumArray\DC27\n\ + \\ENQitems\CAN\SOH \ETX(\v2!.utxorpc.v1beta.cardano.MetadatumR\ENQitems" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + items__field_descriptor + = Data.ProtoLens.FieldDescriptor + "items" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Metadatum) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: + Data.ProtoLens.FieldDescriptor MetadatumArray + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MetadatumArray'_unknownFields + (\ x__ y__ -> x__ {_MetadatumArray'_unknownFields = y__}) + defMessage + = MetadatumArray'_constructor + {_MetadatumArray'items = Data.Vector.Generic.empty, + _MetadatumArray'_unknownFields = []} + parseMessage + = let + loop :: + MetadatumArray + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadatum + -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumArray + loop x mutable'items + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "items" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'items y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'items + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'items) + "MetadatumArray" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData MetadatumArray where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MetadatumArray'_unknownFields x__) + (Control.DeepSeq.deepseq (_MetadatumArray'items x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.pairs' @:: Lens' MetadatumMap [MetadatumPair]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'pairs' @:: Lens' MetadatumMap (Data.Vector.Vector MetadatumPair)@ -} +data MetadatumMap + = MetadatumMap'_constructor {_MetadatumMap'pairs :: !(Data.Vector.Vector MetadatumPair), + _MetadatumMap'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MetadatumMap where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MetadatumMap "pairs" [MetadatumPair] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumMap'pairs (\ x__ y__ -> x__ {_MetadatumMap'pairs = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField MetadatumMap "vec'pairs" (Data.Vector.Vector MetadatumPair) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumMap'pairs (\ x__ y__ -> x__ {_MetadatumMap'pairs = y__})) + Prelude.id +instance Data.ProtoLens.Message MetadatumMap where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.MetadatumMap" + packedMessageDescriptor _ + = "\n\ + \\fMetadatumMap\DC2;\n\ + \\ENQpairs\CAN\SOH \ETX(\v2%.utxorpc.v1beta.cardano.MetadatumPairR\ENQpairs" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + pairs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pairs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MetadatumPair) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pairs")) :: + Data.ProtoLens.FieldDescriptor MetadatumMap + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, pairs__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MetadatumMap'_unknownFields + (\ x__ y__ -> x__ {_MetadatumMap'_unknownFields = y__}) + defMessage + = MetadatumMap'_constructor + {_MetadatumMap'pairs = Data.Vector.Generic.empty, + _MetadatumMap'_unknownFields = []} + parseMessage + = let + loop :: + MetadatumMap + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetadatumPair + -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumMap + loop x mutable'pairs + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "pairs" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'pairs y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'pairs + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'pairs) + "MetadatumMap" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pairs") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData MetadatumMap where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MetadatumMap'_unknownFields x__) + (Control.DeepSeq.deepseq (_MetadatumMap'pairs x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' MetadatumPair Metadatum@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'key' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' MetadatumPair Metadatum@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'value' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@ -} +data MetadatumPair + = MetadatumPair'_constructor {_MetadatumPair'key :: !(Prelude.Maybe Metadatum), + _MetadatumPair'value :: !(Prelude.Maybe Metadatum), + _MetadatumPair'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MetadatumPair where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MetadatumPair "key" Metadatum where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumPair'key (\ x__ y__ -> x__ {_MetadatumPair'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'key" (Prelude.Maybe Metadatum) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumPair'key (\ x__ y__ -> x__ {_MetadatumPair'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MetadatumPair "value" Metadatum where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumPair'value + (\ x__ y__ -> x__ {_MetadatumPair'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'value" (Prelude.Maybe Metadatum) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MetadatumPair'value + (\ x__ y__ -> x__ {_MetadatumPair'value = y__})) + Prelude.id +instance Data.ProtoLens.Message MetadatumPair where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.MetadatumPair" + packedMessageDescriptor _ + = "\n\ + \\rMetadatumPair\DC23\n\ + \\ETXkey\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.MetadatumR\ETXkey\DC27\n\ + \\ENQvalue\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.MetadatumR\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Metadatum) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor MetadatumPair + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Metadatum) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor MetadatumPair + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MetadatumPair'_unknownFields + (\ x__ y__ -> x__ {_MetadatumPair'_unknownFields = y__}) + defMessage + = MetadatumPair'_constructor + {_MetadatumPair'key = Prelude.Nothing, + _MetadatumPair'value = Prelude.Nothing, + _MetadatumPair'_unknownFields = []} + parseMessage + = let + loop :: + MetadatumPair -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumPair + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MetadatumPair" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData MetadatumPair where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MetadatumPair'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MetadatumPair'key x__) + (Control.DeepSeq.deepseq (_MetadatumPair'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.from' @:: Lens' MirCert MirSource@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.to' @:: Lens' MirCert [MirTarget]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'to' @:: Lens' MirCert (Data.Vector.Vector MirTarget)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.otherPot' @:: Lens' MirCert Data.Word.Word64@ -} +data MirCert + = MirCert'_constructor {_MirCert'from :: !MirSource, + _MirCert'to :: !(Data.Vector.Vector MirTarget), + _MirCert'otherPot :: !Data.Word.Word64, + _MirCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MirCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MirCert "from" MirSource where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirCert'from (\ x__ y__ -> x__ {_MirCert'from = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MirCert "to" [MirTarget] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirCert'to (\ x__ y__ -> x__ {_MirCert'to = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField MirCert "vec'to" (Data.Vector.Vector MirTarget) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirCert'to (\ x__ y__ -> x__ {_MirCert'to = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MirCert "otherPot" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirCert'otherPot (\ x__ y__ -> x__ {_MirCert'otherPot = y__})) + Prelude.id +instance Data.ProtoLens.Message MirCert where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.MirCert" + packedMessageDescriptor _ + = "\n\ + \\aMirCert\DC25\n\ + \\EOTfrom\CAN\SOH \SOH(\SO2!.utxorpc.v1beta.cardano.MirSourceR\EOTfrom\DC21\n\ + \\STXto\CAN\STX \ETX(\v2!.utxorpc.v1beta.cardano.MirTargetR\STXto\DC2\ESC\n\ + \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + from__field_descriptor + = Data.ProtoLens.FieldDescriptor + "from" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor MirSource) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"from")) :: + Data.ProtoLens.FieldDescriptor MirCert + to__field_descriptor + = Data.ProtoLens.FieldDescriptor + "to" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor MirTarget) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"to")) :: + Data.ProtoLens.FieldDescriptor MirCert + otherPot__field_descriptor + = Data.ProtoLens.FieldDescriptor + "other_pot" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"otherPot")) :: + Data.ProtoLens.FieldDescriptor MirCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, from__field_descriptor), + (Data.ProtoLens.Tag 2, to__field_descriptor), + (Data.ProtoLens.Tag 3, otherPot__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MirCert'_unknownFields + (\ x__ y__ -> x__ {_MirCert'_unknownFields = y__}) + defMessage + = MirCert'_constructor + {_MirCert'from = Data.ProtoLens.fieldDefault, + _MirCert'to = Data.Vector.Generic.empty, + _MirCert'otherPot = Data.ProtoLens.fieldDefault, + _MirCert'_unknownFields = []} + parseMessage + = let + loop :: + MirCert + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MirTarget + -> Data.ProtoLens.Encoding.Bytes.Parser MirCert + loop x mutable'to + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'to <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'to) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'to") frozen'to x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "from" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"from") y x) + mutable'to + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "to" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'to y) + loop x v + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "other_pot" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"otherPot") y x) + mutable'to + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'to + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'to <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'to) + "MirCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"from") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'to") _x)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"otherPot") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData MirCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MirCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MirCert'from x__) + (Control.DeepSeq.deepseq + (_MirCert'to x__) + (Control.DeepSeq.deepseq (_MirCert'otherPot x__) ()))) +newtype MirSource'UnrecognizedValue + = MirSource'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data MirSource + = MIR_SOURCE_UNSPECIFIED | + MIR_SOURCE_RESERVES | + MIR_SOURCE_TREASURY | + MirSource'Unrecognized !MirSource'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum MirSource where + maybeToEnum 0 = Prelude.Just MIR_SOURCE_UNSPECIFIED + maybeToEnum 1 = Prelude.Just MIR_SOURCE_RESERVES + maybeToEnum 2 = Prelude.Just MIR_SOURCE_TREASURY + maybeToEnum k + = Prelude.Just + (MirSource'Unrecognized + (MirSource'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum MIR_SOURCE_UNSPECIFIED = "MIR_SOURCE_UNSPECIFIED" + showEnum MIR_SOURCE_RESERVES = "MIR_SOURCE_RESERVES" + showEnum MIR_SOURCE_TREASURY = "MIR_SOURCE_TREASURY" + showEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "MIR_SOURCE_UNSPECIFIED" + = Prelude.Just MIR_SOURCE_UNSPECIFIED + | (Prelude.==) k "MIR_SOURCE_RESERVES" + = Prelude.Just MIR_SOURCE_RESERVES + | (Prelude.==) k "MIR_SOURCE_TREASURY" + = Prelude.Just MIR_SOURCE_TREASURY + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded MirSource where + minBound = MIR_SOURCE_UNSPECIFIED + maxBound = MIR_SOURCE_TREASURY +instance Prelude.Enum MirSource where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum MirSource: " (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum MIR_SOURCE_UNSPECIFIED = 0 + fromEnum MIR_SOURCE_RESERVES = 1 + fromEnum MIR_SOURCE_TREASURY = 2 + fromEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ MIR_SOURCE_TREASURY + = Prelude.error + "MirSource.succ: bad argument MIR_SOURCE_TREASURY. This value would be out of bounds." + succ MIR_SOURCE_UNSPECIFIED = MIR_SOURCE_RESERVES + succ MIR_SOURCE_RESERVES = MIR_SOURCE_TREASURY + succ (MirSource'Unrecognized _) + = Prelude.error "MirSource.succ: bad argument: unrecognized value" + pred MIR_SOURCE_UNSPECIFIED + = Prelude.error + "MirSource.pred: bad argument MIR_SOURCE_UNSPECIFIED. This value would be out of bounds." + pred MIR_SOURCE_RESERVES = MIR_SOURCE_UNSPECIFIED + pred MIR_SOURCE_TREASURY = MIR_SOURCE_RESERVES + pred (MirSource'Unrecognized _) + = Prelude.error "MirSource.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault MirSource where + fieldDefault = MIR_SOURCE_UNSPECIFIED +instance Control.DeepSeq.NFData MirSource where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' MirTarget StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' MirTarget (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.deltaCoin' @:: Lens' MirTarget BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'deltaCoin' @:: Lens' MirTarget (Prelude.Maybe BigInt)@ -} +data MirTarget + = MirTarget'_constructor {_MirTarget'stakeCredential :: !(Prelude.Maybe StakeCredential), + _MirTarget'deltaCoin :: !(Prelude.Maybe BigInt), + _MirTarget'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MirTarget where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MirTarget "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirTarget'stakeCredential + (\ x__ y__ -> x__ {_MirTarget'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MirTarget "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirTarget'stakeCredential + (\ x__ y__ -> x__ {_MirTarget'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField MirTarget "deltaCoin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirTarget'deltaCoin + (\ x__ y__ -> x__ {_MirTarget'deltaCoin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField MirTarget "maybe'deltaCoin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MirTarget'deltaCoin + (\ x__ y__ -> x__ {_MirTarget'deltaCoin = y__})) + Prelude.id +instance Data.ProtoLens.Message MirTarget where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.MirTarget" + packedMessageDescriptor _ + = "\n\ + \\tMirTarget\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2=\n\ + \\n\ + \delta_coin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\tdeltaCoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor MirTarget + deltaCoin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "delta_coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'deltaCoin")) :: + Data.ProtoLens.FieldDescriptor MirTarget + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, deltaCoin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MirTarget'_unknownFields + (\ x__ y__ -> x__ {_MirTarget'_unknownFields = y__}) + defMessage + = MirTarget'_constructor + {_MirTarget'stakeCredential = Prelude.Nothing, + _MirTarget'deltaCoin = Prelude.Nothing, + _MirTarget'_unknownFields = []} + parseMessage + = let + loop :: MirTarget -> Data.ProtoLens.Encoding.Bytes.Parser MirTarget + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "delta_coin" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"deltaCoin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MirTarget" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'deltaCoin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData MirTarget where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MirTarget'_unknownFields x__) + (Control.DeepSeq.deepseq + (_MirTarget'stakeCredential x__) + (Control.DeepSeq.deepseq (_MirTarget'deltaCoin x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.policyId' @:: Lens' Multiasset Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.assets' @:: Lens' Multiasset [Asset]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'assets' @:: Lens' Multiasset (Data.Vector.Vector Asset)@ -} +data Multiasset + = Multiasset'_constructor {_Multiasset'policyId :: !Data.ByteString.ByteString, + _Multiasset'assets :: !(Data.Vector.Vector Asset), + _Multiasset'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Multiasset where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Multiasset "policyId" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Multiasset'policyId + (\ x__ y__ -> x__ {_Multiasset'policyId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Multiasset "assets" [Asset] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Multiasset'assets (\ x__ y__ -> x__ {_Multiasset'assets = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Multiasset "vec'assets" (Data.Vector.Vector Asset) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Multiasset'assets (\ x__ y__ -> x__ {_Multiasset'assets = y__})) + Prelude.id +instance Data.ProtoLens.Message Multiasset where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Multiasset" + packedMessageDescriptor _ + = "\n\ + \\n\ + \Multiasset\DC2\ESC\n\ + \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC25\n\ + \\ACKassets\CAN\STX \ETX(\v2\GS.utxorpc.v1beta.cardano.AssetR\ACKassets" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + policyId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "policy_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"policyId")) :: + Data.ProtoLens.FieldDescriptor Multiasset + assets__field_descriptor + = Data.ProtoLens.FieldDescriptor + "assets" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Asset) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"assets")) :: + Data.ProtoLens.FieldDescriptor Multiasset + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, policyId__field_descriptor), + (Data.ProtoLens.Tag 2, assets__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Multiasset'_unknownFields + (\ x__ y__ -> x__ {_Multiasset'_unknownFields = y__}) + defMessage + = Multiasset'_constructor + {_Multiasset'policyId = Data.ProtoLens.fieldDefault, + _Multiasset'assets = Data.Vector.Generic.empty, + _Multiasset'_unknownFields = []} + parseMessage + = let + loop :: + Multiasset + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Asset + -> Data.ProtoLens.Encoding.Bytes.Parser Multiasset + loop x mutable'assets + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'assets) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'assets") frozen'assets x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "policy_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"policyId") y x) + mutable'assets + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "assets" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'assets y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'assets + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'assets) + "Multiasset" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"policyId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'assets") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Multiasset where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Multiasset'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Multiasset'policyId x__) + (Control.DeepSeq.deepseq (_Multiasset'assets x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'nativeScript' @:: Lens' NativeScript (Prelude.Maybe NativeScript'NativeScript)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'scriptPubkeyHash' @:: Lens' NativeScript (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptPubkeyHash' @:: Lens' NativeScript Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'scriptAll' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptAll' @:: Lens' NativeScript NativeScriptList@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'scriptAny' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptAny' @:: Lens' NativeScript NativeScriptList@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'scriptNOfK' @:: Lens' NativeScript (Prelude.Maybe ScriptNOfK)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptNOfK' @:: Lens' NativeScript ScriptNOfK@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'invalidBefore' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.invalidBefore' @:: Lens' NativeScript Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'invalidHereafter' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.invalidHereafter' @:: Lens' NativeScript Data.Word.Word64@ -} +data NativeScript + = NativeScript'_constructor {_NativeScript'nativeScript :: !(Prelude.Maybe NativeScript'NativeScript), + _NativeScript'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show NativeScript where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data NativeScript'NativeScript + = NativeScript'ScriptPubkeyHash !Data.ByteString.ByteString | + NativeScript'ScriptAll !NativeScriptList | + NativeScript'ScriptAny !NativeScriptList | + NativeScript'ScriptNOfK !ScriptNOfK | + NativeScript'InvalidBefore !Data.Word.Word64 | + NativeScript'InvalidHereafter !Data.Word.Word64 + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField NativeScript "maybe'nativeScript" (Prelude.Maybe NativeScript'NativeScript) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptPubkeyHash" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptPubkeyHash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkeyHash y__)) +instance Data.ProtoLens.Field.HasField NativeScript "scriptPubkeyHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptPubkeyHash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkeyHash y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAll" (Prelude.Maybe NativeScriptList) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptAll x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__)) +instance Data.ProtoLens.Field.HasField NativeScript "scriptAll" NativeScriptList where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptAll x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAny" (Prelude.Maybe NativeScriptList) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptAny x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__)) +instance Data.ProtoLens.Field.HasField NativeScript "scriptAny" NativeScriptList where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptAny x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptNOfK" (Prelude.Maybe ScriptNOfK) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptNOfK x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__)) +instance Data.ProtoLens.Field.HasField NativeScript "scriptNOfK" ScriptNOfK where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'ScriptNOfK x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidBefore" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'InvalidBefore x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__)) +instance Data.ProtoLens.Field.HasField NativeScript "invalidBefore" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'InvalidBefore x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidHereafter" (Prelude.Maybe Data.Word.Word64) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'InvalidHereafter x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__)) +instance Data.ProtoLens.Field.HasField NativeScript "invalidHereafter" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScript'nativeScript + (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (NativeScript'InvalidHereafter x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message NativeScript where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.NativeScript" + packedMessageDescriptor _ + = "\n\ + \\fNativeScript\DC2.\n\ + \\DC2script_pubkey_hash\CAN\SOH \SOH(\fH\NULR\DLEscriptPubkeyHash\DC2I\n\ + \\n\ + \script_all\CAN\STX \SOH(\v2(.utxorpc.v1beta.cardano.NativeScriptListH\NULR\tscriptAll\DC2I\n\ + \\n\ + \script_any\CAN\ETX \SOH(\v2(.utxorpc.v1beta.cardano.NativeScriptListH\NULR\tscriptAny\DC2G\n\ + \\rscript_n_of_k\CAN\EOT \SOH(\v2\".utxorpc.v1beta.cardano.ScriptNOfKH\NULR\n\ + \scriptNOfK\DC2'\n\ + \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\ + \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\ + \\rnative_script" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + scriptPubkeyHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script_pubkey_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'scriptPubkeyHash")) :: + Data.ProtoLens.FieldDescriptor NativeScript + scriptAll__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script_all" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NativeScriptList) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'scriptAll")) :: + Data.ProtoLens.FieldDescriptor NativeScript + scriptAny__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script_any" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NativeScriptList) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'scriptAny")) :: + Data.ProtoLens.FieldDescriptor NativeScript + scriptNOfK__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script_n_of_k" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ScriptNOfK) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'scriptNOfK")) :: + Data.ProtoLens.FieldDescriptor NativeScript + invalidBefore__field_descriptor + = Data.ProtoLens.FieldDescriptor + "invalid_before" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'invalidBefore")) :: + Data.ProtoLens.FieldDescriptor NativeScript + invalidHereafter__field_descriptor + = Data.ProtoLens.FieldDescriptor + "invalid_hereafter" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'invalidHereafter")) :: + Data.ProtoLens.FieldDescriptor NativeScript + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, scriptPubkeyHash__field_descriptor), + (Data.ProtoLens.Tag 2, scriptAll__field_descriptor), + (Data.ProtoLens.Tag 3, scriptAny__field_descriptor), + (Data.ProtoLens.Tag 4, scriptNOfK__field_descriptor), + (Data.ProtoLens.Tag 5, invalidBefore__field_descriptor), + (Data.ProtoLens.Tag 6, invalidHereafter__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _NativeScript'_unknownFields + (\ x__ y__ -> x__ {_NativeScript'_unknownFields = y__}) + defMessage + = NativeScript'_constructor + {_NativeScript'nativeScript = Prelude.Nothing, + _NativeScript'_unknownFields = []} + parseMessage + = let + loop :: + NativeScript -> Data.ProtoLens.Encoding.Bytes.Parser NativeScript + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "script_pubkey_hash" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"scriptPubkeyHash") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "script_all" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAll") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "script_any" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAny") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "script_n_of_k" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptNOfK") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_before" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"invalidBefore") y x) + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_hereafter" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"invalidHereafter") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NativeScript" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'nativeScript") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (NativeScript'ScriptPubkeyHash v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (NativeScript'ScriptAll v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (NativeScript'ScriptAny v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (NativeScript'ScriptNOfK v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (NativeScript'InvalidBefore v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + (Data.ProtoLens.Encoding.Bytes.putVarInt v) + (Prelude.Just (NativeScript'InvalidHereafter v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + (Data.ProtoLens.Encoding.Bytes.putVarInt v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData NativeScript where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_NativeScript'_unknownFields x__) + (Control.DeepSeq.deepseq (_NativeScript'nativeScript x__) ()) +instance Control.DeepSeq.NFData NativeScript'NativeScript where + rnf (NativeScript'ScriptPubkeyHash x__) = Control.DeepSeq.rnf x__ + rnf (NativeScript'ScriptAll x__) = Control.DeepSeq.rnf x__ + rnf (NativeScript'ScriptAny x__) = Control.DeepSeq.rnf x__ + rnf (NativeScript'ScriptNOfK x__) = Control.DeepSeq.rnf x__ + rnf (NativeScript'InvalidBefore x__) = Control.DeepSeq.rnf x__ + rnf (NativeScript'InvalidHereafter x__) = Control.DeepSeq.rnf x__ +_NativeScript'ScriptPubkeyHash :: + Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.ByteString.ByteString +_NativeScript'ScriptPubkeyHash + = Data.ProtoLens.Prism.prism' + NativeScript'ScriptPubkeyHash + (\ p__ + -> case p__ of + (NativeScript'ScriptPubkeyHash p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_NativeScript'ScriptAll :: + Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList +_NativeScript'ScriptAll + = Data.ProtoLens.Prism.prism' + NativeScript'ScriptAll + (\ p__ + -> case p__ of + (NativeScript'ScriptAll p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_NativeScript'ScriptAny :: + Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList +_NativeScript'ScriptAny + = Data.ProtoLens.Prism.prism' + NativeScript'ScriptAny + (\ p__ + -> case p__ of + (NativeScript'ScriptAny p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_NativeScript'ScriptNOfK :: + Data.ProtoLens.Prism.Prism' NativeScript'NativeScript ScriptNOfK +_NativeScript'ScriptNOfK + = Data.ProtoLens.Prism.prism' + NativeScript'ScriptNOfK + (\ p__ + -> case p__ of + (NativeScript'ScriptNOfK p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_NativeScript'InvalidBefore :: + Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64 +_NativeScript'InvalidBefore + = Data.ProtoLens.Prism.prism' + NativeScript'InvalidBefore + (\ p__ + -> case p__ of + (NativeScript'InvalidBefore p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_NativeScript'InvalidHereafter :: + Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64 +_NativeScript'InvalidHereafter + = Data.ProtoLens.Prism.prism' + NativeScript'InvalidHereafter + (\ p__ + -> case p__ of + (NativeScript'InvalidHereafter p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.items' @:: Lens' NativeScriptList [NativeScript]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'items' @:: Lens' NativeScriptList (Data.Vector.Vector NativeScript)@ -} +data NativeScriptList + = NativeScriptList'_constructor {_NativeScriptList'items :: !(Data.Vector.Vector NativeScript), + _NativeScriptList'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show NativeScriptList where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField NativeScriptList "items" [NativeScript] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScriptList'items + (\ x__ y__ -> x__ {_NativeScriptList'items = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField NativeScriptList "vec'items" (Data.Vector.Vector NativeScript) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NativeScriptList'items + (\ x__ y__ -> x__ {_NativeScriptList'items = y__})) + Prelude.id +instance Data.ProtoLens.Message NativeScriptList where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.NativeScriptList" + packedMessageDescriptor _ + = "\n\ + \\DLENativeScriptList\DC2:\n\ + \\ENQitems\CAN\SOH \ETX(\v2$.utxorpc.v1beta.cardano.NativeScriptR\ENQitems" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + items__field_descriptor + = Data.ProtoLens.FieldDescriptor + "items" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NativeScript) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: + Data.ProtoLens.FieldDescriptor NativeScriptList + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _NativeScriptList'_unknownFields + (\ x__ y__ -> x__ {_NativeScriptList'_unknownFields = y__}) + defMessage + = NativeScriptList'_constructor + {_NativeScriptList'items = Data.Vector.Generic.empty, + _NativeScriptList'_unknownFields = []} + parseMessage + = let + loop :: + NativeScriptList + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript + -> Data.ProtoLens.Encoding.Bytes.Parser NativeScriptList + loop x mutable'items + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "items" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'items y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'items + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'items) + "NativeScriptList" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData NativeScriptList where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_NativeScriptList'_unknownFields x__) + (Control.DeepSeq.deepseq (_NativeScriptList'items x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeColdCredential' @:: Lens' NewCommitteeCredentials StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeColdCredential' @:: Lens' NewCommitteeCredentials (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.expiresEpoch' @:: Lens' NewCommitteeCredentials Data.Word.Word32@ -} +data NewCommitteeCredentials + = NewCommitteeCredentials'_constructor {_NewCommitteeCredentials'committeeColdCredential :: !(Prelude.Maybe StakeCredential), + _NewCommitteeCredentials'expiresEpoch :: !Data.Word.Word32, + _NewCommitteeCredentials'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show NewCommitteeCredentials where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField NewCommitteeCredentials "committeeColdCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NewCommitteeCredentials'committeeColdCredential + (\ x__ y__ + -> x__ {_NewCommitteeCredentials'committeeColdCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField NewCommitteeCredentials "maybe'committeeColdCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NewCommitteeCredentials'committeeColdCredential + (\ x__ y__ + -> x__ {_NewCommitteeCredentials'committeeColdCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField NewCommitteeCredentials "expiresEpoch" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NewCommitteeCredentials'expiresEpoch + (\ x__ y__ -> x__ {_NewCommitteeCredentials'expiresEpoch = y__})) + Prelude.id +instance Data.ProtoLens.Message NewCommitteeCredentials where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.NewCommitteeCredentials" + packedMessageDescriptor _ + = "\n\ + \\ETBNewCommitteeCredentials\DC2c\n\ + \\EMcommittee_cold_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\ETBcommitteeColdCredential\DC2#\n\ + \\rexpires_epoch\CAN\STX \SOH(\rR\fexpiresEpoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + committeeColdCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_cold_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeColdCredential")) :: + Data.ProtoLens.FieldDescriptor NewCommitteeCredentials + expiresEpoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "expires_epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"expiresEpoch")) :: + Data.ProtoLens.FieldDescriptor NewCommitteeCredentials + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, committeeColdCredential__field_descriptor), + (Data.ProtoLens.Tag 2, expiresEpoch__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _NewCommitteeCredentials'_unknownFields + (\ x__ y__ -> x__ {_NewCommitteeCredentials'_unknownFields = y__}) + defMessage + = NewCommitteeCredentials'_constructor + {_NewCommitteeCredentials'committeeColdCredential = Prelude.Nothing, + _NewCommitteeCredentials'expiresEpoch = Data.ProtoLens.fieldDefault, + _NewCommitteeCredentials'_unknownFields = []} + parseMessage + = let + loop :: + NewCommitteeCredentials + -> Data.ProtoLens.Encoding.Bytes.Parser NewCommitteeCredentials + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_cold_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeColdCredential") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "expires_epoch" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"expiresEpoch") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NewCommitteeCredentials" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeColdCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"expiresEpoch") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData NewCommitteeCredentials where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_NewCommitteeCredentials'_unknownFields x__) + (Control.DeepSeq.deepseq + (_NewCommitteeCredentials'committeeColdCredential x__) + (Control.DeepSeq.deepseq + (_NewCommitteeCredentials'expiresEpoch x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govActionId' @:: Lens' NewConstitutionAction GovernanceActionId@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'govActionId' @:: Lens' NewConstitutionAction (Prelude.Maybe GovernanceActionId)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.constitution' @:: Lens' NewConstitutionAction Constitution@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'constitution' @:: Lens' NewConstitutionAction (Prelude.Maybe Constitution)@ -} +data NewConstitutionAction + = NewConstitutionAction'_constructor {_NewConstitutionAction'govActionId :: !(Prelude.Maybe GovernanceActionId), + _NewConstitutionAction'constitution :: !(Prelude.Maybe Constitution), + _NewConstitutionAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show NewConstitutionAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField NewConstitutionAction "govActionId" GovernanceActionId where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NewConstitutionAction'govActionId + (\ x__ y__ -> x__ {_NewConstitutionAction'govActionId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField NewConstitutionAction "maybe'govActionId" (Prelude.Maybe GovernanceActionId) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NewConstitutionAction'govActionId + (\ x__ y__ -> x__ {_NewConstitutionAction'govActionId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField NewConstitutionAction "constitution" Constitution where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NewConstitutionAction'constitution + (\ x__ y__ -> x__ {_NewConstitutionAction'constitution = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField NewConstitutionAction "maybe'constitution" (Prelude.Maybe Constitution) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NewConstitutionAction'constitution + (\ x__ y__ -> x__ {_NewConstitutionAction'constitution = y__})) + Prelude.id +instance Data.ProtoLens.Message NewConstitutionAction where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.NewConstitutionAction" + packedMessageDescriptor _ + = "\n\ + \\NAKNewConstitutionAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2H\n\ + \\fconstitution\CAN\STX \SOH(\v2$.utxorpc.v1beta.cardano.ConstitutionR\fconstitution" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + govActionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GovernanceActionId) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'govActionId")) :: + Data.ProtoLens.FieldDescriptor NewConstitutionAction + constitution__field_descriptor + = Data.ProtoLens.FieldDescriptor + "constitution" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Constitution) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'constitution")) :: + Data.ProtoLens.FieldDescriptor NewConstitutionAction + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, govActionId__field_descriptor), + (Data.ProtoLens.Tag 2, constitution__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _NewConstitutionAction'_unknownFields + (\ x__ y__ -> x__ {_NewConstitutionAction'_unknownFields = y__}) + defMessage + = NewConstitutionAction'_constructor + {_NewConstitutionAction'govActionId = Prelude.Nothing, + _NewConstitutionAction'constitution = Prelude.Nothing, + _NewConstitutionAction'_unknownFields = []} + parseMessage + = let + loop :: + NewConstitutionAction + -> Data.ProtoLens.Encoding.Bytes.Parser NewConstitutionAction + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gov_action_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"govActionId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "constitution" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"constitution") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NewConstitutionAction" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'govActionId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'constitution") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData NewConstitutionAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_NewConstitutionAction'_unknownFields x__) + (Control.DeepSeq.deepseq + (_NewConstitutionAction'govActionId x__) + (Control.DeepSeq.deepseq + (_NewConstitutionAction'constitution x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govActionId' @:: Lens' NoConfidenceAction GovernanceActionId@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'govActionId' @:: Lens' NoConfidenceAction (Prelude.Maybe GovernanceActionId)@ -} +data NoConfidenceAction + = NoConfidenceAction'_constructor {_NoConfidenceAction'govActionId :: !(Prelude.Maybe GovernanceActionId), + _NoConfidenceAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show NoConfidenceAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField NoConfidenceAction "govActionId" GovernanceActionId where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NoConfidenceAction'govActionId + (\ x__ y__ -> x__ {_NoConfidenceAction'govActionId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField NoConfidenceAction "maybe'govActionId" (Prelude.Maybe GovernanceActionId) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _NoConfidenceAction'govActionId + (\ x__ y__ -> x__ {_NoConfidenceAction'govActionId = y__})) + Prelude.id +instance Data.ProtoLens.Message NoConfidenceAction where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.NoConfidenceAction" + packedMessageDescriptor _ + = "\n\ + \\DC2NoConfidenceAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + govActionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GovernanceActionId) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'govActionId")) :: + Data.ProtoLens.FieldDescriptor NoConfidenceAction + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, govActionId__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _NoConfidenceAction'_unknownFields + (\ x__ y__ -> x__ {_NoConfidenceAction'_unknownFields = y__}) + defMessage + = NoConfidenceAction'_constructor + {_NoConfidenceAction'govActionId = Prelude.Nothing, + _NoConfidenceAction'_unknownFields = []} + parseMessage + = let + loop :: + NoConfidenceAction + -> Data.ProtoLens.Encoding.Bytes.Parser NoConfidenceAction + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gov_action_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"govActionId") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NoConfidenceAction" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'govActionId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData NoConfidenceAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_NoConfidenceAction'_unknownFields x__) + (Control.DeepSeq.deepseq (_NoConfidenceAction'govActionId x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coinsPerUtxoByte' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coinsPerUtxoByte' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxTxSize' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minFeeCoefficient' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'minFeeCoefficient' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minFeeConstant' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'minFeeConstant' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxBlockBodySize' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxBlockHeaderSize' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeKeyDeposit' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeKeyDeposit' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolDeposit' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolDeposit' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolRetirementEpochBound' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.desiredNumberOfPools' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolInfluence' @:: Lens' PParams RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolInfluence' @:: Lens' PParams (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.monetaryExpansion' @:: Lens' PParams RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'monetaryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.treasuryExpansion' @:: Lens' PParams RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'treasuryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minPoolCost' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'minPoolCost' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolVersion' @:: Lens' PParams ProtocolVersion@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'protocolVersion' @:: Lens' PParams (Prelude.Maybe ProtocolVersion)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxValueSize' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.collateralPercentage' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxCollateralInputs' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.costModels' @:: Lens' PParams CostModels@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'costModels' @:: Lens' PParams (Prelude.Maybe CostModels)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.prices' @:: Lens' PParams ExPrices@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'prices' @:: Lens' PParams (Prelude.Maybe ExPrices)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxExecutionUnitsPerTransaction' @:: Lens' PParams ExUnits@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerTransaction' @:: Lens' PParams (Prelude.Maybe ExUnits)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maxExecutionUnitsPerBlock' @:: Lens' PParams ExUnits@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerBlock' @:: Lens' PParams (Prelude.Maybe ExUnits)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minFeeScriptRefCostPerByte' @:: Lens' PParams RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'minFeeScriptRefCostPerByte' @:: Lens' PParams (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolVotingThresholds' @:: Lens' PParams VotingThresholds@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolVotingThresholds' @:: Lens' PParams (Prelude.Maybe VotingThresholds)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepVotingThresholds' @:: Lens' PParams VotingThresholds@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drepVotingThresholds' @:: Lens' PParams (Prelude.Maybe VotingThresholds)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minCommitteeSize' @:: Lens' PParams Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeTermLimit' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.governanceActionValidityPeriod' @:: Lens' PParams Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.governanceActionDeposit' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'governanceActionDeposit' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepDeposit' @:: Lens' PParams BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drepDeposit' @:: Lens' PParams (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepInactivityPeriod' @:: Lens' PParams Data.Word.Word64@ -} +data PParams + = PParams'_constructor {_PParams'coinsPerUtxoByte :: !(Prelude.Maybe BigInt), + _PParams'maxTxSize :: !Data.Word.Word64, + _PParams'minFeeCoefficient :: !(Prelude.Maybe BigInt), + _PParams'minFeeConstant :: !(Prelude.Maybe BigInt), + _PParams'maxBlockBodySize :: !Data.Word.Word64, + _PParams'maxBlockHeaderSize :: !Data.Word.Word64, + _PParams'stakeKeyDeposit :: !(Prelude.Maybe BigInt), + _PParams'poolDeposit :: !(Prelude.Maybe BigInt), + _PParams'poolRetirementEpochBound :: !Data.Word.Word64, + _PParams'desiredNumberOfPools :: !Data.Word.Word64, + _PParams'poolInfluence :: !(Prelude.Maybe RationalNumber), + _PParams'monetaryExpansion :: !(Prelude.Maybe RationalNumber), + _PParams'treasuryExpansion :: !(Prelude.Maybe RationalNumber), + _PParams'minPoolCost :: !(Prelude.Maybe BigInt), + _PParams'protocolVersion :: !(Prelude.Maybe ProtocolVersion), + _PParams'maxValueSize :: !Data.Word.Word64, + _PParams'collateralPercentage :: !Data.Word.Word64, + _PParams'maxCollateralInputs :: !Data.Word.Word64, + _PParams'costModels :: !(Prelude.Maybe CostModels), + _PParams'prices :: !(Prelude.Maybe ExPrices), + _PParams'maxExecutionUnitsPerTransaction :: !(Prelude.Maybe ExUnits), + _PParams'maxExecutionUnitsPerBlock :: !(Prelude.Maybe ExUnits), + _PParams'minFeeScriptRefCostPerByte :: !(Prelude.Maybe RationalNumber), + _PParams'poolVotingThresholds :: !(Prelude.Maybe VotingThresholds), + _PParams'drepVotingThresholds :: !(Prelude.Maybe VotingThresholds), + _PParams'minCommitteeSize :: !Data.Word.Word32, + _PParams'committeeTermLimit :: !Data.Word.Word64, + _PParams'governanceActionValidityPeriod :: !Data.Word.Word64, + _PParams'governanceActionDeposit :: !(Prelude.Maybe BigInt), + _PParams'drepDeposit :: !(Prelude.Maybe BigInt), + _PParams'drepInactivityPeriod :: !Data.Word.Word64, + _PParams'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PParams where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PParams "coinsPerUtxoByte" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'coinsPerUtxoByte + (\ x__ y__ -> x__ {_PParams'coinsPerUtxoByte = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'coinsPerUtxoByte" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'coinsPerUtxoByte + (\ x__ y__ -> x__ {_PParams'coinsPerUtxoByte = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "maxTxSize" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxTxSize (\ x__ y__ -> x__ {_PParams'maxTxSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "minFeeCoefficient" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minFeeCoefficient + (\ x__ y__ -> x__ {_PParams'minFeeCoefficient = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'minFeeCoefficient" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minFeeCoefficient + (\ x__ y__ -> x__ {_PParams'minFeeCoefficient = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "minFeeConstant" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minFeeConstant + (\ x__ y__ -> x__ {_PParams'minFeeConstant = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'minFeeConstant" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minFeeConstant + (\ x__ y__ -> x__ {_PParams'minFeeConstant = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "maxBlockBodySize" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxBlockBodySize + (\ x__ y__ -> x__ {_PParams'maxBlockBodySize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "maxBlockHeaderSize" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxBlockHeaderSize + (\ x__ y__ -> x__ {_PParams'maxBlockHeaderSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "stakeKeyDeposit" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'stakeKeyDeposit + (\ x__ y__ -> x__ {_PParams'stakeKeyDeposit = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'stakeKeyDeposit" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'stakeKeyDeposit + (\ x__ y__ -> x__ {_PParams'stakeKeyDeposit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "poolDeposit" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'poolDeposit + (\ x__ y__ -> x__ {_PParams'poolDeposit = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'poolDeposit" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'poolDeposit + (\ x__ y__ -> x__ {_PParams'poolDeposit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "poolRetirementEpochBound" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'poolRetirementEpochBound + (\ x__ y__ -> x__ {_PParams'poolRetirementEpochBound = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "desiredNumberOfPools" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'desiredNumberOfPools + (\ x__ y__ -> x__ {_PParams'desiredNumberOfPools = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "poolInfluence" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'poolInfluence + (\ x__ y__ -> x__ {_PParams'poolInfluence = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'poolInfluence" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'poolInfluence + (\ x__ y__ -> x__ {_PParams'poolInfluence = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "monetaryExpansion" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'monetaryExpansion + (\ x__ y__ -> x__ {_PParams'monetaryExpansion = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'monetaryExpansion" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'monetaryExpansion + (\ x__ y__ -> x__ {_PParams'monetaryExpansion = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "treasuryExpansion" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'treasuryExpansion + (\ x__ y__ -> x__ {_PParams'treasuryExpansion = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'treasuryExpansion" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'treasuryExpansion + (\ x__ y__ -> x__ {_PParams'treasuryExpansion = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "minPoolCost" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minPoolCost + (\ x__ y__ -> x__ {_PParams'minPoolCost = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'minPoolCost" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minPoolCost + (\ x__ y__ -> x__ {_PParams'minPoolCost = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "protocolVersion" ProtocolVersion where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'protocolVersion + (\ x__ y__ -> x__ {_PParams'protocolVersion = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'protocolVersion" (Prelude.Maybe ProtocolVersion) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'protocolVersion + (\ x__ y__ -> x__ {_PParams'protocolVersion = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "maxValueSize" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxValueSize + (\ x__ y__ -> x__ {_PParams'maxValueSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "collateralPercentage" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'collateralPercentage + (\ x__ y__ -> x__ {_PParams'collateralPercentage = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "maxCollateralInputs" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxCollateralInputs + (\ x__ y__ -> x__ {_PParams'maxCollateralInputs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "costModels" CostModels where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'costModels (\ x__ y__ -> x__ {_PParams'costModels = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'costModels" (Prelude.Maybe CostModels) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'costModels (\ x__ y__ -> x__ {_PParams'costModels = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "prices" ExPrices where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'prices (\ x__ y__ -> x__ {_PParams'prices = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'prices" (Prelude.Maybe ExPrices) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'prices (\ x__ y__ -> x__ {_PParams'prices = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerTransaction" ExUnits where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxExecutionUnitsPerTransaction + (\ x__ y__ + -> x__ {_PParams'maxExecutionUnitsPerTransaction = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerTransaction" (Prelude.Maybe ExUnits) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxExecutionUnitsPerTransaction + (\ x__ y__ + -> x__ {_PParams'maxExecutionUnitsPerTransaction = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "maxExecutionUnitsPerBlock" ExUnits where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxExecutionUnitsPerBlock + (\ x__ y__ -> x__ {_PParams'maxExecutionUnitsPerBlock = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'maxExecutionUnitsPerBlock" (Prelude.Maybe ExUnits) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'maxExecutionUnitsPerBlock + (\ x__ y__ -> x__ {_PParams'maxExecutionUnitsPerBlock = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "minFeeScriptRefCostPerByte" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minFeeScriptRefCostPerByte + (\ x__ y__ -> x__ {_PParams'minFeeScriptRefCostPerByte = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'minFeeScriptRefCostPerByte" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minFeeScriptRefCostPerByte + (\ x__ y__ -> x__ {_PParams'minFeeScriptRefCostPerByte = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "poolVotingThresholds" VotingThresholds where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'poolVotingThresholds + (\ x__ y__ -> x__ {_PParams'poolVotingThresholds = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'poolVotingThresholds" (Prelude.Maybe VotingThresholds) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'poolVotingThresholds + (\ x__ y__ -> x__ {_PParams'poolVotingThresholds = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "drepVotingThresholds" VotingThresholds where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'drepVotingThresholds + (\ x__ y__ -> x__ {_PParams'drepVotingThresholds = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'drepVotingThresholds" (Prelude.Maybe VotingThresholds) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'drepVotingThresholds + (\ x__ y__ -> x__ {_PParams'drepVotingThresholds = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "minCommitteeSize" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'minCommitteeSize + (\ x__ y__ -> x__ {_PParams'minCommitteeSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "committeeTermLimit" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'committeeTermLimit + (\ x__ y__ -> x__ {_PParams'committeeTermLimit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "governanceActionValidityPeriod" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'governanceActionValidityPeriod + (\ x__ y__ -> x__ {_PParams'governanceActionValidityPeriod = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "governanceActionDeposit" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'governanceActionDeposit + (\ x__ y__ -> x__ {_PParams'governanceActionDeposit = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'governanceActionDeposit" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'governanceActionDeposit + (\ x__ y__ -> x__ {_PParams'governanceActionDeposit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "drepDeposit" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'drepDeposit + (\ x__ y__ -> x__ {_PParams'drepDeposit = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PParams "maybe'drepDeposit" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'drepDeposit + (\ x__ y__ -> x__ {_PParams'drepDeposit = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PParams "drepInactivityPeriod" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PParams'drepInactivityPeriod + (\ x__ y__ -> x__ {_PParams'drepInactivityPeriod = y__})) + Prelude.id +instance Data.ProtoLens.Message PParams where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.PParams" + packedMessageDescriptor _ + = "\n\ + \\aPParams\DC2M\n\ + \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DLEcoinsPerUtxoByte\DC2\RS\n\ + \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2N\n\ + \\DC3min_fee_coefficient\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DC1minFeeCoefficient\DC2H\n\ + \\DLEmin_fee_constant\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\SOminFeeConstant\DC2-\n\ + \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\ + \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2J\n\ + \\DC1stake_key_deposit\CAN\a \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\SIstakeKeyDeposit\DC2A\n\ + \\fpool_deposit\CAN\b \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vpoolDeposit\DC2=\n\ + \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\ + \\ETBdesired_number_of_pools\CAN\n\ + \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2M\n\ + \\SOpool_influence\CAN\v \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\rpoolInfluence\DC2U\n\ + \\DC2monetary_expansion\CAN\f \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC1monetaryExpansion\DC2U\n\ + \\DC2treasury_expansion\CAN\r \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC1treasuryExpansion\DC2B\n\ + \\rmin_pool_cost\CAN\SO \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vminPoolCost\DC2R\n\ + \\DLEprotocol_version\CAN\SI \SOH(\v2'.utxorpc.v1beta.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\DC2C\n\ + \\vcost_models\CAN\DC3 \SOH(\v2\".utxorpc.v1beta.cardano.CostModelsR\n\ + \costModels\DC28\n\ + \\ACKprices\CAN\DC4 \SOH(\v2 .utxorpc.v1beta.cardano.ExPricesR\ACKprices\DC2m\n\ + \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2a\n\ + \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\DC2l\n\ + \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2^\n\ + \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2(.utxorpc.v1beta.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2^\n\ + \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2(.utxorpc.v1beta.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\DC2Z\n\ + \\EMgovernance_action_deposit\CAN\GS \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ETBgovernanceActionDeposit\DC2A\n\ + \\fdrep_deposit\CAN\RS \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vdrepDeposit\DC24\n\ + \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriod" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + coinsPerUtxoByte__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coins_per_utxo_byte" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coinsPerUtxoByte")) :: + Data.ProtoLens.FieldDescriptor PParams + maxTxSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_tx_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxTxSize")) :: + Data.ProtoLens.FieldDescriptor PParams + minFeeCoefficient__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_fee_coefficient" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'minFeeCoefficient")) :: + Data.ProtoLens.FieldDescriptor PParams + minFeeConstant__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_fee_constant" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'minFeeConstant")) :: + Data.ProtoLens.FieldDescriptor PParams + maxBlockBodySize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_block_body_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxBlockBodySize")) :: + Data.ProtoLens.FieldDescriptor PParams + maxBlockHeaderSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_block_header_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxBlockHeaderSize")) :: + Data.ProtoLens.FieldDescriptor PParams + stakeKeyDeposit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_key_deposit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeKeyDeposit")) :: + Data.ProtoLens.FieldDescriptor PParams + poolDeposit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_deposit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolDeposit")) :: + Data.ProtoLens.FieldDescriptor PParams + poolRetirementEpochBound__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_retirement_epoch_bound" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolRetirementEpochBound")) :: + Data.ProtoLens.FieldDescriptor PParams + desiredNumberOfPools__field_descriptor + = Data.ProtoLens.FieldDescriptor + "desired_number_of_pools" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"desiredNumberOfPools")) :: + Data.ProtoLens.FieldDescriptor PParams + poolInfluence__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_influence" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolInfluence")) :: + Data.ProtoLens.FieldDescriptor PParams + monetaryExpansion__field_descriptor + = Data.ProtoLens.FieldDescriptor + "monetary_expansion" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'monetaryExpansion")) :: + Data.ProtoLens.FieldDescriptor PParams + treasuryExpansion__field_descriptor + = Data.ProtoLens.FieldDescriptor + "treasury_expansion" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'treasuryExpansion")) :: + Data.ProtoLens.FieldDescriptor PParams + minPoolCost__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_pool_cost" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'minPoolCost")) :: + Data.ProtoLens.FieldDescriptor PParams + protocolVersion__field_descriptor + = Data.ProtoLens.FieldDescriptor + "protocol_version" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ProtocolVersion) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'protocolVersion")) :: + Data.ProtoLens.FieldDescriptor PParams + maxValueSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_value_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxValueSize")) :: + Data.ProtoLens.FieldDescriptor PParams + collateralPercentage__field_descriptor + = Data.ProtoLens.FieldDescriptor + "collateral_percentage" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"collateralPercentage")) :: + Data.ProtoLens.FieldDescriptor PParams + maxCollateralInputs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_collateral_inputs" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxCollateralInputs")) :: + Data.ProtoLens.FieldDescriptor PParams + costModels__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cost_models" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CostModels) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'costModels")) :: + Data.ProtoLens.FieldDescriptor PParams + prices__field_descriptor + = Data.ProtoLens.FieldDescriptor + "prices" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExPrices) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'prices")) :: + Data.ProtoLens.FieldDescriptor PParams + maxExecutionUnitsPerTransaction__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_execution_units_per_transaction" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExUnits) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field + @"maybe'maxExecutionUnitsPerTransaction")) :: + Data.ProtoLens.FieldDescriptor PParams + maxExecutionUnitsPerBlock__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_execution_units_per_block" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExUnits) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'maxExecutionUnitsPerBlock")) :: + Data.ProtoLens.FieldDescriptor PParams + minFeeScriptRefCostPerByte__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_fee_script_ref_cost_per_byte" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field + @"maybe'minFeeScriptRefCostPerByte")) :: + Data.ProtoLens.FieldDescriptor PParams + poolVotingThresholds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_voting_thresholds" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor VotingThresholds) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolVotingThresholds")) :: + Data.ProtoLens.FieldDescriptor PParams + drepVotingThresholds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_voting_thresholds" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor VotingThresholds) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drepVotingThresholds")) :: + Data.ProtoLens.FieldDescriptor PParams + minCommitteeSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_committee_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"minCommitteeSize")) :: + Data.ProtoLens.FieldDescriptor PParams + committeeTermLimit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_term_limit" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"committeeTermLimit")) :: + Data.ProtoLens.FieldDescriptor PParams + governanceActionValidityPeriod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "governance_action_validity_period" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"governanceActionValidityPeriod")) :: + Data.ProtoLens.FieldDescriptor PParams + governanceActionDeposit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "governance_action_deposit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'governanceActionDeposit")) :: + Data.ProtoLens.FieldDescriptor PParams + drepDeposit__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_deposit" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drepDeposit")) :: + Data.ProtoLens.FieldDescriptor PParams + drepInactivityPeriod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_inactivity_period" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"drepInactivityPeriod")) :: + Data.ProtoLens.FieldDescriptor PParams + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, coinsPerUtxoByte__field_descriptor), + (Data.ProtoLens.Tag 2, maxTxSize__field_descriptor), + (Data.ProtoLens.Tag 3, minFeeCoefficient__field_descriptor), + (Data.ProtoLens.Tag 4, minFeeConstant__field_descriptor), + (Data.ProtoLens.Tag 5, maxBlockBodySize__field_descriptor), + (Data.ProtoLens.Tag 6, maxBlockHeaderSize__field_descriptor), + (Data.ProtoLens.Tag 7, stakeKeyDeposit__field_descriptor), + (Data.ProtoLens.Tag 8, poolDeposit__field_descriptor), + (Data.ProtoLens.Tag 9, poolRetirementEpochBound__field_descriptor), + (Data.ProtoLens.Tag 10, desiredNumberOfPools__field_descriptor), + (Data.ProtoLens.Tag 11, poolInfluence__field_descriptor), + (Data.ProtoLens.Tag 12, monetaryExpansion__field_descriptor), + (Data.ProtoLens.Tag 13, treasuryExpansion__field_descriptor), + (Data.ProtoLens.Tag 14, minPoolCost__field_descriptor), + (Data.ProtoLens.Tag 15, protocolVersion__field_descriptor), + (Data.ProtoLens.Tag 16, maxValueSize__field_descriptor), + (Data.ProtoLens.Tag 17, collateralPercentage__field_descriptor), + (Data.ProtoLens.Tag 18, maxCollateralInputs__field_descriptor), + (Data.ProtoLens.Tag 19, costModels__field_descriptor), + (Data.ProtoLens.Tag 20, prices__field_descriptor), + (Data.ProtoLens.Tag 21, + maxExecutionUnitsPerTransaction__field_descriptor), + (Data.ProtoLens.Tag 22, + maxExecutionUnitsPerBlock__field_descriptor), + (Data.ProtoLens.Tag 23, + minFeeScriptRefCostPerByte__field_descriptor), + (Data.ProtoLens.Tag 24, poolVotingThresholds__field_descriptor), + (Data.ProtoLens.Tag 25, drepVotingThresholds__field_descriptor), + (Data.ProtoLens.Tag 26, minCommitteeSize__field_descriptor), + (Data.ProtoLens.Tag 27, committeeTermLimit__field_descriptor), + (Data.ProtoLens.Tag 28, + governanceActionValidityPeriod__field_descriptor), + (Data.ProtoLens.Tag 29, governanceActionDeposit__field_descriptor), + (Data.ProtoLens.Tag 30, drepDeposit__field_descriptor), + (Data.ProtoLens.Tag 31, drepInactivityPeriod__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PParams'_unknownFields + (\ x__ y__ -> x__ {_PParams'_unknownFields = y__}) + defMessage + = PParams'_constructor + {_PParams'coinsPerUtxoByte = Prelude.Nothing, + _PParams'maxTxSize = Data.ProtoLens.fieldDefault, + _PParams'minFeeCoefficient = Prelude.Nothing, + _PParams'minFeeConstant = Prelude.Nothing, + _PParams'maxBlockBodySize = Data.ProtoLens.fieldDefault, + _PParams'maxBlockHeaderSize = Data.ProtoLens.fieldDefault, + _PParams'stakeKeyDeposit = Prelude.Nothing, + _PParams'poolDeposit = Prelude.Nothing, + _PParams'poolRetirementEpochBound = Data.ProtoLens.fieldDefault, + _PParams'desiredNumberOfPools = Data.ProtoLens.fieldDefault, + _PParams'poolInfluence = Prelude.Nothing, + _PParams'monetaryExpansion = Prelude.Nothing, + _PParams'treasuryExpansion = Prelude.Nothing, + _PParams'minPoolCost = Prelude.Nothing, + _PParams'protocolVersion = Prelude.Nothing, + _PParams'maxValueSize = Data.ProtoLens.fieldDefault, + _PParams'collateralPercentage = Data.ProtoLens.fieldDefault, + _PParams'maxCollateralInputs = Data.ProtoLens.fieldDefault, + _PParams'costModels = Prelude.Nothing, + _PParams'prices = Prelude.Nothing, + _PParams'maxExecutionUnitsPerTransaction = Prelude.Nothing, + _PParams'maxExecutionUnitsPerBlock = Prelude.Nothing, + _PParams'minFeeScriptRefCostPerByte = Prelude.Nothing, + _PParams'poolVotingThresholds = Prelude.Nothing, + _PParams'drepVotingThresholds = Prelude.Nothing, + _PParams'minCommitteeSize = Data.ProtoLens.fieldDefault, + _PParams'committeeTermLimit = Data.ProtoLens.fieldDefault, + _PParams'governanceActionValidityPeriod = Data.ProtoLens.fieldDefault, + _PParams'governanceActionDeposit = Prelude.Nothing, + _PParams'drepDeposit = Prelude.Nothing, + _PParams'drepInactivityPeriod = Data.ProtoLens.fieldDefault, + _PParams'_unknownFields = []} + parseMessage + = let + loop :: PParams -> Data.ProtoLens.Encoding.Bytes.Parser PParams + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coins_per_utxo_byte" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"coinsPerUtxoByte") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "max_tx_size" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"maxTxSize") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "min_fee_coefficient" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minFeeCoefficient") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "min_fee_constant" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minFeeConstant") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "max_block_body_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxBlockBodySize") y x) + 48 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "max_block_header_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxBlockHeaderSize") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_key_deposit" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeKeyDeposit") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_deposit" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolDeposit") y x) + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "pool_retirement_epoch_bound" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolRetirementEpochBound") y x) + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "desired_number_of_pools" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"desiredNumberOfPools") y x) + 90 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_influence" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolInfluence") y x) + 98 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "monetary_expansion" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"monetaryExpansion") y x) + 106 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "treasury_expansion" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"treasuryExpansion") y x) + 114 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "min_pool_cost" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"minPoolCost") y x) + 122 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "protocol_version" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"protocolVersion") y x) + 128 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "max_value_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxValueSize") y x) + 136 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "collateral_percentage" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"collateralPercentage") y x) + 144 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "max_collateral_inputs" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxCollateralInputs") y x) + 154 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cost_models" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"costModels") y x) + 162 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "prices" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"prices") y x) + 170 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "max_execution_units_per_transaction" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxExecutionUnitsPerTransaction") + y x) + 178 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "max_execution_units_per_block" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxExecutionUnitsPerBlock") y x) + 186 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "min_fee_script_ref_cost_per_byte" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minFeeScriptRefCostPerByte") y x) + 194 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_voting_thresholds" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolVotingThresholds") y x) + 202 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep_voting_thresholds" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"drepVotingThresholds") y x) + 208 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "min_committee_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"minCommitteeSize") y x) + 216 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "committee_term_limit" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeTermLimit") y x) + 224 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "governance_action_validity_period" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"governanceActionValidityPeriod") + y x) + 234 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "governance_action_deposit" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"governanceActionDeposit") y x) + 242 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep_deposit" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"drepDeposit") y x) + 248 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt + "drep_inactivity_period" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"drepInactivityPeriod") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PParams" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'coinsPerUtxoByte") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxTxSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'minFeeCoefficient") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'minFeeConstant") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxBlockBodySize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxBlockHeaderSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 48) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeKeyDeposit") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'poolDeposit") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"poolRetirementEpochBound") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"desiredNumberOfPools") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'poolInfluence") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 90) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'monetaryExpansion") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 98) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'treasuryExpansion") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 106) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'minPoolCost") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 114) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'protocolVersion") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 122) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"maxValueSize") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 128) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"collateralPercentage") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 136) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"maxCollateralInputs") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 144) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'costModels") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 154) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'prices") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 162) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'maxExecutionUnitsPerTransaction") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 170) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'maxExecutionUnitsPerBlock") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 178) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'minFeeScriptRefCostPerByte") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 186) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'poolVotingThresholds") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 194) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'drepVotingThresholds") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 202) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"minCommitteeSize") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 208) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"committeeTermLimit") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 216) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"governanceActionValidityPeriod") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 224) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'governanceActionDeposit") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 234) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'drepDeposit") + _x + of + Prelude.Nothing + -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 242) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field + @"drepInactivityPeriod") + _x + in + if (Prelude.==) + _v + Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 248) + (Data.ProtoLens.Encoding.Bytes.putVarInt + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x)))))))))))))))))))))))))))))))) +instance Control.DeepSeq.NFData PParams where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PParams'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PParams'coinsPerUtxoByte x__) + (Control.DeepSeq.deepseq + (_PParams'maxTxSize x__) + (Control.DeepSeq.deepseq + (_PParams'minFeeCoefficient x__) + (Control.DeepSeq.deepseq + (_PParams'minFeeConstant x__) + (Control.DeepSeq.deepseq + (_PParams'maxBlockBodySize x__) + (Control.DeepSeq.deepseq + (_PParams'maxBlockHeaderSize x__) + (Control.DeepSeq.deepseq + (_PParams'stakeKeyDeposit x__) + (Control.DeepSeq.deepseq + (_PParams'poolDeposit x__) + (Control.DeepSeq.deepseq + (_PParams'poolRetirementEpochBound x__) + (Control.DeepSeq.deepseq + (_PParams'desiredNumberOfPools x__) + (Control.DeepSeq.deepseq + (_PParams'poolInfluence x__) + (Control.DeepSeq.deepseq + (_PParams'monetaryExpansion x__) + (Control.DeepSeq.deepseq + (_PParams'treasuryExpansion x__) + (Control.DeepSeq.deepseq + (_PParams'minPoolCost x__) + (Control.DeepSeq.deepseq + (_PParams'protocolVersion x__) + (Control.DeepSeq.deepseq + (_PParams'maxValueSize x__) + (Control.DeepSeq.deepseq + (_PParams'collateralPercentage x__) + (Control.DeepSeq.deepseq + (_PParams'maxCollateralInputs + x__) + (Control.DeepSeq.deepseq + (_PParams'costModels x__) + (Control.DeepSeq.deepseq + (_PParams'prices x__) + (Control.DeepSeq.deepseq + (_PParams'maxExecutionUnitsPerTransaction + x__) + (Control.DeepSeq.deepseq + (_PParams'maxExecutionUnitsPerBlock + x__) + (Control.DeepSeq.deepseq + (_PParams'minFeeScriptRefCostPerByte + x__) + (Control.DeepSeq.deepseq + (_PParams'poolVotingThresholds + x__) + (Control.DeepSeq.deepseq + (_PParams'drepVotingThresholds + x__) + (Control.DeepSeq.deepseq + (_PParams'minCommitteeSize + x__) + (Control.DeepSeq.deepseq + (_PParams'committeeTermLimit + x__) + (Control.DeepSeq.deepseq + (_PParams'governanceActionValidityPeriod + x__) + (Control.DeepSeq.deepseq + (_PParams'governanceActionDeposit + x__) + (Control.DeepSeq.deepseq + (_PParams'drepDeposit + x__) + (Control.DeepSeq.deepseq + (_PParams'drepInactivityPeriod + x__) + ()))))))))))))))))))))))))))))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govActionId' @:: Lens' ParameterChangeAction GovernanceActionId@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'govActionId' @:: Lens' ParameterChangeAction (Prelude.Maybe GovernanceActionId)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolParamUpdate' @:: Lens' ParameterChangeAction PParams@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'protocolParamUpdate' @:: Lens' ParameterChangeAction (Prelude.Maybe PParams)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.policyHash' @:: Lens' ParameterChangeAction Data.ByteString.ByteString@ -} +data ParameterChangeAction + = ParameterChangeAction'_constructor {_ParameterChangeAction'govActionId :: !(Prelude.Maybe GovernanceActionId), + _ParameterChangeAction'protocolParamUpdate :: !(Prelude.Maybe PParams), + _ParameterChangeAction'policyHash :: !Data.ByteString.ByteString, + _ParameterChangeAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ParameterChangeAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ParameterChangeAction "govActionId" GovernanceActionId where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ParameterChangeAction'govActionId + (\ x__ y__ -> x__ {_ParameterChangeAction'govActionId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ParameterChangeAction "maybe'govActionId" (Prelude.Maybe GovernanceActionId) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ParameterChangeAction'govActionId + (\ x__ y__ -> x__ {_ParameterChangeAction'govActionId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ParameterChangeAction "protocolParamUpdate" PParams where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ParameterChangeAction'protocolParamUpdate + (\ x__ y__ + -> x__ {_ParameterChangeAction'protocolParamUpdate = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ParameterChangeAction "maybe'protocolParamUpdate" (Prelude.Maybe PParams) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ParameterChangeAction'protocolParamUpdate + (\ x__ y__ + -> x__ {_ParameterChangeAction'protocolParamUpdate = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ParameterChangeAction "policyHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ParameterChangeAction'policyHash + (\ x__ y__ -> x__ {_ParameterChangeAction'policyHash = y__})) + Prelude.id +instance Data.ProtoLens.Message ParameterChangeAction where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.ParameterChangeAction" + packedMessageDescriptor _ + = "\n\ + \\NAKParameterChangeAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2S\n\ + \\NAKprotocol_param_update\CAN\STX \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsR\DC3protocolParamUpdate\DC2\US\n\ + \\vpolicy_hash\CAN\ETX \SOH(\fR\n\ + \policyHash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + govActionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GovernanceActionId) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'govActionId")) :: + Data.ProtoLens.FieldDescriptor ParameterChangeAction + protocolParamUpdate__field_descriptor + = Data.ProtoLens.FieldDescriptor + "protocol_param_update" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PParams) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'protocolParamUpdate")) :: + Data.ProtoLens.FieldDescriptor ParameterChangeAction + policyHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "policy_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"policyHash")) :: + Data.ProtoLens.FieldDescriptor ParameterChangeAction + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, govActionId__field_descriptor), + (Data.ProtoLens.Tag 2, protocolParamUpdate__field_descriptor), + (Data.ProtoLens.Tag 3, policyHash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ParameterChangeAction'_unknownFields + (\ x__ y__ -> x__ {_ParameterChangeAction'_unknownFields = y__}) + defMessage + = ParameterChangeAction'_constructor + {_ParameterChangeAction'govActionId = Prelude.Nothing, + _ParameterChangeAction'protocolParamUpdate = Prelude.Nothing, + _ParameterChangeAction'policyHash = Data.ProtoLens.fieldDefault, + _ParameterChangeAction'_unknownFields = []} + parseMessage + = let + loop :: + ParameterChangeAction + -> Data.ProtoLens.Encoding.Bytes.Parser ParameterChangeAction + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gov_action_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"govActionId") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "protocol_param_update" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"protocolParamUpdate") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "policy_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"policyHash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ParameterChangeAction" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'govActionId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'protocolParamUpdate") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"policyHash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ParameterChangeAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ParameterChangeAction'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ParameterChangeAction'govActionId x__) + (Control.DeepSeq.deepseq + (_ParameterChangeAction'protocolParamUpdate x__) + (Control.DeepSeq.deepseq + (_ParameterChangeAction'policyHash x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusData' @:: Lens' PlutusData (Prelude.Maybe PlutusData'PlutusData)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'constr' @:: Lens' PlutusData (Prelude.Maybe Constr)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.constr' @:: Lens' PlutusData Constr@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'map' @:: Lens' PlutusData (Prelude.Maybe PlutusDataMap)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.map' @:: Lens' PlutusData PlutusDataMap@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' PlutusData (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bigInt' @:: Lens' PlutusData BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'boundedBytes' @:: Lens' PlutusData (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.boundedBytes' @:: Lens' PlutusData Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'array' @:: Lens' PlutusData (Prelude.Maybe PlutusDataArray)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.array' @:: Lens' PlutusData PlutusDataArray@ -} +data PlutusData + = PlutusData'_constructor {_PlutusData'plutusData :: !(Prelude.Maybe PlutusData'PlutusData), + _PlutusData'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PlutusData where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data PlutusData'PlutusData + = PlutusData'Constr !Constr | + PlutusData'Map !PlutusDataMap | + PlutusData'BigInt !BigInt | + PlutusData'BoundedBytes !Data.ByteString.ByteString | + PlutusData'Array !PlutusDataArray + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField PlutusData "maybe'plutusData" (Prelude.Maybe PlutusData'PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PlutusData "maybe'constr" (Prelude.Maybe Constr) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'Constr y__)) +instance Data.ProtoLens.Field.HasField PlutusData "constr" Constr where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'Constr y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField PlutusData "maybe'map" (Prelude.Maybe PlutusDataMap) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'Map y__)) +instance Data.ProtoLens.Field.HasField PlutusData "map" PlutusDataMap where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'Map y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField PlutusData "maybe'bigInt" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__)) +instance Data.ProtoLens.Field.HasField PlutusData "bigInt" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField PlutusData "maybe'boundedBytes" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'BoundedBytes x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__)) +instance Data.ProtoLens.Field.HasField PlutusData "boundedBytes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'BoundedBytes x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField PlutusData "maybe'array" (Prelude.Maybe PlutusDataArray) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'Array y__)) +instance Data.ProtoLens.Field.HasField PlutusData "array" PlutusDataArray where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusData'plutusData + (\ x__ y__ -> x__ {_PlutusData'plutusData = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap PlutusData'Array y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message PlutusData where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.PlutusData" + packedMessageDescriptor _ + = "\n\ + \\n\ + \PlutusData\DC28\n\ + \\ACKconstr\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.ConstrH\NULR\ACKconstr\DC29\n\ + \\ETXmap\CAN\ETX \SOH(\v2%.utxorpc.v1beta.cardano.PlutusDataMapH\NULR\ETXmap\DC29\n\ + \\abig_int\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\ + \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2?\n\ + \\ENQarray\CAN\ACK \SOH(\v2'.utxorpc.v1beta.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\ + \\vplutus_data" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + constr__field_descriptor + = Data.ProtoLens.FieldDescriptor + "constr" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Constr) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'constr")) :: + Data.ProtoLens.FieldDescriptor PlutusData + map__field_descriptor + = Data.ProtoLens.FieldDescriptor + "map" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusDataMap) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'map")) :: + Data.ProtoLens.FieldDescriptor PlutusData + bigInt__field_descriptor + = Data.ProtoLens.FieldDescriptor + "big_int" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'bigInt")) :: + Data.ProtoLens.FieldDescriptor PlutusData + boundedBytes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bounded_bytes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'boundedBytes")) :: + Data.ProtoLens.FieldDescriptor PlutusData + array__field_descriptor + = Data.ProtoLens.FieldDescriptor + "array" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusDataArray) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'array")) :: + Data.ProtoLens.FieldDescriptor PlutusData + in + Data.Map.fromList + [(Data.ProtoLens.Tag 2, constr__field_descriptor), + (Data.ProtoLens.Tag 3, map__field_descriptor), + (Data.ProtoLens.Tag 4, bigInt__field_descriptor), + (Data.ProtoLens.Tag 5, boundedBytes__field_descriptor), + (Data.ProtoLens.Tag 6, array__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PlutusData'_unknownFields + (\ x__ y__ -> x__ {_PlutusData'_unknownFields = y__}) + defMessage + = PlutusData'_constructor + {_PlutusData'plutusData = Prelude.Nothing, + _PlutusData'_unknownFields = []} + parseMessage + = let + loop :: + PlutusData -> Data.ProtoLens.Encoding.Bytes.Parser PlutusData + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "constr" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"constr") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "map" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "big_int" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigInt") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "bounded_bytes" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"boundedBytes") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "array" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PlutusData" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'plutusData") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (PlutusData'Constr v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (PlutusData'Map v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (PlutusData'BigInt v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (PlutusData'BoundedBytes v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (PlutusData'Array v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData PlutusData where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PlutusData'_unknownFields x__) + (Control.DeepSeq.deepseq (_PlutusData'plutusData x__) ()) +instance Control.DeepSeq.NFData PlutusData'PlutusData where + rnf (PlutusData'Constr x__) = Control.DeepSeq.rnf x__ + rnf (PlutusData'Map x__) = Control.DeepSeq.rnf x__ + rnf (PlutusData'BigInt x__) = Control.DeepSeq.rnf x__ + rnf (PlutusData'BoundedBytes x__) = Control.DeepSeq.rnf x__ + rnf (PlutusData'Array x__) = Control.DeepSeq.rnf x__ +_PlutusData'Constr :: + Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Constr +_PlutusData'Constr + = Data.ProtoLens.Prism.prism' + PlutusData'Constr + (\ p__ + -> case p__ of + (PlutusData'Constr p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_PlutusData'Map :: + Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataMap +_PlutusData'Map + = Data.ProtoLens.Prism.prism' + PlutusData'Map + (\ p__ + -> case p__ of + (PlutusData'Map p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_PlutusData'BigInt :: + Data.ProtoLens.Prism.Prism' PlutusData'PlutusData BigInt +_PlutusData'BigInt + = Data.ProtoLens.Prism.prism' + PlutusData'BigInt + (\ p__ + -> case p__ of + (PlutusData'BigInt p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_PlutusData'BoundedBytes :: + Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Data.ByteString.ByteString +_PlutusData'BoundedBytes + = Data.ProtoLens.Prism.prism' + PlutusData'BoundedBytes + (\ p__ + -> case p__ of + (PlutusData'BoundedBytes p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_PlutusData'Array :: + Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataArray +_PlutusData'Array + = Data.ProtoLens.Prism.prism' + PlutusData'Array + (\ p__ + -> case p__ of + (PlutusData'Array p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.items' @:: Lens' PlutusDataArray [PlutusData]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'items' @:: Lens' PlutusDataArray (Data.Vector.Vector PlutusData)@ -} +data PlutusDataArray + = PlutusDataArray'_constructor {_PlutusDataArray'items :: !(Data.Vector.Vector PlutusData), + _PlutusDataArray'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PlutusDataArray where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PlutusDataArray "items" [PlutusData] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataArray'items + (\ x__ y__ -> x__ {_PlutusDataArray'items = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField PlutusDataArray "vec'items" (Data.Vector.Vector PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataArray'items + (\ x__ y__ -> x__ {_PlutusDataArray'items = y__})) + Prelude.id +instance Data.ProtoLens.Message PlutusDataArray where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PlutusDataArray" + packedMessageDescriptor _ + = "\n\ + \\SIPlutusDataArray\DC28\n\ + \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ENQitems" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + items__field_descriptor + = Data.ProtoLens.FieldDescriptor + "items" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusData) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: + Data.ProtoLens.FieldDescriptor PlutusDataArray + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PlutusDataArray'_unknownFields + (\ x__ y__ -> x__ {_PlutusDataArray'_unknownFields = y__}) + defMessage + = PlutusDataArray'_constructor + {_PlutusDataArray'items = Data.Vector.Generic.empty, + _PlutusDataArray'_unknownFields = []} + parseMessage + = let + loop :: + PlutusDataArray + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData + -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataArray + loop x mutable'items + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "items" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'items y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'items + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'items) + "PlutusDataArray" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData PlutusDataArray where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PlutusDataArray'_unknownFields x__) + (Control.DeepSeq.deepseq (_PlutusDataArray'items x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.pairs' @:: Lens' PlutusDataMap [PlutusDataPair]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'pairs' @:: Lens' PlutusDataMap (Data.Vector.Vector PlutusDataPair)@ -} +data PlutusDataMap + = PlutusDataMap'_constructor {_PlutusDataMap'pairs :: !(Data.Vector.Vector PlutusDataPair), + _PlutusDataMap'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PlutusDataMap where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PlutusDataMap "pairs" [PlutusDataPair] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataMap'pairs + (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField PlutusDataMap "vec'pairs" (Data.Vector.Vector PlutusDataPair) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataMap'pairs + (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__})) + Prelude.id +instance Data.ProtoLens.Message PlutusDataMap where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PlutusDataMap" + packedMessageDescriptor _ + = "\n\ + \\rPlutusDataMap\DC2<\n\ + \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1beta.cardano.PlutusDataPairR\ENQpairs" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + pairs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pairs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusDataPair) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pairs")) :: + Data.ProtoLens.FieldDescriptor PlutusDataMap + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, pairs__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PlutusDataMap'_unknownFields + (\ x__ y__ -> x__ {_PlutusDataMap'_unknownFields = y__}) + defMessage + = PlutusDataMap'_constructor + {_PlutusDataMap'pairs = Data.Vector.Generic.empty, + _PlutusDataMap'_unknownFields = []} + parseMessage + = let + loop :: + PlutusDataMap + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusDataPair + -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataMap + loop x mutable'pairs + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "pairs" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'pairs y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'pairs + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'pairs) + "PlutusDataMap" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pairs") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData PlutusDataMap where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PlutusDataMap'_unknownFields x__) + (Control.DeepSeq.deepseq (_PlutusDataMap'pairs x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.key' @:: Lens' PlutusDataPair PlutusData@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'key' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.value' @:: Lens' PlutusDataPair PlutusData@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'value' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@ -} +data PlutusDataPair + = PlutusDataPair'_constructor {_PlutusDataPair'key :: !(Prelude.Maybe PlutusData), + _PlutusDataPair'value :: !(Prelude.Maybe PlutusData), + _PlutusDataPair'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PlutusDataPair where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PlutusDataPair "key" PlutusData where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'key" (Prelude.Maybe PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PlutusDataPair "value" PlutusData where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataPair'value + (\ x__ y__ -> x__ {_PlutusDataPair'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'value" (Prelude.Maybe PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PlutusDataPair'value + (\ x__ y__ -> x__ {_PlutusDataPair'value = y__})) + Prelude.id +instance Data.ProtoLens.Message PlutusDataPair where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PlutusDataPair" + packedMessageDescriptor _ + = "\n\ + \\SOPlutusDataPair\DC24\n\ + \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ETXkey\DC28\n\ + \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusData) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'key")) :: + Data.ProtoLens.FieldDescriptor PlutusDataPair + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusData) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor PlutusDataPair + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PlutusDataPair'_unknownFields + (\ x__ y__ -> x__ {_PlutusDataPair'_unknownFields = y__}) + defMessage + = PlutusDataPair'_constructor + {_PlutusDataPair'key = Prelude.Nothing, + _PlutusDataPair'value = Prelude.Nothing, + _PlutusDataPair'_unknownFields = []} + parseMessage + = let + loop :: + PlutusDataPair + -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataPair + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PlutusDataPair" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData PlutusDataPair where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PlutusDataPair'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PlutusDataPair'key x__) + (Control.DeepSeq.deepseq (_PlutusDataPair'value x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.url' @:: Lens' PoolMetadata Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' PoolMetadata Data.ByteString.ByteString@ -} +data PoolMetadata + = PoolMetadata'_constructor {_PoolMetadata'url :: !Data.Text.Text, + _PoolMetadata'hash :: !Data.ByteString.ByteString, + _PoolMetadata'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PoolMetadata where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PoolMetadata "url" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolMetadata'url (\ x__ y__ -> x__ {_PoolMetadata'url = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolMetadata "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolMetadata'hash (\ x__ y__ -> x__ {_PoolMetadata'hash = y__})) + Prelude.id +instance Data.ProtoLens.Message PoolMetadata where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PoolMetadata" + packedMessageDescriptor _ + = "\n\ + \\fPoolMetadata\DC2\DLE\n\ + \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + url__field_descriptor + = Data.ProtoLens.FieldDescriptor + "url" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"url")) :: + Data.ProtoLens.FieldDescriptor PoolMetadata + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor PoolMetadata + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, url__field_descriptor), + (Data.ProtoLens.Tag 2, hash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PoolMetadata'_unknownFields + (\ x__ y__ -> x__ {_PoolMetadata'_unknownFields = y__}) + defMessage + = PoolMetadata'_constructor + {_PoolMetadata'url = Data.ProtoLens.fieldDefault, + _PoolMetadata'hash = Data.ProtoLens.fieldDefault, + _PoolMetadata'_unknownFields = []} + parseMessage + = let + loop :: + PoolMetadata -> Data.ProtoLens.Encoding.Bytes.Parser PoolMetadata + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "url" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"url") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PoolMetadata" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"url") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData PoolMetadata where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PoolMetadata'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PoolMetadata'url x__) + (Control.DeepSeq.deepseq (_PoolMetadata'hash x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.operator' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.pledge' @:: Lens' PoolRegistrationCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'pledge' @:: Lens' PoolRegistrationCert (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.cost' @:: Lens' PoolRegistrationCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'cost' @:: Lens' PoolRegistrationCert (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.margin' @:: Lens' PoolRegistrationCert RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'margin' @:: Lens' PoolRegistrationCert (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.rewardAccount' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolOwners' @:: Lens' PoolRegistrationCert [Data.ByteString.ByteString]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'poolOwners' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.relays' @:: Lens' PoolRegistrationCert [Relay]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'relays' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Relay)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolMetadata' @:: Lens' PoolRegistrationCert PoolMetadata@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'poolMetadata' @:: Lens' PoolRegistrationCert (Prelude.Maybe PoolMetadata)@ -} +data PoolRegistrationCert + = PoolRegistrationCert'_constructor {_PoolRegistrationCert'operator :: !Data.ByteString.ByteString, + _PoolRegistrationCert'vrfKeyhash :: !Data.ByteString.ByteString, + _PoolRegistrationCert'pledge :: !(Prelude.Maybe BigInt), + _PoolRegistrationCert'cost :: !(Prelude.Maybe BigInt), + _PoolRegistrationCert'margin :: !(Prelude.Maybe RationalNumber), + _PoolRegistrationCert'rewardAccount :: !Data.ByteString.ByteString, + _PoolRegistrationCert'poolOwners :: !(Data.Vector.Vector Data.ByteString.ByteString), + _PoolRegistrationCert'relays :: !(Data.Vector.Vector Relay), + _PoolRegistrationCert'poolMetadata :: !(Prelude.Maybe PoolMetadata), + _PoolRegistrationCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PoolRegistrationCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "operator" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'operator + (\ x__ y__ -> x__ {_PoolRegistrationCert'operator = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vrfKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'vrfKeyhash + (\ x__ y__ -> x__ {_PoolRegistrationCert'vrfKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "pledge" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'pledge + (\ x__ y__ -> x__ {_PoolRegistrationCert'pledge = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'pledge" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'pledge + (\ x__ y__ -> x__ {_PoolRegistrationCert'pledge = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "cost" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'cost + (\ x__ y__ -> x__ {_PoolRegistrationCert'cost = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'cost" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'cost + (\ x__ y__ -> x__ {_PoolRegistrationCert'cost = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "margin" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'margin + (\ x__ y__ -> x__ {_PoolRegistrationCert'margin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'margin" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'margin + (\ x__ y__ -> x__ {_PoolRegistrationCert'margin = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "rewardAccount" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'rewardAccount + (\ x__ y__ -> x__ {_PoolRegistrationCert'rewardAccount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolOwners" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'poolOwners + (\ x__ y__ -> x__ {_PoolRegistrationCert'poolOwners = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'poolOwners" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'poolOwners + (\ x__ y__ -> x__ {_PoolRegistrationCert'poolOwners = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "relays" [Relay] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'relays + (\ x__ y__ -> x__ {_PoolRegistrationCert'relays = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'relays" (Data.Vector.Vector Relay) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'relays + (\ x__ y__ -> x__ {_PoolRegistrationCert'relays = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolMetadata" PoolMetadata where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'poolMetadata + (\ x__ y__ -> x__ {_PoolRegistrationCert'poolMetadata = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'poolMetadata" (Prelude.Maybe PoolMetadata) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationCert'poolMetadata + (\ x__ y__ -> x__ {_PoolRegistrationCert'poolMetadata = y__})) + Prelude.id +instance Data.ProtoLens.Message PoolRegistrationCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PoolRegistrationCert" + packedMessageDescriptor _ + = "\n\ + \\DC4PoolRegistrationCert\DC2\SUB\n\ + \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\ + \\vvrf_keyhash\CAN\STX \SOH(\fR\n\ + \vrfKeyhash\DC26\n\ + \\ACKpledge\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ACKpledge\DC22\n\ + \\EOTcost\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcost\DC2>\n\ + \\ACKmargin\CAN\ENQ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\ACKmargin\DC2%\n\ + \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\ + \\vpool_owners\CAN\a \ETX(\fR\n\ + \poolOwners\DC25\n\ + \\ACKrelays\CAN\b \ETX(\v2\GS.utxorpc.v1beta.cardano.RelayR\ACKrelays\DC2I\n\ + \\rpool_metadata\CAN\t \SOH(\v2$.utxorpc.v1beta.cardano.PoolMetadataR\fpoolMetadata" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + operator__field_descriptor + = Data.ProtoLens.FieldDescriptor + "operator" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"operator")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + vrfKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vrf_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"vrfKeyhash")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + pledge__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pledge" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'pledge")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + cost__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cost" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cost")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + margin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "margin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'margin")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + rewardAccount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reward_account" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"rewardAccount")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + poolOwners__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_owners" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"poolOwners")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + relays__field_descriptor + = Data.ProtoLens.FieldDescriptor + "relays" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Relay) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"relays")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + poolMetadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PoolMetadata) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'poolMetadata")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, operator__field_descriptor), + (Data.ProtoLens.Tag 2, vrfKeyhash__field_descriptor), + (Data.ProtoLens.Tag 3, pledge__field_descriptor), + (Data.ProtoLens.Tag 4, cost__field_descriptor), + (Data.ProtoLens.Tag 5, margin__field_descriptor), + (Data.ProtoLens.Tag 6, rewardAccount__field_descriptor), + (Data.ProtoLens.Tag 7, poolOwners__field_descriptor), + (Data.ProtoLens.Tag 8, relays__field_descriptor), + (Data.ProtoLens.Tag 9, poolMetadata__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PoolRegistrationCert'_unknownFields + (\ x__ y__ -> x__ {_PoolRegistrationCert'_unknownFields = y__}) + defMessage + = PoolRegistrationCert'_constructor + {_PoolRegistrationCert'operator = Data.ProtoLens.fieldDefault, + _PoolRegistrationCert'vrfKeyhash = Data.ProtoLens.fieldDefault, + _PoolRegistrationCert'pledge = Prelude.Nothing, + _PoolRegistrationCert'cost = Prelude.Nothing, + _PoolRegistrationCert'margin = Prelude.Nothing, + _PoolRegistrationCert'rewardAccount = Data.ProtoLens.fieldDefault, + _PoolRegistrationCert'poolOwners = Data.Vector.Generic.empty, + _PoolRegistrationCert'relays = Data.Vector.Generic.empty, + _PoolRegistrationCert'poolMetadata = Prelude.Nothing, + _PoolRegistrationCert'_unknownFields = []} + parseMessage + = let + loop :: + PoolRegistrationCert + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Relay + -> Data.ProtoLens.Encoding.Bytes.Parser PoolRegistrationCert + loop x mutable'poolOwners mutable'relays + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'poolOwners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'poolOwners) + frozen'relays <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'relays) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'poolOwners") frozen'poolOwners + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'relays") frozen'relays x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "operator" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"operator") y x) + mutable'poolOwners mutable'relays + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vrf_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vrfKeyhash") y x) + mutable'poolOwners mutable'relays + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pledge" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"pledge") y x) + mutable'poolOwners mutable'relays + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cost" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"cost") y x) + mutable'poolOwners mutable'relays + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "margin" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"margin") y x) + mutable'poolOwners mutable'relays + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "reward_account" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"rewardAccount") y x) + mutable'poolOwners mutable'relays + 58 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_owners" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'poolOwners y) + loop x v mutable'relays + 66 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "relays" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'relays y) + loop x mutable'poolOwners v + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pool_metadata" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"poolMetadata") y x) + mutable'poolOwners mutable'relays + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'poolOwners mutable'relays + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'poolOwners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'relays <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'poolOwners mutable'relays) + "PoolRegistrationCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"operator") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"vrfKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'pledge") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'cost") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'margin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"rewardAccount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'poolOwners") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'relays") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'poolMetadata") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))))) +instance Control.DeepSeq.NFData PoolRegistrationCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PoolRegistrationCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'operator x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'vrfKeyhash x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'pledge x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'cost x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'margin x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'rewardAccount x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'poolOwners x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'relays x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationCert'poolMetadata x__) ()))))))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.operator' @:: Lens' PoolRegistrationPattern Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' PoolRegistrationPattern Data.ByteString.ByteString@ -} +data PoolRegistrationPattern + = PoolRegistrationPattern'_constructor {_PoolRegistrationPattern'operator :: !Data.ByteString.ByteString, + _PoolRegistrationPattern'poolKeyhash :: !Data.ByteString.ByteString, + _PoolRegistrationPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PoolRegistrationPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PoolRegistrationPattern "operator" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationPattern'operator + (\ x__ y__ -> x__ {_PoolRegistrationPattern'operator = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRegistrationPattern "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRegistrationPattern'poolKeyhash + (\ x__ y__ -> x__ {_PoolRegistrationPattern'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Message PoolRegistrationPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PoolRegistrationPattern" + packedMessageDescriptor _ + = "\n\ + \\ETBPoolRegistrationPattern\DC2\SUB\n\ + \\boperator\CAN\SOH \SOH(\fR\boperator\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + operator__field_descriptor + = Data.ProtoLens.FieldDescriptor + "operator" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"operator")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationPattern + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor PoolRegistrationPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, operator__field_descriptor), + (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PoolRegistrationPattern'_unknownFields + (\ x__ y__ -> x__ {_PoolRegistrationPattern'_unknownFields = y__}) + defMessage + = PoolRegistrationPattern'_constructor + {_PoolRegistrationPattern'operator = Data.ProtoLens.fieldDefault, + _PoolRegistrationPattern'poolKeyhash = Data.ProtoLens.fieldDefault, + _PoolRegistrationPattern'_unknownFields = []} + parseMessage + = let + loop :: + PoolRegistrationPattern + -> Data.ProtoLens.Encoding.Bytes.Parser PoolRegistrationPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "operator" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"operator") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PoolRegistrationPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"operator") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData PoolRegistrationPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PoolRegistrationPattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationPattern'operator x__) + (Control.DeepSeq.deepseq + (_PoolRegistrationPattern'poolKeyhash x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' PoolRetirementCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.epoch' @:: Lens' PoolRetirementCert Data.Word.Word64@ -} +data PoolRetirementCert + = PoolRetirementCert'_constructor {_PoolRetirementCert'poolKeyhash :: !Data.ByteString.ByteString, + _PoolRetirementCert'epoch :: !Data.Word.Word64, + _PoolRetirementCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PoolRetirementCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PoolRetirementCert "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRetirementCert'poolKeyhash + (\ x__ y__ -> x__ {_PoolRetirementCert'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRetirementCert "epoch" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRetirementCert'epoch + (\ x__ y__ -> x__ {_PoolRetirementCert'epoch = y__})) + Prelude.id +instance Data.ProtoLens.Message PoolRetirementCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PoolRetirementCert" + packedMessageDescriptor _ + = "\n\ + \\DC2PoolRetirementCert\DC2!\n\ + \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\ + \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor PoolRetirementCert + epoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"epoch")) :: + Data.ProtoLens.FieldDescriptor PoolRetirementCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, poolKeyhash__field_descriptor), + (Data.ProtoLens.Tag 2, epoch__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PoolRetirementCert'_unknownFields + (\ x__ y__ -> x__ {_PoolRetirementCert'_unknownFields = y__}) + defMessage + = PoolRetirementCert'_constructor + {_PoolRetirementCert'poolKeyhash = Data.ProtoLens.fieldDefault, + _PoolRetirementCert'epoch = Data.ProtoLens.fieldDefault, + _PoolRetirementCert'_unknownFields = []} + parseMessage + = let + loop :: + PoolRetirementCert + -> Data.ProtoLens.Encoding.Bytes.Parser PoolRetirementCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "epoch" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epoch") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PoolRetirementCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"epoch") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData PoolRetirementCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PoolRetirementCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PoolRetirementCert'poolKeyhash x__) + (Control.DeepSeq.deepseq (_PoolRetirementCert'epoch x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' PoolRetirementPattern Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.epoch' @:: Lens' PoolRetirementPattern Data.Word.Word64@ -} +data PoolRetirementPattern + = PoolRetirementPattern'_constructor {_PoolRetirementPattern'poolKeyhash :: !Data.ByteString.ByteString, + _PoolRetirementPattern'epoch :: !Data.Word.Word64, + _PoolRetirementPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PoolRetirementPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PoolRetirementPattern "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRetirementPattern'poolKeyhash + (\ x__ y__ -> x__ {_PoolRetirementPattern'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolRetirementPattern "epoch" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolRetirementPattern'epoch + (\ x__ y__ -> x__ {_PoolRetirementPattern'epoch = y__})) + Prelude.id +instance Data.ProtoLens.Message PoolRetirementPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PoolRetirementPattern" + packedMessageDescriptor _ + = "\n\ + \\NAKPoolRetirementPattern\DC2!\n\ + \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\ + \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor PoolRetirementPattern + epoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"epoch")) :: + Data.ProtoLens.FieldDescriptor PoolRetirementPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, poolKeyhash__field_descriptor), + (Data.ProtoLens.Tag 2, epoch__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PoolRetirementPattern'_unknownFields + (\ x__ y__ -> x__ {_PoolRetirementPattern'_unknownFields = y__}) + defMessage + = PoolRetirementPattern'_constructor + {_PoolRetirementPattern'poolKeyhash = Data.ProtoLens.fieldDefault, + _PoolRetirementPattern'epoch = Data.ProtoLens.fieldDefault, + _PoolRetirementPattern'_unknownFields = []} + parseMessage + = let + loop :: + PoolRetirementPattern + -> Data.ProtoLens.Encoding.Bytes.Parser PoolRetirementPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "epoch" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epoch") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PoolRetirementPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"epoch") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData PoolRetirementPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PoolRetirementPattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PoolRetirementPattern'poolKeyhash x__) + (Control.DeepSeq.deepseq (_PoolRetirementPattern'epoch x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.motionNoConfidence' @:: Lens' PoolVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'motionNoConfidence' @:: Lens' PoolVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeNormal' @:: Lens' PoolVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeNormal' @:: Lens' PoolVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeNoConfidence' @:: Lens' PoolVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeNoConfidence' @:: Lens' PoolVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hardForkInitiation' @:: Lens' PoolVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'hardForkInitiation' @:: Lens' PoolVotingThresholds (Prelude.Maybe RationalNumber)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ppSecurityGroup' @:: Lens' PoolVotingThresholds RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'ppSecurityGroup' @:: Lens' PoolVotingThresholds (Prelude.Maybe RationalNumber)@ -} +data PoolVotingThresholds + = PoolVotingThresholds'_constructor {_PoolVotingThresholds'motionNoConfidence :: !(Prelude.Maybe RationalNumber), + _PoolVotingThresholds'committeeNormal :: !(Prelude.Maybe RationalNumber), + _PoolVotingThresholds'committeeNoConfidence :: !(Prelude.Maybe RationalNumber), + _PoolVotingThresholds'hardForkInitiation :: !(Prelude.Maybe RationalNumber), + _PoolVotingThresholds'ppSecurityGroup :: !(Prelude.Maybe RationalNumber), + _PoolVotingThresholds'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show PoolVotingThresholds where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "motionNoConfidence" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'motionNoConfidence + (\ x__ y__ + -> x__ {_PoolVotingThresholds'motionNoConfidence = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "maybe'motionNoConfidence" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'motionNoConfidence + (\ x__ y__ + -> x__ {_PoolVotingThresholds'motionNoConfidence = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "committeeNormal" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'committeeNormal + (\ x__ y__ -> x__ {_PoolVotingThresholds'committeeNormal = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "maybe'committeeNormal" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'committeeNormal + (\ x__ y__ -> x__ {_PoolVotingThresholds'committeeNormal = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "committeeNoConfidence" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'committeeNoConfidence + (\ x__ y__ + -> x__ {_PoolVotingThresholds'committeeNoConfidence = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "maybe'committeeNoConfidence" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'committeeNoConfidence + (\ x__ y__ + -> x__ {_PoolVotingThresholds'committeeNoConfidence = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "hardForkInitiation" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'hardForkInitiation + (\ x__ y__ + -> x__ {_PoolVotingThresholds'hardForkInitiation = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "maybe'hardForkInitiation" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'hardForkInitiation + (\ x__ y__ + -> x__ {_PoolVotingThresholds'hardForkInitiation = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "ppSecurityGroup" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'ppSecurityGroup + (\ x__ y__ -> x__ {_PoolVotingThresholds'ppSecurityGroup = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField PoolVotingThresholds "maybe'ppSecurityGroup" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _PoolVotingThresholds'ppSecurityGroup + (\ x__ y__ -> x__ {_PoolVotingThresholds'ppSecurityGroup = y__})) + Prelude.id +instance Data.ProtoLens.Message PoolVotingThresholds where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.PoolVotingThresholds" + packedMessageDescriptor _ + = "\n\ + \\DC4PoolVotingThresholds\DC2X\n\ + \\DC4motion_no_confidence\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2motionNoConfidence\DC2Q\n\ + \\DLEcommittee_normal\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIcommitteeNormal\DC2^\n\ + \\ETBcommittee_no_confidence\CAN\ETX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\NAKcommitteeNoConfidence\DC2X\n\ + \\DC4hard_fork_initiation\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2hardForkInitiation\DC2R\n\ + \\DC1pp_security_group\CAN\ENQ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIppSecurityGroup" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + motionNoConfidence__field_descriptor + = Data.ProtoLens.FieldDescriptor + "motion_no_confidence" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'motionNoConfidence")) :: + Data.ProtoLens.FieldDescriptor PoolVotingThresholds + committeeNormal__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_normal" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeNormal")) :: + Data.ProtoLens.FieldDescriptor PoolVotingThresholds + committeeNoConfidence__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_no_confidence" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeNoConfidence")) :: + Data.ProtoLens.FieldDescriptor PoolVotingThresholds + hardForkInitiation__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hard_fork_initiation" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hardForkInitiation")) :: + Data.ProtoLens.FieldDescriptor PoolVotingThresholds + ppSecurityGroup__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pp_security_group" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ppSecurityGroup")) :: + Data.ProtoLens.FieldDescriptor PoolVotingThresholds + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, motionNoConfidence__field_descriptor), + (Data.ProtoLens.Tag 2, committeeNormal__field_descriptor), + (Data.ProtoLens.Tag 3, committeeNoConfidence__field_descriptor), + (Data.ProtoLens.Tag 4, hardForkInitiation__field_descriptor), + (Data.ProtoLens.Tag 5, ppSecurityGroup__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _PoolVotingThresholds'_unknownFields + (\ x__ y__ -> x__ {_PoolVotingThresholds'_unknownFields = y__}) + defMessage + = PoolVotingThresholds'_constructor + {_PoolVotingThresholds'motionNoConfidence = Prelude.Nothing, + _PoolVotingThresholds'committeeNormal = Prelude.Nothing, + _PoolVotingThresholds'committeeNoConfidence = Prelude.Nothing, + _PoolVotingThresholds'hardForkInitiation = Prelude.Nothing, + _PoolVotingThresholds'ppSecurityGroup = Prelude.Nothing, + _PoolVotingThresholds'_unknownFields = []} + parseMessage + = let + loop :: + PoolVotingThresholds + -> Data.ProtoLens.Encoding.Bytes.Parser PoolVotingThresholds + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "motion_no_confidence" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"motionNoConfidence") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_normal" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeNormal") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_no_confidence" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeNoConfidence") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "hard_fork_initiation" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"hardForkInitiation") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "pp_security_group" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"ppSecurityGroup") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "PoolVotingThresholds" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'motionNoConfidence") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeNormal") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeNoConfidence") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'hardForkInitiation") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ppSecurityGroup") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData PoolVotingThresholds where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_PoolVotingThresholds'_unknownFields x__) + (Control.DeepSeq.deepseq + (_PoolVotingThresholds'motionNoConfidence x__) + (Control.DeepSeq.deepseq + (_PoolVotingThresholds'committeeNormal x__) + (Control.DeepSeq.deepseq + (_PoolVotingThresholds'committeeNoConfidence x__) + (Control.DeepSeq.deepseq + (_PoolVotingThresholds'hardForkInitiation x__) + (Control.DeepSeq.deepseq + (_PoolVotingThresholds'ppSecurityGroup x__) ()))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.k' @:: Lens' ProtocolConsts Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.protocolMagic' @:: Lens' ProtocolConsts Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vssMaxTtl' @:: Lens' ProtocolConsts Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vssMinTtl' @:: Lens' ProtocolConsts Data.Word.Word32@ -} +data ProtocolConsts + = ProtocolConsts'_constructor {_ProtocolConsts'k :: !Data.Word.Word32, + _ProtocolConsts'protocolMagic :: !Data.Word.Word32, + _ProtocolConsts'vssMaxTtl :: !Data.Word.Word32, + _ProtocolConsts'vssMinTtl :: !Data.Word.Word32, + _ProtocolConsts'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ProtocolConsts where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ProtocolConsts "k" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProtocolConsts'k (\ x__ y__ -> x__ {_ProtocolConsts'k = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProtocolConsts "protocolMagic" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProtocolConsts'protocolMagic + (\ x__ y__ -> x__ {_ProtocolConsts'protocolMagic = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProtocolConsts "vssMaxTtl" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProtocolConsts'vssMaxTtl + (\ x__ y__ -> x__ {_ProtocolConsts'vssMaxTtl = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProtocolConsts "vssMinTtl" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProtocolConsts'vssMinTtl + (\ x__ y__ -> x__ {_ProtocolConsts'vssMinTtl = y__})) + Prelude.id +instance Data.ProtoLens.Message ProtocolConsts where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.ProtocolConsts" + packedMessageDescriptor _ + = "\n\ + \\SOProtocolConsts\DC2\f\n\ + \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2%\n\ + \\SOprotocol_magic\CAN\STX \SOH(\rR\rprotocolMagic\DC2\RS\n\ + \\vvss_max_ttl\CAN\ETX \SOH(\rR\tvssMaxTtl\DC2\RS\n\ + \\vvss_min_ttl\CAN\EOT \SOH(\rR\tvssMinTtl" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + k__field_descriptor + = Data.ProtoLens.FieldDescriptor + "k" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"k")) :: + Data.ProtoLens.FieldDescriptor ProtocolConsts + protocolMagic__field_descriptor + = Data.ProtoLens.FieldDescriptor + "protocol_magic" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"protocolMagic")) :: + Data.ProtoLens.FieldDescriptor ProtocolConsts + vssMaxTtl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vss_max_ttl" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"vssMaxTtl")) :: + Data.ProtoLens.FieldDescriptor ProtocolConsts + vssMinTtl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vss_min_ttl" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"vssMinTtl")) :: + Data.ProtoLens.FieldDescriptor ProtocolConsts + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, k__field_descriptor), + (Data.ProtoLens.Tag 2, protocolMagic__field_descriptor), + (Data.ProtoLens.Tag 3, vssMaxTtl__field_descriptor), + (Data.ProtoLens.Tag 4, vssMinTtl__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ProtocolConsts'_unknownFields + (\ x__ y__ -> x__ {_ProtocolConsts'_unknownFields = y__}) + defMessage + = ProtocolConsts'_constructor + {_ProtocolConsts'k = Data.ProtoLens.fieldDefault, + _ProtocolConsts'protocolMagic = Data.ProtoLens.fieldDefault, + _ProtocolConsts'vssMaxTtl = Data.ProtoLens.fieldDefault, + _ProtocolConsts'vssMinTtl = Data.ProtoLens.fieldDefault, + _ProtocolConsts'_unknownFields = []} + parseMessage + = let + loop :: + ProtocolConsts + -> Data.ProtoLens.Encoding.Bytes.Parser ProtocolConsts + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "k" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"k") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "protocol_magic" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"protocolMagic") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "vss_max_ttl" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vssMaxTtl") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "vss_min_ttl" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"vssMinTtl") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ProtocolConsts" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"k") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"protocolMagic") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vssMaxTtl") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vssMinTtl") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData ProtocolConsts where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ProtocolConsts'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ProtocolConsts'k x__) + (Control.DeepSeq.deepseq + (_ProtocolConsts'protocolMagic x__) + (Control.DeepSeq.deepseq + (_ProtocolConsts'vssMaxTtl x__) + (Control.DeepSeq.deepseq (_ProtocolConsts'vssMinTtl x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.major' @:: Lens' ProtocolVersion Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minor' @:: Lens' ProtocolVersion Data.Word.Word32@ -} +data ProtocolVersion + = ProtocolVersion'_constructor {_ProtocolVersion'major :: !Data.Word.Word32, + _ProtocolVersion'minor :: !Data.Word.Word32, + _ProtocolVersion'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ProtocolVersion where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ProtocolVersion "major" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProtocolVersion'major + (\ x__ y__ -> x__ {_ProtocolVersion'major = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ProtocolVersion "minor" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProtocolVersion'minor + (\ x__ y__ -> x__ {_ProtocolVersion'minor = y__})) + Prelude.id +instance Data.ProtoLens.Message ProtocolVersion where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.ProtocolVersion" + packedMessageDescriptor _ + = "\n\ + \\SIProtocolVersion\DC2\DC4\n\ + \\ENQmajor\CAN\SOH \SOH(\rR\ENQmajor\DC2\DC4\n\ + \\ENQminor\CAN\STX \SOH(\rR\ENQminor" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + major__field_descriptor + = Data.ProtoLens.FieldDescriptor + "major" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"major")) :: + Data.ProtoLens.FieldDescriptor ProtocolVersion + minor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "minor" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minor")) :: + Data.ProtoLens.FieldDescriptor ProtocolVersion + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, major__field_descriptor), + (Data.ProtoLens.Tag 2, minor__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ProtocolVersion'_unknownFields + (\ x__ y__ -> x__ {_ProtocolVersion'_unknownFields = y__}) + defMessage + = ProtocolVersion'_constructor + {_ProtocolVersion'major = Data.ProtoLens.fieldDefault, + _ProtocolVersion'minor = Data.ProtoLens.fieldDefault, + _ProtocolVersion'_unknownFields = []} + parseMessage + = let + loop :: + ProtocolVersion + -> Data.ProtoLens.Encoding.Bytes.Parser ProtocolVersion + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "major" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"major") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "minor" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minor") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ProtocolVersion" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"major") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"minor") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ProtocolVersion where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ProtocolVersion'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ProtocolVersion'major x__) + (Control.DeepSeq.deepseq (_ProtocolVersion'minor x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.numerator' @:: Lens' RationalNumber Data.Int.Int32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.denominator' @:: Lens' RationalNumber Data.Word.Word32@ -} +data RationalNumber + = RationalNumber'_constructor {_RationalNumber'numerator :: !Data.Int.Int32, + _RationalNumber'denominator :: !Data.Word.Word32, + _RationalNumber'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RationalNumber where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RationalNumber "numerator" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RationalNumber'numerator + (\ x__ y__ -> x__ {_RationalNumber'numerator = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RationalNumber "denominator" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RationalNumber'denominator + (\ x__ y__ -> x__ {_RationalNumber'denominator = y__})) + Prelude.id +instance Data.ProtoLens.Message RationalNumber where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.RationalNumber" + packedMessageDescriptor _ + = "\n\ + \\SORationalNumber\DC2\FS\n\ + \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\ + \\vdenominator\CAN\STX \SOH(\rR\vdenominator" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + numerator__field_descriptor + = Data.ProtoLens.FieldDescriptor + "numerator" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"numerator")) :: + Data.ProtoLens.FieldDescriptor RationalNumber + denominator__field_descriptor + = Data.ProtoLens.FieldDescriptor + "denominator" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"denominator")) :: + Data.ProtoLens.FieldDescriptor RationalNumber + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, numerator__field_descriptor), + (Data.ProtoLens.Tag 2, denominator__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RationalNumber'_unknownFields + (\ x__ y__ -> x__ {_RationalNumber'_unknownFields = y__}) + defMessage + = RationalNumber'_constructor + {_RationalNumber'numerator = Data.ProtoLens.fieldDefault, + _RationalNumber'denominator = Data.ProtoLens.fieldDefault, + _RationalNumber'_unknownFields = []} + parseMessage + = let + loop :: + RationalNumber + -> Data.ProtoLens.Encoding.Bytes.Parser RationalNumber + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "numerator" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"numerator") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "denominator" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"denominator") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RationalNumber" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"numerator") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"denominator") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RationalNumber where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RationalNumber'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RationalNumber'numerator x__) + (Control.DeepSeq.deepseq (_RationalNumber'denominator x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.purpose' @:: Lens' Redeemer RedeemerPurpose@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.payload' @:: Lens' Redeemer PlutusData@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'payload' @:: Lens' Redeemer (Prelude.Maybe PlutusData)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.index' @:: Lens' Redeemer Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.exUnits' @:: Lens' Redeemer ExUnits@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'exUnits' @:: Lens' Redeemer (Prelude.Maybe ExUnits)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.originalCbor' @:: Lens' Redeemer Data.ByteString.ByteString@ -} +data Redeemer + = Redeemer'_constructor {_Redeemer'purpose :: !RedeemerPurpose, + _Redeemer'payload :: !(Prelude.Maybe PlutusData), + _Redeemer'index :: !Data.Word.Word32, + _Redeemer'exUnits :: !(Prelude.Maybe ExUnits), + _Redeemer'originalCbor :: !Data.ByteString.ByteString, + _Redeemer'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Redeemer where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Redeemer "purpose" RedeemerPurpose where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Redeemer'purpose (\ x__ y__ -> x__ {_Redeemer'purpose = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Redeemer "payload" PlutusData where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Redeemer'payload (\ x__ y__ -> x__ {_Redeemer'payload = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Redeemer "maybe'payload" (Prelude.Maybe PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Redeemer'payload (\ x__ y__ -> x__ {_Redeemer'payload = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Redeemer "index" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Redeemer'index (\ x__ y__ -> x__ {_Redeemer'index = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Redeemer "exUnits" ExUnits where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Redeemer'exUnits (\ x__ y__ -> x__ {_Redeemer'exUnits = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Redeemer "maybe'exUnits" (Prelude.Maybe ExUnits) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Redeemer'exUnits (\ x__ y__ -> x__ {_Redeemer'exUnits = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Redeemer "originalCbor" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Redeemer'originalCbor + (\ x__ y__ -> x__ {_Redeemer'originalCbor = y__})) + Prelude.id +instance Data.ProtoLens.Message Redeemer where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Redeemer" + packedMessageDescriptor _ + = "\n\ + \\bRedeemer\DC2A\n\ + \\apurpose\CAN\SOH \SOH(\SO2'.utxorpc.v1beta.cardano.RedeemerPurposeR\apurpose\DC2<\n\ + \\apayload\CAN\STX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataR\apayload\DC2\DC4\n\ + \\ENQindex\CAN\ETX \SOH(\rR\ENQindex\DC2:\n\ + \\bex_units\CAN\EOT \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\aexUnits\DC2#\n\ + \\roriginal_cbor\CAN\ENQ \SOH(\fR\foriginalCbor" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + purpose__field_descriptor + = Data.ProtoLens.FieldDescriptor + "purpose" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor RedeemerPurpose) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"purpose")) :: + Data.ProtoLens.FieldDescriptor Redeemer + payload__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payload" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusData) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'payload")) :: + Data.ProtoLens.FieldDescriptor Redeemer + index__field_descriptor + = Data.ProtoLens.FieldDescriptor + "index" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"index")) :: + Data.ProtoLens.FieldDescriptor Redeemer + exUnits__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ex_units" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExUnits) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'exUnits")) :: + Data.ProtoLens.FieldDescriptor Redeemer + originalCbor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "original_cbor" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"originalCbor")) :: + Data.ProtoLens.FieldDescriptor Redeemer + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, purpose__field_descriptor), + (Data.ProtoLens.Tag 2, payload__field_descriptor), + (Data.ProtoLens.Tag 3, index__field_descriptor), + (Data.ProtoLens.Tag 4, exUnits__field_descriptor), + (Data.ProtoLens.Tag 5, originalCbor__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Redeemer'_unknownFields + (\ x__ y__ -> x__ {_Redeemer'_unknownFields = y__}) + defMessage + = Redeemer'_constructor + {_Redeemer'purpose = Data.ProtoLens.fieldDefault, + _Redeemer'payload = Prelude.Nothing, + _Redeemer'index = Data.ProtoLens.fieldDefault, + _Redeemer'exUnits = Prelude.Nothing, + _Redeemer'originalCbor = Data.ProtoLens.fieldDefault, + _Redeemer'_unknownFields = []} + parseMessage + = let + loop :: Redeemer -> Data.ProtoLens.Encoding.Bytes.Parser Redeemer + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "purpose" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"purpose") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "payload" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "index" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"index") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ex_units" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"exUnits") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "original_cbor" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"originalCbor") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Redeemer" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"purpose") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"index") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'exUnits") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"originalCbor") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData Redeemer where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Redeemer'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Redeemer'purpose x__) + (Control.DeepSeq.deepseq + (_Redeemer'payload x__) + (Control.DeepSeq.deepseq + (_Redeemer'index x__) + (Control.DeepSeq.deepseq + (_Redeemer'exUnits x__) + (Control.DeepSeq.deepseq (_Redeemer'originalCbor x__) ()))))) +newtype RedeemerPurpose'UnrecognizedValue + = RedeemerPurpose'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data RedeemerPurpose + = REDEEMER_PURPOSE_UNSPECIFIED | + REDEEMER_PURPOSE_SPEND | + REDEEMER_PURPOSE_MINT | + REDEEMER_PURPOSE_CERT | + REDEEMER_PURPOSE_REWARD | + REDEEMER_PURPOSE_VOTE | + REDEEMER_PURPOSE_PROPOSE | + RedeemerPurpose'Unrecognized !RedeemerPurpose'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum RedeemerPurpose where + maybeToEnum 0 = Prelude.Just REDEEMER_PURPOSE_UNSPECIFIED + maybeToEnum 1 = Prelude.Just REDEEMER_PURPOSE_SPEND + maybeToEnum 2 = Prelude.Just REDEEMER_PURPOSE_MINT + maybeToEnum 3 = Prelude.Just REDEEMER_PURPOSE_CERT + maybeToEnum 4 = Prelude.Just REDEEMER_PURPOSE_REWARD + maybeToEnum 5 = Prelude.Just REDEEMER_PURPOSE_VOTE + maybeToEnum 6 = Prelude.Just REDEEMER_PURPOSE_PROPOSE + maybeToEnum k + = Prelude.Just + (RedeemerPurpose'Unrecognized + (RedeemerPurpose'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum REDEEMER_PURPOSE_UNSPECIFIED + = "REDEEMER_PURPOSE_UNSPECIFIED" + showEnum REDEEMER_PURPOSE_SPEND = "REDEEMER_PURPOSE_SPEND" + showEnum REDEEMER_PURPOSE_MINT = "REDEEMER_PURPOSE_MINT" + showEnum REDEEMER_PURPOSE_CERT = "REDEEMER_PURPOSE_CERT" + showEnum REDEEMER_PURPOSE_REWARD = "REDEEMER_PURPOSE_REWARD" + showEnum REDEEMER_PURPOSE_VOTE = "REDEEMER_PURPOSE_VOTE" + showEnum REDEEMER_PURPOSE_PROPOSE = "REDEEMER_PURPOSE_PROPOSE" + showEnum + (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "REDEEMER_PURPOSE_UNSPECIFIED" + = Prelude.Just REDEEMER_PURPOSE_UNSPECIFIED + | (Prelude.==) k "REDEEMER_PURPOSE_SPEND" + = Prelude.Just REDEEMER_PURPOSE_SPEND + | (Prelude.==) k "REDEEMER_PURPOSE_MINT" + = Prelude.Just REDEEMER_PURPOSE_MINT + | (Prelude.==) k "REDEEMER_PURPOSE_CERT" + = Prelude.Just REDEEMER_PURPOSE_CERT + | (Prelude.==) k "REDEEMER_PURPOSE_REWARD" + = Prelude.Just REDEEMER_PURPOSE_REWARD + | (Prelude.==) k "REDEEMER_PURPOSE_VOTE" + = Prelude.Just REDEEMER_PURPOSE_VOTE + | (Prelude.==) k "REDEEMER_PURPOSE_PROPOSE" + = Prelude.Just REDEEMER_PURPOSE_PROPOSE + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded RedeemerPurpose where + minBound = REDEEMER_PURPOSE_UNSPECIFIED + maxBound = REDEEMER_PURPOSE_PROPOSE +instance Prelude.Enum RedeemerPurpose where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum RedeemerPurpose: " + (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum REDEEMER_PURPOSE_UNSPECIFIED = 0 + fromEnum REDEEMER_PURPOSE_SPEND = 1 + fromEnum REDEEMER_PURPOSE_MINT = 2 + fromEnum REDEEMER_PURPOSE_CERT = 3 + fromEnum REDEEMER_PURPOSE_REWARD = 4 + fromEnum REDEEMER_PURPOSE_VOTE = 5 + fromEnum REDEEMER_PURPOSE_PROPOSE = 6 + fromEnum + (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ REDEEMER_PURPOSE_PROPOSE + = Prelude.error + "RedeemerPurpose.succ: bad argument REDEEMER_PURPOSE_PROPOSE. This value would be out of bounds." + succ REDEEMER_PURPOSE_UNSPECIFIED = REDEEMER_PURPOSE_SPEND + succ REDEEMER_PURPOSE_SPEND = REDEEMER_PURPOSE_MINT + succ REDEEMER_PURPOSE_MINT = REDEEMER_PURPOSE_CERT + succ REDEEMER_PURPOSE_CERT = REDEEMER_PURPOSE_REWARD + succ REDEEMER_PURPOSE_REWARD = REDEEMER_PURPOSE_VOTE + succ REDEEMER_PURPOSE_VOTE = REDEEMER_PURPOSE_PROPOSE + succ (RedeemerPurpose'Unrecognized _) + = Prelude.error + "RedeemerPurpose.succ: bad argument: unrecognized value" + pred REDEEMER_PURPOSE_UNSPECIFIED + = Prelude.error + "RedeemerPurpose.pred: bad argument REDEEMER_PURPOSE_UNSPECIFIED. This value would be out of bounds." + pred REDEEMER_PURPOSE_SPEND = REDEEMER_PURPOSE_UNSPECIFIED + pred REDEEMER_PURPOSE_MINT = REDEEMER_PURPOSE_SPEND + pred REDEEMER_PURPOSE_CERT = REDEEMER_PURPOSE_MINT + pred REDEEMER_PURPOSE_REWARD = REDEEMER_PURPOSE_CERT + pred REDEEMER_PURPOSE_VOTE = REDEEMER_PURPOSE_REWARD + pred REDEEMER_PURPOSE_PROPOSE = REDEEMER_PURPOSE_VOTE + pred (RedeemerPurpose'Unrecognized _) + = Prelude.error + "RedeemerPurpose.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault RedeemerPurpose where + fieldDefault = REDEEMER_PURPOSE_UNSPECIFIED +instance Control.DeepSeq.NFData RedeemerPurpose where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' RegCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' RegCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' RegCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' RegCert (Prelude.Maybe BigInt)@ -} +data RegCert + = RegCert'_constructor {_RegCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _RegCert'coin :: !(Prelude.Maybe BigInt), + _RegCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RegCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RegCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegCert'stakeCredential + (\ x__ y__ -> x__ {_RegCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RegCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegCert'stakeCredential + (\ x__ y__ -> x__ {_RegCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RegCert "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegCert'coin (\ x__ y__ -> x__ {_RegCert'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RegCert "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegCert'coin (\ x__ y__ -> x__ {_RegCert'coin = y__})) + Prelude.id +instance Data.ProtoLens.Message RegCert where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.RegCert" + packedMessageDescriptor _ + = "\n\ + \\aRegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor RegCert + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor RegCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, coin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RegCert'_unknownFields + (\ x__ y__ -> x__ {_RegCert'_unknownFields = y__}) + defMessage + = RegCert'_constructor + {_RegCert'stakeCredential = Prelude.Nothing, + _RegCert'coin = Prelude.Nothing, _RegCert'_unknownFields = []} + parseMessage + = let + loop :: RegCert -> Data.ProtoLens.Encoding.Bytes.Parser RegCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RegCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData RegCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RegCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RegCert'stakeCredential x__) + (Control.DeepSeq.deepseq (_RegCert'coin x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepCredential' @:: Lens' RegDRepCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drepCredential' @:: Lens' RegDRepCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' RegDRepCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' RegDRepCert (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anchor' @:: Lens' RegDRepCert Anchor@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anchor' @:: Lens' RegDRepCert (Prelude.Maybe Anchor)@ -} +data RegDRepCert + = RegDRepCert'_constructor {_RegDRepCert'drepCredential :: !(Prelude.Maybe StakeCredential), + _RegDRepCert'coin :: !(Prelude.Maybe BigInt), + _RegDRepCert'anchor :: !(Prelude.Maybe Anchor), + _RegDRepCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show RegDRepCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField RegDRepCert "drepCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegDRepCert'drepCredential + (\ x__ y__ -> x__ {_RegDRepCert'drepCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RegDRepCert "maybe'drepCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegDRepCert'drepCredential + (\ x__ y__ -> x__ {_RegDRepCert'drepCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RegDRepCert "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegDRepCert'coin (\ x__ y__ -> x__ {_RegDRepCert'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RegDRepCert "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegDRepCert'coin (\ x__ y__ -> x__ {_RegDRepCert'coin = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField RegDRepCert "anchor" Anchor where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegDRepCert'anchor (\ x__ y__ -> x__ {_RegDRepCert'anchor = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField RegDRepCert "maybe'anchor" (Prelude.Maybe Anchor) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _RegDRepCert'anchor (\ x__ y__ -> x__ {_RegDRepCert'anchor = y__})) + Prelude.id +instance Data.ProtoLens.Message RegDRepCert where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.RegDRepCert" + packedMessageDescriptor _ + = "\n\ + \\vRegDRepCert\DC2P\n\ + \\SIdrep_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SOdrepCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\DC26\n\ + \\ACKanchor\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + drepCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drepCredential")) :: + Data.ProtoLens.FieldDescriptor RegDRepCert + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor RegDRepCert + anchor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "anchor" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Anchor) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anchor")) :: + Data.ProtoLens.FieldDescriptor RegDRepCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, drepCredential__field_descriptor), + (Data.ProtoLens.Tag 2, coin__field_descriptor), + (Data.ProtoLens.Tag 3, anchor__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _RegDRepCert'_unknownFields + (\ x__ y__ -> x__ {_RegDRepCert'_unknownFields = y__}) + defMessage + = RegDRepCert'_constructor + {_RegDRepCert'drepCredential = Prelude.Nothing, + _RegDRepCert'coin = Prelude.Nothing, + _RegDRepCert'anchor = Prelude.Nothing, + _RegDRepCert'_unknownFields = []} + parseMessage + = let + loop :: + RegDRepCert -> Data.ProtoLens.Encoding.Bytes.Parser RegDRepCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"drepCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "anchor" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anchor") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RegDRepCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'drepCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'anchor") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData RegDRepCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_RegDRepCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_RegDRepCert'drepCredential x__) + (Control.DeepSeq.deepseq + (_RegDRepCert'coin x__) + (Control.DeepSeq.deepseq (_RegDRepCert'anchor x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ipV4' @:: Lens' Relay Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ipV6' @:: Lens' Relay Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.dnsName' @:: Lens' Relay Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.port' @:: Lens' Relay Data.Word.Word32@ -} +data Relay + = Relay'_constructor {_Relay'ipV4 :: !Data.ByteString.ByteString, + _Relay'ipV6 :: !Data.ByteString.ByteString, + _Relay'dnsName :: !Data.Text.Text, + _Relay'port :: !Data.Word.Word32, + _Relay'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Relay where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Relay "ipV4" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Relay'ipV4 (\ x__ y__ -> x__ {_Relay'ipV4 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Relay "ipV6" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Relay'ipV6 (\ x__ y__ -> x__ {_Relay'ipV6 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Relay "dnsName" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Relay'dnsName (\ x__ y__ -> x__ {_Relay'dnsName = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Relay "port" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Relay'port (\ x__ y__ -> x__ {_Relay'port = y__})) + Prelude.id +instance Data.ProtoLens.Message Relay where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Relay" + packedMessageDescriptor _ + = "\n\ + \\ENQRelay\DC2\DC3\n\ + \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\ + \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\ + \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\ + \\EOTport\CAN\EOT \SOH(\rR\EOTport" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ipV4__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ip_v4" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ipV4")) :: + Data.ProtoLens.FieldDescriptor Relay + ipV6__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ip_v6" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ipV6")) :: + Data.ProtoLens.FieldDescriptor Relay + dnsName__field_descriptor + = Data.ProtoLens.FieldDescriptor + "dns_name" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"dnsName")) :: + Data.ProtoLens.FieldDescriptor Relay + port__field_descriptor + = Data.ProtoLens.FieldDescriptor + "port" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"port")) :: + Data.ProtoLens.FieldDescriptor Relay + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, ipV4__field_descriptor), + (Data.ProtoLens.Tag 2, ipV6__field_descriptor), + (Data.ProtoLens.Tag 3, dnsName__field_descriptor), + (Data.ProtoLens.Tag 4, port__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Relay'_unknownFields + (\ x__ y__ -> x__ {_Relay'_unknownFields = y__}) + defMessage + = Relay'_constructor + {_Relay'ipV4 = Data.ProtoLens.fieldDefault, + _Relay'ipV6 = Data.ProtoLens.fieldDefault, + _Relay'dnsName = Data.ProtoLens.fieldDefault, + _Relay'port = Data.ProtoLens.fieldDefault, + _Relay'_unknownFields = []} + parseMessage + = let + loop :: Relay -> Data.ProtoLens.Encoding.Bytes.Parser Relay + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ip_v4" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ipV4") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ip_v6" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ipV6") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "dns_name" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"dnsName") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "port" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"port") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Relay" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ipV4") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ipV6") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"dnsName") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"port") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData Relay where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Relay'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Relay'ipV4 x__) + (Control.DeepSeq.deepseq + (_Relay'ipV6 x__) + (Control.DeepSeq.deepseq + (_Relay'dnsName x__) + (Control.DeepSeq.deepseq (_Relay'port x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.committeeColdCredential' @:: Lens' ResignCommitteeColdCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'committeeColdCredential' @:: Lens' ResignCommitteeColdCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anchor' @:: Lens' ResignCommitteeColdCert Anchor@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anchor' @:: Lens' ResignCommitteeColdCert (Prelude.Maybe Anchor)@ -} +data ResignCommitteeColdCert + = ResignCommitteeColdCert'_constructor {_ResignCommitteeColdCert'committeeColdCredential :: !(Prelude.Maybe StakeCredential), + _ResignCommitteeColdCert'anchor :: !(Prelude.Maybe Anchor), + _ResignCommitteeColdCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResignCommitteeColdCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResignCommitteeColdCert "committeeColdCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResignCommitteeColdCert'committeeColdCredential + (\ x__ y__ + -> x__ {_ResignCommitteeColdCert'committeeColdCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ResignCommitteeColdCert "maybe'committeeColdCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResignCommitteeColdCert'committeeColdCredential + (\ x__ y__ + -> x__ {_ResignCommitteeColdCert'committeeColdCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ResignCommitteeColdCert "anchor" Anchor where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResignCommitteeColdCert'anchor + (\ x__ y__ -> x__ {_ResignCommitteeColdCert'anchor = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ResignCommitteeColdCert "maybe'anchor" (Prelude.Maybe Anchor) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResignCommitteeColdCert'anchor + (\ x__ y__ -> x__ {_ResignCommitteeColdCert'anchor = y__})) + Prelude.id +instance Data.ProtoLens.Message ResignCommitteeColdCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.ResignCommitteeColdCert" + packedMessageDescriptor _ + = "\n\ + \\ETBResignCommitteeColdCert\DC2c\n\ + \\EMcommittee_cold_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\ETBcommitteeColdCredential\DC26\n\ + \\ACKanchor\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + committeeColdCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "committee_cold_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'committeeColdCredential")) :: + Data.ProtoLens.FieldDescriptor ResignCommitteeColdCert + anchor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "anchor" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Anchor) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anchor")) :: + Data.ProtoLens.FieldDescriptor ResignCommitteeColdCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, committeeColdCredential__field_descriptor), + (Data.ProtoLens.Tag 2, anchor__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResignCommitteeColdCert'_unknownFields + (\ x__ y__ -> x__ {_ResignCommitteeColdCert'_unknownFields = y__}) + defMessage + = ResignCommitteeColdCert'_constructor + {_ResignCommitteeColdCert'committeeColdCredential = Prelude.Nothing, + _ResignCommitteeColdCert'anchor = Prelude.Nothing, + _ResignCommitteeColdCert'_unknownFields = []} + parseMessage + = let + loop :: + ResignCommitteeColdCert + -> Data.ProtoLens.Encoding.Bytes.Parser ResignCommitteeColdCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "committee_cold_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"committeeColdCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "anchor" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anchor") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResignCommitteeColdCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'committeeColdCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'anchor") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ResignCommitteeColdCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResignCommitteeColdCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ResignCommitteeColdCert'committeeColdCredential x__) + (Control.DeepSeq.deepseq (_ResignCommitteeColdCert'anchor x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'script' @:: Lens' Script (Prelude.Maybe Script'Script)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'native' @:: Lens' Script (Prelude.Maybe NativeScript)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.native' @:: Lens' Script NativeScript@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV1' @:: Lens' Script Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV2' @:: Lens' Script Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV3' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV3' @:: Lens' Script Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'plutusV4' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusV4' @:: Lens' Script Data.ByteString.ByteString@ -} +data Script + = Script'_constructor {_Script'script :: !(Prelude.Maybe Script'Script), + _Script'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Script where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data Script'Script + = Script'Native !NativeScript | + Script'PlutusV1 !Data.ByteString.ByteString | + Script'PlutusV2 !Data.ByteString.ByteString | + Script'PlutusV3 !Data.ByteString.ByteString | + Script'PlutusV4 !Data.ByteString.ByteString + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField Script "maybe'script" (Prelude.Maybe Script'Script) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Script "maybe'native" (Prelude.Maybe NativeScript) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'Native y__)) +instance Data.ProtoLens.Field.HasField Script "native" NativeScript where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'Native y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Field.HasField Script "maybe'plutusV1" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__)) +instance Data.ProtoLens.Field.HasField Script "plutusV1" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField Script "maybe'plutusV2" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__)) +instance Data.ProtoLens.Field.HasField Script "plutusV2" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField Script "maybe'plutusV3" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV3 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV3 y__)) +instance Data.ProtoLens.Field.HasField Script "plutusV3" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV3 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV3 y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField Script "maybe'plutusV4" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV4 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV4 y__)) +instance Data.ProtoLens.Field.HasField Script "plutusV4" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Script'script (\ x__ y__ -> x__ {_Script'script = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (Script'PlutusV4 x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'PlutusV4 y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message Script where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Script" + packedMessageDescriptor _ + = "\n\ + \\ACKScript\DC2>\n\ + \\ACKnative\CAN\SOH \SOH(\v2$.utxorpc.v1beta.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\ + \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\ + \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2\DC2\GS\n\ + \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\bplutusV3\DC2\GS\n\ + \\tplutus_v4\CAN\ENQ \SOH(\fH\NULR\bplutusV4B\b\n\ + \\ACKscript" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + native__field_descriptor + = Data.ProtoLens.FieldDescriptor + "native" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NativeScript) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'native")) :: + Data.ProtoLens.FieldDescriptor Script + plutusV1__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v1" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV1")) :: + Data.ProtoLens.FieldDescriptor Script + plutusV2__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v2" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV2")) :: + Data.ProtoLens.FieldDescriptor Script + plutusV3__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v3" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV3")) :: + Data.ProtoLens.FieldDescriptor Script + plutusV4__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_v4" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'plutusV4")) :: + Data.ProtoLens.FieldDescriptor Script + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, native__field_descriptor), + (Data.ProtoLens.Tag 2, plutusV1__field_descriptor), + (Data.ProtoLens.Tag 3, plutusV2__field_descriptor), + (Data.ProtoLens.Tag 4, plutusV3__field_descriptor), + (Data.ProtoLens.Tag 5, plutusV4__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Script'_unknownFields + (\ x__ y__ -> x__ {_Script'_unknownFields = y__}) + defMessage + = Script'_constructor + {_Script'script = Prelude.Nothing, _Script'_unknownFields = []} + parseMessage + = let + loop :: Script -> Data.ProtoLens.Encoding.Bytes.Parser Script + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "native" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"native") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "plutus_v1" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "plutus_v2" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "plutus_v3" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV3") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "plutus_v4" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV4") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Script" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'script") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (Script'Native v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v) + (Prelude.Just (Script'PlutusV1 v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (Script'PlutusV2 v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (Script'PlutusV3 v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (Script'PlutusV4 v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData Script where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Script'_unknownFields x__) + (Control.DeepSeq.deepseq (_Script'script x__) ()) +instance Control.DeepSeq.NFData Script'Script where + rnf (Script'Native x__) = Control.DeepSeq.rnf x__ + rnf (Script'PlutusV1 x__) = Control.DeepSeq.rnf x__ + rnf (Script'PlutusV2 x__) = Control.DeepSeq.rnf x__ + rnf (Script'PlutusV3 x__) = Control.DeepSeq.rnf x__ + rnf (Script'PlutusV4 x__) = Control.DeepSeq.rnf x__ +_Script'Native :: + Data.ProtoLens.Prism.Prism' Script'Script NativeScript +_Script'Native + = Data.ProtoLens.Prism.prism' + Script'Native + (\ p__ + -> case p__ of + (Script'Native p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Script'PlutusV1 :: + Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString +_Script'PlutusV1 + = Data.ProtoLens.Prism.prism' + Script'PlutusV1 + (\ p__ + -> case p__ of + (Script'PlutusV1 p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Script'PlutusV2 :: + Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString +_Script'PlutusV2 + = Data.ProtoLens.Prism.prism' + Script'PlutusV2 + (\ p__ + -> case p__ of + (Script'PlutusV2 p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Script'PlutusV3 :: + Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString +_Script'PlutusV3 + = Data.ProtoLens.Prism.prism' + Script'PlutusV3 + (\ p__ + -> case p__ of + (Script'PlutusV3 p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_Script'PlutusV4 :: + Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString +_Script'PlutusV4 + = Data.ProtoLens.Prism.prism' + Script'PlutusV4 + (\ p__ + -> case p__ of + (Script'PlutusV4 p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.k' @:: Lens' ScriptNOfK Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scripts' @:: Lens' ScriptNOfK [NativeScript]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'scripts' @:: Lens' ScriptNOfK (Data.Vector.Vector NativeScript)@ -} +data ScriptNOfK + = ScriptNOfK'_constructor {_ScriptNOfK'k :: !Data.Word.Word32, + _ScriptNOfK'scripts :: !(Data.Vector.Vector NativeScript), + _ScriptNOfK'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ScriptNOfK where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ScriptNOfK "k" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ScriptNOfK'k (\ x__ y__ -> x__ {_ScriptNOfK'k = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ScriptNOfK "scripts" [NativeScript] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ScriptNOfK "vec'scripts" (Data.Vector.Vector NativeScript) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__})) + Prelude.id +instance Data.ProtoLens.Message ScriptNOfK where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.ScriptNOfK" + packedMessageDescriptor _ + = "\n\ + \\n\ + \ScriptNOfK\DC2\f\n\ + \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2>\n\ + \\ascripts\CAN\STX \ETX(\v2$.utxorpc.v1beta.cardano.NativeScriptR\ascripts" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + k__field_descriptor + = Data.ProtoLens.FieldDescriptor + "k" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"k")) :: + Data.ProtoLens.FieldDescriptor ScriptNOfK + scripts__field_descriptor + = Data.ProtoLens.FieldDescriptor + "scripts" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NativeScript) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"scripts")) :: + Data.ProtoLens.FieldDescriptor ScriptNOfK + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, k__field_descriptor), + (Data.ProtoLens.Tag 2, scripts__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ScriptNOfK'_unknownFields + (\ x__ y__ -> x__ {_ScriptNOfK'_unknownFields = y__}) + defMessage + = ScriptNOfK'_constructor + {_ScriptNOfK'k = Data.ProtoLens.fieldDefault, + _ScriptNOfK'scripts = Data.Vector.Generic.empty, + _ScriptNOfK'_unknownFields = []} + parseMessage + = let + loop :: + ScriptNOfK + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript + -> Data.ProtoLens.Encoding.Bytes.Parser ScriptNOfK + loop x mutable'scripts + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'scripts) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "k" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"k") y x) + mutable'scripts + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "scripts" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'scripts y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'scripts + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'scripts) + "ScriptNOfK" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"k") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'scripts") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ScriptNOfK where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ScriptNOfK'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ScriptNOfK'k x__) + (Control.DeepSeq.deepseq (_ScriptNOfK'scripts x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.initThd' @:: Lens' SoftforkRule Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.minThd' @:: Lens' SoftforkRule Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.thdDecrement' @:: Lens' SoftforkRule Data.Text.Text@ -} +data SoftforkRule + = SoftforkRule'_constructor {_SoftforkRule'initThd :: !Data.Text.Text, + _SoftforkRule'minThd :: !Data.Text.Text, + _SoftforkRule'thdDecrement :: !Data.Text.Text, + _SoftforkRule'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SoftforkRule where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SoftforkRule "initThd" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SoftforkRule'initThd + (\ x__ y__ -> x__ {_SoftforkRule'initThd = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SoftforkRule "minThd" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SoftforkRule'minThd + (\ x__ y__ -> x__ {_SoftforkRule'minThd = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SoftforkRule "thdDecrement" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SoftforkRule'thdDecrement + (\ x__ y__ -> x__ {_SoftforkRule'thdDecrement = y__})) + Prelude.id +instance Data.ProtoLens.Message SoftforkRule where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.SoftforkRule" + packedMessageDescriptor _ + = "\n\ + \\fSoftforkRule\DC2\EM\n\ + \\binit_thd\CAN\SOH \SOH(\tR\ainitThd\DC2\ETB\n\ + \\amin_thd\CAN\STX \SOH(\tR\ACKminThd\DC2#\n\ + \\rthd_decrement\CAN\ETX \SOH(\tR\fthdDecrement" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + initThd__field_descriptor + = Data.ProtoLens.FieldDescriptor + "init_thd" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"initThd")) :: + Data.ProtoLens.FieldDescriptor SoftforkRule + minThd__field_descriptor + = Data.ProtoLens.FieldDescriptor + "min_thd" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"minThd")) :: + Data.ProtoLens.FieldDescriptor SoftforkRule + thdDecrement__field_descriptor + = Data.ProtoLens.FieldDescriptor + "thd_decrement" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"thdDecrement")) :: + Data.ProtoLens.FieldDescriptor SoftforkRule + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, initThd__field_descriptor), + (Data.ProtoLens.Tag 2, minThd__field_descriptor), + (Data.ProtoLens.Tag 3, thdDecrement__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SoftforkRule'_unknownFields + (\ x__ y__ -> x__ {_SoftforkRule'_unknownFields = y__}) + defMessage + = SoftforkRule'_constructor + {_SoftforkRule'initThd = Data.ProtoLens.fieldDefault, + _SoftforkRule'minThd = Data.ProtoLens.fieldDefault, + _SoftforkRule'thdDecrement = Data.ProtoLens.fieldDefault, + _SoftforkRule'_unknownFields = []} + parseMessage + = let + loop :: + SoftforkRule -> Data.ProtoLens.Encoding.Bytes.Parser SoftforkRule + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "init_thd" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"initThd") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "min_thd" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"minThd") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "thd_decrement" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"thdDecrement") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SoftforkRule" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"initThd") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"minThd") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"thdDecrement") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData SoftforkRule where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SoftforkRule'_unknownFields x__) + (Control.DeepSeq.deepseq + (_SoftforkRule'initThd x__) + (Control.DeepSeq.deepseq + (_SoftforkRule'minThd x__) + (Control.DeepSeq.deepseq (_SoftforkRule'thdDecrement x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeCredential (Prelude.Maybe StakeCredential'StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'addrKeyHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.addrKeyHash' @:: Lens' StakeCredential Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'scriptHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.scriptHash' @:: Lens' StakeCredential Data.ByteString.ByteString@ -} +data StakeCredential + = StakeCredential'_constructor {_StakeCredential'stakeCredential :: !(Prelude.Maybe StakeCredential'StakeCredential), + _StakeCredential'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StakeCredential where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data StakeCredential'StakeCredential + = StakeCredential'AddrKeyHash !Data.ByteString.ByteString | + StakeCredential'ScriptHash !Data.ByteString.ByteString + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField StakeCredential "maybe'stakeCredential" (Prelude.Maybe StakeCredential'StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeCredential'stakeCredential + (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeCredential "maybe'addrKeyHash" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeCredential'stakeCredential + (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StakeCredential'AddrKeyHash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StakeCredential'AddrKeyHash y__)) +instance Data.ProtoLens.Field.HasField StakeCredential "addrKeyHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeCredential'stakeCredential + (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StakeCredential'AddrKeyHash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StakeCredential'AddrKeyHash y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Field.HasField StakeCredential "maybe'scriptHash" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeCredential'stakeCredential + (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StakeCredential'ScriptHash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StakeCredential'ScriptHash y__)) +instance Data.ProtoLens.Field.HasField StakeCredential "scriptHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeCredential'stakeCredential + (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (StakeCredential'ScriptHash x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap StakeCredential'ScriptHash y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message StakeCredential where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.StakeCredential" + packedMessageDescriptor _ + = "\n\ + \\SIStakeCredential\DC2$\n\ + \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\ + \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\ + \scriptHashB\DC2\n\ + \\DLEstake_credential" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + addrKeyHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "addr_key_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'addrKeyHash")) :: + Data.ProtoLens.FieldDescriptor StakeCredential + scriptHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'scriptHash")) :: + Data.ProtoLens.FieldDescriptor StakeCredential + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, addrKeyHash__field_descriptor), + (Data.ProtoLens.Tag 2, scriptHash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StakeCredential'_unknownFields + (\ x__ y__ -> x__ {_StakeCredential'_unknownFields = y__}) + defMessage + = StakeCredential'_constructor + {_StakeCredential'stakeCredential = Prelude.Nothing, + _StakeCredential'_unknownFields = []} + parseMessage + = let + loop :: + StakeCredential + -> Data.ProtoLens.Encoding.Bytes.Parser StakeCredential + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "addr_key_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"addrKeyHash") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "script_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptHash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StakeCredential" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (StakeCredential'AddrKeyHash v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v) + (Prelude.Just (StakeCredential'ScriptHash v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StakeCredential where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StakeCredential'_unknownFields x__) + (Control.DeepSeq.deepseq (_StakeCredential'stakeCredential x__) ()) +instance Control.DeepSeq.NFData StakeCredential'StakeCredential where + rnf (StakeCredential'AddrKeyHash x__) = Control.DeepSeq.rnf x__ + rnf (StakeCredential'ScriptHash x__) = Control.DeepSeq.rnf x__ +_StakeCredential'AddrKeyHash :: + Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString +_StakeCredential'AddrKeyHash + = Data.ProtoLens.Prism.prism' + StakeCredential'AddrKeyHash + (\ p__ + -> case p__ of + (StakeCredential'AddrKeyHash p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +_StakeCredential'ScriptHash :: + Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString +_StakeCredential'ScriptHash + = Data.ProtoLens.Prism.prism' + StakeCredential'ScriptHash + (\ p__ + -> case p__ of + (StakeCredential'ScriptHash p__val) -> Prelude.Just p__val + _otherwise -> Prelude.Nothing) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeDelegationCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeDelegationCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeDelegationCert Data.ByteString.ByteString@ -} +data StakeDelegationCert + = StakeDelegationCert'_constructor {_StakeDelegationCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _StakeDelegationCert'poolKeyhash :: !Data.ByteString.ByteString, + _StakeDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StakeDelegationCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StakeDelegationCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeDelegationCert'stakeCredential + (\ x__ y__ -> x__ {_StakeDelegationCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeDelegationCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeDelegationCert'stakeCredential + (\ x__ y__ -> x__ {_StakeDelegationCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeDelegationCert "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeDelegationCert'poolKeyhash + (\ x__ y__ -> x__ {_StakeDelegationCert'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Message StakeDelegationCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.StakeDelegationCert" + packedMessageDescriptor _ + = "\n\ + \\DC3StakeDelegationCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor StakeDelegationCert + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor StakeDelegationCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StakeDelegationCert'_unknownFields + (\ x__ y__ -> x__ {_StakeDelegationCert'_unknownFields = y__}) + defMessage + = StakeDelegationCert'_constructor + {_StakeDelegationCert'stakeCredential = Prelude.Nothing, + _StakeDelegationCert'poolKeyhash = Data.ProtoLens.fieldDefault, + _StakeDelegationCert'_unknownFields = []} + parseMessage + = let + loop :: + StakeDelegationCert + -> Data.ProtoLens.Encoding.Bytes.Parser StakeDelegationCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StakeDelegationCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData StakeDelegationCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StakeDelegationCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StakeDelegationCert'stakeCredential x__) + (Control.DeepSeq.deepseq + (_StakeDelegationCert'poolKeyhash x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeDelegationPattern StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeDelegationPattern (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeDelegationPattern Data.ByteString.ByteString@ -} +data StakeDelegationPattern + = StakeDelegationPattern'_constructor {_StakeDelegationPattern'stakeCredential :: !(Prelude.Maybe StakeCredential), + _StakeDelegationPattern'poolKeyhash :: !Data.ByteString.ByteString, + _StakeDelegationPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StakeDelegationPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StakeDelegationPattern "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeDelegationPattern'stakeCredential + (\ x__ y__ -> x__ {_StakeDelegationPattern'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeDelegationPattern "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeDelegationPattern'stakeCredential + (\ x__ y__ -> x__ {_StakeDelegationPattern'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeDelegationPattern "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeDelegationPattern'poolKeyhash + (\ x__ y__ -> x__ {_StakeDelegationPattern'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Message StakeDelegationPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.StakeDelegationPattern" + packedMessageDescriptor _ + = "\n\ + \\SYNStakeDelegationPattern\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor StakeDelegationPattern + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor StakeDelegationPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StakeDelegationPattern'_unknownFields + (\ x__ y__ -> x__ {_StakeDelegationPattern'_unknownFields = y__}) + defMessage + = StakeDelegationPattern'_constructor + {_StakeDelegationPattern'stakeCredential = Prelude.Nothing, + _StakeDelegationPattern'poolKeyhash = Data.ProtoLens.fieldDefault, + _StakeDelegationPattern'_unknownFields = []} + parseMessage + = let + loop :: + StakeDelegationPattern + -> Data.ProtoLens.Encoding.Bytes.Parser StakeDelegationPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StakeDelegationPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData StakeDelegationPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StakeDelegationPattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StakeDelegationPattern'stakeCredential x__) + (Control.DeepSeq.deepseq + (_StakeDelegationPattern'poolKeyhash x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeRegDelegCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeRegDelegCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeRegDelegCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' StakeRegDelegCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' StakeRegDelegCert (Prelude.Maybe BigInt)@ -} +data StakeRegDelegCert + = StakeRegDelegCert'_constructor {_StakeRegDelegCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _StakeRegDelegCert'poolKeyhash :: !Data.ByteString.ByteString, + _StakeRegDelegCert'coin :: !(Prelude.Maybe BigInt), + _StakeRegDelegCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StakeRegDelegCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StakeRegDelegCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeRegDelegCert'stakeCredential + (\ x__ y__ -> x__ {_StakeRegDelegCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeRegDelegCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeRegDelegCert'stakeCredential + (\ x__ y__ -> x__ {_StakeRegDelegCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeRegDelegCert "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeRegDelegCert'poolKeyhash + (\ x__ y__ -> x__ {_StakeRegDelegCert'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeRegDelegCert "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeRegDelegCert'coin + (\ x__ y__ -> x__ {_StakeRegDelegCert'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeRegDelegCert "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeRegDelegCert'coin + (\ x__ y__ -> x__ {_StakeRegDelegCert'coin = y__})) + Prelude.id +instance Data.ProtoLens.Message StakeRegDelegCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.StakeRegDelegCert" + packedMessageDescriptor _ + = "\n\ + \\DC1StakeRegDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\DC22\n\ + \\EOTcoin\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor StakeRegDelegCert + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor StakeRegDelegCert + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor StakeRegDelegCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor), + (Data.ProtoLens.Tag 3, coin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StakeRegDelegCert'_unknownFields + (\ x__ y__ -> x__ {_StakeRegDelegCert'_unknownFields = y__}) + defMessage + = StakeRegDelegCert'_constructor + {_StakeRegDelegCert'stakeCredential = Prelude.Nothing, + _StakeRegDelegCert'poolKeyhash = Data.ProtoLens.fieldDefault, + _StakeRegDelegCert'coin = Prelude.Nothing, + _StakeRegDelegCert'_unknownFields = []} + parseMessage + = let + loop :: + StakeRegDelegCert + -> Data.ProtoLens.Encoding.Bytes.Parser StakeRegDelegCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StakeRegDelegCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData StakeRegDelegCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StakeRegDelegCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StakeRegDelegCert'stakeCredential x__) + (Control.DeepSeq.deepseq + (_StakeRegDelegCert'poolKeyhash x__) + (Control.DeepSeq.deepseq (_StakeRegDelegCert'coin x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeVoteDelegCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeVoteDelegCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeVoteDelegCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drep' @:: Lens' StakeVoteDelegCert DRep@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drep' @:: Lens' StakeVoteDelegCert (Prelude.Maybe DRep)@ -} +data StakeVoteDelegCert + = StakeVoteDelegCert'_constructor {_StakeVoteDelegCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _StakeVoteDelegCert'poolKeyhash :: !Data.ByteString.ByteString, + _StakeVoteDelegCert'drep :: !(Prelude.Maybe DRep), + _StakeVoteDelegCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StakeVoteDelegCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StakeVoteDelegCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteDelegCert'stakeCredential + (\ x__ y__ -> x__ {_StakeVoteDelegCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeVoteDelegCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteDelegCert'stakeCredential + (\ x__ y__ -> x__ {_StakeVoteDelegCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeVoteDelegCert "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteDelegCert'poolKeyhash + (\ x__ y__ -> x__ {_StakeVoteDelegCert'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeVoteDelegCert "drep" DRep where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteDelegCert'drep + (\ x__ y__ -> x__ {_StakeVoteDelegCert'drep = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeVoteDelegCert "maybe'drep" (Prelude.Maybe DRep) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteDelegCert'drep + (\ x__ y__ -> x__ {_StakeVoteDelegCert'drep = y__})) + Prelude.id +instance Data.ProtoLens.Message StakeVoteDelegCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.StakeVoteDelegCert" + packedMessageDescriptor _ + = "\n\ + \\DC2StakeVoteDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\DC20\n\ + \\EOTdrep\CAN\ETX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor StakeVoteDelegCert + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor StakeVoteDelegCert + drep__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DRep) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drep")) :: + Data.ProtoLens.FieldDescriptor StakeVoteDelegCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor), + (Data.ProtoLens.Tag 3, drep__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StakeVoteDelegCert'_unknownFields + (\ x__ y__ -> x__ {_StakeVoteDelegCert'_unknownFields = y__}) + defMessage + = StakeVoteDelegCert'_constructor + {_StakeVoteDelegCert'stakeCredential = Prelude.Nothing, + _StakeVoteDelegCert'poolKeyhash = Data.ProtoLens.fieldDefault, + _StakeVoteDelegCert'drep = Prelude.Nothing, + _StakeVoteDelegCert'_unknownFields = []} + parseMessage + = let + loop :: + StakeVoteDelegCert + -> Data.ProtoLens.Encoding.Bytes.Parser StakeVoteDelegCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"drep") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StakeVoteDelegCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'drep") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData StakeVoteDelegCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StakeVoteDelegCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StakeVoteDelegCert'stakeCredential x__) + (Control.DeepSeq.deepseq + (_StakeVoteDelegCert'poolKeyhash x__) + (Control.DeepSeq.deepseq (_StakeVoteDelegCert'drep x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeVoteRegDelegCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeVoteRegDelegCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeVoteRegDelegCert Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drep' @:: Lens' StakeVoteRegDelegCert DRep@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drep' @:: Lens' StakeVoteRegDelegCert (Prelude.Maybe DRep)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' StakeVoteRegDelegCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' StakeVoteRegDelegCert (Prelude.Maybe BigInt)@ -} +data StakeVoteRegDelegCert + = StakeVoteRegDelegCert'_constructor {_StakeVoteRegDelegCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _StakeVoteRegDelegCert'poolKeyhash :: !Data.ByteString.ByteString, + _StakeVoteRegDelegCert'drep :: !(Prelude.Maybe DRep), + _StakeVoteRegDelegCert'coin :: !(Prelude.Maybe BigInt), + _StakeVoteRegDelegCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StakeVoteRegDelegCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StakeVoteRegDelegCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'stakeCredential + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeVoteRegDelegCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'stakeCredential + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeVoteRegDelegCert "poolKeyhash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'poolKeyhash + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'poolKeyhash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeVoteRegDelegCert "drep" DRep where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'drep + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'drep = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeVoteRegDelegCert "maybe'drep" (Prelude.Maybe DRep) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'drep + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'drep = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StakeVoteRegDelegCert "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'coin + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StakeVoteRegDelegCert "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'coin + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'coin = y__})) + Prelude.id +instance Data.ProtoLens.Message StakeVoteRegDelegCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.StakeVoteRegDelegCert" + packedMessageDescriptor _ + = "\n\ + \\NAKStakeVoteRegDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\DC20\n\ + \\EOTdrep\CAN\ETX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep\DC22\n\ + \\EOTcoin\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor StakeVoteRegDelegCert + poolKeyhash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "pool_keyhash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"poolKeyhash")) :: + Data.ProtoLens.FieldDescriptor StakeVoteRegDelegCert + drep__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DRep) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drep")) :: + Data.ProtoLens.FieldDescriptor StakeVoteRegDelegCert + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor StakeVoteRegDelegCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor), + (Data.ProtoLens.Tag 3, drep__field_descriptor), + (Data.ProtoLens.Tag 4, coin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StakeVoteRegDelegCert'_unknownFields + (\ x__ y__ -> x__ {_StakeVoteRegDelegCert'_unknownFields = y__}) + defMessage + = StakeVoteRegDelegCert'_constructor + {_StakeVoteRegDelegCert'stakeCredential = Prelude.Nothing, + _StakeVoteRegDelegCert'poolKeyhash = Data.ProtoLens.fieldDefault, + _StakeVoteRegDelegCert'drep = Prelude.Nothing, + _StakeVoteRegDelegCert'coin = Prelude.Nothing, + _StakeVoteRegDelegCert'_unknownFields = []} + parseMessage + = let + loop :: + StakeVoteRegDelegCert + -> Data.ProtoLens.Encoding.Bytes.Parser StakeVoteRegDelegCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "pool_keyhash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"drep") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StakeVoteRegDelegCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'drep") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData StakeVoteRegDelegCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StakeVoteRegDelegCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StakeVoteRegDelegCert'stakeCredential x__) + (Control.DeepSeq.deepseq + (_StakeVoteRegDelegCert'poolKeyhash x__) + (Control.DeepSeq.deepseq + (_StakeVoteRegDelegCert'drep x__) + (Control.DeepSeq.deepseq (_StakeVoteRegDelegCert'coin x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.withdrawals' @:: Lens' TreasuryWithdrawalsAction [WithdrawalAmount]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'withdrawals' @:: Lens' TreasuryWithdrawalsAction (Data.Vector.Vector WithdrawalAmount)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.policyHash' @:: Lens' TreasuryWithdrawalsAction Data.ByteString.ByteString@ -} +data TreasuryWithdrawalsAction + = TreasuryWithdrawalsAction'_constructor {_TreasuryWithdrawalsAction'withdrawals :: !(Data.Vector.Vector WithdrawalAmount), + _TreasuryWithdrawalsAction'policyHash :: !Data.ByteString.ByteString, + _TreasuryWithdrawalsAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TreasuryWithdrawalsAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TreasuryWithdrawalsAction "withdrawals" [WithdrawalAmount] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TreasuryWithdrawalsAction'withdrawals + (\ x__ y__ -> x__ {_TreasuryWithdrawalsAction'withdrawals = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TreasuryWithdrawalsAction "vec'withdrawals" (Data.Vector.Vector WithdrawalAmount) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TreasuryWithdrawalsAction'withdrawals + (\ x__ y__ -> x__ {_TreasuryWithdrawalsAction'withdrawals = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TreasuryWithdrawalsAction "policyHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TreasuryWithdrawalsAction'policyHash + (\ x__ y__ -> x__ {_TreasuryWithdrawalsAction'policyHash = y__})) + Prelude.id +instance Data.ProtoLens.Message TreasuryWithdrawalsAction where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.TreasuryWithdrawalsAction" + packedMessageDescriptor _ + = "\n\ + \\EMTreasuryWithdrawalsAction\DC2J\n\ + \\vwithdrawals\CAN\SOH \ETX(\v2(.utxorpc.v1beta.cardano.WithdrawalAmountR\vwithdrawals\DC2\US\n\ + \\vpolicy_hash\CAN\STX \SOH(\fR\n\ + \policyHash" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + withdrawals__field_descriptor + = Data.ProtoLens.FieldDescriptor + "withdrawals" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor WithdrawalAmount) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"withdrawals")) :: + Data.ProtoLens.FieldDescriptor TreasuryWithdrawalsAction + policyHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "policy_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"policyHash")) :: + Data.ProtoLens.FieldDescriptor TreasuryWithdrawalsAction + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, withdrawals__field_descriptor), + (Data.ProtoLens.Tag 2, policyHash__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TreasuryWithdrawalsAction'_unknownFields + (\ x__ y__ + -> x__ {_TreasuryWithdrawalsAction'_unknownFields = y__}) + defMessage + = TreasuryWithdrawalsAction'_constructor + {_TreasuryWithdrawalsAction'withdrawals = Data.Vector.Generic.empty, + _TreasuryWithdrawalsAction'policyHash = Data.ProtoLens.fieldDefault, + _TreasuryWithdrawalsAction'_unknownFields = []} + parseMessage + = let + loop :: + TreasuryWithdrawalsAction + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld WithdrawalAmount + -> Data.ProtoLens.Encoding.Bytes.Parser TreasuryWithdrawalsAction + loop x mutable'withdrawals + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'withdrawals) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'withdrawals") frozen'withdrawals + x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "withdrawals" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'withdrawals y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "policy_hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"policyHash") y x) + mutable'withdrawals + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'withdrawals + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'withdrawals) + "TreasuryWithdrawalsAction" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'withdrawals") _x)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"policyHash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TreasuryWithdrawalsAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TreasuryWithdrawalsAction'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TreasuryWithdrawalsAction'withdrawals x__) + (Control.DeepSeq.deepseq + (_TreasuryWithdrawalsAction'policyHash x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.inputs' @:: Lens' Tx [TxInput]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'inputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.outputs' @:: Lens' Tx [TxOutput]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'outputs' @:: Lens' Tx (Data.Vector.Vector TxOutput)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.certificates' @:: Lens' Tx [Certificate]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'certificates' @:: Lens' Tx (Data.Vector.Vector Certificate)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.withdrawals' @:: Lens' Tx [Withdrawal]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'withdrawals' @:: Lens' Tx (Data.Vector.Vector Withdrawal)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.mint' @:: Lens' Tx [Multiasset]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'mint' @:: Lens' Tx (Data.Vector.Vector Multiasset)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.referenceInputs' @:: Lens' Tx [TxInput]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'referenceInputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.witnesses' @:: Lens' Tx WitnessSet@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'witnesses' @:: Lens' Tx (Prelude.Maybe WitnessSet)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.collateral' @:: Lens' Tx Collateral@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'collateral' @:: Lens' Tx (Prelude.Maybe Collateral)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.fee' @:: Lens' Tx BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'fee' @:: Lens' Tx (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.validity' @:: Lens' Tx TxValidity@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'validity' @:: Lens' Tx (Prelude.Maybe TxValidity)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.successful' @:: Lens' Tx Prelude.Bool@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.auxiliary' @:: Lens' Tx AuxData@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'auxiliary' @:: Lens' Tx (Prelude.Maybe AuxData)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hash' @:: Lens' Tx Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.proposals' @:: Lens' Tx [GovernanceActionProposal]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'proposals' @:: Lens' Tx (Data.Vector.Vector GovernanceActionProposal)@ -} +data Tx + = Tx'_constructor {_Tx'inputs :: !(Data.Vector.Vector TxInput), + _Tx'outputs :: !(Data.Vector.Vector TxOutput), + _Tx'certificates :: !(Data.Vector.Vector Certificate), + _Tx'withdrawals :: !(Data.Vector.Vector Withdrawal), + _Tx'mint :: !(Data.Vector.Vector Multiasset), + _Tx'referenceInputs :: !(Data.Vector.Vector TxInput), + _Tx'witnesses :: !(Prelude.Maybe WitnessSet), + _Tx'collateral :: !(Prelude.Maybe Collateral), + _Tx'fee :: !(Prelude.Maybe BigInt), + _Tx'validity :: !(Prelude.Maybe TxValidity), + _Tx'successful :: !Prelude.Bool, + _Tx'auxiliary :: !(Prelude.Maybe AuxData), + _Tx'hash :: !Data.ByteString.ByteString, + _Tx'proposals :: !(Data.Vector.Vector GovernanceActionProposal), + _Tx'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Tx where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Tx "inputs" [TxInput] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'inputs (\ x__ y__ -> x__ {_Tx'inputs = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Tx "vec'inputs" (Data.Vector.Vector TxInput) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'inputs (\ x__ y__ -> x__ {_Tx'inputs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "outputs" [TxOutput] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'outputs (\ x__ y__ -> x__ {_Tx'outputs = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Tx "vec'outputs" (Data.Vector.Vector TxOutput) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'outputs (\ x__ y__ -> x__ {_Tx'outputs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "certificates" [Certificate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'certificates (\ x__ y__ -> x__ {_Tx'certificates = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Tx "vec'certificates" (Data.Vector.Vector Certificate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'certificates (\ x__ y__ -> x__ {_Tx'certificates = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "withdrawals" [Withdrawal] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'withdrawals (\ x__ y__ -> x__ {_Tx'withdrawals = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Tx "vec'withdrawals" (Data.Vector.Vector Withdrawal) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'withdrawals (\ x__ y__ -> x__ {_Tx'withdrawals = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "mint" [Multiasset] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'mint (\ x__ y__ -> x__ {_Tx'mint = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Tx "vec'mint" (Data.Vector.Vector Multiasset) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'mint (\ x__ y__ -> x__ {_Tx'mint = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "referenceInputs" [TxInput] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'referenceInputs (\ x__ y__ -> x__ {_Tx'referenceInputs = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Tx "vec'referenceInputs" (Data.Vector.Vector TxInput) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'referenceInputs (\ x__ y__ -> x__ {_Tx'referenceInputs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "witnesses" WitnessSet where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'witnesses (\ x__ y__ -> x__ {_Tx'witnesses = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Tx "maybe'witnesses" (Prelude.Maybe WitnessSet) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'witnesses (\ x__ y__ -> x__ {_Tx'witnesses = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "collateral" Collateral where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'collateral (\ x__ y__ -> x__ {_Tx'collateral = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Tx "maybe'collateral" (Prelude.Maybe Collateral) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'collateral (\ x__ y__ -> x__ {_Tx'collateral = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "fee" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'fee (\ x__ y__ -> x__ {_Tx'fee = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Tx "maybe'fee" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'fee (\ x__ y__ -> x__ {_Tx'fee = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "validity" TxValidity where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'validity (\ x__ y__ -> x__ {_Tx'validity = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Tx "maybe'validity" (Prelude.Maybe TxValidity) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'validity (\ x__ y__ -> x__ {_Tx'validity = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "successful" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'successful (\ x__ y__ -> x__ {_Tx'successful = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "auxiliary" AuxData where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'auxiliary (\ x__ y__ -> x__ {_Tx'auxiliary = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Tx "maybe'auxiliary" (Prelude.Maybe AuxData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'auxiliary (\ x__ y__ -> x__ {_Tx'auxiliary = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'hash (\ x__ y__ -> x__ {_Tx'hash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Tx "proposals" [GovernanceActionProposal] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'proposals (\ x__ y__ -> x__ {_Tx'proposals = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField Tx "vec'proposals" (Data.Vector.Vector GovernanceActionProposal) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Tx'proposals (\ x__ y__ -> x__ {_Tx'proposals = y__})) + Prelude.id +instance Data.ProtoLens.Message Tx where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Tx" + packedMessageDescriptor _ + = "\n\ + \\STXTx\DC27\n\ + \\ACKinputs\CAN\SOH \ETX(\v2\US.utxorpc.v1beta.cardano.TxInputR\ACKinputs\DC2:\n\ + \\aoutputs\CAN\STX \ETX(\v2 .utxorpc.v1beta.cardano.TxOutputR\aoutputs\DC2G\n\ + \\fcertificates\CAN\ETX \ETX(\v2#.utxorpc.v1beta.cardano.CertificateR\fcertificates\DC2D\n\ + \\vwithdrawals\CAN\EOT \ETX(\v2\".utxorpc.v1beta.cardano.WithdrawalR\vwithdrawals\DC26\n\ + \\EOTmint\CAN\ENQ \ETX(\v2\".utxorpc.v1beta.cardano.MultiassetR\EOTmint\DC2J\n\ + \\DLEreference_inputs\CAN\ACK \ETX(\v2\US.utxorpc.v1beta.cardano.TxInputR\SIreferenceInputs\DC2@\n\ + \\twitnesses\CAN\a \SOH(\v2\".utxorpc.v1beta.cardano.WitnessSetR\twitnesses\DC2B\n\ + \\n\ + \collateral\CAN\b \SOH(\v2\".utxorpc.v1beta.cardano.CollateralR\n\ + \collateral\DC20\n\ + \\ETXfee\CAN\t \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ETXfee\DC2>\n\ + \\bvalidity\CAN\n\ + \ \SOH(\v2\".utxorpc.v1beta.cardano.TxValidityR\bvalidity\DC2\RS\n\ + \\n\ + \successful\CAN\v \SOH(\bR\n\ + \successful\DC2=\n\ + \\tauxiliary\CAN\f \SOH(\v2\US.utxorpc.v1beta.cardano.AuxDataR\tauxiliary\DC2\DC2\n\ + \\EOThash\CAN\r \SOH(\fR\EOThash\DC2N\n\ + \\tproposals\CAN\SO \ETX(\v20.utxorpc.v1beta.cardano.GovernanceActionProposalR\tproposals" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + inputs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "inputs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxInput) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"inputs")) :: + Data.ProtoLens.FieldDescriptor Tx + outputs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "outputs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxOutput) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"outputs")) :: + Data.ProtoLens.FieldDescriptor Tx + certificates__field_descriptor + = Data.ProtoLens.FieldDescriptor + "certificates" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Certificate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"certificates")) :: + Data.ProtoLens.FieldDescriptor Tx + withdrawals__field_descriptor + = Data.ProtoLens.FieldDescriptor + "withdrawals" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Withdrawal) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"withdrawals")) :: + Data.ProtoLens.FieldDescriptor Tx + mint__field_descriptor + = Data.ProtoLens.FieldDescriptor + "mint" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Multiasset) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"mint")) :: + Data.ProtoLens.FieldDescriptor Tx + referenceInputs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reference_inputs" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxInput) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"referenceInputs")) :: + Data.ProtoLens.FieldDescriptor Tx + witnesses__field_descriptor + = Data.ProtoLens.FieldDescriptor + "witnesses" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor WitnessSet) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'witnesses")) :: + Data.ProtoLens.FieldDescriptor Tx + collateral__field_descriptor + = Data.ProtoLens.FieldDescriptor + "collateral" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Collateral) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'collateral")) :: + Data.ProtoLens.FieldDescriptor Tx + fee__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fee" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fee")) :: + Data.ProtoLens.FieldDescriptor Tx + validity__field_descriptor + = Data.ProtoLens.FieldDescriptor + "validity" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxValidity) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'validity")) :: + Data.ProtoLens.FieldDescriptor Tx + successful__field_descriptor + = Data.ProtoLens.FieldDescriptor + "successful" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"successful")) :: + Data.ProtoLens.FieldDescriptor Tx + auxiliary__field_descriptor + = Data.ProtoLens.FieldDescriptor + "auxiliary" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AuxData) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'auxiliary")) :: + Data.ProtoLens.FieldDescriptor Tx + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor Tx + proposals__field_descriptor + = Data.ProtoLens.FieldDescriptor + "proposals" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GovernanceActionProposal) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"proposals")) :: + Data.ProtoLens.FieldDescriptor Tx + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, inputs__field_descriptor), + (Data.ProtoLens.Tag 2, outputs__field_descriptor), + (Data.ProtoLens.Tag 3, certificates__field_descriptor), + (Data.ProtoLens.Tag 4, withdrawals__field_descriptor), + (Data.ProtoLens.Tag 5, mint__field_descriptor), + (Data.ProtoLens.Tag 6, referenceInputs__field_descriptor), + (Data.ProtoLens.Tag 7, witnesses__field_descriptor), + (Data.ProtoLens.Tag 8, collateral__field_descriptor), + (Data.ProtoLens.Tag 9, fee__field_descriptor), + (Data.ProtoLens.Tag 10, validity__field_descriptor), + (Data.ProtoLens.Tag 11, successful__field_descriptor), + (Data.ProtoLens.Tag 12, auxiliary__field_descriptor), + (Data.ProtoLens.Tag 13, hash__field_descriptor), + (Data.ProtoLens.Tag 14, proposals__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Tx'_unknownFields (\ x__ y__ -> x__ {_Tx'_unknownFields = y__}) + defMessage + = Tx'_constructor + {_Tx'inputs = Data.Vector.Generic.empty, + _Tx'outputs = Data.Vector.Generic.empty, + _Tx'certificates = Data.Vector.Generic.empty, + _Tx'withdrawals = Data.Vector.Generic.empty, + _Tx'mint = Data.Vector.Generic.empty, + _Tx'referenceInputs = Data.Vector.Generic.empty, + _Tx'witnesses = Prelude.Nothing, _Tx'collateral = Prelude.Nothing, + _Tx'fee = Prelude.Nothing, _Tx'validity = Prelude.Nothing, + _Tx'successful = Data.ProtoLens.fieldDefault, + _Tx'auxiliary = Prelude.Nothing, + _Tx'hash = Data.ProtoLens.fieldDefault, + _Tx'proposals = Data.Vector.Generic.empty, _Tx'_unknownFields = []} + parseMessage + = let + loop :: + Tx + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Certificate + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Multiasset + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxOutput + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld GovernanceActionProposal + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Withdrawal + -> Data.ProtoLens.Encoding.Bytes.Parser Tx + loop + x + mutable'certificates + mutable'inputs + mutable'mint + mutable'outputs + mutable'proposals + mutable'referenceInputs + mutable'withdrawals + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'certificates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'certificates) + frozen'inputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'inputs) + frozen'mint <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'mint) + frozen'outputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'outputs) + frozen'proposals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'proposals) + frozen'referenceInputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'referenceInputs) + frozen'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'withdrawals) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'certificates") + frozen'certificates + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'inputs") frozen'inputs + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'mint") frozen'mint + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'outputs") frozen'outputs + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'proposals") + frozen'proposals + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'referenceInputs") + frozen'referenceInputs + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'withdrawals") + frozen'withdrawals x)))))))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "inputs" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'inputs y) + loop + x mutable'certificates v mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "outputs" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'outputs y) + loop + x mutable'certificates mutable'inputs mutable'mint v + mutable'proposals mutable'referenceInputs mutable'withdrawals + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "certificates" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'certificates y) + loop + x v mutable'inputs mutable'mint mutable'outputs mutable'proposals + mutable'referenceInputs mutable'withdrawals + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "withdrawals" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'withdrawals y) + loop + x mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs v + 42 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "mint" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'mint y) + loop + x mutable'certificates mutable'inputs v mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 50 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "reference_inputs" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'referenceInputs y) + loop + x mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals v mutable'withdrawals + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "witnesses" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"witnesses") y x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "collateral" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"collateral") y x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 74 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "fee" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 82 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "validity" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"validity") y x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 88 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "successful" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"successful") y x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 98 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "auxiliary" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"auxiliary") y x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 106 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + 114 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "proposals" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'proposals y) + loop + x mutable'certificates mutable'inputs mutable'mint mutable'outputs + v mutable'referenceInputs mutable'withdrawals + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'certificates mutable'inputs mutable'mint mutable'outputs + mutable'proposals mutable'referenceInputs mutable'withdrawals + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'certificates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'inputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'mint <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'outputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'proposals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'referenceInputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage mutable'certificates mutable'inputs + mutable'mint mutable'outputs mutable'proposals + mutable'referenceInputs mutable'withdrawals) + "Tx" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'inputs") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'outputs") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'certificates") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'withdrawals") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'mint") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'referenceInputs") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'witnesses") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'collateral") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fee") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 74) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'validity") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 82) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"successful") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 88) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'auxiliary") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 98) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) + _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 106) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + 114) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length + bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field + @"vec'proposals") + _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields + _x))))))))))))))) +instance Control.DeepSeq.NFData Tx where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Tx'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Tx'inputs x__) + (Control.DeepSeq.deepseq + (_Tx'outputs x__) + (Control.DeepSeq.deepseq + (_Tx'certificates x__) + (Control.DeepSeq.deepseq + (_Tx'withdrawals x__) + (Control.DeepSeq.deepseq + (_Tx'mint x__) + (Control.DeepSeq.deepseq + (_Tx'referenceInputs x__) + (Control.DeepSeq.deepseq + (_Tx'witnesses x__) + (Control.DeepSeq.deepseq + (_Tx'collateral x__) + (Control.DeepSeq.deepseq + (_Tx'fee x__) + (Control.DeepSeq.deepseq + (_Tx'validity x__) + (Control.DeepSeq.deepseq + (_Tx'successful x__) + (Control.DeepSeq.deepseq + (_Tx'auxiliary x__) + (Control.DeepSeq.deepseq + (_Tx'hash x__) + (Control.DeepSeq.deepseq + (_Tx'proposals x__) ())))))))))))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.fee' @:: Lens' TxEval BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'fee' @:: Lens' TxEval (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.exUnits' @:: Lens' TxEval ExUnits@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'exUnits' @:: Lens' TxEval (Prelude.Maybe ExUnits)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.errors' @:: Lens' TxEval [EvalError]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'errors' @:: Lens' TxEval (Data.Vector.Vector EvalError)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.traces' @:: Lens' TxEval [EvalTrace]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'traces' @:: Lens' TxEval (Data.Vector.Vector EvalTrace)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.redeemers' @:: Lens' TxEval [Redeemer]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'redeemers' @:: Lens' TxEval (Data.Vector.Vector Redeemer)@ -} +data TxEval + = TxEval'_constructor {_TxEval'fee :: !(Prelude.Maybe BigInt), + _TxEval'exUnits :: !(Prelude.Maybe ExUnits), + _TxEval'errors :: !(Data.Vector.Vector EvalError), + _TxEval'traces :: !(Data.Vector.Vector EvalTrace), + _TxEval'redeemers :: !(Data.Vector.Vector Redeemer), + _TxEval'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxEval where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxEval "fee" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'fee (\ x__ y__ -> x__ {_TxEval'fee = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxEval "maybe'fee" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'fee (\ x__ y__ -> x__ {_TxEval'fee = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxEval "exUnits" ExUnits where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'exUnits (\ x__ y__ -> x__ {_TxEval'exUnits = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxEval "maybe'exUnits" (Prelude.Maybe ExUnits) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'exUnits (\ x__ y__ -> x__ {_TxEval'exUnits = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxEval "errors" [EvalError] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'errors (\ x__ y__ -> x__ {_TxEval'errors = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TxEval "vec'errors" (Data.Vector.Vector EvalError) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'errors (\ x__ y__ -> x__ {_TxEval'errors = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxEval "traces" [EvalTrace] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'traces (\ x__ y__ -> x__ {_TxEval'traces = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TxEval "vec'traces" (Data.Vector.Vector EvalTrace) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'traces (\ x__ y__ -> x__ {_TxEval'traces = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxEval "redeemers" [Redeemer] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'redeemers (\ x__ y__ -> x__ {_TxEval'redeemers = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TxEval "vec'redeemers" (Data.Vector.Vector Redeemer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxEval'redeemers (\ x__ y__ -> x__ {_TxEval'redeemers = y__})) + Prelude.id +instance Data.ProtoLens.Message TxEval where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.TxEval" + packedMessageDescriptor _ + = "\n\ + \\ACKTxEval\DC20\n\ + \\ETXfee\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ETXfee\DC2:\n\ + \\bex_units\CAN\STX \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\aexUnits\DC29\n\ + \\ACKerrors\CAN\ETX \ETX(\v2!.utxorpc.v1beta.cardano.EvalErrorR\ACKerrors\DC29\n\ + \\ACKtraces\CAN\EOT \ETX(\v2!.utxorpc.v1beta.cardano.EvalTraceR\ACKtraces\DC2>\n\ + \\tredeemers\CAN\ENQ \ETX(\v2 .utxorpc.v1beta.cardano.RedeemerR\tredeemers" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + fee__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fee" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fee")) :: + Data.ProtoLens.FieldDescriptor TxEval + exUnits__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ex_units" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ExUnits) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'exUnits")) :: + Data.ProtoLens.FieldDescriptor TxEval + errors__field_descriptor + = Data.ProtoLens.FieldDescriptor + "errors" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EvalError) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"errors")) :: + Data.ProtoLens.FieldDescriptor TxEval + traces__field_descriptor + = Data.ProtoLens.FieldDescriptor + "traces" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EvalTrace) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"traces")) :: + Data.ProtoLens.FieldDescriptor TxEval + redeemers__field_descriptor + = Data.ProtoLens.FieldDescriptor + "redeemers" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Redeemer) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"redeemers")) :: + Data.ProtoLens.FieldDescriptor TxEval + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, fee__field_descriptor), + (Data.ProtoLens.Tag 2, exUnits__field_descriptor), + (Data.ProtoLens.Tag 3, errors__field_descriptor), + (Data.ProtoLens.Tag 4, traces__field_descriptor), + (Data.ProtoLens.Tag 5, redeemers__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxEval'_unknownFields + (\ x__ y__ -> x__ {_TxEval'_unknownFields = y__}) + defMessage + = TxEval'_constructor + {_TxEval'fee = Prelude.Nothing, _TxEval'exUnits = Prelude.Nothing, + _TxEval'errors = Data.Vector.Generic.empty, + _TxEval'traces = Data.Vector.Generic.empty, + _TxEval'redeemers = Data.Vector.Generic.empty, + _TxEval'_unknownFields = []} + parseMessage + = let + loop :: + TxEval + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalError + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Redeemer + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalTrace + -> Data.ProtoLens.Encoding.Bytes.Parser TxEval + loop x mutable'errors mutable'redeemers mutable'traces + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'errors) + frozen'redeemers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'redeemers) + frozen'traces <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'traces) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'errors") frozen'errors + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'redeemers") frozen'redeemers + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'traces") frozen'traces x)))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "fee" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x) + mutable'errors mutable'redeemers mutable'traces + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ex_units" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"exUnits") y x) + mutable'errors mutable'redeemers mutable'traces + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "errors" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'errors y) + loop x v mutable'redeemers mutable'traces + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "traces" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'traces y) + loop x mutable'errors mutable'redeemers v + 42 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "redeemers" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'redeemers y) + loop x mutable'errors v mutable'traces + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'errors mutable'redeemers mutable'traces + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'redeemers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'traces <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage mutable'errors mutable'redeemers + mutable'traces) + "TxEval" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'fee") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'exUnits") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'errors") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'traces") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'redeemers") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData TxEval where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxEval'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxEval'fee x__) + (Control.DeepSeq.deepseq + (_TxEval'exUnits x__) + (Control.DeepSeq.deepseq + (_TxEval'errors x__) + (Control.DeepSeq.deepseq + (_TxEval'traces x__) + (Control.DeepSeq.deepseq (_TxEval'redeemers x__) ()))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.multiplier' @:: Lens' TxFeePolicy Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.summand' @:: Lens' TxFeePolicy Data.Text.Text@ -} +data TxFeePolicy + = TxFeePolicy'_constructor {_TxFeePolicy'multiplier :: !Data.Text.Text, + _TxFeePolicy'summand :: !Data.Text.Text, + _TxFeePolicy'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxFeePolicy where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxFeePolicy "multiplier" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxFeePolicy'multiplier + (\ x__ y__ -> x__ {_TxFeePolicy'multiplier = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxFeePolicy "summand" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxFeePolicy'summand + (\ x__ y__ -> x__ {_TxFeePolicy'summand = y__})) + Prelude.id +instance Data.ProtoLens.Message TxFeePolicy where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.TxFeePolicy" + packedMessageDescriptor _ + = "\n\ + \\vTxFeePolicy\DC2\RS\n\ + \\n\ + \multiplier\CAN\SOH \SOH(\tR\n\ + \multiplier\DC2\CAN\n\ + \\asummand\CAN\STX \SOH(\tR\asummand" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + multiplier__field_descriptor + = Data.ProtoLens.FieldDescriptor + "multiplier" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"multiplier")) :: + Data.ProtoLens.FieldDescriptor TxFeePolicy + summand__field_descriptor + = Data.ProtoLens.FieldDescriptor + "summand" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"summand")) :: + Data.ProtoLens.FieldDescriptor TxFeePolicy + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, multiplier__field_descriptor), + (Data.ProtoLens.Tag 2, summand__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxFeePolicy'_unknownFields + (\ x__ y__ -> x__ {_TxFeePolicy'_unknownFields = y__}) + defMessage + = TxFeePolicy'_constructor + {_TxFeePolicy'multiplier = Data.ProtoLens.fieldDefault, + _TxFeePolicy'summand = Data.ProtoLens.fieldDefault, + _TxFeePolicy'_unknownFields = []} + parseMessage + = let + loop :: + TxFeePolicy -> Data.ProtoLens.Encoding.Bytes.Parser TxFeePolicy + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "multiplier" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"multiplier") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "summand" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"summand") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TxFeePolicy" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"multiplier") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"summand") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TxFeePolicy where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxFeePolicy'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxFeePolicy'multiplier x__) + (Control.DeepSeq.deepseq (_TxFeePolicy'summand x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.txHash' @:: Lens' TxInput Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.outputIndex' @:: Lens' TxInput Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.asOutput' @:: Lens' TxInput TxOutput@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'asOutput' @:: Lens' TxInput (Prelude.Maybe TxOutput)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.redeemer' @:: Lens' TxInput Redeemer@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' TxInput (Prelude.Maybe Redeemer)@ -} +data TxInput + = TxInput'_constructor {_TxInput'txHash :: !Data.ByteString.ByteString, + _TxInput'outputIndex :: !Data.Word.Word32, + _TxInput'asOutput :: !(Prelude.Maybe TxOutput), + _TxInput'redeemer :: !(Prelude.Maybe Redeemer), + _TxInput'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxInput where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxInput "txHash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInput'txHash (\ x__ y__ -> x__ {_TxInput'txHash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxInput "outputIndex" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInput'outputIndex + (\ x__ y__ -> x__ {_TxInput'outputIndex = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxInput "asOutput" TxOutput where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInput'asOutput (\ x__ y__ -> x__ {_TxInput'asOutput = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxInput "maybe'asOutput" (Prelude.Maybe TxOutput) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInput'asOutput (\ x__ y__ -> x__ {_TxInput'asOutput = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxInput "redeemer" Redeemer where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInput'redeemer (\ x__ y__ -> x__ {_TxInput'redeemer = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxInput "maybe'redeemer" (Prelude.Maybe Redeemer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInput'redeemer (\ x__ y__ -> x__ {_TxInput'redeemer = y__})) + Prelude.id +instance Data.ProtoLens.Message TxInput where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.TxInput" + packedMessageDescriptor _ + = "\n\ + \\aTxInput\DC2\ETB\n\ + \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\ + \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2=\n\ + \\tas_output\CAN\ETX \SOH(\v2 .utxorpc.v1beta.cardano.TxOutputR\basOutput\DC2A\n\ + \\bredeemer\CAN\EOT \SOH(\v2 .utxorpc.v1beta.cardano.RedeemerH\NULR\bredeemer\136\SOH\SOHB\v\n\ + \\t_redeemer" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + txHash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tx_hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txHash")) :: + Data.ProtoLens.FieldDescriptor TxInput + outputIndex__field_descriptor + = Data.ProtoLens.FieldDescriptor + "output_index" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"outputIndex")) :: + Data.ProtoLens.FieldDescriptor TxInput + asOutput__field_descriptor + = Data.ProtoLens.FieldDescriptor + "as_output" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxOutput) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'asOutput")) :: + Data.ProtoLens.FieldDescriptor TxInput + redeemer__field_descriptor + = Data.ProtoLens.FieldDescriptor + "redeemer" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Redeemer) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'redeemer")) :: + Data.ProtoLens.FieldDescriptor TxInput + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, txHash__field_descriptor), + (Data.ProtoLens.Tag 2, outputIndex__field_descriptor), + (Data.ProtoLens.Tag 3, asOutput__field_descriptor), + (Data.ProtoLens.Tag 4, redeemer__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxInput'_unknownFields + (\ x__ y__ -> x__ {_TxInput'_unknownFields = y__}) + defMessage + = TxInput'_constructor + {_TxInput'txHash = Data.ProtoLens.fieldDefault, + _TxInput'outputIndex = Data.ProtoLens.fieldDefault, + _TxInput'asOutput = Prelude.Nothing, + _TxInput'redeemer = Prelude.Nothing, _TxInput'_unknownFields = []} + parseMessage + = let + loop :: TxInput -> Data.ProtoLens.Encoding.Bytes.Parser TxInput + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "tx_hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txHash") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "output_index" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"outputIndex") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "as_output" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"asOutput") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "redeemer" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TxInput" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txHash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"outputIndex") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'asOutput") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData TxInput where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxInput'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxInput'txHash x__) + (Control.DeepSeq.deepseq + (_TxInput'outputIndex x__) + (Control.DeepSeq.deepseq + (_TxInput'asOutput x__) + (Control.DeepSeq.deepseq (_TxInput'redeemer x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.address' @:: Lens' TxOutput Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' TxOutput BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' TxOutput (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.assets' @:: Lens' TxOutput [Multiasset]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'assets' @:: Lens' TxOutput (Data.Vector.Vector Multiasset)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.datum' @:: Lens' TxOutput Datum@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'datum' @:: Lens' TxOutput (Prelude.Maybe Datum)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.script' @:: Lens' TxOutput Script@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'script' @:: Lens' TxOutput (Prelude.Maybe Script)@ -} +data TxOutput + = TxOutput'_constructor {_TxOutput'address :: !Data.ByteString.ByteString, + _TxOutput'coin :: !(Prelude.Maybe BigInt), + _TxOutput'assets :: !(Data.Vector.Vector Multiasset), + _TxOutput'datum :: !(Prelude.Maybe Datum), + _TxOutput'script :: !(Prelude.Maybe Script), + _TxOutput'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxOutput where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxOutput "address" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'address (\ x__ y__ -> x__ {_TxOutput'address = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxOutput "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'coin (\ x__ y__ -> x__ {_TxOutput'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxOutput "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'coin (\ x__ y__ -> x__ {_TxOutput'coin = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxOutput "assets" [Multiasset] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'assets (\ x__ y__ -> x__ {_TxOutput'assets = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TxOutput "vec'assets" (Data.Vector.Vector Multiasset) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'assets (\ x__ y__ -> x__ {_TxOutput'assets = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxOutput "datum" Datum where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'datum (\ x__ y__ -> x__ {_TxOutput'datum = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxOutput "maybe'datum" (Prelude.Maybe Datum) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'datum (\ x__ y__ -> x__ {_TxOutput'datum = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxOutput "script" Script where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'script (\ x__ y__ -> x__ {_TxOutput'script = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxOutput "maybe'script" (Prelude.Maybe Script) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutput'script (\ x__ y__ -> x__ {_TxOutput'script = y__})) + Prelude.id +instance Data.ProtoLens.Message TxOutput where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.TxOutput" + packedMessageDescriptor _ + = "\n\ + \\bTxOutput\DC2\CAN\n\ + \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\DC2:\n\ + \\ACKassets\CAN\ETX \ETX(\v2\".utxorpc.v1beta.cardano.MultiassetR\ACKassets\DC28\n\ + \\ENQdatum\CAN\EOT \SOH(\v2\GS.utxorpc.v1beta.cardano.DatumH\NULR\ENQdatum\136\SOH\SOH\DC2;\n\ + \\ACKscript\CAN\ENQ \SOH(\v2\RS.utxorpc.v1beta.cardano.ScriptH\SOHR\ACKscript\136\SOH\SOHB\b\n\ + \\ACK_datumB\t\n\ + \\a_script" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + address__field_descriptor + = Data.ProtoLens.FieldDescriptor + "address" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"address")) :: + Data.ProtoLens.FieldDescriptor TxOutput + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor TxOutput + assets__field_descriptor + = Data.ProtoLens.FieldDescriptor + "assets" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Multiasset) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"assets")) :: + Data.ProtoLens.FieldDescriptor TxOutput + datum__field_descriptor + = Data.ProtoLens.FieldDescriptor + "datum" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Datum) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'datum")) :: + Data.ProtoLens.FieldDescriptor TxOutput + script__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Script) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'script")) :: + Data.ProtoLens.FieldDescriptor TxOutput + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, address__field_descriptor), + (Data.ProtoLens.Tag 2, coin__field_descriptor), + (Data.ProtoLens.Tag 3, assets__field_descriptor), + (Data.ProtoLens.Tag 4, datum__field_descriptor), + (Data.ProtoLens.Tag 5, script__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxOutput'_unknownFields + (\ x__ y__ -> x__ {_TxOutput'_unknownFields = y__}) + defMessage + = TxOutput'_constructor + {_TxOutput'address = Data.ProtoLens.fieldDefault, + _TxOutput'coin = Prelude.Nothing, + _TxOutput'assets = Data.Vector.Generic.empty, + _TxOutput'datum = Prelude.Nothing, + _TxOutput'script = Prelude.Nothing, _TxOutput'_unknownFields = []} + parseMessage + = let + loop :: + TxOutput + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Multiasset + -> Data.ProtoLens.Encoding.Bytes.Parser TxOutput + loop x mutable'assets + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'assets) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'assets") frozen'assets x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "address" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x) + mutable'assets + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + mutable'assets + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "assets" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'assets y) + loop x v + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "datum" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"datum") y x) + mutable'assets + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "script" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"script") y x) + mutable'assets + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'assets + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'assets <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'assets) + "TxOutput" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"address") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'assets") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'datum") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'script") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData TxOutput where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxOutput'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxOutput'address x__) + (Control.DeepSeq.deepseq + (_TxOutput'coin x__) + (Control.DeepSeq.deepseq + (_TxOutput'assets x__) + (Control.DeepSeq.deepseq + (_TxOutput'datum x__) + (Control.DeepSeq.deepseq (_TxOutput'script x__) ()))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.address' @:: Lens' TxOutputPattern AddressPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'address' @:: Lens' TxOutputPattern (Prelude.Maybe AddressPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.asset' @:: Lens' TxOutputPattern AssetPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'asset' @:: Lens' TxOutputPattern (Prelude.Maybe AssetPattern)@ -} +data TxOutputPattern + = TxOutputPattern'_constructor {_TxOutputPattern'address :: !(Prelude.Maybe AddressPattern), + _TxOutputPattern'asset :: !(Prelude.Maybe AssetPattern), + _TxOutputPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxOutputPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxOutputPattern "address" AddressPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutputPattern'address + (\ x__ y__ -> x__ {_TxOutputPattern'address = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'address" (Prelude.Maybe AddressPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutputPattern'address + (\ x__ y__ -> x__ {_TxOutputPattern'address = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxOutputPattern "asset" AssetPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutputPattern'asset + (\ x__ y__ -> x__ {_TxOutputPattern'asset = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'asset" (Prelude.Maybe AssetPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxOutputPattern'asset + (\ x__ y__ -> x__ {_TxOutputPattern'asset = y__})) + Prelude.id +instance Data.ProtoLens.Message TxOutputPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.TxOutputPattern" + packedMessageDescriptor _ + = "\n\ + \\SITxOutputPattern\DC2@\n\ + \\aaddress\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.AddressPatternR\aaddress\DC2:\n\ + \\ENQasset\CAN\STX \SOH(\v2$.utxorpc.v1beta.cardano.AssetPatternR\ENQasset" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + address__field_descriptor + = Data.ProtoLens.FieldDescriptor + "address" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AddressPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'address")) :: + Data.ProtoLens.FieldDescriptor TxOutputPattern + asset__field_descriptor + = Data.ProtoLens.FieldDescriptor + "asset" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AssetPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'asset")) :: + Data.ProtoLens.FieldDescriptor TxOutputPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, address__field_descriptor), + (Data.ProtoLens.Tag 2, asset__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxOutputPattern'_unknownFields + (\ x__ y__ -> x__ {_TxOutputPattern'_unknownFields = y__}) + defMessage + = TxOutputPattern'_constructor + {_TxOutputPattern'address = Prelude.Nothing, + _TxOutputPattern'asset = Prelude.Nothing, + _TxOutputPattern'_unknownFields = []} + parseMessage + = let + loop :: + TxOutputPattern + -> Data.ProtoLens.Encoding.Bytes.Parser TxOutputPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "address" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "asset" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"asset") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TxOutputPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'address") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'asset") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TxOutputPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxOutputPattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxOutputPattern'address x__) + (Control.DeepSeq.deepseq (_TxOutputPattern'asset x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.consumes' @:: Lens' TxPattern TxOutputPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'consumes' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.produces' @:: Lens' TxPattern TxOutputPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'produces' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hasAddress' @:: Lens' TxPattern AddressPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'hasAddress' @:: Lens' TxPattern (Prelude.Maybe AddressPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.movesAsset' @:: Lens' TxPattern AssetPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'movesAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.mintsAsset' @:: Lens' TxPattern AssetPattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'mintsAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.hasCertificate' @:: Lens' TxPattern CertificatePattern@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'hasCertificate' @:: Lens' TxPattern (Prelude.Maybe CertificatePattern)@ -} +data TxPattern + = TxPattern'_constructor {_TxPattern'consumes :: !(Prelude.Maybe TxOutputPattern), + _TxPattern'produces :: !(Prelude.Maybe TxOutputPattern), + _TxPattern'hasAddress :: !(Prelude.Maybe AddressPattern), + _TxPattern'movesAsset :: !(Prelude.Maybe AssetPattern), + _TxPattern'mintsAsset :: !(Prelude.Maybe AssetPattern), + _TxPattern'hasCertificate :: !(Prelude.Maybe CertificatePattern), + _TxPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxPattern "consumes" TxOutputPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'consumes (\ x__ y__ -> x__ {_TxPattern'consumes = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxPattern "maybe'consumes" (Prelude.Maybe TxOutputPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'consumes (\ x__ y__ -> x__ {_TxPattern'consumes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPattern "produces" TxOutputPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'produces (\ x__ y__ -> x__ {_TxPattern'produces = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxPattern "maybe'produces" (Prelude.Maybe TxOutputPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'produces (\ x__ y__ -> x__ {_TxPattern'produces = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPattern "hasAddress" AddressPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'hasAddress + (\ x__ y__ -> x__ {_TxPattern'hasAddress = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxPattern "maybe'hasAddress" (Prelude.Maybe AddressPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'hasAddress + (\ x__ y__ -> x__ {_TxPattern'hasAddress = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPattern "movesAsset" AssetPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'movesAsset + (\ x__ y__ -> x__ {_TxPattern'movesAsset = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxPattern "maybe'movesAsset" (Prelude.Maybe AssetPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'movesAsset + (\ x__ y__ -> x__ {_TxPattern'movesAsset = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPattern "mintsAsset" AssetPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'mintsAsset + (\ x__ y__ -> x__ {_TxPattern'mintsAsset = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxPattern "maybe'mintsAsset" (Prelude.Maybe AssetPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'mintsAsset + (\ x__ y__ -> x__ {_TxPattern'mintsAsset = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPattern "hasCertificate" CertificatePattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'hasCertificate + (\ x__ y__ -> x__ {_TxPattern'hasCertificate = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxPattern "maybe'hasCertificate" (Prelude.Maybe CertificatePattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPattern'hasCertificate + (\ x__ y__ -> x__ {_TxPattern'hasCertificate = y__})) + Prelude.id +instance Data.ProtoLens.Message TxPattern where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.TxPattern" + packedMessageDescriptor _ + = "\n\ + \\tTxPattern\DC2C\n\ + \\bconsumes\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.TxOutputPatternR\bconsumes\DC2C\n\ + \\bproduces\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.TxOutputPatternR\bproduces\DC2G\n\ + \\vhas_address\CAN\ETX \SOH(\v2&.utxorpc.v1beta.cardano.AddressPatternR\n\ + \hasAddress\DC2E\n\ + \\vmoves_asset\CAN\EOT \SOH(\v2$.utxorpc.v1beta.cardano.AssetPatternR\n\ + \movesAsset\DC2E\n\ + \\vmints_asset\CAN\ENQ \SOH(\v2$.utxorpc.v1beta.cardano.AssetPatternR\n\ + \mintsAsset\DC2S\n\ + \\SIhas_certificate\CAN\ACK \SOH(\v2*.utxorpc.v1beta.cardano.CertificatePatternR\SOhasCertificate" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + consumes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "consumes" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxOutputPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'consumes")) :: + Data.ProtoLens.FieldDescriptor TxPattern + produces__field_descriptor + = Data.ProtoLens.FieldDescriptor + "produces" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxOutputPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'produces")) :: + Data.ProtoLens.FieldDescriptor TxPattern + hasAddress__field_descriptor + = Data.ProtoLens.FieldDescriptor + "has_address" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AddressPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hasAddress")) :: + Data.ProtoLens.FieldDescriptor TxPattern + movesAsset__field_descriptor + = Data.ProtoLens.FieldDescriptor + "moves_asset" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AssetPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'movesAsset")) :: + Data.ProtoLens.FieldDescriptor TxPattern + mintsAsset__field_descriptor + = Data.ProtoLens.FieldDescriptor + "mints_asset" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AssetPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'mintsAsset")) :: + Data.ProtoLens.FieldDescriptor TxPattern + hasCertificate__field_descriptor + = Data.ProtoLens.FieldDescriptor + "has_certificate" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor CertificatePattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'hasCertificate")) :: + Data.ProtoLens.FieldDescriptor TxPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, consumes__field_descriptor), + (Data.ProtoLens.Tag 2, produces__field_descriptor), + (Data.ProtoLens.Tag 3, hasAddress__field_descriptor), + (Data.ProtoLens.Tag 4, movesAsset__field_descriptor), + (Data.ProtoLens.Tag 5, mintsAsset__field_descriptor), + (Data.ProtoLens.Tag 6, hasCertificate__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxPattern'_unknownFields + (\ x__ y__ -> x__ {_TxPattern'_unknownFields = y__}) + defMessage + = TxPattern'_constructor + {_TxPattern'consumes = Prelude.Nothing, + _TxPattern'produces = Prelude.Nothing, + _TxPattern'hasAddress = Prelude.Nothing, + _TxPattern'movesAsset = Prelude.Nothing, + _TxPattern'mintsAsset = Prelude.Nothing, + _TxPattern'hasCertificate = Prelude.Nothing, + _TxPattern'_unknownFields = []} + parseMessage + = let + loop :: TxPattern -> Data.ProtoLens.Encoding.Bytes.Parser TxPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "consumes" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"consumes") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "produces" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"produces") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "has_address" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"hasAddress") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "moves_asset" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"movesAsset") y x) + 42 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "mints_asset" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"mintsAsset") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "has_certificate" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"hasCertificate") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TxPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'consumes") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'produces") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'hasAddress") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'movesAsset") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'mintsAsset") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'hasCertificate") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) +instance Control.DeepSeq.NFData TxPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxPattern'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxPattern'consumes x__) + (Control.DeepSeq.deepseq + (_TxPattern'produces x__) + (Control.DeepSeq.deepseq + (_TxPattern'hasAddress x__) + (Control.DeepSeq.deepseq + (_TxPattern'movesAsset x__) + (Control.DeepSeq.deepseq + (_TxPattern'mintsAsset x__) + (Control.DeepSeq.deepseq (_TxPattern'hasCertificate x__) ())))))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.start' @:: Lens' TxValidity Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.ttl' @:: Lens' TxValidity Data.Word.Word64@ -} +data TxValidity + = TxValidity'_constructor {_TxValidity'start :: !Data.Word.Word64, + _TxValidity'ttl :: !Data.Word.Word64, + _TxValidity'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxValidity where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxValidity "start" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxValidity'start (\ x__ y__ -> x__ {_TxValidity'start = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxValidity "ttl" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxValidity'ttl (\ x__ y__ -> x__ {_TxValidity'ttl = y__})) + Prelude.id +instance Data.ProtoLens.Message TxValidity where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.TxValidity" + packedMessageDescriptor _ + = "\n\ + \\n\ + \TxValidity\DC2\DC4\n\ + \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\ + \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + start__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"start")) :: + Data.ProtoLens.FieldDescriptor TxValidity + ttl__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ttl" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ttl")) :: + Data.ProtoLens.FieldDescriptor TxValidity + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, start__field_descriptor), + (Data.ProtoLens.Tag 2, ttl__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxValidity'_unknownFields + (\ x__ y__ -> x__ {_TxValidity'_unknownFields = y__}) + defMessage + = TxValidity'_constructor + {_TxValidity'start = Data.ProtoLens.fieldDefault, + _TxValidity'ttl = Data.ProtoLens.fieldDefault, + _TxValidity'_unknownFields = []} + parseMessage + = let + loop :: + TxValidity -> Data.ProtoLens.Encoding.Bytes.Parser TxValidity + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "start" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "ttl" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TxValidity" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"start") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ttl") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TxValidity where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxValidity'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxValidity'start x__) + (Control.DeepSeq.deepseq (_TxValidity'ttl x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' UnRegCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' UnRegCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' UnRegCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' UnRegCert (Prelude.Maybe BigInt)@ -} +data UnRegCert + = UnRegCert'_constructor {_UnRegCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _UnRegCert'coin :: !(Prelude.Maybe BigInt), + _UnRegCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UnRegCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UnRegCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegCert'stakeCredential + (\ x__ y__ -> x__ {_UnRegCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UnRegCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegCert'stakeCredential + (\ x__ y__ -> x__ {_UnRegCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UnRegCert "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegCert'coin (\ x__ y__ -> x__ {_UnRegCert'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UnRegCert "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegCert'coin (\ x__ y__ -> x__ {_UnRegCert'coin = y__})) + Prelude.id +instance Data.ProtoLens.Message UnRegCert where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.UnRegCert" + packedMessageDescriptor _ + = "\n\ + \\tUnRegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor UnRegCert + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor UnRegCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, coin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UnRegCert'_unknownFields + (\ x__ y__ -> x__ {_UnRegCert'_unknownFields = y__}) + defMessage + = UnRegCert'_constructor + {_UnRegCert'stakeCredential = Prelude.Nothing, + _UnRegCert'coin = Prelude.Nothing, _UnRegCert'_unknownFields = []} + parseMessage + = let + loop :: UnRegCert -> Data.ProtoLens.Encoding.Bytes.Parser UnRegCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UnRegCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData UnRegCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UnRegCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UnRegCert'stakeCredential x__) + (Control.DeepSeq.deepseq (_UnRegCert'coin x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepCredential' @:: Lens' UnRegDRepCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drepCredential' @:: Lens' UnRegDRepCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' UnRegDRepCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' UnRegDRepCert (Prelude.Maybe BigInt)@ -} +data UnRegDRepCert + = UnRegDRepCert'_constructor {_UnRegDRepCert'drepCredential :: !(Prelude.Maybe StakeCredential), + _UnRegDRepCert'coin :: !(Prelude.Maybe BigInt), + _UnRegDRepCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UnRegDRepCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UnRegDRepCert "drepCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegDRepCert'drepCredential + (\ x__ y__ -> x__ {_UnRegDRepCert'drepCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UnRegDRepCert "maybe'drepCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegDRepCert'drepCredential + (\ x__ y__ -> x__ {_UnRegDRepCert'drepCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UnRegDRepCert "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegDRepCert'coin (\ x__ y__ -> x__ {_UnRegDRepCert'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UnRegDRepCert "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UnRegDRepCert'coin (\ x__ y__ -> x__ {_UnRegDRepCert'coin = y__})) + Prelude.id +instance Data.ProtoLens.Message UnRegDRepCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.UnRegDRepCert" + packedMessageDescriptor _ + = "\n\ + \\rUnRegDRepCert\DC2P\n\ + \\SIdrep_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SOdrepCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + drepCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drepCredential")) :: + Data.ProtoLens.FieldDescriptor UnRegDRepCert + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor UnRegDRepCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, drepCredential__field_descriptor), + (Data.ProtoLens.Tag 2, coin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UnRegDRepCert'_unknownFields + (\ x__ y__ -> x__ {_UnRegDRepCert'_unknownFields = y__}) + defMessage + = UnRegDRepCert'_constructor + {_UnRegDRepCert'drepCredential = Prelude.Nothing, + _UnRegDRepCert'coin = Prelude.Nothing, + _UnRegDRepCert'_unknownFields = []} + parseMessage + = let + loop :: + UnRegDRepCert -> Data.ProtoLens.Encoding.Bytes.Parser UnRegDRepCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"drepCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UnRegDRepCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'drepCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData UnRegDRepCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UnRegDRepCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UnRegDRepCert'drepCredential x__) + (Control.DeepSeq.deepseq (_UnRegDRepCert'coin x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.govActionId' @:: Lens' UpdateCommitteeAction GovernanceActionId@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'govActionId' @:: Lens' UpdateCommitteeAction (Prelude.Maybe GovernanceActionId)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.removeCommitteeCredentials' @:: Lens' UpdateCommitteeAction [StakeCredential]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'removeCommitteeCredentials' @:: Lens' UpdateCommitteeAction (Data.Vector.Vector StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.newCommitteeCredentials' @:: Lens' UpdateCommitteeAction [NewCommitteeCredentials]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'newCommitteeCredentials' @:: Lens' UpdateCommitteeAction (Data.Vector.Vector NewCommitteeCredentials)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.newCommitteeThreshold' @:: Lens' UpdateCommitteeAction RationalNumber@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'newCommitteeThreshold' @:: Lens' UpdateCommitteeAction (Prelude.Maybe RationalNumber)@ -} +data UpdateCommitteeAction + = UpdateCommitteeAction'_constructor {_UpdateCommitteeAction'govActionId :: !(Prelude.Maybe GovernanceActionId), + _UpdateCommitteeAction'removeCommitteeCredentials :: !(Data.Vector.Vector StakeCredential), + _UpdateCommitteeAction'newCommitteeCredentials :: !(Data.Vector.Vector NewCommitteeCredentials), + _UpdateCommitteeAction'newCommitteeThreshold :: !(Prelude.Maybe RationalNumber), + _UpdateCommitteeAction'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateCommitteeAction where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "govActionId" GovernanceActionId where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'govActionId + (\ x__ y__ -> x__ {_UpdateCommitteeAction'govActionId = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "maybe'govActionId" (Prelude.Maybe GovernanceActionId) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'govActionId + (\ x__ y__ -> x__ {_UpdateCommitteeAction'govActionId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "removeCommitteeCredentials" [StakeCredential] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'removeCommitteeCredentials + (\ x__ y__ + -> x__ {_UpdateCommitteeAction'removeCommitteeCredentials = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "vec'removeCommitteeCredentials" (Data.Vector.Vector StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'removeCommitteeCredentials + (\ x__ y__ + -> x__ {_UpdateCommitteeAction'removeCommitteeCredentials = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "newCommitteeCredentials" [NewCommitteeCredentials] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'newCommitteeCredentials + (\ x__ y__ + -> x__ {_UpdateCommitteeAction'newCommitteeCredentials = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "vec'newCommitteeCredentials" (Data.Vector.Vector NewCommitteeCredentials) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'newCommitteeCredentials + (\ x__ y__ + -> x__ {_UpdateCommitteeAction'newCommitteeCredentials = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "newCommitteeThreshold" RationalNumber where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'newCommitteeThreshold + (\ x__ y__ + -> x__ {_UpdateCommitteeAction'newCommitteeThreshold = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateCommitteeAction "maybe'newCommitteeThreshold" (Prelude.Maybe RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'newCommitteeThreshold + (\ x__ y__ + -> x__ {_UpdateCommitteeAction'newCommitteeThreshold = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateCommitteeAction where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.UpdateCommitteeAction" + packedMessageDescriptor _ + = "\n\ + \\NAKUpdateCommitteeAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2i\n\ + \\FSremove_committee_credentials\CAN\STX \ETX(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SUBremoveCommitteeCredentials\DC2k\n\ + \\EMnew_committee_credentials\CAN\ETX \ETX(\v2/.utxorpc.v1beta.cardano.NewCommitteeCredentialsR\ETBnewCommitteeCredentials\DC2^\n\ + \\ETBnew_committee_threshold\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\NAKnewCommitteeThreshold" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + govActionId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "gov_action_id" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor GovernanceActionId) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'govActionId")) :: + Data.ProtoLens.FieldDescriptor UpdateCommitteeAction + removeCommitteeCredentials__field_descriptor + = Data.ProtoLens.FieldDescriptor + "remove_committee_credentials" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"removeCommitteeCredentials")) :: + Data.ProtoLens.FieldDescriptor UpdateCommitteeAction + newCommitteeCredentials__field_descriptor + = Data.ProtoLens.FieldDescriptor + "new_committee_credentials" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor NewCommitteeCredentials) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"newCommitteeCredentials")) :: + Data.ProtoLens.FieldDescriptor UpdateCommitteeAction + newCommitteeThreshold__field_descriptor + = Data.ProtoLens.FieldDescriptor + "new_committee_threshold" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'newCommitteeThreshold")) :: + Data.ProtoLens.FieldDescriptor UpdateCommitteeAction + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, govActionId__field_descriptor), + (Data.ProtoLens.Tag 2, + removeCommitteeCredentials__field_descriptor), + (Data.ProtoLens.Tag 3, newCommitteeCredentials__field_descriptor), + (Data.ProtoLens.Tag 4, newCommitteeThreshold__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateCommitteeAction'_unknownFields + (\ x__ y__ -> x__ {_UpdateCommitteeAction'_unknownFields = y__}) + defMessage + = UpdateCommitteeAction'_constructor + {_UpdateCommitteeAction'govActionId = Prelude.Nothing, + _UpdateCommitteeAction'removeCommitteeCredentials = Data.Vector.Generic.empty, + _UpdateCommitteeAction'newCommitteeCredentials = Data.Vector.Generic.empty, + _UpdateCommitteeAction'newCommitteeThreshold = Prelude.Nothing, + _UpdateCommitteeAction'_unknownFields = []} + parseMessage + = let + loop :: + UpdateCommitteeAction + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NewCommitteeCredentials + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld StakeCredential + -> Data.ProtoLens.Encoding.Bytes.Parser UpdateCommitteeAction + loop + x + mutable'newCommitteeCredentials + mutable'removeCommitteeCredentials + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'newCommitteeCredentials <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'newCommitteeCredentials) + frozen'removeCommitteeCredentials <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'removeCommitteeCredentials) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'newCommitteeCredentials") + frozen'newCommitteeCredentials + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'removeCommitteeCredentials") + frozen'removeCommitteeCredentials x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "gov_action_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"govActionId") y x) + mutable'newCommitteeCredentials mutable'removeCommitteeCredentials + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "remove_committee_credentials" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'removeCommitteeCredentials y) + loop x mutable'newCommitteeCredentials v + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "new_committee_credentials" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'newCommitteeCredentials y) + loop x v mutable'removeCommitteeCredentials + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "new_committee_threshold" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"newCommitteeThreshold") y x) + mutable'newCommitteeCredentials mutable'removeCommitteeCredentials + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'newCommitteeCredentials mutable'removeCommitteeCredentials + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'newCommitteeCredentials <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'removeCommitteeCredentials <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage mutable'newCommitteeCredentials + mutable'removeCommitteeCredentials) + "UpdateCommitteeAction" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'govActionId") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'removeCommitteeCredentials") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'newCommitteeCredentials") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'newCommitteeThreshold") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData UpdateCommitteeAction where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateCommitteeAction'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UpdateCommitteeAction'govActionId x__) + (Control.DeepSeq.deepseq + (_UpdateCommitteeAction'removeCommitteeCredentials x__) + (Control.DeepSeq.deepseq + (_UpdateCommitteeAction'newCommitteeCredentials x__) + (Control.DeepSeq.deepseq + (_UpdateCommitteeAction'newCommitteeThreshold x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drepCredential' @:: Lens' UpdateDRepCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drepCredential' @:: Lens' UpdateDRepCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.anchor' @:: Lens' UpdateDRepCert Anchor@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'anchor' @:: Lens' UpdateDRepCert (Prelude.Maybe Anchor)@ -} +data UpdateDRepCert + = UpdateDRepCert'_constructor {_UpdateDRepCert'drepCredential :: !(Prelude.Maybe StakeCredential), + _UpdateDRepCert'anchor :: !(Prelude.Maybe Anchor), + _UpdateDRepCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UpdateDRepCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UpdateDRepCert "drepCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateDRepCert'drepCredential + (\ x__ y__ -> x__ {_UpdateDRepCert'drepCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateDRepCert "maybe'drepCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateDRepCert'drepCredential + (\ x__ y__ -> x__ {_UpdateDRepCert'drepCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UpdateDRepCert "anchor" Anchor where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateDRepCert'anchor + (\ x__ y__ -> x__ {_UpdateDRepCert'anchor = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UpdateDRepCert "maybe'anchor" (Prelude.Maybe Anchor) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UpdateDRepCert'anchor + (\ x__ y__ -> x__ {_UpdateDRepCert'anchor = y__})) + Prelude.id +instance Data.ProtoLens.Message UpdateDRepCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.UpdateDRepCert" + packedMessageDescriptor _ + = "\n\ + \\SOUpdateDRepCert\DC2P\n\ + \\SIdrep_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SOdrepCredential\DC26\n\ + \\ACKanchor\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + drepCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drepCredential")) :: + Data.ProtoLens.FieldDescriptor UpdateDRepCert + anchor__field_descriptor + = Data.ProtoLens.FieldDescriptor + "anchor" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Anchor) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'anchor")) :: + Data.ProtoLens.FieldDescriptor UpdateDRepCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, drepCredential__field_descriptor), + (Data.ProtoLens.Tag 2, anchor__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UpdateDRepCert'_unknownFields + (\ x__ y__ -> x__ {_UpdateDRepCert'_unknownFields = y__}) + defMessage + = UpdateDRepCert'_constructor + {_UpdateDRepCert'drepCredential = Prelude.Nothing, + _UpdateDRepCert'anchor = Prelude.Nothing, + _UpdateDRepCert'_unknownFields = []} + parseMessage + = let + loop :: + UpdateDRepCert + -> Data.ProtoLens.Encoding.Bytes.Parser UpdateDRepCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"drepCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "anchor" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"anchor") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UpdateDRepCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'drepCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'anchor") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData UpdateDRepCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UpdateDRepCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UpdateDRepCert'drepCredential x__) + (Control.DeepSeq.deepseq (_UpdateDRepCert'anchor x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vkey' @:: Lens' VKeyWitness Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.signature' @:: Lens' VKeyWitness Data.ByteString.ByteString@ -} +data VKeyWitness + = VKeyWitness'_constructor {_VKeyWitness'vkey :: !Data.ByteString.ByteString, + _VKeyWitness'signature :: !Data.ByteString.ByteString, + _VKeyWitness'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show VKeyWitness where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField VKeyWitness "vkey" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VKeyWitness'vkey (\ x__ y__ -> x__ {_VKeyWitness'vkey = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField VKeyWitness "signature" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VKeyWitness'signature + (\ x__ y__ -> x__ {_VKeyWitness'signature = y__})) + Prelude.id +instance Data.ProtoLens.Message VKeyWitness where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.VKeyWitness" + packedMessageDescriptor _ + = "\n\ + \\vVKeyWitness\DC2\DC2\n\ + \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\ + \\tsignature\CAN\STX \SOH(\fR\tsignature" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + vkey__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vkey" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"vkey")) :: + Data.ProtoLens.FieldDescriptor VKeyWitness + signature__field_descriptor + = Data.ProtoLens.FieldDescriptor + "signature" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"signature")) :: + Data.ProtoLens.FieldDescriptor VKeyWitness + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, vkey__field_descriptor), + (Data.ProtoLens.Tag 2, signature__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _VKeyWitness'_unknownFields + (\ x__ y__ -> x__ {_VKeyWitness'_unknownFields = y__}) + defMessage + = VKeyWitness'_constructor + {_VKeyWitness'vkey = Data.ProtoLens.fieldDefault, + _VKeyWitness'signature = Data.ProtoLens.fieldDefault, + _VKeyWitness'_unknownFields = []} + parseMessage + = let + loop :: + VKeyWitness -> Data.ProtoLens.Encoding.Bytes.Parser VKeyWitness + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "vkey" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"vkey") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "signature" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "VKeyWitness" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vkey") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"signature") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData VKeyWitness where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_VKeyWitness'_unknownFields x__) + (Control.DeepSeq.deepseq + (_VKeyWitness'vkey x__) + (Control.DeepSeq.deepseq (_VKeyWitness'signature x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' VoteDelegCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' VoteDelegCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drep' @:: Lens' VoteDelegCert DRep@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drep' @:: Lens' VoteDelegCert (Prelude.Maybe DRep)@ -} +data VoteDelegCert + = VoteDelegCert'_constructor {_VoteDelegCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _VoteDelegCert'drep :: !(Prelude.Maybe DRep), + _VoteDelegCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show VoteDelegCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField VoteDelegCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteDelegCert'stakeCredential + (\ x__ y__ -> x__ {_VoteDelegCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField VoteDelegCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteDelegCert'stakeCredential + (\ x__ y__ -> x__ {_VoteDelegCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField VoteDelegCert "drep" DRep where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteDelegCert'drep (\ x__ y__ -> x__ {_VoteDelegCert'drep = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField VoteDelegCert "maybe'drep" (Prelude.Maybe DRep) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteDelegCert'drep (\ x__ y__ -> x__ {_VoteDelegCert'drep = y__})) + Prelude.id +instance Data.ProtoLens.Message VoteDelegCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.VoteDelegCert" + packedMessageDescriptor _ + = "\n\ + \\rVoteDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC20\n\ + \\EOTdrep\CAN\STX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor VoteDelegCert + drep__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DRep) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drep")) :: + Data.ProtoLens.FieldDescriptor VoteDelegCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, drep__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _VoteDelegCert'_unknownFields + (\ x__ y__ -> x__ {_VoteDelegCert'_unknownFields = y__}) + defMessage + = VoteDelegCert'_constructor + {_VoteDelegCert'stakeCredential = Prelude.Nothing, + _VoteDelegCert'drep = Prelude.Nothing, + _VoteDelegCert'_unknownFields = []} + parseMessage + = let + loop :: + VoteDelegCert -> Data.ProtoLens.Encoding.Bytes.Parser VoteDelegCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"drep") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "VoteDelegCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'drep") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData VoteDelegCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_VoteDelegCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_VoteDelegCert'stakeCredential x__) + (Control.DeepSeq.deepseq (_VoteDelegCert'drep x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.stakeCredential' @:: Lens' VoteRegDelegCert StakeCredential@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' VoteRegDelegCert (Prelude.Maybe StakeCredential)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.drep' @:: Lens' VoteRegDelegCert DRep@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'drep' @:: Lens' VoteRegDelegCert (Prelude.Maybe DRep)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' VoteRegDelegCert BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' VoteRegDelegCert (Prelude.Maybe BigInt)@ -} +data VoteRegDelegCert + = VoteRegDelegCert'_constructor {_VoteRegDelegCert'stakeCredential :: !(Prelude.Maybe StakeCredential), + _VoteRegDelegCert'drep :: !(Prelude.Maybe DRep), + _VoteRegDelegCert'coin :: !(Prelude.Maybe BigInt), + _VoteRegDelegCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show VoteRegDelegCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField VoteRegDelegCert "stakeCredential" StakeCredential where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteRegDelegCert'stakeCredential + (\ x__ y__ -> x__ {_VoteRegDelegCert'stakeCredential = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField VoteRegDelegCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteRegDelegCert'stakeCredential + (\ x__ y__ -> x__ {_VoteRegDelegCert'stakeCredential = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField VoteRegDelegCert "drep" DRep where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteRegDelegCert'drep + (\ x__ y__ -> x__ {_VoteRegDelegCert'drep = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField VoteRegDelegCert "maybe'drep" (Prelude.Maybe DRep) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteRegDelegCert'drep + (\ x__ y__ -> x__ {_VoteRegDelegCert'drep = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField VoteRegDelegCert "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteRegDelegCert'coin + (\ x__ y__ -> x__ {_VoteRegDelegCert'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField VoteRegDelegCert "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VoteRegDelegCert'coin + (\ x__ y__ -> x__ {_VoteRegDelegCert'coin = y__})) + Prelude.id +instance Data.ProtoLens.Message VoteRegDelegCert where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.VoteRegDelegCert" + packedMessageDescriptor _ + = "\n\ + \\DLEVoteRegDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC20\n\ + \\EOTdrep\CAN\STX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep\DC22\n\ + \\EOTcoin\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + stakeCredential__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stake_credential" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor StakeCredential) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'stakeCredential")) :: + Data.ProtoLens.FieldDescriptor VoteRegDelegCert + drep__field_descriptor + = Data.ProtoLens.FieldDescriptor + "drep" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor DRep) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'drep")) :: + Data.ProtoLens.FieldDescriptor VoteRegDelegCert + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor VoteRegDelegCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor), + (Data.ProtoLens.Tag 2, drep__field_descriptor), + (Data.ProtoLens.Tag 3, coin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _VoteRegDelegCert'_unknownFields + (\ x__ y__ -> x__ {_VoteRegDelegCert'_unknownFields = y__}) + defMessage + = VoteRegDelegCert'_constructor + {_VoteRegDelegCert'stakeCredential = Prelude.Nothing, + _VoteRegDelegCert'drep = Prelude.Nothing, + _VoteRegDelegCert'coin = Prelude.Nothing, + _VoteRegDelegCert'_unknownFields = []} + parseMessage + = let + loop :: + VoteRegDelegCert + -> Data.ProtoLens.Encoding.Bytes.Parser VoteRegDelegCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "stake_credential" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"stakeCredential") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "drep" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"drep") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "VoteRegDelegCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'drep") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData VoteRegDelegCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_VoteRegDelegCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_VoteRegDelegCert'stakeCredential x__) + (Control.DeepSeq.deepseq + (_VoteRegDelegCert'drep x__) + (Control.DeepSeq.deepseq (_VoteRegDelegCert'coin x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.thresholds' @:: Lens' VotingThresholds [RationalNumber]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'thresholds' @:: Lens' VotingThresholds (Data.Vector.Vector RationalNumber)@ -} +data VotingThresholds + = VotingThresholds'_constructor {_VotingThresholds'thresholds :: !(Data.Vector.Vector RationalNumber), + _VotingThresholds'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show VotingThresholds where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField VotingThresholds "thresholds" [RationalNumber] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VotingThresholds'thresholds + (\ x__ y__ -> x__ {_VotingThresholds'thresholds = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField VotingThresholds "vec'thresholds" (Data.Vector.Vector RationalNumber) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VotingThresholds'thresholds + (\ x__ y__ -> x__ {_VotingThresholds'thresholds = y__})) + Prelude.id +instance Data.ProtoLens.Message VotingThresholds where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.VotingThresholds" + packedMessageDescriptor _ + = "\n\ + \\DLEVotingThresholds\DC2F\n\ + \\n\ + \thresholds\CAN\SOH \ETX(\v2&.utxorpc.v1beta.cardano.RationalNumberR\n\ + \thresholds" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + thresholds__field_descriptor + = Data.ProtoLens.FieldDescriptor + "thresholds" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor RationalNumber) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"thresholds")) :: + Data.ProtoLens.FieldDescriptor VotingThresholds + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, thresholds__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _VotingThresholds'_unknownFields + (\ x__ y__ -> x__ {_VotingThresholds'_unknownFields = y__}) + defMessage + = VotingThresholds'_constructor + {_VotingThresholds'thresholds = Data.Vector.Generic.empty, + _VotingThresholds'_unknownFields = []} + 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 x mutable'thresholds + = do end <- 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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'thresholds") frozen'thresholds + x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "thresholds" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'thresholds y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'thresholds + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'thresholds <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'thresholds) + "VotingThresholds" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'thresholds") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData VotingThresholds where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_VotingThresholds'_unknownFields x__) + (Control.DeepSeq.deepseq (_VotingThresholds'thresholds x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.expiryEpoch' @:: Lens' VssCert Data.Word.Word32@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.signature' @:: Lens' VssCert Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.signingKey' @:: Lens' VssCert Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vssKey' @:: Lens' VssCert Data.Text.Text@ -} +data VssCert + = VssCert'_constructor {_VssCert'expiryEpoch :: !Data.Word.Word32, + _VssCert'signature :: !Data.Text.Text, + _VssCert'signingKey :: !Data.Text.Text, + _VssCert'vssKey :: !Data.Text.Text, + _VssCert'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show VssCert where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField VssCert "expiryEpoch" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VssCert'expiryEpoch + (\ x__ y__ -> x__ {_VssCert'expiryEpoch = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField VssCert "signature" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VssCert'signature (\ x__ y__ -> x__ {_VssCert'signature = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField VssCert "signingKey" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VssCert'signingKey (\ x__ y__ -> x__ {_VssCert'signingKey = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField VssCert "vssKey" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _VssCert'vssKey (\ x__ y__ -> x__ {_VssCert'vssKey = y__})) + Prelude.id +instance Data.ProtoLens.Message VssCert where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.VssCert" + packedMessageDescriptor _ + = "\n\ + \\aVssCert\DC2!\n\ + \\fexpiry_epoch\CAN\SOH \SOH(\rR\vexpiryEpoch\DC2\FS\n\ + \\tsignature\CAN\STX \SOH(\tR\tsignature\DC2\US\n\ + \\vsigning_key\CAN\ETX \SOH(\tR\n\ + \signingKey\DC2\ETB\n\ + \\avss_key\CAN\EOT \SOH(\tR\ACKvssKey" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + expiryEpoch__field_descriptor + = Data.ProtoLens.FieldDescriptor + "expiry_epoch" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"expiryEpoch")) :: + Data.ProtoLens.FieldDescriptor VssCert + signature__field_descriptor + = Data.ProtoLens.FieldDescriptor + "signature" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"signature")) :: + Data.ProtoLens.FieldDescriptor VssCert + signingKey__field_descriptor + = Data.ProtoLens.FieldDescriptor + "signing_key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"signingKey")) :: + Data.ProtoLens.FieldDescriptor VssCert + vssKey__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vss_key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"vssKey")) :: + Data.ProtoLens.FieldDescriptor VssCert + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, expiryEpoch__field_descriptor), + (Data.ProtoLens.Tag 2, signature__field_descriptor), + (Data.ProtoLens.Tag 3, signingKey__field_descriptor), + (Data.ProtoLens.Tag 4, vssKey__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _VssCert'_unknownFields + (\ x__ y__ -> x__ {_VssCert'_unknownFields = y__}) + defMessage + = VssCert'_constructor + {_VssCert'expiryEpoch = Data.ProtoLens.fieldDefault, + _VssCert'signature = Data.ProtoLens.fieldDefault, + _VssCert'signingKey = Data.ProtoLens.fieldDefault, + _VssCert'vssKey = Data.ProtoLens.fieldDefault, + _VssCert'_unknownFields = []} + parseMessage + = let + loop :: VssCert -> Data.ProtoLens.Encoding.Bytes.Parser VssCert + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "expiry_epoch" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"expiryEpoch") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "signature" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "signing_key" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"signingKey") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "vss_key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"vssKey") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "VssCert" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"expiryEpoch") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"signature") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"signingKey") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vssKey") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData VssCert where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_VssCert'_unknownFields x__) + (Control.DeepSeq.deepseq + (_VssCert'expiryEpoch x__) + (Control.DeepSeq.deepseq + (_VssCert'signature x__) + (Control.DeepSeq.deepseq + (_VssCert'signingKey x__) + (Control.DeepSeq.deepseq (_VssCert'vssKey x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.rewardAccount' @:: Lens' Withdrawal Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' Withdrawal BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' Withdrawal (Prelude.Maybe BigInt)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.redeemer' @:: Lens' Withdrawal Redeemer@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Withdrawal (Prelude.Maybe Redeemer)@ -} +data Withdrawal + = Withdrawal'_constructor {_Withdrawal'rewardAccount :: !Data.ByteString.ByteString, + _Withdrawal'coin :: !(Prelude.Maybe BigInt), + _Withdrawal'redeemer :: !(Prelude.Maybe Redeemer), + _Withdrawal'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Withdrawal where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Withdrawal "rewardAccount" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Withdrawal'rewardAccount + (\ x__ y__ -> x__ {_Withdrawal'rewardAccount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Withdrawal "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Withdrawal'coin (\ x__ y__ -> x__ {_Withdrawal'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Withdrawal "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Withdrawal'coin (\ x__ y__ -> x__ {_Withdrawal'coin = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Withdrawal "redeemer" Redeemer where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Withdrawal'redeemer + (\ x__ y__ -> x__ {_Withdrawal'redeemer = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField Withdrawal "maybe'redeemer" (Prelude.Maybe Redeemer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Withdrawal'redeemer + (\ x__ y__ -> x__ {_Withdrawal'redeemer = y__})) + Prelude.id +instance Data.ProtoLens.Message Withdrawal where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.Withdrawal" + packedMessageDescriptor _ + = "\n\ + \\n\ + \Withdrawal\DC2%\n\ + \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\DC2<\n\ + \\bredeemer\CAN\ETX \SOH(\v2 .utxorpc.v1beta.cardano.RedeemerR\bredeemer" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + rewardAccount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reward_account" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"rewardAccount")) :: + Data.ProtoLens.FieldDescriptor Withdrawal + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor Withdrawal + redeemer__field_descriptor + = Data.ProtoLens.FieldDescriptor + "redeemer" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Redeemer) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'redeemer")) :: + Data.ProtoLens.FieldDescriptor Withdrawal + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, rewardAccount__field_descriptor), + (Data.ProtoLens.Tag 2, coin__field_descriptor), + (Data.ProtoLens.Tag 3, redeemer__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Withdrawal'_unknownFields + (\ x__ y__ -> x__ {_Withdrawal'_unknownFields = y__}) + defMessage + = Withdrawal'_constructor + {_Withdrawal'rewardAccount = Data.ProtoLens.fieldDefault, + _Withdrawal'coin = Prelude.Nothing, + _Withdrawal'redeemer = Prelude.Nothing, + _Withdrawal'_unknownFields = []} + parseMessage + = let + loop :: + Withdrawal -> Data.ProtoLens.Encoding.Bytes.Parser Withdrawal + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "reward_account" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"rewardAccount") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "redeemer" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Withdrawal" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"rewardAccount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData Withdrawal where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Withdrawal'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Withdrawal'rewardAccount x__) + (Control.DeepSeq.deepseq + (_Withdrawal'coin x__) + (Control.DeepSeq.deepseq (_Withdrawal'redeemer x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.rewardAccount' @:: Lens' WithdrawalAmount Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.coin' @:: Lens' WithdrawalAmount BigInt@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.maybe'coin' @:: Lens' WithdrawalAmount (Prelude.Maybe BigInt)@ -} +data WithdrawalAmount + = WithdrawalAmount'_constructor {_WithdrawalAmount'rewardAccount :: !Data.ByteString.ByteString, + _WithdrawalAmount'coin :: !(Prelude.Maybe BigInt), + _WithdrawalAmount'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show WithdrawalAmount where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField WithdrawalAmount "rewardAccount" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WithdrawalAmount'rewardAccount + (\ x__ y__ -> x__ {_WithdrawalAmount'rewardAccount = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField WithdrawalAmount "coin" BigInt where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WithdrawalAmount'coin + (\ x__ y__ -> x__ {_WithdrawalAmount'coin = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField WithdrawalAmount "maybe'coin" (Prelude.Maybe BigInt) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WithdrawalAmount'coin + (\ x__ y__ -> x__ {_WithdrawalAmount'coin = y__})) + Prelude.id +instance Data.ProtoLens.Message WithdrawalAmount where + messageName _ + = Data.Text.pack "utxorpc.v1beta.cardano.WithdrawalAmount" + packedMessageDescriptor _ + = "\n\ + \\DLEWithdrawalAmount\DC2%\n\ + \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + rewardAccount__field_descriptor + = Data.ProtoLens.FieldDescriptor + "reward_account" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"rewardAccount")) :: + Data.ProtoLens.FieldDescriptor WithdrawalAmount + coin__field_descriptor + = Data.ProtoLens.FieldDescriptor + "coin" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BigInt) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'coin")) :: + Data.ProtoLens.FieldDescriptor WithdrawalAmount + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, rewardAccount__field_descriptor), + (Data.ProtoLens.Tag 2, coin__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _WithdrawalAmount'_unknownFields + (\ x__ y__ -> x__ {_WithdrawalAmount'_unknownFields = y__}) + defMessage + = WithdrawalAmount'_constructor + {_WithdrawalAmount'rewardAccount = Data.ProtoLens.fieldDefault, + _WithdrawalAmount'coin = Prelude.Nothing, + _WithdrawalAmount'_unknownFields = []} + parseMessage + = let + loop :: + WithdrawalAmount + -> Data.ProtoLens.Encoding.Bytes.Parser WithdrawalAmount + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "reward_account" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"rewardAccount") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "coin" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "WithdrawalAmount" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"rewardAccount") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'coin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData WithdrawalAmount where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_WithdrawalAmount'_unknownFields x__) + (Control.DeepSeq.deepseq + (_WithdrawalAmount'rewardAccount x__) + (Control.DeepSeq.deepseq (_WithdrawalAmount'coin x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vkeywitness' @:: Lens' WitnessSet [VKeyWitness]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'vkeywitness' @:: Lens' WitnessSet (Data.Vector.Vector VKeyWitness)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.script' @:: Lens' WitnessSet [Script]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'script' @:: Lens' WitnessSet (Data.Vector.Vector Script)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.plutusDatums' @:: Lens' WitnessSet [PlutusData]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'plutusDatums' @:: Lens' WitnessSet (Data.Vector.Vector PlutusData)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.redeemers' @:: Lens' WitnessSet [Redeemer]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'redeemers' @:: Lens' WitnessSet (Data.Vector.Vector Redeemer)@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.bootstrapWitnesses' @:: Lens' WitnessSet [BootstrapWitness]@ + * 'Proto.Utxorpc.V1beta.Cardano.Cardano_Fields.vec'bootstrapWitnesses' @:: Lens' WitnessSet (Data.Vector.Vector BootstrapWitness)@ -} +data WitnessSet + = WitnessSet'_constructor {_WitnessSet'vkeywitness :: !(Data.Vector.Vector VKeyWitness), + _WitnessSet'script :: !(Data.Vector.Vector Script), + _WitnessSet'plutusDatums :: !(Data.Vector.Vector PlutusData), + _WitnessSet'redeemers :: !(Data.Vector.Vector Redeemer), + _WitnessSet'bootstrapWitnesses :: !(Data.Vector.Vector BootstrapWitness), + _WitnessSet'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show WitnessSet where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField WitnessSet "vkeywitness" [VKeyWitness] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'vkeywitness + (\ x__ y__ -> x__ {_WitnessSet'vkeywitness = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField WitnessSet "vec'vkeywitness" (Data.Vector.Vector VKeyWitness) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'vkeywitness + (\ x__ y__ -> x__ {_WitnessSet'vkeywitness = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField WitnessSet "script" [Script] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'script (\ x__ y__ -> x__ {_WitnessSet'script = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField WitnessSet "vec'script" (Data.Vector.Vector Script) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'script (\ x__ y__ -> x__ {_WitnessSet'script = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField WitnessSet "plutusDatums" [PlutusData] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'plutusDatums + (\ x__ y__ -> x__ {_WitnessSet'plutusDatums = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField WitnessSet "vec'plutusDatums" (Data.Vector.Vector PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'plutusDatums + (\ x__ y__ -> x__ {_WitnessSet'plutusDatums = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField WitnessSet "redeemers" [Redeemer] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'redeemers + (\ x__ y__ -> x__ {_WitnessSet'redeemers = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField WitnessSet "vec'redeemers" (Data.Vector.Vector Redeemer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'redeemers + (\ x__ y__ -> x__ {_WitnessSet'redeemers = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField WitnessSet "bootstrapWitnesses" [BootstrapWitness] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'bootstrapWitnesses + (\ x__ y__ -> x__ {_WitnessSet'bootstrapWitnesses = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField WitnessSet "vec'bootstrapWitnesses" (Data.Vector.Vector BootstrapWitness) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WitnessSet'bootstrapWitnesses + (\ x__ y__ -> x__ {_WitnessSet'bootstrapWitnesses = y__})) + Prelude.id +instance Data.ProtoLens.Message WitnessSet where + messageName _ = Data.Text.pack "utxorpc.v1beta.cardano.WitnessSet" + packedMessageDescriptor _ + = "\n\ + \\n\ + \WitnessSet\DC2E\n\ + \\vvkeywitness\CAN\SOH \ETX(\v2#.utxorpc.v1beta.cardano.VKeyWitnessR\vvkeywitness\DC26\n\ + \\ACKscript\CAN\STX \ETX(\v2\RS.utxorpc.v1beta.cardano.ScriptR\ACKscript\DC2G\n\ + \\rplutus_datums\CAN\ETX \ETX(\v2\".utxorpc.v1beta.cardano.PlutusDataR\fplutusDatums\DC2>\n\ + \\tredeemers\CAN\EOT \ETX(\v2 .utxorpc.v1beta.cardano.RedeemerR\tredeemers\DC2X\n\ + \\DC2bootstrapWitnesses\CAN\ENQ \ETX(\v2(.utxorpc.v1beta.cardano.BootstrapWitnessR\DC2bootstrapWitnesses" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + vkeywitness__field_descriptor + = Data.ProtoLens.FieldDescriptor + "vkeywitness" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor VKeyWitness) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"vkeywitness")) :: + Data.ProtoLens.FieldDescriptor WitnessSet + script__field_descriptor + = Data.ProtoLens.FieldDescriptor + "script" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Script) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"script")) :: + Data.ProtoLens.FieldDescriptor WitnessSet + plutusDatums__field_descriptor + = Data.ProtoLens.FieldDescriptor + "plutus_datums" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor PlutusData) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"plutusDatums")) :: + Data.ProtoLens.FieldDescriptor WitnessSet + redeemers__field_descriptor + = Data.ProtoLens.FieldDescriptor + "redeemers" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Redeemer) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"redeemers")) :: + Data.ProtoLens.FieldDescriptor WitnessSet + bootstrapWitnesses__field_descriptor + = Data.ProtoLens.FieldDescriptor + "bootstrapWitnesses" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BootstrapWitness) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"bootstrapWitnesses")) :: + Data.ProtoLens.FieldDescriptor WitnessSet + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, vkeywitness__field_descriptor), + (Data.ProtoLens.Tag 2, script__field_descriptor), + (Data.ProtoLens.Tag 3, plutusDatums__field_descriptor), + (Data.ProtoLens.Tag 4, redeemers__field_descriptor), + (Data.ProtoLens.Tag 5, bootstrapWitnesses__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _WitnessSet'_unknownFields + (\ x__ y__ -> x__ {_WitnessSet'_unknownFields = y__}) + defMessage + = WitnessSet'_constructor + {_WitnessSet'vkeywitness = Data.Vector.Generic.empty, + _WitnessSet'script = Data.Vector.Generic.empty, + _WitnessSet'plutusDatums = Data.Vector.Generic.empty, + _WitnessSet'redeemers = Data.Vector.Generic.empty, + _WitnessSet'bootstrapWitnesses = Data.Vector.Generic.empty, + _WitnessSet'_unknownFields = []} + parseMessage + = let + loop :: + WitnessSet + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld BootstrapWitness + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Redeemer + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld VKeyWitness + -> Data.ProtoLens.Encoding.Bytes.Parser WitnessSet + loop + x + mutable'bootstrapWitnesses + mutable'plutusDatums + mutable'redeemers + mutable'script + mutable'vkeywitness + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'bootstrapWitnesses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'bootstrapWitnesses) + frozen'plutusDatums <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'plutusDatums) + frozen'redeemers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'redeemers) + frozen'script <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'script) + frozen'vkeywitness <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'vkeywitness) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'bootstrapWitnesses") + frozen'bootstrapWitnesses + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'plutusDatums") + frozen'plutusDatums + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'redeemers") frozen'redeemers + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'script") frozen'script + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'vkeywitness") + frozen'vkeywitness x)))))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "vkeywitness" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'vkeywitness y) + loop + x mutable'bootstrapWitnesses mutable'plutusDatums + mutable'redeemers mutable'script v + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "script" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'script y) + loop + x mutable'bootstrapWitnesses mutable'plutusDatums + mutable'redeemers v mutable'vkeywitness + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "plutus_datums" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'plutusDatums y) + loop + x mutable'bootstrapWitnesses v mutable'redeemers mutable'script + mutable'vkeywitness + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "redeemers" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'redeemers y) + loop + x mutable'bootstrapWitnesses mutable'plutusDatums v mutable'script + mutable'vkeywitness + 42 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "bootstrapWitnesses" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'bootstrapWitnesses y) + loop + x v mutable'plutusDatums mutable'redeemers mutable'script + mutable'vkeywitness + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'bootstrapWitnesses mutable'plutusDatums mutable'redeemers + mutable'script mutable'vkeywitness + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'bootstrapWitnesses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'plutusDatums <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'redeemers <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'script <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'vkeywitness <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage mutable'bootstrapWitnesses + mutable'plutusDatums mutable'redeemers mutable'script + mutable'vkeywitness) + "WitnessSet" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'vkeywitness") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'script") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'plutusDatums") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'redeemers") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 42) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'bootstrapWitnesses") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData WitnessSet where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_WitnessSet'_unknownFields x__) + (Control.DeepSeq.deepseq + (_WitnessSet'vkeywitness x__) + (Control.DeepSeq.deepseq + (_WitnessSet'script x__) + (Control.DeepSeq.deepseq + (_WitnessSet'plutusDatums x__) + (Control.DeepSeq.deepseq + (_WitnessSet'redeemers x__) + (Control.DeepSeq.deepseq + (_WitnessSet'bootstrapWitnesses x__) ()))))) +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \$utxorpc/v1beta/cardano/cardano.proto\DC2\SYNutxorpc.v1beta.cardano\"\130\STX\n\ + \\bRedeemer\DC2A\n\ + \\apurpose\CAN\SOH \SOH(\SO2'.utxorpc.v1beta.cardano.RedeemerPurposeR\apurpose\DC2<\n\ + \\apayload\CAN\STX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataR\apayload\DC2\DC4\n\ + \\ENQindex\CAN\ETX \SOH(\rR\ENQindex\DC2:\n\ + \\bex_units\CAN\EOT \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\aexUnits\DC2#\n\ + \\roriginal_cbor\CAN\ENQ \SOH(\fR\foriginalCbor\"\212\SOH\n\ + \\aTxInput\DC2\ETB\n\ + \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\ + \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2=\n\ + \\tas_output\CAN\ETX \SOH(\v2 .utxorpc.v1beta.cardano.TxOutputR\basOutput\DC2A\n\ + \\bredeemer\CAN\EOT \SOH(\v2 .utxorpc.v1beta.cardano.RedeemerH\NULR\bredeemer\136\SOH\SOHB\v\n\ + \\t_redeemer\"\160\STX\n\ + \\bTxOutput\DC2\CAN\n\ + \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\DC2:\n\ + \\ACKassets\CAN\ETX \ETX(\v2\".utxorpc.v1beta.cardano.MultiassetR\ACKassets\DC28\n\ + \\ENQdatum\CAN\EOT \SOH(\v2\GS.utxorpc.v1beta.cardano.DatumH\NULR\ENQdatum\136\SOH\SOH\DC2;\n\ + \\ACKscript\CAN\ENQ \SOH(\v2\RS.utxorpc.v1beta.cardano.ScriptH\SOHR\ACKscript\136\SOH\SOHB\b\n\ + \\ACK_datumB\t\n\ + \\a_script\"\166\SOH\n\ + \\ENQDatum\DC2\DC2\n\ + \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2A\n\ + \\apayload\CAN\STX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataH\NULR\apayload\136\SOH\SOH\DC2(\n\ + \\roriginal_cbor\CAN\ETX \SOH(\fH\SOHR\foriginalCbor\136\SOH\SOHB\n\ + \\n\ + \\b_payloadB\DLE\n\ + \\SO_original_cbor\"W\n\ + \\ENQAsset\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2:\n\ + \\bquantity\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\bquantity\"`\n\ + \\n\ + \Multiasset\DC2\ESC\n\ + \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC25\n\ + \\ACKassets\CAN\STX \ETX(\v2\GS.utxorpc.v1beta.cardano.AssetR\ACKassets\"4\n\ + \\n\ + \TxValidity\DC2\DC4\n\ + \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\ + \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl\"\231\SOH\n\ + \\n\ + \Collateral\DC2?\n\ + \\n\ + \collateral\CAN\SOH \ETX(\v2\US.utxorpc.v1beta.cardano.TxInputR\n\ + \collateral\DC2M\n\ + \\DC1collateral_return\CAN\STX \SOH(\v2 .utxorpc.v1beta.cardano.TxOutputR\DLEcollateralReturn\DC2I\n\ + \\DLEtotal_collateral\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\SItotalCollateral\"\165\SOH\n\ + \\n\ + \Withdrawal\DC2%\n\ + \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\DC2<\n\ + \\bredeemer\CAN\ETX \SOH(\v2 .utxorpc.v1beta.cardano.RedeemerR\bredeemer\"\238\STX\n\ + \\n\ + \WitnessSet\DC2E\n\ + \\vvkeywitness\CAN\SOH \ETX(\v2#.utxorpc.v1beta.cardano.VKeyWitnessR\vvkeywitness\DC26\n\ + \\ACKscript\CAN\STX \ETX(\v2\RS.utxorpc.v1beta.cardano.ScriptR\ACKscript\DC2G\n\ + \\rplutus_datums\CAN\ETX \ETX(\v2\".utxorpc.v1beta.cardano.PlutusDataR\fplutusDatums\DC2>\n\ + \\tredeemers\CAN\EOT \ETX(\v2 .utxorpc.v1beta.cardano.RedeemerR\tredeemers\DC2X\n\ + \\DC2bootstrapWitnesses\CAN\ENQ \ETX(\v2(.utxorpc.v1beta.cardano.BootstrapWitnessR\DC2bootstrapWitnesses\"\129\SOH\n\ + \\aAuxData\DC2<\n\ + \\bmetadata\CAN\SOH \ETX(\v2 .utxorpc.v1beta.cardano.MetadataR\bmetadata\DC28\n\ + \\ascripts\CAN\STX \ETX(\v2\RS.utxorpc.v1beta.cardano.ScriptR\ascripts\"\199\ACK\n\ + \\STXTx\DC27\n\ + \\ACKinputs\CAN\SOH \ETX(\v2\US.utxorpc.v1beta.cardano.TxInputR\ACKinputs\DC2:\n\ + \\aoutputs\CAN\STX \ETX(\v2 .utxorpc.v1beta.cardano.TxOutputR\aoutputs\DC2G\n\ + \\fcertificates\CAN\ETX \ETX(\v2#.utxorpc.v1beta.cardano.CertificateR\fcertificates\DC2D\n\ + \\vwithdrawals\CAN\EOT \ETX(\v2\".utxorpc.v1beta.cardano.WithdrawalR\vwithdrawals\DC26\n\ + \\EOTmint\CAN\ENQ \ETX(\v2\".utxorpc.v1beta.cardano.MultiassetR\EOTmint\DC2J\n\ + \\DLEreference_inputs\CAN\ACK \ETX(\v2\US.utxorpc.v1beta.cardano.TxInputR\SIreferenceInputs\DC2@\n\ + \\twitnesses\CAN\a \SOH(\v2\".utxorpc.v1beta.cardano.WitnessSetR\twitnesses\DC2B\n\ + \\n\ + \collateral\CAN\b \SOH(\v2\".utxorpc.v1beta.cardano.CollateralR\n\ + \collateral\DC20\n\ + \\ETXfee\CAN\t \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ETXfee\DC2>\n\ + \\bvalidity\CAN\n\ + \ \SOH(\v2\".utxorpc.v1beta.cardano.TxValidityR\bvalidity\DC2\RS\n\ + \\n\ + \successful\CAN\v \SOH(\bR\n\ + \successful\DC2=\n\ + \\tauxiliary\CAN\f \SOH(\v2\US.utxorpc.v1beta.cardano.AuxDataR\tauxiliary\DC2\DC2\n\ + \\EOThash\CAN\r \SOH(\fR\EOThash\DC2N\n\ + \\tproposals\CAN\SO \ETX(\v20.utxorpc.v1beta.cardano.GovernanceActionProposalR\tproposals\"\252\SOH\n\ + \\CANGovernanceActionProposal\DC28\n\ + \\adeposit\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\adeposit\DC2%\n\ + \\SOreward_account\CAN\STX \SOH(\fR\rrewardAccount\DC2G\n\ + \\n\ + \gov_action\CAN\ETX \SOH(\v2(.utxorpc.v1beta.cardano.GovernanceActionR\tgovAction\DC26\n\ + \\ACKanchor\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor\"\241\ENQ\n\ + \\DLEGovernanceAction\DC2g\n\ + \\ETBparameter_change_action\CAN\SOH \SOH(\v2-.utxorpc.v1beta.cardano.ParameterChangeActionH\NULR\NAKparameterChangeAction\DC2q\n\ + \\ESChard_fork_initiation_action\CAN\STX \SOH(\v20.utxorpc.v1beta.cardano.HardForkInitiationActionH\NULR\CANhardForkInitiationAction\DC2s\n\ + \\ESCtreasury_withdrawals_action\CAN\ETX \SOH(\v21.utxorpc.v1beta.cardano.TreasuryWithdrawalsActionH\NULR\EMtreasuryWithdrawalsAction\DC2^\n\ + \\DC4no_confidence_action\CAN\EOT \SOH(\v2*.utxorpc.v1beta.cardano.NoConfidenceActionH\NULR\DC2noConfidenceAction\DC2g\n\ + \\ETBupdate_committee_action\CAN\ENQ \SOH(\v2-.utxorpc.v1beta.cardano.UpdateCommitteeActionH\NULR\NAKupdateCommitteeAction\DC2g\n\ + \\ETBnew_constitution_action\CAN\ACK \SOH(\v2-.utxorpc.v1beta.cardano.NewConstitutionActionH\NULR\NAKnewConstitutionAction\DC2E\n\ + \\vinfo_action\CAN\a \SOH(\v2\".utxorpc.v1beta.cardano.InfoActionH\NULR\n\ + \infoActionB\DC3\n\ + \\DC1governance_action\"s\n\ + \\DC2GovernanceActionId\DC2%\n\ + \\SOtransaction_id\CAN\SOH \SOH(\fR\rtransactionId\DC26\n\ + \\ETBgovernance_action_index\CAN\STX \SOH(\rR\NAKgovernanceActionIndex\"\221\SOH\n\ + \\NAKParameterChangeAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2S\n\ + \\NAKprotocol_param_update\CAN\STX \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsR\DC3protocolParamUpdate\DC2\US\n\ + \\vpolicy_hash\CAN\ETX \SOH(\fR\n\ + \policyHash\"\190\SOH\n\ + \\CANHardForkInitiationAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2R\n\ + \\DLEprotocol_version\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.ProtocolVersionR\SIprotocolVersion\"\136\SOH\n\ + \\EMTreasuryWithdrawalsAction\DC2J\n\ + \\vwithdrawals\CAN\SOH \ETX(\v2(.utxorpc.v1beta.cardano.WithdrawalAmountR\vwithdrawals\DC2\US\n\ + \\vpolicy_hash\CAN\STX \SOH(\fR\n\ + \policyHash\"m\n\ + \\DLEWithdrawalAmount\DC2%\n\ + \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\"d\n\ + \\DC2NoConfidenceAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\"\159\ETX\n\ + \\NAKUpdateCommitteeAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2i\n\ + \\FSremove_committee_credentials\CAN\STX \ETX(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SUBremoveCommitteeCredentials\DC2k\n\ + \\EMnew_committee_credentials\CAN\ETX \ETX(\v2/.utxorpc.v1beta.cardano.NewCommitteeCredentialsR\ETBnewCommitteeCredentials\DC2^\n\ + \\ETBnew_committee_threshold\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\NAKnewCommitteeThreshold\"\177\SOH\n\ + \\NAKNewConstitutionAction\DC2N\n\ + \\rgov_action_id\CAN\SOH \SOH(\v2*.utxorpc.v1beta.cardano.GovernanceActionIdR\vgovActionId\DC2H\n\ + \\fconstitution\CAN\STX \SOH(\v2$.utxorpc.v1beta.cardano.ConstitutionR\fconstitution\"\f\n\ + \\n\ + \InfoAction\"Z\n\ + \\fConstitution\DC26\n\ + \\ACKanchor\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash\"\163\SOH\n\ + \\ETBNewCommitteeCredentials\DC2c\n\ + \\EMcommittee_cold_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\ETBcommitteeColdCredential\DC2#\n\ + \\rexpires_epoch\CAN\STX \SOH(\rR\fexpiresEpoch\"M\n\ + \\vBlockHeader\DC2\DC2\n\ + \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\ + \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\"7\n\ + \\tBlockBody\DC2*\n\ + \\STXtx\CAN\SOH \ETX(\v2\SUB.utxorpc.v1beta.cardano.TxR\STXtx\"\153\SOH\n\ + \\ENQBlock\DC2;\n\ + \\ACKheader\CAN\SOH \SOH(\v2#.utxorpc.v1beta.cardano.BlockHeaderR\ACKheader\DC25\n\ + \\EOTbody\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.BlockBodyR\EOTbody\DC2\FS\n\ + \\ttimestamp\CAN\ETX \SOH(\EOTR\ttimestamp\"\131\SOH\n\ + \\DLEBootstrapWitness\DC2\DC2\n\ + \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\ + \\tsignature\CAN\STX \SOH(\fR\tsignature\DC2\GS\n\ + \\n\ + \chain_code\CAN\ETX \SOH(\fR\tchainCode\DC2\RS\n\ + \\n\ + \attributes\CAN\EOT \SOH(\fR\n\ + \attributes\"?\n\ + \\vVKeyWitness\DC2\DC2\n\ + \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\ + \\tsignature\CAN\STX \SOH(\fR\tsignature\"\134\ETX\n\ + \\fNativeScript\DC2.\n\ + \\DC2script_pubkey_hash\CAN\SOH \SOH(\fH\NULR\DLEscriptPubkeyHash\DC2I\n\ + \\n\ + \script_all\CAN\STX \SOH(\v2(.utxorpc.v1beta.cardano.NativeScriptListH\NULR\tscriptAll\DC2I\n\ + \\n\ + \script_any\CAN\ETX \SOH(\v2(.utxorpc.v1beta.cardano.NativeScriptListH\NULR\tscriptAny\DC2G\n\ + \\rscript_n_of_k\CAN\EOT \SOH(\v2\".utxorpc.v1beta.cardano.ScriptNOfKH\NULR\n\ + \scriptNOfK\DC2'\n\ + \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\ + \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\ + \\rnative_script\"N\n\ + \\DLENativeScriptList\DC2:\n\ + \\ENQitems\CAN\SOH \ETX(\v2$.utxorpc.v1beta.cardano.NativeScriptR\ENQitems\"Z\n\ + \\n\ + \ScriptNOfK\DC2\f\n\ + \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2>\n\ + \\ascripts\CAN\STX \ETX(\v2$.utxorpc.v1beta.cardano.NativeScriptR\ascripts\"\DEL\n\ + \\ACKConstr\DC2\DLE\n\ + \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\ + \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2:\n\ + \\ACKfields\CAN\ETX \ETX(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ACKfields\"c\n\ + \\ACKBigInt\DC2\DC2\n\ + \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\FS\n\ + \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\ + \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\ + \\abig_int\"\128\SOH\n\ + \\SOPlutusDataPair\DC24\n\ + \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ETXkey\DC28\n\ + \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ENQvalue\"\179\STX\n\ + \\n\ + \PlutusData\DC28\n\ + \\ACKconstr\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.ConstrH\NULR\ACKconstr\DC29\n\ + \\ETXmap\CAN\ETX \SOH(\v2%.utxorpc.v1beta.cardano.PlutusDataMapH\NULR\ETXmap\DC29\n\ + \\abig_int\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\ + \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2?\n\ + \\ENQarray\CAN\ACK \SOH(\v2'.utxorpc.v1beta.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\ + \\vplutus_data\"M\n\ + \\rPlutusDataMap\DC2<\n\ + \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1beta.cardano.PlutusDataPairR\ENQpairs\"K\n\ + \\SIPlutusDataArray\DC28\n\ + \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1beta.cardano.PlutusDataR\ENQitems\"\206\SOH\n\ + \\ACKScript\DC2>\n\ + \\ACKnative\CAN\SOH \SOH(\v2$.utxorpc.v1beta.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\ + \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\ + \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2\DC2\GS\n\ + \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\bplutusV3\DC2\GS\n\ + \\tplutus_v4\CAN\ENQ \SOH(\fH\NULR\bplutusV4B\b\n\ + \\ACKscript\"\212\SOH\n\ + \\tMetadatum\DC2\DC2\n\ + \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\ + \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\ + \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2>\n\ + \\ENQarray\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.MetadatumArrayH\NULR\ENQarray\DC28\n\ + \\ETXmap\CAN\ENQ \SOH(\v2$.utxorpc.v1beta.cardano.MetadatumMapH\NULR\ETXmapB\v\n\ + \\tmetadatum\"I\n\ + \\SOMetadatumArray\DC27\n\ + \\ENQitems\CAN\SOH \ETX(\v2!.utxorpc.v1beta.cardano.MetadatumR\ENQitems\"K\n\ + \\fMetadatumMap\DC2;\n\ + \\ENQpairs\CAN\SOH \ETX(\v2%.utxorpc.v1beta.cardano.MetadatumPairR\ENQpairs\"}\n\ + \\rMetadatumPair\DC23\n\ + \\ETXkey\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.MetadatumR\ETXkey\DC27\n\ + \\ENQvalue\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.MetadatumR\ENQvalue\"Y\n\ + \\bMetadata\DC2\DC4\n\ + \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC27\n\ + \\ENQvalue\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.MetadatumR\ENQvalue\"n\n\ + \\SIStakeCredential\DC2$\n\ + \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\ + \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\ + \scriptHashB\DC2\n\ + \\DLEstake_credential\"P\n\ + \\SORationalNumber\DC2\FS\n\ + \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\ + \\vdenominator\CAN\STX \SOH(\rR\vdenominator\"`\n\ + \\ENQRelay\DC2\DC3\n\ + \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\ + \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\ + \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\ + \\EOTport\CAN\EOT \SOH(\rR\EOTport\"4\n\ + \\fPoolMetadata\DC2\DLE\n\ + \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash\"\231\r\n\ + \\vCertificate\DC2X\n\ + \\DC2stake_registration\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2\\\n\ + \\DC4stake_deregistration\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2X\n\ + \\DLEstake_delegation\CAN\ETX \SOH(\v2+.utxorpc.v1beta.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2[\n\ + \\DC1pool_registration\CAN\EOT \SOH(\v2,.utxorpc.v1beta.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2U\n\ + \\SIpool_retirement\CAN\ENQ \SOH(\v2*.utxorpc.v1beta.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2h\n\ + \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v20.utxorpc.v1beta.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2<\n\ + \\bmir_cert\CAN\a \SOH(\v2\US.utxorpc.v1beta.cardano.MirCertH\NULR\amirCert\DC2<\n\ + \\breg_cert\CAN\b \SOH(\v2\US.utxorpc.v1beta.cardano.RegCertH\NULR\aregCert\DC2B\n\ + \\n\ + \unreg_cert\CAN\t \SOH(\v2!.utxorpc.v1beta.cardano.UnRegCertH\NULR\tunregCert\DC2O\n\ + \\SIvote_deleg_cert\CAN\n\ + \ \SOH(\v2%.utxorpc.v1beta.cardano.VoteDelegCertH\NULR\rvoteDelegCert\DC2_\n\ + \\NAKstake_vote_deleg_cert\CAN\v \SOH(\v2*.utxorpc.v1beta.cardano.StakeVoteDelegCertH\NULR\DC2stakeVoteDelegCert\DC2\\\n\ + \\DC4stake_reg_deleg_cert\CAN\f \SOH(\v2).utxorpc.v1beta.cardano.StakeRegDelegCertH\NULR\DC1stakeRegDelegCert\DC2Y\n\ + \\DC3vote_reg_deleg_cert\CAN\r \SOH(\v2(.utxorpc.v1beta.cardano.VoteRegDelegCertH\NULR\DLEvoteRegDelegCert\DC2i\n\ + \\EMstake_vote_reg_deleg_cert\CAN\SO \SOH(\v2-.utxorpc.v1beta.cardano.StakeVoteRegDelegCertH\NULR\NAKstakeVoteRegDelegCert\DC2e\n\ + \\ETBauth_committee_hot_cert\CAN\SI \SOH(\v2,.utxorpc.v1beta.cardano.AuthCommitteeHotCertH\NULR\DC4authCommitteeHotCert\DC2n\n\ + \\SUBresign_committee_cold_cert\CAN\DLE \SOH(\v2/.utxorpc.v1beta.cardano.ResignCommitteeColdCertH\NULR\ETBresignCommitteeColdCert\DC2I\n\ + \\rreg_drep_cert\CAN\DC1 \SOH(\v2#.utxorpc.v1beta.cardano.RegDRepCertH\NULR\vregDrepCert\DC2O\n\ + \\SIunreg_drep_cert\CAN\DC2 \SOH(\v2%.utxorpc.v1beta.cardano.UnRegDRepCertH\NULR\runregDrepCert\DC2R\n\ + \\DLEupdate_drep_cert\CAN\DC3 \SOH(\v2&.utxorpc.v1beta.cardano.UpdateDRepCertH\NULR\SOupdateDrepCert\DC2<\n\ + \\bredeemer\CANd \SOH(\v2 .utxorpc.v1beta.cardano.RedeemerR\bredeemerB\r\n\ + \\vcertificate\"\140\SOH\n\ + \\DC3StakeDelegationCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\"\201\ETX\n\ + \\DC4PoolRegistrationCert\DC2\SUB\n\ + \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\ + \\vvrf_keyhash\CAN\STX \SOH(\fR\n\ + \vrfKeyhash\DC26\n\ + \\ACKpledge\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ACKpledge\DC22\n\ + \\EOTcost\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcost\DC2>\n\ + \\ACKmargin\CAN\ENQ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\ACKmargin\DC2%\n\ + \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\ + \\vpool_owners\CAN\a \ETX(\fR\n\ + \poolOwners\DC25\n\ + \\ACKrelays\CAN\b \ETX(\v2\GS.utxorpc.v1beta.cardano.RelayR\ACKrelays\DC2I\n\ + \\rpool_metadata\CAN\t \SOH(\v2$.utxorpc.v1beta.cardano.PoolMetadataR\fpoolMetadata\"M\n\ + \\DC2PoolRetirementCert\DC2!\n\ + \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\ + \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch\"\146\SOH\n\ + \\CANGenesisKeyDelegationCert\DC2!\n\ + \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\ + \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\ + \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\ + \vrfKeyhash\"\158\SOH\n\ + \\tMirTarget\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2=\n\ + \\n\ + \delta_coin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\tdeltaCoin\"\144\SOH\n\ + \\aMirCert\DC25\n\ + \\EOTfrom\CAN\SOH \SOH(\SO2!.utxorpc.v1beta.cardano.MirSourceR\EOTfrom\DC21\n\ + \\STXto\CAN\STX \ETX(\v2!.utxorpc.v1beta.cardano.MirTargetR\STXto\DC2\ESC\n\ + \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot\"\145\SOH\n\ + \\aRegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\"\147\SOH\n\ + \\tUnRegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\"\154\SOH\n\ + \\EOTDRep\DC2$\n\ + \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\ + \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\ + \scriptHash\DC2\SUB\n\ + \\aabstain\CAN\ETX \SOH(\bH\NULR\aabstain\DC2%\n\ + \\rno_confidence\CAN\EOT \SOH(\bH\NULR\fnoConfidenceB\ACK\n\ + \\EOTdrep\"\149\SOH\n\ + \\rVoteDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC20\n\ + \\EOTdrep\CAN\STX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep\"\189\SOH\n\ + \\DC2StakeVoteDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\DC20\n\ + \\EOTdrep\CAN\ETX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep\"\190\SOH\n\ + \\DC1StakeRegDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\DC22\n\ + \\EOTcoin\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\"\204\SOH\n\ + \\DLEVoteRegDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC20\n\ + \\EOTdrep\CAN\STX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep\DC22\n\ + \\EOTcoin\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\"\244\SOH\n\ + \\NAKStakeVoteRegDelegCert\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\DC20\n\ + \\EOTdrep\CAN\ETX \SOH(\v2\FS.utxorpc.v1beta.cardano.DRepR\EOTdrep\DC22\n\ + \\EOTcoin\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\"\222\SOH\n\ + \\DC4AuthCommitteeHotCert\DC2c\n\ + \\EMcommittee_cold_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\ETBcommitteeColdCredential\DC2a\n\ + \\CANcommittee_hot_credential\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SYNcommitteeHotCredential\"=\n\ + \\ACKAnchor\DC2\DLE\n\ + \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2!\n\ + \\fcontent_hash\CAN\STX \SOH(\fR\vcontentHash\"\182\SOH\n\ + \\ETBResignCommitteeColdCert\DC2c\n\ + \\EMcommittee_cold_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\ETBcommitteeColdCredential\DC26\n\ + \\ACKanchor\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor\"\203\SOH\n\ + \\vRegDRepCert\DC2P\n\ + \\SIdrep_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SOdrepCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\DC26\n\ + \\ACKanchor\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor\"\149\SOH\n\ + \\rUnRegDRepCert\DC2P\n\ + \\SIdrep_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SOdrepCredential\DC22\n\ + \\EOTcoin\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\EOTcoin\"\154\SOH\n\ + \\SOUpdateDRepCert\DC2P\n\ + \\SIdrep_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SOdrepCredential\DC26\n\ + \\ACKanchor\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.AnchorR\ACKanchor\"\129\SOH\n\ + \\SOAddressPattern\DC2#\n\ + \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\ + \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\ + \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart\"J\n\ + \\fAssetPattern\DC2\ESC\n\ + \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\ + \\n\ + \asset_name\CAN\STX \SOH(\fR\tassetName\"\244\EOT\n\ + \\DC2CertificatePattern\DC2X\n\ + \\DC2stake_registration\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2\\\n\ + \\DC4stake_deregistration\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2[\n\ + \\DLEstake_delegation\CAN\ETX \SOH(\v2..utxorpc.v1beta.cardano.StakeDelegationPatternH\NULR\SIstakeDelegation\DC2^\n\ + \\DC1pool_registration\CAN\EOT \SOH(\v2/.utxorpc.v1beta.cardano.PoolRegistrationPatternH\NULR\DLEpoolRegistration\DC2X\n\ + \\SIpool_retirement\CAN\ENQ \SOH(\v2-.utxorpc.v1beta.cardano.PoolRetirementPatternH\NULR\SOpoolRetirement\DC22\n\ + \\DC4any_stake_credential\CAN\ACK \SOH(\fH\NULR\DC2anyStakeCredential\DC2*\n\ + \\DLEany_pool_keyhash\CAN\a \SOH(\fH\NULR\SOanyPoolKeyhash\DC2\ESC\n\ + \\bany_drep\CAN\b \SOH(\fH\NULR\aanyDrepB\DC2\n\ + \\DLEcertificate_type\"\143\SOH\n\ + \\SYNStakeDelegationPattern\DC2R\n\ + \\DLEstake_credential\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\"X\n\ + \\ETBPoolRegistrationPattern\DC2\SUB\n\ + \\boperator\CAN\SOH \SOH(\fR\boperator\DC2!\n\ + \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\"P\n\ + \\NAKPoolRetirementPattern\DC2!\n\ + \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\ + \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch\"\143\SOH\n\ + \\SITxOutputPattern\DC2@\n\ + \\aaddress\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.AddressPatternR\aaddress\DC2:\n\ + \\ENQasset\CAN\STX \SOH(\v2$.utxorpc.v1beta.cardano.AssetPatternR\ENQasset\"\193\ETX\n\ + \\tTxPattern\DC2C\n\ + \\bconsumes\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.TxOutputPatternR\bconsumes\DC2C\n\ + \\bproduces\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.TxOutputPatternR\bproduces\DC2G\n\ + \\vhas_address\CAN\ETX \SOH(\v2&.utxorpc.v1beta.cardano.AddressPatternR\n\ + \hasAddress\DC2E\n\ + \\vmoves_asset\CAN\EOT \SOH(\v2$.utxorpc.v1beta.cardano.AssetPatternR\n\ + \movesAsset\DC2E\n\ + \\vmints_asset\CAN\ENQ \SOH(\v2$.utxorpc.v1beta.cardano.AssetPatternR\n\ + \mintsAsset\DC2S\n\ + \\SIhas_certificate\CAN\ACK \SOH(\v2*.utxorpc.v1beta.cardano.CertificatePatternR\SOhasCertificate\"7\n\ + \\aExUnits\DC2\DC4\n\ + \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\ + \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory\"\136\SOH\n\ + \\bExPrices\DC2<\n\ + \\ENQsteps\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\ENQsteps\DC2>\n\ + \\ACKmemory\CAN\STX \SOH(\v2&.utxorpc.v1beta.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\"\140\STX\n\ + \\n\ + \CostModels\DC2>\n\ + \\tplutus_v1\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV1\DC2>\n\ + \\tplutus_v2\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV2\DC2>\n\ + \\tplutus_v3\CAN\ETX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV3\DC2>\n\ + \\tplutus_v4\CAN\EOT \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV4\"Z\n\ + \\DLEVotingThresholds\DC2F\n\ + \\n\ + \thresholds\CAN\SOH \ETX(\v2&.utxorpc.v1beta.cardano.RationalNumberR\n\ + \thresholds\"\156\DC1\n\ + \\aPParams\DC2M\n\ + \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DLEcoinsPerUtxoByte\DC2\RS\n\ + \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2N\n\ + \\DC3min_fee_coefficient\CAN\ETX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DC1minFeeCoefficient\DC2H\n\ + \\DLEmin_fee_constant\CAN\EOT \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\SOminFeeConstant\DC2-\n\ + \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\ + \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2J\n\ + \\DC1stake_key_deposit\CAN\a \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\SIstakeKeyDeposit\DC2A\n\ + \\fpool_deposit\CAN\b \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vpoolDeposit\DC2=\n\ + \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\ + \\ETBdesired_number_of_pools\CAN\n\ + \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2M\n\ + \\SOpool_influence\CAN\v \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\rpoolInfluence\DC2U\n\ + \\DC2monetary_expansion\CAN\f \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC1monetaryExpansion\DC2U\n\ + \\DC2treasury_expansion\CAN\r \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC1treasuryExpansion\DC2B\n\ + \\rmin_pool_cost\CAN\SO \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vminPoolCost\DC2R\n\ + \\DLEprotocol_version\CAN\SI \SOH(\v2'.utxorpc.v1beta.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\DC2C\n\ + \\vcost_models\CAN\DC3 \SOH(\v2\".utxorpc.v1beta.cardano.CostModelsR\n\ + \costModels\DC28\n\ + \\ACKprices\CAN\DC4 \SOH(\v2 .utxorpc.v1beta.cardano.ExPricesR\ACKprices\DC2m\n\ + \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2a\n\ + \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\DC2l\n\ + \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2^\n\ + \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2(.utxorpc.v1beta.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2^\n\ + \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2(.utxorpc.v1beta.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\DC2Z\n\ + \\EMgovernance_action_deposit\CAN\GS \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ETBgovernanceActionDeposit\DC2A\n\ + \\fdrep_deposit\CAN\RS \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vdrepDeposit\DC24\n\ + \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriod\"K\n\ + \\vEraBoundary\DC2\DC2\n\ + \\EOTtime\CAN\SOH \SOH(\EOTR\EOTtime\DC2\DC2\n\ + \\EOTslot\CAN\STX \SOH(\EOTR\EOTslot\DC2\DC4\n\ + \\ENQepoch\CAN\ETX \SOH(\EOTR\ENQepoch\"\220\SOH\n\ + \\n\ + \EraSummary\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC29\n\ + \\ENQstart\CAN\STX \SOH(\v2#.utxorpc.v1beta.cardano.EraBoundaryR\ENQstart\DC25\n\ + \\ETXend\CAN\ETX \SOH(\v2#.utxorpc.v1beta.cardano.EraBoundaryR\ETXend\DC2H\n\ + \\SIprotocol_params\CAN\EOT \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsR\SOprotocolParams\"P\n\ + \\fEraSummaries\DC2@\n\ + \\tsummaries\CAN\SOH \ETX(\v2\".utxorpc.v1beta.cardano.EraSummaryR\tsummaries\"\GS\n\ + \\tEvalError\DC2\DLE\n\ + \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\GS\n\ + \\tEvalTrace\DC2\DLE\n\ + \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\172\STX\n\ + \\ACKTxEval\DC20\n\ + \\ETXfee\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ETXfee\DC2:\n\ + \\bex_units\CAN\STX \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\aexUnits\DC29\n\ + \\ACKerrors\CAN\ETX \ETX(\v2!.utxorpc.v1beta.cardano.EvalErrorR\ACKerrors\DC29\n\ + \\ACKtraces\CAN\EOT \ETX(\v2!.utxorpc.v1beta.cardano.EvalTraceR\ACKtraces\DC2>\n\ + \\tredeemers\CAN\ENQ \ETX(\v2 .utxorpc.v1beta.cardano.RedeemerR\tredeemers\" \n\ + \\fExtraEntropy\DC2\DLE\n\ + \\ETXtag\CAN\SOH \SOH(\tR\ETXtag\"\248\EOT\n\ + \\DLEBlockVersionData\DC2%\n\ + \\SOscript_version\CAN\SOH \SOH(\rR\rscriptVersion\DC2#\n\ + \\rslot_duration\CAN\STX \SOH(\tR\fslotDuration\DC2$\n\ + \\SOmax_block_size\CAN\ETX \SOH(\tR\fmaxBlockSize\DC2&\n\ + \\SImax_header_size\CAN\EOT \SOH(\tR\rmaxHeaderSize\DC2\RS\n\ + \\vmax_tx_size\CAN\ENQ \SOH(\tR\tmaxTxSize\DC2*\n\ + \\DC1max_proposal_size\CAN\ACK \SOH(\tR\SImaxProposalSize\DC2\ETB\n\ + \\ampc_thd\CAN\a \SOH(\tR\ACKmpcThd\DC2\"\n\ + \\rheavy_del_thd\CAN\b \SOH(\tR\vheavyDelThd\DC2&\n\ + \\SIupdate_vote_thd\CAN\t \SOH(\tR\rupdateVoteThd\DC2.\n\ + \\DC3update_proposal_thd\CAN\n\ + \ \SOH(\tR\DC1updateProposalThd\DC2'\n\ + \\SIupdate_implicit\CAN\v \SOH(\tR\SOupdateImplicit\DC2I\n\ + \\rsoftfork_rule\CAN\f \SOH(\v2$.utxorpc.v1beta.cardano.SoftforkRuleR\fsoftforkRule\DC2G\n\ + \\rtx_fee_policy\CAN\r \SOH(\v2#.utxorpc.v1beta.cardano.TxFeePolicyR\vtxFeePolicy\DC2,\n\ + \\DC2unlock_stake_epoch\CAN\SO \SOH(\tR\DLEunlockStakeEpoch\"g\n\ + \\fSoftforkRule\DC2\EM\n\ + \\binit_thd\CAN\SOH \SOH(\tR\ainitThd\DC2\ETB\n\ + \\amin_thd\CAN\STX \SOH(\tR\ACKminThd\DC2#\n\ + \\rthd_decrement\CAN\ETX \SOH(\tR\fthdDecrement\"G\n\ + \\vTxFeePolicy\DC2\RS\n\ + \\n\ + \multiplier\CAN\SOH \SOH(\tR\n\ + \multiplier\DC2\CAN\n\ + \\asummand\CAN\STX \SOH(\tR\asummand\"\133\SOH\n\ + \\SOProtocolConsts\DC2\f\n\ + \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2%\n\ + \\SOprotocol_magic\CAN\STX \SOH(\rR\rprotocolMagic\DC2\RS\n\ + \\vvss_max_ttl\CAN\ETX \SOH(\rR\tvssMaxTtl\DC2\RS\n\ + \\vvss_min_ttl\CAN\EOT \SOH(\rR\tvssMinTtl\"y\n\ + \\SIHeavyDelegation\DC2\DC2\n\ + \\EOTcert\CAN\SOH \SOH(\tR\EOTcert\DC2\US\n\ + \\vdelegate_pk\CAN\STX \SOH(\tR\n\ + \delegatePk\DC2\ESC\n\ + \\tissuer_pk\CAN\ETX \SOH(\tR\bissuerPk\DC2\DC4\n\ + \\ENQomega\CAN\EOT \SOH(\rR\ENQomega\"\132\SOH\n\ + \\aVssCert\DC2!\n\ + \\fexpiry_epoch\CAN\SOH \SOH(\rR\vexpiryEpoch\DC2\FS\n\ + \\tsignature\CAN\STX \SOH(\tR\tsignature\DC2\US\n\ + \\vsigning_key\CAN\ETX \SOH(\tR\n\ + \signingKey\DC2\ETB\n\ + \\avss_key\CAN\EOT \SOH(\tR\ACKvssKey\"9\n\ + \\tGenDelegs\DC2\SUB\n\ + \\bdelegate\CAN\SOH \SOH(\tR\bdelegate\DC2\DLE\n\ + \\ETXvrf\CAN\STX \SOH(\tR\ETXvrf\"\209\ETX\n\ + \\DC4PoolVotingThresholds\DC2X\n\ + \\DC4motion_no_confidence\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2motionNoConfidence\DC2Q\n\ + \\DLEcommittee_normal\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIcommitteeNormal\DC2^\n\ + \\ETBcommittee_no_confidence\CAN\ETX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\NAKcommitteeNoConfidence\DC2X\n\ + \\DC4hard_fork_initiation\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2hardForkInitiation\DC2R\n\ + \\DC1pp_security_group\CAN\ENQ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIppSecurityGroup\"\250\ACK\n\ + \\DC4DRepVotingThresholds\DC2X\n\ + \\DC4motion_no_confidence\CAN\SOH \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2motionNoConfidence\DC2Q\n\ + \\DLEcommittee_normal\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIcommitteeNormal\DC2^\n\ + \\ETBcommittee_no_confidence\CAN\ETX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\NAKcommitteeNoConfidence\DC2\\\n\ + \\SYNupdate_to_constitution\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC4updateToConstitution\DC2X\n\ + \\DC4hard_fork_initiation\CAN\ENQ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2hardForkInitiation\DC2P\n\ + \\DLEpp_network_group\CAN\ACK \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SOppNetworkGroup\DC2R\n\ + \\DC1pp_economic_group\CAN\a \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SIppEconomicGroup\DC2T\n\ + \\DC2pp_technical_group\CAN\b \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DLEppTechnicalGroup\DC2H\n\ + \\fpp_gov_group\CAN\t \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\n\ + \ppGovGroup\DC2W\n\ + \\DC3treasury_withdrawal\CAN\n\ + \ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DC2treasuryWithdrawal\"\215\SOH\n\ + \\tCommittee\DC2H\n\ + \\amembers\CAN\SOH \ETX(\v2..utxorpc.v1beta.cardano.Committee.MembersEntryR\amembers\DC2D\n\ + \\tthreshold\CAN\STX \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\tthreshold\SUB:\n\ + \\fMembersEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH\"\142\STX\n\ + \\fCostModelMap\DC2>\n\ + \\tplutus_v1\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV1\DC2>\n\ + \\tplutus_v2\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV2\DC2>\n\ + \\tplutus_v3\CAN\ETX \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV3\DC2>\n\ + \\tplutus_v4\CAN\EOT \SOH(\v2!.utxorpc.v1beta.cardano.CostModelR\bplutusV4\"\141\SUB\n\ + \\aGenesis\DC2M\n\ + \\n\ + \avvm_distr\CAN\SOH \ETX(\v2..utxorpc.v1beta.cardano.Genesis.AvvmDistrEntryR\tavvmDistr\DC2V\n\ + \\DC2block_version_data\CAN\STX \SOH(\v2(.utxorpc.v1beta.cardano.BlockVersionDataR\DLEblockVersionData\DC2\EM\n\ + \\bfts_seed\CAN\ETX \SOH(\tR\aftsSeed\DC2O\n\ + \\SIprotocol_consts\CAN\EOT \SOH(\v2&.utxorpc.v1beta.cardano.ProtocolConstsR\SOprotocolConsts\DC2\GS\n\ + \\n\ + \start_time\CAN\ENQ \SOH(\EOTR\tstartTime\DC2b\n\ + \\DC1boot_stakeholders\CAN\ACK \ETX(\v25.utxorpc.v1beta.cardano.Genesis.BootStakeholdersEntryR\DLEbootStakeholders\DC2_\n\ + \\DLEheavy_delegation\CAN\a \ETX(\v24.utxorpc.v1beta.cardano.Genesis.HeavyDelegationEntryR\SIheavyDelegation\DC2`\n\ + \\DC1non_avvm_balances\CAN\b \ETX(\v24.utxorpc.v1beta.cardano.Genesis.NonAvvmBalancesEntryR\SInonAvvmBalances\DC2J\n\ + \\tvss_certs\CAN\t \ETX(\v2-.utxorpc.v1beta.cardano.Genesis.VssCertsEntryR\bvssCerts\DC2T\n\ + \\DC2active_slots_coeff\CAN\n\ + \ \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\DLEactiveSlotsCoeff\DC2!\n\ + \\fepoch_length\CAN\v \SOH(\rR\vepochLength\DC2M\n\ + \\n\ + \gen_delegs\CAN\f \ETX(\v2..utxorpc.v1beta.cardano.Genesis.GenDelegsEntryR\tgenDelegs\DC2V\n\ + \\rinitial_funds\CAN\r \ETX(\v21.utxorpc.v1beta.cardano.Genesis.InitialFundsEntryR\finitialFunds\DC2,\n\ + \\DC2max_kes_evolutions\CAN\SO \SOH(\rR\DLEmaxKesEvolutions\DC2N\n\ + \\DC3max_lovelace_supply\CAN\SI \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DC1maxLovelaceSupply\DC2\GS\n\ + \\n\ + \network_id\CAN\DLE \SOH(\tR\tnetworkId\DC2#\n\ + \\rnetwork_magic\CAN\DC1 \SOH(\rR\fnetworkMagic\DC2H\n\ + \\SIprotocol_params\CAN\DC2 \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsR\SOprotocolParams\DC2%\n\ + \\SOsecurity_param\CAN\DC3 \SOH(\rR\rsecurityParam\DC2\US\n\ + \\vslot_length\CAN\DC4 \SOH(\rR\n\ + \slotLength\DC2/\n\ + \\DC4slots_per_kes_period\CAN\NAK \SOH(\rR\DC1slotsPerKesPeriod\DC2!\n\ + \\fsystem_start\CAN\SYN \SOH(\tR\vsystemStart\DC2#\n\ + \\rupdate_quorum\CAN\ETB \SOH(\rR\fupdateQuorum\DC2S\n\ + \\SYNlovelace_per_utxo_word\CAN\CAN \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DC3lovelacePerUtxoWord\DC2K\n\ + \\DLEexecution_prices\CAN\EM \SOH(\v2 .utxorpc.v1beta.cardano.ExPricesR\SIexecutionPrices\DC2F\n\ + \\SImax_tx_ex_units\CAN\SUB \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\fmaxTxExUnits\DC2L\n\ + \\DC2max_block_ex_units\CAN\ESC \SOH(\v2\US.utxorpc.v1beta.cardano.ExUnitsR\SImaxBlockExUnits\DC2$\n\ + \\SOmax_value_size\CAN\FS \SOH(\rR\fmaxValueSize\DC23\n\ + \\NAKcollateral_percentage\CAN\GS \SOH(\rR\DC4collateralPercentage\DC22\n\ + \\NAKmax_collateral_inputs\CAN\RS \SOH(\rR\DC3maxCollateralInputs\DC2E\n\ + \\vcost_models\CAN\US \SOH(\v2$.utxorpc.v1beta.cardano.CostModelMapR\n\ + \costModels\DC2?\n\ + \\tcommittee\CAN \SOH(\v2!.utxorpc.v1beta.cardano.CommitteeR\tcommittee\DC2H\n\ + \\fconstitution\CAN! \SOH(\v2$.utxorpc.v1beta.cardano.ConstitutionR\fconstitution\DC2,\n\ + \\DC2committee_min_size\CAN\" \SOH(\EOTR\DLEcommitteeMinSize\DC29\n\ + \\EMcommittee_max_term_length\CAN# \SOH(\EOTR\SYNcommitteeMaxTermLength\DC2.\n\ + \\DC3gov_action_lifetime\CAN$ \SOH(\EOTR\DC1govActionLifetime\DC2L\n\ + \\DC2gov_action_deposit\CAN% \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\DLEgovActionDeposit\DC2A\n\ + \\fdrep_deposit\CAN& \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\vdrepDeposit\DC2#\n\ + \\rdrep_activity\CAN' \SOH(\EOTR\fdrepActivity\DC2l\n\ + \ min_fee_ref_script_cost_per_byte\CAN( \SOH(\v2&.utxorpc.v1beta.cardano.RationalNumberR\SUBminFeeRefScriptCostPerByte\DC2b\n\ + \\SYNdrep_voting_thresholds\CAN) \SOH(\v2,.utxorpc.v1beta.cardano.DRepVotingThresholdsR\DC4drepVotingThresholds\DC2b\n\ + \\SYNpool_voting_thresholds\CAN* \SOH(\v2,.utxorpc.v1beta.cardano.PoolVotingThresholdsR\DC4poolVotingThresholds\SUB<\n\ + \\SOAvvmDistrEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUBC\n\ + \\NAKBootStakeholdersEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\EOTR\ENQvalue:\STX8\SOH\SUBk\n\ + \\DC4HeavyDelegationEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2=\n\ + \\ENQvalue\CAN\STX \SOH(\v2'.utxorpc.v1beta.cardano.HeavyDelegationR\ENQvalue:\STX8\SOH\SUBB\n\ + \\DC4NonAvvmBalancesEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB\\\n\ + \\rVssCertsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\ + \\ENQvalue\CAN\STX \SOH(\v2\US.utxorpc.v1beta.cardano.VssCertR\ENQvalue:\STX8\SOH\SUB_\n\ + \\SOGenDelegsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC27\n\ + \\ENQvalue\CAN\STX \SOH(\v2!.utxorpc.v1beta.cardano.GenDelegsR\ENQvalue:\STX8\SOH\SUB_\n\ + \\DC1InitialFundsEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC24\n\ + \\ENQvalue\CAN\STX \SOH(\v2\RS.utxorpc.v1beta.cardano.BigIntR\ENQvalue:\STX8\SOH*\219\SOH\n\ + \\SIRedeemerPurpose\DC2 \n\ + \\FSREDEEMER_PURPOSE_UNSPECIFIED\DLE\NUL\DC2\SUB\n\ + \\SYNREDEEMER_PURPOSE_SPEND\DLE\SOH\DC2\EM\n\ + \\NAKREDEEMER_PURPOSE_MINT\DLE\STX\DC2\EM\n\ + \\NAKREDEEMER_PURPOSE_CERT\DLE\ETX\DC2\ESC\n\ + \\ETBREDEEMER_PURPOSE_REWARD\DLE\EOT\DC2\EM\n\ + \\NAKREDEEMER_PURPOSE_VOTE\DLE\ENQ\DC2\FS\n\ + \\CANREDEEMER_PURPOSE_PROPOSE\DLE\ACK*Y\n\ + \\tMirSource\DC2\SUB\n\ + \\SYNMIR_SOURCE_UNSPECIFIED\DLE\NUL\DC2\ETB\n\ + \\DC3MIR_SOURCE_RESERVES\DLE\SOH\DC2\ETB\n\ + \\DC3MIR_SOURCE_TREASURY\DLE\STXB\164\SOH\n\ + \\SUBcom.utxorpc.v1beta.cardanoB\fCardanoProtoP\SOH\162\STX\ETXUVC\170\STX\SYNUtxorpc.V1beta.Cardano\202\STX\SYNUtxorpc\\V1beta\\Cardano\226\STX\"Utxorpc\\V1beta\\Cardano\\GPBMetadata\234\STX\CANUtxorpc::V1beta::CardanoJ\171\173\STX\n\ + \\a\DC2\ENQ\NUL\NUL\185\ACK\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\STX\NUL\US\n\ + \7\n\ + \\STX\ENQ\NUL\DC2\EOT\ENQ\NUL\r\SOH\SUB+ Purpose of the redeemer in a transaction.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\ENQ\NUL\SOH\DC2\ETX\ENQ\ENQ\DC4\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\NUL\DC2\ETX\ACK\STX#\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX\ACK\STX\RS\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX\ACK!\"\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\SOH\DC2\ETX\a\STX\GS\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX\a\STX\CAN\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX\a\ESC\FS\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\STX\DC2\ETX\b\STX\FS\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX\b\STX\ETB\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX\b\SUB\ESC\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\ETX\DC2\ETX\t\STX\FS\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\t\STX\ETB\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\t\SUB\ESC\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\EOT\DC2\ETX\n\ + \\STX\RS\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX\n\ + \\STX\EM\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX\n\ + \\FS\GS\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\ENQ\DC2\ETX\v\STX\FS\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ENQ\SOH\DC2\ETX\v\STX\ETB\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ENQ\STX\DC2\ETX\v\SUB\ESC\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\ACK\DC2\ETX\f\STX\US\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ACK\SOH\DC2\ETX\f\STX\SUB\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ACK\STX\DC2\ETX\f\GS\RS\n\ + \7\n\ + \\STX\EOT\NUL\DC2\EOT\DLE\NUL\SYN\SOH\SUB+ Redeemer information for a Plutus script.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\DLE\b\DLE\n\ + \'\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\DC1\STX\RS\"\SUB Purpose of the redeemer.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\DC1\STX\DC1\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DC1\DC2\EM\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DC1\FS\GS\n\ + \8\n\ + \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC2\STX\EM\"+ Plutus data associated with the redeemer.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\DC2\STX\f\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC2\r\DC4\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC2\ETB\CAN\n\ + \%\n\ + \\EOT\EOT\NUL\STX\STX\DC2\ETX\DC3\STX\DC3\"\CAN Index of the redeemer.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\DC3\STX\b\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\DC3\t\SO\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\DC3\DC1\DC2\n\ + \8\n\ + \\EOT\EOT\NUL\STX\ETX\DC2\ETX\DC4\STX\ETB\"+ Execution units consumed by the redeemer.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX\DC4\STX\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\DC4\n\ + \\DC2\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\DC4\NAK\SYN\n\ + \:\n\ + \\EOT\EOT\NUL\STX\EOT\DC2\ETX\NAK\STX\SUB\"- Original cbor-encoded data as seen on-chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETX\NAK\STX\a\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\NAK\b\NAK\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\NAK\CAN\EM\n\ + \G\n\ + \\STX\EOT\SOH\DC2\EOT\EM\NUL\RS\SOH\SUB; Represents a transaction input in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\EM\b\SI\n\ + \0\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\SUB\STX\DC4\"# Hash of the previous transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SUB\STX\a\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SUB\b\SI\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SUB\DC2\DC3\n\ + \?\n\ + \\EOT\EOT\SOH\STX\SOH\DC2\ETX\ESC\STX\SUB\"2 Index of the output in the previous transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\ESC\STX\b\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\ESC\t\NAK\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\ESC\CAN\EM\n\ + \T\n\ + \\EOT\EOT\SOH\STX\STX\DC2\ETX\FS\STX\EM\"G Content of the input represented as output of the related transaction\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\FS\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\FS\v\DC4\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\FS\ETB\CAN\n\ + \.\n\ + \\EOT\EOT\SOH\STX\ETX\DC2\ETX\GS\STX!\"! Redeemer for the Plutus script.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\ETX\EOT\DC2\ETX\GS\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX\GS\v\DC3\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\GS\DC4\FS\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\GS\US \n\ + \H\n\ + \\STX\EOT\STX\DC2\EOT!\NUL'\SOH\SUB< Represents a transaction output in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX!\b\DLE\n\ + \,\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\"\STX\DC4\"\US Address receiving the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\"\STX\a\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\"\b\SI\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\"\DC2\DC3\n\ + \+\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX#\STX\DC2\"\RS Amount of ADA in the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX#\STX\b\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX#\t\r\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX#\DLE\DC1\n\ + \@\n\ + \\EOT\EOT\STX\STX\STX\DC2\ETX$\STX!\"3 Additional native (non-ADA) assets in the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\STX\EOT\DC2\ETX$\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\STX\ACK\DC2\ETX$\v\NAK\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX$\SYN\FS\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX$\US \n\ + \6\n\ + \\EOT\EOT\STX\STX\ETX\DC2\ETX%\STX\ESC\") Plutus data associated with the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\ETX\EOT\DC2\ETX%\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETX%\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX%\DC1\SYN\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX%\EM\SUB\n\ + \1\n\ + \\EOT\EOT\STX\STX\EOT\DC2\ETX&\STX\GS\"$ Script associated with the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\EOT\EOT\DC2\ETX&\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\EOT\ACK\DC2\ETX&\v\DC1\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETX&\DC2\CAN\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETX&\ESC\FS\n\ + \\n\ + \\n\ + \\STX\EOT\ETX\DC2\EOT)\NUL-\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX)\b\r\n\ + \2\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETX*\STX\DC1\"% Hash of this datum as seen on-chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX*\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX*\b\f\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX*\SI\DLE\n\ + \)\n\ + \\EOT\EOT\ETX\STX\SOH\DC2\ETX+\STX\"\"\FS Parsed Plutus data payload\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\EOT\DC2\ETX+\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX+\v\NAK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX+\SYN\GS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX+ !\n\ + \:\n\ + \\EOT\EOT\ETX\STX\STX\DC2\ETX,\STX#\"- Original cbor-encoded data as seen on-chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\EOT\DC2\ETX,\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX,\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX,\DC1\RS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX,!\"\n\ + \B\n\ + \\STX\EOT\EOT\DC2\EOT0\NUL3\SOH\SUB6 Represents a custom asset in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX0\b\r\n\ + \(\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX1\STX\DC1\"\ESC Name of the custom asset.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX1\STX\a\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX1\b\f\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX1\SI\DLE\n\ + \\139\SOH\n\ + \\EOT\EOT\EOT\STX\SOH\DC2\ETX2\STX\SYN\"~ Quantity of the custom asset. This can be negative only if it is in a `Tx.mint` field and the transaction is burning tokens.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX2\STX\b\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX2\t\DC1\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX2\DC4\NAK\n\ + \G\n\ + \\STX\EOT\ENQ\DC2\EOT6\NUL9\SOH\SUB; Represents a multi-asset group in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX6\b\DC2\n\ + \5\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\ETX7\STX\SYN\"( Policy ID governing the custom assets.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX7\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX7\b\DC1\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX7\DC4\NAK\n\ + \%\n\ + \\EOT\EOT\ENQ\STX\SOH\DC2\ETX8\STX\FS\"\CAN List of custom assets.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\EOT\DC2\ETX8\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX8\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX8\DC1\ETB\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX8\SUB\ESC\n\ + \@\n\ + \\STX\EOT\ACK\DC2\EOT<\NUL?\SOH\SUB4 Represents the validity interval of a transaction.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETX<\b\DC2\n\ + \.\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETX=\STX\DC3\"! Start of the validity interval.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX=\STX\b\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX=\t\SO\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX=\DC1\DC2\n\ + \@\n\ + \\EOT\EOT\ACK\STX\SOH\DC2\ETX>\STX\DC1\"3 End of the validity interval (TTL: Time to Live).\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX>\STX\b\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX>\t\f\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX>\SI\DLE\n\ + \F\n\ + \\STX\EOT\a\DC2\EOTB\NULF\SOH\SUB: Represents the collateral information for a transaction.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETXB\b\DC2\n\ + \5\n\ + \\EOT\EOT\a\STX\NUL\DC2\ETXC\STX\"\"( Collateral inputs for the transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\EOT\DC2\ETXC\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETXC\v\DC2\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXC\DC3\GS\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXC !\n\ + \;\n\ + \\EOT\EOT\a\STX\SOH\DC2\ETXD\STX!\". Collateral return in case of script failure.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETXD\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXD\v\FS\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXD\US \n\ + \*\n\ + \\EOT\EOT\a\STX\STX\DC2\ETXE\STX\RS\"\GS Total amount of collateral.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\a\STX\STX\ACK\DC2\ETXE\STX\b\n\ + \\f\n\ + \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXE\t\EM\n\ + \\f\n\ + \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXE\FS\GS\n\ + \<\n\ + \\STX\EOT\b\DC2\EOTI\NULM\SOH\SUB0 Represents a withdrawal from a reward account.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETXI\b\DC2\n\ + \-\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETXJ\STX\ESC\" Address of the reward account.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXJ\STX\a\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXJ\b\SYN\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXJ\EM\SUB\n\ + \'\n\ + \\EOT\EOT\b\STX\SOH\DC2\ETXK\STX\DC2\"\SUB Amount of ADA withdrawn.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXK\STX\b\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXK\t\r\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXK\DLE\DC1\n\ + \.\n\ + \\EOT\EOT\b\STX\STX\DC2\ETXL\STX\CAN\"! Redeemer for the Plutus script.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\b\STX\STX\ACK\DC2\ETXL\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXL\v\DC3\n\ + \\f\n\ + \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXL\SYN\ETB\n\ + \G\n\ + \\STX\EOT\t\DC2\EOTP\NULV\SOH\SUB; Represents a set of witnesses that validate a transaction\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXP\b\DC2\n\ + \&\n\ + \\EOT\EOT\t\STX\NUL\DC2\ETXQ\STX'\"\EM List of VKey witnesses.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXQ\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXQ\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXQ\ETB\"\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXQ%&\n\ + \\US\n\ + \\EOT\EOT\t\STX\SOH\DC2\ETXR\STX\GS\"\DC2 List of scripts.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\EOT\DC2\ETXR\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXR\v\DC1\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXR\DC2\CAN\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXR\ESC\FS\n\ + \L\n\ + \\EOT\EOT\t\STX\STX\DC2\ETXS\STX(\"? List of Plutus data elements associated with the transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\STX\EOT\DC2\ETXS\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\STX\ACK\DC2\ETXS\v\NAK\n\ + \\f\n\ + \\ENQ\EOT\t\STX\STX\SOH\DC2\ETXS\SYN#\n\ + \\f\n\ + \\ENQ\EOT\t\STX\STX\ETX\DC2\ETXS&'\n\ + \ \n\ + \\EOT\EOT\t\STX\ETX\DC2\ETXT\STX\"\"\DC3 List of redeemers\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\ETX\EOT\DC2\ETXT\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\ETX\ACK\DC2\ETXT\v\DC3\n\ + \\f\n\ + \\ENQ\EOT\t\STX\ETX\SOH\DC2\ETXT\DC4\GS\n\ + \\f\n\ + \\ENQ\EOT\t\STX\ETX\ETX\DC2\ETXT !\n\ + \*\n\ + \\EOT\EOT\t\STX\EOT\DC2\ETXU\STX3\"\GS List of bootstrap witnesses\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\EOT\EOT\DC2\ETXU\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\EOT\ACK\DC2\ETXU\v\ESC\n\ + \\f\n\ + \\ENQ\EOT\t\STX\EOT\SOH\DC2\ETXU\FS.\n\ + \\f\n\ + \\ENQ\EOT\t\STX\EOT\ETX\DC2\ETXU12\n\ + \H\n\ + \\STX\EOT\n\ + \\DC2\EOTY\NUL\\\SOH\SUB< Auxiliary data not directly tied to the validation process\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETXY\b\SI\n\ + \3\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETXZ\STX!\"& List of auxiliary metadata elements.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\EOT\DC2\ETXZ\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ACK\DC2\ETXZ\v\DC3\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETXZ\DC4\FS\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETXZ\US \n\ + \)\n\ + \\EOT\EOT\n\ + \\STX\SOH\DC2\ETX[\STX\RS\"\FS List of auxiliary scripts.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\EOT\DC2\ETX[\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ACK\DC2\ETX[\v\DC1\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\SOH\DC2\ETX[\DC2\EM\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ETX\DC2\ETX[\FS\GS\n\ + \A\n\ + \\STX\EOT\v\DC2\EOT_\NULn\SOH\SUB5 Represents a transaction in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\v\SOH\DC2\ETX_\b\n\ + \\n\ + \)\n\ + \\EOT\EOT\v\STX\NUL\DC2\ETX`\STX\RS\"\FS List of transaction inputs\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\EOT\DC2\ETX`\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETX`\v\DC2\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETX`\DC3\EM\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETX`\FS\GS\n\ + \*\n\ + \\EOT\EOT\v\STX\SOH\DC2\ETXa\STX \"\GS List of transaction outputs\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\EOT\DC2\ETXa\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXa\v\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXa\DC4\ESC\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXa\RS\US\n\ + \#\n\ + \\EOT\EOT\v\STX\STX\DC2\ETXb\STX(\"\SYN List of certificates\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\EOT\DC2\ETXb\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ACK\DC2\ETXb\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\SOH\DC2\ETXb\ETB#\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ETX\DC2\ETXb&'\n\ + \\"\n\ + \\EOT\EOT\v\STX\ETX\DC2\ETXc\STX&\"\NAK List of withdrawals\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\EOT\DC2\ETXc\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ACK\DC2\ETXc\v\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETXc\SYN!\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETXc$%\n\ + \+\n\ + \\EOT\EOT\v\STX\EOT\DC2\ETXd\STX\US\"\RS List of minted custom assets\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\EOT\DC2\ETXd\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\ACK\DC2\ETXd\v\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\SOH\DC2\ETXd\SYN\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\EOT\ETX\DC2\ETXd\GS\RS\n\ + \'\n\ + \\EOT\EOT\v\STX\ENQ\DC2\ETXe\STX(\"\SUB List of reference inputs\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\EOT\DC2\ETXe\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\ACK\DC2\ETXe\v\DC2\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\SOH\DC2\ETXe\DC3#\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ENQ\ETX\DC2\ETXe&'\n\ + \5\n\ + \\EOT\EOT\v\STX\ACK\DC2\ETXf\STX\ESC\"( Witnesses that validte the transaction\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\ACK\DC2\ETXf\STX\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\SOH\DC2\ETXf\r\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ACK\ETX\DC2\ETXf\EM\SUB\n\ + \?\n\ + \\EOT\EOT\v\STX\a\DC2\ETXg\STX\FS\"2 Collateral details in case of failed transaction\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\a\ACK\DC2\ETXg\STX\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\a\SOH\DC2\ETXg\r\ETB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\a\ETX\DC2\ETXg\SUB\ESC\n\ + \%\n\ + \\EOT\EOT\v\STX\b\DC2\ETXh\STX\DC1\"\CAN Transaction fee in ADA\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\b\ACK\DC2\ETXh\STX\b\n\ + \\f\n\ + \\ENQ\EOT\v\STX\b\SOH\DC2\ETXh\t\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\b\ETX\DC2\ETXh\SI\DLE\n\ + \3\n\ + \\EOT\EOT\v\STX\t\DC2\ETXi\STX\ESC\"& Validity interval of the transaction\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\t\ACK\DC2\ETXi\STX\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\t\SOH\DC2\ETXi\r\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\t\ETX\DC2\ETXi\CAN\SUB\n\ + \E\n\ + \\EOT\EOT\v\STX\n\ + \\DC2\ETXj\STX\ETB\"8 Flag indicating whether the transaction was successful\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\n\ + \\ENQ\DC2\ETXj\STX\ACK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\n\ + \\SOH\DC2\ETXj\a\DC1\n\ + \\f\n\ + \\ENQ\EOT\v\STX\n\ + \\ETX\DC2\ETXj\DC4\SYN\n\ + \I\n\ + \\EOT\EOT\v\STX\v\DC2\ETXk\STX\EM\"< Auxiliary data not directly tied to the validation process\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\v\ACK\DC2\ETXk\STX\t\n\ + \\f\n\ + \\ENQ\EOT\v\STX\v\SOH\DC2\ETXk\n\ + \\DC3\n\ + \\f\n\ + \\ENQ\EOT\v\STX\v\ETX\DC2\ETXk\SYN\CAN\n\ + \E\n\ + \\EOT\EOT\v\STX\f\DC2\ETXl\STX\DC2\"8 Hash of the transaction that serves as main identifier\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\f\ENQ\DC2\ETXl\STX\a\n\ + \\f\n\ + \\ENQ\EOT\v\STX\f\SOH\DC2\ETXl\b\f\n\ + \\f\n\ + \\ENQ\EOT\v\STX\f\ETX\DC2\ETXl\SI\DC1\n\ + \2\n\ + \\EOT\EOT\v\STX\r\DC2\ETXm\STX3\"% List of governance actions proposed\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\EOT\DC2\ETXm\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\ACK\DC2\ETXm\v#\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\SOH\DC2\ETXm$-\n\ + \\f\n\ + \\ENQ\EOT\v\STX\r\ETX\DC2\ETXm02\n\ + \1\n\ + \\STX\EOT\f\DC2\EOTq\NULv\SOH\SUB% Define a governance action proposal\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\f\SOH\DC2\ETXq\b \n\ + \=\n\ + \\EOT\EOT\f\STX\NUL\DC2\ETXr\STX\NAK\"0 The amount deposited for the governance action\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXr\STX\b\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXr\t\DLE\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXr\DC3\DC4\n\ + \C\n\ + \\EOT\EOT\f\STX\SOH\DC2\ETXs\STX\ESC\"6 The reward account the deposit should be returned to\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\ENQ\DC2\ETXs\STX\a\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\SOH\DC2\ETXs\b\SYN\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\ETX\DC2\ETXs\EM\SUB\n\ + \\v\n\ + \\EOT\EOT\f\STX\STX\DC2\ETXt\STX\"\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\ACK\DC2\ETXt\STX\DC2\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\SOH\DC2\ETXt\DC3\GS\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\ETX\DC2\ETXt !\n\ + \\v\n\ + \\EOT\EOT\f\STX\ETX\DC2\ETXu\STX\DC4\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\ACK\DC2\ETXu\STX\b\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\SOH\DC2\ETXu\t\SI\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\ETX\DC2\ETXu\DC2\DC3\n\ + \)\n\ + \\STX\EOT\r\DC2\ENQy\NUL\131\SOH\SOH\SUB\FS Define a Governance Action\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\r\SOH\DC2\ETXy\b\CAN\n\ + \\r\n\ + \\EOT\EOT\r\b\NUL\DC2\ENQz\STX\130\SOH\ETX\n\ + \\f\n\ + \\ENQ\EOT\r\b\NUL\SOH\DC2\ETXz\b\EM\n\ + \)\n\ + \\EOT\EOT\r\STX\NUL\DC2\ETX{\EOT6\"\FS Change on-chain parameters\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETX{\EOT\EM\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETX{\SUB1\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETX{45\n\ + \#\n\ + \\EOT\EOT\r\STX\SOH\DC2\ETX|\EOT=\"\SYN Initiate a Hard Fork\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ACK\DC2\ETX|\EOT\FS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETX|\GS8\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETX|;<\n\ + \)\n\ + \\EOT\EOT\r\STX\STX\DC2\ETX}\EOT>\"\FS Withdraw from the Treasury\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\STX\ACK\DC2\ETX}\EOT\GS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\STX\SOH\DC2\ETX}\RS9\n\ + \\f\n\ + \\ENQ\EOT\r\STX\STX\ETX\DC2\ETX}<=\n\ + \\SO\n\ + \\EOT\EOT\r\STX\ETX\DC2\ETX~\EOT0\"\SOH\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETX\ACK\DC2\ETX~\EOT\SYN\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETX\SOH\DC2\ETX~\ETB+\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETX\ETX\DC2\ETX~./\n\ + \0\n\ + \\EOT\EOT\r\STX\EOT\DC2\ETX\DEL\EOT6\"# Update the Constitution Committee\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EOT\ACK\DC2\ETX\DEL\EOT\EM\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EOT\SOH\DC2\ETX\DEL\SUB1\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EOT\ETX\DC2\ETX\DEL45\n\ + \(\n\ + \\EOT\EOT\r\STX\ENQ\DC2\EOT\128\SOH\EOT6\"\SUB Replace the Constitution\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ENQ\ACK\DC2\EOT\128\SOH\EOT\EM\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ENQ\SOH\DC2\EOT\128\SOH\SUB1\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ENQ\ETX\DC2\EOT\128\SOH45\n\ + \\ESC\n\ + \\EOT\EOT\r\STX\ACK\DC2\EOT\129\SOH\EOT\US\"\r Info action\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ACK\ACK\DC2\EOT\129\SOH\EOT\SO\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ACK\SOH\DC2\EOT\129\SOH\SI\SUB\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ACK\ETX\DC2\EOT\129\SOH\GS\RS\n\ + \\f\n\ + \\STX\EOT\SO\DC2\ACK\133\SOH\NUL\136\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\SO\SOH\DC2\EOT\133\SOH\b\SUB\n\ + \\f\n\ + \\EOT\EOT\SO\STX\NUL\DC2\EOT\134\SOH\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\ENQ\DC2\EOT\134\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\134\SOH\b\SYN\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\134\SOH\EM\SUB\n\ + \\f\n\ + \\EOT\EOT\SO\STX\SOH\DC2\EOT\135\SOH\STX%\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\SOH\ENQ\DC2\EOT\135\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT\SO\STX\SOH\SOH\DC2\EOT\135\SOH\t \n\ + \\r\n\ + \\ENQ\EOT\SO\STX\SOH\ETX\DC2\EOT\135\SOH#$\n\ + \\f\n\ + \\STX\EOT\SI\DC2\ACK\138\SOH\NUL\142\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\SI\SOH\DC2\EOT\138\SOH\b\GS\n\ + \\f\n\ + \\EOT\EOT\SI\STX\NUL\DC2\EOT\139\SOH\STX'\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\ACK\DC2\EOT\139\SOH\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\139\SOH\NAK\"\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\139\SOH%&\n\ + \$\n\ + \\EOT\EOT\SI\STX\SOH\DC2\EOT\140\SOH\STX$\"\SYN The updates proposed\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\ACK\DC2\EOT\140\SOH\STX\t\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\140\SOH\n\ + \\US\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\140\SOH\"#\n\ + \\f\n\ + \\EOT\EOT\SI\STX\STX\DC2\EOT\141\SOH\STX\CAN\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\ENQ\DC2\EOT\141\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\SOH\DC2\EOT\141\SOH\b\DC3\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\ETX\DC2\EOT\141\SOH\SYN\ETB\n\ + \\f\n\ + \\STX\EOT\DLE\DC2\ACK\144\SOH\NUL\147\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\DLE\SOH\DC2\EOT\144\SOH\b \n\ + \\f\n\ + \\EOT\EOT\DLE\STX\NUL\DC2\EOT\145\SOH\STX'\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\145\SOH\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\145\SOH\NAK\"\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\145\SOH%&\n\ + \/\n\ + \\EOT\EOT\DLE\STX\SOH\DC2\EOT\146\SOH\STX'\"! The protocol version to fork to\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\ACK\DC2\EOT\146\SOH\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\146\SOH\DC2\"\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\146\SOH%&\n\ + \\f\n\ + \\STX\EOT\DC1\DC2\ACK\149\SOH\NUL\152\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\DC1\SOH\DC2\EOT\149\SOH\b!\n\ + \1\n\ + \\EOT\EOT\DC1\STX\NUL\DC2\EOT\150\SOH\STX,\"# A list of the withdrawals to make\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\EOT\DC2\EOT\150\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\150\SOH\v\ESC\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\150\SOH\FS'\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\150\SOH*+\n\ + \\f\n\ + \\EOT\EOT\DC1\STX\SOH\DC2\EOT\151\SOH\STX\CAN\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\ENQ\DC2\EOT\151\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\151\SOH\b\DC3\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\151\SOH\SYN\ETB\n\ + \\f\n\ + \\STX\EOT\DC2\DC2\ACK\154\SOH\NUL\157\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\DC2\SOH\DC2\EOT\154\SOH\b\CAN\n\ + \\f\n\ + \\EOT\EOT\DC2\STX\NUL\DC2\EOT\155\SOH\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\155\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\155\SOH\b\SYN\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\155\SOH\EM\SUB\n\ + \\f\n\ + \\EOT\EOT\DC2\STX\SOH\DC2\EOT\156\SOH\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\SOH\ACK\DC2\EOT\156\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\156\SOH\t\r\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\156\SOH\DLE\DC1\n\ + \\f\n\ + \\STX\EOT\DC3\DC2\ACK\159\SOH\NUL\161\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\DC3\SOH\DC2\EOT\159\SOH\b\SUB\n\ + \\f\n\ + \\EOT\EOT\DC3\STX\NUL\DC2\EOT\160\SOH\STX'\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ACK\DC2\EOT\160\SOH\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\160\SOH\NAK\"\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\160\SOH%&\n\ + \\f\n\ + \\STX\EOT\DC4\DC2\ACK\163\SOH\NUL\168\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\DC4\SOH\DC2\EOT\163\SOH\b\GS\n\ + \\f\n\ + \\EOT\EOT\DC4\STX\NUL\DC2\EOT\164\SOH\STX'\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ACK\DC2\EOT\164\SOH\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\164\SOH\NAK\"\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\164\SOH%&\n\ + \4\n\ + \\EOT\EOT\DC4\STX\SOH\DC2\EOT\165\SOH\STX<\"& Committee members to remove (if any)\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\EOT\DC2\EOT\165\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\ACK\DC2\EOT\165\SOH\v\SUB\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\165\SOH\ESC7\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\165\SOH:;\n\ + \)\n\ + \\EOT\EOT\DC4\STX\STX\DC2\EOT\166\SOH\STXA\"\ESC The new committee members\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\STX\EOT\DC2\EOT\166\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\STX\ACK\DC2\EOT\166\SOH\v\"\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\STX\SOH\DC2\EOT\166\SOH#<\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\STX\ETX\DC2\EOT\166\SOH?@\n\ + \8\n\ + \\EOT\EOT\DC4\STX\ETX\DC2\EOT\167\SOH\STX-\"* The required threshold for the committee\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\ETX\ACK\DC2\EOT\167\SOH\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\ETX\SOH\DC2\EOT\167\SOH\DC1(\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\ETX\ETX\DC2\EOT\167\SOH+,\n\ + \\f\n\ + \\STX\EOT\NAK\DC2\ACK\170\SOH\NUL\173\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\NAK\SOH\DC2\EOT\170\SOH\b\GS\n\ + \\f\n\ + \\EOT\EOT\NAK\STX\NUL\DC2\EOT\171\SOH\STX'\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ACK\DC2\EOT\171\SOH\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\171\SOH\NAK\"\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\171\SOH%&\n\ + \)\n\ + \\EOT\EOT\NAK\STX\SOH\DC2\EOT\172\SOH\STX \"\ESC The Constitution proposed\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\ACK\DC2\EOT\172\SOH\STX\SO\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\172\SOH\SI\ESC\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\172\SOH\RS\US\n\ + \\n\ + \\n\ + \\STX\EOT\SYN\DC2\EOT\175\SOH\NUL\NAK\n\ + \\v\n\ + \\ETX\EOT\SYN\SOH\DC2\EOT\175\SOH\b\DC2\n\ + \\f\n\ + \\STX\EOT\ETB\DC2\ACK\177\SOH\NUL\180\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\ETB\SOH\DC2\EOT\177\SOH\b\DC4\n\ + \*\n\ + \\EOT\EOT\ETB\STX\NUL\DC2\EOT\178\SOH\STX\DC4\"\FS Anchor to the new document\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\NUL\ACK\DC2\EOT\178\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\NUL\SOH\DC2\EOT\178\SOH\t\SI\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\NUL\ETX\DC2\EOT\178\SOH\DC2\DC3\n\ + \$\n\ + \\EOT\EOT\ETB\STX\SOH\DC2\EOT\179\SOH\STX\DC1\"\SYN Hash of the document\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\SOH\ENQ\DC2\EOT\179\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\SOH\SOH\DC2\EOT\179\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\ETB\STX\SOH\ETX\DC2\EOT\179\SOH\SI\DLE\n\ + \\176\SOH\n\ + \\STX\EOT\CAN\DC2\ACK\184\SOH\NUL\187\SOH\SOH\SUB\161\SOH The new committee credential are passed as a map where the key is the committee cold credential hash\n\ + \ and the value is the expiration epoch for that credential\n\ + \\n\ + \\v\n\ + \\ETX\EOT\CAN\SOH\DC2\EOT\184\SOH\b\US\n\ + \\f\n\ + \\EOT\EOT\CAN\STX\NUL\DC2\EOT\185\SOH\STX0\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\NUL\ACK\DC2\EOT\185\SOH\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\NUL\SOH\DC2\EOT\185\SOH\DC2+\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\NUL\ETX\DC2\EOT\185\SOH./\n\ + \\f\n\ + \\EOT\EOT\CAN\STX\SOH\DC2\EOT\186\SOH\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\SOH\ENQ\DC2\EOT\186\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\SOH\SOH\DC2\EOT\186\SOH\t\SYN\n\ + \\r\n\ + \\ENQ\EOT\CAN\STX\SOH\ETX\DC2\EOT\186\SOH\EM\SUB\n\ + \<\n\ + \\STX\EOT\EM\DC2\ACK\190\SOH\NUL\194\SOH\SOH\SUB. Contains the header information for a block.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\EM\SOH\DC2\EOT\190\SOH\b\DC3\n\ + \\FS\n\ + \\EOT\EOT\EM\STX\NUL\DC2\EOT\191\SOH\STX\DC2\"\SO Slot number.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\NUL\ENQ\DC2\EOT\191\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\NUL\SOH\DC2\EOT\191\SOH\t\r\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\NUL\ETX\DC2\EOT\191\SOH\DLE\DC1\n\ + \\ESC\n\ + \\EOT\EOT\EM\STX\SOH\DC2\EOT\192\SOH\STX\DC1\"\r Block hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\SOH\ENQ\DC2\EOT\192\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\SOH\SOH\DC2\EOT\192\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\SOH\ETX\DC2\EOT\192\SOH\SI\DLE\n\ + \\GS\n\ + \\EOT\EOT\EM\STX\STX\DC2\EOT\193\SOH\STX\DC4\"\SI Block height.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\STX\ENQ\DC2\EOT\193\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\STX\SOH\DC2\EOT\193\SOH\t\SI\n\ + \\r\n\ + \\ENQ\EOT\EM\STX\STX\ETX\DC2\EOT\193\SOH\DC2\DC3\n\ + \:\n\ + \\STX\EOT\SUB\DC2\ACK\197\SOH\NUL\199\SOH\SOH\SUB, Contains the transaction data for a block.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SUB\SOH\DC2\EOT\197\SOH\b\DC1\n\ + \%\n\ + \\EOT\EOT\SUB\STX\NUL\DC2\EOT\198\SOH\STX\NAK\"\ETB List of transactions.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\EOT\DC2\EOT\198\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\ACK\DC2\EOT\198\SOH\v\r\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\SOH\DC2\EOT\198\SOH\SO\DLE\n\ + \\r\n\ + \\ENQ\EOT\SUB\STX\NUL\ETX\DC2\EOT\198\SOH\DC3\DC4\n\ + \G\n\ + \\STX\EOT\ESC\DC2\ACK\202\SOH\NUL\206\SOH\SOH\SUB9 Represents a complete block, including header and body.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\ESC\SOH\DC2\EOT\202\SOH\b\r\n\ + \\GS\n\ + \\EOT\EOT\ESC\STX\NUL\DC2\EOT\203\SOH\STX\EM\"\SI Block header.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\NUL\ACK\DC2\EOT\203\SOH\STX\r\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\NUL\SOH\DC2\EOT\203\SOH\SO\DC4\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\NUL\ETX\DC2\EOT\203\SOH\ETB\CAN\n\ + \\ESC\n\ + \\EOT\EOT\ESC\STX\SOH\DC2\EOT\204\SOH\STX\NAK\"\r Block body.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\SOH\ACK\DC2\EOT\204\SOH\STX\v\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\SOH\SOH\DC2\EOT\204\SOH\f\DLE\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\SOH\ETX\DC2\EOT\204\SOH\DC3\DC4\n\ + \\"\n\ + \\EOT\EOT\ESC\STX\STX\DC2\EOT\205\SOH\STX\ETB\"\DC4 Block ms timestamp\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\STX\ENQ\DC2\EOT\205\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\STX\SOH\DC2\EOT\205\SOH\t\DC2\n\ + \\r\n\ + \\ENQ\EOT\ESC\STX\STX\ETX\DC2\EOT\205\SOH\NAK\SYN\n\ + \8\n\ + \\STX\EOT\FS\DC2\ACK\209\SOH\NUL\214\SOH\SOH\SUB* Represents bootstrap keys from Byron era\n\ + \\n\ + \\v\n\ + \\ETX\EOT\FS\SOH\DC2\EOT\209\SOH\b\CAN\n\ + \!\n\ + \\EOT\EOT\FS\STX\NUL\DC2\EOT\210\SOH\STX\DC1\"\DC3 Verification key.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\NUL\ENQ\DC2\EOT\210\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\NUL\SOH\DC2\EOT\210\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\NUL\ETX\DC2\EOT\210\SOH\SI\DLE\n\ + \E\n\ + \\EOT\EOT\FS\STX\SOH\DC2\EOT\211\SOH\STX\SYN\"7 Signature generated using the associated private key.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\SOH\ENQ\DC2\EOT\211\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\SOH\SOH\DC2\EOT\211\SOH\b\DC1\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\SOH\ETX\DC2\EOT\211\SOH\DC4\NAK\n\ + \&\n\ + \\EOT\EOT\FS\STX\STX\DC2\EOT\212\SOH\STX\ETB\"\CAN 32 bytes of chain code\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\STX\ENQ\DC2\EOT\212\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\STX\SOH\DC2\EOT\212\SOH\b\DC2\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\STX\ETX\DC2\EOT\212\SOH\NAK\SYN\n\ + \\RS\n\ + \\EOT\EOT\FS\STX\ETX\DC2\EOT\213\SOH\STX\ETB\"\DLE key attributes\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\ETX\ENQ\DC2\EOT\213\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\ETX\SOH\DC2\EOT\213\SOH\b\DC2\n\ + \\r\n\ + \\ENQ\EOT\FS\STX\ETX\ETX\DC2\EOT\213\SOH\NAK\SYN\n\ + \E\n\ + \\STX\EOT\GS\DC2\ACK\217\SOH\NUL\220\SOH\SOH\SUB7 Represents a VKey witness used to sign a transaction.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\GS\SOH\DC2\EOT\217\SOH\b\DC3\n\ + \!\n\ + \\EOT\EOT\GS\STX\NUL\DC2\EOT\218\SOH\STX\DC1\"\DC3 Verification key.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\GS\STX\NUL\ENQ\DC2\EOT\218\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\GS\STX\NUL\SOH\DC2\EOT\218\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\GS\STX\NUL\ETX\DC2\EOT\218\SOH\SI\DLE\n\ + \E\n\ + \\EOT\EOT\GS\STX\SOH\DC2\EOT\219\SOH\STX\SYN\"7 Signature generated using the associated private key.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\GS\STX\SOH\ENQ\DC2\EOT\219\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\GS\STX\SOH\SOH\DC2\EOT\219\SOH\b\DC1\n\ + \\r\n\ + \\ENQ\EOT\GS\STX\SOH\ETX\DC2\EOT\219\SOH\DC4\NAK\n\ + \6\n\ + \\STX\EOT\RS\DC2\ACK\223\SOH\NUL\232\SOH\SOH\SUB( Represents a native script in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\RS\SOH\DC2\EOT\223\SOH\b\DC4\n\ + \\SO\n\ + \\EOT\EOT\RS\b\NUL\DC2\ACK\224\SOH\STX\231\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\RS\b\NUL\SOH\DC2\EOT\224\SOH\b\NAK\n\ + \4\n\ + \\EOT\EOT\RS\STX\NUL\DC2\EOT\225\SOH\EOT!\"& Script based on an address key hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\NUL\ENQ\DC2\EOT\225\SOH\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\NUL\SOH\DC2\EOT\225\SOH\n\ + \\FS\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\NUL\ETX\DC2\EOT\225\SOH\US \n\ + \H\n\ + \\EOT\EOT\RS\STX\SOH\DC2\EOT\226\SOH\EOT$\": Script that requires all nested scripts to be satisfied.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\SOH\ACK\DC2\EOT\226\SOH\EOT\DC4\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\SOH\SOH\DC2\EOT\226\SOH\NAK\US\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\SOH\ETX\DC2\EOT\226\SOH\"#\n\ + \O\n\ + \\EOT\EOT\RS\STX\STX\DC2\EOT\227\SOH\EOT$\"A Script that requires any of the nested scripts to be satisfied.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\STX\ACK\DC2\EOT\227\SOH\EOT\DC4\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\STX\SOH\DC2\EOT\227\SOH\NAK\US\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\STX\ETX\DC2\EOT\227\SOH\"#\n\ + \O\n\ + \\EOT\EOT\RS\STX\ETX\DC2\EOT\228\SOH\EOT!\"A Script that requires k out of n nested scripts to be satisfied.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\ETX\ACK\DC2\EOT\228\SOH\EOT\SO\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\ETX\SOH\DC2\EOT\228\SOH\SI\FS\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\ETX\ETX\DC2\EOT\228\SOH\US \n\ + \?\n\ + \\EOT\EOT\RS\STX\EOT\DC2\EOT\229\SOH\EOT\RS\"1 Slot number before which the script is invalid.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\EOT\ENQ\DC2\EOT\229\SOH\EOT\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\EOT\SOH\DC2\EOT\229\SOH\v\EM\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\EOT\ETX\DC2\EOT\229\SOH\FS\GS\n\ + \>\n\ + \\EOT\EOT\RS\STX\ENQ\DC2\EOT\230\SOH\EOT!\"0 Slot number after which the script is invalid.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\ENQ\ENQ\DC2\EOT\230\SOH\EOT\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\ENQ\SOH\DC2\EOT\230\SOH\v\FS\n\ + \\r\n\ + \\ENQ\EOT\RS\STX\ENQ\ETX\DC2\EOT\230\SOH\US \n\ + \4\n\ + \\STX\EOT\US\DC2\ACK\235\SOH\NUL\237\SOH\SOH\SUB& Represents a list of native scripts.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\US\SOH\DC2\EOT\235\SOH\b\CAN\n\ + \'\n\ + \\EOT\EOT\US\STX\NUL\DC2\EOT\236\SOH\STX\"\"\EM List of native scripts.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\US\STX\NUL\EOT\DC2\EOT\236\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\US\STX\NUL\ACK\DC2\EOT\236\SOH\v\ETB\n\ + \\r\n\ + \\ENQ\EOT\US\STX\NUL\SOH\DC2\EOT\236\SOH\CAN\GS\n\ + \\r\n\ + \\ENQ\EOT\US\STX\NUL\ETX\DC2\EOT\236\SOH !\n\ + \8\n\ + \\STX\EOT \DC2\ACK\240\SOH\NUL\243\SOH\SOH\SUB* Represents a \"k out of n\" native script.\n\ + \\n\ + \\v\n\ + \\ETX\EOT \SOH\DC2\EOT\240\SOH\b\DC2\n\ + \9\n\ + \\EOT\EOT \STX\NUL\DC2\EOT\241\SOH\STX\SI\"+ The number of required satisfied scripts.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT \STX\NUL\ENQ\DC2\EOT\241\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT \STX\NUL\SOH\DC2\EOT\241\SOH\t\n\ + \\n\ + \\r\n\ + \\ENQ\EOT \STX\NUL\ETX\DC2\EOT\241\SOH\r\SO\n\ + \'\n\ + \\EOT\EOT \STX\SOH\DC2\EOT\242\SOH\STX$\"\EM List of native scripts.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT \STX\SOH\EOT\DC2\EOT\242\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT \STX\SOH\ACK\DC2\EOT\242\SOH\v\ETB\n\ + \\r\n\ + \\ENQ\EOT \STX\SOH\SOH\DC2\EOT\242\SOH\CAN\US\n\ + \\r\n\ + \\ENQ\EOT \STX\SOH\ETX\DC2\EOT\242\SOH\"#\n\ + \D\n\ + \\STX\EOT!\DC2\ACK\246\SOH\NUL\250\SOH\SOH\SUB6 Represents a constructor for Plutus data in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT!\SOH\DC2\EOT\246\SOH\b\SO\n\ + \\f\n\ + \\EOT\EOT!\STX\NUL\DC2\EOT\247\SOH\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT!\STX\NUL\ENQ\DC2\EOT\247\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT!\STX\NUL\SOH\DC2\EOT\247\SOH\t\f\n\ + \\r\n\ + \\ENQ\EOT!\STX\NUL\ETX\DC2\EOT\247\SOH\SI\DLE\n\ + \\f\n\ + \\EOT\EOT!\STX\SOH\DC2\EOT\248\SOH\STX\GS\n\ + \\r\n\ + \\ENQ\EOT!\STX\SOH\ENQ\DC2\EOT\248\SOH\STX\b\n\ + \\r\n\ + \\ENQ\EOT!\STX\SOH\SOH\DC2\EOT\248\SOH\t\CAN\n\ + \\r\n\ + \\ENQ\EOT!\STX\SOH\ETX\DC2\EOT\248\SOH\ESC\FS\n\ + \\f\n\ + \\EOT\EOT!\STX\STX\DC2\EOT\249\SOH\STX!\n\ + \\r\n\ + \\ENQ\EOT!\STX\STX\EOT\DC2\EOT\249\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT!\STX\STX\ACK\DC2\EOT\249\SOH\v\NAK\n\ + \\r\n\ + \\ENQ\EOT!\STX\STX\SOH\DC2\EOT\249\SOH\SYN\FS\n\ + \\r\n\ + \\ENQ\EOT!\STX\STX\ETX\DC2\EOT\249\SOH\US \n\ + \\207\SOH\n\ + \\STX\EOT\"\DC2\ACK\255\SOH\NUL\133\STX\SOH\SUB\192\SOH Represents a big integer for Plutus data in Cardano.\n\ + \ The representation here follows CBOR specification for bignums:\n\ + \ https://www.rfc-editor.org/rfc/rfc8949.html#name-bignums section 3.4.3.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\"\SOH\DC2\EOT\255\SOH\b\SO\n\ + \\SO\n\ + \\EOT\EOT\"\b\NUL\DC2\ACK\128\STX\STX\132\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT\"\b\NUL\SOH\DC2\EOT\128\STX\b\SI\n\ + \7\n\ + \\EOT\EOT\"\STX\NUL\DC2\EOT\129\STX\EOT\DC2\") Stores value fitting within int64 range\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\"\STX\NUL\ENQ\DC2\EOT\129\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\"\STX\NUL\SOH\DC2\EOT\129\STX\n\ + \\r\n\ + \\r\n\ + \\ENQ\EOT\"\STX\NUL\ETX\DC2\EOT\129\STX\DLE\DC1\n\ + \;\n\ + \\EOT\EOT\"\STX\SOH\DC2\EOT\130\STX\EOT\CAN\"- Stores unsigned value exceeding int64 range\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\"\STX\SOH\ENQ\DC2\EOT\130\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\"\STX\SOH\SOH\DC2\EOT\130\STX\n\ + \\DC3\n\ + \\r\n\ + \\ENQ\EOT\"\STX\SOH\ETX\DC2\EOT\130\STX\SYN\ETB\n\ + \K\n\ + \\EOT\EOT\"\STX\STX\DC2\EOT\131\STX\EOT\CAN\"= Stores negative value `n` exceeding int64 range as `-1 - n`\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\"\STX\STX\ENQ\DC2\EOT\131\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT\"\STX\STX\SOH\DC2\EOT\131\STX\n\ + \\DC3\n\ + \\r\n\ + \\ENQ\EOT\"\STX\STX\ETX\DC2\EOT\131\STX\SYN\ETB\n\ + \G\n\ + \\STX\EOT#\DC2\ACK\136\STX\NUL\139\STX\SOH\SUB9 Represents a key-value pair for Plutus data in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT#\SOH\DC2\EOT\136\STX\b\SYN\n\ + \ \n\ + \\EOT\EOT#\STX\NUL\DC2\EOT\137\STX\STX\NAK\"\DC2 Key of the pair.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT#\STX\NUL\ACK\DC2\EOT\137\STX\STX\f\n\ + \\r\n\ + \\ENQ\EOT#\STX\NUL\SOH\DC2\EOT\137\STX\r\DLE\n\ + \\r\n\ + \\ENQ\EOT#\STX\NUL\ETX\DC2\EOT\137\STX\DC3\DC4\n\ + \\"\n\ + \\EOT\EOT#\STX\SOH\DC2\EOT\138\STX\STX\ETB\"\DC4 Value of the pair.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT#\STX\SOH\ACK\DC2\EOT\138\STX\STX\f\n\ + \\r\n\ + \\ENQ\EOT#\STX\SOH\SOH\DC2\EOT\138\STX\r\DC2\n\ + \\r\n\ + \\ENQ\EOT#\STX\SOH\ETX\DC2\EOT\138\STX\NAK\SYN\n\ + \9\n\ + \\STX\EOT$\DC2\ACK\142\STX\NUL\150\STX\SOH\SUB+ Represents a Plutus data item in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT$\SOH\DC2\EOT\142\STX\b\DC2\n\ + \\SO\n\ + \\EOT\EOT$\b\NUL\DC2\ACK\143\STX\STX\149\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT$\b\NUL\SOH\DC2\EOT\143\STX\b\DC3\n\ + \\FS\n\ + \\EOT\EOT$\STX\NUL\DC2\EOT\144\STX\EOT\SYN\"\SO Constructor.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\NUL\ACK\DC2\EOT\144\STX\EOT\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\NUL\SOH\DC2\EOT\144\STX\v\DC1\n\ + \\r\n\ + \\ENQ\EOT$\STX\NUL\ETX\DC2\EOT\144\STX\DC4\NAK\n\ + \#\n\ + \\EOT\EOT$\STX\SOH\DC2\EOT\145\STX\EOT\SUB\"\NAK Map of Plutus data.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\SOH\ACK\DC2\EOT\145\STX\EOT\DC1\n\ + \\r\n\ + \\ENQ\EOT$\STX\SOH\SOH\DC2\EOT\145\STX\DC2\NAK\n\ + \\r\n\ + \\ENQ\EOT$\STX\SOH\ETX\DC2\EOT\145\STX\CAN\EM\n\ + \\FS\n\ + \\EOT\EOT$\STX\STX\DC2\EOT\146\STX\EOT\ETB\"\SO Big integer.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\STX\ACK\DC2\EOT\146\STX\EOT\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\STX\SOH\DC2\EOT\146\STX\v\DC2\n\ + \\r\n\ + \\ENQ\EOT$\STX\STX\ETX\DC2\EOT\146\STX\NAK\SYN\n\ + \\RS\n\ + \\EOT\EOT$\STX\ETX\DC2\EOT\147\STX\EOT\FS\"\DLE Bounded bytes.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\ETX\ENQ\DC2\EOT\147\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT$\STX\ETX\SOH\DC2\EOT\147\STX\n\ + \\ETB\n\ + \\r\n\ + \\ENQ\EOT$\STX\ETX\ETX\DC2\EOT\147\STX\SUB\ESC\n\ + \%\n\ + \\EOT\EOT$\STX\EOT\DC2\EOT\148\STX\EOT\RS\"\ETB Array of Plutus data.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT$\STX\EOT\ACK\DC2\EOT\148\STX\EOT\DC3\n\ + \\r\n\ + \\ENQ\EOT$\STX\EOT\SOH\DC2\EOT\148\STX\DC4\EM\n\ + \\r\n\ + \\ENQ\EOT$\STX\EOT\ETX\DC2\EOT\148\STX\FS\GS\n\ + \;\n\ + \\STX\EOT%\DC2\ACK\153\STX\NUL\155\STX\SOH\SUB- Represents a map of Plutus data in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT%\SOH\DC2\EOT\153\STX\b\NAK\n\ + \(\n\ + \\EOT\EOT%\STX\NUL\DC2\EOT\154\STX\STX$\"\SUB List of key-value pairs.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\EOT\DC2\EOT\154\STX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\ACK\DC2\EOT\154\STX\v\EM\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\SOH\DC2\EOT\154\STX\SUB\US\n\ + \\r\n\ + \\ENQ\EOT%\STX\NUL\ETX\DC2\EOT\154\STX\"#\n\ + \>\n\ + \\STX\EOT&\DC2\ACK\158\STX\NUL\160\STX\SOH\SUB0 Represents an array of Plutus data in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT&\SOH\DC2\EOT\158\STX\b\ETB\n\ + \*\n\ + \\EOT\EOT&\STX\NUL\DC2\EOT\159\STX\STX \"\FS List of Plutus data items.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\EOT\DC2\EOT\159\STX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\ACK\DC2\EOT\159\STX\v\NAK\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\SOH\DC2\EOT\159\STX\SYN\ESC\n\ + \\r\n\ + \\ENQ\EOT&\STX\NUL\ETX\DC2\EOT\159\STX\RS\US\n\ + \/\n\ + \\STX\EOT'\DC2\ACK\163\STX\NUL\171\STX\SOH\SUB! Represents a script in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT'\SOH\DC2\EOT\163\STX\b\SO\n\ + \\SO\n\ + \\EOT\EOT'\b\NUL\DC2\ACK\164\STX\STX\170\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT'\b\NUL\SOH\DC2\EOT\164\STX\b\SO\n\ + \\RS\n\ + \\EOT\EOT'\STX\NUL\DC2\EOT\165\STX\EOT\FS\"\DLE Native script.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\NUL\ACK\DC2\EOT\165\STX\EOT\DLE\n\ + \\r\n\ + \\ENQ\EOT'\STX\NUL\SOH\DC2\EOT\165\STX\DC1\ETB\n\ + \\r\n\ + \\ENQ\EOT'\STX\NUL\ETX\DC2\EOT\165\STX\SUB\ESC\n\ + \!\n\ + \\EOT\EOT'\STX\SOH\DC2\EOT\166\STX\EOT\CAN\"\DC3 Plutus V1 script.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\SOH\ENQ\DC2\EOT\166\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT'\STX\SOH\SOH\DC2\EOT\166\STX\n\ + \\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\SOH\ETX\DC2\EOT\166\STX\SYN\ETB\n\ + \!\n\ + \\EOT\EOT'\STX\STX\DC2\EOT\167\STX\EOT\CAN\"\DC3 Plutus V2 script.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\STX\ENQ\DC2\EOT\167\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT'\STX\STX\SOH\DC2\EOT\167\STX\n\ + \\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\STX\ETX\DC2\EOT\167\STX\SYN\ETB\n\ + \!\n\ + \\EOT\EOT'\STX\ETX\DC2\EOT\168\STX\EOT\CAN\"\DC3 Plutus V3 script.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\ETX\ENQ\DC2\EOT\168\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT'\STX\ETX\SOH\DC2\EOT\168\STX\n\ + \\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\ETX\ETX\DC2\EOT\168\STX\SYN\ETB\n\ + \!\n\ + \\EOT\EOT'\STX\EOT\DC2\EOT\169\STX\EOT\CAN\"\DC3 Plutus V4 script.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT'\STX\EOT\ENQ\DC2\EOT\169\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT'\STX\EOT\SOH\DC2\EOT\169\STX\n\ + \\DC3\n\ + \\r\n\ + \\ENQ\EOT'\STX\EOT\ETX\DC2\EOT\169\STX\SYN\ETB\n\ + \\f\n\ + \\STX\EOT(\DC2\ACK\173\STX\NUL\181\STX\SOH\n\ + \\v\n\ + \\ETX\EOT(\SOH\DC2\EOT\173\STX\b\DC1\n\ + \\SO\n\ + \\EOT\EOT(\b\NUL\DC2\ACK\174\STX\STX\180\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT(\b\NUL\SOH\DC2\EOT\174\STX\b\DC1\n\ + \\f\n\ + \\EOT\EOT(\STX\NUL\DC2\EOT\175\STX\EOT\DC2\n\ + \\r\n\ + \\ENQ\EOT(\STX\NUL\ENQ\DC2\EOT\175\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT(\STX\NUL\SOH\DC2\EOT\175\STX\n\ + \\r\n\ + \\r\n\ + \\ENQ\EOT(\STX\NUL\ETX\DC2\EOT\175\STX\DLE\DC1\n\ + \\f\n\ + \\EOT\EOT(\STX\SOH\DC2\EOT\176\STX\EOT\DC4\n\ + \\r\n\ + \\ENQ\EOT(\STX\SOH\ENQ\DC2\EOT\176\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT(\STX\SOH\SOH\DC2\EOT\176\STX\n\ + \\SI\n\ + \\r\n\ + \\ENQ\EOT(\STX\SOH\ETX\DC2\EOT\176\STX\DC2\DC3\n\ + \\f\n\ + \\EOT\EOT(\STX\STX\DC2\EOT\177\STX\EOT\DC4\n\ + \\r\n\ + \\ENQ\EOT(\STX\STX\ENQ\DC2\EOT\177\STX\EOT\n\ + \\n\ + \\r\n\ + \\ENQ\EOT(\STX\STX\SOH\DC2\EOT\177\STX\v\SI\n\ + \\r\n\ + \\ENQ\EOT(\STX\STX\ETX\DC2\EOT\177\STX\DC2\DC3\n\ + \\f\n\ + \\EOT\EOT(\STX\ETX\DC2\EOT\178\STX\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT(\STX\ETX\ACK\DC2\EOT\178\STX\EOT\DC2\n\ + \\r\n\ + \\ENQ\EOT(\STX\ETX\SOH\DC2\EOT\178\STX\DC3\CAN\n\ + \\r\n\ + \\ENQ\EOT(\STX\ETX\ETX\DC2\EOT\178\STX\ESC\FS\n\ + \\f\n\ + \\EOT\EOT(\STX\EOT\DC2\EOT\179\STX\EOT\EM\n\ + \\r\n\ + \\ENQ\EOT(\STX\EOT\ACK\DC2\EOT\179\STX\EOT\DLE\n\ + \\r\n\ + \\ENQ\EOT(\STX\EOT\SOH\DC2\EOT\179\STX\DC1\DC4\n\ + \\r\n\ + \\ENQ\EOT(\STX\EOT\ETX\DC2\EOT\179\STX\ETB\CAN\n\ + \\f\n\ + \\STX\EOT)\DC2\ACK\183\STX\NUL\185\STX\SOH\n\ + \\v\n\ + \\ETX\EOT)\SOH\DC2\EOT\183\STX\b\SYN\n\ + \\f\n\ + \\EOT\EOT)\STX\NUL\DC2\EOT\184\STX\STX\US\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\EOT\DC2\EOT\184\STX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\ACK\DC2\EOT\184\STX\v\DC4\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\SOH\DC2\EOT\184\STX\NAK\SUB\n\ + \\r\n\ + \\ENQ\EOT)\STX\NUL\ETX\DC2\EOT\184\STX\GS\RS\n\ + \\f\n\ + \\STX\EOT*\DC2\ACK\187\STX\NUL\189\STX\SOH\n\ + \\v\n\ + \\ETX\EOT*\SOH\DC2\EOT\187\STX\b\DC4\n\ + \\f\n\ + \\EOT\EOT*\STX\NUL\DC2\EOT\188\STX\STX#\n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\EOT\DC2\EOT\188\STX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\ACK\DC2\EOT\188\STX\v\CAN\n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\SOH\DC2\EOT\188\STX\EM\RS\n\ + \\r\n\ + \\ENQ\EOT*\STX\NUL\ETX\DC2\EOT\188\STX!\"\n\ + \\f\n\ + \\STX\EOT+\DC2\ACK\191\STX\NUL\194\STX\SOH\n\ + \\v\n\ + \\ETX\EOT+\SOH\DC2\EOT\191\STX\b\NAK\n\ + \\f\n\ + \\EOT\EOT+\STX\NUL\DC2\EOT\192\STX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT+\STX\NUL\ACK\DC2\EOT\192\STX\STX\v\n\ + \\r\n\ + \\ENQ\EOT+\STX\NUL\SOH\DC2\EOT\192\STX\f\SI\n\ + \\r\n\ + \\ENQ\EOT+\STX\NUL\ETX\DC2\EOT\192\STX\DC2\DC3\n\ + \\f\n\ + \\EOT\EOT+\STX\SOH\DC2\EOT\193\STX\STX\SYN\n\ + \\r\n\ + \\ENQ\EOT+\STX\SOH\ACK\DC2\EOT\193\STX\STX\v\n\ + \\r\n\ + \\ENQ\EOT+\STX\SOH\SOH\DC2\EOT\193\STX\f\DC1\n\ + \\r\n\ + \\ENQ\EOT+\STX\SOH\ETX\DC2\EOT\193\STX\DC4\NAK\n\ + \\f\n\ + \\STX\EOT,\DC2\ACK\196\STX\NUL\199\STX\SOH\n\ + \\v\n\ + \\ETX\EOT,\SOH\DC2\EOT\196\STX\b\DLE\n\ + \\f\n\ + \\EOT\EOT,\STX\NUL\DC2\EOT\197\STX\STX\DC3\n\ + \\r\n\ + \\ENQ\EOT,\STX\NUL\ENQ\DC2\EOT\197\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT,\STX\NUL\SOH\DC2\EOT\197\STX\t\SO\n\ + \\r\n\ + \\ENQ\EOT,\STX\NUL\ETX\DC2\EOT\197\STX\DC1\DC2\n\ + \\f\n\ + \\EOT\EOT,\STX\SOH\DC2\EOT\198\STX\STX\SYN\n\ + \\r\n\ + \\ENQ\EOT,\STX\SOH\ACK\DC2\EOT\198\STX\STX\v\n\ + \\r\n\ + \\ENQ\EOT,\STX\SOH\SOH\DC2\EOT\198\STX\f\DC1\n\ + \\r\n\ + \\ENQ\EOT,\STX\SOH\ETX\DC2\EOT\198\STX\DC4\NAK\n\ + \9\n\ + \\STX\EOT-\DC2\ACK\202\STX\NUL\207\STX\SOH\SUB+ Represents a stake credential in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT-\SOH\DC2\EOT\202\STX\b\ETB\n\ + \\SO\n\ + \\EOT\EOT-\b\NUL\DC2\ACK\203\STX\STX\206\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT-\b\NUL\SOH\DC2\EOT\203\STX\b\CAN\n\ + \!\n\ + \\EOT\EOT-\STX\NUL\DC2\EOT\204\STX\EOT\FS\"\DC3 Address key hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT-\STX\NUL\ENQ\DC2\EOT\204\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT-\STX\NUL\SOH\DC2\EOT\204\STX\n\ + \\ETB\n\ + \\r\n\ + \\ENQ\EOT-\STX\NUL\ETX\DC2\EOT\204\STX\SUB\ESC\n\ + \\FS\n\ + \\EOT\EOT-\STX\SOH\DC2\EOT\205\STX\EOT\SUB\"\SO Script hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT-\STX\SOH\ENQ\DC2\EOT\205\STX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT-\STX\SOH\SOH\DC2\EOT\205\STX\n\ + \\NAK\n\ + \\r\n\ + \\ENQ\EOT-\STX\SOH\ETX\DC2\EOT\205\STX\CAN\EM\n\ + \;\n\ + \\STX\EOT.\DC2\ACK\210\STX\NUL\213\STX\SOH\SUB- Represents a rational number as a fraction.\n\ + \\n\ + \\v\n\ + \\ETX\EOT.\SOH\DC2\EOT\210\STX\b\SYN\n\ + \\f\n\ + \\EOT\EOT.\STX\NUL\DC2\EOT\211\STX\STX\SYN\n\ + \\r\n\ + \\ENQ\EOT.\STX\NUL\ENQ\DC2\EOT\211\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT.\STX\NUL\SOH\DC2\EOT\211\STX\b\DC1\n\ + \\r\n\ + \\ENQ\EOT.\STX\NUL\ETX\DC2\EOT\211\STX\DC4\NAK\n\ + \\f\n\ + \\EOT\EOT.\STX\SOH\DC2\EOT\212\STX\STX\EM\n\ + \\r\n\ + \\ENQ\EOT.\STX\SOH\ENQ\DC2\EOT\212\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT.\STX\SOH\SOH\DC2\EOT\212\STX\t\DC4\n\ + \\r\n\ + \\ENQ\EOT.\STX\SOH\ETX\DC2\EOT\212\STX\ETB\CAN\n\ + \.\n\ + \\STX\EOT/\DC2\ACK\216\STX\NUL\221\STX\SOH\SUB Represents a relay in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT/\SOH\DC2\EOT\216\STX\b\r\n\ + \\f\n\ + \\EOT\EOT/\STX\NUL\DC2\EOT\217\STX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT/\STX\NUL\ENQ\DC2\EOT\217\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT/\STX\NUL\SOH\DC2\EOT\217\STX\b\r\n\ + \\r\n\ + \\ENQ\EOT/\STX\NUL\ETX\DC2\EOT\217\STX\DLE\DC1\n\ + \\f\n\ + \\EOT\EOT/\STX\SOH\DC2\EOT\218\STX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT/\STX\SOH\ENQ\DC2\EOT\218\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT/\STX\SOH\SOH\DC2\EOT\218\STX\b\r\n\ + \\r\n\ + \\ENQ\EOT/\STX\SOH\ETX\DC2\EOT\218\STX\DLE\DC1\n\ + \\f\n\ + \\EOT\EOT/\STX\STX\DC2\EOT\219\STX\STX\SYN\n\ + \\r\n\ + \\ENQ\EOT/\STX\STX\ENQ\DC2\EOT\219\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT/\STX\STX\SOH\DC2\EOT\219\STX\t\DC1\n\ + \\r\n\ + \\ENQ\EOT/\STX\STX\ETX\DC2\EOT\219\STX\DC4\NAK\n\ + \\f\n\ + \\EOT\EOT/\STX\ETX\DC2\EOT\220\STX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT/\STX\ETX\ENQ\DC2\EOT\220\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT/\STX\ETX\SOH\DC2\EOT\220\STX\t\r\n\ + \\r\n\ + \\ENQ\EOT/\STX\ETX\ETX\DC2\EOT\220\STX\DLE\DC1\n\ + \4\n\ + \\STX\EOT0\DC2\ACK\224\STX\NUL\227\STX\SOH\SUB& Represents pool metadata in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT0\SOH\DC2\EOT\224\STX\b\DC4\n\ + \\f\n\ + \\EOT\EOT0\STX\NUL\DC2\EOT\225\STX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT0\STX\NUL\ENQ\DC2\EOT\225\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT0\STX\NUL\SOH\DC2\EOT\225\STX\t\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\NUL\ETX\DC2\EOT\225\STX\SI\DLE\n\ + \\f\n\ + \\EOT\EOT0\STX\SOH\DC2\EOT\226\STX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT0\STX\SOH\ENQ\DC2\EOT\226\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT0\STX\SOH\SOH\DC2\EOT\226\STX\b\f\n\ + \\r\n\ + \\ENQ\EOT0\STX\SOH\ETX\DC2\EOT\226\STX\SI\DLE\n\ + \4\n\ + \\STX\EOT1\DC2\ACK\230\STX\NUL\253\STX\SOH\SUB& Represents a certificate in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT1\SOH\DC2\EOT\230\STX\b\DC3\n\ + \\SO\n\ + \\EOT\EOT1\b\NUL\DC2\ACK\231\STX\STX\251\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT1\b\NUL\SOH\DC2\EOT\231\STX\b\DC3\n\ + \/\n\ + \\EOT\EOT1\STX\NUL\DC2\EOT\232\STX\EOT+\"! Stake registration certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\NUL\ACK\DC2\EOT\232\STX\EOT\DC3\n\ + \\r\n\ + \\ENQ\EOT1\STX\NUL\SOH\DC2\EOT\232\STX\DC4&\n\ + \\r\n\ + \\ENQ\EOT1\STX\NUL\ETX\DC2\EOT\232\STX)*\n\ + \1\n\ + \\EOT\EOT1\STX\SOH\DC2\EOT\233\STX\EOT-\"# Stake deregistration certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\SOH\ACK\DC2\EOT\233\STX\EOT\DC3\n\ + \\r\n\ + \\ENQ\EOT1\STX\SOH\SOH\DC2\EOT\233\STX\DC4(\n\ + \\r\n\ + \\ENQ\EOT1\STX\SOH\ETX\DC2\EOT\233\STX+,\n\ + \-\n\ + \\EOT\EOT1\STX\STX\DC2\EOT\234\STX\EOT-\"\US Stake delegation certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\STX\ACK\DC2\EOT\234\STX\EOT\ETB\n\ + \\r\n\ + \\ENQ\EOT1\STX\STX\SOH\DC2\EOT\234\STX\CAN(\n\ + \\r\n\ + \\ENQ\EOT1\STX\STX\ETX\DC2\EOT\234\STX+,\n\ + \.\n\ + \\EOT\EOT1\STX\ETX\DC2\EOT\235\STX\EOT/\" Pool registration certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\ETX\ACK\DC2\EOT\235\STX\EOT\CAN\n\ + \\r\n\ + \\ENQ\EOT1\STX\ETX\SOH\DC2\EOT\235\STX\EM*\n\ + \\r\n\ + \\ENQ\EOT1\STX\ETX\ETX\DC2\EOT\235\STX-.\n\ + \,\n\ + \\EOT\EOT1\STX\EOT\DC2\EOT\236\STX\EOT+\"\RS Pool retirement certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\EOT\ACK\DC2\EOT\236\STX\EOT\SYN\n\ + \\r\n\ + \\ENQ\EOT1\STX\EOT\SOH\DC2\EOT\236\STX\ETB&\n\ + \\r\n\ + \\ENQ\EOT1\STX\EOT\ETX\DC2\EOT\236\STX)*\n\ + \3\n\ + \\EOT\EOT1\STX\ENQ\DC2\EOT\237\STX\EOT8\"% Genesis key delegation certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\ENQ\ACK\DC2\EOT\237\STX\EOT\FS\n\ + \\r\n\ + \\ENQ\EOT1\STX\ENQ\SOH\DC2\EOT\237\STX\GS3\n\ + \\r\n\ + \\ENQ\EOT1\STX\ENQ\ETX\DC2\EOT\237\STX67\n\ + \7\n\ + \\EOT\EOT1\STX\ACK\DC2\EOT\238\STX\EOT\EM\") Move instantaneous rewards certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\ACK\ACK\DC2\EOT\238\STX\EOT\v\n\ + \\r\n\ + \\ENQ\EOT1\STX\ACK\SOH\DC2\EOT\238\STX\f\DC4\n\ + \\r\n\ + \\ENQ\EOT1\STX\ACK\ETX\DC2\EOT\238\STX\ETB\CAN\n\ + \)\n\ + \\EOT\EOT1\STX\a\DC2\EOT\239\STX\EOT\EM\"\ESC Registration certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\a\ACK\DC2\EOT\239\STX\EOT\v\n\ + \\r\n\ + \\ENQ\EOT1\STX\a\SOH\DC2\EOT\239\STX\f\DC4\n\ + \\r\n\ + \\ENQ\EOT1\STX\a\ETX\DC2\EOT\239\STX\ETB\CAN\n\ + \+\n\ + \\EOT\EOT1\STX\b\DC2\EOT\240\STX\EOT\GS\"\GS Unregistration certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\b\ACK\DC2\EOT\240\STX\EOT\r\n\ + \\r\n\ + \\ENQ\EOT1\STX\b\SOH\DC2\EOT\240\STX\SO\CAN\n\ + \\r\n\ + \\ENQ\EOT1\STX\b\ETX\DC2\EOT\240\STX\ESC\FS\n\ + \,\n\ + \\EOT\EOT1\STX\t\DC2\EOT\241\STX\EOT'\"\RS Vote delegation certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\t\ACK\DC2\EOT\241\STX\EOT\DC1\n\ + \\r\n\ + \\ENQ\EOT1\STX\t\SOH\DC2\EOT\241\STX\DC2!\n\ + \\r\n\ + \\ENQ\EOT1\STX\t\ETX\DC2\EOT\241\STX$&\n\ + \6\n\ + \\EOT\EOT1\STX\n\ + \\DC2\EOT\242\STX\EOT2\"( Stake and vote delegation certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\n\ + \\ACK\DC2\EOT\242\STX\EOT\SYN\n\ + \\r\n\ + \\ENQ\EOT1\STX\n\ + \\SOH\DC2\EOT\242\STX\ETB,\n\ + \\r\n\ + \\ENQ\EOT1\STX\n\ + \\ETX\DC2\EOT\242\STX/1\n\ + \>\n\ + \\EOT\EOT1\STX\v\DC2\EOT\243\STX\EOT0\"0 Stake registration and delegation certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\v\ACK\DC2\EOT\243\STX\EOT\NAK\n\ + \\r\n\ + \\ENQ\EOT1\STX\v\SOH\DC2\EOT\243\STX\SYN*\n\ + \\r\n\ + \\ENQ\EOT1\STX\v\ETX\DC2\EOT\243\STX-/\n\ + \=\n\ + \\EOT\EOT1\STX\f\DC2\EOT\244\STX\EOT.\"/ Vote registration and delegation certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\f\ACK\DC2\EOT\244\STX\EOT\DC4\n\ + \\r\n\ + \\ENQ\EOT1\STX\f\SOH\DC2\EOT\244\STX\NAK(\n\ + \\r\n\ + \\ENQ\EOT1\STX\f\ETX\DC2\EOT\244\STX+-\n\ + \G\n\ + \\EOT\EOT1\STX\r\DC2\EOT\245\STX\EOT9\"9 Stake and vote registration and delegation certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\r\ACK\DC2\EOT\245\STX\EOT\EM\n\ + \\r\n\ + \\ENQ\EOT1\STX\r\SOH\DC2\EOT\245\STX\SUB3\n\ + \\r\n\ + \\ENQ\EOT1\STX\r\ETX\DC2\EOT\245\STX68\n\ + \8\n\ + \\EOT\EOT1\STX\SO\DC2\EOT\246\STX\EOT6\"* Authorize committee hot key certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\SO\ACK\DC2\EOT\246\STX\EOT\CAN\n\ + \\r\n\ + \\ENQ\EOT1\STX\SO\SOH\DC2\EOT\246\STX\EM0\n\ + \\r\n\ + \\ENQ\EOT1\STX\SO\ETX\DC2\EOT\246\STX35\n\ + \6\n\ + \\EOT\EOT1\STX\SI\DC2\EOT\247\STX\EOT<\"( Resign committee cold key certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\SI\ACK\DC2\EOT\247\STX\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOT1\STX\SI\SOH\DC2\EOT\247\STX\FS6\n\ + \\r\n\ + \\ENQ\EOT1\STX\SI\ETX\DC2\EOT\247\STX9;\n\ + \*\n\ + \\EOT\EOT1\STX\DLE\DC2\EOT\248\STX\EOT#\"\FS Register DRep certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\DLE\ACK\DC2\EOT\248\STX\EOT\SI\n\ + \\r\n\ + \\ENQ\EOT1\STX\DLE\SOH\DC2\EOT\248\STX\DLE\GS\n\ + \\r\n\ + \\ENQ\EOT1\STX\DLE\ETX\DC2\EOT\248\STX \"\n\ + \,\n\ + \\EOT\EOT1\STX\DC1\DC2\EOT\249\STX\EOT'\"\RS Unregister DRep certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC1\ACK\DC2\EOT\249\STX\EOT\DC1\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC1\SOH\DC2\EOT\249\STX\DC2!\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC1\ETX\DC2\EOT\249\STX$&\n\ + \(\n\ + \\EOT\EOT1\STX\DC2\DC2\EOT\250\STX\EOT)\"\SUB Update DRep certificate.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC2\ACK\DC2\EOT\250\STX\EOT\DC2\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC2\SOH\DC2\EOT\250\STX\DC3#\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC2\ETX\DC2\EOT\250\STX&(\n\ + \/\n\ + \\EOT\EOT1\STX\DC3\DC2\EOT\252\STX\STX\SUB\"! Redeemer for the Plutus script.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC3\ACK\DC2\EOT\252\STX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC3\SOH\DC2\EOT\252\STX\v\DC3\n\ + \\r\n\ + \\ENQ\EOT1\STX\DC3\ETX\DC2\EOT\252\STX\SYN\EM\n\ + \E\n\ + \\STX\EOT2\DC2\ACK\128\ETX\NUL\131\ETX\SOH\SUB7 Represents a stake delegation certificate in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT2\SOH\DC2\EOT\128\ETX\b\ESC\n\ + \!\n\ + \\EOT\EOT2\STX\NUL\DC2\EOT\129\ETX\STX'\"\DC3 Stake credential.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT2\STX\NUL\ACK\DC2\EOT\129\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT2\STX\NUL\SOH\DC2\EOT\129\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT2\STX\NUL\ETX\DC2\EOT\129\ETX%&\n\ + \\RS\n\ + \\EOT\EOT2\STX\SOH\DC2\EOT\130\ETX\STX\EM\"\DLE Pool key hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT2\STX\SOH\ENQ\DC2\EOT\130\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT2\STX\SOH\SOH\DC2\EOT\130\ETX\b\DC4\n\ + \\r\n\ + \\ENQ\EOT2\STX\SOH\ETX\DC2\EOT\130\ETX\ETB\CAN\n\ + \F\n\ + \\STX\EOT3\DC2\ACK\134\ETX\NUL\144\ETX\SOH\SUB8 Represents a pool registration certificate in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT3\SOH\DC2\EOT\134\ETX\b\FS\n\ + \\"\n\ + \\EOT\EOT3\STX\NUL\DC2\EOT\135\ETX\STX\NAK\"\DC4 Operator key hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\NUL\ENQ\DC2\EOT\135\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT3\STX\NUL\SOH\DC2\EOT\135\ETX\b\DLE\n\ + \\r\n\ + \\ENQ\EOT3\STX\NUL\ETX\DC2\EOT\135\ETX\DC3\DC4\n\ + \\GS\n\ + \\EOT\EOT3\STX\SOH\DC2\EOT\136\ETX\STX\CAN\"\SI VRF key hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\SOH\ENQ\DC2\EOT\136\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT3\STX\SOH\SOH\DC2\EOT\136\ETX\b\DC3\n\ + \\r\n\ + \\ENQ\EOT3\STX\SOH\ETX\DC2\EOT\136\ETX\SYN\ETB\n\ + \\RS\n\ + \\EOT\EOT3\STX\STX\DC2\EOT\137\ETX\STX\DC4\"\DLE Pledge amount.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\STX\ACK\DC2\EOT\137\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT3\STX\STX\SOH\DC2\EOT\137\ETX\t\SI\n\ + \\r\n\ + \\ENQ\EOT3\STX\STX\ETX\DC2\EOT\137\ETX\DC2\DC3\n\ + \\SUB\n\ + \\EOT\EOT3\STX\ETX\DC2\EOT\138\ETX\STX\DC2\"\f Pool cost.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\ACK\DC2\EOT\138\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\SOH\DC2\EOT\138\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOT3\STX\ETX\ETX\DC2\EOT\138\ETX\DLE\DC1\n\ + \\FS\n\ + \\EOT\EOT3\STX\EOT\DC2\EOT\139\ETX\STX\FS\"\SO Pool margin.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\ACK\DC2\EOT\139\ETX\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\SOH\DC2\EOT\139\ETX\DC1\ETB\n\ + \\r\n\ + \\ENQ\EOT3\STX\EOT\ETX\DC2\EOT\139\ETX\SUB\ESC\n\ + \\US\n\ + \\EOT\EOT3\STX\ENQ\DC2\EOT\140\ETX\STX\ESC\"\DC1 Reward account.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\ENQ\ENQ\DC2\EOT\140\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT3\STX\ENQ\SOH\DC2\EOT\140\ETX\b\SYN\n\ + \\r\n\ + \\ENQ\EOT3\STX\ENQ\ETX\DC2\EOT\140\ETX\EM\SUB\n\ + \.\n\ + \\EOT\EOT3\STX\ACK\DC2\EOT\141\ETX\STX!\" List of pool owner key hashes.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\EOT\DC2\EOT\141\ETX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\ENQ\DC2\EOT\141\ETX\v\DLE\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\SOH\DC2\EOT\141\ETX\DC1\FS\n\ + \\r\n\ + \\ENQ\EOT3\STX\ACK\ETX\DC2\EOT\141\ETX\US \n\ + \\US\n\ + \\EOT\EOT3\STX\a\DC2\EOT\142\ETX\STX\FS\"\DC1 List of relays.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\a\EOT\DC2\EOT\142\ETX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\a\ACK\DC2\EOT\142\ETX\v\DLE\n\ + \\r\n\ + \\ENQ\EOT3\STX\a\SOH\DC2\EOT\142\ETX\DC1\ETB\n\ + \\r\n\ + \\ENQ\EOT3\STX\a\ETX\DC2\EOT\142\ETX\SUB\ESC\n\ + \\RS\n\ + \\EOT\EOT3\STX\b\DC2\EOT\143\ETX\STX!\"\DLE Pool metadata.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT3\STX\b\ACK\DC2\EOT\143\ETX\STX\SO\n\ + \\r\n\ + \\ENQ\EOT3\STX\b\SOH\DC2\EOT\143\ETX\SI\FS\n\ + \\r\n\ + \\ENQ\EOT3\STX\b\ETX\DC2\EOT\143\ETX\US \n\ + \D\n\ + \\STX\EOT4\DC2\ACK\147\ETX\NUL\150\ETX\SOH\SUB6 Represents a pool retirement certificate in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT4\SOH\DC2\EOT\147\ETX\b\SUB\n\ + \\RS\n\ + \\EOT\EOT4\STX\NUL\DC2\EOT\148\ETX\STX\EM\"\DLE Pool key hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT4\STX\NUL\ENQ\DC2\EOT\148\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT4\STX\NUL\SOH\DC2\EOT\148\ETX\b\DC4\n\ + \\r\n\ + \\ENQ\EOT4\STX\NUL\ETX\DC2\EOT\148\ETX\ETB\CAN\n\ + \!\n\ + \\EOT\EOT4\STX\SOH\DC2\EOT\149\ETX\STX\DC3\"\DC3 Retirement epoch.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT4\STX\SOH\ENQ\DC2\EOT\149\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT4\STX\SOH\SOH\DC2\EOT\149\ETX\t\SO\n\ + \\r\n\ + \\ENQ\EOT4\STX\SOH\ETX\DC2\EOT\149\ETX\DC1\DC2\n\ + \K\n\ + \\STX\EOT5\DC2\ACK\153\ETX\NUL\157\ETX\SOH\SUB= Represents a genesis key delegation certificate in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT5\SOH\DC2\EOT\153\ETX\b \n\ + \\GS\n\ + \\EOT\EOT5\STX\NUL\DC2\EOT\154\ETX\STX\EM\"\SI Genesis hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT5\STX\NUL\ENQ\DC2\EOT\154\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT5\STX\NUL\SOH\DC2\EOT\154\ETX\b\DC4\n\ + \\r\n\ + \\ENQ\EOT5\STX\NUL\ETX\DC2\EOT\154\ETX\ETB\CAN\n\ + \&\n\ + \\EOT\EOT5\STX\SOH\DC2\EOT\155\ETX\STX\"\"\CAN Genesis delegate hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT5\STX\SOH\ENQ\DC2\EOT\155\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT5\STX\SOH\SOH\DC2\EOT\155\ETX\b\GS\n\ + \\r\n\ + \\ENQ\EOT5\STX\SOH\ETX\DC2\EOT\155\ETX !\n\ + \\GS\n\ + \\EOT\EOT5\STX\STX\DC2\EOT\156\ETX\STX\CAN\"\SI VRF key hash.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT5\STX\STX\ENQ\DC2\EOT\156\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT5\STX\STX\SOH\DC2\EOT\156\ETX\b\DC3\n\ + \\r\n\ + \\ENQ\EOT5\STX\STX\ETX\DC2\EOT\156\ETX\SYN\ETB\n\ + \\f\n\ + \\STX\ENQ\SOH\DC2\ACK\159\ETX\NUL\163\ETX\SOH\n\ + \\v\n\ + \\ETX\ENQ\SOH\SOH\DC2\EOT\159\ETX\ENQ\SO\n\ + \\f\n\ + \\EOT\ENQ\SOH\STX\NUL\DC2\EOT\160\ETX\STX\GS\n\ + \\r\n\ + \\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\EOT\160\ETX\STX\CAN\n\ + \\r\n\ + \\ENQ\ENQ\SOH\STX\NUL\STX\DC2\EOT\160\ETX\ESC\FS\n\ + \\f\n\ + \\EOT\ENQ\SOH\STX\SOH\DC2\EOT\161\ETX\STX\SUB\n\ + \\r\n\ + \\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\EOT\161\ETX\STX\NAK\n\ + \\r\n\ + \\ENQ\ENQ\SOH\STX\SOH\STX\DC2\EOT\161\ETX\CAN\EM\n\ + \\f\n\ + \\EOT\ENQ\SOH\STX\STX\DC2\EOT\162\ETX\STX\SUB\n\ + \\r\n\ + \\ENQ\ENQ\SOH\STX\STX\SOH\DC2\EOT\162\ETX\STX\NAK\n\ + \\r\n\ + \\ENQ\ENQ\SOH\STX\STX\STX\DC2\EOT\162\ETX\CAN\EM\n\ + \\f\n\ + \\STX\EOT6\DC2\ACK\165\ETX\NUL\168\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT6\SOH\DC2\EOT\165\ETX\b\DC1\n\ + \\f\n\ + \\EOT\EOT6\STX\NUL\DC2\EOT\166\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT6\STX\NUL\ACK\DC2\EOT\166\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT6\STX\NUL\SOH\DC2\EOT\166\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT6\STX\NUL\ETX\DC2\EOT\166\ETX%&\n\ + \\f\n\ + \\EOT\EOT6\STX\SOH\DC2\EOT\167\ETX\STX\CAN\n\ + \\r\n\ + \\ENQ\EOT6\STX\SOH\ACK\DC2\EOT\167\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT6\STX\SOH\SOH\DC2\EOT\167\ETX\t\DC3\n\ + \\r\n\ + \\ENQ\EOT6\STX\SOH\ETX\DC2\EOT\167\ETX\SYN\ETB\n\ + \N\n\ + \\STX\EOT7\DC2\ACK\171\ETX\NUL\175\ETX\SOH\SUB@ Represents a move instantaneous reward certificate in Cardano.\n\ + \\n\ + \\v\n\ + \\ETX\EOT7\SOH\DC2\EOT\171\ETX\b\SI\n\ + \\f\n\ + \\EOT\EOT7\STX\NUL\DC2\EOT\172\ETX\STX\NAK\n\ + \\r\n\ + \\ENQ\EOT7\STX\NUL\ACK\DC2\EOT\172\ETX\STX\v\n\ + \\r\n\ + \\ENQ\EOT7\STX\NUL\SOH\DC2\EOT\172\ETX\f\DLE\n\ + \\r\n\ + \\ENQ\EOT7\STX\NUL\ETX\DC2\EOT\172\ETX\DC3\DC4\n\ + \\f\n\ + \\EOT\EOT7\STX\SOH\DC2\EOT\173\ETX\STX\FS\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\EOT\DC2\EOT\173\ETX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\ACK\DC2\EOT\173\ETX\v\DC4\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\SOH\DC2\EOT\173\ETX\NAK\ETB\n\ + \\r\n\ + \\ENQ\EOT7\STX\SOH\ETX\DC2\EOT\173\ETX\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT7\STX\STX\DC2\EOT\174\ETX\STX\ETB\n\ + \\r\n\ + \\ENQ\EOT7\STX\STX\ENQ\DC2\EOT\174\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT7\STX\STX\SOH\DC2\EOT\174\ETX\t\DC2\n\ + \\r\n\ + \\ENQ\EOT7\STX\STX\ETX\DC2\EOT\174\ETX\NAK\SYN\n\ + \\f\n\ + \\STX\EOT8\DC2\ACK\177\ETX\NUL\180\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT8\SOH\DC2\EOT\177\ETX\b\SI\n\ + \\f\n\ + \\EOT\EOT8\STX\NUL\DC2\EOT\178\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT8\STX\NUL\ACK\DC2\EOT\178\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT8\STX\NUL\SOH\DC2\EOT\178\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT8\STX\NUL\ETX\DC2\EOT\178\ETX%&\n\ + \\f\n\ + \\EOT\EOT8\STX\SOH\DC2\EOT\179\ETX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT8\STX\SOH\ACK\DC2\EOT\179\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT8\STX\SOH\SOH\DC2\EOT\179\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOT8\STX\SOH\ETX\DC2\EOT\179\ETX\DLE\DC1\n\ + \\f\n\ + \\STX\EOT9\DC2\ACK\182\ETX\NUL\185\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT9\SOH\DC2\EOT\182\ETX\b\DC1\n\ + \\f\n\ + \\EOT\EOT9\STX\NUL\DC2\EOT\183\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT9\STX\NUL\ACK\DC2\EOT\183\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT9\STX\NUL\SOH\DC2\EOT\183\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT9\STX\NUL\ETX\DC2\EOT\183\ETX%&\n\ + \\f\n\ + \\EOT\EOT9\STX\SOH\DC2\EOT\184\ETX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT9\STX\SOH\ACK\DC2\EOT\184\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT9\STX\SOH\SOH\DC2\EOT\184\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOT9\STX\SOH\ETX\DC2\EOT\184\ETX\DLE\DC1\n\ + \\f\n\ + \\STX\EOT:\DC2\ACK\187\ETX\NUL\194\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT:\SOH\DC2\EOT\187\ETX\b\f\n\ + \\SO\n\ + \\EOT\EOT:\b\NUL\DC2\ACK\188\ETX\STX\193\ETX\ETX\n\ + \\r\n\ + \\ENQ\EOT:\b\NUL\SOH\DC2\EOT\188\ETX\b\f\n\ + \ \n\ + \\EOT\EOT:\STX\NUL\DC2\EOT\189\ETX\EOT\FS\"\DC2 Address key hash\n\ + \\n\ + \\r\n\ + \\ENQ\EOT:\STX\NUL\ENQ\DC2\EOT\189\ETX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT:\STX\NUL\SOH\DC2\EOT\189\ETX\n\ + \\ETB\n\ + \\r\n\ + \\ENQ\EOT:\STX\NUL\ETX\DC2\EOT\189\ETX\SUB\ESC\n\ + \\ESC\n\ + \\EOT\EOT:\STX\SOH\DC2\EOT\190\ETX\EOT\SUB\"\r Script hash\n\ + \\n\ + \\r\n\ + \\ENQ\EOT:\STX\SOH\ENQ\DC2\EOT\190\ETX\EOT\t\n\ + \\r\n\ + \\ENQ\EOT:\STX\SOH\SOH\DC2\EOT\190\ETX\n\ + \\NAK\n\ + \\r\n\ + \\ENQ\EOT:\STX\SOH\ETX\DC2\EOT\190\ETX\CAN\EM\n\ + \\ETB\n\ + \\EOT\EOT:\STX\STX\DC2\EOT\191\ETX\EOT\NAK\"\t Abstain\n\ + \\n\ + \\r\n\ + \\ENQ\EOT:\STX\STX\ENQ\DC2\EOT\191\ETX\EOT\b\n\ + \\r\n\ + \\ENQ\EOT:\STX\STX\SOH\DC2\EOT\191\ETX\t\DLE\n\ + \\r\n\ + \\ENQ\EOT:\STX\STX\ETX\DC2\EOT\191\ETX\DC3\DC4\n\ + \\GS\n\ + \\EOT\EOT:\STX\ETX\DC2\EOT\192\ETX\EOT\ESC\"\SI No confidence\n\ + \\n\ + \\r\n\ + \\ENQ\EOT:\STX\ETX\ENQ\DC2\EOT\192\ETX\EOT\b\n\ + \\r\n\ + \\ENQ\EOT:\STX\ETX\SOH\DC2\EOT\192\ETX\t\SYN\n\ + \\r\n\ + \\ENQ\EOT:\STX\ETX\ETX\DC2\EOT\192\ETX\EM\SUB\n\ + \\f\n\ + \\STX\EOT;\DC2\ACK\196\ETX\NUL\199\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT;\SOH\DC2\EOT\196\ETX\b\NAK\n\ + \\f\n\ + \\EOT\EOT;\STX\NUL\DC2\EOT\197\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT;\STX\NUL\ACK\DC2\EOT\197\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT;\STX\NUL\SOH\DC2\EOT\197\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT;\STX\NUL\ETX\DC2\EOT\197\ETX%&\n\ + \\f\n\ + \\EOT\EOT;\STX\SOH\DC2\EOT\198\ETX\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT;\STX\SOH\ACK\DC2\EOT\198\ETX\STX\ACK\n\ + \\r\n\ + \\ENQ\EOT;\STX\SOH\SOH\DC2\EOT\198\ETX\a\v\n\ + \\r\n\ + \\ENQ\EOT;\STX\SOH\ETX\DC2\EOT\198\ETX\SO\SI\n\ + \\f\n\ + \\STX\EOT<\DC2\ACK\201\ETX\NUL\205\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT<\SOH\DC2\EOT\201\ETX\b\SUB\n\ + \\f\n\ + \\EOT\EOT<\STX\NUL\DC2\EOT\202\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT<\STX\NUL\ACK\DC2\EOT\202\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT<\STX\NUL\SOH\DC2\EOT\202\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT<\STX\NUL\ETX\DC2\EOT\202\ETX%&\n\ + \\f\n\ + \\EOT\EOT<\STX\SOH\DC2\EOT\203\ETX\STX\EM\n\ + \\r\n\ + \\ENQ\EOT<\STX\SOH\ENQ\DC2\EOT\203\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT<\STX\SOH\SOH\DC2\EOT\203\ETX\b\DC4\n\ + \\r\n\ + \\ENQ\EOT<\STX\SOH\ETX\DC2\EOT\203\ETX\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT<\STX\STX\DC2\EOT\204\ETX\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT<\STX\STX\ACK\DC2\EOT\204\ETX\STX\ACK\n\ + \\r\n\ + \\ENQ\EOT<\STX\STX\SOH\DC2\EOT\204\ETX\a\v\n\ + \\r\n\ + \\ENQ\EOT<\STX\STX\ETX\DC2\EOT\204\ETX\SO\SI\n\ + \\f\n\ + \\STX\EOT=\DC2\ACK\207\ETX\NUL\211\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT=\SOH\DC2\EOT\207\ETX\b\EM\n\ + \\f\n\ + \\EOT\EOT=\STX\NUL\DC2\EOT\208\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT=\STX\NUL\ACK\DC2\EOT\208\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT=\STX\NUL\SOH\DC2\EOT\208\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT=\STX\NUL\ETX\DC2\EOT\208\ETX%&\n\ + \\f\n\ + \\EOT\EOT=\STX\SOH\DC2\EOT\209\ETX\STX\EM\n\ + \\r\n\ + \\ENQ\EOT=\STX\SOH\ENQ\DC2\EOT\209\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT=\STX\SOH\SOH\DC2\EOT\209\ETX\b\DC4\n\ + \\r\n\ + \\ENQ\EOT=\STX\SOH\ETX\DC2\EOT\209\ETX\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT=\STX\STX\DC2\EOT\210\ETX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT=\STX\STX\ACK\DC2\EOT\210\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT=\STX\STX\SOH\DC2\EOT\210\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOT=\STX\STX\ETX\DC2\EOT\210\ETX\DLE\DC1\n\ + \\f\n\ + \\STX\EOT>\DC2\ACK\213\ETX\NUL\217\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT>\SOH\DC2\EOT\213\ETX\b\CAN\n\ + \\f\n\ + \\EOT\EOT>\STX\NUL\DC2\EOT\214\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT>\STX\NUL\ACK\DC2\EOT\214\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT>\STX\NUL\SOH\DC2\EOT\214\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT>\STX\NUL\ETX\DC2\EOT\214\ETX%&\n\ + \\f\n\ + \\EOT\EOT>\STX\SOH\DC2\EOT\215\ETX\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT>\STX\SOH\ACK\DC2\EOT\215\ETX\STX\ACK\n\ + \\r\n\ + \\ENQ\EOT>\STX\SOH\SOH\DC2\EOT\215\ETX\a\v\n\ + \\r\n\ + \\ENQ\EOT>\STX\SOH\ETX\DC2\EOT\215\ETX\SO\SI\n\ + \\f\n\ + \\EOT\EOT>\STX\STX\DC2\EOT\216\ETX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT>\STX\STX\ACK\DC2\EOT\216\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT>\STX\STX\SOH\DC2\EOT\216\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOT>\STX\STX\ETX\DC2\EOT\216\ETX\DLE\DC1\n\ + \\f\n\ + \\STX\EOT?\DC2\ACK\219\ETX\NUL\224\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT?\SOH\DC2\EOT\219\ETX\b\GS\n\ + \\f\n\ + \\EOT\EOT?\STX\NUL\DC2\EOT\220\ETX\STX'\n\ + \\r\n\ + \\ENQ\EOT?\STX\NUL\ACK\DC2\EOT\220\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT?\STX\NUL\SOH\DC2\EOT\220\ETX\DC2\"\n\ + \\r\n\ + \\ENQ\EOT?\STX\NUL\ETX\DC2\EOT\220\ETX%&\n\ + \\f\n\ + \\EOT\EOT?\STX\SOH\DC2\EOT\221\ETX\STX\EM\n\ + \\r\n\ + \\ENQ\EOT?\STX\SOH\ENQ\DC2\EOT\221\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOT?\STX\SOH\SOH\DC2\EOT\221\ETX\b\DC4\n\ + \\r\n\ + \\ENQ\EOT?\STX\SOH\ETX\DC2\EOT\221\ETX\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT?\STX\STX\DC2\EOT\222\ETX\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT?\STX\STX\ACK\DC2\EOT\222\ETX\STX\ACK\n\ + \\r\n\ + \\ENQ\EOT?\STX\STX\SOH\DC2\EOT\222\ETX\a\v\n\ + \\r\n\ + \\ENQ\EOT?\STX\STX\ETX\DC2\EOT\222\ETX\SO\SI\n\ + \\f\n\ + \\EOT\EOT?\STX\ETX\DC2\EOT\223\ETX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT?\STX\ETX\ACK\DC2\EOT\223\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOT?\STX\ETX\SOH\DC2\EOT\223\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOT?\STX\ETX\ETX\DC2\EOT\223\ETX\DLE\DC1\n\ + \\f\n\ + \\STX\EOT@\DC2\ACK\226\ETX\NUL\229\ETX\SOH\n\ + \\v\n\ + \\ETX\EOT@\SOH\DC2\EOT\226\ETX\b\FS\n\ + \\f\n\ + \\EOT\EOT@\STX\NUL\DC2\EOT\227\ETX\STX0\n\ + \\r\n\ + \\ENQ\EOT@\STX\NUL\ACK\DC2\EOT\227\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT@\STX\NUL\SOH\DC2\EOT\227\ETX\DC2+\n\ + \\r\n\ + \\ENQ\EOT@\STX\NUL\ETX\DC2\EOT\227\ETX./\n\ + \\f\n\ + \\EOT\EOT@\STX\SOH\DC2\EOT\228\ETX\STX/\n\ + \\r\n\ + \\ENQ\EOT@\STX\SOH\ACK\DC2\EOT\228\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT@\STX\SOH\SOH\DC2\EOT\228\ETX\DC2*\n\ + \\r\n\ + \\ENQ\EOT@\STX\SOH\ETX\DC2\EOT\228\ETX-.\n\ + \\f\n\ + \\STX\EOTA\DC2\ACK\231\ETX\NUL\234\ETX\SOH\n\ + \\v\n\ + \\ETX\EOTA\SOH\DC2\EOT\231\ETX\b\SO\n\ + \\f\n\ + \\EOT\EOTA\STX\NUL\DC2\EOT\232\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTA\STX\NUL\ENQ\DC2\EOT\232\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOTA\STX\NUL\SOH\DC2\EOT\232\ETX\t\f\n\ + \\r\n\ + \\ENQ\EOTA\STX\NUL\ETX\DC2\EOT\232\ETX\SI\DLE\n\ + \\f\n\ + \\EOT\EOTA\STX\SOH\DC2\EOT\233\ETX\STX\EM\n\ + \\r\n\ + \\ENQ\EOTA\STX\SOH\ENQ\DC2\EOT\233\ETX\STX\a\n\ + \\r\n\ + \\ENQ\EOTA\STX\SOH\SOH\DC2\EOT\233\ETX\b\DC4\n\ + \\r\n\ + \\ENQ\EOTA\STX\SOH\ETX\DC2\EOT\233\ETX\ETB\CAN\n\ + \\f\n\ + \\STX\EOTB\DC2\ACK\236\ETX\NUL\239\ETX\SOH\n\ + \\v\n\ + \\ETX\EOTB\SOH\DC2\EOT\236\ETX\b\US\n\ + \\f\n\ + \\EOT\EOTB\STX\NUL\DC2\EOT\237\ETX\STX0\n\ + \\r\n\ + \\ENQ\EOTB\STX\NUL\ACK\DC2\EOT\237\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTB\STX\NUL\SOH\DC2\EOT\237\ETX\DC2+\n\ + \\r\n\ + \\ENQ\EOTB\STX\NUL\ETX\DC2\EOT\237\ETX./\n\ + \\f\n\ + \\EOT\EOTB\STX\SOH\DC2\EOT\238\ETX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOTB\STX\SOH\ACK\DC2\EOT\238\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOTB\STX\SOH\SOH\DC2\EOT\238\ETX\t\SI\n\ + \\r\n\ + \\ENQ\EOTB\STX\SOH\ETX\DC2\EOT\238\ETX\DC2\DC3\n\ + \\f\n\ + \\STX\EOTC\DC2\ACK\241\ETX\NUL\245\ETX\SOH\n\ + \\v\n\ + \\ETX\EOTC\SOH\DC2\EOT\241\ETX\b\DC3\n\ + \\f\n\ + \\EOT\EOTC\STX\NUL\DC2\EOT\242\ETX\STX&\n\ + \\r\n\ + \\ENQ\EOTC\STX\NUL\ACK\DC2\EOT\242\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTC\STX\NUL\SOH\DC2\EOT\242\ETX\DC2!\n\ + \\r\n\ + \\ENQ\EOTC\STX\NUL\ETX\DC2\EOT\242\ETX$%\n\ + \\f\n\ + \\EOT\EOTC\STX\SOH\DC2\EOT\243\ETX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOTC\STX\SOH\ACK\DC2\EOT\243\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOTC\STX\SOH\SOH\DC2\EOT\243\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOTC\STX\SOH\ETX\DC2\EOT\243\ETX\DLE\DC1\n\ + \\f\n\ + \\EOT\EOTC\STX\STX\DC2\EOT\244\ETX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOTC\STX\STX\ACK\DC2\EOT\244\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOTC\STX\STX\SOH\DC2\EOT\244\ETX\t\SI\n\ + \\r\n\ + \\ENQ\EOTC\STX\STX\ETX\DC2\EOT\244\ETX\DC2\DC3\n\ + \\f\n\ + \\STX\EOTD\DC2\ACK\247\ETX\NUL\250\ETX\SOH\n\ + \\v\n\ + \\ETX\EOTD\SOH\DC2\EOT\247\ETX\b\NAK\n\ + \\f\n\ + \\EOT\EOTD\STX\NUL\DC2\EOT\248\ETX\STX&\n\ + \\r\n\ + \\ENQ\EOTD\STX\NUL\ACK\DC2\EOT\248\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTD\STX\NUL\SOH\DC2\EOT\248\ETX\DC2!\n\ + \\r\n\ + \\ENQ\EOTD\STX\NUL\ETX\DC2\EOT\248\ETX$%\n\ + \\f\n\ + \\EOT\EOTD\STX\SOH\DC2\EOT\249\ETX\STX\DC2\n\ + \\r\n\ + \\ENQ\EOTD\STX\SOH\ACK\DC2\EOT\249\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOTD\STX\SOH\SOH\DC2\EOT\249\ETX\t\r\n\ + \\r\n\ + \\ENQ\EOTD\STX\SOH\ETX\DC2\EOT\249\ETX\DLE\DC1\n\ + \\f\n\ + \\STX\EOTE\DC2\ACK\252\ETX\NUL\255\ETX\SOH\n\ + \\v\n\ + \\ETX\EOTE\SOH\DC2\EOT\252\ETX\b\SYN\n\ + \\f\n\ + \\EOT\EOTE\STX\NUL\DC2\EOT\253\ETX\STX&\n\ + \\r\n\ + \\ENQ\EOTE\STX\NUL\ACK\DC2\EOT\253\ETX\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTE\STX\NUL\SOH\DC2\EOT\253\ETX\DC2!\n\ + \\r\n\ + \\ENQ\EOTE\STX\NUL\ETX\DC2\EOT\253\ETX$%\n\ + \\f\n\ + \\EOT\EOTE\STX\SOH\DC2\EOT\254\ETX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\ACK\DC2\EOT\254\ETX\STX\b\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\SOH\DC2\EOT\254\ETX\t\SI\n\ + \\r\n\ + \\ENQ\EOTE\STX\SOH\ETX\DC2\EOT\254\ETX\DC2\DC3\n\ + \}\n\ + \\STX\EOTF\DC2\ACK\133\EOT\NUL\137\EOT\SOH\SUBI Pattern of an address that can be used to evaluate matching predicates.\n\ + \2$ PATTERN MATCHING\n\ + \ ================\n\ + \\n\ + \\v\n\ + \\ETX\EOTF\SOH\DC2\EOT\133\EOT\b\SYN\n\ + \B\n\ + \\EOT\EOTF\STX\NUL\DC2\EOT\134\EOT\STX\SUB\"4 The address should match this exact address value.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTF\STX\NUL\ENQ\DC2\EOT\134\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTF\STX\NUL\SOH\DC2\EOT\134\EOT\b\NAK\n\ + \\r\n\ + \\ENQ\EOTF\STX\NUL\ETX\DC2\EOT\134\EOT\CAN\EM\n\ + \H\n\ + \\EOT\EOTF\STX\SOH\DC2\EOT\135\EOT\STX\EM\": The payment part of the address should match this value.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTF\STX\SOH\ENQ\DC2\EOT\135\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTF\STX\SOH\SOH\DC2\EOT\135\EOT\b\DC4\n\ + \\r\n\ + \\ENQ\EOTF\STX\SOH\ETX\DC2\EOT\135\EOT\ETB\CAN\n\ + \K\n\ + \\EOT\EOTF\STX\STX\DC2\EOT\136\EOT\STX\FS\"= The delegation part of the address should match this value.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\ENQ\DC2\EOT\136\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\SOH\DC2\EOT\136\EOT\b\ETB\n\ + \\r\n\ + \\ENQ\EOTF\STX\STX\ETX\DC2\EOT\136\EOT\SUB\ESC\n\ + \[\n\ + \\STX\EOTG\DC2\ACK\140\EOT\NUL\143\EOT\SOH\SUBM Pattern of a native asset that can be used to evaluate matching predicates.\n\ + \\n\ + \\v\n\ + \\ETX\EOTG\SOH\DC2\EOT\140\EOT\b\DC4\n\ + \9\n\ + \\EOT\EOTG\STX\NUL\DC2\EOT\141\EOT\STX\SYN\"+ The asset should belong to this policy id\n\ + \\n\ + \\r\n\ + \\ENQ\EOTG\STX\NUL\ENQ\DC2\EOT\141\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTG\STX\NUL\SOH\DC2\EOT\141\EOT\b\DC1\n\ + \\r\n\ + \\ENQ\EOTG\STX\NUL\ETX\DC2\EOT\141\EOT\DC4\NAK\n\ + \2\n\ + \\EOT\EOTG\STX\SOH\DC2\EOT\142\EOT\STX\ETB\"$ The asset should present this name\n\ + \\n\ + \\r\n\ + \\ENQ\EOTG\STX\SOH\ENQ\DC2\EOT\142\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTG\STX\SOH\SOH\DC2\EOT\142\EOT\b\DC2\n\ + \\r\n\ + \\ENQ\EOTG\STX\SOH\ETX\DC2\EOT\142\EOT\NAK\SYN\n\ + \Z\n\ + \\STX\EOTH\DC2\ACK\146\EOT\NUL\157\EOT\SOH\SUBL Pattern of a certificate that can be used to evaluate matching predicates.\n\ + \\n\ + \\v\n\ + \\ETX\EOTH\SOH\DC2\EOT\146\EOT\b\SUB\n\ + \\SO\n\ + \\EOT\EOTH\b\NUL\DC2\ACK\147\EOT\STX\156\EOT\ETX\n\ + \\r\n\ + \\ENQ\EOTH\b\NUL\SOH\DC2\EOT\147\EOT\b\CAN\n\ + \<\n\ + \\EOT\EOTH\STX\NUL\DC2\EOT\148\EOT\EOT+\". Match stake registration for this credential\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\NUL\ACK\DC2\EOT\148\EOT\EOT\DC3\n\ + \\r\n\ + \\ENQ\EOTH\STX\NUL\SOH\DC2\EOT\148\EOT\DC4&\n\ + \\r\n\ + \\ENQ\EOTH\STX\NUL\ETX\DC2\EOT\148\EOT)*\n\ + \>\n\ + \\EOT\EOTH\STX\SOH\DC2\EOT\149\EOT\EOT-\"0 Match stake deregistration for this credential\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\SOH\ACK\DC2\EOT\149\EOT\EOT\DC3\n\ + \\r\n\ + \\ENQ\EOTH\STX\SOH\SOH\DC2\EOT\149\EOT\DC4(\n\ + \\r\n\ + \\ENQ\EOTH\STX\SOH\ETX\DC2\EOT\149\EOT+,\n\ + \.\n\ + \\EOT\EOTH\STX\STX\DC2\EOT\150\EOT\EOT0\" Match stake delegation pattern\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\STX\ACK\DC2\EOT\150\EOT\EOT\SUB\n\ + \\r\n\ + \\ENQ\EOTH\STX\STX\SOH\DC2\EOT\150\EOT\ESC+\n\ + \\r\n\ + \\ENQ\EOTH\STX\STX\ETX\DC2\EOT\150\EOT./\n\ + \/\n\ + \\EOT\EOTH\STX\ETX\DC2\EOT\151\EOT\EOT2\"! Match pool registration pattern\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\ETX\ACK\DC2\EOT\151\EOT\EOT\ESC\n\ + \\r\n\ + \\ENQ\EOTH\STX\ETX\SOH\DC2\EOT\151\EOT\FS-\n\ + \\r\n\ + \\ENQ\EOTH\STX\ETX\ETX\DC2\EOT\151\EOT01\n\ + \-\n\ + \\EOT\EOTH\STX\EOT\DC2\EOT\152\EOT\EOT.\"\US Match pool retirement pattern\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\EOT\ACK\DC2\EOT\152\EOT\EOT\EM\n\ + \\r\n\ + \\ENQ\EOTH\STX\EOT\SOH\DC2\EOT\152\EOT\SUB)\n\ + \\r\n\ + \\ENQ\EOTH\STX\EOT\ETX\DC2\EOT\152\EOT,-\n\ + \E\n\ + \\EOT\EOTH\STX\ENQ\DC2\EOT\153\EOT\EOT#\"7 Match any certificate involving this stake credential\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\ENQ\ENQ\DC2\EOT\153\EOT\EOT\t\n\ + \\r\n\ + \\ENQ\EOTH\STX\ENQ\SOH\DC2\EOT\153\EOT\n\ + \\RS\n\ + \\r\n\ + \\ENQ\EOTH\STX\ENQ\ETX\DC2\EOT\153\EOT!\"\n\ + \9\n\ + \\EOT\EOTH\STX\ACK\DC2\EOT\154\EOT\EOT\US\"+ Match any certificate involving this pool\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\ACK\ENQ\DC2\EOT\154\EOT\EOT\t\n\ + \\r\n\ + \\ENQ\EOTH\STX\ACK\SOH\DC2\EOT\154\EOT\n\ + \\SUB\n\ + \\r\n\ + \\ENQ\EOTH\STX\ACK\ETX\DC2\EOT\154\EOT\GS\RS\n\ + \9\n\ + \\EOT\EOTH\STX\a\DC2\EOT\155\EOT\EOT\ETB\"+ Match any certificate involving this DRep\n\ + \\n\ + \\r\n\ + \\ENQ\EOTH\STX\a\ENQ\DC2\EOT\155\EOT\EOT\t\n\ + \\r\n\ + \\ENQ\EOTH\STX\a\SOH\DC2\EOT\155\EOT\n\ + \\DC2\n\ + \\r\n\ + \\ENQ\EOTH\STX\a\ETX\DC2\EOT\155\EOT\NAK\SYN\n\ + \9\n\ + \\STX\EOTI\DC2\ACK\160\EOT\NUL\163\EOT\SOH\SUB+ Pattern for stake delegation certificates\n\ + \\n\ + \\v\n\ + \\ETX\EOTI\SOH\DC2\EOT\160\EOT\b\RS\n\ + \6\n\ + \\EOT\EOTI\STX\NUL\DC2\EOT\161\EOT\STX'\"( Match delegations from this credential\n\ + \\n\ + \\r\n\ + \\ENQ\EOTI\STX\NUL\ACK\DC2\EOT\161\EOT\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTI\STX\NUL\SOH\DC2\EOT\161\EOT\DC2\"\n\ + \\r\n\ + \\ENQ\EOTI\STX\NUL\ETX\DC2\EOT\161\EOT%&\n\ + \.\n\ + \\EOT\EOTI\STX\SOH\DC2\EOT\162\EOT\STX\EM\" Match delegations to this pool\n\ + \\n\ + \\r\n\ + \\ENQ\EOTI\STX\SOH\ENQ\DC2\EOT\162\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTI\STX\SOH\SOH\DC2\EOT\162\EOT\b\DC4\n\ + \\r\n\ + \\ENQ\EOTI\STX\SOH\ETX\DC2\EOT\162\EOT\ETB\CAN\n\ + \:\n\ + \\STX\EOTJ\DC2\ACK\166\EOT\NUL\169\EOT\SOH\SUB, Pattern for pool registration certificates\n\ + \\n\ + \\v\n\ + \\ETX\EOTJ\SOH\DC2\EOT\166\EOT\b\US\n\ + \4\n\ + \\EOT\EOTJ\STX\NUL\DC2\EOT\167\EOT\STX\NAK\"& Match registrations by this operator\n\ + \\n\ + \\r\n\ + \\ENQ\EOTJ\STX\NUL\ENQ\DC2\EOT\167\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTJ\STX\NUL\SOH\DC2\EOT\167\EOT\b\DLE\n\ + \\r\n\ + \\ENQ\EOTJ\STX\NUL\ETX\DC2\EOT\167\EOT\DC3\DC4\n\ + \I\n\ + \\EOT\EOTJ\STX\SOH\DC2\EOT\168\EOT\STX\EM\"; Match registrations for this pool (derived from operator)\n\ + \\n\ + \\r\n\ + \\ENQ\EOTJ\STX\SOH\ENQ\DC2\EOT\168\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTJ\STX\SOH\SOH\DC2\EOT\168\EOT\b\DC4\n\ + \\r\n\ + \\ENQ\EOTJ\STX\SOH\ETX\DC2\EOT\168\EOT\ETB\CAN\n\ + \8\n\ + \\STX\EOTK\DC2\ACK\172\EOT\NUL\175\EOT\SOH\SUB* Pattern for pool retirement certificates\n\ + \\n\ + \\v\n\ + \\ETX\EOTK\SOH\DC2\EOT\172\EOT\b\GS\n\ + \.\n\ + \\EOT\EOTK\STX\NUL\DC2\EOT\173\EOT\STX\EM\" Match retirements of this pool\n\ + \\n\ + \\r\n\ + \\ENQ\EOTK\STX\NUL\ENQ\DC2\EOT\173\EOT\STX\a\n\ + \\r\n\ + \\ENQ\EOTK\STX\NUL\SOH\DC2\EOT\173\EOT\b\DC4\n\ + \\r\n\ + \\ENQ\EOTK\STX\NUL\ETX\DC2\EOT\173\EOT\ETB\CAN\n\ + \/\n\ + \\EOT\EOTK\STX\SOH\DC2\EOT\174\EOT\STX\DC3\"! Match retirements in this epoch\n\ + \\n\ + \\r\n\ + \\ENQ\EOTK\STX\SOH\ENQ\DC2\EOT\174\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTK\STX\SOH\SOH\DC2\EOT\174\EOT\t\SO\n\ + \\r\n\ + \\ENQ\EOTK\STX\SOH\ETX\DC2\EOT\174\EOT\DC1\DC2\n\ + \X\n\ + \\STX\EOTL\DC2\ACK\178\EOT\NUL\181\EOT\SOH\SUBJ Pattern of a tx output that can be used to evaluate matching predicates.\n\ + \\n\ + \\v\n\ + \\ETX\EOTL\SOH\DC2\EOT\178\EOT\b\ETB\n\ + \K\n\ + \\EOT\EOTL\STX\NUL\DC2\EOT\179\EOT\STX\GS\"= Match any address in the output that exhibits this pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTL\STX\NUL\ACK\DC2\EOT\179\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTL\STX\NUL\SOH\DC2\EOT\179\EOT\DC1\CAN\n\ + \\r\n\ + \\ENQ\EOTL\STX\NUL\ETX\DC2\EOT\179\EOT\ESC\FS\n\ + \I\n\ + \\EOT\EOTL\STX\SOH\DC2\EOT\180\EOT\STX\EM\"; Match any asset in the output that exhibits this pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTL\STX\SOH\ACK\DC2\EOT\180\EOT\STX\SO\n\ + \\r\n\ + \\ENQ\EOTL\STX\SOH\SOH\DC2\EOT\180\EOT\SI\DC4\n\ + \\r\n\ + \\ENQ\EOTL\STX\SOH\ETX\DC2\EOT\180\EOT\ETB\CAN\n\ + \Q\n\ + \\STX\EOTM\DC2\ACK\184\EOT\NUL\191\EOT\SOH\SUBC Pattern of a Tx that can be used to evaluate matching predicates.\n\ + \\n\ + \\v\n\ + \\ETX\EOTM\SOH\DC2\EOT\184\EOT\b\DC1\n\ + \;\n\ + \\EOT\EOTM\STX\NUL\DC2\EOT\185\EOT\STX\US\"- Match any input that exhibits this pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\NUL\ACK\DC2\EOT\185\EOT\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTM\STX\NUL\SOH\DC2\EOT\185\EOT\DC2\SUB\n\ + \\r\n\ + \\ENQ\EOTM\STX\NUL\ETX\DC2\EOT\185\EOT\GS\RS\n\ + \<\n\ + \\EOT\EOTM\STX\SOH\DC2\EOT\186\EOT\STX\US\". Match any output that exhibits this pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\SOH\ACK\DC2\EOT\186\EOT\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTM\STX\SOH\SOH\DC2\EOT\186\EOT\DC2\SUB\n\ + \\r\n\ + \\ENQ\EOTM\STX\SOH\ETX\DC2\EOT\186\EOT\GS\RS\n\ + \`\n\ + \\EOT\EOTM\STX\STX\DC2\EOT\187\EOT\STX!\"R Match any address (inputs, outputs, collateral, etc) that exhibits this pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\STX\ACK\DC2\EOT\187\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTM\STX\STX\SOH\DC2\EOT\187\EOT\DC1\FS\n\ + \\r\n\ + \\ENQ\EOTM\STX\STX\ETX\DC2\EOT\187\EOT\US \n\ + \;\n\ + \\EOT\EOTM\STX\ETX\DC2\EOT\188\EOT\STX\US\"- Match any asset that exhibits this pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\ETX\ACK\DC2\EOT\188\EOT\STX\SO\n\ + \\r\n\ + \\ENQ\EOTM\STX\ETX\SOH\DC2\EOT\188\EOT\SI\SUB\n\ + \\r\n\ + \\ENQ\EOTM\STX\ETX\ETX\DC2\EOT\188\EOT\GS\RS\n\ + \L\n\ + \\EOT\EOTM\STX\EOT\DC2\EOT\189\EOT\STX\US\"> Match any tx that either mint or burn the the asset pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\EOT\ACK\DC2\EOT\189\EOT\STX\SO\n\ + \\r\n\ + \\ENQ\EOTM\STX\EOT\SOH\DC2\EOT\189\EOT\SI\SUB\n\ + \\r\n\ + \\ENQ\EOTM\STX\EOT\ETX\DC2\EOT\189\EOT\GS\RS\n\ + \M\n\ + \\EOT\EOTM\STX\ENQ\DC2\EOT\190\EOT\STX)\"? Match any transaction that includes this certificate pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTM\STX\ENQ\ACK\DC2\EOT\190\EOT\STX\DC4\n\ + \\r\n\ + \\ENQ\EOTM\STX\ENQ\SOH\DC2\EOT\190\EOT\NAK$\n\ + \\r\n\ + \\ENQ\EOTM\STX\ENQ\ETX\DC2\EOT\190\EOT'(\n\ + \\RS\n\ + \\STX\EOTN\DC2\ACK\196\EOT\NUL\199\EOT\SOH2\DLE PARAMS\n\ + \ ======\n\ + \\n\ + \\v\n\ + \\ETX\EOTN\SOH\DC2\EOT\196\EOT\b\SI\n\ + \\f\n\ + \\EOT\EOTN\STX\NUL\DC2\EOT\197\EOT\STX\DC3\n\ + \\r\n\ + \\ENQ\EOTN\STX\NUL\ENQ\DC2\EOT\197\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTN\STX\NUL\SOH\DC2\EOT\197\EOT\t\SO\n\ + \\r\n\ + \\ENQ\EOTN\STX\NUL\ETX\DC2\EOT\197\EOT\DC1\DC2\n\ + \\f\n\ + \\EOT\EOTN\STX\SOH\DC2\EOT\198\EOT\STX\DC4\n\ + \\r\n\ + \\ENQ\EOTN\STX\SOH\ENQ\DC2\EOT\198\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTN\STX\SOH\SOH\DC2\EOT\198\EOT\t\SI\n\ + \\r\n\ + \\ENQ\EOTN\STX\SOH\ETX\DC2\EOT\198\EOT\DC2\DC3\n\ + \\f\n\ + \\STX\EOTO\DC2\ACK\201\EOT\NUL\204\EOT\SOH\n\ + \\v\n\ + \\ETX\EOTO\SOH\DC2\EOT\201\EOT\b\DLE\n\ + \\f\n\ + \\EOT\EOTO\STX\NUL\DC2\EOT\202\EOT\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTO\STX\NUL\ACK\DC2\EOT\202\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTO\STX\NUL\SOH\DC2\EOT\202\EOT\DC1\SYN\n\ + \\r\n\ + \\ENQ\EOTO\STX\NUL\ETX\DC2\EOT\202\EOT\EM\SUB\n\ + \\f\n\ + \\EOT\EOTO\STX\SOH\DC2\EOT\203\EOT\STX\FS\n\ + \\r\n\ + \\ENQ\EOTO\STX\SOH\ACK\DC2\EOT\203\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTO\STX\SOH\SOH\DC2\EOT\203\EOT\DC1\ETB\n\ + \\r\n\ + \\ENQ\EOTO\STX\SOH\ETX\DC2\EOT\203\EOT\SUB\ESC\n\ + \\f\n\ + \\STX\EOTP\DC2\ACK\206\EOT\NUL\209\EOT\SOH\n\ + \\v\n\ + \\ETX\EOTP\SOH\DC2\EOT\206\EOT\b\ETB\n\ + \\f\n\ + \\EOT\EOTP\STX\NUL\DC2\EOT\207\EOT\STX\DC3\n\ + \\r\n\ + \\ENQ\EOTP\STX\NUL\ENQ\DC2\EOT\207\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTP\STX\NUL\SOH\DC2\EOT\207\EOT\t\SO\n\ + \\r\n\ + \\ENQ\EOTP\STX\NUL\ETX\DC2\EOT\207\EOT\DC1\DC2\n\ + \\f\n\ + \\EOT\EOTP\STX\SOH\DC2\EOT\208\EOT\STX\DC3\n\ + \\r\n\ + \\ENQ\EOTP\STX\SOH\ENQ\DC2\EOT\208\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTP\STX\SOH\SOH\DC2\EOT\208\EOT\t\SO\n\ + \\r\n\ + \\ENQ\EOTP\STX\SOH\ETX\DC2\EOT\208\EOT\DC1\DC2\n\ + \\f\n\ + \\STX\EOTQ\DC2\ACK\211\EOT\NUL\213\EOT\SOH\n\ + \\v\n\ + \\ETX\EOTQ\SOH\DC2\EOT\211\EOT\b\DC1\n\ + \\f\n\ + \\EOT\EOTQ\STX\NUL\DC2\EOT\212\EOT\STX\FS\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\EOT\DC2\EOT\212\EOT\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\ENQ\DC2\EOT\212\EOT\v\DLE\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\SOH\DC2\EOT\212\EOT\DC1\ETB\n\ + \\r\n\ + \\ENQ\EOTQ\STX\NUL\ETX\DC2\EOT\212\EOT\SUB\ESC\n\ + \\f\n\ + \\STX\EOTR\DC2\ACK\215\EOT\NUL\220\EOT\SOH\n\ + \\v\n\ + \\ETX\EOTR\SOH\DC2\EOT\215\EOT\b\DC2\n\ + \\f\n\ + \\EOT\EOTR\STX\NUL\DC2\EOT\216\EOT\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTR\STX\NUL\ACK\DC2\EOT\216\EOT\STX\v\n\ + \\r\n\ + \\ENQ\EOTR\STX\NUL\SOH\DC2\EOT\216\EOT\f\NAK\n\ + \\r\n\ + \\ENQ\EOTR\STX\NUL\ETX\DC2\EOT\216\EOT\CAN\EM\n\ + \\f\n\ + \\EOT\EOTR\STX\SOH\DC2\EOT\217\EOT\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTR\STX\SOH\ACK\DC2\EOT\217\EOT\STX\v\n\ + \\r\n\ + \\ENQ\EOTR\STX\SOH\SOH\DC2\EOT\217\EOT\f\NAK\n\ + \\r\n\ + \\ENQ\EOTR\STX\SOH\ETX\DC2\EOT\217\EOT\CAN\EM\n\ + \\f\n\ + \\EOT\EOTR\STX\STX\DC2\EOT\218\EOT\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTR\STX\STX\ACK\DC2\EOT\218\EOT\STX\v\n\ + \\r\n\ + \\ENQ\EOTR\STX\STX\SOH\DC2\EOT\218\EOT\f\NAK\n\ + \\r\n\ + \\ENQ\EOTR\STX\STX\ETX\DC2\EOT\218\EOT\CAN\EM\n\ + \\f\n\ + \\EOT\EOTR\STX\ETX\DC2\EOT\219\EOT\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTR\STX\ETX\ACK\DC2\EOT\219\EOT\STX\v\n\ + \\r\n\ + \\ENQ\EOTR\STX\ETX\SOH\DC2\EOT\219\EOT\f\NAK\n\ + \\r\n\ + \\ENQ\EOTR\STX\ETX\ETX\DC2\EOT\219\EOT\CAN\EM\n\ + \\f\n\ + \\STX\EOTS\DC2\ACK\222\EOT\NUL\224\EOT\SOH\n\ + \\v\n\ + \\ETX\EOTS\SOH\DC2\EOT\222\EOT\b\CAN\n\ + \\f\n\ + \\EOT\EOTS\STX\NUL\DC2\EOT\223\EOT\STX)\n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\EOT\DC2\EOT\223\EOT\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\ACK\DC2\EOT\223\EOT\v\EM\n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\SOH\DC2\EOT\223\EOT\SUB$\n\ + \\r\n\ + \\ENQ\EOTS\STX\NUL\ETX\DC2\EOT\223\EOT'(\n\ + \\f\n\ + \\STX\EOTT\DC2\ACK\226\EOT\NUL\130\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTT\SOH\DC2\EOT\226\EOT\b\SI\n\ + \2\n\ + \\EOT\EOTT\STX\NUL\DC2\EOT\227\EOT\STX!\"$ The number of coins per UTXO byte.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\NUL\ACK\DC2\EOT\227\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\NUL\SOH\DC2\EOT\227\EOT\t\FS\n\ + \\r\n\ + \\ENQ\EOTT\STX\NUL\ETX\DC2\EOT\227\EOT\US \n\ + \-\n\ + \\EOT\EOTT\STX\SOH\DC2\EOT\228\EOT\STX\EM\"\US The maximum transaction size.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\SOH\ENQ\DC2\EOT\228\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\SOH\SOH\DC2\EOT\228\EOT\t\DC4\n\ + \\r\n\ + \\ENQ\EOTT\STX\SOH\ETX\DC2\EOT\228\EOT\ETB\CAN\n\ + \,\n\ + \\EOT\EOTT\STX\STX\DC2\EOT\229\EOT\STX!\"\RS The minimum fee coefficient.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\STX\ACK\DC2\EOT\229\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\STX\SOH\DC2\EOT\229\EOT\t\FS\n\ + \\r\n\ + \\ENQ\EOTT\STX\STX\ETX\DC2\EOT\229\EOT\US \n\ + \)\n\ + \\EOT\EOTT\STX\ETX\DC2\EOT\230\EOT\STX\RS\"\ESC The minimum fee constant.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\ETX\ACK\DC2\EOT\230\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\ETX\SOH\DC2\EOT\230\EOT\t\EM\n\ + \\r\n\ + \\ENQ\EOTT\STX\ETX\ETX\DC2\EOT\230\EOT\FS\GS\n\ + \,\n\ + \\EOT\EOTT\STX\EOT\DC2\EOT\231\EOT\STX!\"\RS The maximum block body size.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\EOT\ENQ\DC2\EOT\231\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\EOT\SOH\DC2\EOT\231\EOT\t\FS\n\ + \\r\n\ + \\ENQ\EOTT\STX\EOT\ETX\DC2\EOT\231\EOT\US \n\ + \.\n\ + \\EOT\EOTT\STX\ENQ\DC2\EOT\232\EOT\STX#\" The maximum block header size.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\ENQ\ENQ\DC2\EOT\232\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\ENQ\SOH\DC2\EOT\232\EOT\t\RS\n\ + \\r\n\ + \\ENQ\EOTT\STX\ENQ\ETX\DC2\EOT\232\EOT!\"\n\ + \&\n\ + \\EOT\EOTT\STX\ACK\DC2\EOT\233\EOT\STX\US\"\CAN The stake key deposit.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\ACK\ACK\DC2\EOT\233\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\ACK\SOH\DC2\EOT\233\EOT\t\SUB\n\ + \\r\n\ + \\ENQ\EOTT\STX\ACK\ETX\DC2\EOT\233\EOT\GS\RS\n\ + \!\n\ + \\EOT\EOTT\STX\a\DC2\EOT\234\EOT\STX\SUB\"\DC3 The pool deposit.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\a\ACK\DC2\EOT\234\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\a\SOH\DC2\EOT\234\EOT\t\NAK\n\ + \\r\n\ + \\ENQ\EOTT\STX\a\ETX\DC2\EOT\234\EOT\CAN\EM\n\ + \0\n\ + \\EOT\EOTT\STX\b\DC2\EOT\235\EOT\STX)\"\" The pool retirement epoch bound.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\b\ENQ\DC2\EOT\235\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\b\SOH\DC2\EOT\235\EOT\t$\n\ + \\r\n\ + \\ENQ\EOTT\STX\b\ETX\DC2\EOT\235\EOT'(\n\ + \,\n\ + \\EOT\EOTT\STX\t\DC2\EOT\236\EOT\STX&\"\RS The desired number of pools.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\t\ENQ\DC2\EOT\236\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\t\SOH\DC2\EOT\236\EOT\t \n\ + \\r\n\ + \\ENQ\EOTT\STX\t\ETX\DC2\EOT\236\EOT#%\n\ + \#\n\ + \\EOT\EOTT\STX\n\ + \\DC2\EOT\237\EOT\STX%\"\NAK The pool influence.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\n\ + \\ACK\DC2\EOT\237\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTT\STX\n\ + \\SOH\DC2\EOT\237\EOT\DC1\US\n\ + \\r\n\ + \\ENQ\EOTT\STX\n\ + \\ETX\DC2\EOT\237\EOT\"$\n\ + \'\n\ + \\EOT\EOTT\STX\v\DC2\EOT\238\EOT\STX)\"\EM The monetary expansion.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\v\ACK\DC2\EOT\238\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTT\STX\v\SOH\DC2\EOT\238\EOT\DC1#\n\ + \\r\n\ + \\ENQ\EOTT\STX\v\ETX\DC2\EOT\238\EOT&(\n\ + \'\n\ + \\EOT\EOTT\STX\f\DC2\EOT\239\EOT\STX)\"\EM The treasury expansion.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\f\ACK\DC2\EOT\239\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTT\STX\f\SOH\DC2\EOT\239\EOT\DC1#\n\ + \\r\n\ + \\ENQ\EOTT\STX\f\ETX\DC2\EOT\239\EOT&(\n\ + \&\n\ + \\EOT\EOTT\STX\r\DC2\EOT\240\EOT\STX\FS\"\CAN The minimum pool cost.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\r\ACK\DC2\EOT\240\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\r\SOH\DC2\EOT\240\EOT\t\SYN\n\ + \\r\n\ + \\ENQ\EOTT\STX\r\ETX\DC2\EOT\240\EOT\EM\ESC\n\ + \%\n\ + \\EOT\EOTT\STX\SO\DC2\EOT\241\EOT\STX(\"\ETB The protocol version.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\SO\ACK\DC2\EOT\241\EOT\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTT\STX\SO\SOH\DC2\EOT\241\EOT\DC2\"\n\ + \\r\n\ + \\ENQ\EOTT\STX\SO\ETX\DC2\EOT\241\EOT%'\n\ + \'\n\ + \\EOT\EOTT\STX\SI\DC2\EOT\242\EOT\STX\GS\"\EM The maximum value size.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\SI\ENQ\DC2\EOT\242\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\SI\SOH\DC2\EOT\242\EOT\t\ETB\n\ + \\r\n\ + \\ENQ\EOTT\STX\SI\ETX\DC2\EOT\242\EOT\SUB\FS\n\ + \*\n\ + \\EOT\EOTT\STX\DLE\DC2\EOT\243\EOT\STX$\"\FS The collateral percentage.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\DLE\ENQ\DC2\EOT\243\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\DLE\SOH\DC2\EOT\243\EOT\t\RS\n\ + \\r\n\ + \\ENQ\EOTT\STX\DLE\ETX\DC2\EOT\243\EOT!#\n\ + \.\n\ + \\EOT\EOTT\STX\DC1\DC2\EOT\244\EOT\STX$\" The maximum collateral inputs.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC1\ENQ\DC2\EOT\244\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC1\SOH\DC2\EOT\244\EOT\t\RS\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC1\ETX\DC2\EOT\244\EOT!#\n\ + \ \n\ + \\EOT\EOTT\STX\DC2\DC2\EOT\245\EOT\STX\RS\"\DC2 The cost models.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC2\ACK\DC2\EOT\245\EOT\STX\f\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC2\SOH\DC2\EOT\245\EOT\r\CAN\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC2\ETX\DC2\EOT\245\EOT\ESC\GS\n\ + \\ESC\n\ + \\EOT\EOTT\STX\DC3\DC2\EOT\246\EOT\STX\ETB\"\r The prices.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC3\ACK\DC2\EOT\246\EOT\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC3\SOH\DC2\EOT\246\EOT\v\DC1\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC3\ETX\DC2\EOT\246\EOT\DC4\SYN\n\ + \<\n\ + \\EOT\EOTT\STX\DC4\DC2\EOT\247\EOT\STX3\". The maximum execution units per transaction.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC4\ACK\DC2\EOT\247\EOT\STX\t\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC4\SOH\DC2\EOT\247\EOT\n\ + \-\n\ + \\r\n\ + \\ENQ\EOTT\STX\DC4\ETX\DC2\EOT\247\EOT02\n\ + \6\n\ + \\EOT\EOTT\STX\NAK\DC2\EOT\248\EOT\STX-\"( The maximum execution units per block.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\NAK\ACK\DC2\EOT\248\EOT\STX\t\n\ + \\r\n\ + \\ENQ\EOTT\STX\NAK\SOH\DC2\EOT\248\EOT\n\ + \'\n\ + \\r\n\ + \\ENQ\EOTT\STX\NAK\ETX\DC2\EOT\248\EOT*,\n\ + \:\n\ + \\EOT\EOTT\STX\SYN\DC2\EOT\249\EOT\STX7\", The minimum fee per script reference byte.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\SYN\ACK\DC2\EOT\249\EOT\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTT\STX\SYN\SOH\DC2\EOT\249\EOT\DC11\n\ + \\r\n\ + \\ENQ\EOTT\STX\SYN\ETX\DC2\EOT\249\EOT46\n\ + \+\n\ + \\EOT\EOTT\STX\ETB\DC2\EOT\250\EOT\STX/\"\GS The pool voting thresholds.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\ETB\ACK\DC2\EOT\250\EOT\STX\DC2\n\ + \\r\n\ + \\ENQ\EOTT\STX\ETB\SOH\DC2\EOT\250\EOT\DC3)\n\ + \\r\n\ + \\ENQ\EOTT\STX\ETB\ETX\DC2\EOT\250\EOT,.\n\ + \+\n\ + \\EOT\EOTT\STX\CAN\DC2\EOT\251\EOT\STX/\"\GS The drep voting thresholds.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\CAN\ACK\DC2\EOT\251\EOT\STX\DC2\n\ + \\r\n\ + \\ENQ\EOTT\STX\CAN\SOH\DC2\EOT\251\EOT\DC3)\n\ + \\r\n\ + \\ENQ\EOTT\STX\CAN\ETX\DC2\EOT\251\EOT,.\n\ + \+\n\ + \\EOT\EOTT\STX\EM\DC2\EOT\252\EOT\STX!\"\GS The minimum committee size.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\EM\ENQ\DC2\EOT\252\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\EM\SOH\DC2\EOT\252\EOT\t\ESC\n\ + \\r\n\ + \\ENQ\EOTT\STX\EM\ETX\DC2\EOT\252\EOT\RS \n\ + \)\n\ + \\EOT\EOTT\STX\SUB\DC2\EOT\253\EOT\STX#\"\ESC The committee term limit.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\SUB\ENQ\DC2\EOT\253\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\SUB\SOH\DC2\EOT\253\EOT\t\GS\n\ + \\r\n\ + \\ENQ\EOTT\STX\SUB\ETX\DC2\EOT\253\EOT \"\n\ + \6\n\ + \\EOT\EOTT\STX\ESC\DC2\EOT\254\EOT\STX0\"( The governance action validity period.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\ESC\ENQ\DC2\EOT\254\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\ESC\SOH\DC2\EOT\254\EOT\t*\n\ + \\r\n\ + \\ENQ\EOTT\STX\ESC\ETX\DC2\EOT\254\EOT-/\n\ + \.\n\ + \\EOT\EOTT\STX\FS\DC2\EOT\255\EOT\STX(\" The governance action deposit.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\FS\ACK\DC2\EOT\255\EOT\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\FS\SOH\DC2\EOT\255\EOT\t\"\n\ + \\r\n\ + \\ENQ\EOTT\STX\FS\ETX\DC2\EOT\255\EOT%'\n\ + \!\n\ + \\EOT\EOTT\STX\GS\DC2\EOT\128\ENQ\STX\ESC\"\DC3 The drep deposit.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\GS\ACK\DC2\EOT\128\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\GS\SOH\DC2\EOT\128\ENQ\t\NAK\n\ + \\r\n\ + \\ENQ\EOTT\STX\GS\ETX\DC2\EOT\128\ENQ\CAN\SUB\n\ + \+\n\ + \\EOT\EOTT\STX\RS\DC2\EOT\129\ENQ\STX%\"\GS The drep inactivity period.\n\ + \\n\ + \\r\n\ + \\ENQ\EOTT\STX\RS\ENQ\DC2\EOT\129\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTT\STX\RS\SOH\DC2\EOT\129\ENQ\t\US\n\ + \\r\n\ + \\ENQ\EOTT\STX\RS\ETX\DC2\EOT\129\ENQ\"$\n\ + \\f\n\ + \\STX\EOTU\DC2\ACK\132\ENQ\NUL\136\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTU\SOH\DC2\EOT\132\ENQ\b\DC3\n\ + \\FS\n\ + \\EOT\EOTU\STX\NUL\DC2\EOT\133\ENQ\STX\DC2\"\SO ms timestamp\n\ + \\n\ + \\r\n\ + \\ENQ\EOTU\STX\NUL\ENQ\DC2\EOT\133\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTU\STX\NUL\SOH\DC2\EOT\133\ENQ\t\r\n\ + \\r\n\ + \\ENQ\EOTU\STX\NUL\ETX\DC2\EOT\133\ENQ\DLE\DC1\n\ + \C\n\ + \\EOT\EOTU\STX\SOH\DC2\EOT\134\ENQ\STX\DC2\"5 absolute slot number of the first block of this era\n\ + \\n\ + \\r\n\ + \\ENQ\EOTU\STX\SOH\ENQ\DC2\EOT\134\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTU\STX\SOH\SOH\DC2\EOT\134\ENQ\t\r\n\ + \\r\n\ + \\ENQ\EOTU\STX\SOH\ETX\DC2\EOT\134\ENQ\DLE\DC1\n\ + \(\n\ + \\EOT\EOTU\STX\STX\DC2\EOT\135\ENQ\STX\DC3\"\SUB first epoch for this era\n\ + \\n\ + \\r\n\ + \\ENQ\EOTU\STX\STX\ENQ\DC2\EOT\135\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTU\STX\STX\SOH\DC2\EOT\135\ENQ\t\SO\n\ + \\r\n\ + \\ENQ\EOTU\STX\STX\ETX\DC2\EOT\135\ENQ\DC1\DC2\n\ + \\f\n\ + \\STX\EOTV\DC2\ACK\138\ENQ\NUL\143\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTV\SOH\DC2\EOT\138\ENQ\b\DC2\n\ + \/\n\ + \\EOT\EOTV\STX\NUL\DC2\EOT\139\ENQ\STX\DC2\"! name of the era (ex: \"shelley\")\n\ + \\n\ + \\r\n\ + \\ENQ\EOTV\STX\NUL\ENQ\DC2\EOT\139\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTV\STX\NUL\SOH\DC2\EOT\139\ENQ\t\r\n\ + \\r\n\ + \\ENQ\EOTV\STX\NUL\ETX\DC2\EOT\139\ENQ\DLE\DC1\n\ + \!\n\ + \\EOT\EOTV\STX\SOH\DC2\EOT\140\ENQ\STX\CAN\"\DC3 start of this era\n\ + \\n\ + \\r\n\ + \\ENQ\EOTV\STX\SOH\ACK\DC2\EOT\140\ENQ\STX\r\n\ + \\r\n\ + \\ENQ\EOTV\STX\SOH\SOH\DC2\EOT\140\ENQ\SO\DC3\n\ + \\r\n\ + \\ENQ\EOTV\STX\SOH\ETX\DC2\EOT\140\ENQ\SYN\ETB\n\ + \F\n\ + \\EOT\EOTV\STX\STX\DC2\EOT\141\ENQ\STX\SYN\"8 end of this era (if the era has a well-defined ending)\n\ + \\n\ + \\r\n\ + \\ENQ\EOTV\STX\STX\ACK\DC2\EOT\141\ENQ\STX\r\n\ + \\r\n\ + \\ENQ\EOTV\STX\STX\SOH\DC2\EOT\141\ENQ\SO\DC1\n\ + \\r\n\ + \\ENQ\EOTV\STX\STX\ETX\DC2\EOT\141\ENQ\DC4\NAK\n\ + \0\n\ + \\EOT\EOTV\STX\ETX\DC2\EOT\142\ENQ\STX\RS\"\" protocol parameters for this era\n\ + \\n\ + \\r\n\ + \\ENQ\EOTV\STX\ETX\ACK\DC2\EOT\142\ENQ\STX\t\n\ + \\r\n\ + \\ENQ\EOTV\STX\ETX\SOH\DC2\EOT\142\ENQ\n\ + \\EM\n\ + \\r\n\ + \\ENQ\EOTV\STX\ETX\ETX\DC2\EOT\142\ENQ\FS\GS\n\ + \\f\n\ + \\STX\EOTW\DC2\ACK\145\ENQ\NUL\147\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTW\SOH\DC2\EOT\145\ENQ\b\DC4\n\ + \\f\n\ + \\EOT\EOTW\STX\NUL\DC2\EOT\146\ENQ\STX$\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\EOT\DC2\EOT\146\ENQ\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\ACK\DC2\EOT\146\ENQ\v\NAK\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\SOH\DC2\EOT\146\ENQ\SYN\US\n\ + \\r\n\ + \\ENQ\EOTW\STX\NUL\ETX\DC2\EOT\146\ENQ\"#\n\ + \&\n\ + \\STX\EOTX\DC2\ACK\152\ENQ\NUL\154\ENQ\SOH2\CAN EVALUATION\n\ + \ ==========\n\ + \\n\ + \\v\n\ + \\ETX\EOTX\SOH\DC2\EOT\152\ENQ\b\DC1\n\ + \\f\n\ + \\EOT\EOTX\STX\NUL\DC2\EOT\153\ENQ\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTX\STX\NUL\ENQ\DC2\EOT\153\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTX\STX\NUL\SOH\DC2\EOT\153\ENQ\t\f\n\ + \\r\n\ + \\ENQ\EOTX\STX\NUL\ETX\DC2\EOT\153\ENQ\SI\DLE\n\ + \\f\n\ + \\STX\EOTY\DC2\ACK\156\ENQ\NUL\158\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTY\SOH\DC2\EOT\156\ENQ\b\DC1\n\ + \\f\n\ + \\EOT\EOTY\STX\NUL\DC2\EOT\157\ENQ\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTY\STX\NUL\ENQ\DC2\EOT\157\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTY\STX\NUL\SOH\DC2\EOT\157\ENQ\t\f\n\ + \\r\n\ + \\ENQ\EOTY\STX\NUL\ETX\DC2\EOT\157\ENQ\SI\DLE\n\ + \\f\n\ + \\STX\EOTZ\DC2\ACK\160\ENQ\NUL\166\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTZ\SOH\DC2\EOT\160\ENQ\b\SO\n\ + \\f\n\ + \\EOT\EOTZ\STX\NUL\DC2\EOT\161\ENQ\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTZ\STX\NUL\ACK\DC2\EOT\161\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTZ\STX\NUL\SOH\DC2\EOT\161\ENQ\t\f\n\ + \\r\n\ + \\ENQ\EOTZ\STX\NUL\ETX\DC2\EOT\161\ENQ\SI\DLE\n\ + \\f\n\ + \\EOT\EOTZ\STX\SOH\DC2\EOT\162\ENQ\STX\ETB\n\ + \\r\n\ + \\ENQ\EOTZ\STX\SOH\ACK\DC2\EOT\162\ENQ\STX\t\n\ + \\r\n\ + \\ENQ\EOTZ\STX\SOH\SOH\DC2\EOT\162\ENQ\n\ + \\DC2\n\ + \\r\n\ + \\ENQ\EOTZ\STX\SOH\ETX\DC2\EOT\162\ENQ\NAK\SYN\n\ + \\f\n\ + \\EOT\EOTZ\STX\STX\DC2\EOT\163\ENQ\STX \n\ + \\r\n\ + \\ENQ\EOTZ\STX\STX\EOT\DC2\EOT\163\ENQ\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTZ\STX\STX\ACK\DC2\EOT\163\ENQ\v\DC4\n\ + \\r\n\ + \\ENQ\EOTZ\STX\STX\SOH\DC2\EOT\163\ENQ\NAK\ESC\n\ + \\r\n\ + \\ENQ\EOTZ\STX\STX\ETX\DC2\EOT\163\ENQ\RS\US\n\ + \\f\n\ + \\EOT\EOTZ\STX\ETX\DC2\EOT\164\ENQ\STX \n\ + \\r\n\ + \\ENQ\EOTZ\STX\ETX\EOT\DC2\EOT\164\ENQ\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTZ\STX\ETX\ACK\DC2\EOT\164\ENQ\v\DC4\n\ + \\r\n\ + \\ENQ\EOTZ\STX\ETX\SOH\DC2\EOT\164\ENQ\NAK\ESC\n\ + \\r\n\ + \\ENQ\EOTZ\STX\ETX\ETX\DC2\EOT\164\ENQ\RS\US\n\ + \\f\n\ + \\EOT\EOTZ\STX\EOT\DC2\EOT\165\ENQ\STX\"\n\ + \\r\n\ + \\ENQ\EOTZ\STX\EOT\EOT\DC2\EOT\165\ENQ\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTZ\STX\EOT\ACK\DC2\EOT\165\ENQ\v\DC3\n\ + \\r\n\ + \\ENQ\EOTZ\STX\EOT\SOH\DC2\EOT\165\ENQ\DC4\GS\n\ + \\r\n\ + \\ENQ\EOTZ\STX\EOT\ETX\DC2\EOT\165\ENQ !\n\ + \0\n\ + \\STX\EOT[\DC2\ACK\171\ENQ\NUL\173\ENQ\SOH2\" GENESIS CONFIGS\n\ + \ ===============\n\ + \\n\ + \\v\n\ + \\ETX\EOT[\SOH\DC2\EOT\171\ENQ\b\DC4\n\ + \\f\n\ + \\EOT\EOT[\STX\NUL\DC2\EOT\172\ENQ\STX\DC1\n\ + \\r\n\ + \\ENQ\EOT[\STX\NUL\ENQ\DC2\EOT\172\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT[\STX\NUL\SOH\DC2\EOT\172\ENQ\t\f\n\ + \\r\n\ + \\ENQ\EOT[\STX\NUL\ETX\DC2\EOT\172\ENQ\SI\DLE\n\ + \\f\n\ + \\STX\EOT\\\DC2\ACK\175\ENQ\NUL\190\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOT\\\SOH\DC2\EOT\175\ENQ\b\CAN\n\ + \\f\n\ + \\EOT\EOT\\\STX\NUL\DC2\EOT\176\ENQ\STX\FS\n\ + \\r\n\ + \\ENQ\EOT\\\STX\NUL\ENQ\DC2\EOT\176\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\NUL\SOH\DC2\EOT\176\ENQ\t\ETB\n\ + \\r\n\ + \\ENQ\EOT\\\STX\NUL\ETX\DC2\EOT\176\ENQ\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\\\STX\SOH\DC2\EOT\177\ENQ\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT\\\STX\SOH\ENQ\DC2\EOT\177\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\SOH\SOH\DC2\EOT\177\ENQ\t\SYN\n\ + \\r\n\ + \\ENQ\EOT\\\STX\SOH\ETX\DC2\EOT\177\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT\\\STX\STX\DC2\EOT\178\ENQ\STX\FS\n\ + \\r\n\ + \\ENQ\EOT\\\STX\STX\ENQ\DC2\EOT\178\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\STX\SOH\DC2\EOT\178\ENQ\t\ETB\n\ + \\r\n\ + \\ENQ\EOT\\\STX\STX\ETX\DC2\EOT\178\ENQ\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT\\\STX\ETX\DC2\EOT\179\ENQ\STX\GS\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ETX\ENQ\DC2\EOT\179\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ETX\SOH\DC2\EOT\179\ENQ\t\CAN\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ETX\ETX\DC2\EOT\179\ENQ\ESC\FS\n\ + \\f\n\ + \\EOT\EOT\\\STX\EOT\DC2\EOT\180\ENQ\STX\EM\n\ + \\r\n\ + \\ENQ\EOT\\\STX\EOT\ENQ\DC2\EOT\180\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\EOT\SOH\DC2\EOT\180\ENQ\t\DC4\n\ + \\r\n\ + \\ENQ\EOT\\\STX\EOT\ETX\DC2\EOT\180\ENQ\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT\\\STX\ENQ\DC2\EOT\181\ENQ\STX\US\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ENQ\ENQ\DC2\EOT\181\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ENQ\SOH\DC2\EOT\181\ENQ\t\SUB\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ENQ\ETX\DC2\EOT\181\ENQ\GS\RS\n\ + \\f\n\ + \\EOT\EOT\\\STX\ACK\DC2\EOT\182\ENQ\STX\NAK\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ACK\ENQ\DC2\EOT\182\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ACK\SOH\DC2\EOT\182\ENQ\t\DLE\n\ + \\r\n\ + \\ENQ\EOT\\\STX\ACK\ETX\DC2\EOT\182\ENQ\DC3\DC4\n\ + \\f\n\ + \\EOT\EOT\\\STX\a\DC2\EOT\183\ENQ\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT\\\STX\a\ENQ\DC2\EOT\183\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\a\SOH\DC2\EOT\183\ENQ\t\SYN\n\ + \\r\n\ + \\ENQ\EOT\\\STX\a\ETX\DC2\EOT\183\ENQ\EM\SUB\n\ + \\f\n\ + \\EOT\EOT\\\STX\b\DC2\EOT\184\ENQ\STX\GS\n\ + \\r\n\ + \\ENQ\EOT\\\STX\b\ENQ\DC2\EOT\184\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\b\SOH\DC2\EOT\184\ENQ\t\CAN\n\ + \\r\n\ + \\ENQ\EOT\\\STX\b\ETX\DC2\EOT\184\ENQ\ESC\FS\n\ + \\f\n\ + \\EOT\EOT\\\STX\t\DC2\EOT\185\ENQ\STX\"\n\ + \\r\n\ + \\ENQ\EOT\\\STX\t\ENQ\DC2\EOT\185\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\t\SOH\DC2\EOT\185\ENQ\t\FS\n\ + \\r\n\ + \\ENQ\EOT\\\STX\t\ETX\DC2\EOT\185\ENQ\US!\n\ + \\f\n\ + \\EOT\EOT\\\STX\n\ + \\DC2\EOT\186\ENQ\STX\RS\n\ + \\r\n\ + \\ENQ\EOT\\\STX\n\ + \\ENQ\DC2\EOT\186\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\n\ + \\SOH\DC2\EOT\186\ENQ\t\CAN\n\ + \\r\n\ + \\ENQ\EOT\\\STX\n\ + \\ETX\DC2\EOT\186\ENQ\ESC\GS\n\ + \\f\n\ + \\EOT\EOT\\\STX\v\DC2\EOT\187\ENQ\STX\"\n\ + \\r\n\ + \\ENQ\EOT\\\STX\v\ACK\DC2\EOT\187\ENQ\STX\SO\n\ + \\r\n\ + \\ENQ\EOT\\\STX\v\SOH\DC2\EOT\187\ENQ\SI\FS\n\ + \\r\n\ + \\ENQ\EOT\\\STX\v\ETX\DC2\EOT\187\ENQ\US!\n\ + \\f\n\ + \\EOT\EOT\\\STX\f\DC2\EOT\188\ENQ\STX!\n\ + \\r\n\ + \\ENQ\EOT\\\STX\f\ACK\DC2\EOT\188\ENQ\STX\r\n\ + \\r\n\ + \\ENQ\EOT\\\STX\f\SOH\DC2\EOT\188\ENQ\SO\ESC\n\ + \\r\n\ + \\ENQ\EOT\\\STX\f\ETX\DC2\EOT\188\ENQ\RS \n\ + \\f\n\ + \\EOT\EOT\\\STX\r\DC2\EOT\189\ENQ\STX!\n\ + \\r\n\ + \\ENQ\EOT\\\STX\r\ENQ\DC2\EOT\189\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT\\\STX\r\SOH\DC2\EOT\189\ENQ\t\ESC\n\ + \\r\n\ + \\ENQ\EOT\\\STX\r\ETX\DC2\EOT\189\ENQ\RS \n\ + \\f\n\ + \\STX\EOT]\DC2\ACK\192\ENQ\NUL\196\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOT]\SOH\DC2\EOT\192\ENQ\b\DC4\n\ + \\f\n\ + \\EOT\EOT]\STX\NUL\DC2\EOT\193\ENQ\STX\SYN\n\ + \\r\n\ + \\ENQ\EOT]\STX\NUL\ENQ\DC2\EOT\193\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT]\STX\NUL\SOH\DC2\EOT\193\ENQ\t\DC1\n\ + \\r\n\ + \\ENQ\EOT]\STX\NUL\ETX\DC2\EOT\193\ENQ\DC4\NAK\n\ + \\f\n\ + \\EOT\EOT]\STX\SOH\DC2\EOT\194\ENQ\STX\NAK\n\ + \\r\n\ + \\ENQ\EOT]\STX\SOH\ENQ\DC2\EOT\194\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT]\STX\SOH\SOH\DC2\EOT\194\ENQ\t\DLE\n\ + \\r\n\ + \\ENQ\EOT]\STX\SOH\ETX\DC2\EOT\194\ENQ\DC3\DC4\n\ + \\f\n\ + \\EOT\EOT]\STX\STX\DC2\EOT\195\ENQ\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT]\STX\STX\ENQ\DC2\EOT\195\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT]\STX\STX\SOH\DC2\EOT\195\ENQ\t\SYN\n\ + \\r\n\ + \\ENQ\EOT]\STX\STX\ETX\DC2\EOT\195\ENQ\EM\SUB\n\ + \\f\n\ + \\STX\EOT^\DC2\ACK\198\ENQ\NUL\201\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOT^\SOH\DC2\EOT\198\ENQ\b\DC3\n\ + \\f\n\ + \\EOT\EOT^\STX\NUL\DC2\EOT\199\ENQ\STX\CAN\n\ + \\r\n\ + \\ENQ\EOT^\STX\NUL\ENQ\DC2\EOT\199\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT^\STX\NUL\SOH\DC2\EOT\199\ENQ\t\DC3\n\ + \\r\n\ + \\ENQ\EOT^\STX\NUL\ETX\DC2\EOT\199\ENQ\SYN\ETB\n\ + \\f\n\ + \\EOT\EOT^\STX\SOH\DC2\EOT\200\ENQ\STX\NAK\n\ + \\r\n\ + \\ENQ\EOT^\STX\SOH\ENQ\DC2\EOT\200\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT^\STX\SOH\SOH\DC2\EOT\200\ENQ\t\DLE\n\ + \\r\n\ + \\ENQ\EOT^\STX\SOH\ETX\DC2\EOT\200\ENQ\DC3\DC4\n\ + \\f\n\ + \\STX\EOT_\DC2\ACK\203\ENQ\NUL\208\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOT_\SOH\DC2\EOT\203\ENQ\b\SYN\n\ + \\f\n\ + \\EOT\EOT_\STX\NUL\DC2\EOT\204\ENQ\STX\SI\n\ + \\r\n\ + \\ENQ\EOT_\STX\NUL\ENQ\DC2\EOT\204\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT_\STX\NUL\SOH\DC2\EOT\204\ENQ\t\n\ + \\n\ + \\r\n\ + \\ENQ\EOT_\STX\NUL\ETX\DC2\EOT\204\ENQ\r\SO\n\ + \\f\n\ + \\EOT\EOT_\STX\SOH\DC2\EOT\205\ENQ\STX\FS\n\ + \\r\n\ + \\ENQ\EOT_\STX\SOH\ENQ\DC2\EOT\205\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT_\STX\SOH\SOH\DC2\EOT\205\ENQ\t\ETB\n\ + \\r\n\ + \\ENQ\EOT_\STX\SOH\ETX\DC2\EOT\205\ENQ\SUB\ESC\n\ + \\f\n\ + \\EOT\EOT_\STX\STX\DC2\EOT\206\ENQ\STX\EM\n\ + \\r\n\ + \\ENQ\EOT_\STX\STX\ENQ\DC2\EOT\206\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT_\STX\STX\SOH\DC2\EOT\206\ENQ\t\DC4\n\ + \\r\n\ + \\ENQ\EOT_\STX\STX\ETX\DC2\EOT\206\ENQ\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT_\STX\ETX\DC2\EOT\207\ENQ\STX\EM\n\ + \\r\n\ + \\ENQ\EOT_\STX\ETX\ENQ\DC2\EOT\207\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT_\STX\ETX\SOH\DC2\EOT\207\ENQ\t\DC4\n\ + \\r\n\ + \\ENQ\EOT_\STX\ETX\ETX\DC2\EOT\207\ENQ\ETB\CAN\n\ + \\f\n\ + \\STX\EOT`\DC2\ACK\210\ENQ\NUL\215\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOT`\SOH\DC2\EOT\210\ENQ\b\ETB\n\ + \\f\n\ + \\EOT\EOT`\STX\NUL\DC2\EOT\211\ENQ\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT`\STX\NUL\ENQ\DC2\EOT\211\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT`\STX\NUL\SOH\DC2\EOT\211\ENQ\t\r\n\ + \\r\n\ + \\ENQ\EOT`\STX\NUL\ETX\DC2\EOT\211\ENQ\DLE\DC1\n\ + \\f\n\ + \\EOT\EOT`\STX\SOH\DC2\EOT\212\ENQ\STX\EM\n\ + \\r\n\ + \\ENQ\EOT`\STX\SOH\ENQ\DC2\EOT\212\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT`\STX\SOH\SOH\DC2\EOT\212\ENQ\t\DC4\n\ + \\r\n\ + \\ENQ\EOT`\STX\SOH\ETX\DC2\EOT\212\ENQ\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT`\STX\STX\DC2\EOT\213\ENQ\STX\ETB\n\ + \\r\n\ + \\ENQ\EOT`\STX\STX\ENQ\DC2\EOT\213\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT`\STX\STX\SOH\DC2\EOT\213\ENQ\t\DC2\n\ + \\r\n\ + \\ENQ\EOT`\STX\STX\ETX\DC2\EOT\213\ENQ\NAK\SYN\n\ + \\f\n\ + \\EOT\EOT`\STX\ETX\DC2\EOT\214\ENQ\STX\DC3\n\ + \\r\n\ + \\ENQ\EOT`\STX\ETX\ENQ\DC2\EOT\214\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOT`\STX\ETX\SOH\DC2\EOT\214\ENQ\t\SO\n\ + \\r\n\ + \\ENQ\EOT`\STX\ETX\ETX\DC2\EOT\214\ENQ\DC1\DC2\n\ + \\f\n\ + \\STX\EOTa\DC2\ACK\217\ENQ\NUL\222\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTa\SOH\DC2\EOT\217\ENQ\b\SI\n\ + \\f\n\ + \\EOT\EOTa\STX\NUL\DC2\EOT\218\ENQ\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTa\STX\NUL\ENQ\DC2\EOT\218\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTa\STX\NUL\SOH\DC2\EOT\218\ENQ\t\NAK\n\ + \\r\n\ + \\ENQ\EOTa\STX\NUL\ETX\DC2\EOT\218\ENQ\CAN\EM\n\ + \\f\n\ + \\EOT\EOTa\STX\SOH\DC2\EOT\219\ENQ\STX\ETB\n\ + \\r\n\ + \\ENQ\EOTa\STX\SOH\ENQ\DC2\EOT\219\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTa\STX\SOH\SOH\DC2\EOT\219\ENQ\t\DC2\n\ + \\r\n\ + \\ENQ\EOTa\STX\SOH\ETX\DC2\EOT\219\ENQ\NAK\SYN\n\ + \\f\n\ + \\EOT\EOTa\STX\STX\DC2\EOT\220\ENQ\STX\EM\n\ + \\r\n\ + \\ENQ\EOTa\STX\STX\ENQ\DC2\EOT\220\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTa\STX\STX\SOH\DC2\EOT\220\ENQ\t\DC4\n\ + \\r\n\ + \\ENQ\EOTa\STX\STX\ETX\DC2\EOT\220\ENQ\ETB\CAN\n\ + \\f\n\ + \\EOT\EOTa\STX\ETX\DC2\EOT\221\ENQ\STX\NAK\n\ + \\r\n\ + \\ENQ\EOTa\STX\ETX\ENQ\DC2\EOT\221\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTa\STX\ETX\SOH\DC2\EOT\221\ENQ\t\DLE\n\ + \\r\n\ + \\ENQ\EOTa\STX\ETX\ETX\DC2\EOT\221\ENQ\DC3\DC4\n\ + \\f\n\ + \\STX\EOTb\DC2\ACK\224\ENQ\NUL\227\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTb\SOH\DC2\EOT\224\ENQ\b\DC1\n\ + \\f\n\ + \\EOT\EOTb\STX\NUL\DC2\EOT\225\ENQ\STX\SYN\n\ + \\r\n\ + \\ENQ\EOTb\STX\NUL\ENQ\DC2\EOT\225\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTb\STX\NUL\SOH\DC2\EOT\225\ENQ\t\DC1\n\ + \\r\n\ + \\ENQ\EOTb\STX\NUL\ETX\DC2\EOT\225\ENQ\DC4\NAK\n\ + \\f\n\ + \\EOT\EOTb\STX\SOH\DC2\EOT\226\ENQ\STX\DC1\n\ + \\r\n\ + \\ENQ\EOTb\STX\SOH\ENQ\DC2\EOT\226\ENQ\STX\b\n\ + \\r\n\ + \\ENQ\EOTb\STX\SOH\SOH\DC2\EOT\226\ENQ\t\f\n\ + \\r\n\ + \\ENQ\EOTb\STX\SOH\ETX\DC2\EOT\226\ENQ\SI\DLE\n\ + \\f\n\ + \\STX\EOTc\DC2\ACK\229\ENQ\NUL\235\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTc\SOH\DC2\EOT\229\ENQ\b\FS\n\ + \\f\n\ + \\EOT\EOTc\STX\NUL\DC2\EOT\230\ENQ\STX*\n\ + \\r\n\ + \\ENQ\EOTc\STX\NUL\ACK\DC2\EOT\230\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTc\STX\NUL\SOH\DC2\EOT\230\ENQ\DC1%\n\ + \\r\n\ + \\ENQ\EOTc\STX\NUL\ETX\DC2\EOT\230\ENQ()\n\ + \\f\n\ + \\EOT\EOTc\STX\SOH\DC2\EOT\231\ENQ\STX&\n\ + \\r\n\ + \\ENQ\EOTc\STX\SOH\ACK\DC2\EOT\231\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTc\STX\SOH\SOH\DC2\EOT\231\ENQ\DC1!\n\ + \\r\n\ + \\ENQ\EOTc\STX\SOH\ETX\DC2\EOT\231\ENQ$%\n\ + \\f\n\ + \\EOT\EOTc\STX\STX\DC2\EOT\232\ENQ\STX-\n\ + \\r\n\ + \\ENQ\EOTc\STX\STX\ACK\DC2\EOT\232\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTc\STX\STX\SOH\DC2\EOT\232\ENQ\DC1(\n\ + \\r\n\ + \\ENQ\EOTc\STX\STX\ETX\DC2\EOT\232\ENQ+,\n\ + \\f\n\ + \\EOT\EOTc\STX\ETX\DC2\EOT\233\ENQ\STX*\n\ + \\r\n\ + \\ENQ\EOTc\STX\ETX\ACK\DC2\EOT\233\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTc\STX\ETX\SOH\DC2\EOT\233\ENQ\DC1%\n\ + \\r\n\ + \\ENQ\EOTc\STX\ETX\ETX\DC2\EOT\233\ENQ()\n\ + \\f\n\ + \\EOT\EOTc\STX\EOT\DC2\EOT\234\ENQ\STX'\n\ + \\r\n\ + \\ENQ\EOTc\STX\EOT\ACK\DC2\EOT\234\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTc\STX\EOT\SOH\DC2\EOT\234\ENQ\DC1\"\n\ + \\r\n\ + \\ENQ\EOTc\STX\EOT\ETX\DC2\EOT\234\ENQ%&\n\ + \\f\n\ + \\STX\EOTd\DC2\ACK\237\ENQ\NUL\248\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTd\SOH\DC2\EOT\237\ENQ\b\FS\n\ + \\f\n\ + \\EOT\EOTd\STX\NUL\DC2\EOT\238\ENQ\STX*\n\ + \\r\n\ + \\ENQ\EOTd\STX\NUL\ACK\DC2\EOT\238\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\NUL\SOH\DC2\EOT\238\ENQ\DC1%\n\ + \\r\n\ + \\ENQ\EOTd\STX\NUL\ETX\DC2\EOT\238\ENQ()\n\ + \\f\n\ + \\EOT\EOTd\STX\SOH\DC2\EOT\239\ENQ\STX&\n\ + \\r\n\ + \\ENQ\EOTd\STX\SOH\ACK\DC2\EOT\239\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\SOH\SOH\DC2\EOT\239\ENQ\DC1!\n\ + \\r\n\ + \\ENQ\EOTd\STX\SOH\ETX\DC2\EOT\239\ENQ$%\n\ + \\f\n\ + \\EOT\EOTd\STX\STX\DC2\EOT\240\ENQ\STX-\n\ + \\r\n\ + \\ENQ\EOTd\STX\STX\ACK\DC2\EOT\240\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\STX\SOH\DC2\EOT\240\ENQ\DC1(\n\ + \\r\n\ + \\ENQ\EOTd\STX\STX\ETX\DC2\EOT\240\ENQ+,\n\ + \\f\n\ + \\EOT\EOTd\STX\ETX\DC2\EOT\241\ENQ\STX,\n\ + \\r\n\ + \\ENQ\EOTd\STX\ETX\ACK\DC2\EOT\241\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\ETX\SOH\DC2\EOT\241\ENQ\DC1'\n\ + \\r\n\ + \\ENQ\EOTd\STX\ETX\ETX\DC2\EOT\241\ENQ*+\n\ + \\f\n\ + \\EOT\EOTd\STX\EOT\DC2\EOT\242\ENQ\STX*\n\ + \\r\n\ + \\ENQ\EOTd\STX\EOT\ACK\DC2\EOT\242\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\EOT\SOH\DC2\EOT\242\ENQ\DC1%\n\ + \\r\n\ + \\ENQ\EOTd\STX\EOT\ETX\DC2\EOT\242\ENQ()\n\ + \\f\n\ + \\EOT\EOTd\STX\ENQ\DC2\EOT\243\ENQ\STX&\n\ + \\r\n\ + \\ENQ\EOTd\STX\ENQ\ACK\DC2\EOT\243\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\ENQ\SOH\DC2\EOT\243\ENQ\DC1!\n\ + \\r\n\ + \\ENQ\EOTd\STX\ENQ\ETX\DC2\EOT\243\ENQ$%\n\ + \\f\n\ + \\EOT\EOTd\STX\ACK\DC2\EOT\244\ENQ\STX'\n\ + \\r\n\ + \\ENQ\EOTd\STX\ACK\ACK\DC2\EOT\244\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\ACK\SOH\DC2\EOT\244\ENQ\DC1\"\n\ + \\r\n\ + \\ENQ\EOTd\STX\ACK\ETX\DC2\EOT\244\ENQ%&\n\ + \\f\n\ + \\EOT\EOTd\STX\a\DC2\EOT\245\ENQ\STX(\n\ + \\r\n\ + \\ENQ\EOTd\STX\a\ACK\DC2\EOT\245\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\a\SOH\DC2\EOT\245\ENQ\DC1#\n\ + \\r\n\ + \\ENQ\EOTd\STX\a\ETX\DC2\EOT\245\ENQ&'\n\ + \\f\n\ + \\EOT\EOTd\STX\b\DC2\EOT\246\ENQ\STX\"\n\ + \\r\n\ + \\ENQ\EOTd\STX\b\ACK\DC2\EOT\246\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\b\SOH\DC2\EOT\246\ENQ\DC1\GS\n\ + \\r\n\ + \\ENQ\EOTd\STX\b\ETX\DC2\EOT\246\ENQ !\n\ + \\f\n\ + \\EOT\EOTd\STX\t\DC2\EOT\247\ENQ\STX*\n\ + \\r\n\ + \\ENQ\EOTd\STX\t\ACK\DC2\EOT\247\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTd\STX\t\SOH\DC2\EOT\247\ENQ\DC1$\n\ + \\r\n\ + \\ENQ\EOTd\STX\t\ETX\DC2\EOT\247\ENQ')\n\ + \\f\n\ + \\STX\EOTe\DC2\ACK\250\ENQ\NUL\253\ENQ\SOH\n\ + \\v\n\ + \\ETX\EOTe\SOH\DC2\EOT\250\ENQ\b\DC1\n\ + \\f\n\ + \\EOT\EOTe\STX\NUL\DC2\EOT\251\ENQ\STX\"\n\ + \\r\n\ + \\ENQ\EOTe\STX\NUL\ACK\DC2\EOT\251\ENQ\STX\NAK\n\ + \\r\n\ + \\ENQ\EOTe\STX\NUL\SOH\DC2\EOT\251\ENQ\SYN\GS\n\ + \\r\n\ + \\ENQ\EOTe\STX\NUL\ETX\DC2\EOT\251\ENQ !\n\ + \\f\n\ + \\EOT\EOTe\STX\SOH\DC2\EOT\252\ENQ\STX\US\n\ + \\r\n\ + \\ENQ\EOTe\STX\SOH\ACK\DC2\EOT\252\ENQ\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTe\STX\SOH\SOH\DC2\EOT\252\ENQ\DC1\SUB\n\ + \\r\n\ + \\ENQ\EOTe\STX\SOH\ETX\DC2\EOT\252\ENQ\GS\RS\n\ + \\f\n\ + \\STX\EOTf\DC2\ACK\255\ENQ\NUL\132\ACK\SOH\n\ + \\v\n\ + \\ETX\EOTf\SOH\DC2\EOT\255\ENQ\b\DC4\n\ + \\f\n\ + \\EOT\EOTf\STX\NUL\DC2\EOT\128\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTf\STX\NUL\ACK\DC2\EOT\128\ACK\STX\v\n\ + \\r\n\ + \\ENQ\EOTf\STX\NUL\SOH\DC2\EOT\128\ACK\f\NAK\n\ + \\r\n\ + \\ENQ\EOTf\STX\NUL\ETX\DC2\EOT\128\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTf\STX\SOH\DC2\EOT\129\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTf\STX\SOH\ACK\DC2\EOT\129\ACK\STX\v\n\ + \\r\n\ + \\ENQ\EOTf\STX\SOH\SOH\DC2\EOT\129\ACK\f\NAK\n\ + \\r\n\ + \\ENQ\EOTf\STX\SOH\ETX\DC2\EOT\129\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTf\STX\STX\DC2\EOT\130\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTf\STX\STX\ACK\DC2\EOT\130\ACK\STX\v\n\ + \\r\n\ + \\ENQ\EOTf\STX\STX\SOH\DC2\EOT\130\ACK\f\NAK\n\ + \\r\n\ + \\ENQ\EOTf\STX\STX\ETX\DC2\EOT\130\ACK\CAN\EM\n\ + \\f\n\ + \\EOT\EOTf\STX\ETX\DC2\EOT\131\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTf\STX\ETX\ACK\DC2\EOT\131\ACK\STX\v\n\ + \\r\n\ + \\ENQ\EOTf\STX\ETX\SOH\DC2\EOT\131\ACK\f\NAK\n\ + \\r\n\ + \\ENQ\EOTf\STX\ETX\ETX\DC2\EOT\131\ACK\CAN\EM\n\ + \U\n\ + \\STX\EOTg\DC2\ACK\135\ACK\NUL\185\ACK\SOH\SUBG Unified Genesis configuration containing all parameters from all eras\n\ + \\n\ + \\v\n\ + \\ETX\EOTg\SOH\DC2\EOT\135\ACK\b\SI\n\ + \:\n\ + \\EOT\EOTg\STX\NUL\DC2\EOT\137\ACK\STX%\SUB, ============ Byron Era Fields ============\n\ + \\n\ + \\r\n\ + \\ENQ\EOTg\STX\NUL\ACK\DC2\EOT\137\ACK\STX\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX\NUL\SOH\DC2\EOT\137\ACK\SYN \n\ + \\r\n\ + \\ENQ\EOTg\STX\NUL\ETX\DC2\EOT\137\ACK#$\n\ + \\f\n\ + \\EOT\EOTg\STX\SOH\DC2\EOT\138\ACK\STX*\n\ + \\r\n\ + \\ENQ\EOTg\STX\SOH\ACK\DC2\EOT\138\ACK\STX\DC2\n\ + \\r\n\ + \\ENQ\EOTg\STX\SOH\SOH\DC2\EOT\138\ACK\DC3%\n\ + \\r\n\ + \\ENQ\EOTg\STX\SOH\ETX\DC2\EOT\138\ACK()\n\ + \\f\n\ + \\EOT\EOTg\STX\STX\DC2\EOT\139\ACK\STX\SYN\n\ + \\r\n\ + \\ENQ\EOTg\STX\STX\ENQ\DC2\EOT\139\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\STX\SOH\DC2\EOT\139\ACK\t\DC1\n\ + \\r\n\ + \\ENQ\EOTg\STX\STX\ETX\DC2\EOT\139\ACK\DC4\NAK\n\ + \\f\n\ + \\EOT\EOTg\STX\ETX\DC2\EOT\140\ACK\STX%\n\ + \\r\n\ + \\ENQ\EOTg\STX\ETX\ACK\DC2\EOT\140\ACK\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTg\STX\ETX\SOH\DC2\EOT\140\ACK\DC1 \n\ + \\r\n\ + \\ENQ\EOTg\STX\ETX\ETX\DC2\EOT\140\ACK#$\n\ + \\f\n\ + \\EOT\EOTg\STX\EOT\DC2\EOT\141\ACK\STX\CAN\n\ + \\r\n\ + \\ENQ\EOTg\STX\EOT\ENQ\DC2\EOT\141\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\EOT\SOH\DC2\EOT\141\ACK\t\DC3\n\ + \\r\n\ + \\ENQ\EOTg\STX\EOT\ETX\DC2\EOT\141\ACK\SYN\ETB\n\ + \\f\n\ + \\EOT\EOTg\STX\ENQ\DC2\EOT\142\ACK\STX,\n\ + \\r\n\ + \\ENQ\EOTg\STX\ENQ\ACK\DC2\EOT\142\ACK\STX\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX\ENQ\SOH\DC2\EOT\142\ACK\SYN'\n\ + \\r\n\ + \\ENQ\EOTg\STX\ENQ\ETX\DC2\EOT\142\ACK*+\n\ + \\f\n\ + \\EOT\EOTg\STX\ACK\DC2\EOT\143\ACK\STX4\n\ + \\r\n\ + \\ENQ\EOTg\STX\ACK\ACK\DC2\EOT\143\ACK\STX\RS\n\ + \\r\n\ + \\ENQ\EOTg\STX\ACK\SOH\DC2\EOT\143\ACK\US/\n\ + \\r\n\ + \\ENQ\EOTg\STX\ACK\ETX\DC2\EOT\143\ACK23\n\ + \\f\n\ + \\EOT\EOTg\STX\a\DC2\EOT\144\ACK\STX,\n\ + \\r\n\ + \\ENQ\EOTg\STX\a\ACK\DC2\EOT\144\ACK\STX\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX\a\SOH\DC2\EOT\144\ACK\SYN'\n\ + \\r\n\ + \\ENQ\EOTg\STX\a\ETX\DC2\EOT\144\ACK*+\n\ + \\f\n\ + \\EOT\EOTg\STX\b\DC2\EOT\145\ACK\STX%\n\ + \\r\n\ + \\ENQ\EOTg\STX\b\ACK\DC2\EOT\145\ACK\STX\SYN\n\ + \\r\n\ + \\ENQ\EOTg\STX\b\SOH\DC2\EOT\145\ACK\ETB \n\ + \\r\n\ + \\ENQ\EOTg\STX\b\ETX\DC2\EOT\145\ACK#$\n\ + \<\n\ + \\EOT\EOTg\STX\t\DC2\EOT\148\ACK\STX)\SUB. ============ Shelley Era Fields ============\n\ + \\n\ + \\r\n\ + \\ENQ\EOTg\STX\t\ACK\DC2\EOT\148\ACK\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTg\STX\t\SOH\DC2\EOT\148\ACK\DC1#\n\ + \\r\n\ + \\ENQ\EOTg\STX\t\ETX\DC2\EOT\148\ACK&(\n\ + \\f\n\ + \\EOT\EOTg\STX\n\ + \\DC2\EOT\149\ACK\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX\n\ + \\ENQ\DC2\EOT\149\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\n\ + \\SOH\DC2\EOT\149\ACK\t\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX\n\ + \\ETX\DC2\EOT\149\ACK\CAN\SUB\n\ + \\f\n\ + \\EOT\EOTg\STX\v\DC2\EOT\150\ACK\STX)\n\ + \\r\n\ + \\ENQ\EOTg\STX\v\ACK\DC2\EOT\150\ACK\STX\CAN\n\ + \\r\n\ + \\ENQ\EOTg\STX\v\SOH\DC2\EOT\150\ACK\EM#\n\ + \\r\n\ + \\ENQ\EOTg\STX\v\ETX\DC2\EOT\150\ACK&(\n\ + \\f\n\ + \\EOT\EOTg\STX\f\DC2\EOT\151\ACK\STX)\n\ + \\r\n\ + \\ENQ\EOTg\STX\f\ACK\DC2\EOT\151\ACK\STX\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX\f\SOH\DC2\EOT\151\ACK\SYN#\n\ + \\r\n\ + \\ENQ\EOTg\STX\f\ETX\DC2\EOT\151\ACK&(\n\ + \\f\n\ + \\EOT\EOTg\STX\r\DC2\EOT\152\ACK\STX!\n\ + \\r\n\ + \\ENQ\EOTg\STX\r\ENQ\DC2\EOT\152\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\r\SOH\DC2\EOT\152\ACK\t\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX\r\ETX\DC2\EOT\152\ACK\RS \n\ + \\f\n\ + \\EOT\EOTg\STX\SO\DC2\EOT\153\ACK\STX\"\n\ + \\r\n\ + \\ENQ\EOTg\STX\SO\ACK\DC2\EOT\153\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\SO\SOH\DC2\EOT\153\ACK\t\FS\n\ + \\r\n\ + \\ENQ\EOTg\STX\SO\ETX\DC2\EOT\153\ACK\US!\n\ + \\f\n\ + \\EOT\EOTg\STX\SI\DC2\EOT\154\ACK\STX\EM\n\ + \\r\n\ + \\ENQ\EOTg\STX\SI\ENQ\DC2\EOT\154\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\SI\SOH\DC2\EOT\154\ACK\t\DC3\n\ + \\r\n\ + \\ENQ\EOTg\STX\SI\ETX\DC2\EOT\154\ACK\SYN\CAN\n\ + \\f\n\ + \\EOT\EOTg\STX\DLE\DC2\EOT\155\ACK\STX\FS\n\ + \\r\n\ + \\ENQ\EOTg\STX\DLE\ENQ\DC2\EOT\155\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\DLE\SOH\DC2\EOT\155\ACK\t\SYN\n\ + \\r\n\ + \\ENQ\EOTg\STX\DLE\ETX\DC2\EOT\155\ACK\EM\ESC\n\ + \K\n\ + \\EOT\EOTg\STX\DC1\DC2\EOT\156\ACK\STX\US\"= Using PParams as it's a superset of all protocol parameters\n\ + \\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC1\ACK\DC2\EOT\156\ACK\STX\t\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC1\SOH\DC2\EOT\156\ACK\n\ + \\EM\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC1\ETX\DC2\EOT\156\ACK\FS\RS\n\ + \\f\n\ + \\EOT\EOTg\STX\DC2\DC2\EOT\157\ACK\STX\GS\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC2\ENQ\DC2\EOT\157\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC2\SOH\DC2\EOT\157\ACK\t\ETB\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC2\ETX\DC2\EOT\157\ACK\SUB\FS\n\ + \\f\n\ + \\EOT\EOTg\STX\DC3\DC2\EOT\158\ACK\STX\SUB\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC3\ENQ\DC2\EOT\158\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC3\SOH\DC2\EOT\158\ACK\t\DC4\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC3\ETX\DC2\EOT\158\ACK\ETB\EM\n\ + \\f\n\ + \\EOT\EOTg\STX\DC4\DC2\EOT\159\ACK\STX#\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC4\ENQ\DC2\EOT\159\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC4\SOH\DC2\EOT\159\ACK\t\GS\n\ + \\r\n\ + \\ENQ\EOTg\STX\DC4\ETX\DC2\EOT\159\ACK \"\n\ + \\f\n\ + \\EOT\EOTg\STX\NAK\DC2\EOT\160\ACK\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX\NAK\ENQ\DC2\EOT\160\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\NAK\SOH\DC2\EOT\160\ACK\t\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX\NAK\ETX\DC2\EOT\160\ACK\CAN\SUB\n\ + \\f\n\ + \\EOT\EOTg\STX\SYN\DC2\EOT\161\ACK\STX\FS\n\ + \\r\n\ + \\ENQ\EOTg\STX\SYN\ENQ\DC2\EOT\161\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\SYN\SOH\DC2\EOT\161\ACK\t\SYN\n\ + \\r\n\ + \\ENQ\EOTg\STX\SYN\ETX\DC2\EOT\161\ACK\EM\ESC\n\ + \;\n\ + \\EOT\EOTg\STX\ETB\DC2\EOT\164\ACK\STX%\SUB- ============ Alonzo Era Fields ============\n\ + \\n\ + \\r\n\ + \\ENQ\EOTg\STX\ETB\ACK\DC2\EOT\164\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\ETB\SOH\DC2\EOT\164\ACK\t\US\n\ + \\r\n\ + \\ENQ\EOTg\STX\ETB\ETX\DC2\EOT\164\ACK\"$\n\ + \\f\n\ + \\EOT\EOTg\STX\CAN\DC2\EOT\165\ACK\STX!\n\ + \\r\n\ + \\ENQ\EOTg\STX\CAN\ACK\DC2\EOT\165\ACK\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOTg\STX\CAN\SOH\DC2\EOT\165\ACK\v\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX\CAN\ETX\DC2\EOT\165\ACK\RS \n\ + \\f\n\ + \\EOT\EOTg\STX\EM\DC2\EOT\166\ACK\STX\US\n\ + \\r\n\ + \\ENQ\EOTg\STX\EM\ACK\DC2\EOT\166\ACK\STX\t\n\ + \\r\n\ + \\ENQ\EOTg\STX\EM\SOH\DC2\EOT\166\ACK\n\ + \\EM\n\ + \\r\n\ + \\ENQ\EOTg\STX\EM\ETX\DC2\EOT\166\ACK\FS\RS\n\ + \\f\n\ + \\EOT\EOTg\STX\SUB\DC2\EOT\167\ACK\STX\"\n\ + \\r\n\ + \\ENQ\EOTg\STX\SUB\ACK\DC2\EOT\167\ACK\STX\t\n\ + \\r\n\ + \\ENQ\EOTg\STX\SUB\SOH\DC2\EOT\167\ACK\n\ + \\FS\n\ + \\r\n\ + \\ENQ\EOTg\STX\SUB\ETX\DC2\EOT\167\ACK\US!\n\ + \\f\n\ + \\EOT\EOTg\STX\ESC\DC2\EOT\168\ACK\STX\GS\n\ + \\r\n\ + \\ENQ\EOTg\STX\ESC\ENQ\DC2\EOT\168\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\ESC\SOH\DC2\EOT\168\ACK\t\ETB\n\ + \\r\n\ + \\ENQ\EOTg\STX\ESC\ETX\DC2\EOT\168\ACK\SUB\FS\n\ + \\f\n\ + \\EOT\EOTg\STX\FS\DC2\EOT\169\ACK\STX$\n\ + \\r\n\ + \\ENQ\EOTg\STX\FS\ENQ\DC2\EOT\169\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\FS\SOH\DC2\EOT\169\ACK\t\RS\n\ + \\r\n\ + \\ENQ\EOTg\STX\FS\ETX\DC2\EOT\169\ACK!#\n\ + \\f\n\ + \\EOT\EOTg\STX\GS\DC2\EOT\170\ACK\STX$\n\ + \\r\n\ + \\ENQ\EOTg\STX\GS\ENQ\DC2\EOT\170\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\GS\SOH\DC2\EOT\170\ACK\t\RS\n\ + \\r\n\ + \\ENQ\EOTg\STX\GS\ETX\DC2\EOT\170\ACK!#\n\ + \\f\n\ + \\EOT\EOTg\STX\RS\DC2\EOT\171\ACK\STX \n\ + \\r\n\ + \\ENQ\EOTg\STX\RS\ACK\DC2\EOT\171\ACK\STX\SO\n\ + \\r\n\ + \\ENQ\EOTg\STX\RS\SOH\DC2\EOT\171\ACK\SI\SUB\n\ + \\r\n\ + \\ENQ\EOTg\STX\RS\ETX\DC2\EOT\171\ACK\GS\US\n\ + \;\n\ + \\EOT\EOTg\STX\US\DC2\EOT\174\ACK\STX\ESC\SUB- ============ Conway Era Fields ============\n\ + \\n\ + \\r\n\ + \\ENQ\EOTg\STX\US\ACK\DC2\EOT\174\ACK\STX\v\n\ + \\r\n\ + \\ENQ\EOTg\STX\US\SOH\DC2\EOT\174\ACK\f\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX\US\ETX\DC2\EOT\174\ACK\CAN\SUB\n\ + \\f\n\ + \\EOT\EOTg\STX \DC2\EOT\175\ACK\STX!\n\ + \\r\n\ + \\ENQ\EOTg\STX \ACK\DC2\EOT\175\ACK\STX\SO\n\ + \\r\n\ + \\ENQ\EOTg\STX \SOH\DC2\EOT\175\ACK\SI\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX \ETX\DC2\EOT\175\ACK\RS \n\ + \\f\n\ + \\EOT\EOTg\STX!\DC2\EOT\176\ACK\STX!\n\ + \\r\n\ + \\ENQ\EOTg\STX!\ENQ\DC2\EOT\176\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX!\SOH\DC2\EOT\176\ACK\t\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX!\ETX\DC2\EOT\176\ACK\RS \n\ + \\f\n\ + \\EOT\EOTg\STX\"\DC2\EOT\177\ACK\STX(\n\ + \\r\n\ + \\ENQ\EOTg\STX\"\ENQ\DC2\EOT\177\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX\"\SOH\DC2\EOT\177\ACK\t\"\n\ + \\r\n\ + \\ENQ\EOTg\STX\"\ETX\DC2\EOT\177\ACK%'\n\ + \\f\n\ + \\EOT\EOTg\STX#\DC2\EOT\178\ACK\STX\"\n\ + \\r\n\ + \\ENQ\EOTg\STX#\ENQ\DC2\EOT\178\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX#\SOH\DC2\EOT\178\ACK\t\FS\n\ + \\r\n\ + \\ENQ\EOTg\STX#\ETX\DC2\EOT\178\ACK\US!\n\ + \\f\n\ + \\EOT\EOTg\STX$\DC2\EOT\179\ACK\STX!\n\ + \\r\n\ + \\ENQ\EOTg\STX$\ACK\DC2\EOT\179\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX$\SOH\DC2\EOT\179\ACK\t\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX$\ETX\DC2\EOT\179\ACK\RS \n\ + \\f\n\ + \\EOT\EOTg\STX%\DC2\EOT\180\ACK\STX\ESC\n\ + \\r\n\ + \\ENQ\EOTg\STX%\ACK\DC2\EOT\180\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX%\SOH\DC2\EOT\180\ACK\t\NAK\n\ + \\r\n\ + \\ENQ\EOTg\STX%\ETX\DC2\EOT\180\ACK\CAN\SUB\n\ + \\f\n\ + \\EOT\EOTg\STX&\DC2\EOT\181\ACK\STX\FS\n\ + \\r\n\ + \\ENQ\EOTg\STX&\ENQ\DC2\EOT\181\ACK\STX\b\n\ + \\r\n\ + \\ENQ\EOTg\STX&\SOH\DC2\EOT\181\ACK\t\SYN\n\ + \\r\n\ + \\ENQ\EOTg\STX&\ETX\DC2\EOT\181\ACK\EM\ESC\n\ + \\f\n\ + \\EOT\EOTg\STX'\DC2\EOT\182\ACK\STX7\n\ + \\r\n\ + \\ENQ\EOTg\STX'\ACK\DC2\EOT\182\ACK\STX\DLE\n\ + \\r\n\ + \\ENQ\EOTg\STX'\SOH\DC2\EOT\182\ACK\DC11\n\ + \\r\n\ + \\ENQ\EOTg\STX'\ETX\DC2\EOT\182\ACK46\n\ + \\f\n\ + \\EOT\EOTg\STX(\DC2\EOT\183\ACK\STX3\n\ + \\r\n\ + \\ENQ\EOTg\STX(\ACK\DC2\EOT\183\ACK\STX\SYN\n\ + \\r\n\ + \\ENQ\EOTg\STX(\SOH\DC2\EOT\183\ACK\ETB-\n\ + \\r\n\ + \\ENQ\EOTg\STX(\ETX\DC2\EOT\183\ACK02\n\ + \\f\n\ + \\EOT\EOTg\STX)\DC2\EOT\184\ACK\STX3\n\ + \\r\n\ + \\ENQ\EOTg\STX)\ACK\DC2\EOT\184\ACK\STX\SYN\n\ + \\r\n\ + \\ENQ\EOTg\STX)\SOH\DC2\EOT\184\ACK\ETB-\n\ + \\r\n\ + \\ENQ\EOTg\STX)\ETX\DC2\EOT\184\ACK02b\ACKproto3" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano_Fields.hs b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano_Fields.hs new file mode 100644 index 0000000000..350c7500ee --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Cardano/Cardano_Fields.hs @@ -0,0 +1,2903 @@ +{- This file was auto-generated from utxorpc/v1beta/cardano/cardano.proto by the proto-lens-protoc program. -} +{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} +{-# OPTIONS_GHC -Wno-unused-imports#-} +{-# OPTIONS_GHC -Wno-duplicate-exports#-} +{-# OPTIONS_GHC -Wno-dodgy-exports#-} +module Proto.Utxorpc.V1beta.Cardano.Cardano_Fields where +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 +abstain :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "abstain" a) => + Lens.Family2.LensLike' f s a +abstain = Data.ProtoLens.Field.field @"abstain" +activeSlotsCoeff :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "activeSlotsCoeff" a) => + Lens.Family2.LensLike' f s a +activeSlotsCoeff = Data.ProtoLens.Field.field @"activeSlotsCoeff" +addrKeyHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "addrKeyHash" a) => + Lens.Family2.LensLike' f s a +addrKeyHash = Data.ProtoLens.Field.field @"addrKeyHash" +address :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "address" a) => + Lens.Family2.LensLike' f s a +address = Data.ProtoLens.Field.field @"address" +anchor :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "anchor" a) => + Lens.Family2.LensLike' f s a +anchor = Data.ProtoLens.Field.field @"anchor" +anyConstructor :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "anyConstructor" a) => + Lens.Family2.LensLike' f s a +anyConstructor = Data.ProtoLens.Field.field @"anyConstructor" +anyDrep :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "anyDrep" a) => + Lens.Family2.LensLike' f s a +anyDrep = Data.ProtoLens.Field.field @"anyDrep" +anyPoolKeyhash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "anyPoolKeyhash" a) => + Lens.Family2.LensLike' f s a +anyPoolKeyhash = Data.ProtoLens.Field.field @"anyPoolKeyhash" +anyStakeCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "anyStakeCredential" a) => + Lens.Family2.LensLike' f s a +anyStakeCredential + = Data.ProtoLens.Field.field @"anyStakeCredential" +array :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "array" a) => + Lens.Family2.LensLike' f s a +array = Data.ProtoLens.Field.field @"array" +asOutput :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "asOutput" a) => + Lens.Family2.LensLike' f s a +asOutput = Data.ProtoLens.Field.field @"asOutput" +asset :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "asset" a) => + Lens.Family2.LensLike' f s a +asset = Data.ProtoLens.Field.field @"asset" +assetName :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "assetName" a) => + Lens.Family2.LensLike' f s a +assetName = Data.ProtoLens.Field.field @"assetName" +assets :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "assets" a) => + Lens.Family2.LensLike' f s a +assets = Data.ProtoLens.Field.field @"assets" +attributes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "attributes" a) => + Lens.Family2.LensLike' f s a +attributes = Data.ProtoLens.Field.field @"attributes" +authCommitteeHotCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "authCommitteeHotCert" a) => + Lens.Family2.LensLike' f s a +authCommitteeHotCert + = Data.ProtoLens.Field.field @"authCommitteeHotCert" +auxiliary :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "auxiliary" a) => + Lens.Family2.LensLike' f s a +auxiliary = Data.ProtoLens.Field.field @"auxiliary" +avvmDistr :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "avvmDistr" a) => + Lens.Family2.LensLike' f s a +avvmDistr = Data.ProtoLens.Field.field @"avvmDistr" +bigInt :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bigInt" a) => + Lens.Family2.LensLike' f s a +bigInt = Data.ProtoLens.Field.field @"bigInt" +bigNInt :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bigNInt" a) => + Lens.Family2.LensLike' f s a +bigNInt = Data.ProtoLens.Field.field @"bigNInt" +bigUInt :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bigUInt" a) => + Lens.Family2.LensLike' f s a +bigUInt = Data.ProtoLens.Field.field @"bigUInt" +blockVersionData :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "blockVersionData" a) => + Lens.Family2.LensLike' f s a +blockVersionData = Data.ProtoLens.Field.field @"blockVersionData" +body :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "body" a) => + Lens.Family2.LensLike' f s a +body = Data.ProtoLens.Field.field @"body" +bootStakeholders :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "bootStakeholders" a) => + Lens.Family2.LensLike' f s a +bootStakeholders = Data.ProtoLens.Field.field @"bootStakeholders" +bootstrapWitnesses :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "bootstrapWitnesses" a) => + Lens.Family2.LensLike' f s a +bootstrapWitnesses + = Data.ProtoLens.Field.field @"bootstrapWitnesses" +boundedBytes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "boundedBytes" a) => + Lens.Family2.LensLike' f s a +boundedBytes = Data.ProtoLens.Field.field @"boundedBytes" +bytes :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "bytes" a) => + Lens.Family2.LensLike' f s a +bytes = Data.ProtoLens.Field.field @"bytes" +cert :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "cert" a) => + Lens.Family2.LensLike' f s a +cert = Data.ProtoLens.Field.field @"cert" +certificates :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "certificates" a) => + Lens.Family2.LensLike' f s a +certificates = Data.ProtoLens.Field.field @"certificates" +chainCode :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "chainCode" a) => + Lens.Family2.LensLike' f s a +chainCode = Data.ProtoLens.Field.field @"chainCode" +coin :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "coin" a) => + Lens.Family2.LensLike' f s a +coin = Data.ProtoLens.Field.field @"coin" +coinsPerUtxoByte :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "coinsPerUtxoByte" a) => + Lens.Family2.LensLike' f s a +coinsPerUtxoByte = Data.ProtoLens.Field.field @"coinsPerUtxoByte" +collateral :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "collateral" a) => + Lens.Family2.LensLike' f s a +collateral = Data.ProtoLens.Field.field @"collateral" +collateralPercentage :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "collateralPercentage" a) => + Lens.Family2.LensLike' f s a +collateralPercentage + = Data.ProtoLens.Field.field @"collateralPercentage" +collateralReturn :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "collateralReturn" a) => + Lens.Family2.LensLike' f s a +collateralReturn = Data.ProtoLens.Field.field @"collateralReturn" +committee :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committee" a) => + Lens.Family2.LensLike' f s a +committee = Data.ProtoLens.Field.field @"committee" +committeeColdCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committeeColdCredential" a) => + Lens.Family2.LensLike' f s a +committeeColdCredential + = Data.ProtoLens.Field.field @"committeeColdCredential" +committeeHotCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committeeHotCredential" a) => + Lens.Family2.LensLike' f s a +committeeHotCredential + = Data.ProtoLens.Field.field @"committeeHotCredential" +committeeMaxTermLength :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committeeMaxTermLength" a) => + Lens.Family2.LensLike' f s a +committeeMaxTermLength + = Data.ProtoLens.Field.field @"committeeMaxTermLength" +committeeMinSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committeeMinSize" a) => + Lens.Family2.LensLike' f s a +committeeMinSize = Data.ProtoLens.Field.field @"committeeMinSize" +committeeNoConfidence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committeeNoConfidence" a) => + Lens.Family2.LensLike' f s a +committeeNoConfidence + = Data.ProtoLens.Field.field @"committeeNoConfidence" +committeeNormal :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committeeNormal" a) => + Lens.Family2.LensLike' f s a +committeeNormal = Data.ProtoLens.Field.field @"committeeNormal" +committeeTermLimit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "committeeTermLimit" a) => + Lens.Family2.LensLike' f s a +committeeTermLimit + = Data.ProtoLens.Field.field @"committeeTermLimit" +constitution :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "constitution" a) => + Lens.Family2.LensLike' f s a +constitution = Data.ProtoLens.Field.field @"constitution" +constr :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "constr" a) => + Lens.Family2.LensLike' f s a +constr = Data.ProtoLens.Field.field @"constr" +consumes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "consumes" a) => + Lens.Family2.LensLike' f s a +consumes = Data.ProtoLens.Field.field @"consumes" +contentHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "contentHash" a) => + Lens.Family2.LensLike' f s a +contentHash = Data.ProtoLens.Field.field @"contentHash" +cost :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "cost" a) => + Lens.Family2.LensLike' f s a +cost = Data.ProtoLens.Field.field @"cost" +costModels :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "costModels" a) => + Lens.Family2.LensLike' f s a +costModels = Data.ProtoLens.Field.field @"costModels" +datum :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "datum" a) => + Lens.Family2.LensLike' f s a +datum = Data.ProtoLens.Field.field @"datum" +delegate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "delegate" a) => + Lens.Family2.LensLike' f s a +delegate = Data.ProtoLens.Field.field @"delegate" +delegatePk :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "delegatePk" a) => + Lens.Family2.LensLike' f s a +delegatePk = Data.ProtoLens.Field.field @"delegatePk" +delegationPart :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "delegationPart" a) => + Lens.Family2.LensLike' f s a +delegationPart = Data.ProtoLens.Field.field @"delegationPart" +deltaCoin :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "deltaCoin" a) => + Lens.Family2.LensLike' f s a +deltaCoin = Data.ProtoLens.Field.field @"deltaCoin" +denominator :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "denominator" a) => + Lens.Family2.LensLike' f s a +denominator = Data.ProtoLens.Field.field @"denominator" +deposit :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "deposit" a) => + Lens.Family2.LensLike' f s a +deposit = Data.ProtoLens.Field.field @"deposit" +desiredNumberOfPools :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "desiredNumberOfPools" a) => + Lens.Family2.LensLike' f s a +desiredNumberOfPools + = Data.ProtoLens.Field.field @"desiredNumberOfPools" +dnsName :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "dnsName" a) => + Lens.Family2.LensLike' f s a +dnsName = Data.ProtoLens.Field.field @"dnsName" +drep :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "drep" a) => + Lens.Family2.LensLike' f s a +drep = Data.ProtoLens.Field.field @"drep" +drepActivity :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "drepActivity" a) => + Lens.Family2.LensLike' f s a +drepActivity = Data.ProtoLens.Field.field @"drepActivity" +drepCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "drepCredential" a) => + Lens.Family2.LensLike' f s a +drepCredential = Data.ProtoLens.Field.field @"drepCredential" +drepDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "drepDeposit" a) => + Lens.Family2.LensLike' f s a +drepDeposit = Data.ProtoLens.Field.field @"drepDeposit" +drepInactivityPeriod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "drepInactivityPeriod" a) => + Lens.Family2.LensLike' f s a +drepInactivityPeriod + = Data.ProtoLens.Field.field @"drepInactivityPeriod" +drepVotingThresholds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "drepVotingThresholds" a) => + Lens.Family2.LensLike' f s a +drepVotingThresholds + = Data.ProtoLens.Field.field @"drepVotingThresholds" +end :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "end" a) => + Lens.Family2.LensLike' f s a +end = Data.ProtoLens.Field.field @"end" +epoch :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "epoch" a) => + Lens.Family2.LensLike' f s a +epoch = Data.ProtoLens.Field.field @"epoch" +epochLength :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "epochLength" a) => + Lens.Family2.LensLike' f s a +epochLength = Data.ProtoLens.Field.field @"epochLength" +errors :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "errors" a) => + Lens.Family2.LensLike' f s a +errors = Data.ProtoLens.Field.field @"errors" +exUnits :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "exUnits" a) => + Lens.Family2.LensLike' f s a +exUnits = Data.ProtoLens.Field.field @"exUnits" +exactAddress :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "exactAddress" a) => + Lens.Family2.LensLike' f s a +exactAddress = Data.ProtoLens.Field.field @"exactAddress" +executionPrices :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "executionPrices" a) => + Lens.Family2.LensLike' f s a +executionPrices = Data.ProtoLens.Field.field @"executionPrices" +expiresEpoch :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "expiresEpoch" a) => + Lens.Family2.LensLike' f s a +expiresEpoch = Data.ProtoLens.Field.field @"expiresEpoch" +expiryEpoch :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "expiryEpoch" a) => + Lens.Family2.LensLike' f s a +expiryEpoch = Data.ProtoLens.Field.field @"expiryEpoch" +fee :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fee" a) => + Lens.Family2.LensLike' f s a +fee = Data.ProtoLens.Field.field @"fee" +fields :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fields" a) => + Lens.Family2.LensLike' f s a +fields = Data.ProtoLens.Field.field @"fields" +from :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "from" a) => + Lens.Family2.LensLike' f s a +from = Data.ProtoLens.Field.field @"from" +ftsSeed :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ftsSeed" a) => + Lens.Family2.LensLike' f s a +ftsSeed = Data.ProtoLens.Field.field @"ftsSeed" +genDelegs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "genDelegs" a) => + Lens.Family2.LensLike' f s a +genDelegs = Data.ProtoLens.Field.field @"genDelegs" +genesisDelegateHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "genesisDelegateHash" a) => + Lens.Family2.LensLike' f s a +genesisDelegateHash + = Data.ProtoLens.Field.field @"genesisDelegateHash" +genesisHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "genesisHash" a) => + Lens.Family2.LensLike' f s a +genesisHash = Data.ProtoLens.Field.field @"genesisHash" +genesisKeyDelegation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "genesisKeyDelegation" a) => + Lens.Family2.LensLike' f s a +genesisKeyDelegation + = Data.ProtoLens.Field.field @"genesisKeyDelegation" +govAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "govAction" a) => + Lens.Family2.LensLike' f s a +govAction = Data.ProtoLens.Field.field @"govAction" +govActionDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "govActionDeposit" a) => + Lens.Family2.LensLike' f s a +govActionDeposit = Data.ProtoLens.Field.field @"govActionDeposit" +govActionId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "govActionId" a) => + Lens.Family2.LensLike' f s a +govActionId = Data.ProtoLens.Field.field @"govActionId" +govActionLifetime :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "govActionLifetime" a) => + Lens.Family2.LensLike' f s a +govActionLifetime = Data.ProtoLens.Field.field @"govActionLifetime" +governanceActionDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "governanceActionDeposit" a) => + Lens.Family2.LensLike' f s a +governanceActionDeposit + = Data.ProtoLens.Field.field @"governanceActionDeposit" +governanceActionIndex :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "governanceActionIndex" a) => + Lens.Family2.LensLike' f s a +governanceActionIndex + = Data.ProtoLens.Field.field @"governanceActionIndex" +governanceActionValidityPeriod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "governanceActionValidityPeriod" a) => + Lens.Family2.LensLike' f s a +governanceActionValidityPeriod + = Data.ProtoLens.Field.field @"governanceActionValidityPeriod" +hardForkInitiation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hardForkInitiation" a) => + Lens.Family2.LensLike' f s a +hardForkInitiation + = Data.ProtoLens.Field.field @"hardForkInitiation" +hardForkInitiationAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hardForkInitiationAction" a) => + Lens.Family2.LensLike' f s a +hardForkInitiationAction + = Data.ProtoLens.Field.field @"hardForkInitiationAction" +hasAddress :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hasAddress" a) => + Lens.Family2.LensLike' f s a +hasAddress = Data.ProtoLens.Field.field @"hasAddress" +hasCertificate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hasCertificate" a) => + Lens.Family2.LensLike' f s a +hasCertificate = Data.ProtoLens.Field.field @"hasCertificate" +hash :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "hash" a) => + Lens.Family2.LensLike' f s a +hash = Data.ProtoLens.Field.field @"hash" +header :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "header" a) => + Lens.Family2.LensLike' f s a +header = Data.ProtoLens.Field.field @"header" +heavyDelThd :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "heavyDelThd" a) => + Lens.Family2.LensLike' f s a +heavyDelThd = Data.ProtoLens.Field.field @"heavyDelThd" +heavyDelegation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "heavyDelegation" a) => + Lens.Family2.LensLike' f s a +heavyDelegation = Data.ProtoLens.Field.field @"heavyDelegation" +height :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "height" a) => + Lens.Family2.LensLike' f s a +height = Data.ProtoLens.Field.field @"height" +index :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "index" a) => + Lens.Family2.LensLike' f s a +index = Data.ProtoLens.Field.field @"index" +infoAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "infoAction" a) => + Lens.Family2.LensLike' f s a +infoAction = Data.ProtoLens.Field.field @"infoAction" +initThd :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "initThd" a) => + Lens.Family2.LensLike' f s a +initThd = Data.ProtoLens.Field.field @"initThd" +initialFunds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "initialFunds" a) => + Lens.Family2.LensLike' f s a +initialFunds = Data.ProtoLens.Field.field @"initialFunds" +inputs :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "inputs" a) => + Lens.Family2.LensLike' f s a +inputs = Data.ProtoLens.Field.field @"inputs" +int :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "int" a) => + Lens.Family2.LensLike' f s a +int = Data.ProtoLens.Field.field @"int" +invalidBefore :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "invalidBefore" a) => + Lens.Family2.LensLike' f s a +invalidBefore = Data.ProtoLens.Field.field @"invalidBefore" +invalidHereafter :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "invalidHereafter" a) => + Lens.Family2.LensLike' f s a +invalidHereafter = Data.ProtoLens.Field.field @"invalidHereafter" +ipV4 :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ipV4" a) => + Lens.Family2.LensLike' f s a +ipV4 = Data.ProtoLens.Field.field @"ipV4" +ipV6 :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ipV6" a) => + Lens.Family2.LensLike' f s a +ipV6 = Data.ProtoLens.Field.field @"ipV6" +issuerPk :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "issuerPk" a) => + Lens.Family2.LensLike' f s a +issuerPk = Data.ProtoLens.Field.field @"issuerPk" +items :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "items" a) => + Lens.Family2.LensLike' f s a +items = Data.ProtoLens.Field.field @"items" +k :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "k" a) => + Lens.Family2.LensLike' f s a +k = Data.ProtoLens.Field.field @"k" +key :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) => + Lens.Family2.LensLike' f s a +key = Data.ProtoLens.Field.field @"key" +label :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "label" a) => + Lens.Family2.LensLike' f s a +label = Data.ProtoLens.Field.field @"label" +lovelacePerUtxoWord :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "lovelacePerUtxoWord" a) => + Lens.Family2.LensLike' f s a +lovelacePerUtxoWord + = Data.ProtoLens.Field.field @"lovelacePerUtxoWord" +major :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "major" a) => + Lens.Family2.LensLike' f s a +major = Data.ProtoLens.Field.field @"major" +map :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "map" a) => + Lens.Family2.LensLike' f s a +map = Data.ProtoLens.Field.field @"map" +margin :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "margin" a) => + Lens.Family2.LensLike' f s a +margin = Data.ProtoLens.Field.field @"margin" +maxBlockBodySize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxBlockBodySize" a) => + Lens.Family2.LensLike' f s a +maxBlockBodySize = Data.ProtoLens.Field.field @"maxBlockBodySize" +maxBlockExUnits :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxBlockExUnits" a) => + Lens.Family2.LensLike' f s a +maxBlockExUnits = Data.ProtoLens.Field.field @"maxBlockExUnits" +maxBlockHeaderSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxBlockHeaderSize" a) => + Lens.Family2.LensLike' f s a +maxBlockHeaderSize + = Data.ProtoLens.Field.field @"maxBlockHeaderSize" +maxBlockSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxBlockSize" a) => + Lens.Family2.LensLike' f s a +maxBlockSize = Data.ProtoLens.Field.field @"maxBlockSize" +maxCollateralInputs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxCollateralInputs" a) => + Lens.Family2.LensLike' f s a +maxCollateralInputs + = Data.ProtoLens.Field.field @"maxCollateralInputs" +maxExecutionUnitsPerBlock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxExecutionUnitsPerBlock" a) => + Lens.Family2.LensLike' f s a +maxExecutionUnitsPerBlock + = Data.ProtoLens.Field.field @"maxExecutionUnitsPerBlock" +maxExecutionUnitsPerTransaction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxExecutionUnitsPerTransaction" a) => + Lens.Family2.LensLike' f s a +maxExecutionUnitsPerTransaction + = Data.ProtoLens.Field.field @"maxExecutionUnitsPerTransaction" +maxHeaderSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxHeaderSize" a) => + Lens.Family2.LensLike' f s a +maxHeaderSize = Data.ProtoLens.Field.field @"maxHeaderSize" +maxKesEvolutions :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxKesEvolutions" a) => + Lens.Family2.LensLike' f s a +maxKesEvolutions = Data.ProtoLens.Field.field @"maxKesEvolutions" +maxLovelaceSupply :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxLovelaceSupply" a) => + Lens.Family2.LensLike' f s a +maxLovelaceSupply = Data.ProtoLens.Field.field @"maxLovelaceSupply" +maxProposalSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxProposalSize" a) => + Lens.Family2.LensLike' f s a +maxProposalSize = Data.ProtoLens.Field.field @"maxProposalSize" +maxTxExUnits :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxTxExUnits" a) => + Lens.Family2.LensLike' f s a +maxTxExUnits = Data.ProtoLens.Field.field @"maxTxExUnits" +maxTxSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxTxSize" a) => + Lens.Family2.LensLike' f s a +maxTxSize = Data.ProtoLens.Field.field @"maxTxSize" +maxValueSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxValueSize" a) => + Lens.Family2.LensLike' f s a +maxValueSize = Data.ProtoLens.Field.field @"maxValueSize" +maybe'abstain :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'abstain" a) => + Lens.Family2.LensLike' f s a +maybe'abstain = Data.ProtoLens.Field.field @"maybe'abstain" +maybe'activeSlotsCoeff :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'activeSlotsCoeff" a) => + Lens.Family2.LensLike' f s a +maybe'activeSlotsCoeff + = Data.ProtoLens.Field.field @"maybe'activeSlotsCoeff" +maybe'addrKeyHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'addrKeyHash" a) => + Lens.Family2.LensLike' f s a +maybe'addrKeyHash = Data.ProtoLens.Field.field @"maybe'addrKeyHash" +maybe'address :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'address" a) => + Lens.Family2.LensLike' f s a +maybe'address = Data.ProtoLens.Field.field @"maybe'address" +maybe'anchor :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'anchor" a) => + Lens.Family2.LensLike' f s a +maybe'anchor = Data.ProtoLens.Field.field @"maybe'anchor" +maybe'anyDrep :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'anyDrep" a) => + Lens.Family2.LensLike' f s a +maybe'anyDrep = Data.ProtoLens.Field.field @"maybe'anyDrep" +maybe'anyPoolKeyhash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'anyPoolKeyhash" a) => + Lens.Family2.LensLike' f s a +maybe'anyPoolKeyhash + = Data.ProtoLens.Field.field @"maybe'anyPoolKeyhash" +maybe'anyStakeCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'anyStakeCredential" a) => + Lens.Family2.LensLike' f s a +maybe'anyStakeCredential + = Data.ProtoLens.Field.field @"maybe'anyStakeCredential" +maybe'array :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'array" a) => + Lens.Family2.LensLike' f s a +maybe'array = Data.ProtoLens.Field.field @"maybe'array" +maybe'asOutput :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'asOutput" a) => + Lens.Family2.LensLike' f s a +maybe'asOutput = Data.ProtoLens.Field.field @"maybe'asOutput" +maybe'asset :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'asset" a) => + Lens.Family2.LensLike' f s a +maybe'asset = Data.ProtoLens.Field.field @"maybe'asset" +maybe'authCommitteeHotCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'authCommitteeHotCert" a) => + Lens.Family2.LensLike' f s a +maybe'authCommitteeHotCert + = Data.ProtoLens.Field.field @"maybe'authCommitteeHotCert" +maybe'auxiliary :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'auxiliary" a) => + Lens.Family2.LensLike' f s a +maybe'auxiliary = Data.ProtoLens.Field.field @"maybe'auxiliary" +maybe'bigInt :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'bigInt" a) => + Lens.Family2.LensLike' f s a +maybe'bigInt = Data.ProtoLens.Field.field @"maybe'bigInt" +maybe'bigNInt :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'bigNInt" a) => + Lens.Family2.LensLike' f s a +maybe'bigNInt = Data.ProtoLens.Field.field @"maybe'bigNInt" +maybe'bigUInt :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'bigUInt" a) => + Lens.Family2.LensLike' f s a +maybe'bigUInt = Data.ProtoLens.Field.field @"maybe'bigUInt" +maybe'blockVersionData :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'blockVersionData" a) => + Lens.Family2.LensLike' f s a +maybe'blockVersionData + = Data.ProtoLens.Field.field @"maybe'blockVersionData" +maybe'body :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'body" a) => + Lens.Family2.LensLike' f s a +maybe'body = Data.ProtoLens.Field.field @"maybe'body" +maybe'boundedBytes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'boundedBytes" a) => + Lens.Family2.LensLike' f s a +maybe'boundedBytes + = Data.ProtoLens.Field.field @"maybe'boundedBytes" +maybe'bytes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'bytes" a) => + Lens.Family2.LensLike' f s a +maybe'bytes = Data.ProtoLens.Field.field @"maybe'bytes" +maybe'certificate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'certificate" a) => + Lens.Family2.LensLike' f s a +maybe'certificate = Data.ProtoLens.Field.field @"maybe'certificate" +maybe'certificateType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'certificateType" a) => + Lens.Family2.LensLike' f s a +maybe'certificateType + = Data.ProtoLens.Field.field @"maybe'certificateType" +maybe'coin :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'coin" a) => + Lens.Family2.LensLike' f s a +maybe'coin = Data.ProtoLens.Field.field @"maybe'coin" +maybe'coinsPerUtxoByte :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'coinsPerUtxoByte" a) => + Lens.Family2.LensLike' f s a +maybe'coinsPerUtxoByte + = Data.ProtoLens.Field.field @"maybe'coinsPerUtxoByte" +maybe'collateral :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'collateral" a) => + Lens.Family2.LensLike' f s a +maybe'collateral = Data.ProtoLens.Field.field @"maybe'collateral" +maybe'collateralReturn :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'collateralReturn" a) => + Lens.Family2.LensLike' f s a +maybe'collateralReturn + = Data.ProtoLens.Field.field @"maybe'collateralReturn" +maybe'committee :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'committee" a) => + Lens.Family2.LensLike' f s a +maybe'committee = Data.ProtoLens.Field.field @"maybe'committee" +maybe'committeeColdCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'committeeColdCredential" a) => + Lens.Family2.LensLike' f s a +maybe'committeeColdCredential + = Data.ProtoLens.Field.field @"maybe'committeeColdCredential" +maybe'committeeHotCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'committeeHotCredential" a) => + Lens.Family2.LensLike' f s a +maybe'committeeHotCredential + = Data.ProtoLens.Field.field @"maybe'committeeHotCredential" +maybe'committeeNoConfidence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'committeeNoConfidence" a) => + Lens.Family2.LensLike' f s a +maybe'committeeNoConfidence + = Data.ProtoLens.Field.field @"maybe'committeeNoConfidence" +maybe'committeeNormal :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'committeeNormal" a) => + Lens.Family2.LensLike' f s a +maybe'committeeNormal + = Data.ProtoLens.Field.field @"maybe'committeeNormal" +maybe'constitution :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'constitution" a) => + Lens.Family2.LensLike' f s a +maybe'constitution + = Data.ProtoLens.Field.field @"maybe'constitution" +maybe'constr :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'constr" a) => + Lens.Family2.LensLike' f s a +maybe'constr = Data.ProtoLens.Field.field @"maybe'constr" +maybe'consumes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'consumes" a) => + Lens.Family2.LensLike' f s a +maybe'consumes = Data.ProtoLens.Field.field @"maybe'consumes" +maybe'cost :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'cost" a) => + Lens.Family2.LensLike' f s a +maybe'cost = Data.ProtoLens.Field.field @"maybe'cost" +maybe'costModels :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'costModels" a) => + Lens.Family2.LensLike' f s a +maybe'costModels = Data.ProtoLens.Field.field @"maybe'costModels" +maybe'datum :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'datum" a) => + Lens.Family2.LensLike' f s a +maybe'datum = Data.ProtoLens.Field.field @"maybe'datum" +maybe'deltaCoin :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'deltaCoin" a) => + Lens.Family2.LensLike' f s a +maybe'deltaCoin = Data.ProtoLens.Field.field @"maybe'deltaCoin" +maybe'deposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'deposit" a) => + Lens.Family2.LensLike' f s a +maybe'deposit = Data.ProtoLens.Field.field @"maybe'deposit" +maybe'drep :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'drep" a) => + Lens.Family2.LensLike' f s a +maybe'drep = Data.ProtoLens.Field.field @"maybe'drep" +maybe'drepCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'drepCredential" a) => + Lens.Family2.LensLike' f s a +maybe'drepCredential + = Data.ProtoLens.Field.field @"maybe'drepCredential" +maybe'drepDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'drepDeposit" a) => + Lens.Family2.LensLike' f s a +maybe'drepDeposit = Data.ProtoLens.Field.field @"maybe'drepDeposit" +maybe'drepVotingThresholds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'drepVotingThresholds" a) => + Lens.Family2.LensLike' f s a +maybe'drepVotingThresholds + = Data.ProtoLens.Field.field @"maybe'drepVotingThresholds" +maybe'end :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'end" a) => + Lens.Family2.LensLike' f s a +maybe'end = Data.ProtoLens.Field.field @"maybe'end" +maybe'exUnits :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'exUnits" a) => + Lens.Family2.LensLike' f s a +maybe'exUnits = Data.ProtoLens.Field.field @"maybe'exUnits" +maybe'executionPrices :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'executionPrices" a) => + Lens.Family2.LensLike' f s a +maybe'executionPrices + = Data.ProtoLens.Field.field @"maybe'executionPrices" +maybe'fee :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'fee" a) => + Lens.Family2.LensLike' f s a +maybe'fee = Data.ProtoLens.Field.field @"maybe'fee" +maybe'genesisKeyDelegation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'genesisKeyDelegation" a) => + Lens.Family2.LensLike' f s a +maybe'genesisKeyDelegation + = Data.ProtoLens.Field.field @"maybe'genesisKeyDelegation" +maybe'govAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'govAction" a) => + Lens.Family2.LensLike' f s a +maybe'govAction = Data.ProtoLens.Field.field @"maybe'govAction" +maybe'govActionDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'govActionDeposit" a) => + Lens.Family2.LensLike' f s a +maybe'govActionDeposit + = Data.ProtoLens.Field.field @"maybe'govActionDeposit" +maybe'govActionId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'govActionId" a) => + Lens.Family2.LensLike' f s a +maybe'govActionId = Data.ProtoLens.Field.field @"maybe'govActionId" +maybe'governanceAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'governanceAction" a) => + Lens.Family2.LensLike' f s a +maybe'governanceAction + = Data.ProtoLens.Field.field @"maybe'governanceAction" +maybe'governanceActionDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'governanceActionDeposit" a) => + Lens.Family2.LensLike' f s a +maybe'governanceActionDeposit + = Data.ProtoLens.Field.field @"maybe'governanceActionDeposit" +maybe'hardForkInitiation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hardForkInitiation" a) => + Lens.Family2.LensLike' f s a +maybe'hardForkInitiation + = Data.ProtoLens.Field.field @"maybe'hardForkInitiation" +maybe'hardForkInitiationAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hardForkInitiationAction" a) => + Lens.Family2.LensLike' f s a +maybe'hardForkInitiationAction + = Data.ProtoLens.Field.field @"maybe'hardForkInitiationAction" +maybe'hasAddress :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hasAddress" a) => + Lens.Family2.LensLike' f s a +maybe'hasAddress = Data.ProtoLens.Field.field @"maybe'hasAddress" +maybe'hasCertificate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'hasCertificate" a) => + Lens.Family2.LensLike' f s a +maybe'hasCertificate + = Data.ProtoLens.Field.field @"maybe'hasCertificate" +maybe'header :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'header" a) => + Lens.Family2.LensLike' f s a +maybe'header = Data.ProtoLens.Field.field @"maybe'header" +maybe'infoAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'infoAction" a) => + Lens.Family2.LensLike' f s a +maybe'infoAction = Data.ProtoLens.Field.field @"maybe'infoAction" +maybe'int :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'int" a) => + Lens.Family2.LensLike' f s a +maybe'int = Data.ProtoLens.Field.field @"maybe'int" +maybe'invalidBefore :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'invalidBefore" a) => + Lens.Family2.LensLike' f s a +maybe'invalidBefore + = Data.ProtoLens.Field.field @"maybe'invalidBefore" +maybe'invalidHereafter :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'invalidHereafter" a) => + Lens.Family2.LensLike' f s a +maybe'invalidHereafter + = Data.ProtoLens.Field.field @"maybe'invalidHereafter" +maybe'key :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'key" a) => + Lens.Family2.LensLike' f s a +maybe'key = Data.ProtoLens.Field.field @"maybe'key" +maybe'lovelacePerUtxoWord :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'lovelacePerUtxoWord" a) => + Lens.Family2.LensLike' f s a +maybe'lovelacePerUtxoWord + = Data.ProtoLens.Field.field @"maybe'lovelacePerUtxoWord" +maybe'map :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'map" a) => + Lens.Family2.LensLike' f s a +maybe'map = Data.ProtoLens.Field.field @"maybe'map" +maybe'margin :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'margin" a) => + Lens.Family2.LensLike' f s a +maybe'margin = Data.ProtoLens.Field.field @"maybe'margin" +maybe'maxBlockExUnits :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'maxBlockExUnits" a) => + Lens.Family2.LensLike' f s a +maybe'maxBlockExUnits + = Data.ProtoLens.Field.field @"maybe'maxBlockExUnits" +maybe'maxExecutionUnitsPerBlock :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'maxExecutionUnitsPerBlock" a) => + Lens.Family2.LensLike' f s a +maybe'maxExecutionUnitsPerBlock + = Data.ProtoLens.Field.field @"maybe'maxExecutionUnitsPerBlock" +maybe'maxExecutionUnitsPerTransaction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'maxExecutionUnitsPerTransaction" a) => + Lens.Family2.LensLike' f s a +maybe'maxExecutionUnitsPerTransaction + = Data.ProtoLens.Field.field + @"maybe'maxExecutionUnitsPerTransaction" +maybe'maxLovelaceSupply :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'maxLovelaceSupply" a) => + Lens.Family2.LensLike' f s a +maybe'maxLovelaceSupply + = Data.ProtoLens.Field.field @"maybe'maxLovelaceSupply" +maybe'maxTxExUnits :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'maxTxExUnits" a) => + Lens.Family2.LensLike' f s a +maybe'maxTxExUnits + = Data.ProtoLens.Field.field @"maybe'maxTxExUnits" +maybe'memory :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'memory" a) => + Lens.Family2.LensLike' f s a +maybe'memory = Data.ProtoLens.Field.field @"maybe'memory" +maybe'metadatum :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'metadatum" a) => + Lens.Family2.LensLike' f s a +maybe'metadatum = Data.ProtoLens.Field.field @"maybe'metadatum" +maybe'minFeeCoefficient :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'minFeeCoefficient" a) => + Lens.Family2.LensLike' f s a +maybe'minFeeCoefficient + = Data.ProtoLens.Field.field @"maybe'minFeeCoefficient" +maybe'minFeeConstant :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'minFeeConstant" a) => + Lens.Family2.LensLike' f s a +maybe'minFeeConstant + = Data.ProtoLens.Field.field @"maybe'minFeeConstant" +maybe'minFeeRefScriptCostPerByte :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'minFeeRefScriptCostPerByte" a) => + Lens.Family2.LensLike' f s a +maybe'minFeeRefScriptCostPerByte + = Data.ProtoLens.Field.field @"maybe'minFeeRefScriptCostPerByte" +maybe'minFeeScriptRefCostPerByte :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'minFeeScriptRefCostPerByte" a) => + Lens.Family2.LensLike' f s a +maybe'minFeeScriptRefCostPerByte + = Data.ProtoLens.Field.field @"maybe'minFeeScriptRefCostPerByte" +maybe'minPoolCost :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'minPoolCost" a) => + Lens.Family2.LensLike' f s a +maybe'minPoolCost = Data.ProtoLens.Field.field @"maybe'minPoolCost" +maybe'mintsAsset :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'mintsAsset" a) => + Lens.Family2.LensLike' f s a +maybe'mintsAsset = Data.ProtoLens.Field.field @"maybe'mintsAsset" +maybe'mirCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'mirCert" a) => + Lens.Family2.LensLike' f s a +maybe'mirCert = Data.ProtoLens.Field.field @"maybe'mirCert" +maybe'monetaryExpansion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'monetaryExpansion" a) => + Lens.Family2.LensLike' f s a +maybe'monetaryExpansion + = Data.ProtoLens.Field.field @"maybe'monetaryExpansion" +maybe'motionNoConfidence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'motionNoConfidence" a) => + Lens.Family2.LensLike' f s a +maybe'motionNoConfidence + = Data.ProtoLens.Field.field @"maybe'motionNoConfidence" +maybe'movesAsset :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'movesAsset" a) => + Lens.Family2.LensLike' f s a +maybe'movesAsset = Data.ProtoLens.Field.field @"maybe'movesAsset" +maybe'native :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'native" a) => + Lens.Family2.LensLike' f s a +maybe'native = Data.ProtoLens.Field.field @"maybe'native" +maybe'nativeScript :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'nativeScript" a) => + Lens.Family2.LensLike' f s a +maybe'nativeScript + = Data.ProtoLens.Field.field @"maybe'nativeScript" +maybe'newCommitteeThreshold :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'newCommitteeThreshold" a) => + Lens.Family2.LensLike' f s a +maybe'newCommitteeThreshold + = Data.ProtoLens.Field.field @"maybe'newCommitteeThreshold" +maybe'newConstitutionAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'newConstitutionAction" a) => + Lens.Family2.LensLike' f s a +maybe'newConstitutionAction + = Data.ProtoLens.Field.field @"maybe'newConstitutionAction" +maybe'noConfidence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noConfidence" a) => + Lens.Family2.LensLike' f s a +maybe'noConfidence + = Data.ProtoLens.Field.field @"maybe'noConfidence" +maybe'noConfidenceAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'noConfidenceAction" a) => + Lens.Family2.LensLike' f s a +maybe'noConfidenceAction + = Data.ProtoLens.Field.field @"maybe'noConfidenceAction" +maybe'originalCbor :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'originalCbor" a) => + Lens.Family2.LensLike' f s a +maybe'originalCbor + = Data.ProtoLens.Field.field @"maybe'originalCbor" +maybe'parameterChangeAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'parameterChangeAction" a) => + Lens.Family2.LensLike' f s a +maybe'parameterChangeAction + = Data.ProtoLens.Field.field @"maybe'parameterChangeAction" +maybe'payload :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'payload" a) => + Lens.Family2.LensLike' f s a +maybe'payload = Data.ProtoLens.Field.field @"maybe'payload" +maybe'pledge :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'pledge" a) => + Lens.Family2.LensLike' f s a +maybe'pledge = Data.ProtoLens.Field.field @"maybe'pledge" +maybe'plutusData :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'plutusData" a) => + Lens.Family2.LensLike' f s a +maybe'plutusData = Data.ProtoLens.Field.field @"maybe'plutusData" +maybe'plutusV1 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'plutusV1" a) => + Lens.Family2.LensLike' f s a +maybe'plutusV1 = Data.ProtoLens.Field.field @"maybe'plutusV1" +maybe'plutusV2 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'plutusV2" a) => + Lens.Family2.LensLike' f s a +maybe'plutusV2 = Data.ProtoLens.Field.field @"maybe'plutusV2" +maybe'plutusV3 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'plutusV3" a) => + Lens.Family2.LensLike' f s a +maybe'plutusV3 = Data.ProtoLens.Field.field @"maybe'plutusV3" +maybe'plutusV4 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'plutusV4" a) => + Lens.Family2.LensLike' f s a +maybe'plutusV4 = Data.ProtoLens.Field.field @"maybe'plutusV4" +maybe'poolDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'poolDeposit" a) => + Lens.Family2.LensLike' f s a +maybe'poolDeposit = Data.ProtoLens.Field.field @"maybe'poolDeposit" +maybe'poolInfluence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'poolInfluence" a) => + Lens.Family2.LensLike' f s a +maybe'poolInfluence + = Data.ProtoLens.Field.field @"maybe'poolInfluence" +maybe'poolMetadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'poolMetadata" a) => + Lens.Family2.LensLike' f s a +maybe'poolMetadata + = Data.ProtoLens.Field.field @"maybe'poolMetadata" +maybe'poolRegistration :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'poolRegistration" a) => + Lens.Family2.LensLike' f s a +maybe'poolRegistration + = Data.ProtoLens.Field.field @"maybe'poolRegistration" +maybe'poolRetirement :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'poolRetirement" a) => + Lens.Family2.LensLike' f s a +maybe'poolRetirement + = Data.ProtoLens.Field.field @"maybe'poolRetirement" +maybe'poolVotingThresholds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'poolVotingThresholds" a) => + Lens.Family2.LensLike' f s a +maybe'poolVotingThresholds + = Data.ProtoLens.Field.field @"maybe'poolVotingThresholds" +maybe'ppEconomicGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ppEconomicGroup" a) => + Lens.Family2.LensLike' f s a +maybe'ppEconomicGroup + = Data.ProtoLens.Field.field @"maybe'ppEconomicGroup" +maybe'ppGovGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ppGovGroup" a) => + Lens.Family2.LensLike' f s a +maybe'ppGovGroup = Data.ProtoLens.Field.field @"maybe'ppGovGroup" +maybe'ppNetworkGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ppNetworkGroup" a) => + Lens.Family2.LensLike' f s a +maybe'ppNetworkGroup + = Data.ProtoLens.Field.field @"maybe'ppNetworkGroup" +maybe'ppSecurityGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ppSecurityGroup" a) => + Lens.Family2.LensLike' f s a +maybe'ppSecurityGroup + = Data.ProtoLens.Field.field @"maybe'ppSecurityGroup" +maybe'ppTechnicalGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ppTechnicalGroup" a) => + Lens.Family2.LensLike' f s a +maybe'ppTechnicalGroup + = Data.ProtoLens.Field.field @"maybe'ppTechnicalGroup" +maybe'prices :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'prices" a) => + Lens.Family2.LensLike' f s a +maybe'prices = Data.ProtoLens.Field.field @"maybe'prices" +maybe'produces :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'produces" a) => + Lens.Family2.LensLike' f s a +maybe'produces = Data.ProtoLens.Field.field @"maybe'produces" +maybe'protocolConsts :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'protocolConsts" a) => + Lens.Family2.LensLike' f s a +maybe'protocolConsts + = Data.ProtoLens.Field.field @"maybe'protocolConsts" +maybe'protocolParamUpdate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'protocolParamUpdate" a) => + Lens.Family2.LensLike' f s a +maybe'protocolParamUpdate + = Data.ProtoLens.Field.field @"maybe'protocolParamUpdate" +maybe'protocolParams :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'protocolParams" a) => + Lens.Family2.LensLike' f s a +maybe'protocolParams + = Data.ProtoLens.Field.field @"maybe'protocolParams" +maybe'protocolVersion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'protocolVersion" a) => + Lens.Family2.LensLike' f s a +maybe'protocolVersion + = Data.ProtoLens.Field.field @"maybe'protocolVersion" +maybe'quantity :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'quantity" a) => + Lens.Family2.LensLike' f s a +maybe'quantity = Data.ProtoLens.Field.field @"maybe'quantity" +maybe'redeemer :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'redeemer" a) => + Lens.Family2.LensLike' f s a +maybe'redeemer = Data.ProtoLens.Field.field @"maybe'redeemer" +maybe'regCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'regCert" a) => + Lens.Family2.LensLike' f s a +maybe'regCert = Data.ProtoLens.Field.field @"maybe'regCert" +maybe'regDrepCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'regDrepCert" a) => + Lens.Family2.LensLike' f s a +maybe'regDrepCert = Data.ProtoLens.Field.field @"maybe'regDrepCert" +maybe'resignCommitteeColdCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'resignCommitteeColdCert" a) => + Lens.Family2.LensLike' f s a +maybe'resignCommitteeColdCert + = Data.ProtoLens.Field.field @"maybe'resignCommitteeColdCert" +maybe'script :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'script" a) => + Lens.Family2.LensLike' f s a +maybe'script = Data.ProtoLens.Field.field @"maybe'script" +maybe'scriptAll :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'scriptAll" a) => + Lens.Family2.LensLike' f s a +maybe'scriptAll = Data.ProtoLens.Field.field @"maybe'scriptAll" +maybe'scriptAny :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'scriptAny" a) => + Lens.Family2.LensLike' f s a +maybe'scriptAny = Data.ProtoLens.Field.field @"maybe'scriptAny" +maybe'scriptHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'scriptHash" a) => + Lens.Family2.LensLike' f s a +maybe'scriptHash = Data.ProtoLens.Field.field @"maybe'scriptHash" +maybe'scriptNOfK :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'scriptNOfK" a) => + Lens.Family2.LensLike' f s a +maybe'scriptNOfK = Data.ProtoLens.Field.field @"maybe'scriptNOfK" +maybe'scriptPubkeyHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'scriptPubkeyHash" a) => + Lens.Family2.LensLike' f s a +maybe'scriptPubkeyHash + = Data.ProtoLens.Field.field @"maybe'scriptPubkeyHash" +maybe'softforkRule :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'softforkRule" a) => + Lens.Family2.LensLike' f s a +maybe'softforkRule + = Data.ProtoLens.Field.field @"maybe'softforkRule" +maybe'stakeCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeCredential" a) => + Lens.Family2.LensLike' f s a +maybe'stakeCredential + = Data.ProtoLens.Field.field @"maybe'stakeCredential" +maybe'stakeDelegation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeDelegation" a) => + Lens.Family2.LensLike' f s a +maybe'stakeDelegation + = Data.ProtoLens.Field.field @"maybe'stakeDelegation" +maybe'stakeDeregistration :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeDeregistration" a) => + Lens.Family2.LensLike' f s a +maybe'stakeDeregistration + = Data.ProtoLens.Field.field @"maybe'stakeDeregistration" +maybe'stakeKeyDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeKeyDeposit" a) => + Lens.Family2.LensLike' f s a +maybe'stakeKeyDeposit + = Data.ProtoLens.Field.field @"maybe'stakeKeyDeposit" +maybe'stakeRegDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeRegDelegCert" a) => + Lens.Family2.LensLike' f s a +maybe'stakeRegDelegCert + = Data.ProtoLens.Field.field @"maybe'stakeRegDelegCert" +maybe'stakeRegistration :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeRegistration" a) => + Lens.Family2.LensLike' f s a +maybe'stakeRegistration + = Data.ProtoLens.Field.field @"maybe'stakeRegistration" +maybe'stakeVoteDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeVoteDelegCert" a) => + Lens.Family2.LensLike' f s a +maybe'stakeVoteDelegCert + = Data.ProtoLens.Field.field @"maybe'stakeVoteDelegCert" +maybe'stakeVoteRegDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'stakeVoteRegDelegCert" a) => + Lens.Family2.LensLike' f s a +maybe'stakeVoteRegDelegCert + = Data.ProtoLens.Field.field @"maybe'stakeVoteRegDelegCert" +maybe'start :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'start" a) => + Lens.Family2.LensLike' f s a +maybe'start = Data.ProtoLens.Field.field @"maybe'start" +maybe'steps :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'steps" a) => + Lens.Family2.LensLike' f s a +maybe'steps = Data.ProtoLens.Field.field @"maybe'steps" +maybe'text :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'text" a) => + Lens.Family2.LensLike' f s a +maybe'text = Data.ProtoLens.Field.field @"maybe'text" +maybe'threshold :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'threshold" a) => + Lens.Family2.LensLike' f s a +maybe'threshold = Data.ProtoLens.Field.field @"maybe'threshold" +maybe'totalCollateral :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'totalCollateral" a) => + Lens.Family2.LensLike' f s a +maybe'totalCollateral + = Data.ProtoLens.Field.field @"maybe'totalCollateral" +maybe'treasuryExpansion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'treasuryExpansion" a) => + Lens.Family2.LensLike' f s a +maybe'treasuryExpansion + = Data.ProtoLens.Field.field @"maybe'treasuryExpansion" +maybe'treasuryWithdrawal :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'treasuryWithdrawal" a) => + Lens.Family2.LensLike' f s a +maybe'treasuryWithdrawal + = Data.ProtoLens.Field.field @"maybe'treasuryWithdrawal" +maybe'treasuryWithdrawalsAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'treasuryWithdrawalsAction" a) => + Lens.Family2.LensLike' f s a +maybe'treasuryWithdrawalsAction + = Data.ProtoLens.Field.field @"maybe'treasuryWithdrawalsAction" +maybe'txFeePolicy :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'txFeePolicy" a) => + Lens.Family2.LensLike' f s a +maybe'txFeePolicy = Data.ProtoLens.Field.field @"maybe'txFeePolicy" +maybe'unregCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'unregCert" a) => + Lens.Family2.LensLike' f s a +maybe'unregCert = Data.ProtoLens.Field.field @"maybe'unregCert" +maybe'unregDrepCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'unregDrepCert" a) => + Lens.Family2.LensLike' f s a +maybe'unregDrepCert + = Data.ProtoLens.Field.field @"maybe'unregDrepCert" +maybe'updateCommitteeAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'updateCommitteeAction" a) => + Lens.Family2.LensLike' f s a +maybe'updateCommitteeAction + = Data.ProtoLens.Field.field @"maybe'updateCommitteeAction" +maybe'updateDrepCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'updateDrepCert" a) => + Lens.Family2.LensLike' f s a +maybe'updateDrepCert + = Data.ProtoLens.Field.field @"maybe'updateDrepCert" +maybe'updateToConstitution :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'updateToConstitution" a) => + Lens.Family2.LensLike' f s a +maybe'updateToConstitution + = Data.ProtoLens.Field.field @"maybe'updateToConstitution" +maybe'validity :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'validity" a) => + Lens.Family2.LensLike' f s a +maybe'validity = Data.ProtoLens.Field.field @"maybe'validity" +maybe'value :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'value" a) => + Lens.Family2.LensLike' f s a +maybe'value = Data.ProtoLens.Field.field @"maybe'value" +maybe'voteDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'voteDelegCert" a) => + Lens.Family2.LensLike' f s a +maybe'voteDelegCert + = Data.ProtoLens.Field.field @"maybe'voteDelegCert" +maybe'voteRegDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'voteRegDelegCert" a) => + Lens.Family2.LensLike' f s a +maybe'voteRegDelegCert + = Data.ProtoLens.Field.field @"maybe'voteRegDelegCert" +maybe'witnesses :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'witnesses" a) => + Lens.Family2.LensLike' f s a +maybe'witnesses = Data.ProtoLens.Field.field @"maybe'witnesses" +members :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "members" a) => + Lens.Family2.LensLike' f s a +members = Data.ProtoLens.Field.field @"members" +memory :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "memory" a) => + Lens.Family2.LensLike' f s a +memory = Data.ProtoLens.Field.field @"memory" +metadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "metadata" a) => + Lens.Family2.LensLike' f s a +metadata = Data.ProtoLens.Field.field @"metadata" +minCommitteeSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minCommitteeSize" a) => + Lens.Family2.LensLike' f s a +minCommitteeSize = Data.ProtoLens.Field.field @"minCommitteeSize" +minFeeCoefficient :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minFeeCoefficient" a) => + Lens.Family2.LensLike' f s a +minFeeCoefficient = Data.ProtoLens.Field.field @"minFeeCoefficient" +minFeeConstant :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minFeeConstant" a) => + Lens.Family2.LensLike' f s a +minFeeConstant = Data.ProtoLens.Field.field @"minFeeConstant" +minFeeRefScriptCostPerByte :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minFeeRefScriptCostPerByte" a) => + Lens.Family2.LensLike' f s a +minFeeRefScriptCostPerByte + = Data.ProtoLens.Field.field @"minFeeRefScriptCostPerByte" +minFeeScriptRefCostPerByte :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minFeeScriptRefCostPerByte" a) => + Lens.Family2.LensLike' f s a +minFeeScriptRefCostPerByte + = Data.ProtoLens.Field.field @"minFeeScriptRefCostPerByte" +minPoolCost :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "minPoolCost" a) => + Lens.Family2.LensLike' f s a +minPoolCost = Data.ProtoLens.Field.field @"minPoolCost" +minThd :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "minThd" a) => + Lens.Family2.LensLike' f s a +minThd = Data.ProtoLens.Field.field @"minThd" +minor :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "minor" a) => + Lens.Family2.LensLike' f s a +minor = Data.ProtoLens.Field.field @"minor" +mint :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "mint" a) => + Lens.Family2.LensLike' f s a +mint = Data.ProtoLens.Field.field @"mint" +mintsAsset :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "mintsAsset" a) => + Lens.Family2.LensLike' f s a +mintsAsset = Data.ProtoLens.Field.field @"mintsAsset" +mirCert :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "mirCert" a) => + Lens.Family2.LensLike' f s a +mirCert = Data.ProtoLens.Field.field @"mirCert" +monetaryExpansion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "monetaryExpansion" a) => + Lens.Family2.LensLike' f s a +monetaryExpansion = Data.ProtoLens.Field.field @"monetaryExpansion" +motionNoConfidence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "motionNoConfidence" a) => + Lens.Family2.LensLike' f s a +motionNoConfidence + = Data.ProtoLens.Field.field @"motionNoConfidence" +movesAsset :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "movesAsset" a) => + Lens.Family2.LensLike' f s a +movesAsset = Data.ProtoLens.Field.field @"movesAsset" +mpcThd :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "mpcThd" a) => + Lens.Family2.LensLike' f s a +mpcThd = Data.ProtoLens.Field.field @"mpcThd" +msg :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "msg" a) => + Lens.Family2.LensLike' f s a +msg = Data.ProtoLens.Field.field @"msg" +multiplier :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "multiplier" a) => + Lens.Family2.LensLike' f s a +multiplier = Data.ProtoLens.Field.field @"multiplier" +name :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) => + Lens.Family2.LensLike' f s a +name = Data.ProtoLens.Field.field @"name" +native :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "native" a) => + Lens.Family2.LensLike' f s a +native = Data.ProtoLens.Field.field @"native" +networkId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "networkId" a) => + Lens.Family2.LensLike' f s a +networkId = Data.ProtoLens.Field.field @"networkId" +networkMagic :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "networkMagic" a) => + Lens.Family2.LensLike' f s a +networkMagic = Data.ProtoLens.Field.field @"networkMagic" +newCommitteeCredentials :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "newCommitteeCredentials" a) => + Lens.Family2.LensLike' f s a +newCommitteeCredentials + = Data.ProtoLens.Field.field @"newCommitteeCredentials" +newCommitteeThreshold :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "newCommitteeThreshold" a) => + Lens.Family2.LensLike' f s a +newCommitteeThreshold + = Data.ProtoLens.Field.field @"newCommitteeThreshold" +newConstitutionAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "newConstitutionAction" a) => + Lens.Family2.LensLike' f s a +newConstitutionAction + = Data.ProtoLens.Field.field @"newConstitutionAction" +noConfidence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noConfidence" a) => + Lens.Family2.LensLike' f s a +noConfidence = Data.ProtoLens.Field.field @"noConfidence" +noConfidenceAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "noConfidenceAction" a) => + Lens.Family2.LensLike' f s a +noConfidenceAction + = Data.ProtoLens.Field.field @"noConfidenceAction" +nonAvvmBalances :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "nonAvvmBalances" a) => + Lens.Family2.LensLike' f s a +nonAvvmBalances = Data.ProtoLens.Field.field @"nonAvvmBalances" +numerator :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "numerator" a) => + Lens.Family2.LensLike' f s a +numerator = Data.ProtoLens.Field.field @"numerator" +omega :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "omega" a) => + Lens.Family2.LensLike' f s a +omega = Data.ProtoLens.Field.field @"omega" +operator :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "operator" a) => + Lens.Family2.LensLike' f s a +operator = Data.ProtoLens.Field.field @"operator" +originalCbor :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "originalCbor" a) => + Lens.Family2.LensLike' f s a +originalCbor = Data.ProtoLens.Field.field @"originalCbor" +otherPot :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "otherPot" a) => + Lens.Family2.LensLike' f s a +otherPot = Data.ProtoLens.Field.field @"otherPot" +outputIndex :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "outputIndex" a) => + Lens.Family2.LensLike' f s a +outputIndex = Data.ProtoLens.Field.field @"outputIndex" +outputs :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "outputs" a) => + Lens.Family2.LensLike' f s a +outputs = Data.ProtoLens.Field.field @"outputs" +pairs :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "pairs" a) => + Lens.Family2.LensLike' f s a +pairs = Data.ProtoLens.Field.field @"pairs" +parameterChangeAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "parameterChangeAction" a) => + Lens.Family2.LensLike' f s a +parameterChangeAction + = Data.ProtoLens.Field.field @"parameterChangeAction" +payload :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "payload" a) => + Lens.Family2.LensLike' f s a +payload = Data.ProtoLens.Field.field @"payload" +paymentPart :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "paymentPart" a) => + Lens.Family2.LensLike' f s a +paymentPart = Data.ProtoLens.Field.field @"paymentPart" +pledge :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "pledge" a) => + Lens.Family2.LensLike' f s a +pledge = Data.ProtoLens.Field.field @"pledge" +plutusDatums :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "plutusDatums" a) => + Lens.Family2.LensLike' f s a +plutusDatums = Data.ProtoLens.Field.field @"plutusDatums" +plutusV1 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "plutusV1" a) => + Lens.Family2.LensLike' f s a +plutusV1 = Data.ProtoLens.Field.field @"plutusV1" +plutusV2 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "plutusV2" a) => + Lens.Family2.LensLike' f s a +plutusV2 = Data.ProtoLens.Field.field @"plutusV2" +plutusV3 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "plutusV3" a) => + Lens.Family2.LensLike' f s a +plutusV3 = Data.ProtoLens.Field.field @"plutusV3" +plutusV4 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "plutusV4" a) => + Lens.Family2.LensLike' f s a +plutusV4 = Data.ProtoLens.Field.field @"plutusV4" +policyHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "policyHash" a) => + Lens.Family2.LensLike' f s a +policyHash = Data.ProtoLens.Field.field @"policyHash" +policyId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "policyId" a) => + Lens.Family2.LensLike' f s a +policyId = Data.ProtoLens.Field.field @"policyId" +poolDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolDeposit" a) => + Lens.Family2.LensLike' f s a +poolDeposit = Data.ProtoLens.Field.field @"poolDeposit" +poolInfluence :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolInfluence" a) => + Lens.Family2.LensLike' f s a +poolInfluence = Data.ProtoLens.Field.field @"poolInfluence" +poolKeyhash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolKeyhash" a) => + Lens.Family2.LensLike' f s a +poolKeyhash = Data.ProtoLens.Field.field @"poolKeyhash" +poolMetadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolMetadata" a) => + Lens.Family2.LensLike' f s a +poolMetadata = Data.ProtoLens.Field.field @"poolMetadata" +poolOwners :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolOwners" a) => + Lens.Family2.LensLike' f s a +poolOwners = Data.ProtoLens.Field.field @"poolOwners" +poolRegistration :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolRegistration" a) => + Lens.Family2.LensLike' f s a +poolRegistration = Data.ProtoLens.Field.field @"poolRegistration" +poolRetirement :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolRetirement" a) => + Lens.Family2.LensLike' f s a +poolRetirement = Data.ProtoLens.Field.field @"poolRetirement" +poolRetirementEpochBound :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolRetirementEpochBound" a) => + Lens.Family2.LensLike' f s a +poolRetirementEpochBound + = Data.ProtoLens.Field.field @"poolRetirementEpochBound" +poolVotingThresholds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "poolVotingThresholds" a) => + Lens.Family2.LensLike' f s a +poolVotingThresholds + = Data.ProtoLens.Field.field @"poolVotingThresholds" +port :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "port" a) => + Lens.Family2.LensLike' f s a +port = Data.ProtoLens.Field.field @"port" +ppEconomicGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ppEconomicGroup" a) => + Lens.Family2.LensLike' f s a +ppEconomicGroup = Data.ProtoLens.Field.field @"ppEconomicGroup" +ppGovGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ppGovGroup" a) => + Lens.Family2.LensLike' f s a +ppGovGroup = Data.ProtoLens.Field.field @"ppGovGroup" +ppNetworkGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ppNetworkGroup" a) => + Lens.Family2.LensLike' f s a +ppNetworkGroup = Data.ProtoLens.Field.field @"ppNetworkGroup" +ppSecurityGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ppSecurityGroup" a) => + Lens.Family2.LensLike' f s a +ppSecurityGroup = Data.ProtoLens.Field.field @"ppSecurityGroup" +ppTechnicalGroup :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ppTechnicalGroup" a) => + Lens.Family2.LensLike' f s a +ppTechnicalGroup = Data.ProtoLens.Field.field @"ppTechnicalGroup" +prices :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "prices" a) => + Lens.Family2.LensLike' f s a +prices = Data.ProtoLens.Field.field @"prices" +produces :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "produces" a) => + Lens.Family2.LensLike' f s a +produces = Data.ProtoLens.Field.field @"produces" +proposals :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "proposals" a) => + Lens.Family2.LensLike' f s a +proposals = Data.ProtoLens.Field.field @"proposals" +protocolConsts :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "protocolConsts" a) => + Lens.Family2.LensLike' f s a +protocolConsts = Data.ProtoLens.Field.field @"protocolConsts" +protocolMagic :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "protocolMagic" a) => + Lens.Family2.LensLike' f s a +protocolMagic = Data.ProtoLens.Field.field @"protocolMagic" +protocolParamUpdate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "protocolParamUpdate" a) => + Lens.Family2.LensLike' f s a +protocolParamUpdate + = Data.ProtoLens.Field.field @"protocolParamUpdate" +protocolParams :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "protocolParams" a) => + Lens.Family2.LensLike' f s a +protocolParams = Data.ProtoLens.Field.field @"protocolParams" +protocolVersion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "protocolVersion" a) => + Lens.Family2.LensLike' f s a +protocolVersion = Data.ProtoLens.Field.field @"protocolVersion" +purpose :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "purpose" a) => + Lens.Family2.LensLike' f s a +purpose = Data.ProtoLens.Field.field @"purpose" +quantity :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "quantity" a) => + Lens.Family2.LensLike' f s a +quantity = Data.ProtoLens.Field.field @"quantity" +redeemer :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "redeemer" a) => + Lens.Family2.LensLike' f s a +redeemer = Data.ProtoLens.Field.field @"redeemer" +redeemers :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "redeemers" a) => + Lens.Family2.LensLike' f s a +redeemers = Data.ProtoLens.Field.field @"redeemers" +referenceInputs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "referenceInputs" a) => + Lens.Family2.LensLike' f s a +referenceInputs = Data.ProtoLens.Field.field @"referenceInputs" +regCert :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "regCert" a) => + Lens.Family2.LensLike' f s a +regCert = Data.ProtoLens.Field.field @"regCert" +regDrepCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "regDrepCert" a) => + Lens.Family2.LensLike' f s a +regDrepCert = Data.ProtoLens.Field.field @"regDrepCert" +relays :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "relays" a) => + Lens.Family2.LensLike' f s a +relays = Data.ProtoLens.Field.field @"relays" +removeCommitteeCredentials :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "removeCommitteeCredentials" a) => + Lens.Family2.LensLike' f s a +removeCommitteeCredentials + = Data.ProtoLens.Field.field @"removeCommitteeCredentials" +resignCommitteeColdCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "resignCommitteeColdCert" a) => + Lens.Family2.LensLike' f s a +resignCommitteeColdCert + = Data.ProtoLens.Field.field @"resignCommitteeColdCert" +rewardAccount :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "rewardAccount" a) => + Lens.Family2.LensLike' f s a +rewardAccount = Data.ProtoLens.Field.field @"rewardAccount" +script :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "script" a) => + Lens.Family2.LensLike' f s a +script = Data.ProtoLens.Field.field @"script" +scriptAll :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scriptAll" a) => + Lens.Family2.LensLike' f s a +scriptAll = Data.ProtoLens.Field.field @"scriptAll" +scriptAny :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scriptAny" a) => + Lens.Family2.LensLike' f s a +scriptAny = Data.ProtoLens.Field.field @"scriptAny" +scriptHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scriptHash" a) => + Lens.Family2.LensLike' f s a +scriptHash = Data.ProtoLens.Field.field @"scriptHash" +scriptNOfK :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scriptNOfK" a) => + Lens.Family2.LensLike' f s a +scriptNOfK = Data.ProtoLens.Field.field @"scriptNOfK" +scriptPubkeyHash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scriptPubkeyHash" a) => + Lens.Family2.LensLike' f s a +scriptPubkeyHash = Data.ProtoLens.Field.field @"scriptPubkeyHash" +scriptVersion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "scriptVersion" a) => + Lens.Family2.LensLike' f s a +scriptVersion = Data.ProtoLens.Field.field @"scriptVersion" +scripts :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "scripts" a) => + Lens.Family2.LensLike' f s a +scripts = Data.ProtoLens.Field.field @"scripts" +securityParam :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "securityParam" a) => + Lens.Family2.LensLike' f s a +securityParam = Data.ProtoLens.Field.field @"securityParam" +signature :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "signature" a) => + Lens.Family2.LensLike' f s a +signature = Data.ProtoLens.Field.field @"signature" +signingKey :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "signingKey" a) => + Lens.Family2.LensLike' f s a +signingKey = Data.ProtoLens.Field.field @"signingKey" +slot :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "slot" a) => + Lens.Family2.LensLike' f s a +slot = Data.ProtoLens.Field.field @"slot" +slotDuration :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "slotDuration" a) => + Lens.Family2.LensLike' f s a +slotDuration = Data.ProtoLens.Field.field @"slotDuration" +slotLength :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "slotLength" a) => + Lens.Family2.LensLike' f s a +slotLength = Data.ProtoLens.Field.field @"slotLength" +slotsPerKesPeriod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "slotsPerKesPeriod" a) => + Lens.Family2.LensLike' f s a +slotsPerKesPeriod = Data.ProtoLens.Field.field @"slotsPerKesPeriod" +softforkRule :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "softforkRule" a) => + Lens.Family2.LensLike' f s a +softforkRule = Data.ProtoLens.Field.field @"softforkRule" +stakeCredential :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeCredential" a) => + Lens.Family2.LensLike' f s a +stakeCredential = Data.ProtoLens.Field.field @"stakeCredential" +stakeDelegation :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeDelegation" a) => + Lens.Family2.LensLike' f s a +stakeDelegation = Data.ProtoLens.Field.field @"stakeDelegation" +stakeDeregistration :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeDeregistration" a) => + Lens.Family2.LensLike' f s a +stakeDeregistration + = Data.ProtoLens.Field.field @"stakeDeregistration" +stakeKeyDeposit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeKeyDeposit" a) => + Lens.Family2.LensLike' f s a +stakeKeyDeposit = Data.ProtoLens.Field.field @"stakeKeyDeposit" +stakeRegDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeRegDelegCert" a) => + Lens.Family2.LensLike' f s a +stakeRegDelegCert = Data.ProtoLens.Field.field @"stakeRegDelegCert" +stakeRegistration :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeRegistration" a) => + Lens.Family2.LensLike' f s a +stakeRegistration = Data.ProtoLens.Field.field @"stakeRegistration" +stakeVoteDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeVoteDelegCert" a) => + Lens.Family2.LensLike' f s a +stakeVoteDelegCert + = Data.ProtoLens.Field.field @"stakeVoteDelegCert" +stakeVoteRegDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "stakeVoteRegDelegCert" a) => + Lens.Family2.LensLike' f s a +stakeVoteRegDelegCert + = Data.ProtoLens.Field.field @"stakeVoteRegDelegCert" +start :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "start" a) => + Lens.Family2.LensLike' f s a +start = Data.ProtoLens.Field.field @"start" +startTime :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "startTime" a) => + Lens.Family2.LensLike' f s a +startTime = Data.ProtoLens.Field.field @"startTime" +steps :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "steps" a) => + Lens.Family2.LensLike' f s a +steps = Data.ProtoLens.Field.field @"steps" +successful :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "successful" a) => + Lens.Family2.LensLike' f s a +successful = Data.ProtoLens.Field.field @"successful" +summand :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "summand" a) => + Lens.Family2.LensLike' f s a +summand = Data.ProtoLens.Field.field @"summand" +summaries :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "summaries" a) => + Lens.Family2.LensLike' f s a +summaries = Data.ProtoLens.Field.field @"summaries" +systemStart :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "systemStart" a) => + Lens.Family2.LensLike' f s a +systemStart = Data.ProtoLens.Field.field @"systemStart" +tag :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tag" a) => + Lens.Family2.LensLike' f s a +tag = Data.ProtoLens.Field.field @"tag" +text :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "text" a) => + Lens.Family2.LensLike' f s a +text = Data.ProtoLens.Field.field @"text" +thdDecrement :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "thdDecrement" a) => + Lens.Family2.LensLike' f s a +thdDecrement = Data.ProtoLens.Field.field @"thdDecrement" +threshold :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "threshold" a) => + Lens.Family2.LensLike' f s a +threshold = Data.ProtoLens.Field.field @"threshold" +thresholds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "thresholds" a) => + Lens.Family2.LensLike' f s a +thresholds = Data.ProtoLens.Field.field @"thresholds" +time :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "time" a) => + Lens.Family2.LensLike' f s a +time = Data.ProtoLens.Field.field @"time" +timestamp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "timestamp" a) => + Lens.Family2.LensLike' f s a +timestamp = Data.ProtoLens.Field.field @"timestamp" +to :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "to" a) => + Lens.Family2.LensLike' f s a +to = Data.ProtoLens.Field.field @"to" +totalCollateral :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "totalCollateral" a) => + Lens.Family2.LensLike' f s a +totalCollateral = Data.ProtoLens.Field.field @"totalCollateral" +traces :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "traces" a) => + Lens.Family2.LensLike' f s a +traces = Data.ProtoLens.Field.field @"traces" +transactionId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "transactionId" a) => + Lens.Family2.LensLike' f s a +transactionId = Data.ProtoLens.Field.field @"transactionId" +treasuryExpansion :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "treasuryExpansion" a) => + Lens.Family2.LensLike' f s a +treasuryExpansion = Data.ProtoLens.Field.field @"treasuryExpansion" +treasuryWithdrawal :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "treasuryWithdrawal" a) => + Lens.Family2.LensLike' f s a +treasuryWithdrawal + = Data.ProtoLens.Field.field @"treasuryWithdrawal" +treasuryWithdrawalsAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "treasuryWithdrawalsAction" a) => + Lens.Family2.LensLike' f s a +treasuryWithdrawalsAction + = Data.ProtoLens.Field.field @"treasuryWithdrawalsAction" +ttl :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ttl" a) => + Lens.Family2.LensLike' f s a +ttl = Data.ProtoLens.Field.field @"ttl" +tx :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tx" a) => + Lens.Family2.LensLike' f s a +tx = Data.ProtoLens.Field.field @"tx" +txFeePolicy :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "txFeePolicy" a) => + Lens.Family2.LensLike' f s a +txFeePolicy = Data.ProtoLens.Field.field @"txFeePolicy" +txHash :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "txHash" a) => + Lens.Family2.LensLike' f s a +txHash = Data.ProtoLens.Field.field @"txHash" +unlockStakeEpoch :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "unlockStakeEpoch" a) => + Lens.Family2.LensLike' f s a +unlockStakeEpoch = Data.ProtoLens.Field.field @"unlockStakeEpoch" +unregCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "unregCert" a) => + Lens.Family2.LensLike' f s a +unregCert = Data.ProtoLens.Field.field @"unregCert" +unregDrepCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "unregDrepCert" a) => + Lens.Family2.LensLike' f s a +unregDrepCert = Data.ProtoLens.Field.field @"unregDrepCert" +updateCommitteeAction :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "updateCommitteeAction" a) => + Lens.Family2.LensLike' f s a +updateCommitteeAction + = Data.ProtoLens.Field.field @"updateCommitteeAction" +updateDrepCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "updateDrepCert" a) => + Lens.Family2.LensLike' f s a +updateDrepCert = Data.ProtoLens.Field.field @"updateDrepCert" +updateImplicit :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "updateImplicit" a) => + Lens.Family2.LensLike' f s a +updateImplicit = Data.ProtoLens.Field.field @"updateImplicit" +updateProposalThd :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "updateProposalThd" a) => + Lens.Family2.LensLike' f s a +updateProposalThd = Data.ProtoLens.Field.field @"updateProposalThd" +updateQuorum :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "updateQuorum" a) => + Lens.Family2.LensLike' f s a +updateQuorum = Data.ProtoLens.Field.field @"updateQuorum" +updateToConstitution :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "updateToConstitution" a) => + Lens.Family2.LensLike' f s a +updateToConstitution + = Data.ProtoLens.Field.field @"updateToConstitution" +updateVoteThd :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "updateVoteThd" a) => + Lens.Family2.LensLike' f s a +updateVoteThd = Data.ProtoLens.Field.field @"updateVoteThd" +url :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "url" a) => + Lens.Family2.LensLike' f s a +url = Data.ProtoLens.Field.field @"url" +validity :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "validity" a) => + Lens.Family2.LensLike' f s a +validity = Data.ProtoLens.Field.field @"validity" +value :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) => + Lens.Family2.LensLike' f s a +value = Data.ProtoLens.Field.field @"value" +values :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "values" a) => + Lens.Family2.LensLike' f s a +values = Data.ProtoLens.Field.field @"values" +vec'assets :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'assets" a) => + Lens.Family2.LensLike' f s a +vec'assets = Data.ProtoLens.Field.field @"vec'assets" +vec'bootstrapWitnesses :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'bootstrapWitnesses" a) => + Lens.Family2.LensLike' f s a +vec'bootstrapWitnesses + = Data.ProtoLens.Field.field @"vec'bootstrapWitnesses" +vec'certificates :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'certificates" a) => + Lens.Family2.LensLike' f s a +vec'certificates = Data.ProtoLens.Field.field @"vec'certificates" +vec'collateral :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'collateral" a) => + Lens.Family2.LensLike' f s a +vec'collateral = Data.ProtoLens.Field.field @"vec'collateral" +vec'errors :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'errors" a) => + Lens.Family2.LensLike' f s a +vec'errors = Data.ProtoLens.Field.field @"vec'errors" +vec'fields :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'fields" a) => + Lens.Family2.LensLike' f s a +vec'fields = Data.ProtoLens.Field.field @"vec'fields" +vec'inputs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'inputs" a) => + Lens.Family2.LensLike' f s a +vec'inputs = Data.ProtoLens.Field.field @"vec'inputs" +vec'items :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'items" a) => + Lens.Family2.LensLike' f s a +vec'items = Data.ProtoLens.Field.field @"vec'items" +vec'metadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'metadata" a) => + Lens.Family2.LensLike' f s a +vec'metadata = Data.ProtoLens.Field.field @"vec'metadata" +vec'mint :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'mint" a) => + Lens.Family2.LensLike' f s a +vec'mint = Data.ProtoLens.Field.field @"vec'mint" +vec'newCommitteeCredentials :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'newCommitteeCredentials" a) => + Lens.Family2.LensLike' f s a +vec'newCommitteeCredentials + = Data.ProtoLens.Field.field @"vec'newCommitteeCredentials" +vec'outputs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'outputs" a) => + Lens.Family2.LensLike' f s a +vec'outputs = Data.ProtoLens.Field.field @"vec'outputs" +vec'pairs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'pairs" a) => + Lens.Family2.LensLike' f s a +vec'pairs = Data.ProtoLens.Field.field @"vec'pairs" +vec'plutusDatums :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'plutusDatums" a) => + Lens.Family2.LensLike' f s a +vec'plutusDatums = Data.ProtoLens.Field.field @"vec'plutusDatums" +vec'poolOwners :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'poolOwners" a) => + Lens.Family2.LensLike' f s a +vec'poolOwners = Data.ProtoLens.Field.field @"vec'poolOwners" +vec'proposals :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'proposals" a) => + Lens.Family2.LensLike' f s a +vec'proposals = Data.ProtoLens.Field.field @"vec'proposals" +vec'redeemers :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'redeemers" a) => + Lens.Family2.LensLike' f s a +vec'redeemers = Data.ProtoLens.Field.field @"vec'redeemers" +vec'referenceInputs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'referenceInputs" a) => + Lens.Family2.LensLike' f s a +vec'referenceInputs + = Data.ProtoLens.Field.field @"vec'referenceInputs" +vec'relays :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'relays" a) => + Lens.Family2.LensLike' f s a +vec'relays = Data.ProtoLens.Field.field @"vec'relays" +vec'removeCommitteeCredentials :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'removeCommitteeCredentials" a) => + Lens.Family2.LensLike' f s a +vec'removeCommitteeCredentials + = Data.ProtoLens.Field.field @"vec'removeCommitteeCredentials" +vec'script :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'script" a) => + Lens.Family2.LensLike' f s a +vec'script = Data.ProtoLens.Field.field @"vec'script" +vec'scripts :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'scripts" a) => + Lens.Family2.LensLike' f s a +vec'scripts = Data.ProtoLens.Field.field @"vec'scripts" +vec'summaries :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'summaries" a) => + Lens.Family2.LensLike' f s a +vec'summaries = Data.ProtoLens.Field.field @"vec'summaries" +vec'thresholds :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'thresholds" a) => + Lens.Family2.LensLike' f s a +vec'thresholds = Data.ProtoLens.Field.field @"vec'thresholds" +vec'to :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'to" a) => + Lens.Family2.LensLike' f s a +vec'to = Data.ProtoLens.Field.field @"vec'to" +vec'traces :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'traces" a) => + Lens.Family2.LensLike' f s a +vec'traces = Data.ProtoLens.Field.field @"vec'traces" +vec'tx :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'tx" a) => + Lens.Family2.LensLike' f s a +vec'tx = Data.ProtoLens.Field.field @"vec'tx" +vec'values :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'values" a) => + Lens.Family2.LensLike' f s a +vec'values = Data.ProtoLens.Field.field @"vec'values" +vec'vkeywitness :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'vkeywitness" a) => + Lens.Family2.LensLike' f s a +vec'vkeywitness = Data.ProtoLens.Field.field @"vec'vkeywitness" +vec'withdrawals :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'withdrawals" a) => + Lens.Family2.LensLike' f s a +vec'withdrawals = Data.ProtoLens.Field.field @"vec'withdrawals" +vkey :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vkey" a) => + Lens.Family2.LensLike' f s a +vkey = Data.ProtoLens.Field.field @"vkey" +vkeywitness :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vkeywitness" a) => + Lens.Family2.LensLike' f s a +vkeywitness = Data.ProtoLens.Field.field @"vkeywitness" +voteDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "voteDelegCert" a) => + Lens.Family2.LensLike' f s a +voteDelegCert = Data.ProtoLens.Field.field @"voteDelegCert" +voteRegDelegCert :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "voteRegDelegCert" a) => + Lens.Family2.LensLike' f s a +voteRegDelegCert = Data.ProtoLens.Field.field @"voteRegDelegCert" +vrf :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vrf" a) => + Lens.Family2.LensLike' f s a +vrf = Data.ProtoLens.Field.field @"vrf" +vrfKeyhash :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vrfKeyhash" a) => + Lens.Family2.LensLike' f s a +vrfKeyhash = Data.ProtoLens.Field.field @"vrfKeyhash" +vssCerts :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vssCerts" a) => + Lens.Family2.LensLike' f s a +vssCerts = Data.ProtoLens.Field.field @"vssCerts" +vssKey :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vssKey" a) => + Lens.Family2.LensLike' f s a +vssKey = Data.ProtoLens.Field.field @"vssKey" +vssMaxTtl :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vssMaxTtl" a) => + Lens.Family2.LensLike' f s a +vssMaxTtl = Data.ProtoLens.Field.field @"vssMaxTtl" +vssMinTtl :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vssMinTtl" a) => + Lens.Family2.LensLike' f s a +vssMinTtl = Data.ProtoLens.Field.field @"vssMinTtl" +withdrawals :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "withdrawals" a) => + Lens.Family2.LensLike' f s a +withdrawals = Data.ProtoLens.Field.field @"withdrawals" +witnesses :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "witnesses" a) => + Lens.Family2.LensLike' f s a +witnesses = Data.ProtoLens.Field.field @"witnesses" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs new file mode 100644 index 0000000000..07f043025a --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs @@ -0,0 +1,5504 @@ +{- This file was auto-generated from utxorpc/v1beta/query/query.proto by the proto-lens-protoc program. -} +{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} +{-# OPTIONS_GHC -Wno-unused-imports#-} +{-# OPTIONS_GHC -Wno-duplicate-exports#-} +{-# OPTIONS_GHC -Wno-dodgy-exports#-} +module Proto.Utxorpc.V1beta.Query.Query ( + QueryService(..), AnyChainBlock(), AnyChainBlock'Chain(..), + _AnyChainBlock'Cardano, AnyChainDatum(), + AnyChainDatum'ParsedState(..), _AnyChainDatum'Cardano, + AnyChainParams(), AnyChainParams'Params(..), + _AnyChainParams'Cardano, AnyChainTx(), AnyChainTx'Chain(..), + _AnyChainTx'Cardano, AnyUtxoData(), AnyUtxoData'ParsedState(..), + _AnyUtxoData'Cardano, AnyUtxoPattern(), + AnyUtxoPattern'UtxoPattern(..), _AnyUtxoPattern'Cardano, + ChainPoint(), ReadDataRequest(), ReadDataResponse(), + ReadEraSummaryRequest(), ReadEraSummaryResponse(), + ReadEraSummaryResponse'Summary(..), + _ReadEraSummaryResponse'Cardano, ReadGenesisRequest(), + ReadGenesisResponse(), ReadGenesisResponse'Config(..), + _ReadGenesisResponse'Cardano, ReadParamsRequest(), + ReadParamsResponse(), ReadTxRequest(), ReadTxResponse(), + ReadUtxosRequest(), ReadUtxosResponse(), SearchUtxosRequest(), + SearchUtxosResponse(), TxoRef(), UtxoPredicate() + ) 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 +import qualified Proto.Google.Protobuf.FieldMask +import qualified Proto.Utxorpc.V1beta.Cardano.Cardano +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.nativeBytes' @:: Lens' AnyChainBlock Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'chain' @:: Lens' AnyChainBlock (Prelude.Maybe AnyChainBlock'Chain)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainBlock (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Block)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' AnyChainBlock Proto.Utxorpc.V1beta.Cardano.Cardano.Block@ -} +data AnyChainBlock + = AnyChainBlock'_constructor {_AnyChainBlock'nativeBytes :: !Data.ByteString.ByteString, + _AnyChainBlock'chain :: !(Prelude.Maybe AnyChainBlock'Chain), + _AnyChainBlock'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyChainBlock where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyChainBlock'Chain + = AnyChainBlock'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.Block + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyChainBlock "nativeBytes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainBlock'nativeBytes + (\ x__ y__ -> x__ {_AnyChainBlock'nativeBytes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainBlock "maybe'chain" (Prelude.Maybe AnyChainBlock'Chain) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainBlock'chain + (\ x__ y__ -> x__ {_AnyChainBlock'chain = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainBlock "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Block) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainBlock'chain + (\ x__ y__ -> x__ {_AnyChainBlock'chain = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainBlock'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainBlock'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyChainBlock "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.Block where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainBlock'chain + (\ x__ y__ -> x__ {_AnyChainBlock'chain = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainBlock'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainBlock'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyChainBlock where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.AnyChainBlock" + packedMessageDescriptor _ + = "\n\ + \\rAnyChainBlock\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC29\n\ + \\acardano\CAN\STX \SOH(\v2\GS.utxorpc.v1beta.cardano.BlockH\NULR\acardanoB\a\n\ + \\ENQchain" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + nativeBytes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "native_bytes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nativeBytes")) :: + Data.ProtoLens.FieldDescriptor AnyChainBlock + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.Block) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyChainBlock + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, nativeBytes__field_descriptor), + (Data.ProtoLens.Tag 2, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyChainBlock'_unknownFields + (\ x__ y__ -> x__ {_AnyChainBlock'_unknownFields = y__}) + defMessage + = AnyChainBlock'_constructor + {_AnyChainBlock'nativeBytes = Data.ProtoLens.fieldDefault, + _AnyChainBlock'chain = Prelude.Nothing, + _AnyChainBlock'_unknownFields = []} + parseMessage + = let + loop :: + AnyChainBlock -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainBlock + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "native_bytes" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyChainBlock" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"nativeBytes") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyChainBlock'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData AnyChainBlock where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyChainBlock'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AnyChainBlock'nativeBytes x__) + (Control.DeepSeq.deepseq (_AnyChainBlock'chain x__) ())) +instance Control.DeepSeq.NFData AnyChainBlock'Chain where + rnf (AnyChainBlock'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyChainBlock'Cardano :: + Data.ProtoLens.Prism.Prism' AnyChainBlock'Chain Proto.Utxorpc.V1beta.Cardano.Cardano.Block +_AnyChainBlock'Cardano + = Data.ProtoLens.Prism.prism' + AnyChainBlock'Cardano + (\ p__ + -> case p__ of + (AnyChainBlock'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.nativeBytes' @:: Lens' AnyChainDatum Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.key' @:: Lens' AnyChainDatum Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'parsedState' @:: Lens' AnyChainDatum (Prelude.Maybe AnyChainDatum'ParsedState)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainDatum (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.PlutusData)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' AnyChainDatum Proto.Utxorpc.V1beta.Cardano.Cardano.PlutusData@ -} +data AnyChainDatum + = AnyChainDatum'_constructor {_AnyChainDatum'nativeBytes :: !Data.ByteString.ByteString, + _AnyChainDatum'key :: !Data.ByteString.ByteString, + _AnyChainDatum'parsedState :: !(Prelude.Maybe AnyChainDatum'ParsedState), + _AnyChainDatum'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyChainDatum where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyChainDatum'ParsedState + = AnyChainDatum'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.PlutusData + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyChainDatum "nativeBytes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainDatum'nativeBytes + (\ x__ y__ -> x__ {_AnyChainDatum'nativeBytes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainDatum "key" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainDatum'key (\ x__ y__ -> x__ {_AnyChainDatum'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainDatum "maybe'parsedState" (Prelude.Maybe AnyChainDatum'ParsedState) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainDatum'parsedState + (\ x__ y__ -> x__ {_AnyChainDatum'parsedState = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainDatum "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.PlutusData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainDatum'parsedState + (\ x__ y__ -> x__ {_AnyChainDatum'parsedState = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainDatum'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainDatum'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyChainDatum "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.PlutusData where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainDatum'parsedState + (\ x__ y__ -> x__ {_AnyChainDatum'parsedState = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainDatum'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainDatum'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyChainDatum where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.AnyChainDatum" + packedMessageDescriptor _ + = "\n\ + \\rAnyChainDatum\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2>\n\ + \\acardano\CAN\ETX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataH\NULR\acardanoB\SO\n\ + \\fparsed_state" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + nativeBytes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "native_bytes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nativeBytes")) :: + Data.ProtoLens.FieldDescriptor AnyChainDatum + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor AnyChainDatum + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.PlutusData) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyChainDatum + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, nativeBytes__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyChainDatum'_unknownFields + (\ x__ y__ -> x__ {_AnyChainDatum'_unknownFields = y__}) + defMessage + = AnyChainDatum'_constructor + {_AnyChainDatum'nativeBytes = Data.ProtoLens.fieldDefault, + _AnyChainDatum'key = Data.ProtoLens.fieldDefault, + _AnyChainDatum'parsedState = Prelude.Nothing, + _AnyChainDatum'_unknownFields = []} + parseMessage + = let + loop :: + AnyChainDatum -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainDatum + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "native_bytes" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyChainDatum" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"nativeBytes") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'parsedState") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyChainDatum'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData AnyChainDatum where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyChainDatum'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AnyChainDatum'nativeBytes x__) + (Control.DeepSeq.deepseq + (_AnyChainDatum'key x__) + (Control.DeepSeq.deepseq (_AnyChainDatum'parsedState x__) ()))) +instance Control.DeepSeq.NFData AnyChainDatum'ParsedState where + rnf (AnyChainDatum'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyChainDatum'Cardano :: + Data.ProtoLens.Prism.Prism' AnyChainDatum'ParsedState Proto.Utxorpc.V1beta.Cardano.Cardano.PlutusData +_AnyChainDatum'Cardano + = Data.ProtoLens.Prism.prism' + AnyChainDatum'Cardano + (\ p__ + -> case p__ of + (AnyChainDatum'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'params' @:: Lens' AnyChainParams (Prelude.Maybe AnyChainParams'Params)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainParams (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.PParams)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' AnyChainParams Proto.Utxorpc.V1beta.Cardano.Cardano.PParams@ -} +data AnyChainParams + = AnyChainParams'_constructor {_AnyChainParams'params :: !(Prelude.Maybe AnyChainParams'Params), + _AnyChainParams'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyChainParams where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyChainParams'Params + = AnyChainParams'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.PParams + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'params" (Prelude.Maybe AnyChainParams'Params) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainParams'params + (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.PParams) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainParams'params + (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainParams'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainParams'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyChainParams "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.PParams where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainParams'params + (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainParams'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainParams'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyChainParams where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.AnyChainParams" + packedMessageDescriptor _ + = "\n\ + \\SOAnyChainParams\DC2;\n\ + \\acardano\CAN\SOH \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsH\NULR\acardanoB\b\n\ + \\ACKparams" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.PParams) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyChainParams + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyChainParams'_unknownFields + (\ x__ y__ -> x__ {_AnyChainParams'_unknownFields = y__}) + defMessage + = AnyChainParams'_constructor + {_AnyChainParams'params = Prelude.Nothing, + _AnyChainParams'_unknownFields = []} + parseMessage + = let + loop :: + AnyChainParams + -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainParams + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyChainParams" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'params") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyChainParams'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData AnyChainParams where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyChainParams'_unknownFields x__) + (Control.DeepSeq.deepseq (_AnyChainParams'params x__) ()) +instance Control.DeepSeq.NFData AnyChainParams'Params where + rnf (AnyChainParams'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyChainParams'Cardano :: + Data.ProtoLens.Prism.Prism' AnyChainParams'Params Proto.Utxorpc.V1beta.Cardano.Cardano.PParams +_AnyChainParams'Cardano + = Data.ProtoLens.Prism.prism' + AnyChainParams'Cardano + (\ p__ + -> case p__ of + (AnyChainParams'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.nativeBytes' @:: Lens' AnyChainTx Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.blockRef' @:: Lens' AnyChainTx ChainPoint@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'blockRef' @:: Lens' AnyChainTx (Prelude.Maybe ChainPoint)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'chain' @:: Lens' AnyChainTx (Prelude.Maybe AnyChainTx'Chain)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainTx (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Tx)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' AnyChainTx Proto.Utxorpc.V1beta.Cardano.Cardano.Tx@ -} +data AnyChainTx + = AnyChainTx'_constructor {_AnyChainTx'nativeBytes :: !Data.ByteString.ByteString, + _AnyChainTx'blockRef :: !(Prelude.Maybe ChainPoint), + _AnyChainTx'chain :: !(Prelude.Maybe AnyChainTx'Chain), + _AnyChainTx'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyChainTx where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyChainTx'Chain + = AnyChainTx'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.Tx + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyChainTx "nativeBytes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'nativeBytes + (\ x__ y__ -> x__ {_AnyChainTx'nativeBytes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainTx "blockRef" ChainPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'blockRef + (\ x__ y__ -> x__ {_AnyChainTx'blockRef = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'blockRef" (Prelude.Maybe ChainPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'blockRef + (\ x__ y__ -> x__ {_AnyChainTx'blockRef = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'chain" (Prelude.Maybe AnyChainTx'Chain) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'chain (\ x__ y__ -> x__ {_AnyChainTx'chain = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Tx) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'chain (\ x__ y__ -> x__ {_AnyChainTx'chain = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainTx'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainTx'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyChainTx "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.Tx where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'chain (\ x__ y__ -> x__ {_AnyChainTx'chain = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainTx'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainTx'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyChainTx where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.AnyChainTx" + packedMessageDescriptor _ + = "\n\ + \\n\ + \AnyChainTx\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC26\n\ + \\acardano\CAN\STX \SOH(\v2\SUB.utxorpc.v1beta.cardano.TxH\NULR\acardano\DC2=\n\ + \\tblock_ref\CAN\ETX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\bblockRefB\a\n\ + \\ENQchain" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + nativeBytes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "native_bytes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nativeBytes")) :: + Data.ProtoLens.FieldDescriptor AnyChainTx + blockRef__field_descriptor + = Data.ProtoLens.FieldDescriptor + "block_ref" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChainPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'blockRef")) :: + Data.ProtoLens.FieldDescriptor AnyChainTx + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.Tx) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyChainTx + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, nativeBytes__field_descriptor), + (Data.ProtoLens.Tag 3, blockRef__field_descriptor), + (Data.ProtoLens.Tag 2, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyChainTx'_unknownFields + (\ x__ y__ -> x__ {_AnyChainTx'_unknownFields = y__}) + defMessage + = AnyChainTx'_constructor + {_AnyChainTx'nativeBytes = Data.ProtoLens.fieldDefault, + _AnyChainTx'blockRef = Prelude.Nothing, + _AnyChainTx'chain = Prelude.Nothing, + _AnyChainTx'_unknownFields = []} + parseMessage + = let + loop :: + AnyChainTx -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTx + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "native_bytes" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "block_ref" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"blockRef") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyChainTx" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"nativeBytes") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'blockRef") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyChainTx'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData AnyChainTx where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyChainTx'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AnyChainTx'nativeBytes x__) + (Control.DeepSeq.deepseq + (_AnyChainTx'blockRef x__) + (Control.DeepSeq.deepseq (_AnyChainTx'chain x__) ()))) +instance Control.DeepSeq.NFData AnyChainTx'Chain where + rnf (AnyChainTx'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyChainTx'Cardano :: + Data.ProtoLens.Prism.Prism' AnyChainTx'Chain Proto.Utxorpc.V1beta.Cardano.Cardano.Tx +_AnyChainTx'Cardano + = Data.ProtoLens.Prism.prism' + AnyChainTx'Cardano + (\ p__ + -> case p__ of (AnyChainTx'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.nativeBytes' @:: Lens' AnyUtxoData Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.txoRef' @:: Lens' AnyUtxoData TxoRef@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'txoRef' @:: Lens' AnyUtxoData (Prelude.Maybe TxoRef)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.blockRef' @:: Lens' AnyUtxoData ChainPoint@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'blockRef' @:: Lens' AnyUtxoData (Prelude.Maybe ChainPoint)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'parsedState' @:: Lens' AnyUtxoData (Prelude.Maybe AnyUtxoData'ParsedState)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' AnyUtxoData (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutput)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' AnyUtxoData Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutput@ -} +data AnyUtxoData + = AnyUtxoData'_constructor {_AnyUtxoData'nativeBytes :: !Data.ByteString.ByteString, + _AnyUtxoData'txoRef :: !(Prelude.Maybe TxoRef), + _AnyUtxoData'blockRef :: !(Prelude.Maybe ChainPoint), + _AnyUtxoData'parsedState :: !(Prelude.Maybe AnyUtxoData'ParsedState), + _AnyUtxoData'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyUtxoData where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyUtxoData'ParsedState + = AnyUtxoData'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutput + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyUtxoData "nativeBytes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'nativeBytes + (\ x__ y__ -> x__ {_AnyUtxoData'nativeBytes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyUtxoData "txoRef" TxoRef where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'txoRef (\ x__ y__ -> x__ {_AnyUtxoData'txoRef = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'txoRef" (Prelude.Maybe TxoRef) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'txoRef (\ x__ y__ -> x__ {_AnyUtxoData'txoRef = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyUtxoData "blockRef" ChainPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'blockRef + (\ x__ y__ -> x__ {_AnyUtxoData'blockRef = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'blockRef" (Prelude.Maybe ChainPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'blockRef + (\ x__ y__ -> x__ {_AnyUtxoData'blockRef = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'parsedState" (Prelude.Maybe AnyUtxoData'ParsedState) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'parsedState + (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutput) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'parsedState + (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyUtxoData'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyUtxoData'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyUtxoData "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutput where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoData'parsedState + (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyUtxoData'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyUtxoData'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyUtxoData where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.AnyUtxoData" + packedMessageDescriptor _ + = "\n\ + \\vAnyUtxoData\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC25\n\ + \\atxo_ref\CAN\STX \SOH(\v2\FS.utxorpc.v1beta.query.TxoRefR\ACKtxoRef\DC2<\n\ + \\acardano\CAN\ETX \SOH(\v2 .utxorpc.v1beta.cardano.TxOutputH\NULR\acardano\DC2=\n\ + \\tblock_ref\CAN\EOT \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\bblockRefB\SO\n\ + \\fparsed_state" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + nativeBytes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "native_bytes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nativeBytes")) :: + Data.ProtoLens.FieldDescriptor AnyUtxoData + txoRef__field_descriptor + = Data.ProtoLens.FieldDescriptor + "txo_ref" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxoRef) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'txoRef")) :: + Data.ProtoLens.FieldDescriptor AnyUtxoData + blockRef__field_descriptor + = Data.ProtoLens.FieldDescriptor + "block_ref" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChainPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'blockRef")) :: + Data.ProtoLens.FieldDescriptor AnyUtxoData + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutput) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyUtxoData + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, nativeBytes__field_descriptor), + (Data.ProtoLens.Tag 2, txoRef__field_descriptor), + (Data.ProtoLens.Tag 4, blockRef__field_descriptor), + (Data.ProtoLens.Tag 3, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyUtxoData'_unknownFields + (\ x__ y__ -> x__ {_AnyUtxoData'_unknownFields = y__}) + defMessage + = AnyUtxoData'_constructor + {_AnyUtxoData'nativeBytes = Data.ProtoLens.fieldDefault, + _AnyUtxoData'txoRef = Prelude.Nothing, + _AnyUtxoData'blockRef = Prelude.Nothing, + _AnyUtxoData'parsedState = Prelude.Nothing, + _AnyUtxoData'_unknownFields = []} + parseMessage + = let + loop :: + AnyUtxoData -> Data.ProtoLens.Encoding.Bytes.Parser AnyUtxoData + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "native_bytes" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "txo_ref" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txoRef") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "block_ref" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"blockRef") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyUtxoData" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"nativeBytes") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'txoRef") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'blockRef") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'parsedState") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyUtxoData'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData AnyUtxoData where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyUtxoData'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AnyUtxoData'nativeBytes x__) + (Control.DeepSeq.deepseq + (_AnyUtxoData'txoRef x__) + (Control.DeepSeq.deepseq + (_AnyUtxoData'blockRef x__) + (Control.DeepSeq.deepseq (_AnyUtxoData'parsedState x__) ())))) +instance Control.DeepSeq.NFData AnyUtxoData'ParsedState where + rnf (AnyUtxoData'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyUtxoData'Cardano :: + Data.ProtoLens.Prism.Prism' AnyUtxoData'ParsedState Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutput +_AnyUtxoData'Cardano + = Data.ProtoLens.Prism.prism' + AnyUtxoData'Cardano + (\ p__ + -> case p__ of (AnyUtxoData'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'utxoPattern' @:: Lens' AnyUtxoPattern (Prelude.Maybe AnyUtxoPattern'UtxoPattern)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' AnyUtxoPattern (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutputPattern)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' AnyUtxoPattern Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutputPattern@ -} +data AnyUtxoPattern + = AnyUtxoPattern'_constructor {_AnyUtxoPattern'utxoPattern :: !(Prelude.Maybe AnyUtxoPattern'UtxoPattern), + _AnyUtxoPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyUtxoPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyUtxoPattern'UtxoPattern + = AnyUtxoPattern'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutputPattern + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyUtxoPattern "maybe'utxoPattern" (Prelude.Maybe AnyUtxoPattern'UtxoPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoPattern'utxoPattern + (\ x__ y__ -> x__ {_AnyUtxoPattern'utxoPattern = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyUtxoPattern "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutputPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoPattern'utxoPattern + (\ x__ y__ -> x__ {_AnyUtxoPattern'utxoPattern = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyUtxoPattern'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyUtxoPattern'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyUtxoPattern "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutputPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyUtxoPattern'utxoPattern + (\ x__ y__ -> x__ {_AnyUtxoPattern'utxoPattern = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyUtxoPattern'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyUtxoPattern'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyUtxoPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.AnyUtxoPattern" + packedMessageDescriptor _ + = "\n\ + \\SOAnyUtxoPattern\DC2C\n\ + \\acardano\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.TxOutputPatternH\NULR\acardanoB\SO\n\ + \\futxo_pattern" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutputPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyUtxoPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyUtxoPattern'_unknownFields + (\ x__ y__ -> x__ {_AnyUtxoPattern'_unknownFields = y__}) + defMessage + = AnyUtxoPattern'_constructor + {_AnyUtxoPattern'utxoPattern = Prelude.Nothing, + _AnyUtxoPattern'_unknownFields = []} + parseMessage + = let + loop :: + AnyUtxoPattern + -> Data.ProtoLens.Encoding.Bytes.Parser AnyUtxoPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyUtxoPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'utxoPattern") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyUtxoPattern'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData AnyUtxoPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyUtxoPattern'_unknownFields x__) + (Control.DeepSeq.deepseq (_AnyUtxoPattern'utxoPattern x__) ()) +instance Control.DeepSeq.NFData AnyUtxoPattern'UtxoPattern where + rnf (AnyUtxoPattern'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyUtxoPattern'Cardano :: + Data.ProtoLens.Prism.Prism' AnyUtxoPattern'UtxoPattern Proto.Utxorpc.V1beta.Cardano.Cardano.TxOutputPattern +_AnyUtxoPattern'Cardano + = Data.ProtoLens.Prism.prism' + AnyUtxoPattern'Cardano + (\ p__ + -> case p__ of + (AnyUtxoPattern'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.slot' @:: Lens' ChainPoint Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.hash' @:: Lens' ChainPoint Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.height' @:: Lens' ChainPoint Data.Word.Word64@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.timestamp' @:: Lens' ChainPoint Data.Word.Word64@ -} +data ChainPoint + = ChainPoint'_constructor {_ChainPoint'slot :: !Data.Word.Word64, + _ChainPoint'hash :: !Data.ByteString.ByteString, + _ChainPoint'height :: !Data.Word.Word64, + _ChainPoint'timestamp :: !Data.Word.Word64, + _ChainPoint'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ChainPoint where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ChainPoint "slot" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChainPoint'slot (\ x__ y__ -> x__ {_ChainPoint'slot = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ChainPoint "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChainPoint'hash (\ x__ y__ -> x__ {_ChainPoint'hash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ChainPoint "height" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChainPoint'height (\ x__ y__ -> x__ {_ChainPoint'height = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ChainPoint "timestamp" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ChainPoint'timestamp + (\ x__ y__ -> x__ {_ChainPoint'timestamp = y__})) + Prelude.id +instance Data.ProtoLens.Message ChainPoint where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.ChainPoint" + packedMessageDescriptor _ + = "\n\ + \\n\ + \ChainPoint\DC2\DC2\n\ + \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\ + \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\DC2\FS\n\ + \\ttimestamp\CAN\EOT \SOH(\EOTR\ttimestamp" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + slot__field_descriptor + = Data.ProtoLens.FieldDescriptor + "slot" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) :: + Data.ProtoLens.FieldDescriptor ChainPoint + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor ChainPoint + height__field_descriptor + = Data.ProtoLens.FieldDescriptor + "height" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) :: + Data.ProtoLens.FieldDescriptor ChainPoint + timestamp__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timestamp" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"timestamp")) :: + Data.ProtoLens.FieldDescriptor ChainPoint + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, slot__field_descriptor), + (Data.ProtoLens.Tag 2, hash__field_descriptor), + (Data.ProtoLens.Tag 3, height__field_descriptor), + (Data.ProtoLens.Tag 4, timestamp__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ChainPoint'_unknownFields + (\ x__ y__ -> x__ {_ChainPoint'_unknownFields = y__}) + defMessage + = ChainPoint'_constructor + {_ChainPoint'slot = Data.ProtoLens.fieldDefault, + _ChainPoint'hash = Data.ProtoLens.fieldDefault, + _ChainPoint'height = Data.ProtoLens.fieldDefault, + _ChainPoint'timestamp = Data.ProtoLens.fieldDefault, + _ChainPoint'_unknownFields = []} + parseMessage + = let + loop :: + ChainPoint -> Data.ProtoLens.Encoding.Bytes.Parser ChainPoint + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "slot" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "height" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + Data.ProtoLens.Encoding.Bytes.getVarInt "timestamp" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ChainPoint" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"height") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"timestamp") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData ChainPoint where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ChainPoint'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ChainPoint'slot x__) + (Control.DeepSeq.deepseq + (_ChainPoint'hash x__) + (Control.DeepSeq.deepseq + (_ChainPoint'height x__) + (Control.DeepSeq.deepseq (_ChainPoint'timestamp x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.keys' @:: Lens' ReadDataRequest [Data.ByteString.ByteString]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'keys' @:: Lens' ReadDataRequest (Data.Vector.Vector Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.fieldMask' @:: Lens' ReadDataRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadDataRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} +data ReadDataRequest + = ReadDataRequest'_constructor {_ReadDataRequest'keys :: !(Data.Vector.Vector Data.ByteString.ByteString), + _ReadDataRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _ReadDataRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadDataRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadDataRequest "keys" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataRequest'keys + (\ x__ y__ -> x__ {_ReadDataRequest'keys = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadDataRequest "vec'keys" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataRequest'keys + (\ x__ y__ -> x__ {_ReadDataRequest'keys = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadDataRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataRequest'fieldMask + (\ x__ y__ -> x__ {_ReadDataRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadDataRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataRequest'fieldMask + (\ x__ y__ -> x__ {_ReadDataRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadDataRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadDataRequest" + packedMessageDescriptor _ + = "\n\ + \\SIReadDataRequest\DC2\DC2\n\ + \\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + keys__field_descriptor + = Data.ProtoLens.FieldDescriptor + "keys" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"keys")) :: + Data.ProtoLens.FieldDescriptor ReadDataRequest + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor ReadDataRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, keys__field_descriptor), + (Data.ProtoLens.Tag 2, fieldMask__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadDataRequest'_unknownFields + (\ x__ y__ -> x__ {_ReadDataRequest'_unknownFields = y__}) + defMessage + = ReadDataRequest'_constructor + {_ReadDataRequest'keys = Data.Vector.Generic.empty, + _ReadDataRequest'fieldMask = Prelude.Nothing, + _ReadDataRequest'_unknownFields = []} + parseMessage + = let + loop :: + ReadDataRequest + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser ReadDataRequest + loop x mutable'keys + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'keys) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'keys") frozen'keys x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "keys" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'keys y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + mutable'keys + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'keys + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'keys) + "ReadDataRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'keys") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadDataRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadDataRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadDataRequest'keys x__) + (Control.DeepSeq.deepseq (_ReadDataRequest'fieldMask x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.values' @:: Lens' ReadDataResponse [AnyChainDatum]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'values' @:: Lens' ReadDataResponse (Data.Vector.Vector AnyChainDatum)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.ledgerTip' @:: Lens' ReadDataResponse ChainPoint@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadDataResponse (Prelude.Maybe ChainPoint)@ -} +data ReadDataResponse + = ReadDataResponse'_constructor {_ReadDataResponse'values :: !(Data.Vector.Vector AnyChainDatum), + _ReadDataResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), + _ReadDataResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadDataResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadDataResponse "values" [AnyChainDatum] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataResponse'values + (\ x__ y__ -> x__ {_ReadDataResponse'values = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadDataResponse "vec'values" (Data.Vector.Vector AnyChainDatum) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataResponse'values + (\ x__ y__ -> x__ {_ReadDataResponse'values = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadDataResponse "ledgerTip" ChainPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadDataResponse'ledgerTip = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadDataResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadDataResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadDataResponse'ledgerTip = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadDataResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadDataResponse" + packedMessageDescriptor _ + = "\n\ + \\DLEReadDataResponse\DC2;\n\ + \\ACKvalues\CAN\SOH \ETX(\v2#.utxorpc.v1beta.query.AnyChainDatumR\ACKvalues\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + values__field_descriptor + = Data.ProtoLens.FieldDescriptor + "values" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyChainDatum) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"values")) :: + Data.ProtoLens.FieldDescriptor ReadDataResponse + ledgerTip__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ledger_tip" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChainPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: + Data.ProtoLens.FieldDescriptor ReadDataResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, values__field_descriptor), + (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadDataResponse'_unknownFields + (\ x__ y__ -> x__ {_ReadDataResponse'_unknownFields = y__}) + defMessage + = ReadDataResponse'_constructor + {_ReadDataResponse'values = Data.Vector.Generic.empty, + _ReadDataResponse'ledgerTip = Prelude.Nothing, + _ReadDataResponse'_unknownFields = []} + parseMessage + = let + loop :: + ReadDataResponse + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainDatum + -> Data.ProtoLens.Encoding.Bytes.Parser ReadDataResponse + loop x mutable'values + = do end <- 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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'values") frozen'values x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "values" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'values y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ledger_tip" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) + mutable'values + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'values + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'values) + "ReadDataResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'values") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadDataResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadDataResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadDataResponse'values x__) + (Control.DeepSeq.deepseq (_ReadDataResponse'ledgerTip x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.fieldMask' @:: Lens' ReadEraSummaryRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadEraSummaryRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} +data ReadEraSummaryRequest + = ReadEraSummaryRequest'_constructor {_ReadEraSummaryRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _ReadEraSummaryRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadEraSummaryRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadEraSummaryRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadEraSummaryRequest'fieldMask + (\ x__ y__ -> x__ {_ReadEraSummaryRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadEraSummaryRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadEraSummaryRequest'fieldMask + (\ x__ y__ -> x__ {_ReadEraSummaryRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadEraSummaryRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadEraSummaryRequest" + packedMessageDescriptor _ + = "\n\ + \\NAKReadEraSummaryRequest\DC29\n\ + \\n\ + \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor ReadEraSummaryRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, fieldMask__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadEraSummaryRequest'_unknownFields + (\ x__ y__ -> x__ {_ReadEraSummaryRequest'_unknownFields = y__}) + defMessage + = ReadEraSummaryRequest'_constructor + {_ReadEraSummaryRequest'fieldMask = Prelude.Nothing, + _ReadEraSummaryRequest'_unknownFields = []} + parseMessage + = let + loop :: + ReadEraSummaryRequest + -> Data.ProtoLens.Encoding.Bytes.Parser ReadEraSummaryRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadEraSummaryRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadEraSummaryRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadEraSummaryRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadEraSummaryRequest'fieldMask x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'summary' @:: Lens' ReadEraSummaryResponse (Prelude.Maybe ReadEraSummaryResponse'Summary)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' ReadEraSummaryResponse (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.EraSummaries)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' ReadEraSummaryResponse Proto.Utxorpc.V1beta.Cardano.Cardano.EraSummaries@ -} +data ReadEraSummaryResponse + = ReadEraSummaryResponse'_constructor {_ReadEraSummaryResponse'summary :: !(Prelude.Maybe ReadEraSummaryResponse'Summary), + _ReadEraSummaryResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadEraSummaryResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadEraSummaryResponse'Summary + = ReadEraSummaryResponse'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.EraSummaries + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadEraSummaryResponse "maybe'summary" (Prelude.Maybe ReadEraSummaryResponse'Summary) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadEraSummaryResponse'summary + (\ x__ y__ -> x__ {_ReadEraSummaryResponse'summary = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadEraSummaryResponse "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.EraSummaries) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadEraSummaryResponse'summary + (\ x__ y__ -> x__ {_ReadEraSummaryResponse'summary = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadEraSummaryResponse'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadEraSummaryResponse'Cardano y__)) +instance Data.ProtoLens.Field.HasField ReadEraSummaryResponse "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.EraSummaries where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadEraSummaryResponse'summary + (\ x__ y__ -> x__ {_ReadEraSummaryResponse'summary = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadEraSummaryResponse'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadEraSummaryResponse'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadEraSummaryResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadEraSummaryResponse" + packedMessageDescriptor _ + = "\n\ + \\SYNReadEraSummaryResponse\DC2@\n\ + \\acardano\CAN\SOH \SOH(\v2$.utxorpc.v1beta.cardano.EraSummariesH\NULR\acardanoB\t\n\ + \\asummary" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.EraSummaries) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor ReadEraSummaryResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadEraSummaryResponse'_unknownFields + (\ x__ y__ -> x__ {_ReadEraSummaryResponse'_unknownFields = y__}) + defMessage + = ReadEraSummaryResponse'_constructor + {_ReadEraSummaryResponse'summary = Prelude.Nothing, + _ReadEraSummaryResponse'_unknownFields = []} + parseMessage + = let + loop :: + ReadEraSummaryResponse + -> Data.ProtoLens.Encoding.Bytes.Parser ReadEraSummaryResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadEraSummaryResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'summary") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadEraSummaryResponse'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadEraSummaryResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadEraSummaryResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadEraSummaryResponse'summary x__) ()) +instance Control.DeepSeq.NFData ReadEraSummaryResponse'Summary where + rnf (ReadEraSummaryResponse'Cardano x__) = Control.DeepSeq.rnf x__ +_ReadEraSummaryResponse'Cardano :: + Data.ProtoLens.Prism.Prism' ReadEraSummaryResponse'Summary Proto.Utxorpc.V1beta.Cardano.Cardano.EraSummaries +_ReadEraSummaryResponse'Cardano + = Data.ProtoLens.Prism.prism' + ReadEraSummaryResponse'Cardano + (\ p__ + -> case p__ of + (ReadEraSummaryResponse'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.fieldMask' @:: Lens' ReadGenesisRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadGenesisRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} +data ReadGenesisRequest + = ReadGenesisRequest'_constructor {_ReadGenesisRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _ReadGenesisRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadGenesisRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadGenesisRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadGenesisRequest'fieldMask + (\ x__ y__ -> x__ {_ReadGenesisRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadGenesisRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadGenesisRequest'fieldMask + (\ x__ y__ -> x__ {_ReadGenesisRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadGenesisRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadGenesisRequest" + packedMessageDescriptor _ + = "\n\ + \\DC2ReadGenesisRequest\DC29\n\ + \\n\ + \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor ReadGenesisRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, fieldMask__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadGenesisRequest'_unknownFields + (\ x__ y__ -> x__ {_ReadGenesisRequest'_unknownFields = y__}) + defMessage + = ReadGenesisRequest'_constructor + {_ReadGenesisRequest'fieldMask = Prelude.Nothing, + _ReadGenesisRequest'_unknownFields = []} + parseMessage + = let + loop :: + ReadGenesisRequest + -> Data.ProtoLens.Encoding.Bytes.Parser ReadGenesisRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadGenesisRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadGenesisRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadGenesisRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadGenesisRequest'fieldMask x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.genesis' @:: Lens' ReadGenesisResponse Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.caip2' @:: Lens' ReadGenesisResponse Data.Text.Text@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'config' @:: Lens' ReadGenesisResponse (Prelude.Maybe ReadGenesisResponse'Config)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'cardano' @:: Lens' ReadGenesisResponse (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Genesis)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.cardano' @:: Lens' ReadGenesisResponse Proto.Utxorpc.V1beta.Cardano.Cardano.Genesis@ -} +data ReadGenesisResponse + = ReadGenesisResponse'_constructor {_ReadGenesisResponse'genesis :: !Data.ByteString.ByteString, + _ReadGenesisResponse'caip2 :: !Data.Text.Text, + _ReadGenesisResponse'config :: !(Prelude.Maybe ReadGenesisResponse'Config), + _ReadGenesisResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadGenesisResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data ReadGenesisResponse'Config + = ReadGenesisResponse'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.Genesis + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField ReadGenesisResponse "genesis" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadGenesisResponse'genesis + (\ x__ y__ -> x__ {_ReadGenesisResponse'genesis = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadGenesisResponse "caip2" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadGenesisResponse'caip2 + (\ x__ y__ -> x__ {_ReadGenesisResponse'caip2 = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadGenesisResponse "maybe'config" (Prelude.Maybe ReadGenesisResponse'Config) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadGenesisResponse'config + (\ x__ y__ -> x__ {_ReadGenesisResponse'config = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadGenesisResponse "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Genesis) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadGenesisResponse'config + (\ x__ y__ -> x__ {_ReadGenesisResponse'config = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadGenesisResponse'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadGenesisResponse'Cardano y__)) +instance Data.ProtoLens.Field.HasField ReadGenesisResponse "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.Genesis where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadGenesisResponse'config + (\ x__ y__ -> x__ {_ReadGenesisResponse'config = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (ReadGenesisResponse'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap ReadGenesisResponse'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message ReadGenesisResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadGenesisResponse" + packedMessageDescriptor _ + = "\n\ + \\DC3ReadGenesisResponse\DC2\CAN\n\ + \\agenesis\CAN\SOH \SOH(\fR\agenesis\DC2\DC4\n\ + \\ENQcaip2\CAN\STX \SOH(\tR\ENQcaip2\DC2;\n\ + \\acardano\CAN\ETX \SOH(\v2\US.utxorpc.v1beta.cardano.GenesisH\NULR\acardanoB\b\n\ + \\ACKconfig" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + genesis__field_descriptor + = Data.ProtoLens.FieldDescriptor + "genesis" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"genesis")) :: + Data.ProtoLens.FieldDescriptor ReadGenesisResponse + caip2__field_descriptor + = Data.ProtoLens.FieldDescriptor + "caip2" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"caip2")) :: + Data.ProtoLens.FieldDescriptor ReadGenesisResponse + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.Genesis) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor ReadGenesisResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, genesis__field_descriptor), + (Data.ProtoLens.Tag 2, caip2__field_descriptor), + (Data.ProtoLens.Tag 3, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadGenesisResponse'_unknownFields + (\ x__ y__ -> x__ {_ReadGenesisResponse'_unknownFields = y__}) + defMessage + = ReadGenesisResponse'_constructor + {_ReadGenesisResponse'genesis = Data.ProtoLens.fieldDefault, + _ReadGenesisResponse'caip2 = Data.ProtoLens.fieldDefault, + _ReadGenesisResponse'config = Prelude.Nothing, + _ReadGenesisResponse'_unknownFields = []} + parseMessage + = let + loop :: + ReadGenesisResponse + -> Data.ProtoLens.Encoding.Bytes.Parser ReadGenesisResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "genesis" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"genesis") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "caip2" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"caip2") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadGenesisResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"genesis") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"caip2") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'config") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (ReadGenesisResponse'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ReadGenesisResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadGenesisResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadGenesisResponse'genesis x__) + (Control.DeepSeq.deepseq + (_ReadGenesisResponse'caip2 x__) + (Control.DeepSeq.deepseq (_ReadGenesisResponse'config x__) ()))) +instance Control.DeepSeq.NFData ReadGenesisResponse'Config where + rnf (ReadGenesisResponse'Cardano x__) = Control.DeepSeq.rnf x__ +_ReadGenesisResponse'Cardano :: + Data.ProtoLens.Prism.Prism' ReadGenesisResponse'Config Proto.Utxorpc.V1beta.Cardano.Cardano.Genesis +_ReadGenesisResponse'Cardano + = Data.ProtoLens.Prism.prism' + ReadGenesisResponse'Cardano + (\ p__ + -> case p__ of + (ReadGenesisResponse'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.fieldMask' @:: Lens' ReadParamsRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadParamsRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} +data ReadParamsRequest + = ReadParamsRequest'_constructor {_ReadParamsRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _ReadParamsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadParamsRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadParamsRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadParamsRequest'fieldMask + (\ x__ y__ -> x__ {_ReadParamsRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadParamsRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadParamsRequest'fieldMask + (\ x__ y__ -> x__ {_ReadParamsRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadParamsRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadParamsRequest" + packedMessageDescriptor _ + = "\n\ + \\DC1ReadParamsRequest\DC29\n\ + \\n\ + \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor ReadParamsRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, fieldMask__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadParamsRequest'_unknownFields + (\ x__ y__ -> x__ {_ReadParamsRequest'_unknownFields = y__}) + defMessage + = ReadParamsRequest'_constructor + {_ReadParamsRequest'fieldMask = Prelude.Nothing, + _ReadParamsRequest'_unknownFields = []} + parseMessage + = let + loop :: + ReadParamsRequest + -> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadParamsRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadParamsRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadParamsRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadParamsRequest'fieldMask x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.values' @:: Lens' ReadParamsResponse AnyChainParams@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'values' @:: Lens' ReadParamsResponse (Prelude.Maybe AnyChainParams)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.ledgerTip' @:: Lens' ReadParamsResponse ChainPoint@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadParamsResponse (Prelude.Maybe ChainPoint)@ -} +data ReadParamsResponse + = ReadParamsResponse'_constructor {_ReadParamsResponse'values :: !(Prelude.Maybe AnyChainParams), + _ReadParamsResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), + _ReadParamsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadParamsResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadParamsResponse "values" AnyChainParams where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadParamsResponse'values + (\ x__ y__ -> x__ {_ReadParamsResponse'values = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'values" (Prelude.Maybe AnyChainParams) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadParamsResponse'values + (\ x__ y__ -> x__ {_ReadParamsResponse'values = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadParamsResponse "ledgerTip" ChainPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadParamsResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadParamsResponse'ledgerTip = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadParamsResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadParamsResponse'ledgerTip = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadParamsResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadParamsResponse" + packedMessageDescriptor _ + = "\n\ + \\DC2ReadParamsResponse\DC2<\n\ + \\ACKvalues\CAN\SOH \SOH(\v2$.utxorpc.v1beta.query.AnyChainParamsR\ACKvalues\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + values__field_descriptor + = Data.ProtoLens.FieldDescriptor + "values" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyChainParams) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'values")) :: + Data.ProtoLens.FieldDescriptor ReadParamsResponse + ledgerTip__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ledger_tip" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChainPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: + Data.ProtoLens.FieldDescriptor ReadParamsResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, values__field_descriptor), + (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadParamsResponse'_unknownFields + (\ x__ y__ -> x__ {_ReadParamsResponse'_unknownFields = y__}) + defMessage + = ReadParamsResponse'_constructor + {_ReadParamsResponse'values = Prelude.Nothing, + _ReadParamsResponse'ledgerTip = Prelude.Nothing, + _ReadParamsResponse'_unknownFields = []} + parseMessage + = let + loop :: + ReadParamsResponse + -> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "values" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"values") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ledger_tip" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadParamsResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'values") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadParamsResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadParamsResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadParamsResponse'values x__) + (Control.DeepSeq.deepseq (_ReadParamsResponse'ledgerTip x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.hash' @:: Lens' ReadTxRequest Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.fieldMask' @:: Lens' ReadTxRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadTxRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} +data ReadTxRequest + = ReadTxRequest'_constructor {_ReadTxRequest'hash :: !Data.ByteString.ByteString, + _ReadTxRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _ReadTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadTxRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadTxRequest "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadTxRequest'hash (\ x__ y__ -> x__ {_ReadTxRequest'hash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadTxRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadTxRequest'fieldMask + (\ x__ y__ -> x__ {_ReadTxRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadTxRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadTxRequest'fieldMask + (\ x__ y__ -> x__ {_ReadTxRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadTxRequest where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.ReadTxRequest" + packedMessageDescriptor _ + = "\n\ + \\rReadTxRequest\DC2\DC2\n\ + \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor ReadTxRequest + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor ReadTxRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, hash__field_descriptor), + (Data.ProtoLens.Tag 2, fieldMask__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadTxRequest'_unknownFields + (\ x__ y__ -> x__ {_ReadTxRequest'_unknownFields = y__}) + defMessage + = ReadTxRequest'_constructor + {_ReadTxRequest'hash = Data.ProtoLens.fieldDefault, + _ReadTxRequest'fieldMask = Prelude.Nothing, + _ReadTxRequest'_unknownFields = []} + parseMessage + = let + loop :: + ReadTxRequest -> Data.ProtoLens.Encoding.Bytes.Parser ReadTxRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadTxRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadTxRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadTxRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadTxRequest'hash x__) + (Control.DeepSeq.deepseq (_ReadTxRequest'fieldMask x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.tx' @:: Lens' ReadTxResponse AnyChainTx@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'tx' @:: Lens' ReadTxResponse (Prelude.Maybe AnyChainTx)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.ledgerTip' @:: Lens' ReadTxResponse ChainPoint@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadTxResponse (Prelude.Maybe ChainPoint)@ -} +data ReadTxResponse + = ReadTxResponse'_constructor {_ReadTxResponse'tx :: !(Prelude.Maybe AnyChainTx), + _ReadTxResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), + _ReadTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadTxResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadTxResponse "tx" AnyChainTx where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadTxResponse'tx (\ x__ y__ -> x__ {_ReadTxResponse'tx = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadTxResponse "maybe'tx" (Prelude.Maybe AnyChainTx) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadTxResponse'tx (\ x__ y__ -> x__ {_ReadTxResponse'tx = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadTxResponse "ledgerTip" ChainPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadTxResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadTxResponse'ledgerTip = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadTxResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadTxResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadTxResponse'ledgerTip = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadTxResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadTxResponse" + packedMessageDescriptor _ + = "\n\ + \\SOReadTxResponse\DC20\n\ + \\STXtx\CAN\SOH \SOH(\v2 .utxorpc.v1beta.query.AnyChainTxR\STXtx\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + tx__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tx" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyChainTx) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'tx")) :: + Data.ProtoLens.FieldDescriptor ReadTxResponse + ledgerTip__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ledger_tip" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChainPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: + Data.ProtoLens.FieldDescriptor ReadTxResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, tx__field_descriptor), + (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadTxResponse'_unknownFields + (\ x__ y__ -> x__ {_ReadTxResponse'_unknownFields = y__}) + defMessage + = ReadTxResponse'_constructor + {_ReadTxResponse'tx = Prelude.Nothing, + _ReadTxResponse'ledgerTip = Prelude.Nothing, + _ReadTxResponse'_unknownFields = []} + parseMessage + = let + loop :: + ReadTxResponse + -> Data.ProtoLens.Encoding.Bytes.Parser ReadTxResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "tx" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tx") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ledger_tip" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadTxResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'tx") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadTxResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadTxResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadTxResponse'tx x__) + (Control.DeepSeq.deepseq (_ReadTxResponse'ledgerTip x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.keys' @:: Lens' ReadUtxosRequest [TxoRef]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'keys' @:: Lens' ReadUtxosRequest (Data.Vector.Vector TxoRef)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.fieldMask' @:: Lens' ReadUtxosRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadUtxosRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} +data ReadUtxosRequest + = ReadUtxosRequest'_constructor {_ReadUtxosRequest'keys :: !(Data.Vector.Vector TxoRef), + _ReadUtxosRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _ReadUtxosRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadUtxosRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadUtxosRequest "keys" [TxoRef] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosRequest'keys + (\ x__ y__ -> x__ {_ReadUtxosRequest'keys = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadUtxosRequest "vec'keys" (Data.Vector.Vector TxoRef) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosRequest'keys + (\ x__ y__ -> x__ {_ReadUtxosRequest'keys = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadUtxosRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosRequest'fieldMask + (\ x__ y__ -> x__ {_ReadUtxosRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadUtxosRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosRequest'fieldMask + (\ x__ y__ -> x__ {_ReadUtxosRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadUtxosRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadUtxosRequest" + packedMessageDescriptor _ + = "\n\ + \\DLEReadUtxosRequest\DC20\n\ + \\EOTkeys\CAN\SOH \ETX(\v2\FS.utxorpc.v1beta.query.TxoRefR\EOTkeys\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + keys__field_descriptor + = Data.ProtoLens.FieldDescriptor + "keys" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxoRef) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"keys")) :: + Data.ProtoLens.FieldDescriptor ReadUtxosRequest + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor ReadUtxosRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, keys__field_descriptor), + (Data.ProtoLens.Tag 2, fieldMask__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadUtxosRequest'_unknownFields + (\ x__ y__ -> x__ {_ReadUtxosRequest'_unknownFields = y__}) + defMessage + = ReadUtxosRequest'_constructor + {_ReadUtxosRequest'keys = Data.Vector.Generic.empty, + _ReadUtxosRequest'fieldMask = Prelude.Nothing, + _ReadUtxosRequest'_unknownFields = []} + parseMessage + = let + loop :: + ReadUtxosRequest + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxoRef + -> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosRequest + loop x mutable'keys + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'keys) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'keys") frozen'keys x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "keys" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'keys y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + mutable'keys + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'keys + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'keys) + "ReadUtxosRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'keys") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadUtxosRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadUtxosRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadUtxosRequest'keys x__) + (Control.DeepSeq.deepseq (_ReadUtxosRequest'fieldMask x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.items' @:: Lens' ReadUtxosResponse [AnyUtxoData]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'items' @:: Lens' ReadUtxosResponse (Data.Vector.Vector AnyUtxoData)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.ledgerTip' @:: Lens' ReadUtxosResponse ChainPoint@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadUtxosResponse (Prelude.Maybe ChainPoint)@ -} +data ReadUtxosResponse + = ReadUtxosResponse'_constructor {_ReadUtxosResponse'items :: !(Data.Vector.Vector AnyUtxoData), + _ReadUtxosResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), + _ReadUtxosResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadUtxosResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadUtxosResponse "items" [AnyUtxoData] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosResponse'items + (\ x__ y__ -> x__ {_ReadUtxosResponse'items = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadUtxosResponse "vec'items" (Data.Vector.Vector AnyUtxoData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosResponse'items + (\ x__ y__ -> x__ {_ReadUtxosResponse'items = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReadUtxosResponse "ledgerTip" ChainPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadUtxosResponse'ledgerTip = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ReadUtxosResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadUtxosResponse'ledgerTip + (\ x__ y__ -> x__ {_ReadUtxosResponse'ledgerTip = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadUtxosResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.ReadUtxosResponse" + packedMessageDescriptor _ + = "\n\ + \\DC1ReadUtxosResponse\DC27\n\ + \\ENQitems\CAN\SOH \ETX(\v2!.utxorpc.v1beta.query.AnyUtxoDataR\ENQitems\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + items__field_descriptor + = Data.ProtoLens.FieldDescriptor + "items" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyUtxoData) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: + Data.ProtoLens.FieldDescriptor ReadUtxosResponse + ledgerTip__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ledger_tip" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChainPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: + Data.ProtoLens.FieldDescriptor ReadUtxosResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, items__field_descriptor), + (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadUtxosResponse'_unknownFields + (\ x__ y__ -> x__ {_ReadUtxosResponse'_unknownFields = y__}) + defMessage + = ReadUtxosResponse'_constructor + {_ReadUtxosResponse'items = Data.Vector.Generic.empty, + _ReadUtxosResponse'ledgerTip = Prelude.Nothing, + _ReadUtxosResponse'_unknownFields = []} + parseMessage + = let + loop :: + ReadUtxosResponse + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyUtxoData + -> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosResponse + loop x mutable'items + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "items" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'items y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ledger_tip" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) + mutable'items + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'items + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'items) + "ReadUtxosResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReadUtxosResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadUtxosResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReadUtxosResponse'items x__) + (Control.DeepSeq.deepseq (_ReadUtxosResponse'ledgerTip x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.predicate' @:: Lens' SearchUtxosRequest UtxoPredicate@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'predicate' @:: Lens' SearchUtxosRequest (Prelude.Maybe UtxoPredicate)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.fieldMask' @:: Lens' SearchUtxosRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'fieldMask' @:: Lens' SearchUtxosRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maxItems' @:: Lens' SearchUtxosRequest Data.Int.Int32@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.startToken' @:: Lens' SearchUtxosRequest Data.Text.Text@ -} +data SearchUtxosRequest + = SearchUtxosRequest'_constructor {_SearchUtxosRequest'predicate :: !(Prelude.Maybe UtxoPredicate), + _SearchUtxosRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _SearchUtxosRequest'maxItems :: !Data.Int.Int32, + _SearchUtxosRequest'startToken :: !Data.Text.Text, + _SearchUtxosRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SearchUtxosRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SearchUtxosRequest "predicate" UtxoPredicate where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosRequest'predicate + (\ x__ y__ -> x__ {_SearchUtxosRequest'predicate = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SearchUtxosRequest "maybe'predicate" (Prelude.Maybe UtxoPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosRequest'predicate + (\ x__ y__ -> x__ {_SearchUtxosRequest'predicate = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SearchUtxosRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosRequest'fieldMask + (\ x__ y__ -> x__ {_SearchUtxosRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SearchUtxosRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosRequest'fieldMask + (\ x__ y__ -> x__ {_SearchUtxosRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SearchUtxosRequest "maxItems" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosRequest'maxItems + (\ x__ y__ -> x__ {_SearchUtxosRequest'maxItems = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SearchUtxosRequest "startToken" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosRequest'startToken + (\ x__ y__ -> x__ {_SearchUtxosRequest'startToken = y__})) + Prelude.id +instance Data.ProtoLens.Message SearchUtxosRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.SearchUtxosRequest" + packedMessageDescriptor _ + = "\n\ + \\DC2SearchUtxosRequest\DC2A\n\ + \\tpredicate\CAN\SOH \SOH(\v2#.utxorpc.v1beta.query.UtxoPredicateR\tpredicate\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\DC2\ESC\n\ + \\tmax_items\CAN\ETX \SOH(\ENQR\bmaxItems\DC2\US\n\ + \\vstart_token\CAN\EOT \SOH(\tR\n\ + \startToken" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + predicate__field_descriptor + = Data.ProtoLens.FieldDescriptor + "predicate" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'predicate")) :: + Data.ProtoLens.FieldDescriptor SearchUtxosRequest + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor SearchUtxosRequest + maxItems__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_items" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxItems")) :: + Data.ProtoLens.FieldDescriptor SearchUtxosRequest + startToken__field_descriptor + = Data.ProtoLens.FieldDescriptor + "start_token" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"startToken")) :: + Data.ProtoLens.FieldDescriptor SearchUtxosRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, predicate__field_descriptor), + (Data.ProtoLens.Tag 2, fieldMask__field_descriptor), + (Data.ProtoLens.Tag 3, maxItems__field_descriptor), + (Data.ProtoLens.Tag 4, startToken__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SearchUtxosRequest'_unknownFields + (\ x__ y__ -> x__ {_SearchUtxosRequest'_unknownFields = y__}) + defMessage + = SearchUtxosRequest'_constructor + {_SearchUtxosRequest'predicate = Prelude.Nothing, + _SearchUtxosRequest'fieldMask = Prelude.Nothing, + _SearchUtxosRequest'maxItems = Data.ProtoLens.fieldDefault, + _SearchUtxosRequest'startToken = Data.ProtoLens.fieldDefault, + _SearchUtxosRequest'_unknownFields = []} + parseMessage + = let + loop :: + SearchUtxosRequest + -> Data.ProtoLens.Encoding.Bytes.Parser SearchUtxosRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "predicate" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"predicate") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_items" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"maxItems") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "start_token" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"startToken") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SearchUtxosRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'predicate") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"maxItems") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"startToken") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData SearchUtxosRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SearchUtxosRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_SearchUtxosRequest'predicate x__) + (Control.DeepSeq.deepseq + (_SearchUtxosRequest'fieldMask x__) + (Control.DeepSeq.deepseq + (_SearchUtxosRequest'maxItems x__) + (Control.DeepSeq.deepseq + (_SearchUtxosRequest'startToken x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.items' @:: Lens' SearchUtxosResponse [AnyUtxoData]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'items' @:: Lens' SearchUtxosResponse (Data.Vector.Vector AnyUtxoData)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.ledgerTip' @:: Lens' SearchUtxosResponse ChainPoint@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'ledgerTip' @:: Lens' SearchUtxosResponse (Prelude.Maybe ChainPoint)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.nextToken' @:: Lens' SearchUtxosResponse Data.Text.Text@ -} +data SearchUtxosResponse + = SearchUtxosResponse'_constructor {_SearchUtxosResponse'items :: !(Data.Vector.Vector AnyUtxoData), + _SearchUtxosResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), + _SearchUtxosResponse'nextToken :: !Data.Text.Text, + _SearchUtxosResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SearchUtxosResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SearchUtxosResponse "items" [AnyUtxoData] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosResponse'items + (\ x__ y__ -> x__ {_SearchUtxosResponse'items = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField SearchUtxosResponse "vec'items" (Data.Vector.Vector AnyUtxoData) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosResponse'items + (\ x__ y__ -> x__ {_SearchUtxosResponse'items = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SearchUtxosResponse "ledgerTip" ChainPoint where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosResponse'ledgerTip + (\ x__ y__ -> x__ {_SearchUtxosResponse'ledgerTip = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SearchUtxosResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosResponse'ledgerTip + (\ x__ y__ -> x__ {_SearchUtxosResponse'ledgerTip = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SearchUtxosResponse "nextToken" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SearchUtxosResponse'nextToken + (\ x__ y__ -> x__ {_SearchUtxosResponse'nextToken = y__})) + Prelude.id +instance Data.ProtoLens.Message SearchUtxosResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.query.SearchUtxosResponse" + packedMessageDescriptor _ + = "\n\ + \\DC3SearchUtxosResponse\DC27\n\ + \\ENQitems\CAN\SOH \ETX(\v2!.utxorpc.v1beta.query.AnyUtxoDataR\ENQitems\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip\DC2\GS\n\ + \\n\ + \next_token\CAN\ETX \SOH(\tR\tnextToken" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + items__field_descriptor + = Data.ProtoLens.FieldDescriptor + "items" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyUtxoData) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: + Data.ProtoLens.FieldDescriptor SearchUtxosResponse + ledgerTip__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ledger_tip" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ChainPoint) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: + Data.ProtoLens.FieldDescriptor SearchUtxosResponse + nextToken__field_descriptor + = Data.ProtoLens.FieldDescriptor + "next_token" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nextToken")) :: + Data.ProtoLens.FieldDescriptor SearchUtxosResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, items__field_descriptor), + (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor), + (Data.ProtoLens.Tag 3, nextToken__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SearchUtxosResponse'_unknownFields + (\ x__ y__ -> x__ {_SearchUtxosResponse'_unknownFields = y__}) + defMessage + = SearchUtxosResponse'_constructor + {_SearchUtxosResponse'items = Data.Vector.Generic.empty, + _SearchUtxosResponse'ledgerTip = Prelude.Nothing, + _SearchUtxosResponse'nextToken = Data.ProtoLens.fieldDefault, + _SearchUtxosResponse'_unknownFields = []} + parseMessage + = let + loop :: + SearchUtxosResponse + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyUtxoData + -> Data.ProtoLens.Encoding.Bytes.Parser SearchUtxosResponse + loop x mutable'items + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "items" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'items y) + loop x v + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "ledger_tip" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) + mutable'items + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "next_token" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nextToken") y x) + mutable'items + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'items + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'items) + "SearchUtxosResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"nextToken") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData SearchUtxosResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SearchUtxosResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_SearchUtxosResponse'items x__) + (Control.DeepSeq.deepseq + (_SearchUtxosResponse'ledgerTip x__) + (Control.DeepSeq.deepseq (_SearchUtxosResponse'nextToken x__) ()))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.hash' @:: Lens' TxoRef Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.index' @:: Lens' TxoRef Data.Word.Word32@ -} +data TxoRef + = TxoRef'_constructor {_TxoRef'hash :: !Data.ByteString.ByteString, + _TxoRef'index :: !Data.Word.Word32, + _TxoRef'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxoRef where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxoRef "hash" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxoRef'hash (\ x__ y__ -> x__ {_TxoRef'hash = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxoRef "index" Data.Word.Word32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxoRef'index (\ x__ y__ -> x__ {_TxoRef'index = y__})) + Prelude.id +instance Data.ProtoLens.Message TxoRef where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.TxoRef" + packedMessageDescriptor _ + = "\n\ + \\ACKTxoRef\DC2\DC2\n\ + \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\ + \\ENQindex\CAN\STX \SOH(\rR\ENQindex" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + hash__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hash" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: + Data.ProtoLens.FieldDescriptor TxoRef + index__field_descriptor + = Data.ProtoLens.FieldDescriptor + "index" + (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"index")) :: + Data.ProtoLens.FieldDescriptor TxoRef + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, hash__field_descriptor), + (Data.ProtoLens.Tag 2, index__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxoRef'_unknownFields + (\ x__ y__ -> x__ {_TxoRef'_unknownFields = y__}) + defMessage + = TxoRef'_constructor + {_TxoRef'hash = Data.ProtoLens.fieldDefault, + _TxoRef'index = Data.ProtoLens.fieldDefault, + _TxoRef'_unknownFields = []} + parseMessage + = let + loop :: TxoRef -> Data.ProtoLens.Encoding.Bytes.Parser TxoRef + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "hash" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "index" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"index") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TxoRef" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"index") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TxoRef where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxoRef'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxoRef'hash x__) + (Control.DeepSeq.deepseq (_TxoRef'index x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.match' @:: Lens' UtxoPredicate AnyUtxoPattern@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.maybe'match' @:: Lens' UtxoPredicate (Prelude.Maybe AnyUtxoPattern)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.not' @:: Lens' UtxoPredicate [UtxoPredicate]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'not' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.allOf' @:: Lens' UtxoPredicate [UtxoPredicate]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'allOf' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.anyOf' @:: Lens' UtxoPredicate [UtxoPredicate]@ + * 'Proto.Utxorpc.V1beta.Query.Query_Fields.vec'anyOf' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@ -} +data UtxoPredicate + = UtxoPredicate'_constructor {_UtxoPredicate'match :: !(Prelude.Maybe AnyUtxoPattern), + _UtxoPredicate'not :: !(Data.Vector.Vector UtxoPredicate), + _UtxoPredicate'allOf :: !(Data.Vector.Vector UtxoPredicate), + _UtxoPredicate'anyOf :: !(Data.Vector.Vector UtxoPredicate), + _UtxoPredicate'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UtxoPredicate where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField UtxoPredicate "match" AnyUtxoPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'match + (\ x__ y__ -> x__ {_UtxoPredicate'match = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField UtxoPredicate "maybe'match" (Prelude.Maybe AnyUtxoPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'match + (\ x__ y__ -> x__ {_UtxoPredicate'match = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UtxoPredicate "not" [UtxoPredicate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'not (\ x__ y__ -> x__ {_UtxoPredicate'not = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'not" (Data.Vector.Vector UtxoPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'not (\ x__ y__ -> x__ {_UtxoPredicate'not = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UtxoPredicate "allOf" [UtxoPredicate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'allOf + (\ x__ y__ -> x__ {_UtxoPredicate'allOf = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'allOf" (Data.Vector.Vector UtxoPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'allOf + (\ x__ y__ -> x__ {_UtxoPredicate'allOf = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField UtxoPredicate "anyOf" [UtxoPredicate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'anyOf + (\ x__ y__ -> x__ {_UtxoPredicate'anyOf = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'anyOf" (Data.Vector.Vector UtxoPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _UtxoPredicate'anyOf + (\ x__ y__ -> x__ {_UtxoPredicate'anyOf = y__})) + Prelude.id +instance Data.ProtoLens.Message UtxoPredicate where + messageName _ = Data.Text.pack "utxorpc.v1beta.query.UtxoPredicate" + packedMessageDescriptor _ + = "\n\ + \\rUtxoPredicate\DC2:\n\ + \\ENQmatch\CAN\SOH \SOH(\v2$.utxorpc.v1beta.query.AnyUtxoPatternR\ENQmatch\DC25\n\ + \\ETXnot\CAN\STX \ETX(\v2#.utxorpc.v1beta.query.UtxoPredicateR\ETXnot\DC2:\n\ + \\ACKall_of\CAN\ETX \ETX(\v2#.utxorpc.v1beta.query.UtxoPredicateR\ENQallOf\DC2:\n\ + \\ACKany_of\CAN\EOT \ETX(\v2#.utxorpc.v1beta.query.UtxoPredicateR\ENQanyOf" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + match__field_descriptor + = Data.ProtoLens.FieldDescriptor + "match" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyUtxoPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'match")) :: + Data.ProtoLens.FieldDescriptor UtxoPredicate + not__field_descriptor + = Data.ProtoLens.FieldDescriptor + "not" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"not")) :: + Data.ProtoLens.FieldDescriptor UtxoPredicate + allOf__field_descriptor + = Data.ProtoLens.FieldDescriptor + "all_of" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"allOf")) :: + Data.ProtoLens.FieldDescriptor UtxoPredicate + anyOf__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any_of" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"anyOf")) :: + Data.ProtoLens.FieldDescriptor UtxoPredicate + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, match__field_descriptor), + (Data.ProtoLens.Tag 2, not__field_descriptor), + (Data.ProtoLens.Tag 3, allOf__field_descriptor), + (Data.ProtoLens.Tag 4, anyOf__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _UtxoPredicate'_unknownFields + (\ x__ y__ -> x__ {_UtxoPredicate'_unknownFields = y__}) + defMessage + = UtxoPredicate'_constructor + {_UtxoPredicate'match = Prelude.Nothing, + _UtxoPredicate'not = Data.Vector.Generic.empty, + _UtxoPredicate'allOf = Data.Vector.Generic.empty, + _UtxoPredicate'anyOf = Data.Vector.Generic.empty, + _UtxoPredicate'_unknownFields = []} + parseMessage + = let + loop :: + UtxoPredicate + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate + -> Data.ProtoLens.Encoding.Bytes.Parser UtxoPredicate + loop x mutable'allOf mutable'anyOf mutable'not + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'allOf) + frozen'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'anyOf) + frozen'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'not) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'allOf") frozen'allOf + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'anyOf") frozen'anyOf + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'not") frozen'not x)))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "match" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"match") y x) + mutable'allOf mutable'anyOf mutable'not + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "not" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'not y) + loop x mutable'allOf mutable'anyOf v + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "all_of" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'allOf y) + loop x v mutable'anyOf mutable'not + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "any_of" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'anyOf y) + loop x mutable'allOf v mutable'not + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'allOf mutable'anyOf mutable'not + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage mutable'allOf mutable'anyOf mutable'not) + "UtxoPredicate" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'match") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'not") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'allOf") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'anyOf") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData UtxoPredicate where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_UtxoPredicate'_unknownFields x__) + (Control.DeepSeq.deepseq + (_UtxoPredicate'match x__) + (Control.DeepSeq.deepseq + (_UtxoPredicate'not x__) + (Control.DeepSeq.deepseq + (_UtxoPredicate'allOf x__) + (Control.DeepSeq.deepseq (_UtxoPredicate'anyOf x__) ())))) +data QueryService = QueryService {} +instance Data.ProtoLens.Service.Types.Service QueryService where + type ServiceName QueryService = "QueryService" + type ServicePackage QueryService = "utxorpc.v1beta.query" + type ServiceMethods QueryService = '["readData", + "readEraSummary", + "readGenesis", + "readParams", + "readTx", + "readUtxos", + "searchUtxos"] + packedServiceDescriptor _ + = "\n\ + \\fQueryService\DC2_\n\ + \\n\ + \ReadParams\DC2'.utxorpc.v1beta.query.ReadParamsRequest\SUB(.utxorpc.v1beta.query.ReadParamsResponse\DC2\\\n\ + \\tReadUtxos\DC2&.utxorpc.v1beta.query.ReadUtxosRequest\SUB'.utxorpc.v1beta.query.ReadUtxosResponse\DC2b\n\ + \\vSearchUtxos\DC2(.utxorpc.v1beta.query.SearchUtxosRequest\SUB).utxorpc.v1beta.query.SearchUtxosResponse\DC2Y\n\ + \\bReadData\DC2%.utxorpc.v1beta.query.ReadDataRequest\SUB&.utxorpc.v1beta.query.ReadDataResponse\DC2S\n\ + \\ACKReadTx\DC2#.utxorpc.v1beta.query.ReadTxRequest\SUB$.utxorpc.v1beta.query.ReadTxResponse\DC2b\n\ + \\vReadGenesis\DC2(.utxorpc.v1beta.query.ReadGenesisRequest\SUB).utxorpc.v1beta.query.ReadGenesisResponse\DC2k\n\ + \\SOReadEraSummary\DC2+.utxorpc.v1beta.query.ReadEraSummaryRequest\SUB,.utxorpc.v1beta.query.ReadEraSummaryResponse" +instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readParams" where + type MethodName QueryService "readParams" = "ReadParams" + type MethodInput QueryService "readParams" = ReadParamsRequest + type MethodOutput QueryService "readParams" = ReadParamsResponse + type MethodStreamingType QueryService "readParams" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readUtxos" where + type MethodName QueryService "readUtxos" = "ReadUtxos" + type MethodInput QueryService "readUtxos" = ReadUtxosRequest + type MethodOutput QueryService "readUtxos" = ReadUtxosResponse + type MethodStreamingType QueryService "readUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "searchUtxos" where + type MethodName QueryService "searchUtxos" = "SearchUtxos" + type MethodInput QueryService "searchUtxos" = SearchUtxosRequest + type MethodOutput QueryService "searchUtxos" = SearchUtxosResponse + type MethodStreamingType QueryService "searchUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readData" where + type MethodName QueryService "readData" = "ReadData" + type MethodInput QueryService "readData" = ReadDataRequest + type MethodOutput QueryService "readData" = ReadDataResponse + type MethodStreamingType QueryService "readData" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readTx" where + type MethodName QueryService "readTx" = "ReadTx" + type MethodInput QueryService "readTx" = ReadTxRequest + type MethodOutput QueryService "readTx" = ReadTxResponse + type MethodStreamingType QueryService "readTx" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readGenesis" where + type MethodName QueryService "readGenesis" = "ReadGenesis" + type MethodInput QueryService "readGenesis" = ReadGenesisRequest + type MethodOutput QueryService "readGenesis" = ReadGenesisResponse + type MethodStreamingType QueryService "readGenesis" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readEraSummary" where + type MethodName QueryService "readEraSummary" = "ReadEraSummary" + type MethodInput QueryService "readEraSummary" = ReadEraSummaryRequest + type MethodOutput QueryService "readEraSummary" = ReadEraSummaryResponse + type MethodStreamingType QueryService "readEraSummary" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \ utxorpc/v1beta/query/query.proto\DC2\DC4utxorpc.v1beta.query\SUB google/protobuf/field_mask.proto\SUB$utxorpc/v1beta/cardano/cardano.proto\"j\n\ + \\n\ + \ChainPoint\DC2\DC2\n\ + \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ + \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\ + \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\DC2\FS\n\ + \\ttimestamp\CAN\EOT \SOH(\EOTR\ttimestamp\"v\n\ + \\rAnyChainBlock\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC29\n\ + \\acardano\CAN\STX \SOH(\v2\GS.utxorpc.v1beta.cardano.BlockH\NULR\acardanoB\a\n\ + \\ENQchain\"2\n\ + \\ACKTxoRef\DC2\DC2\n\ + \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\ + \\ENQindex\CAN\STX \SOH(\rR\ENQindex\"N\n\ + \\DC1ReadParamsRequest\DC29\n\ + \\n\ + \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"O\n\ + \\DC2ReadGenesisRequest\DC29\n\ + \\n\ + \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"R\n\ + \\NAKReadEraSummaryRequest\DC29\n\ + \\n\ + \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"\140\SOH\n\ + \\DC3ReadGenesisResponse\DC2\CAN\n\ + \\agenesis\CAN\SOH \SOH(\fR\agenesis\DC2\DC4\n\ + \\ENQcaip2\CAN\STX \SOH(\tR\ENQcaip2\DC2;\n\ + \\acardano\CAN\ETX \SOH(\v2\US.utxorpc.v1beta.cardano.GenesisH\NULR\acardanoB\b\n\ + \\ACKconfig\"e\n\ + \\SYNReadEraSummaryResponse\DC2@\n\ + \\acardano\CAN\SOH \SOH(\v2$.utxorpc.v1beta.cardano.EraSummariesH\NULR\acardanoB\t\n\ + \\asummary\"W\n\ + \\SOAnyChainParams\DC2;\n\ + \\acardano\CAN\SOH \SOH(\v2\US.utxorpc.v1beta.cardano.PParamsH\NULR\acardanoB\b\n\ + \\ACKparams\"\147\SOH\n\ + \\DC2ReadParamsResponse\DC2<\n\ + \\ACKvalues\CAN\SOH \SOH(\v2$.utxorpc.v1beta.query.AnyChainParamsR\ACKvalues\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip\"e\n\ + \\SOAnyUtxoPattern\DC2C\n\ + \\acardano\CAN\SOH \SOH(\v2'.utxorpc.v1beta.cardano.TxOutputPatternH\NULR\acardanoB\SO\n\ + \\futxo_pattern\"\250\SOH\n\ + \\rUtxoPredicate\DC2:\n\ + \\ENQmatch\CAN\SOH \SOH(\v2$.utxorpc.v1beta.query.AnyUtxoPatternR\ENQmatch\DC25\n\ + \\ETXnot\CAN\STX \ETX(\v2#.utxorpc.v1beta.query.UtxoPredicateR\ETXnot\DC2:\n\ + \\ACKall_of\CAN\ETX \ETX(\v2#.utxorpc.v1beta.query.UtxoPredicateR\ENQallOf\DC2:\n\ + \\ACKany_of\CAN\EOT \ETX(\v2#.utxorpc.v1beta.query.UtxoPredicateR\ENQanyOf\"\244\SOH\n\ + \\vAnyUtxoData\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC25\n\ + \\atxo_ref\CAN\STX \SOH(\v2\FS.utxorpc.v1beta.query.TxoRefR\ACKtxoRef\DC2<\n\ + \\acardano\CAN\ETX \SOH(\v2 .utxorpc.v1beta.cardano.TxOutputH\NULR\acardano\DC2=\n\ + \\tblock_ref\CAN\EOT \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\bblockRefB\SO\n\ + \\fparsed_state\"\DEL\n\ + \\DLEReadUtxosRequest\DC20\n\ + \\EOTkeys\CAN\SOH \ETX(\v2\FS.utxorpc.v1beta.query.TxoRefR\EOTkeys\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"\141\SOH\n\ + \\DC1ReadUtxosResponse\DC27\n\ + \\ENQitems\CAN\SOH \ETX(\v2!.utxorpc.v1beta.query.AnyUtxoDataR\ENQitems\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip\"\208\SOH\n\ + \\DC2SearchUtxosRequest\DC2A\n\ + \\tpredicate\CAN\SOH \SOH(\v2#.utxorpc.v1beta.query.UtxoPredicateR\tpredicate\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\DC2\ESC\n\ + \\tmax_items\CAN\ETX \SOH(\ENQR\bmaxItems\DC2\US\n\ + \\vstart_token\CAN\EOT \SOH(\tR\n\ + \startToken\"\174\SOH\n\ + \\DC3SearchUtxosResponse\DC27\n\ + \\ENQitems\CAN\SOH \ETX(\v2!.utxorpc.v1beta.query.AnyUtxoDataR\ENQitems\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip\DC2\GS\n\ + \\n\ + \next_token\CAN\ETX \SOH(\tR\tnextToken\"`\n\ + \\SIReadDataRequest\DC2\DC2\n\ + \\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"\148\SOH\n\ + \\rAnyChainDatum\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2>\n\ + \\acardano\CAN\ETX \SOH(\v2\".utxorpc.v1beta.cardano.PlutusDataH\NULR\acardanoB\SO\n\ + \\fparsed_state\"\144\SOH\n\ + \\DLEReadDataResponse\DC2;\n\ + \\ACKvalues\CAN\SOH \ETX(\v2#.utxorpc.v1beta.query.AnyChainDatumR\ACKvalues\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip\"^\n\ + \\rReadTxRequest\DC2\DC2\n\ + \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"\175\SOH\n\ + \\n\ + \AnyChainTx\DC2!\n\ + \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC26\n\ + \\acardano\CAN\STX \SOH(\v2\SUB.utxorpc.v1beta.cardano.TxH\NULR\acardano\DC2=\n\ + \\tblock_ref\CAN\ETX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\bblockRefB\a\n\ + \\ENQchain\"\131\SOH\n\ + \\SOReadTxResponse\DC20\n\ + \\STXtx\CAN\SOH \SOH(\v2 .utxorpc.v1beta.query.AnyChainTxR\STXtx\DC2?\n\ + \\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip2\178\ENQ\n\ + \\fQueryService\DC2_\n\ + \\n\ + \ReadParams\DC2'.utxorpc.v1beta.query.ReadParamsRequest\SUB(.utxorpc.v1beta.query.ReadParamsResponse\DC2\\\n\ + \\tReadUtxos\DC2&.utxorpc.v1beta.query.ReadUtxosRequest\SUB'.utxorpc.v1beta.query.ReadUtxosResponse\DC2b\n\ + \\vSearchUtxos\DC2(.utxorpc.v1beta.query.SearchUtxosRequest\SUB).utxorpc.v1beta.query.SearchUtxosResponse\DC2Y\n\ + \\bReadData\DC2%.utxorpc.v1beta.query.ReadDataRequest\SUB&.utxorpc.v1beta.query.ReadDataResponse\DC2S\n\ + \\ACKReadTx\DC2#.utxorpc.v1beta.query.ReadTxRequest\SUB$.utxorpc.v1beta.query.ReadTxResponse\DC2b\n\ + \\vReadGenesis\DC2(.utxorpc.v1beta.query.ReadGenesisRequest\SUB).utxorpc.v1beta.query.ReadGenesisResponse\DC2k\n\ + \\SOReadEraSummary\DC2+.utxorpc.v1beta.query.ReadEraSummaryRequest\SUB,.utxorpc.v1beta.query.ReadEraSummaryResponseB\152\SOH\n\ + \\CANcom.utxorpc.v1beta.queryB\n\ + \QueryProtoP\SOH\162\STX\ETXUVQ\170\STX\DC4Utxorpc.V1beta.Query\202\STX\DC4Utxorpc\\V1beta\\Query\226\STX Utxorpc\\V1beta\\Query\\GPBMetadata\234\STX\SYNUtxorpc::V1beta::QueryJ\188=\n\ + \\a\DC2\ENQ\STX\NUL\181\SOH\SOH\n\ + \9\n\ + \\SOH\f\DC2\ETX\STX\NUL\DC22// A consistent view of the state of the ledger\n\ + \\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\EOT\NUL\GS\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\ACK\NUL*\n\ + \\t\n\ + \\STX\ETX\SOH\DC2\ETX\a\NUL.\n\ + \<\n\ + \\STX\EOT\NUL\DC2\EOT\n\ + \\NUL\SI\SOH\SUB0 Represents a specific point in the blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\n\ + \\b\DC2\n\ + \\ESC\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\v\STX\DC2\"\SO Slot number.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\v\STX\b\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\v\t\r\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\v\DLE\DC1\n\ + \\SUB\n\ + \\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\DC1\"\r Block hash.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\a\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\b\f\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\SI\DLE\n\ + \\FS\n\ + \\EOT\EOT\NUL\STX\STX\DC2\ETX\r\STX\DC4\"\SI Block height.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\r\STX\b\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\r\t\SI\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\r\DC2\DC3\n\ + \!\n\ + \\EOT\EOT\NUL\STX\ETX\DC2\ETX\SO\STX\ETB\"\DC4 Block ms timestamp\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX\SO\STX\b\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\SO\t\DC2\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\SO\NAK\SYN\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT\DC1\NUL\SYN\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\DC1\b\NAK\n\ + \5\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC2\STX\EM\"( Original bytes as defined by the chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\DC2\STX\a\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC2\b\DC4\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC2\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT\SOH\b\NUL\DC2\EOT\DC3\STX\NAK\ETX\n\ + \\f\n\ + \\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETX\DC3\b\r\n\ + \&\n\ + \\EOT\EOT\SOH\STX\SOH\DC2\ETX\DC4\EOT-\"\EM A parsed Cardano block.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX\DC4\EOT \n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\DC4!(\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\DC4+,\n\ + \<\n\ + \\STX\EOT\STX\DC2\EOT\EM\NUL\FS\SOH\SUB0 Represents a reference to a transaction output\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX\EM\b\SO\n\ + \\ETB\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\SUB\STX\DC1\"\n\ + \ Tx hash.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\SUB\STX\a\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\SUB\b\f\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\SUB\SI\DLE\n\ + \\FS\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX\ESC\STX\DC3\"\SI Output index.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\ESC\STX\b\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\ESC\t\SO\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\ESC\DC1\DC2\n\ + \1\n\ + \\STX\EOT\ETX\DC2\EOT\US\NUL!\SOH\SUB% Request to get the chain parameters\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX\US\b\EM\n\ + \N\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETX \STX+\"A Field mask to selectively return fields in the parsed response.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX \STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX \FS&\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX )*\n\ + \-\n\ + \\STX\EOT\EOT\DC2\EOT$\NUL&\SOH\SUB! Request to get the chain config\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX$\b\SUB\n\ + \N\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX%\STX+\"A Field mask to selectively return fields in the parsed response.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX%\STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX%\FS&\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX%)*\n\ + \,\n\ + \\STX\EOT\ENQ\DC2\EOT)\NUL+\SOH\SUB Request to get the era summary\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX)\b\GS\n\ + \N\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\ETX*\STX+\"A Field mask to selectively return fields in the parsed response.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX*\STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX*\FS&\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX*)*\n\ + \5\n\ + \\STX\EOT\ACK\DC2\EOT.\NUL4\SOH\SUB) Response containing the genesis configs\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETX.\b\ESC\n\ + \)\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETX/\STX\DC4\"\FS genesis hash for the chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX/\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX/\b\SI\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX/\DC2\DC3\n\ + \-\n\ + \\EOT\EOT\ACK\STX\SOH\DC2\ETX0\STX\DC3\" the caip-2 ID for this network\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX0\STX\b\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX0\t\SO\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX0\DC1\DC2\n\ + \\f\n\ + \\EOT\EOT\ACK\b\NUL\DC2\EOT1\STX3\ETX\n\ + \\f\n\ + \\ENQ\EOT\ACK\b\NUL\SOH\DC2\ETX1\b\SO\n\ + \\RS\n\ + \\EOT\EOT\ACK\STX\STX\DC2\ETX2\EOT/\"\DC1 Cardano genesis\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETX2\EOT\"\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX2#*\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX2-.\n\ + \3\n\ + \\STX\EOT\a\DC2\EOT7\NUL;\SOH\SUB' Response containing the era summaries\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETX7\b\RS\n\ + \\f\n\ + \\EOT\EOT\a\b\NUL\DC2\EOT8\STX:\ETX\n\ + \\f\n\ + \\ENQ\EOT\a\b\NUL\SOH\DC2\ETX8\b\SI\n\ + \$\n\ + \\EOT\EOT\a\STX\NUL\DC2\ETX9\EOT4\"\ETB Cardano era summaries\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX9\EOT'\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX9(/\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX923\n\ + \U\n\ + \\STX\EOT\b\DC2\EOT>\NULB\SOH\SUBI An evenlope that holds parameter data from any of the compatible chains\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETX>\b\SYN\n\ + \\f\n\ + \\EOT\EOT\b\b\NUL\DC2\EOT?\STXA\ETX\n\ + \\f\n\ + \\ENQ\EOT\b\b\NUL\SOH\DC2\ETX?\b\SO\n\ + \!\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETX@\EOT/\"\DC4 Cardano parameters\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX@\EOT\"\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX@#*\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX@-.\n\ + \6\n\ + \\STX\EOT\t\DC2\EOTE\NULH\SOH\SUB* Response containing the chain parameters\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXE\b\SUB\n\ + \+\n\ + \\EOT\EOT\t\STX\NUL\DC2\ETXF\STX\FS\"\RS The value of the parameters.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXF\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXF\DC1\ETB\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXF\SUB\ESC\n\ + \J\n\ + \\EOT\EOT\t\STX\SOH\DC2\ETXG\STX\FS\"= The chain point that represent the ledger current position.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXG\STX\f\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXG\r\ETB\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXG\SUB\ESC\n\ + \S\n\ + \\STX\EOT\n\ + \\DC2\EOTK\NULO\SOH\SUBG An evenlope that holds an UTxO patterns from any of compatible chains\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETXK\b\SYN\n\ + \\f\n\ + \\EOT\EOT\n\ + \\b\NUL\DC2\EOTL\STXN\ETX\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\b\NUL\SOH\DC2\ETXL\b\DC4\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETXM\EOT7\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ACK\DC2\ETXM\EOT*\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETXM+2\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETXM56\n\ + \^\n\ + \\STX\EOT\v\DC2\EOTR\NULW\SOH\SUBR Represents a simple utxo predicate that can composed to create more complex ones\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\v\SOH\DC2\ETXR\b\NAK\n\ + \8\n\ + \\EOT\EOT\v\STX\NUL\DC2\ETXS\STX\ESC\"+ Predicate is true if tx exhibits pattern.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXS\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXS\DC1\SYN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXS\EM\SUB\n\ + \?\n\ + \\EOT\EOT\v\STX\SOH\DC2\ETXT\STX!\"2 Predicate is true if tx doesn't exhibit pattern.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\EOT\DC2\ETXT\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXT\v\CAN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXT\EM\FS\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXT\US \n\ + \F\n\ + \\EOT\EOT\v\STX\STX\DC2\ETXU\STX$\"9 Predicate is true if utxo exhibits all of the patterns.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\EOT\DC2\ETXU\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ACK\DC2\ETXU\v\CAN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\SOH\DC2\ETXU\EM\US\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ETX\DC2\ETXU\"#\n\ + \F\n\ + \\EOT\EOT\v\STX\ETX\DC2\ETXV\STX$\"9 Predicate is true if utxo exhibits any of the patterns.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\EOT\DC2\ETXV\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ACK\DC2\ETXV\v\CAN\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETXV\EM\US\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETXV\"#\n\ + \J\n\ + \\STX\EOT\f\DC2\EOTZ\NULa\SOH\SUB> An evenlope that holds an UTxO from any of compatible chains\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\f\SOH\DC2\ETXZ\b\DC3\n\ + \5\n\ + \\EOT\EOT\f\STX\NUL\DC2\ETX[\STX\EM\"( Original bytes as defined by the chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ENQ\DC2\ETX[\STX\a\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETX[\b\DC4\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETX[\ETB\CAN\n\ + \0\n\ + \\EOT\EOT\f\STX\SOH\DC2\ETX\\\STX\NAK\"# Hash of the previous transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\ACK\DC2\ETX\\\STX\b\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\SOH\DC2\ETX\\\t\DLE\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\ETX\DC2\ETX\\\DC3\DC4\n\ + \\f\n\ + \\EOT\EOT\f\b\NUL\DC2\EOT]\STX_\ETX\n\ + \\f\n\ + \\ENQ\EOT\f\b\NUL\SOH\DC2\ETX]\b\DC4\n\ + \\GS\n\ + \\EOT\EOT\f\STX\STX\DC2\ETX^\EOT0\"\DLE A cardano UTxO\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\ACK\DC2\ETX^\EOT#\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\SOH\DC2\ETX^$+\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\ETX\DC2\ETX^./\n\ + \R\n\ + \\EOT\EOT\f\STX\ETX\DC2\ETX`\STX\ESC\"E The chain point that represents the block this UTxO was created in.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\ACK\DC2\ETX`\STX\f\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\SOH\DC2\ETX`\r\SYN\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\ETX\DC2\ETX`\EM\SUB\n\ + \+\n\ + \\STX\EOT\r\DC2\EOTd\NULg\SOH\SUB\US Request to get specific UTxOs\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\r\SOH\DC2\ETXd\b\CAN\n\ + \\"\n\ + \\EOT\EOT\r\STX\NUL\DC2\ETXe\STX\ESC\"\NAK List of keys UTxOs.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\EOT\DC2\ETXe\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXe\v\DC1\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXe\DC2\SYN\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXe\EM\SUB\n\ + \7\n\ + \\EOT\EOT\r\STX\SOH\DC2\ETXf\STX+\"* Field mask to selectively return fields.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ACK\DC2\ETXf\STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETXf\FS&\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETXf)*\n\ + \T\n\ + \\STX\EOT\SO\DC2\EOTj\NULm\SOH\SUBH Response containing the UTxOs associated with the requested addresses.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SO\SOH\DC2\ETXj\b\EM\n\ + \\GS\n\ + \\EOT\EOT\SO\STX\NUL\DC2\ETXk\STX!\"\DLE List of UTxOs.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\EOT\DC2\ETXk\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXk\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXk\ETB\FS\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXk\US \n\ + \J\n\ + \\EOT\EOT\SO\STX\SOH\DC2\ETXl\STX\FS\"= The chain point that represent the ledger current position.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\SOH\ACK\DC2\ETXl\STX\f\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXl\r\ETB\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXl\SUB\ESC\n\ + \<\n\ + \\STX\EOT\SI\DC2\EOTp\NULu\SOH\SUB0 Request to search for UTxO based on a pattern.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SI\SOH\DC2\ETXp\b\SUB\n\ + \)\n\ + \\EOT\EOT\SI\STX\NUL\DC2\ETXq\STX\RS\"\FS Pattern to match UTxOs by.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\NUL\ACK\DC2\ETXq\STX\SI\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\NUL\SOH\DC2\ETXq\DLE\EM\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\NUL\ETX\DC2\ETXq\FS\GS\n\ + \7\n\ + \\EOT\EOT\SI\STX\SOH\DC2\ETXr\STX+\"* Field mask to selectively return fields.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\SOH\ACK\DC2\ETXr\STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\SOH\SOH\DC2\ETXr\FS&\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\SOH\ETX\DC2\ETXr)*\n\ + \5\n\ + \\EOT\EOT\SI\STX\STX\DC2\ETXs\STX\SYN\"( The maximum number of items to return.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\STX\ENQ\DC2\ETXs\STX\a\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\STX\SOH\DC2\ETXs\b\DC1\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\STX\ETX\DC2\ETXs\DC4\NAK\n\ + \R\n\ + \\EOT\EOT\SI\STX\ETX\DC2\ETXt\STX\EM\"E The next_page_token value returned from a previous request, if any.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\ETX\ENQ\DC2\ETXt\STX\b\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\ETX\SOH\DC2\ETXt\t\DC4\n\ + \\f\n\ + \\ENQ\EOT\SI\STX\ETX\ETX\DC2\ETXt\ETB\CAN\n\ + \O\n\ + \\STX\EOT\DLE\DC2\EOTx\NUL|\SOH\SUBC Response containing the UTxOs that match the requested addresses.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\DLE\SOH\DC2\ETXx\b\ESC\n\ + \\GS\n\ + \\EOT\EOT\DLE\STX\NUL\DC2\ETXy\STX!\"\DLE List of UTxOs.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\NUL\EOT\DC2\ETXy\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\ETXy\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\ETXy\ETB\FS\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\ETXy\US \n\ + \J\n\ + \\EOT\EOT\DLE\STX\SOH\DC2\ETXz\STX\FS\"= The chain point that represent the ledger current position.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\SOH\ACK\DC2\ETXz\STX\f\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\ETXz\r\ETB\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\ETXz\SUB\ESC\n\ + \a\n\ + \\EOT\EOT\DLE\STX\STX\DC2\ETX{\STX\CAN\"T Token to retrieve the next page of results, or empty if there are no more results.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\STX\ENQ\DC2\ETX{\STX\b\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\STX\SOH\DC2\ETX{\t\DC3\n\ + \\f\n\ + \\ENQ\EOT\DLE\STX\STX\ETX\DC2\ETX{\SYN\ETB\n\ + \:\n\ + \\STX\EOT\DC1\DC2\ENQ\DEL\NUL\130\SOH\SOH\SUB- Request to get data (as in plural of datum)\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\DC1\SOH\DC2\ETX\DEL\b\ETB\n\ + \\f\n\ + \\EOT\EOT\DC1\STX\NUL\DC2\EOT\128\SOH\STX\SUB\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\EOT\DC2\EOT\128\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\ENQ\DC2\EOT\128\SOH\v\DLE\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\128\SOH\DC1\NAK\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\128\SOH\CAN\EM\n\ + \H\n\ + \\EOT\EOT\DC1\STX\SOH\DC2\EOT\129\SOH\STX+\": Field mask to selectively return fields in the response.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\129\SOH\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\129\SOH\FS&\n\ + \\r\n\ + \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\129\SOH)*\n\ + \O\n\ + \\STX\EOT\DC2\DC2\ACK\133\SOH\NUL\139\SOH\SOH\SUBA An evenlope that holds a datum for any of the compatible chains\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC2\SOH\DC2\EOT\133\SOH\b\NAK\n\ + \6\n\ + \\EOT\EOT\DC2\STX\NUL\DC2\EOT\134\SOH\STX\EM\"( Original bytes as defined by the chain\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\134\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\134\SOH\b\DC4\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\134\SOH\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT\DC2\STX\SOH\DC2\EOT\135\SOH\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\SOH\ENQ\DC2\EOT\135\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\135\SOH\b\v\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\135\SOH\SO\SI\n\ + \\SO\n\ + \\EOT\EOT\DC2\b\NUL\DC2\ACK\136\SOH\STX\138\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\DC2\b\NUL\SOH\DC2\EOT\136\SOH\b\DC4\n\ + \\RS\n\ + \\EOT\EOT\DC2\STX\STX\DC2\EOT\137\SOH\EOT2\"\DLE A cardano UTxO\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\STX\ACK\DC2\EOT\137\SOH\EOT%\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\STX\SOH\DC2\EOT\137\SOH&-\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\STX\ETX\DC2\EOT\137\SOH01\n\ + \@\n\ + \\STX\EOT\DC3\DC2\ACK\142\SOH\NUL\145\SOH\SOH\SUB2 Response containing data (as in plural of datum)\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC3\SOH\DC2\EOT\142\SOH\b\CAN\n\ + \(\n\ + \\EOT\EOT\DC3\STX\NUL\DC2\EOT\143\SOH\STX$\"\SUB The value of each datum.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\EOT\DC2\EOT\143\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ACK\DC2\EOT\143\SOH\v\CAN\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\143\SOH\EM\US\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\143\SOH\"#\n\ + \K\n\ + \\EOT\EOT\DC3\STX\SOH\DC2\EOT\144\SOH\STX\FS\"= The chain point that represent the ledger current position.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\ACK\DC2\EOT\144\SOH\STX\f\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\144\SOH\r\ETB\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\144\SOH\SUB\ESC\n\ + \4\n\ + \\STX\EOT\DC4\DC2\ACK\148\SOH\NUL\151\SOH\SOH\SUB& Request to get a transaction by hash\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC4\SOH\DC2\EOT\148\SOH\b\NAK\n\ + \,\n\ + \\EOT\EOT\DC4\STX\NUL\DC2\EOT\149\SOH\STX\DC1\"\RS The hash of the transaction.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ENQ\DC2\EOT\149\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\149\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\149\SOH\SI\DLE\n\ + \H\n\ + \\EOT\EOT\DC4\STX\SOH\DC2\EOT\150\SOH\STX+\": Field mask to selectively return fields in the response.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\ACK\DC2\EOT\150\SOH\STX\ESC\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\150\SOH\FS&\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\150\SOH)*\n\ + \G\n\ + \\STX\EOT\NAK\DC2\ACK\154\SOH\NUL\160\SOH\SOH\SUB9 Represents a transaction from any supported blockchain.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\NAK\SOH\DC2\EOT\154\SOH\b\DC2\n\ + \6\n\ + \\EOT\EOT\NAK\STX\NUL\DC2\EOT\155\SOH\STX\EM\"( Original bytes as defined by the chain\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ENQ\DC2\EOT\155\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\155\SOH\b\DC4\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\155\SOH\ETB\CAN\n\ + \\SO\n\ + \\EOT\EOT\NAK\b\NUL\DC2\ACK\156\SOH\STX\158\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\NAK\b\NUL\SOH\DC2\EOT\156\SOH\b\r\n\ + \&\n\ + \\EOT\EOT\NAK\STX\SOH\DC2\EOT\157\SOH\EOT*\"\CAN A Cardano transaction.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\ACK\DC2\EOT\157\SOH\EOT\GS\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\157\SOH\RS%\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\157\SOH()\n\ + \V\n\ + \\EOT\EOT\NAK\STX\STX\DC2\EOT\159\SOH\STX\ESC\"H The chain point that represents the block this transaction belongs to.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\STX\ACK\DC2\EOT\159\SOH\STX\f\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\STX\SOH\DC2\EOT\159\SOH\r\SYN\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\STX\ETX\DC2\EOT\159\SOH\EM\SUB\n\ + \W\n\ + \\STX\EOT\SYN\DC2\ACK\163\SOH\NUL\166\SOH\SOH\SUBI Response containing the transaction associated with the requested hash.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SYN\SOH\DC2\EOT\163\SOH\b\SYN\n\ + \ \n\ + \\EOT\EOT\SYN\STX\NUL\DC2\EOT\164\SOH\STX\DC4\"\DC2 The transaction.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\NUL\ACK\DC2\EOT\164\SOH\STX\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\164\SOH\r\SI\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\164\SOH\DC2\DC3\n\ + \K\n\ + \\EOT\EOT\SYN\STX\SOH\DC2\EOT\165\SOH\STX\FS\"= The chain point that represent the ledger current position.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\SOH\ACK\DC2\EOT\165\SOH\STX\f\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\SOH\SOH\DC2\EOT\165\SOH\r\ETB\n\ + \\r\n\ + \\ENQ\EOT\SYN\STX\SOH\ETX\DC2\EOT\165\SOH\SUB\ESC\n\ + \G\n\ + \\STX\ACK\NUL\DC2\ACK\169\SOH\NUL\181\SOH\SOH\SUB9 Service definition for querying the state of the chain.\n\ + \\n\ + \\v\n\ + \\ETX\ACK\NUL\SOH\DC2\EOT\169\SOH\b\DC4\n\ + \(\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\EOT\170\SOH\STXA\"\SUB Get overall chain state.\n\ + \\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\EOT\170\SOH\ACK\DLE\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\EOT\170\SOH\DC1\"\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\EOT\170\SOH-?\n\ + \1\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\EOT\171\SOH\STX>\"# Read specific UTxOs by reference.\n\ + \\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\EOT\171\SOH\ACK\SI\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\EOT\171\SOH\DLE \n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\EOT\171\SOH+<\n\ + \3\n\ + \\EOT\ACK\NUL\STX\STX\DC2\EOT\172\SOH\STXD\"% Search for UTxO based on a pattern.\n\ + \\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\EOT\172\SOH\ACK\DC1\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\EOT\172\SOH\DC2$\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\EOT\172\SOH/B\n\ + \+\n\ + \\EOT\ACK\NUL\STX\ETX\DC2\EOT\173\SOH\STX;\"\GS Read specific datum by hash\n\ + \\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\EOT\173\SOH\ACK\SO\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ETX\STX\DC2\EOT\173\SOH\SI\RS\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\EOT\173\SOH)9\n\ + \3\n\ + \\EOT\ACK\NUL\STX\EOT\DC2\EOT\174\SOH\STX5\"% Get Txs by chain-specific criteria.\n\ + \\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\EOT\174\SOH\ACK\f\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\EOT\STX\DC2\EOT\174\SOH\r\SUB\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\EOT\174\SOH%3\n\ + \-\n\ + \\EOT\ACK\NUL\STX\ENQ\DC2\EOT\175\SOH\STXD\"\US Get the genesis configuration\n\ + \\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ENQ\SOH\DC2\EOT\175\SOH\ACK\DC1\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ENQ\STX\DC2\EOT\175\SOH\DC2$\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ENQ\ETX\DC2\EOT\175\SOH/B\n\ + \)\n\ + \\EOT\ACK\NUL\STX\ACK\DC2\EOT\176\SOH\STXM\"\ESC Get the chain era summary\n\ + \\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ACK\SOH\DC2\EOT\176\SOH\ACK\DC4\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ACK\STX\DC2\EOT\176\SOH\NAK*\n\ + \\r\n\ + \\ENQ\ACK\NUL\STX\ACK\ETX\DC2\EOT\176\SOH5Kb\ACKproto3" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query_Fields.hs b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query_Fields.hs new file mode 100644 index 0000000000..66c044e1bd --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query_Fields.hs @@ -0,0 +1,295 @@ +{- This file was auto-generated from utxorpc/v1beta/query/query.proto by the proto-lens-protoc program. -} +{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} +{-# OPTIONS_GHC -Wno-unused-imports#-} +{-# OPTIONS_GHC -Wno-duplicate-exports#-} +{-# OPTIONS_GHC -Wno-dodgy-exports#-} +module Proto.Utxorpc.V1beta.Query.Query_Fields where +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 +import qualified Proto.Google.Protobuf.FieldMask +import qualified Proto.Utxorpc.V1beta.Cardano.Cardano +allOf :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "allOf" a) => + Lens.Family2.LensLike' f s a +allOf = Data.ProtoLens.Field.field @"allOf" +anyOf :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "anyOf" a) => + Lens.Family2.LensLike' f s a +anyOf = Data.ProtoLens.Field.field @"anyOf" +blockRef :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "blockRef" a) => + Lens.Family2.LensLike' f s a +blockRef = Data.ProtoLens.Field.field @"blockRef" +caip2 :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "caip2" a) => + Lens.Family2.LensLike' f s a +caip2 = Data.ProtoLens.Field.field @"caip2" +cardano :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "cardano" a) => + Lens.Family2.LensLike' f s a +cardano = Data.ProtoLens.Field.field @"cardano" +fieldMask :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "fieldMask" a) => + Lens.Family2.LensLike' f s a +fieldMask = Data.ProtoLens.Field.field @"fieldMask" +genesis :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "genesis" a) => + Lens.Family2.LensLike' f s a +genesis = Data.ProtoLens.Field.field @"genesis" +hash :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "hash" a) => + Lens.Family2.LensLike' f s a +hash = Data.ProtoLens.Field.field @"hash" +height :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "height" a) => + Lens.Family2.LensLike' f s a +height = Data.ProtoLens.Field.field @"height" +index :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "index" a) => + Lens.Family2.LensLike' f s a +index = Data.ProtoLens.Field.field @"index" +items :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "items" a) => + Lens.Family2.LensLike' f s a +items = Data.ProtoLens.Field.field @"items" +key :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) => + Lens.Family2.LensLike' f s a +key = Data.ProtoLens.Field.field @"key" +keys :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "keys" a) => + Lens.Family2.LensLike' f s a +keys = Data.ProtoLens.Field.field @"keys" +ledgerTip :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "ledgerTip" a) => + Lens.Family2.LensLike' f s a +ledgerTip = Data.ProtoLens.Field.field @"ledgerTip" +match :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "match" a) => + Lens.Family2.LensLike' f s a +match = Data.ProtoLens.Field.field @"match" +maxItems :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxItems" a) => + Lens.Family2.LensLike' f s a +maxItems = Data.ProtoLens.Field.field @"maxItems" +maybe'blockRef :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'blockRef" a) => + Lens.Family2.LensLike' f s a +maybe'blockRef = Data.ProtoLens.Field.field @"maybe'blockRef" +maybe'cardano :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'cardano" a) => + Lens.Family2.LensLike' f s a +maybe'cardano = Data.ProtoLens.Field.field @"maybe'cardano" +maybe'chain :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'chain" a) => + Lens.Family2.LensLike' f s a +maybe'chain = Data.ProtoLens.Field.field @"maybe'chain" +maybe'config :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'config" a) => + Lens.Family2.LensLike' f s a +maybe'config = Data.ProtoLens.Field.field @"maybe'config" +maybe'fieldMask :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'fieldMask" a) => + Lens.Family2.LensLike' f s a +maybe'fieldMask = Data.ProtoLens.Field.field @"maybe'fieldMask" +maybe'ledgerTip :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'ledgerTip" a) => + Lens.Family2.LensLike' f s a +maybe'ledgerTip = Data.ProtoLens.Field.field @"maybe'ledgerTip" +maybe'match :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'match" a) => + Lens.Family2.LensLike' f s a +maybe'match = Data.ProtoLens.Field.field @"maybe'match" +maybe'params :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'params" a) => + Lens.Family2.LensLike' f s a +maybe'params = Data.ProtoLens.Field.field @"maybe'params" +maybe'parsedState :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'parsedState" a) => + Lens.Family2.LensLike' f s a +maybe'parsedState = Data.ProtoLens.Field.field @"maybe'parsedState" +maybe'predicate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'predicate" a) => + Lens.Family2.LensLike' f s a +maybe'predicate = Data.ProtoLens.Field.field @"maybe'predicate" +maybe'summary :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'summary" a) => + Lens.Family2.LensLike' f s a +maybe'summary = Data.ProtoLens.Field.field @"maybe'summary" +maybe'tx :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'tx" a) => + Lens.Family2.LensLike' f s a +maybe'tx = Data.ProtoLens.Field.field @"maybe'tx" +maybe'txoRef :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'txoRef" a) => + Lens.Family2.LensLike' f s a +maybe'txoRef = Data.ProtoLens.Field.field @"maybe'txoRef" +maybe'utxoPattern :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'utxoPattern" a) => + Lens.Family2.LensLike' f s a +maybe'utxoPattern = Data.ProtoLens.Field.field @"maybe'utxoPattern" +maybe'values :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'values" a) => + Lens.Family2.LensLike' f s a +maybe'values = Data.ProtoLens.Field.field @"maybe'values" +nativeBytes :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "nativeBytes" a) => + Lens.Family2.LensLike' f s a +nativeBytes = Data.ProtoLens.Field.field @"nativeBytes" +nextToken :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "nextToken" a) => + Lens.Family2.LensLike' f s a +nextToken = Data.ProtoLens.Field.field @"nextToken" +not :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "not" a) => + Lens.Family2.LensLike' f s a +not = Data.ProtoLens.Field.field @"not" +predicate :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "predicate" a) => + Lens.Family2.LensLike' f s a +predicate = Data.ProtoLens.Field.field @"predicate" +slot :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "slot" a) => + Lens.Family2.LensLike' f s a +slot = Data.ProtoLens.Field.field @"slot" +startToken :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "startToken" a) => + Lens.Family2.LensLike' f s a +startToken = Data.ProtoLens.Field.field @"startToken" +timestamp :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "timestamp" a) => + Lens.Family2.LensLike' f s a +timestamp = Data.ProtoLens.Field.field @"timestamp" +tx :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tx" a) => + Lens.Family2.LensLike' f s a +tx = Data.ProtoLens.Field.field @"tx" +txoRef :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "txoRef" a) => + Lens.Family2.LensLike' f s a +txoRef = Data.ProtoLens.Field.field @"txoRef" +values :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "values" a) => + Lens.Family2.LensLike' f s a +values = Data.ProtoLens.Field.field @"values" +vec'allOf :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'allOf" a) => + Lens.Family2.LensLike' f s a +vec'allOf = Data.ProtoLens.Field.field @"vec'allOf" +vec'anyOf :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'anyOf" a) => + Lens.Family2.LensLike' f s a +vec'anyOf = Data.ProtoLens.Field.field @"vec'anyOf" +vec'items :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'items" a) => + Lens.Family2.LensLike' f s a +vec'items = Data.ProtoLens.Field.field @"vec'items" +vec'keys :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'keys" a) => + Lens.Family2.LensLike' f s a +vec'keys = Data.ProtoLens.Field.field @"vec'keys" +vec'not :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'not" a) => + Lens.Family2.LensLike' f s a +vec'not = Data.ProtoLens.Field.field @"vec'not" +vec'values :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'values" a) => + Lens.Family2.LensLike' f s a +vec'values = Data.ProtoLens.Field.field @"vec'values" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1beta/Submit/Submit.hs b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Submit/Submit.hs new file mode 100644 index 0000000000..60fe08e2f2 --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Submit/Submit.hs @@ -0,0 +1,2955 @@ +{- This file was auto-generated from utxorpc/v1beta/submit/submit.proto by the proto-lens-protoc program. -} +{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} +{-# OPTIONS_GHC -Wno-unused-imports#-} +{-# OPTIONS_GHC -Wno-duplicate-exports#-} +{-# OPTIONS_GHC -Wno-dodgy-exports#-} +module Proto.Utxorpc.V1beta.Submit.Submit ( + SubmitService(..), AnyChainEval(), AnyChainEval'Chain(..), + _AnyChainEval'Cardano, AnyChainTx(), AnyChainTx'Type(..), + _AnyChainTx'Raw, AnyChainTxPattern(), AnyChainTxPattern'Chain(..), + _AnyChainTxPattern'Cardano, EvalTxRequest(), EvalTxResponse(), + ReadMempoolRequest(), ReadMempoolResponse(), Stage(..), Stage(), + Stage'UnrecognizedValue, SubmitTxRequest(), SubmitTxResponse(), + TxInMempool(), TxInMempool'ParsedState(..), _TxInMempool'Cardano, + TxPredicate(), WaitForTxRequest(), WaitForTxResponse(), + WatchMempoolRequest(), WatchMempoolResponse() + ) 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 +import qualified Proto.Google.Protobuf.FieldMask +import qualified Proto.Utxorpc.V1beta.Cardano.Cardano +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'chain' @:: Lens' AnyChainEval (Prelude.Maybe AnyChainEval'Chain)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'cardano' @:: Lens' AnyChainEval (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxEval)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.cardano' @:: Lens' AnyChainEval Proto.Utxorpc.V1beta.Cardano.Cardano.TxEval@ -} +data AnyChainEval + = AnyChainEval'_constructor {_AnyChainEval'chain :: !(Prelude.Maybe AnyChainEval'Chain), + _AnyChainEval'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyChainEval where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyChainEval'Chain + = AnyChainEval'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.TxEval + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyChainEval "maybe'chain" (Prelude.Maybe AnyChainEval'Chain) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainEval'chain (\ x__ y__ -> x__ {_AnyChainEval'chain = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainEval "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxEval) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainEval'chain (\ x__ y__ -> x__ {_AnyChainEval'chain = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainEval'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainEval'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyChainEval "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.TxEval where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainEval'chain (\ x__ y__ -> x__ {_AnyChainEval'chain = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainEval'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainEval'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyChainEval where + messageName _ = Data.Text.pack "utxorpc.v1beta.submit.AnyChainEval" + packedMessageDescriptor _ + = "\n\ + \\fAnyChainEval\DC2:\n\ + \\acardano\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.TxEvalH\NULR\acardanoB\a\n\ + \\ENQchain" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.TxEval) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyChainEval + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyChainEval'_unknownFields + (\ x__ y__ -> x__ {_AnyChainEval'_unknownFields = y__}) + defMessage + = AnyChainEval'_constructor + {_AnyChainEval'chain = Prelude.Nothing, + _AnyChainEval'_unknownFields = []} + parseMessage + = let + loop :: + AnyChainEval -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainEval + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyChainEval" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyChainEval'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData AnyChainEval where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyChainEval'_unknownFields x__) + (Control.DeepSeq.deepseq (_AnyChainEval'chain x__) ()) +instance Control.DeepSeq.NFData AnyChainEval'Chain where + rnf (AnyChainEval'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyChainEval'Cardano :: + Data.ProtoLens.Prism.Prism' AnyChainEval'Chain Proto.Utxorpc.V1beta.Cardano.Cardano.TxEval +_AnyChainEval'Cardano + = Data.ProtoLens.Prism.prism' + AnyChainEval'Cardano + (\ p__ + -> case p__ of + (AnyChainEval'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'type'' @:: Lens' AnyChainTx (Prelude.Maybe AnyChainTx'Type)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'raw' @:: Lens' AnyChainTx (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.raw' @:: Lens' AnyChainTx Data.ByteString.ByteString@ -} +data AnyChainTx + = AnyChainTx'_constructor {_AnyChainTx'type' :: !(Prelude.Maybe AnyChainTx'Type), + _AnyChainTx'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyChainTx where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyChainTx'Type + = AnyChainTx'Raw !Data.ByteString.ByteString + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'type'" (Prelude.Maybe AnyChainTx'Type) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'type' (\ x__ y__ -> x__ {_AnyChainTx'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'raw" (Prelude.Maybe Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'type' (\ x__ y__ -> x__ {_AnyChainTx'type' = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainTx'Raw x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainTx'Raw y__)) +instance Data.ProtoLens.Field.HasField AnyChainTx "raw" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTx'type' (\ x__ y__ -> x__ {_AnyChainTx'type' = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainTx'Raw x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainTx'Raw y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +instance Data.ProtoLens.Message AnyChainTx where + messageName _ = Data.Text.pack "utxorpc.v1beta.submit.AnyChainTx" + packedMessageDescriptor _ + = "\n\ + \\n\ + \AnyChainTx\DC2\DC2\n\ + \\ETXraw\CAN\SOH \SOH(\fH\NULR\ETXrawB\ACK\n\ + \\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + raw__field_descriptor + = Data.ProtoLens.FieldDescriptor + "raw" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'raw")) :: + Data.ProtoLens.FieldDescriptor AnyChainTx + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, raw__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyChainTx'_unknownFields + (\ x__ y__ -> x__ {_AnyChainTx'_unknownFields = y__}) + defMessage + = AnyChainTx'_constructor + {_AnyChainTx'type' = Prelude.Nothing, + _AnyChainTx'_unknownFields = []} + parseMessage + = let + loop :: + AnyChainTx -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTx + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "raw" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"raw") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyChainTx" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyChainTx'Raw v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData AnyChainTx where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyChainTx'_unknownFields x__) + (Control.DeepSeq.deepseq (_AnyChainTx'type' x__) ()) +instance Control.DeepSeq.NFData AnyChainTx'Type where + rnf (AnyChainTx'Raw x__) = Control.DeepSeq.rnf x__ +_AnyChainTx'Raw :: + Data.ProtoLens.Prism.Prism' AnyChainTx'Type Data.ByteString.ByteString +_AnyChainTx'Raw + = Data.ProtoLens.Prism.prism' + AnyChainTx'Raw + (\ p__ + -> case p__ of (AnyChainTx'Raw p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'chain' @:: Lens' AnyChainTxPattern (Prelude.Maybe AnyChainTxPattern'Chain)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'cardano' @:: Lens' AnyChainTxPattern (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxPattern)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.cardano' @:: Lens' AnyChainTxPattern Proto.Utxorpc.V1beta.Cardano.Cardano.TxPattern@ -} +data AnyChainTxPattern + = AnyChainTxPattern'_constructor {_AnyChainTxPattern'chain :: !(Prelude.Maybe AnyChainTxPattern'Chain), + _AnyChainTxPattern'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AnyChainTxPattern where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data AnyChainTxPattern'Chain + = AnyChainTxPattern'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.TxPattern + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField AnyChainTxPattern "maybe'chain" (Prelude.Maybe AnyChainTxPattern'Chain) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTxPattern'chain + (\ x__ y__ -> x__ {_AnyChainTxPattern'chain = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField AnyChainTxPattern "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.TxPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTxPattern'chain + (\ x__ y__ -> x__ {_AnyChainTxPattern'chain = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainTxPattern'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainTxPattern'Cardano y__)) +instance Data.ProtoLens.Field.HasField AnyChainTxPattern "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.TxPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AnyChainTxPattern'chain + (\ x__ y__ -> x__ {_AnyChainTxPattern'chain = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (AnyChainTxPattern'Cardano x__val)) + -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap AnyChainTxPattern'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message AnyChainTxPattern where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.AnyChainTxPattern" + packedMessageDescriptor _ + = "\n\ + \\DC1AnyChainTxPattern\DC2=\n\ + \\acardano\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.TxPatternH\NULR\acardanoB\a\n\ + \\ENQchain" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.TxPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor AnyChainTxPattern + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _AnyChainTxPattern'_unknownFields + (\ x__ y__ -> x__ {_AnyChainTxPattern'_unknownFields = y__}) + defMessage + = AnyChainTxPattern'_constructor + {_AnyChainTxPattern'chain = Prelude.Nothing, + _AnyChainTxPattern'_unknownFields = []} + parseMessage + = let + loop :: + AnyChainTxPattern + -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTxPattern + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "AnyChainTxPattern" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (AnyChainTxPattern'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData AnyChainTxPattern where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_AnyChainTxPattern'_unknownFields x__) + (Control.DeepSeq.deepseq (_AnyChainTxPattern'chain x__) ()) +instance Control.DeepSeq.NFData AnyChainTxPattern'Chain where + rnf (AnyChainTxPattern'Cardano x__) = Control.DeepSeq.rnf x__ +_AnyChainTxPattern'Cardano :: + Data.ProtoLens.Prism.Prism' AnyChainTxPattern'Chain Proto.Utxorpc.V1beta.Cardano.Cardano.TxPattern +_AnyChainTxPattern'Cardano + = Data.ProtoLens.Prism.prism' + AnyChainTxPattern'Cardano + (\ p__ + -> case p__ of + (AnyChainTxPattern'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.tx' @:: Lens' EvalTxRequest AnyChainTx@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'tx' @:: Lens' EvalTxRequest (Prelude.Maybe AnyChainTx)@ -} +data EvalTxRequest + = EvalTxRequest'_constructor {_EvalTxRequest'tx :: !(Prelude.Maybe AnyChainTx), + _EvalTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EvalTxRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EvalTxRequest "tx" AnyChainTx where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EvalTxRequest'tx (\ x__ y__ -> x__ {_EvalTxRequest'tx = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField EvalTxRequest "maybe'tx" (Prelude.Maybe AnyChainTx) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EvalTxRequest'tx (\ x__ y__ -> x__ {_EvalTxRequest'tx = y__})) + Prelude.id +instance Data.ProtoLens.Message EvalTxRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.EvalTxRequest" + packedMessageDescriptor _ + = "\n\ + \\rEvalTxRequest\DC21\n\ + \\STXtx\CAN\SOH \SOH(\v2!.utxorpc.v1beta.submit.AnyChainTxR\STXtx" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + tx__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tx" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyChainTx) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'tx")) :: + Data.ProtoLens.FieldDescriptor EvalTxRequest + in Data.Map.fromList [(Data.ProtoLens.Tag 1, tx__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EvalTxRequest'_unknownFields + (\ x__ y__ -> x__ {_EvalTxRequest'_unknownFields = y__}) + defMessage + = EvalTxRequest'_constructor + {_EvalTxRequest'tx = Prelude.Nothing, + _EvalTxRequest'_unknownFields = []} + parseMessage + = let + loop :: + EvalTxRequest -> Data.ProtoLens.Encoding.Bytes.Parser EvalTxRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "tx" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tx") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EvalTxRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'tx") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EvalTxRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EvalTxRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_EvalTxRequest'tx x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.report' @:: Lens' EvalTxResponse AnyChainEval@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'report' @:: Lens' EvalTxResponse (Prelude.Maybe AnyChainEval)@ -} +data EvalTxResponse + = EvalTxResponse'_constructor {_EvalTxResponse'report :: !(Prelude.Maybe AnyChainEval), + _EvalTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EvalTxResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EvalTxResponse "report" AnyChainEval where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EvalTxResponse'report + (\ x__ y__ -> x__ {_EvalTxResponse'report = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField EvalTxResponse "maybe'report" (Prelude.Maybe AnyChainEval) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EvalTxResponse'report + (\ x__ y__ -> x__ {_EvalTxResponse'report = y__})) + Prelude.id +instance Data.ProtoLens.Message EvalTxResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.EvalTxResponse" + packedMessageDescriptor _ + = "\n\ + \\SOEvalTxResponse\DC2;\n\ + \\ACKreport\CAN\SOH \SOH(\v2#.utxorpc.v1beta.submit.AnyChainEvalR\ACKreport" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + report__field_descriptor + = Data.ProtoLens.FieldDescriptor + "report" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyChainEval) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'report")) :: + Data.ProtoLens.FieldDescriptor EvalTxResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, report__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EvalTxResponse'_unknownFields + (\ x__ y__ -> x__ {_EvalTxResponse'_unknownFields = y__}) + defMessage + = EvalTxResponse'_constructor + {_EvalTxResponse'report = Prelude.Nothing, + _EvalTxResponse'_unknownFields = []} + parseMessage + = let + loop :: + EvalTxResponse + -> Data.ProtoLens.Encoding.Bytes.Parser EvalTxResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "report" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"report") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EvalTxResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'report") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData EvalTxResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EvalTxResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_EvalTxResponse'report x__) ()) +{- | Fields : + -} +data ReadMempoolRequest + = ReadMempoolRequest'_constructor {_ReadMempoolRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadMempoolRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message ReadMempoolRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.ReadMempoolRequest" + packedMessageDescriptor _ + = "\n\ + \\DC2ReadMempoolRequest" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadMempoolRequest'_unknownFields + (\ x__ y__ -> x__ {_ReadMempoolRequest'_unknownFields = y__}) + defMessage + = ReadMempoolRequest'_constructor + {_ReadMempoolRequest'_unknownFields = []} + parseMessage + = let + loop :: + ReadMempoolRequest + -> Data.ProtoLens.Encoding.Bytes.Parser ReadMempoolRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReadMempoolRequest" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData ReadMempoolRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadMempoolRequest'_unknownFields x__) () +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.items' @:: Lens' ReadMempoolResponse [TxInMempool]@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.vec'items' @:: Lens' ReadMempoolResponse (Data.Vector.Vector TxInMempool)@ -} +data ReadMempoolResponse + = ReadMempoolResponse'_constructor {_ReadMempoolResponse'items :: !(Data.Vector.Vector TxInMempool), + _ReadMempoolResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReadMempoolResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReadMempoolResponse "items" [TxInMempool] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadMempoolResponse'items + (\ x__ y__ -> x__ {_ReadMempoolResponse'items = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReadMempoolResponse "vec'items" (Data.Vector.Vector TxInMempool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReadMempoolResponse'items + (\ x__ y__ -> x__ {_ReadMempoolResponse'items = y__})) + Prelude.id +instance Data.ProtoLens.Message ReadMempoolResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.ReadMempoolResponse" + packedMessageDescriptor _ + = "\n\ + \\DC3ReadMempoolResponse\DC28\n\ + \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1beta.submit.TxInMempoolR\ENQitems" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + items__field_descriptor + = Data.ProtoLens.FieldDescriptor + "items" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxInMempool) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: + Data.ProtoLens.FieldDescriptor ReadMempoolResponse + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReadMempoolResponse'_unknownFields + (\ x__ y__ -> x__ {_ReadMempoolResponse'_unknownFields = y__}) + defMessage + = ReadMempoolResponse'_constructor + {_ReadMempoolResponse'items = Data.Vector.Generic.empty, + _ReadMempoolResponse'_unknownFields = []} + parseMessage + = let + loop :: + ReadMempoolResponse + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInMempool + -> Data.ProtoLens.Encoding.Bytes.Parser ReadMempoolResponse + loop x mutable'items + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "items" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'items y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'items + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'items) + "ReadMempoolResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReadMempoolResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReadMempoolResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_ReadMempoolResponse'items x__) ()) +newtype Stage'UnrecognizedValue + = Stage'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data Stage + = STAGE_UNSPECIFIED | + STAGE_ACKNOWLEDGED | + STAGE_MEMPOOL | + STAGE_NETWORK | + STAGE_CONFIRMED | + Stage'Unrecognized !Stage'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum Stage where + maybeToEnum 0 = Prelude.Just STAGE_UNSPECIFIED + maybeToEnum 1 = Prelude.Just STAGE_ACKNOWLEDGED + maybeToEnum 2 = Prelude.Just STAGE_MEMPOOL + maybeToEnum 3 = Prelude.Just STAGE_NETWORK + maybeToEnum 4 = Prelude.Just STAGE_CONFIRMED + maybeToEnum k + = Prelude.Just + (Stage'Unrecognized + (Stage'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum STAGE_UNSPECIFIED = "STAGE_UNSPECIFIED" + showEnum STAGE_ACKNOWLEDGED = "STAGE_ACKNOWLEDGED" + showEnum STAGE_MEMPOOL = "STAGE_MEMPOOL" + showEnum STAGE_NETWORK = "STAGE_NETWORK" + showEnum STAGE_CONFIRMED = "STAGE_CONFIRMED" + showEnum (Stage'Unrecognized (Stage'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "STAGE_UNSPECIFIED" + = Prelude.Just STAGE_UNSPECIFIED + | (Prelude.==) k "STAGE_ACKNOWLEDGED" + = Prelude.Just STAGE_ACKNOWLEDGED + | (Prelude.==) k "STAGE_MEMPOOL" = Prelude.Just STAGE_MEMPOOL + | (Prelude.==) k "STAGE_NETWORK" = Prelude.Just STAGE_NETWORK + | (Prelude.==) k "STAGE_CONFIRMED" = Prelude.Just STAGE_CONFIRMED + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded Stage where + minBound = STAGE_UNSPECIFIED + maxBound = STAGE_CONFIRMED +instance Prelude.Enum Stage where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum Stage: " (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum STAGE_UNSPECIFIED = 0 + fromEnum STAGE_ACKNOWLEDGED = 1 + fromEnum STAGE_MEMPOOL = 2 + fromEnum STAGE_NETWORK = 3 + fromEnum STAGE_CONFIRMED = 4 + fromEnum (Stage'Unrecognized (Stage'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ STAGE_CONFIRMED + = Prelude.error + "Stage.succ: bad argument STAGE_CONFIRMED. This value would be out of bounds." + succ STAGE_UNSPECIFIED = STAGE_ACKNOWLEDGED + succ STAGE_ACKNOWLEDGED = STAGE_MEMPOOL + succ STAGE_MEMPOOL = STAGE_NETWORK + succ STAGE_NETWORK = STAGE_CONFIRMED + succ (Stage'Unrecognized _) + = Prelude.error "Stage.succ: bad argument: unrecognized value" + pred STAGE_UNSPECIFIED + = Prelude.error + "Stage.pred: bad argument STAGE_UNSPECIFIED. This value would be out of bounds." + pred STAGE_ACKNOWLEDGED = STAGE_UNSPECIFIED + pred STAGE_MEMPOOL = STAGE_ACKNOWLEDGED + pred STAGE_NETWORK = STAGE_MEMPOOL + pred STAGE_CONFIRMED = STAGE_NETWORK + pred (Stage'Unrecognized _) + = Prelude.error "Stage.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault Stage where + fieldDefault = STAGE_UNSPECIFIED +instance Control.DeepSeq.NFData Stage where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.tx' @:: Lens' SubmitTxRequest AnyChainTx@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'tx' @:: Lens' SubmitTxRequest (Prelude.Maybe AnyChainTx)@ -} +data SubmitTxRequest + = SubmitTxRequest'_constructor {_SubmitTxRequest'tx :: !(Prelude.Maybe AnyChainTx), + _SubmitTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SubmitTxRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SubmitTxRequest "tx" AnyChainTx where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SubmitTxRequest'tx (\ x__ y__ -> x__ {_SubmitTxRequest'tx = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SubmitTxRequest "maybe'tx" (Prelude.Maybe AnyChainTx) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SubmitTxRequest'tx (\ x__ y__ -> x__ {_SubmitTxRequest'tx = y__})) + Prelude.id +instance Data.ProtoLens.Message SubmitTxRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.SubmitTxRequest" + packedMessageDescriptor _ + = "\n\ + \\SISubmitTxRequest\DC21\n\ + \\STXtx\CAN\SOH \SOH(\v2!.utxorpc.v1beta.submit.AnyChainTxR\STXtx" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + tx__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tx" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyChainTx) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'tx")) :: + Data.ProtoLens.FieldDescriptor SubmitTxRequest + in Data.Map.fromList [(Data.ProtoLens.Tag 1, tx__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SubmitTxRequest'_unknownFields + (\ x__ y__ -> x__ {_SubmitTxRequest'_unknownFields = y__}) + defMessage + = SubmitTxRequest'_constructor + {_SubmitTxRequest'tx = Prelude.Nothing, + _SubmitTxRequest'_unknownFields = []} + parseMessage + = let + loop :: + SubmitTxRequest + -> Data.ProtoLens.Encoding.Bytes.Parser SubmitTxRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "tx" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tx") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SubmitTxRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'tx") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData SubmitTxRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SubmitTxRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_SubmitTxRequest'tx x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.ref' @:: Lens' SubmitTxResponse Data.ByteString.ByteString@ -} +data SubmitTxResponse + = SubmitTxResponse'_constructor {_SubmitTxResponse'ref :: !Data.ByteString.ByteString, + _SubmitTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SubmitTxResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SubmitTxResponse "ref" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SubmitTxResponse'ref + (\ x__ y__ -> x__ {_SubmitTxResponse'ref = y__})) + Prelude.id +instance Data.ProtoLens.Message SubmitTxResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.SubmitTxResponse" + packedMessageDescriptor _ + = "\n\ + \\DLESubmitTxResponse\DC2\DLE\n\ + \\ETXref\CAN\SOH \SOH(\fR\ETXref" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ref__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ref" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ref")) :: + Data.ProtoLens.FieldDescriptor SubmitTxResponse + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, ref__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SubmitTxResponse'_unknownFields + (\ x__ y__ -> x__ {_SubmitTxResponse'_unknownFields = y__}) + defMessage + = SubmitTxResponse'_constructor + {_SubmitTxResponse'ref = Data.ProtoLens.fieldDefault, + _SubmitTxResponse'_unknownFields = []} + parseMessage + = let + loop :: + SubmitTxResponse + -> Data.ProtoLens.Encoding.Bytes.Parser SubmitTxResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ref" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ref") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SubmitTxResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ref") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData SubmitTxResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SubmitTxResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_SubmitTxResponse'ref x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.ref' @:: Lens' TxInMempool Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.nativeBytes' @:: Lens' TxInMempool Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.stage' @:: Lens' TxInMempool Stage@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'parsedState' @:: Lens' TxInMempool (Prelude.Maybe TxInMempool'ParsedState)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'cardano' @:: Lens' TxInMempool (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Tx)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.cardano' @:: Lens' TxInMempool Proto.Utxorpc.V1beta.Cardano.Cardano.Tx@ -} +data TxInMempool + = TxInMempool'_constructor {_TxInMempool'ref :: !Data.ByteString.ByteString, + _TxInMempool'nativeBytes :: !Data.ByteString.ByteString, + _TxInMempool'stage :: !Stage, + _TxInMempool'parsedState :: !(Prelude.Maybe TxInMempool'ParsedState), + _TxInMempool'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxInMempool where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +data TxInMempool'ParsedState + = TxInMempool'Cardano !Proto.Utxorpc.V1beta.Cardano.Cardano.Tx + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.Field.HasField TxInMempool "ref" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInMempool'ref (\ x__ y__ -> x__ {_TxInMempool'ref = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxInMempool "nativeBytes" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInMempool'nativeBytes + (\ x__ y__ -> x__ {_TxInMempool'nativeBytes = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxInMempool "stage" Stage where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInMempool'stage (\ x__ y__ -> x__ {_TxInMempool'stage = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxInMempool "maybe'parsedState" (Prelude.Maybe TxInMempool'ParsedState) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInMempool'parsedState + (\ x__ y__ -> x__ {_TxInMempool'parsedState = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxInMempool "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1beta.Cardano.Cardano.Tx) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInMempool'parsedState + (\ x__ y__ -> x__ {_TxInMempool'parsedState = y__})) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TxInMempool'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TxInMempool'Cardano y__)) +instance Data.ProtoLens.Field.HasField TxInMempool "cardano" Proto.Utxorpc.V1beta.Cardano.Cardano.Tx where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxInMempool'parsedState + (\ x__ y__ -> x__ {_TxInMempool'parsedState = y__})) + ((Prelude..) + (Lens.Family2.Unchecked.lens + (\ x__ + -> case x__ of + (Prelude.Just (TxInMempool'Cardano x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap TxInMempool'Cardano y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) +instance Data.ProtoLens.Message TxInMempool where + messageName _ = Data.Text.pack "utxorpc.v1beta.submit.TxInMempool" + packedMessageDescriptor _ + = "\n\ + \\vTxInMempool\DC2\DLE\n\ + \\ETXref\CAN\SOH \SOH(\fR\ETXref\DC2!\n\ + \\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC22\n\ + \\ENQstage\CAN\ETX \SOH(\SO2\FS.utxorpc.v1beta.submit.StageR\ENQstage\DC26\n\ + \\acardano\CAN\EOT \SOH(\v2\SUB.utxorpc.v1beta.cardano.TxH\NULR\acardanoB\SO\n\ + \\fparsed_state" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ref__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ref" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ref")) :: + Data.ProtoLens.FieldDescriptor TxInMempool + nativeBytes__field_descriptor + = Data.ProtoLens.FieldDescriptor + "native_bytes" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"nativeBytes")) :: + Data.ProtoLens.FieldDescriptor TxInMempool + stage__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stage" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor Stage) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"stage")) :: + Data.ProtoLens.FieldDescriptor TxInMempool + cardano__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cardano" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1beta.Cardano.Cardano.Tx) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'cardano")) :: + Data.ProtoLens.FieldDescriptor TxInMempool + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, ref__field_descriptor), + (Data.ProtoLens.Tag 2, nativeBytes__field_descriptor), + (Data.ProtoLens.Tag 3, stage__field_descriptor), + (Data.ProtoLens.Tag 4, cardano__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxInMempool'_unknownFields + (\ x__ y__ -> x__ {_TxInMempool'_unknownFields = y__}) + defMessage + = TxInMempool'_constructor + {_TxInMempool'ref = Data.ProtoLens.fieldDefault, + _TxInMempool'nativeBytes = Data.ProtoLens.fieldDefault, + _TxInMempool'stage = Data.ProtoLens.fieldDefault, + _TxInMempool'parsedState = Prelude.Nothing, + _TxInMempool'_unknownFields = []} + parseMessage + = let + loop :: + TxInMempool -> Data.ProtoLens.Encoding.Bytes.Parser TxInMempool + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ref" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ref") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "native_bytes" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "stage" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"stage") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "cardano" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TxInMempool" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ref") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"nativeBytes") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"stage") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'parsedState") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just (TxInMempool'Cardano v)) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData TxInMempool where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxInMempool'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxInMempool'ref x__) + (Control.DeepSeq.deepseq + (_TxInMempool'nativeBytes x__) + (Control.DeepSeq.deepseq + (_TxInMempool'stage x__) + (Control.DeepSeq.deepseq (_TxInMempool'parsedState x__) ())))) +instance Control.DeepSeq.NFData TxInMempool'ParsedState where + rnf (TxInMempool'Cardano x__) = Control.DeepSeq.rnf x__ +_TxInMempool'Cardano :: + Data.ProtoLens.Prism.Prism' TxInMempool'ParsedState Proto.Utxorpc.V1beta.Cardano.Cardano.Tx +_TxInMempool'Cardano + = Data.ProtoLens.Prism.prism' + TxInMempool'Cardano + (\ p__ + -> case p__ of (TxInMempool'Cardano p__val) -> Prelude.Just p__val) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.match' @:: Lens' TxPredicate AnyChainTxPattern@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'match' @:: Lens' TxPredicate (Prelude.Maybe AnyChainTxPattern)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.not' @:: Lens' TxPredicate [TxPredicate]@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.vec'not' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.allOf' @:: Lens' TxPredicate [TxPredicate]@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.vec'allOf' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.anyOf' @:: Lens' TxPredicate [TxPredicate]@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.vec'anyOf' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@ -} +data TxPredicate + = TxPredicate'_constructor {_TxPredicate'match :: !(Prelude.Maybe AnyChainTxPattern), + _TxPredicate'not :: !(Data.Vector.Vector TxPredicate), + _TxPredicate'allOf :: !(Data.Vector.Vector TxPredicate), + _TxPredicate'anyOf :: !(Data.Vector.Vector TxPredicate), + _TxPredicate'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TxPredicate where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TxPredicate "match" AnyChainTxPattern where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'match (\ x__ y__ -> x__ {_TxPredicate'match = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField TxPredicate "maybe'match" (Prelude.Maybe AnyChainTxPattern) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'match (\ x__ y__ -> x__ {_TxPredicate'match = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPredicate "not" [TxPredicate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'not (\ x__ y__ -> x__ {_TxPredicate'not = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TxPredicate "vec'not" (Data.Vector.Vector TxPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'not (\ x__ y__ -> x__ {_TxPredicate'not = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPredicate "allOf" [TxPredicate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'allOf (\ x__ y__ -> x__ {_TxPredicate'allOf = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TxPredicate "vec'allOf" (Data.Vector.Vector TxPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'allOf (\ x__ y__ -> x__ {_TxPredicate'allOf = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TxPredicate "anyOf" [TxPredicate] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'anyOf (\ x__ y__ -> x__ {_TxPredicate'anyOf = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField TxPredicate "vec'anyOf" (Data.Vector.Vector TxPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TxPredicate'anyOf (\ x__ y__ -> x__ {_TxPredicate'anyOf = y__})) + Prelude.id +instance Data.ProtoLens.Message TxPredicate where + messageName _ = Data.Text.pack "utxorpc.v1beta.submit.TxPredicate" + packedMessageDescriptor _ + = "\n\ + \\vTxPredicate\DC2>\n\ + \\ENQmatch\CAN\SOH \SOH(\v2(.utxorpc.v1beta.submit.AnyChainTxPatternR\ENQmatch\DC24\n\ + \\ETXnot\CAN\STX \ETX(\v2\".utxorpc.v1beta.submit.TxPredicateR\ETXnot\DC29\n\ + \\ACKall_of\CAN\ETX \ETX(\v2\".utxorpc.v1beta.submit.TxPredicateR\ENQallOf\DC29\n\ + \\ACKany_of\CAN\EOT \ETX(\v2\".utxorpc.v1beta.submit.TxPredicateR\ENQanyOf" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + match__field_descriptor + = Data.ProtoLens.FieldDescriptor + "match" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor AnyChainTxPattern) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'match")) :: + Data.ProtoLens.FieldDescriptor TxPredicate + not__field_descriptor + = Data.ProtoLens.FieldDescriptor + "not" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxPredicate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"not")) :: + Data.ProtoLens.FieldDescriptor TxPredicate + allOf__field_descriptor + = Data.ProtoLens.FieldDescriptor + "all_of" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxPredicate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"allOf")) :: + Data.ProtoLens.FieldDescriptor TxPredicate + anyOf__field_descriptor + = Data.ProtoLens.FieldDescriptor + "any_of" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxPredicate) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"anyOf")) :: + Data.ProtoLens.FieldDescriptor TxPredicate + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, match__field_descriptor), + (Data.ProtoLens.Tag 2, not__field_descriptor), + (Data.ProtoLens.Tag 3, allOf__field_descriptor), + (Data.ProtoLens.Tag 4, anyOf__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TxPredicate'_unknownFields + (\ x__ y__ -> x__ {_TxPredicate'_unknownFields = y__}) + defMessage + = TxPredicate'_constructor + {_TxPredicate'match = Prelude.Nothing, + _TxPredicate'not = Data.Vector.Generic.empty, + _TxPredicate'allOf = Data.Vector.Generic.empty, + _TxPredicate'anyOf = Data.Vector.Generic.empty, + _TxPredicate'_unknownFields = []} + parseMessage + = let + loop :: + TxPredicate + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate + -> Data.ProtoLens.Encoding.Bytes.Parser TxPredicate + loop x mutable'allOf mutable'anyOf mutable'not + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'allOf) + frozen'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'anyOf) + frozen'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'not) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'allOf") frozen'allOf + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'anyOf") frozen'anyOf + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'not") frozen'not x)))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "match" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"match") y x) + mutable'allOf mutable'anyOf mutable'not + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "not" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'not y) + loop x mutable'allOf mutable'anyOf v + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "all_of" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'allOf y) + loop x v mutable'anyOf mutable'not + 34 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "any_of" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'anyOf y) + loop x mutable'allOf v mutable'not + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'allOf mutable'anyOf mutable'not + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop + Data.ProtoLens.defMessage mutable'allOf mutable'anyOf mutable'not) + "TxPredicate" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'match") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'not") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'allOf") _x)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'anyOf") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData TxPredicate where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TxPredicate'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TxPredicate'match x__) + (Control.DeepSeq.deepseq + (_TxPredicate'not x__) + (Control.DeepSeq.deepseq + (_TxPredicate'allOf x__) + (Control.DeepSeq.deepseq (_TxPredicate'anyOf x__) ())))) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.ref' @:: Lens' WaitForTxRequest [Data.ByteString.ByteString]@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.vec'ref' @:: Lens' WaitForTxRequest (Data.Vector.Vector Data.ByteString.ByteString)@ -} +data WaitForTxRequest + = WaitForTxRequest'_constructor {_WaitForTxRequest'ref :: !(Data.Vector.Vector Data.ByteString.ByteString), + _WaitForTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show WaitForTxRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField WaitForTxRequest "ref" [Data.ByteString.ByteString] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WaitForTxRequest'ref + (\ x__ y__ -> x__ {_WaitForTxRequest'ref = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField WaitForTxRequest "vec'ref" (Data.Vector.Vector Data.ByteString.ByteString) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WaitForTxRequest'ref + (\ x__ y__ -> x__ {_WaitForTxRequest'ref = y__})) + Prelude.id +instance Data.ProtoLens.Message WaitForTxRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.WaitForTxRequest" + packedMessageDescriptor _ + = "\n\ + \\DLEWaitForTxRequest\DC2\DLE\n\ + \\ETXref\CAN\SOH \ETX(\fR\ETXref" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ref__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ref" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ref")) :: + Data.ProtoLens.FieldDescriptor WaitForTxRequest + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, ref__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _WaitForTxRequest'_unknownFields + (\ x__ y__ -> x__ {_WaitForTxRequest'_unknownFields = y__}) + defMessage + = WaitForTxRequest'_constructor + {_WaitForTxRequest'ref = Data.Vector.Generic.empty, + _WaitForTxRequest'_unknownFields = []} + parseMessage + = let + loop :: + WaitForTxRequest + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString + -> Data.ProtoLens.Encoding.Bytes.Parser WaitForTxRequest + loop x mutable'ref + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'ref <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ref) + (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 (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'ref") frozen'ref x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ref" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'ref y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'ref + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'ref <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'ref) + "WaitForTxRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'ref") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData WaitForTxRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_WaitForTxRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_WaitForTxRequest'ref x__) ()) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.ref' @:: Lens' WaitForTxResponse Data.ByteString.ByteString@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.stage' @:: Lens' WaitForTxResponse Stage@ -} +data WaitForTxResponse + = WaitForTxResponse'_constructor {_WaitForTxResponse'ref :: !Data.ByteString.ByteString, + _WaitForTxResponse'stage :: !Stage, + _WaitForTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show WaitForTxResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField WaitForTxResponse "ref" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WaitForTxResponse'ref + (\ x__ y__ -> x__ {_WaitForTxResponse'ref = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField WaitForTxResponse "stage" Stage where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WaitForTxResponse'stage + (\ x__ y__ -> x__ {_WaitForTxResponse'stage = y__})) + Prelude.id +instance Data.ProtoLens.Message WaitForTxResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.WaitForTxResponse" + packedMessageDescriptor _ + = "\n\ + \\DC1WaitForTxResponse\DC2\DLE\n\ + \\ETXref\CAN\SOH \SOH(\fR\ETXref\DC22\n\ + \\ENQstage\CAN\STX \SOH(\SO2\FS.utxorpc.v1beta.submit.StageR\ENQstage" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + ref__field_descriptor + = Data.ProtoLens.FieldDescriptor + "ref" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ref")) :: + Data.ProtoLens.FieldDescriptor WaitForTxResponse + stage__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stage" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor Stage) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"stage")) :: + Data.ProtoLens.FieldDescriptor WaitForTxResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, ref__field_descriptor), + (Data.ProtoLens.Tag 2, stage__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _WaitForTxResponse'_unknownFields + (\ x__ y__ -> x__ {_WaitForTxResponse'_unknownFields = y__}) + defMessage + = WaitForTxResponse'_constructor + {_WaitForTxResponse'ref = Data.ProtoLens.fieldDefault, + _WaitForTxResponse'stage = Data.ProtoLens.fieldDefault, + _WaitForTxResponse'_unknownFields = []} + parseMessage + = let + loop :: + WaitForTxResponse + -> Data.ProtoLens.Encoding.Bytes.Parser WaitForTxResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "ref" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ref") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "stage" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"stage") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "WaitForTxResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ref") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"stage") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData WaitForTxResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_WaitForTxResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_WaitForTxResponse'ref x__) + (Control.DeepSeq.deepseq (_WaitForTxResponse'stage x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.predicate' @:: Lens' WatchMempoolRequest TxPredicate@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'predicate' @:: Lens' WatchMempoolRequest (Prelude.Maybe TxPredicate)@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.fieldMask' @:: Lens' WatchMempoolRequest Proto.Google.Protobuf.FieldMask.FieldMask@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'fieldMask' @:: Lens' WatchMempoolRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} +data WatchMempoolRequest + = WatchMempoolRequest'_constructor {_WatchMempoolRequest'predicate :: !(Prelude.Maybe TxPredicate), + _WatchMempoolRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), + _WatchMempoolRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show WatchMempoolRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField WatchMempoolRequest "predicate" TxPredicate where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WatchMempoolRequest'predicate + (\ x__ y__ -> x__ {_WatchMempoolRequest'predicate = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField WatchMempoolRequest "maybe'predicate" (Prelude.Maybe TxPredicate) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WatchMempoolRequest'predicate + (\ x__ y__ -> x__ {_WatchMempoolRequest'predicate = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField WatchMempoolRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WatchMempoolRequest'fieldMask + (\ x__ y__ -> x__ {_WatchMempoolRequest'fieldMask = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField WatchMempoolRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WatchMempoolRequest'fieldMask + (\ x__ y__ -> x__ {_WatchMempoolRequest'fieldMask = y__})) + Prelude.id +instance Data.ProtoLens.Message WatchMempoolRequest where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.WatchMempoolRequest" + packedMessageDescriptor _ + = "\n\ + \\DC3WatchMempoolRequest\DC2@\n\ + \\tpredicate\CAN\SOH \SOH(\v2\".utxorpc.v1beta.submit.TxPredicateR\tpredicate\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + predicate__field_descriptor + = Data.ProtoLens.FieldDescriptor + "predicate" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxPredicate) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'predicate")) :: + Data.ProtoLens.FieldDescriptor WatchMempoolRequest + fieldMask__field_descriptor + = Data.ProtoLens.FieldDescriptor + "field_mask" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: + Data.ProtoLens.FieldDescriptor WatchMempoolRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, predicate__field_descriptor), + (Data.ProtoLens.Tag 2, fieldMask__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _WatchMempoolRequest'_unknownFields + (\ x__ y__ -> x__ {_WatchMempoolRequest'_unknownFields = y__}) + defMessage + = WatchMempoolRequest'_constructor + {_WatchMempoolRequest'predicate = Prelude.Nothing, + _WatchMempoolRequest'fieldMask = Prelude.Nothing, + _WatchMempoolRequest'_unknownFields = []} + parseMessage + = let + loop :: + WatchMempoolRequest + -> Data.ProtoLens.Encoding.Bytes.Parser WatchMempoolRequest + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "predicate" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"predicate") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "field_mask" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "WatchMempoolRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'predicate") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'fieldMask") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData WatchMempoolRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_WatchMempoolRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_WatchMempoolRequest'predicate x__) + (Control.DeepSeq.deepseq (_WatchMempoolRequest'fieldMask x__) ())) +{- | Fields : + + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.tx' @:: Lens' WatchMempoolResponse TxInMempool@ + * 'Proto.Utxorpc.V1beta.Submit.Submit_Fields.maybe'tx' @:: Lens' WatchMempoolResponse (Prelude.Maybe TxInMempool)@ -} +data WatchMempoolResponse + = WatchMempoolResponse'_constructor {_WatchMempoolResponse'tx :: !(Prelude.Maybe TxInMempool), + _WatchMempoolResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show WatchMempoolResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField WatchMempoolResponse "tx" TxInMempool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WatchMempoolResponse'tx + (\ x__ y__ -> x__ {_WatchMempoolResponse'tx = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField WatchMempoolResponse "maybe'tx" (Prelude.Maybe TxInMempool) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _WatchMempoolResponse'tx + (\ x__ y__ -> x__ {_WatchMempoolResponse'tx = y__})) + Prelude.id +instance Data.ProtoLens.Message WatchMempoolResponse where + messageName _ + = Data.Text.pack "utxorpc.v1beta.submit.WatchMempoolResponse" + packedMessageDescriptor _ + = "\n\ + \\DC4WatchMempoolResponse\DC22\n\ + \\STXtx\CAN\SOH \SOH(\v2\".utxorpc.v1beta.submit.TxInMempoolR\STXtx" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + tx__field_descriptor + = Data.ProtoLens.FieldDescriptor + "tx" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TxInMempool) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'tx")) :: + Data.ProtoLens.FieldDescriptor WatchMempoolResponse + in Data.Map.fromList [(Data.ProtoLens.Tag 1, tx__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _WatchMempoolResponse'_unknownFields + (\ x__ y__ -> x__ {_WatchMempoolResponse'_unknownFields = y__}) + defMessage + = WatchMempoolResponse'_constructor + {_WatchMempoolResponse'tx = Prelude.Nothing, + _WatchMempoolResponse'_unknownFields = []} + parseMessage + = let + loop :: + WatchMempoolResponse + -> Data.ProtoLens.Encoding.Bytes.Parser WatchMempoolResponse + loop x + = do end <- 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 (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "tx" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tx") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "WatchMempoolResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'tx") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData WatchMempoolResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_WatchMempoolResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_WatchMempoolResponse'tx x__) ()) +data SubmitService = SubmitService {} +instance Data.ProtoLens.Service.Types.Service SubmitService where + type ServiceName SubmitService = "SubmitService" + type ServicePackage SubmitService = "utxorpc.v1beta.submit" + type ServiceMethods SubmitService = '["evalTx", + "readMempool", + "submitTx", + "waitForTx", + "watchMempool"] + packedServiceDescriptor _ + = "\n\ + \\rSubmitService\DC2U\n\ + \\ACKEvalTx\DC2$.utxorpc.v1beta.submit.EvalTxRequest\SUB%.utxorpc.v1beta.submit.EvalTxResponse\DC2[\n\ + \\bSubmitTx\DC2&.utxorpc.v1beta.submit.SubmitTxRequest\SUB'.utxorpc.v1beta.submit.SubmitTxResponse\DC2`\n\ + \\tWaitForTx\DC2'.utxorpc.v1beta.submit.WaitForTxRequest\SUB(.utxorpc.v1beta.submit.WaitForTxResponse0\SOH\DC2d\n\ + \\vReadMempool\DC2).utxorpc.v1beta.submit.ReadMempoolRequest\SUB*.utxorpc.v1beta.submit.ReadMempoolResponse\DC2i\n\ + \\fWatchMempool\DC2*.utxorpc.v1beta.submit.WatchMempoolRequest\SUB+.utxorpc.v1beta.submit.WatchMempoolResponse0\SOH" +instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "evalTx" where + type MethodName SubmitService "evalTx" = "EvalTx" + type MethodInput SubmitService "evalTx" = EvalTxRequest + type MethodOutput SubmitService "evalTx" = EvalTxResponse + type MethodStreamingType SubmitService "evalTx" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "submitTx" where + type MethodName SubmitService "submitTx" = "SubmitTx" + type MethodInput SubmitService "submitTx" = SubmitTxRequest + type MethodOutput SubmitService "submitTx" = SubmitTxResponse + type MethodStreamingType SubmitService "submitTx" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "waitForTx" where + type MethodName SubmitService "waitForTx" = "WaitForTx" + type MethodInput SubmitService "waitForTx" = WaitForTxRequest + type MethodOutput SubmitService "waitForTx" = WaitForTxResponse + type MethodStreamingType SubmitService "waitForTx" = 'Data.ProtoLens.Service.Types.ServerStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "readMempool" where + type MethodName SubmitService "readMempool" = "ReadMempool" + type MethodInput SubmitService "readMempool" = ReadMempoolRequest + type MethodOutput SubmitService "readMempool" = ReadMempoolResponse + type MethodStreamingType SubmitService "readMempool" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "watchMempool" where + type MethodName SubmitService "watchMempool" = "WatchMempool" + type MethodInput SubmitService "watchMempool" = WatchMempoolRequest + type MethodOutput SubmitService "watchMempool" = WatchMempoolResponse + type MethodStreamingType SubmitService "watchMempool" = 'Data.ProtoLens.Service.Types.ServerStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\"utxorpc/v1beta/submit/submit.proto\DC2\NAKutxorpc.v1beta.submit\SUB google/protobuf/field_mask.proto\SUB$utxorpc/v1beta/cardano/cardano.proto\"(\n\ + \\n\ + \AnyChainTx\DC2\DC2\n\ + \\ETXraw\CAN\SOH \SOH(\fH\NULR\ETXrawB\ACK\n\ + \\EOTtype\"B\n\ + \\rEvalTxRequest\DC21\n\ + \\STXtx\CAN\SOH \SOH(\v2!.utxorpc.v1beta.submit.AnyChainTxR\STXtx\"S\n\ + \\fAnyChainEval\DC2:\n\ + \\acardano\CAN\SOH \SOH(\v2\RS.utxorpc.v1beta.cardano.TxEvalH\NULR\acardanoB\a\n\ + \\ENQchain\"M\n\ + \\SOEvalTxResponse\DC2;\n\ + \\ACKreport\CAN\SOH \SOH(\v2#.utxorpc.v1beta.submit.AnyChainEvalR\ACKreport\"D\n\ + \\SISubmitTxRequest\DC21\n\ + \\STXtx\CAN\SOH \SOH(\v2!.utxorpc.v1beta.submit.AnyChainTxR\STXtx\"$\n\ + \\DLESubmitTxResponse\DC2\DLE\n\ + \\ETXref\CAN\SOH \SOH(\fR\ETXref\"\190\SOH\n\ + \\vTxInMempool\DC2\DLE\n\ + \\ETXref\CAN\SOH \SOH(\fR\ETXref\DC2!\n\ + \\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC22\n\ + \\ENQstage\CAN\ETX \SOH(\SO2\FS.utxorpc.v1beta.submit.StageR\ENQstage\DC26\n\ + \\acardano\CAN\EOT \SOH(\v2\SUB.utxorpc.v1beta.cardano.TxH\NULR\acardanoB\SO\n\ + \\fparsed_state\"\DC4\n\ + \\DC2ReadMempoolRequest\"O\n\ + \\DC3ReadMempoolResponse\DC28\n\ + \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1beta.submit.TxInMempoolR\ENQitems\"$\n\ + \\DLEWaitForTxRequest\DC2\DLE\n\ + \\ETXref\CAN\SOH \ETX(\fR\ETXref\"Y\n\ + \\DC1WaitForTxResponse\DC2\DLE\n\ + \\ETXref\CAN\SOH \SOH(\fR\ETXref\DC22\n\ + \\ENQstage\CAN\STX \SOH(\SO2\FS.utxorpc.v1beta.submit.StageR\ENQstage\"[\n\ + \\DC1AnyChainTxPattern\DC2=\n\ + \\acardano\CAN\SOH \SOH(\v2!.utxorpc.v1beta.cardano.TxPatternH\NULR\acardanoB\a\n\ + \\ENQchain\"\249\SOH\n\ + \\vTxPredicate\DC2>\n\ + \\ENQmatch\CAN\SOH \SOH(\v2(.utxorpc.v1beta.submit.AnyChainTxPatternR\ENQmatch\DC24\n\ + \\ETXnot\CAN\STX \ETX(\v2\".utxorpc.v1beta.submit.TxPredicateR\ETXnot\DC29\n\ + \\ACKall_of\CAN\ETX \ETX(\v2\".utxorpc.v1beta.submit.TxPredicateR\ENQallOf\DC29\n\ + \\ACKany_of\CAN\EOT \ETX(\v2\".utxorpc.v1beta.submit.TxPredicateR\ENQanyOf\"\146\SOH\n\ + \\DC3WatchMempoolRequest\DC2@\n\ + \\tpredicate\CAN\SOH \SOH(\v2\".utxorpc.v1beta.submit.TxPredicateR\tpredicate\DC29\n\ + \\n\ + \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"J\n\ + \\DC4WatchMempoolResponse\DC22\n\ + \\STXtx\CAN\SOH \SOH(\v2\".utxorpc.v1beta.submit.TxInMempoolR\STXtx*q\n\ + \\ENQStage\DC2\NAK\n\ + \\DC1STAGE_UNSPECIFIED\DLE\NUL\DC2\SYN\n\ + \\DC2STAGE_ACKNOWLEDGED\DLE\SOH\DC2\DC1\n\ + \\rSTAGE_MEMPOOL\DLE\STX\DC2\DC1\n\ + \\rSTAGE_NETWORK\DLE\ETX\DC2\DC3\n\ + \\SISTAGE_CONFIRMED\DLE\EOT2\246\ETX\n\ + \\rSubmitService\DC2U\n\ + \\ACKEvalTx\DC2$.utxorpc.v1beta.submit.EvalTxRequest\SUB%.utxorpc.v1beta.submit.EvalTxResponse\DC2[\n\ + \\bSubmitTx\DC2&.utxorpc.v1beta.submit.SubmitTxRequest\SUB'.utxorpc.v1beta.submit.SubmitTxResponse\DC2`\n\ + \\tWaitForTx\DC2'.utxorpc.v1beta.submit.WaitForTxRequest\SUB(.utxorpc.v1beta.submit.WaitForTxResponse0\SOH\DC2d\n\ + \\vReadMempool\DC2).utxorpc.v1beta.submit.ReadMempoolRequest\SUB*.utxorpc.v1beta.submit.ReadMempoolResponse\DC2i\n\ + \\fWatchMempool\DC2*.utxorpc.v1beta.submit.WatchMempoolRequest\SUB+.utxorpc.v1beta.submit.WatchMempoolResponse0\SOHB\158\SOH\n\ + \\EMcom.utxorpc.v1beta.submitB\vSubmitProtoP\SOH\162\STX\ETXUVS\170\STX\NAKUtxorpc.V1beta.Submit\202\STX\NAKUtxorpc\\V1beta\\Submit\226\STX!Utxorpc\\V1beta\\Submit\\GPBMetadata\234\STX\ETBUtxorpc::V1beta::SubmitJ\135%\n\ + \\ACK\DC2\EOT\NUL\NULo\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\STX\NUL\RS\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL*\n\ + \\t\n\ + \\STX\ETX\SOH\DC2\ETX\ENQ\NUL.\n\ + \E\n\ + \\STX\EOT\NUL\DC2\EOT\b\NUL\f\SOH\SUB9 Represents a transaction from any supported blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\b\b\DC2\n\ + \\f\n\ + \\EOT\EOT\NUL\b\NUL\DC2\EOT\t\STX\v\ETX\n\ + \\f\n\ + \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\t\b\f\n\ + \$\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\n\ + \\EOT\DC2\"\ETB Raw transaction data.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\n\ + \\EOT\t\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\n\ + \\n\ + \\r\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\n\ + \\DLE\DC1\n\ + \A\n\ + \\STX\EOT\SOH\DC2\EOT\SI\NUL\DC1\SOH\SUB5 Request to evaluate transaction without submitting.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\SI\b\NAK\n\ + \)\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DLE\STX\DC4\"\FS A transaction to evaluate.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\DLE\STX\f\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DLE\r\SI\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DLE\DC2\DC3\n\ + \Q\n\ + \\STX\EOT\STX\DC2\EOT\DC4\NUL\CAN\SOH\SUBE Report containing the result of evaluating a particular transaction\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX\DC4\b\DC4\n\ + \\f\n\ + \\EOT\EOT\STX\b\NUL\DC2\EOT\NAK\STX\ETB\ETX\n\ + \\f\n\ + \\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX\NAK\b\r\n\ + \.\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\SYN\EOT.\"! A Cardano tx evaluation report.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\SYN\EOT!\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\SYN\")\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\SYN,-\n\ + \N\n\ + \\STX\EOT\ETX\DC2\EOT\ESC\NUL\GS\SOH\SUBB Response containing the reports form the transaction evaluation.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX\ESC\b\SYN\n\ + \\v\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETX\FS\STX\SUB\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\FS\STX\SO\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\FS\SI\NAK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\FS\CAN\EM\n\ + \@\n\ + \\STX\EOT\EOT\DC2\EOT \NUL\"\SOH\SUB4 Request to submit a transaction to the blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX \b\ETB\n\ + \'\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX!\STX\DC4\"\SUB A transaction to submit.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX!\STX\f\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX!\r\SI\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX!\DC2\DC3\n\ + \K\n\ + \\STX\EOT\ENQ\DC2\EOT%\NUL'\SOH\SUB? Response containing references to the submitted transactions.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX%\b\CAN\n\ + \K\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\ETX&\STX\DLE\"> A transaction reference returned upon successful submission.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX&\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX&\b\v\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX&\SO\SI\n\ + \P\n\ + \\STX\ENQ\NUL\DC2\EOT*\NUL0\SOH\SUBD Enum representing the various stages of a transaction's lifecycle.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\ENQ\NUL\SOH\DC2\ETX*\ENQ\n\ + \\n\ + \!\n\ + \\EOT\ENQ\NUL\STX\NUL\DC2\ETX+\STX\CAN\"\DC4 Unspecified stage.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX+\STX\DC3\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX+\SYN\ETB\n\ + \=\n\ + \\EOT\ENQ\NUL\STX\SOH\DC2\ETX,\STX\EM\"0 Transaction has been acknowledged by the node.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX,\STX\DC4\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX,\ETB\CAN\n\ + \-\n\ + \\EOT\ENQ\NUL\STX\STX\DC2\ETX-\STX\DC4\" Transaction is in the mempool.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX-\STX\SI\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX-\DC2\DC3\n\ + \B\n\ + \\EOT\ENQ\NUL\STX\ETX\DC2\ETX.\STX\DC4\"5 Transaction has been propagated across the network.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX.\STX\SI\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX.\DC2\DC3\n\ + \@\n\ + \\EOT\ENQ\NUL\STX\EOT\DC2\ETX/\STX\SYN\"3 Transaction has been confirmed on the blockchain.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX/\STX\DC1\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX/\DC4\NAK\n\ + \\n\ + \\n\ + \\STX\EOT\ACK\DC2\EOT2\NUL9\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETX2\b\DC3\n\ + \)\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETX3\STX\DLE\"\FS The transaction reference.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX3\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX3\b\v\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX3\SO\SI\n\ + \5\n\ + \\EOT\EOT\ACK\STX\SOH\DC2\ETX4\STX\EM\"( Original bytes as defined by the chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX4\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX4\b\DC4\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX4\ETB\CAN\n\ + \*\n\ + \\EOT\EOT\ACK\STX\STX\DC2\ETX5\STX\DC2\"\GS The current stage of the tx\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETX5\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX5\b\r\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX5\DLE\DC1\n\ + \\f\n\ + \\EOT\EOT\ACK\b\NUL\DC2\EOT6\STX8\ETX\n\ + \\f\n\ + \\ENQ\EOT\ACK\b\NUL\SOH\DC2\ETX6\b\DC4\n\ + \%\n\ + \\EOT\EOT\ACK\STX\ETX\DC2\ETX7\EOT*\"\CAN A Cardano transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\ETX\ACK\DC2\ETX7\EOT\GS\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETX7\RS%\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETX7()\n\ + \C\n\ + \\STX\EOT\a\DC2\ETX<\NUL\GS\SUB8 Request to check the status of submitted transactions.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETX<\b\SUB\n\ + \J\n\ + \\STX\EOT\b\DC2\EOT?\NULA\SOH\SUB> Response containing the stage of the submitted transactions.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETX?\b\ESC\n\ + \<\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETX@\STX!\"/ List of transaction currently on the mempool.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\EOT\DC2\ETX@\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX@\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX@\ETB\FS\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX@\US \n\ + \H\n\ + \\STX\EOT\t\DC2\EOTD\NULF\SOH\SUB< Request to wait for transactions to reach a certain stage.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXD\b\CAN\n\ + \:\n\ + \\EOT\EOT\t\STX\NUL\DC2\ETXE\STX\EM\"- List of transaction references to wait for.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXE\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXE\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXE\DC1\DC4\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXE\ETB\CAN\n\ + \_\n\ + \\STX\EOT\n\ + \\DC2\EOTI\NULL\SOH\SUBS Response containing the transaction reference and stage once it has been reached.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETXI\b\EM\n\ + \%\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETXJ\STX\DLE\"\CAN Transaction reference.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ENQ\DC2\ETXJ\STX\a\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETXJ\b\v\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETXJ\SO\SI\n\ + \0\n\ + \\EOT\EOT\n\ + \\STX\SOH\DC2\ETXK\STX\DC2\"# Stage reached by the transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ACK\DC2\ETXK\STX\a\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\SOH\DC2\ETXK\b\r\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\SOH\ETX\DC2\ETXK\DLE\DC1\n\ + \D\n\ + \\STX\EOT\v\DC2\EOTO\NULS\SOH\SUB8 Represents a tx pattern from any supported blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\v\SOH\DC2\ETXO\b\EM\n\ + \\f\n\ + \\EOT\EOT\v\b\NUL\DC2\EOTP\STXR\ETX\n\ + \\f\n\ + \\ENQ\EOT\v\b\NUL\SOH\DC2\ETXP\b\r\n\ + \$\n\ + \\EOT\EOT\v\STX\NUL\DC2\ETXQ\EOT1\"\ETB A Cardano tx pattern.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXQ\EOT$\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXQ%,\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXQ/0\n\ + \\\\n\ + \\STX\EOT\f\DC2\EOTV\NUL[\SOH\SUBP Represents a simple tx predicate that can composed to create more complex ones\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\f\SOH\DC2\ETXV\b\DC3\n\ + \8\n\ + \\EOT\EOT\f\STX\NUL\DC2\ETXW\STX\RS\"+ Predicate is true if tx exhibits pattern.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXW\STX\DC3\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXW\DC4\EM\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXW\FS\GS\n\ + \?\n\ + \\EOT\EOT\f\STX\SOH\DC2\ETXX\STX\US\"2 Predicate is true if tx doesn't exhibit pattern.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\EOT\DC2\ETXX\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\ACK\DC2\ETXX\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\SOH\DC2\ETXX\ETB\SUB\n\ + \\f\n\ + \\ENQ\EOT\f\STX\SOH\ETX\DC2\ETXX\GS\RS\n\ + \D\n\ + \\EOT\EOT\f\STX\STX\DC2\ETXY\STX\"\"7 Predicate is true if tx exhibits all of the patterns.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\EOT\DC2\ETXY\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\ACK\DC2\ETXY\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\SOH\DC2\ETXY\ETB\GS\n\ + \\f\n\ + \\ENQ\EOT\f\STX\STX\ETX\DC2\ETXY !\n\ + \D\n\ + \\EOT\EOT\f\STX\ETX\DC2\ETXZ\STX\"\"7 Predicate is true if tx exhibits any of the patterns.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\EOT\DC2\ETXZ\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\ACK\DC2\ETXZ\v\SYN\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\SOH\DC2\ETXZ\ETB\GS\n\ + \\f\n\ + \\ENQ\EOT\f\STX\ETX\ETX\DC2\ETXZ !\n\ + \?\n\ + \\STX\EOT\r\DC2\EOT^\NULa\SOH\SUB3 Request to watch changes of specific mempool txs.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\r\SOH\DC2\ETX^\b\ESC\n\ + \5\n\ + \\EOT\EOT\r\STX\NUL\DC2\ETX_\STX\FS\"( A predicate to filter transactions by.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETX_\STX\r\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETX_\SO\ETB\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETX_\SUB\ESC\n\ + \7\n\ + \\EOT\EOT\r\STX\SOH\DC2\ETX`\STX+\"* Field mask to selectively return fields.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ACK\DC2\ETX`\STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETX`\FS&\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETX`)*\n\ + \@\n\ + \\STX\EOT\SO\DC2\EOTd\NULf\SOH\SUB4 Response that represents a change in a mempool tx.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SO\SOH\DC2\ETXd\b\FS\n\ + \?\n\ + \\EOT\EOT\SO\STX\NUL\DC2\ETXe\STX\NAK\"2 The content and stage of the tx that has changed\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXe\STX\r\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXe\SO\DLE\n\ + \\f\n\ + \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXe\DC3\DC4\n\ + \W\n\ + \\STX\ACK\NUL\DC2\EOTi\NULo\SOH\SUBK Service definition for submitting transactions and checking their status.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETXi\b\NAK\n\ + \=\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETXj\STX5\"0 Evaluates a transaction without submitting it.\n\ + \\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETXj\ACK\f\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETXj\r\SUB\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETXj%3\n\ + \5\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETXk\STX;\"( Submit transactions to the blockchain.\n\ + \\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETXk\ACK\SO\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETXk\SI\RS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETXk)9\n\ + \U\n\ + \\EOT\ACK\NUL\STX\STX\DC2\ETXl\STXE\"H Wait for transactions to reach a certain stage and stream the updates.\n\ + \\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETXl\ACK\SI\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETXl\DLE \n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ACK\DC2\ETXl+1\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETXl2C\n\ + \?\n\ + \\EOT\ACK\NUL\STX\ETX\DC2\ETXm\STXD\"2 Returns a point-in-time snapshot of the mempool.\n\ + \\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETXm\ACK\DC1\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETXm\DC2$\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETXm/B\n\ + \V\n\ + \\EOT\ACK\NUL\STX\EOT\DC2\ETXn\STXN\"I Stream transactions from the mempool matching the specified predicates.\n\ + \\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETXn\ACK\DC2\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETXn\DC3&\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\ACK\DC2\ETXn17\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETXn8Lb\ACKproto3" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query_Fields.hs b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Submit/Submit_Fields.hs similarity index 61% rename from cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query_Fields.hs rename to cardano-rpc/gen/Proto/Utxorpc/V1beta/Submit/Submit_Fields.hs index 0616113d74..26ae840907 100644 --- a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query_Fields.hs +++ b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Submit/Submit_Fields.hs @@ -1,9 +1,9 @@ -{- This file was auto-generated from utxorpc/v1alpha/query/query.proto by the proto-lens-protoc program. -} +{- This file was auto-generated from utxorpc/v1beta/submit/submit.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.Query.Query_Fields where +module Proto.Utxorpc.V1beta.Submit.Submit_Fields where 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 @@ -28,146 +28,165 @@ import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Gener import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Google.Protobuf.FieldMask -import qualified Proto.Utxorpc.V1alpha.Cardano.Cardano +import qualified Proto.Utxorpc.V1beta.Cardano.Cardano +allOf :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "allOf" a) => + Lens.Family2.LensLike' f s a +allOf = Data.ProtoLens.Field.field @"allOf" +anyOf :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "anyOf" a) => + Lens.Family2.LensLike' f s a +anyOf = Data.ProtoLens.Field.field @"anyOf" cardano :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "cardano" a) => Lens.Family2.LensLike' f s a cardano = Data.ProtoLens.Field.field @"cardano" -cardanoAddresses :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "cardanoAddresses" a) => - Lens.Family2.LensLike' f s a -cardanoAddresses = Data.ProtoLens.Field.field @"cardanoAddresses" fieldMask :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "fieldMask" a) => Lens.Family2.LensLike' f s a fieldMask = Data.ProtoLens.Field.field @"fieldMask" -hash :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "hash" a) => - Lens.Family2.LensLike' f s a -hash = Data.ProtoLens.Field.field @"hash" -height :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "height" a) => - Lens.Family2.LensLike' f s a -height = Data.ProtoLens.Field.field @"height" -index :: - forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "index" a) => - Lens.Family2.LensLike' f s a -index = Data.ProtoLens.Field.field @"index" items :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "items" a) => Lens.Family2.LensLike' f s a items = Data.ProtoLens.Field.field @"items" -ledgerTip :: +match :: forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "ledgerTip" a) => + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "match" a) => Lens.Family2.LensLike' f s a -ledgerTip = Data.ProtoLens.Field.field @"ledgerTip" +match = Data.ProtoLens.Field.field @"match" maybe'cardano :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "maybe'cardano" a) => Lens.Family2.LensLike' f s a maybe'cardano = Data.ProtoLens.Field.field @"maybe'cardano" -maybe'cardanoAddresses :: +maybe'chain :: forall f s a. (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'cardanoAddresses" a) => + Data.ProtoLens.Field.HasField s "maybe'chain" a) => Lens.Family2.LensLike' f s a -maybe'cardanoAddresses - = Data.ProtoLens.Field.field @"maybe'cardanoAddresses" +maybe'chain = Data.ProtoLens.Field.field @"maybe'chain" maybe'fieldMask :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "maybe'fieldMask" a) => Lens.Family2.LensLike' f s a maybe'fieldMask = Data.ProtoLens.Field.field @"maybe'fieldMask" -maybe'ledgerTip :: - forall f s a. - (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'ledgerTip" a) => - Lens.Family2.LensLike' f s a -maybe'ledgerTip = Data.ProtoLens.Field.field @"maybe'ledgerTip" -maybe'params :: +maybe'match :: forall f s a. (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'params" a) => + Data.ProtoLens.Field.HasField s "maybe'match" a) => Lens.Family2.LensLike' f s a -maybe'params = Data.ProtoLens.Field.field @"maybe'params" +maybe'match = Data.ProtoLens.Field.field @"maybe'match" maybe'parsedState :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "maybe'parsedState" a) => Lens.Family2.LensLike' f s a maybe'parsedState = Data.ProtoLens.Field.field @"maybe'parsedState" -maybe'queryArgs :: +maybe'predicate :: forall f s a. (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'queryArgs" a) => + Data.ProtoLens.Field.HasField s "maybe'predicate" a) => Lens.Family2.LensLike' f s a -maybe'queryArgs = Data.ProtoLens.Field.field @"maybe'queryArgs" -maybe'txoRef :: +maybe'predicate = Data.ProtoLens.Field.field @"maybe'predicate" +maybe'raw :: forall f s a. (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'txoRef" a) => + Data.ProtoLens.Field.HasField s "maybe'raw" a) => Lens.Family2.LensLike' f s a -maybe'txoRef = Data.ProtoLens.Field.field @"maybe'txoRef" -maybe'txoRefs :: +maybe'raw = Data.ProtoLens.Field.field @"maybe'raw" +maybe'report :: forall f s a. (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'txoRefs" a) => + Data.ProtoLens.Field.HasField s "maybe'report" a) => Lens.Family2.LensLike' f s a -maybe'txoRefs = Data.ProtoLens.Field.field @"maybe'txoRefs" -maybe'values :: +maybe'report = Data.ProtoLens.Field.field @"maybe'report" +maybe'tx :: forall f s a. (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "maybe'values" a) => + Data.ProtoLens.Field.HasField s "maybe'tx" a) => Lens.Family2.LensLike' f s a -maybe'values = Data.ProtoLens.Field.field @"maybe'values" +maybe'tx = Data.ProtoLens.Field.field @"maybe'tx" +maybe'type' :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'type'" a) => + Lens.Family2.LensLike' f s a +maybe'type' = Data.ProtoLens.Field.field @"maybe'type'" nativeBytes :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "nativeBytes" a) => Lens.Family2.LensLike' f s a nativeBytes = Data.ProtoLens.Field.field @"nativeBytes" -slot :: +not :: forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "slot" a) => + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "not" a) => Lens.Family2.LensLike' f s a -slot = Data.ProtoLens.Field.field @"slot" -timestamp :: +not = Data.ProtoLens.Field.field @"not" +predicate :: forall f s a. (Prelude.Functor f, - Data.ProtoLens.Field.HasField s "timestamp" a) => + Data.ProtoLens.Field.HasField s "predicate" a) => + Lens.Family2.LensLike' f s a +predicate = Data.ProtoLens.Field.field @"predicate" +raw :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "raw" a) => Lens.Family2.LensLike' f s a -timestamp = Data.ProtoLens.Field.field @"timestamp" -txoRef :: +raw = Data.ProtoLens.Field.field @"raw" +ref :: forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "txoRef" a) => + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "ref" a) => Lens.Family2.LensLike' f s a -txoRef = Data.ProtoLens.Field.field @"txoRef" -txoRefs :: +ref = Data.ProtoLens.Field.field @"ref" +report :: forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "txoRefs" a) => + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "report" a) => Lens.Family2.LensLike' f s a -txoRefs = Data.ProtoLens.Field.field @"txoRefs" -values :: +report = Data.ProtoLens.Field.field @"report" +stage :: forall f s a. - (Prelude.Functor f, Data.ProtoLens.Field.HasField s "values" a) => + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "stage" a) => Lens.Family2.LensLike' f s a -values = Data.ProtoLens.Field.field @"values" +stage = Data.ProtoLens.Field.field @"stage" +tx :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "tx" a) => + Lens.Family2.LensLike' f s a +tx = Data.ProtoLens.Field.field @"tx" +vec'allOf :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'allOf" a) => + Lens.Family2.LensLike' f s a +vec'allOf = Data.ProtoLens.Field.field @"vec'allOf" +vec'anyOf :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'anyOf" a) => + Lens.Family2.LensLike' f s a +vec'anyOf = Data.ProtoLens.Field.field @"vec'anyOf" vec'items :: forall f s a. (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'items" a) => Lens.Family2.LensLike' f s a -vec'items = Data.ProtoLens.Field.field @"vec'items" \ No newline at end of file +vec'items = Data.ProtoLens.Field.field @"vec'items" +vec'not :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'not" a) => + Lens.Family2.LensLike' f s a +vec'not = Data.ProtoLens.Field.field @"vec'not" +vec'ref :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "vec'ref" a) => + Lens.Family2.LensLike' f s a +vec'ref = Data.ProtoLens.Field.field @"vec'ref" \ No newline at end of file diff --git a/cardano-rpc/proto/utxorpc/v1beta/cardano/cardano.proto b/cardano-rpc/proto/utxorpc/v1beta/cardano/cardano.proto index 3602a36d84..05c6a803b8 100644 --- a/cardano-rpc/proto/utxorpc/v1beta/cardano/cardano.proto +++ b/cardano-rpc/proto/utxorpc/v1beta/cardano/cardano.proto @@ -1,19 +1,42 @@ syntax = "proto3"; -package utxorpc.v1alpha.cardano; +package utxorpc.v1beta.cardano; + +// Purpose of the redeemer in a transaction. +enum RedeemerPurpose { + REDEEMER_PURPOSE_UNSPECIFIED = 0; + REDEEMER_PURPOSE_SPEND = 1; + REDEEMER_PURPOSE_MINT = 2; + REDEEMER_PURPOSE_CERT = 3; + REDEEMER_PURPOSE_REWARD = 4; + REDEEMER_PURPOSE_VOTE = 5; + REDEEMER_PURPOSE_PROPOSE = 6; +} + +// Redeemer information for a Plutus script. +message Redeemer { + RedeemerPurpose purpose = 1; // Purpose of the redeemer. + PlutusData payload = 2; // Plutus data associated with the redeemer. + uint32 index = 3; // Index of the redeemer. + ExUnits ex_units = 4; // Execution units consumed by the redeemer. + bytes original_cbor = 5; // Original cbor-encoded data as seen on-chain +} + +// Represents a transaction input in the Cardano blockchain. +message TxInput { + bytes tx_hash = 1; // Hash of the previous transaction. + uint32 output_index = 2; // Index of the output in the previous transaction. + TxOutput as_output = 3; // Content of the input represented as output of the related transaction + optional Redeemer redeemer = 4; // Redeemer for the Plutus script. +} // Represents a transaction output in the Cardano blockchain. message TxOutput { bytes address = 1; // Address receiving the output. - uint64 coin = 2 [jstype = JS_STRING]; // Amount of ADA in the output. - repeated MultiAsset assets = 3; // Additional native (non-ADA) assets in the output. - Datum datum = 4; // Plutus data associated with the output. - Script script = 5; // Script associated with the output. -} - -// TODO u5c: new type - https://github.com/utxorpc/spec/pull/167 -message AddressArray { - repeated bytes items = 1; + BigInt coin = 2; // Amount of ADA in the output. + repeated Multiasset assets = 3; // Additional native (non-ADA) assets in the output. + optional Datum datum = 4; // Plutus data associated with the output. + optional Script script = 5; // Script associated with the output. } message Datum { @@ -25,23 +48,182 @@ message Datum { // Represents a custom asset in the Cardano blockchain. message Asset { bytes name = 1; // Name of the custom asset. - oneof quantity { - uint64 output_coin = 2 [jstype = JS_STRING]; // Quantity of the custom asset in case of an output. - int64 mint_coin = 3 [jstype = JS_STRING]; // Quantity of the custom asset in case of a mint. - } + BigInt quantity = 2; // Quantity of the custom asset. This can be negative only if it is in a `Tx.mint` field and the transaction is burning tokens. } -// TODO u5c: redeemer was removed // Represents a multi-asset group in the Cardano blockchain. -message MultiAsset { +message Multiasset { bytes policy_id = 1; // Policy ID governing the custom assets. repeated Asset assets = 2; // List of custom assets. } +// Represents the validity interval of a transaction. +message TxValidity { + uint64 start = 1; // Start of the validity interval. + uint64 ttl = 2; // End of the validity interval (TTL: Time to Live). +} + +// Represents the collateral information for a transaction. +message Collateral { + repeated TxInput collateral = 1; // Collateral inputs for the transaction. + TxOutput collateral_return = 2; // Collateral return in case of script failure. + BigInt total_collateral = 3; // Total amount of collateral. +} + +// Represents a withdrawal from a reward account. +message Withdrawal { + bytes reward_account = 1; // Address of the reward account. + BigInt coin = 2; // Amount of ADA withdrawn. + Redeemer redeemer = 3; // Redeemer for the Plutus script. +} + +// Represents a set of witnesses that validate a transaction +message WitnessSet { + repeated VKeyWitness vkeywitness = 1; // List of VKey witnesses. + repeated Script script = 2; // List of scripts. + repeated PlutusData plutus_datums = 3; // List of Plutus data elements associated with the transaction. + repeated Redeemer redeemers = 4; // List of redeemers + repeated BootstrapWitness bootstrapWitnesses = 5; // List of bootstrap witnesses +} + +// Auxiliary data not directly tied to the validation process +message AuxData { + repeated Metadata metadata = 1; // List of auxiliary metadata elements. + repeated Script scripts = 2; // List of auxiliary scripts. +} + +// Represents a transaction in the Cardano blockchain. +message Tx { + repeated TxInput inputs = 1; // List of transaction inputs + repeated TxOutput outputs = 2; // List of transaction outputs + repeated Certificate certificates = 3; // List of certificates + repeated Withdrawal withdrawals = 4; // List of withdrawals + repeated Multiasset mint = 5; // List of minted custom assets + repeated TxInput reference_inputs = 6; // List of reference inputs + WitnessSet witnesses = 7; // Witnesses that validte the transaction + Collateral collateral = 8; // Collateral details in case of failed transaction + BigInt fee = 9; // Transaction fee in ADA + TxValidity validity = 10; // Validity interval of the transaction + bool successful = 11; // Flag indicating whether the transaction was successful + AuxData auxiliary = 12; // Auxiliary data not directly tied to the validation process + bytes hash = 13; // Hash of the transaction that serves as main identifier + repeated GovernanceActionProposal proposals = 14; // List of governance actions proposed +} + +// Define a governance action proposal +message GovernanceActionProposal { + BigInt deposit = 1; // The amount deposited for the governance action + bytes reward_account = 2; // The reward account the deposit should be returned to + GovernanceAction gov_action = 3; + Anchor anchor = 4; +} + +// Define a Governance Action +message GovernanceAction { + oneof governance_action { + ParameterChangeAction parameter_change_action = 1; // Change on-chain parameters + HardForkInitiationAction hard_fork_initiation_action = 2; // Initiate a Hard Fork + TreasuryWithdrawalsAction treasury_withdrawals_action = 3; // Withdraw from the Treasury + NoConfidenceAction no_confidence_action = 4; // + UpdateCommitteeAction update_committee_action = 5; // Update the Constitution Committee + NewConstitutionAction new_constitution_action = 6; // Replace the Constitution + InfoAction info_action = 7; // Info action + } +} + +message GovernanceActionId { + bytes transaction_id = 1; + uint32 governance_action_index = 2; +} + +message ParameterChangeAction { + GovernanceActionId gov_action_id = 1; + PParams protocol_param_update = 2; // The updates proposed + bytes policy_hash = 3; +} + +message HardForkInitiationAction { + GovernanceActionId gov_action_id = 1; + ProtocolVersion protocol_version = 2; // The protocol version to fork to +} + +message TreasuryWithdrawalsAction { + repeated WithdrawalAmount withdrawals = 1; // A list of the withdrawals to make + bytes policy_hash = 2; +} + +message WithdrawalAmount { + bytes reward_account = 1; + BigInt coin = 2; +} + +message NoConfidenceAction { + GovernanceActionId gov_action_id = 1; +} + +message UpdateCommitteeAction { + GovernanceActionId gov_action_id = 1; + repeated StakeCredential remove_committee_credentials = 2; // Committee members to remove (if any) + repeated NewCommitteeCredentials new_committee_credentials = 3; // The new committee members + RationalNumber new_committee_threshold = 4; // The required threshold for the committee +} + +message NewConstitutionAction { + GovernanceActionId gov_action_id = 1; + Constitution constitution = 2; // The Constitution proposed +} + +message InfoAction {} + +message Constitution { + Anchor anchor = 1; // Anchor to the new document + bytes hash = 2; // Hash of the document +} + +// The new committee credential are passed as a map where the key is the committee cold credential hash +// and the value is the expiration epoch for that credential +message NewCommitteeCredentials { + StakeCredential committee_cold_credential = 1; + uint32 expires_epoch = 2; +} + +// Contains the header information for a block. +message BlockHeader { + uint64 slot = 1; // Slot number. + bytes hash = 2; // Block hash. + uint64 height = 3; // Block height. +} + +// Contains the transaction data for a block. +message BlockBody { + repeated Tx tx = 1; // List of transactions. +} + +// Represents a complete block, including header and body. +message Block { + BlockHeader header = 1; // Block header. + BlockBody body = 2; // Block body. + uint64 timestamp = 3; // Block ms timestamp +} + +// Represents bootstrap keys from Byron era +message BootstrapWitness { + bytes vkey = 1; // Verification key. + bytes signature = 2; // Signature generated using the associated private key. + bytes chain_code = 3; // 32 bytes of chain code + bytes attributes = 4; // key attributes +} + +// Represents a VKey witness used to sign a transaction. +message VKeyWitness { + bytes vkey = 1; // Verification key. + bytes signature = 2; // Signature generated using the associated private key. +} + // Represents a native script in Cardano. message NativeScript { oneof native_script { - bytes script_pubkey = 1; // Script based on an address key hash. + bytes script_pubkey_hash = 1; // Script based on an address key hash. NativeScriptList script_all = 2; // Script that requires all nested scripts to be satisfied. NativeScriptList script_any = 3; // Script that requires any of the nested scripts to be satisfied. ScriptNOfK script_n_of_k = 4; // Script that requires k out of n nested scripts to be satisfied. @@ -69,15 +251,16 @@ message Constr { } // Represents a big integer for Plutus data in Cardano. +// The representation here follows CBOR specification for bignums: +// https://www.rfc-editor.org/rfc/rfc8949.html#name-bignums section 3.4.3. message BigInt { oneof big_int { - int64 int = 1 [jstype = JS_STRING]; - bytes big_u_int = 2; - bytes big_n_int = 3; + int64 int = 1; // Stores value fitting within int64 range + bytes big_u_int = 2; // Stores unsigned value exceeding int64 range + bytes big_n_int = 3; // Stores negative value `n` exceeding int64 range as `-1 - n` } } - // Represents a key-value pair for Plutus data in Cardano. message PlutusDataPair { PlutusData key = 1; // Key of the pair. @@ -105,9 +288,7 @@ message PlutusDataArray { repeated PlutusData items = 1; // List of Plutus data items. } - // Represents a script in Cardano. -// TODO u5c: removed native script representation, added plutus_v4 message Script { oneof script { NativeScript native = 1; // Native script. @@ -118,11 +299,280 @@ message Script { } } +message Metadatum { + oneof metadatum { + int64 int = 1; + bytes bytes = 2; + string text = 3; + MetadatumArray array = 4; + MetadatumMap map = 5; + } +} + +message MetadatumArray { + repeated Metadatum items = 1; +} + +message MetadatumMap { + repeated MetadatumPair pairs = 1; +} + +message MetadatumPair { + Metadatum key = 1; + Metadatum value = 2; +} + +message Metadata { + uint64 label = 1; + Metadatum value = 2; +} + +// Represents a stake credential in Cardano. +message StakeCredential { + oneof stake_credential { + bytes addr_key_hash = 1; // Address key hash. + bytes script_hash = 2; // Script hash. + } +} + // Represents a rational number as a fraction. -// TODO u5c increased precision to 64 bits message RationalNumber { - int64 numerator = 1 [jstype = JS_STRING]; - uint64 denominator = 2 [jstype = JS_STRING]; + int32 numerator = 1; + uint32 denominator = 2; +} + +// Represents a relay in Cardano. +message Relay { + bytes ip_v4 = 1; + bytes ip_v6 = 2; + string dns_name = 3; + uint32 port = 4; +} + +// Represents pool metadata in Cardano. +message PoolMetadata { + string url = 1; + bytes hash = 2; +} + +// Represents a certificate in Cardano. +message Certificate { + oneof certificate { + StakeCredential stake_registration = 1; // Stake registration certificate. + StakeCredential stake_deregistration = 2; // Stake deregistration certificate. + StakeDelegationCert stake_delegation = 3; // Stake delegation certificate. + PoolRegistrationCert pool_registration = 4; // Pool registration certificate. + PoolRetirementCert pool_retirement = 5; // Pool retirement certificate. + GenesisKeyDelegationCert genesis_key_delegation = 6; // Genesis key delegation certificate. + MirCert mir_cert = 7; // Move instantaneous rewards certificate. + RegCert reg_cert = 8; // Registration certificate. + UnRegCert unreg_cert = 9; // Unregistration certificate. + VoteDelegCert vote_deleg_cert = 10; // Vote delegation certificate. + StakeVoteDelegCert stake_vote_deleg_cert = 11; // Stake and vote delegation certificate. + StakeRegDelegCert stake_reg_deleg_cert = 12; // Stake registration and delegation certificate. + VoteRegDelegCert vote_reg_deleg_cert = 13; // Vote registration and delegation certificate. + StakeVoteRegDelegCert stake_vote_reg_deleg_cert = 14; // Stake and vote registration and delegation certificate. + AuthCommitteeHotCert auth_committee_hot_cert = 15; // Authorize committee hot key certificate. + ResignCommitteeColdCert resign_committee_cold_cert = 16; // Resign committee cold key certificate. + RegDRepCert reg_drep_cert = 17; // Register DRep certificate. + UnRegDRepCert unreg_drep_cert = 18; // Unregister DRep certificate. + UpdateDRepCert update_drep_cert = 19; // Update DRep certificate. + } + Redeemer redeemer = 100; // Redeemer for the Plutus script. +} + +// Represents a stake delegation certificate in Cardano. +message StakeDelegationCert { + StakeCredential stake_credential = 1; // Stake credential. + bytes pool_keyhash = 2; // Pool key hash. +} + +// Represents a pool registration certificate in Cardano. +message PoolRegistrationCert { + bytes operator = 1; // Operator key hash. + bytes vrf_keyhash = 2; // VRF key hash. + BigInt pledge = 3; // Pledge amount. + BigInt cost = 4; // Pool cost. + RationalNumber margin = 5; // Pool margin. + bytes reward_account = 6; // Reward account. + repeated bytes pool_owners = 7; // List of pool owner key hashes. + repeated Relay relays = 8; // List of relays. + PoolMetadata pool_metadata = 9; // Pool metadata. +} + +// Represents a pool retirement certificate in Cardano. +message PoolRetirementCert { + bytes pool_keyhash = 1; // Pool key hash. + uint64 epoch = 2; // Retirement epoch. +} + +// Represents a genesis key delegation certificate in Cardano. +message GenesisKeyDelegationCert { + bytes genesis_hash = 1; // Genesis hash. + bytes genesis_delegate_hash = 2; // Genesis delegate hash. + bytes vrf_keyhash = 3; // VRF key hash. +} + +enum MirSource { + MIR_SOURCE_UNSPECIFIED = 0; + MIR_SOURCE_RESERVES = 1; + MIR_SOURCE_TREASURY = 2; +} + +message MirTarget { + StakeCredential stake_credential = 1; + BigInt delta_coin = 2; +} + +// Represents a move instantaneous reward certificate in Cardano. +message MirCert { + MirSource from = 1; + repeated MirTarget to = 2; + uint64 other_pot = 3; +} + +message RegCert { + StakeCredential stake_credential = 1; + BigInt coin = 2; +} + +message UnRegCert { + StakeCredential stake_credential = 1; + BigInt coin = 2; +} + +message DRep { + oneof drep { + bytes addr_key_hash = 1; // Address key hash + bytes script_hash = 2; // Script hash + bool abstain = 3; // Abstain + bool no_confidence = 4; // No confidence + } +} + +message VoteDelegCert { + StakeCredential stake_credential = 1; + DRep drep = 2; +} + +message StakeVoteDelegCert { + StakeCredential stake_credential = 1; + bytes pool_keyhash = 2; + DRep drep = 3; +} + +message StakeRegDelegCert { + StakeCredential stake_credential = 1; + bytes pool_keyhash = 2; + BigInt coin = 3; +} + +message VoteRegDelegCert { + StakeCredential stake_credential = 1; + DRep drep = 2; + BigInt coin = 3; +} + +message StakeVoteRegDelegCert { + StakeCredential stake_credential = 1; + bytes pool_keyhash = 2; + DRep drep = 3; + BigInt coin = 4; +} + +message AuthCommitteeHotCert { + StakeCredential committee_cold_credential = 1; + StakeCredential committee_hot_credential = 2; +} + +message Anchor { + string url = 1; + bytes content_hash = 2; +} + +message ResignCommitteeColdCert { + StakeCredential committee_cold_credential = 1; + Anchor anchor = 2; +} + +message RegDRepCert { + StakeCredential drep_credential = 1; + BigInt coin = 2; + Anchor anchor = 3; +} + +message UnRegDRepCert { + StakeCredential drep_credential = 1; + BigInt coin = 2; +} + +message UpdateDRepCert { + StakeCredential drep_credential = 1; + Anchor anchor = 2; +} + +// PATTERN MATCHING +// ================ + +// Pattern of an address that can be used to evaluate matching predicates. +message AddressPattern { + bytes exact_address = 1; // The address should match this exact address value. + bytes payment_part = 2; // The payment part of the address should match this value. + bytes delegation_part = 3; // The delegation part of the address should match this value. +} + +// Pattern of a native asset that can be used to evaluate matching predicates. +message AssetPattern { + bytes policy_id = 1; // The asset should belong to this policy id + bytes asset_name = 2; // The asset should present this name +} + +// Pattern of a certificate that can be used to evaluate matching predicates. +message CertificatePattern { + oneof certificate_type { + StakeCredential stake_registration = 1; // Match stake registration for this credential + StakeCredential stake_deregistration = 2; // Match stake deregistration for this credential + StakeDelegationPattern stake_delegation = 3; // Match stake delegation pattern + PoolRegistrationPattern pool_registration = 4; // Match pool registration pattern + PoolRetirementPattern pool_retirement = 5; // Match pool retirement pattern + bytes any_stake_credential = 6; // Match any certificate involving this stake credential + bytes any_pool_keyhash = 7; // Match any certificate involving this pool + bytes any_drep = 8; // Match any certificate involving this DRep + } +} + +// Pattern for stake delegation certificates +message StakeDelegationPattern { + StakeCredential stake_credential = 1; // Match delegations from this credential + bytes pool_keyhash = 2; // Match delegations to this pool +} + +// Pattern for pool registration certificates +message PoolRegistrationPattern { + bytes operator = 1; // Match registrations by this operator + bytes pool_keyhash = 2; // Match registrations for this pool (derived from operator) +} + +// Pattern for pool retirement certificates +message PoolRetirementPattern { + bytes pool_keyhash = 1; // Match retirements of this pool + uint64 epoch = 2; // Match retirements in this epoch +} + +// Pattern of a tx output that can be used to evaluate matching predicates. +message TxOutputPattern { + AddressPattern address = 1; // Match any address in the output that exhibits this pattern. + AssetPattern asset = 2; // Match any asset in the output that exhibits this pattern. +} + +// Pattern of a Tx that can be used to evaluate matching predicates. +message TxPattern { + TxOutputPattern consumes = 1; // Match any input that exhibits this pattern. + TxOutputPattern produces = 2; // Match any output that exhibits this pattern. + AddressPattern has_address = 3; // Match any address (inputs, outputs, collateral, etc) that exhibits this pattern. + AssetPattern moves_asset = 4; // Match any asset that exhibits this pattern. + AssetPattern mints_asset = 5; // Match any tx that either mint or burn the the asset pattern. + CertificatePattern has_certificate = 6; // Match any transaction that includes this certificate pattern. } // PARAMS @@ -159,24 +609,24 @@ message VotingThresholds { } message PParams { - uint64 coins_per_utxo_byte = 1 [jstype = JS_STRING]; // The number of coins per UTXO byte. - uint64 max_tx_size = 2 [jstype = JS_STRING]; // The maximum transaction size. - uint64 min_fee_coefficient = 3 [jstype = JS_STRING]; // The minimum fee coefficient. - uint64 min_fee_constant = 4 [jstype = JS_STRING]; // The minimum fee constant. - uint64 max_block_body_size = 5 [jstype = JS_STRING]; // The maximum block body size. - uint64 max_block_header_size = 6 [jstype = JS_STRING]; // The maximum block header size. - uint64 stake_key_deposit = 7 [jstype = JS_STRING]; // The stake key deposit. - uint64 pool_deposit = 8 [jstype = JS_STRING]; // The pool deposit. + BigInt coins_per_utxo_byte = 1; // The number of coins per UTXO byte. + uint64 max_tx_size = 2; // The maximum transaction size. + BigInt min_fee_coefficient = 3; // The minimum fee coefficient. + BigInt min_fee_constant = 4; // The minimum fee constant. + uint64 max_block_body_size = 5; // The maximum block body size. + uint64 max_block_header_size = 6; // The maximum block header size. + BigInt stake_key_deposit = 7; // The stake key deposit. + BigInt pool_deposit = 8; // The pool deposit. uint64 pool_retirement_epoch_bound = 9; // The pool retirement epoch bound. uint64 desired_number_of_pools = 10; // The desired number of pools. RationalNumber pool_influence = 11; // The pool influence. RationalNumber monetary_expansion = 12; // The monetary expansion. RationalNumber treasury_expansion = 13; // The treasury expansion. - uint64 min_pool_cost = 14 [jstype = JS_STRING]; // The minimum pool cost. + BigInt min_pool_cost = 14; // The minimum pool cost. ProtocolVersion protocol_version = 15; // The protocol version. - uint64 max_value_size = 16 [jstype = JS_STRING]; // The maximum value size. - uint64 collateral_percentage = 17 [jstype = JS_STRING]; // The collateral percentage. - uint64 max_collateral_inputs = 18 [jstype = JS_STRING]; // The maximum collateral inputs. + uint64 max_value_size = 16; // The maximum value size. + uint64 collateral_percentage = 17; // The collateral percentage. + uint64 max_collateral_inputs = 18; // The maximum collateral inputs. CostModels cost_models = 19; // The cost models. ExPrices prices = 20; // The prices. ExUnits max_execution_units_per_transaction = 21; // The maximum execution units per transaction. @@ -187,8 +637,190 @@ message PParams { uint32 min_committee_size = 26; // The minimum committee size. uint64 committee_term_limit = 27; // The committee term limit. uint64 governance_action_validity_period = 28; // The governance action validity period. - uint64 governance_action_deposit = 29 [jstype = JS_STRING]; // The governance action deposit. - uint64 drep_deposit = 30 [jstype = JS_STRING]; // The drep deposit. + BigInt governance_action_deposit = 29; // The governance action deposit. + BigInt drep_deposit = 30; // The drep deposit. uint64 drep_inactivity_period = 31; // The drep inactivity period. } +message EraBoundary { + uint64 time = 1; // ms timestamp + uint64 slot = 2; // absolute slot number of the first block of this era + uint64 epoch = 3; // first epoch for this era +} + +message EraSummary { + string name = 1; // name of the era (ex: "shelley") + EraBoundary start = 2; // start of this era + EraBoundary end = 3; // end of this era (if the era has a well-defined ending) + PParams protocol_params = 4; // protocol parameters for this era +} + +message EraSummaries { + repeated EraSummary summaries = 1; +} + +// EVALUATION +// ========== + +message EvalError { + string msg = 1; +} + +message EvalTrace { + string msg = 1; +} + +message TxEval { + BigInt fee = 1; + ExUnits ex_units = 2; + repeated EvalError errors = 3; + repeated EvalTrace traces = 4; + repeated Redeemer redeemers = 5; +} + +// GENESIS CONFIGS +// =============== + +message ExtraEntropy { + string tag = 1; +} + +message BlockVersionData { + uint32 script_version = 1; + string slot_duration = 2; + string max_block_size = 3; + string max_header_size = 4; + string max_tx_size = 5; + string max_proposal_size = 6; + string mpc_thd = 7; + string heavy_del_thd = 8; + string update_vote_thd = 9; + string update_proposal_thd = 10; + string update_implicit = 11; + SoftforkRule softfork_rule = 12; + TxFeePolicy tx_fee_policy = 13; + string unlock_stake_epoch = 14; +} + +message SoftforkRule { + string init_thd = 1; + string min_thd = 2; + string thd_decrement = 3; +} + +message TxFeePolicy { + string multiplier = 1; + string summand = 2; +} + +message ProtocolConsts { + uint32 k = 1; + uint32 protocol_magic = 2; + uint32 vss_max_ttl = 3; + uint32 vss_min_ttl = 4; +} + +message HeavyDelegation { + string cert = 1; + string delegate_pk = 2; + string issuer_pk = 3; + uint32 omega = 4; +} + +message VssCert { + uint32 expiry_epoch = 1; + string signature = 2; + string signing_key = 3; + string vss_key = 4; +} + +message GenDelegs { + string delegate = 1; + string vrf = 2; +} + +message PoolVotingThresholds { + RationalNumber motion_no_confidence = 1; + RationalNumber committee_normal = 2; + RationalNumber committee_no_confidence = 3; + RationalNumber hard_fork_initiation = 4; + RationalNumber pp_security_group = 5; +} + +message DRepVotingThresholds { + RationalNumber motion_no_confidence = 1; + RationalNumber committee_normal = 2; + RationalNumber committee_no_confidence = 3; + RationalNumber update_to_constitution = 4; + RationalNumber hard_fork_initiation = 5; + RationalNumber pp_network_group = 6; + RationalNumber pp_economic_group = 7; + RationalNumber pp_technical_group = 8; + RationalNumber pp_gov_group = 9; + RationalNumber treasury_withdrawal = 10; +} + +message Committee { + map members = 1; + RationalNumber threshold = 2; +} + +message CostModelMap { + CostModel plutus_v1 = 1; + CostModel plutus_v2 = 2; + CostModel plutus_v3 = 3; + CostModel plutus_v4 = 4; +} + +// Unified Genesis configuration containing all parameters from all eras +message Genesis { + // ============ Byron Era Fields ============ + map avvm_distr = 1; + BlockVersionData block_version_data = 2; + string fts_seed = 3; + ProtocolConsts protocol_consts = 4; + uint64 start_time = 5; + map boot_stakeholders = 6; + map heavy_delegation = 7; + map non_avvm_balances = 8; + map vss_certs = 9; + + // ============ Shelley Era Fields ============ + RationalNumber active_slots_coeff = 10; + uint32 epoch_length = 11; + map gen_delegs = 12; + map initial_funds = 13; + uint32 max_kes_evolutions = 14; + BigInt max_lovelace_supply = 15; + string network_id = 16; + uint32 network_magic = 17; + PParams protocol_params = 18; // Using PParams as it's a superset of all protocol parameters + uint32 security_param = 19; + uint32 slot_length = 20; + uint32 slots_per_kes_period = 21; + string system_start = 22; + uint32 update_quorum = 23; + + // ============ Alonzo Era Fields ============ + BigInt lovelace_per_utxo_word = 24; + ExPrices execution_prices = 25; + ExUnits max_tx_ex_units = 26; + ExUnits max_block_ex_units = 27; + uint32 max_value_size = 28; + uint32 collateral_percentage = 29; + uint32 max_collateral_inputs = 30; + CostModelMap cost_models = 31; + + // ============ Conway Era Fields ============ + Committee committee = 32; + Constitution constitution = 33; + uint64 committee_min_size = 34; + uint64 committee_max_term_length = 35; + uint64 gov_action_lifetime = 36; + BigInt gov_action_deposit = 37; + BigInt drep_deposit = 38; + uint64 drep_activity = 39; + RationalNumber min_fee_ref_script_cost_per_byte = 40; + DRepVotingThresholds drep_voting_thresholds = 41; + PoolVotingThresholds pool_voting_thresholds = 42; +} diff --git a/cardano-rpc/proto/utxorpc/v1beta/query/query.proto b/cardano-rpc/proto/utxorpc/v1beta/query/query.proto index 7ecaa10c78..8e83fa0d48 100644 --- a/cardano-rpc/proto/utxorpc/v1beta/query/query.proto +++ b/cardano-rpc/proto/utxorpc/v1beta/query/query.proto @@ -2,10 +2,10 @@ syntax = "proto3"; -package utxorpc.v1alpha.query; +package utxorpc.v1beta.query; import "google/protobuf/field_mask.proto"; -import "utxorpc/v1alpha/cardano/cardano.proto"; +import "utxorpc/v1beta/cardano/cardano.proto"; // Represents a specific point in the blockchain. message ChainPoint { @@ -15,26 +15,54 @@ message ChainPoint { uint64 timestamp = 4; // Block ms timestamp } +message AnyChainBlock { + bytes native_bytes = 1; // Original bytes as defined by the chain + oneof chain { + utxorpc.v1beta.cardano.Block cardano = 2; // A parsed Cardano block. + } +} + // Represents a reference to a transaction output message TxoRef { bytes hash = 1; // Tx hash. uint32 index = 2; // Output index. } -message TxoRefArray { - // TODO u5c: changed to repeated - https://github.com/utxorpc/spec/pull/167 - repeated TxoRef items = 1; -} - // Request to get the chain parameters message ReadParamsRequest { google.protobuf.FieldMask field_mask = 1; // Field mask to selectively return fields in the parsed response. } +// Request to get the chain config +message ReadGenesisRequest { + google.protobuf.FieldMask field_mask = 1; // Field mask to selectively return fields in the parsed response. +} + +// Request to get the era summary +message ReadEraSummaryRequest { + google.protobuf.FieldMask field_mask = 1; // Field mask to selectively return fields in the parsed response. +} + +// Response containing the genesis configs +message ReadGenesisResponse { + bytes genesis = 1; // genesis hash for the chain + string caip2 = 2; // the caip-2 ID for this network + oneof config { + utxorpc.v1beta.cardano.Genesis cardano = 3; // Cardano genesis + } +} + +// Response containing the era summaries +message ReadEraSummaryResponse { + oneof summary { + utxorpc.v1beta.cardano.EraSummaries cardano = 1; // Cardano era summaries + } +} + // An evenlope that holds parameter data from any of the compatible chains message AnyChainParams { oneof params { - utxorpc.v1alpha.cardano.PParams cardano = 1; // Cardano parameters + utxorpc.v1beta.cardano.PParams cardano = 1; // Cardano parameters } } @@ -44,23 +72,35 @@ message ReadParamsResponse { ChainPoint ledger_tip = 2; // The chain point that represent the ledger current position. } +// An evenlope that holds an UTxO patterns from any of compatible chains +message AnyUtxoPattern { + oneof utxo_pattern { + utxorpc.v1beta.cardano.TxOutputPattern cardano = 1; + } +} + +// Represents a simple utxo predicate that can composed to create more complex ones +message UtxoPredicate { + AnyUtxoPattern match = 1; // Predicate is true if tx exhibits pattern. + repeated UtxoPredicate not = 2; // Predicate is true if tx doesn't exhibit pattern. + repeated UtxoPredicate all_of = 3; // Predicate is true if utxo exhibits all of the patterns. + repeated UtxoPredicate any_of = 4; // Predicate is true if utxo exhibits any of the patterns. +} + // An evenlope that holds an UTxO from any of compatible chains message AnyUtxoData { bytes native_bytes = 1; // Original bytes as defined by the chain TxoRef txo_ref = 2; // Hash of the previous transaction. oneof parsed_state { - utxorpc.v1alpha.cardano.TxOutput cardano = 3; // A cardano UTxO + utxorpc.v1beta.cardano.TxOutput cardano = 3; // A cardano UTxO } + ChainPoint block_ref = 4; // The chain point that represents the block this UTxO was created in. } // Request to get specific UTxOs message ReadUtxosRequest { - // TODO u5c: new oneof - https://github.com/utxorpc/spec/pull/167 - oneof query_args { - TxoRefArray txoRefs = 1; // Array of Tx Output references - utxorpc.v1alpha.cardano.AddressArray cardano_addresses = 2; // Array of addresses - } - google.protobuf.FieldMask field_mask = 3; // Field mask to selectively return fields. + repeated TxoRef keys = 1; // List of keys UTxOs. + google.protobuf.FieldMask field_mask = 2; // Field mask to selectively return fields. } // Response containing the UTxOs associated with the requested addresses. @@ -69,8 +109,74 @@ message ReadUtxosResponse { ChainPoint ledger_tip = 2; // The chain point that represent the ledger current position. } +// Request to search for UTxO based on a pattern. +message SearchUtxosRequest { + UtxoPredicate predicate = 1; // Pattern to match UTxOs by. + google.protobuf.FieldMask field_mask = 2; // Field mask to selectively return fields. + int32 max_items = 3; // The maximum number of items to return. + string start_token = 4; // The next_page_token value returned from a previous request, if any. +} + +// Response containing the UTxOs that match the requested addresses. +message SearchUtxosResponse { + repeated AnyUtxoData items = 1; // List of UTxOs. + ChainPoint ledger_tip = 2; // The chain point that represent the ledger current position. + string next_token = 3; // Token to retrieve the next page of results, or empty if there are no more results. +} + +// Request to get data (as in plural of datum) +message ReadDataRequest { + repeated bytes keys = 1; + google.protobuf.FieldMask field_mask = 2; // Field mask to selectively return fields in the response. +} + +// An evenlope that holds a datum for any of the compatible chains +message AnyChainDatum { + bytes native_bytes = 1; // Original bytes as defined by the chain + bytes key = 2; + oneof parsed_state { + utxorpc.v1beta.cardano.PlutusData cardano = 3; // A cardano UTxO + } +} + +// Response containing data (as in plural of datum) +message ReadDataResponse { + repeated AnyChainDatum values = 1; // The value of each datum. + ChainPoint ledger_tip = 2; // The chain point that represent the ledger current position. +} + +// Request to get a transaction by hash +message ReadTxRequest { + bytes hash = 1; // The hash of the transaction. + google.protobuf.FieldMask field_mask = 2; // Field mask to selectively return fields in the response. +} + +// Represents a transaction from any supported blockchain. +message AnyChainTx { + bytes native_bytes = 1; // Original bytes as defined by the chain + oneof chain { + utxorpc.v1beta.cardano.Tx cardano = 2; // A Cardano transaction. + } + ChainPoint block_ref = 3; // The chain point that represents the block this transaction belongs to. +} + +// Response containing the transaction associated with the requested hash. +message ReadTxResponse { + AnyChainTx tx = 1; // The transaction. + ChainPoint ledger_tip = 2; // The chain point that represent the ledger current position. +} + // Service definition for querying the state of the chain. service QueryService { rpc ReadParams(ReadParamsRequest) returns (ReadParamsResponse); // Get overall chain state. rpc ReadUtxos(ReadUtxosRequest) returns (ReadUtxosResponse); // Read specific UTxOs by reference. + rpc SearchUtxos(SearchUtxosRequest) returns (SearchUtxosResponse); // Search for UTxO based on a pattern. + rpc ReadData(ReadDataRequest) returns (ReadDataResponse); // Read specific datum by hash + rpc ReadTx(ReadTxRequest) returns (ReadTxResponse); // Get Txs by chain-specific criteria. + rpc ReadGenesis(ReadGenesisRequest) returns (ReadGenesisResponse); // Get the genesis configuration + rpc ReadEraSummary(ReadEraSummaryRequest) returns (ReadEraSummaryResponse); // Get the chain era summary + + // TODO: decide if we want to expand the scope + // rpc DumpUtxos(ReadUtxosRequest) returns (stream ReadUtxosResponse); // Dump all available utxos + // rpc ReadAccount(ReadAccountRequest) returns (ReadAccountReponse); // Get state of a particular account } diff --git a/cardano-rpc/proto/utxorpc/v1beta/submit/submit.proto b/cardano-rpc/proto/utxorpc/v1beta/submit/submit.proto index 2730908c55..be70dd48a1 100644 --- a/cardano-rpc/proto/utxorpc/v1beta/submit/submit.proto +++ b/cardano-rpc/proto/utxorpc/v1beta/submit/submit.proto @@ -1,6 +1,9 @@ syntax = "proto3"; -package utxorpc.v1alpha.submit; +package utxorpc.v1beta.submit; + +import "google/protobuf/field_mask.proto"; +import "utxorpc/v1beta/cardano/cardano.proto"; // Represents a transaction from any supported blockchain. message AnyChainTx { @@ -9,26 +12,101 @@ message AnyChainTx { } } -// Request to submit transactions to the blockchain. -message SubmitTxRequest { - repeated AnyChainTx tx = 1; // List of transactions to submit. +// Request to evaluate transaction without submitting. +message EvalTxRequest { + AnyChainTx tx = 1; // A transaction to evaluate. } -// TODO u5c: new type - https://github.com/utxorpc/spec/pull/163 -message TxSubmitResult { - oneof result { - bytes ref = 1; // Transaction references. - string error_message = 2; // The error message +// Report containing the result of evaluating a particular transaction +message AnyChainEval { + oneof chain { + utxorpc.v1beta.cardano.TxEval cardano = 1; // A Cardano tx evaluation report. } } +// Response containing the reports form the transaction evaluation. +message EvalTxResponse { + AnyChainEval report = 1; +} + +// Request to submit a transaction to the blockchain. +message SubmitTxRequest { + AnyChainTx tx = 1; // A transaction to submit. +} + // Response containing references to the submitted transactions. -// TODO u5c: changed type - https://github.com/utxorpc/spec/pull/163 message SubmitTxResponse { - repeated TxSubmitResult results = 1; // List of either transaction references or error messages. + bytes ref = 1; // A transaction reference returned upon successful submission. +} + +// Enum representing the various stages of a transaction's lifecycle. +enum Stage { + STAGE_UNSPECIFIED = 0; // Unspecified stage. + STAGE_ACKNOWLEDGED = 1; // Transaction has been acknowledged by the node. + STAGE_MEMPOOL = 2; // Transaction is in the mempool. + STAGE_NETWORK = 3; // Transaction has been propagated across the network. + STAGE_CONFIRMED = 4; // Transaction has been confirmed on the blockchain. +} + +message TxInMempool { + bytes ref = 1; // The transaction reference. + bytes native_bytes = 2; // Original bytes as defined by the chain + Stage stage = 3; // The current stage of the tx + oneof parsed_state { + utxorpc.v1beta.cardano.Tx cardano = 4; // A Cardano transaction. + } +} + +// Request to check the status of submitted transactions. +message ReadMempoolRequest {} + +// Response containing the stage of the submitted transactions. +message ReadMempoolResponse { + repeated TxInMempool items = 1; // List of transaction currently on the mempool. +} + +// Request to wait for transactions to reach a certain stage. +message WaitForTxRequest { + repeated bytes ref = 1; // List of transaction references to wait for. +} + +// Response containing the transaction reference and stage once it has been reached. +message WaitForTxResponse { + bytes ref = 1; // Transaction reference. + Stage stage = 2; // Stage reached by the transaction. +} + +// Represents a tx pattern from any supported blockchain. +message AnyChainTxPattern { + oneof chain { + utxorpc.v1beta.cardano.TxPattern cardano = 1; // A Cardano tx pattern. + } +} + +// Represents a simple tx predicate that can composed to create more complex ones +message TxPredicate { + AnyChainTxPattern match = 1; // Predicate is true if tx exhibits pattern. + repeated TxPredicate not = 2; // Predicate is true if tx doesn't exhibit pattern. + repeated TxPredicate all_of = 3; // Predicate is true if tx exhibits all of the patterns. + repeated TxPredicate any_of = 4; // Predicate is true if tx exhibits any of the patterns. +} + +// Request to watch changes of specific mempool txs. +message WatchMempoolRequest { + TxPredicate predicate = 1; // A predicate to filter transactions by. + google.protobuf.FieldMask field_mask = 2; // Field mask to selectively return fields. +} + +// Response that represents a change in a mempool tx. +message WatchMempoolResponse { + TxInMempool tx = 1; // The content and stage of the tx that has changed } // Service definition for submitting transactions and checking their status. service SubmitService { + rpc EvalTx(EvalTxRequest) returns (EvalTxResponse); // Evaluates a transaction without submitting it. rpc SubmitTx(SubmitTxRequest) returns (SubmitTxResponse); // Submit transactions to the blockchain. + rpc WaitForTx(WaitForTxRequest) returns (stream WaitForTxResponse); // Wait for transactions to reach a certain stage and stream the updates. + rpc ReadMempool(ReadMempoolRequest) returns (ReadMempoolResponse); // Returns a point-in-time snapshot of the mempool. + rpc WatchMempool(WatchMempoolRequest) returns (stream WatchMempoolResponse); // Stream transactions from the mempool matching the specified predicates. } diff --git a/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Query.hs b/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Query.hs index 3a53b2adb8..02b7433fce 100644 --- a/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Query.hs +++ b/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Query.hs @@ -2,26 +2,32 @@ {-# OPTIONS_GHC -Wno-orphans #-} module Cardano.Rpc.Proto.Api.UtxoRpc.Query - ( module Proto.Utxorpc.V1alpha.Query.Query - , module Proto.Utxorpc.V1alpha.Query.Query_Fields - , module Proto.Utxorpc.V1alpha.Cardano.Cardano - , module Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields + ( module Proto.Utxorpc.V1beta.Query.Query + , module Proto.Utxorpc.V1beta.Query.Query_Fields + , module Proto.Utxorpc.V1beta.Cardano.Cardano + , module Proto.Utxorpc.V1beta.Cardano.Cardano_Fields ) where import Network.GRPC.Common import Network.GRPC.Common.Protobuf -import Proto.Utxorpc.V1alpha.Cardano.Cardano -import Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields hiding +import Proto.Utxorpc.V1beta.Cardano.Cardano +import Proto.Utxorpc.V1beta.Cardano.Cardano_Fields hiding ( hash + , height + , index , items + , key + , slot + , timestamp + , tx , values , vec'items , vec'values ) -import Proto.Utxorpc.V1alpha.Query.Query -import Proto.Utxorpc.V1alpha.Query.Query_Fields +import Proto.Utxorpc.V1beta.Query.Query +import Proto.Utxorpc.V1beta.Query.Query_Fields type instance RequestMetadata (Protobuf QueryService meth) = NoMetadata diff --git a/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Submit.hs b/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Submit.hs index 5cc0f15cdb..6179d960c1 100644 --- a/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Submit.hs +++ b/cardano-rpc/src/Cardano/Rpc/Proto/Api/UtxoRpc/Submit.hs @@ -2,16 +2,16 @@ {-# OPTIONS_GHC -Wno-orphans #-} module Cardano.Rpc.Proto.Api.UtxoRpc.Submit - ( module Proto.Utxorpc.V1alpha.Submit.Submit - , module Proto.Utxorpc.V1alpha.Submit.Submit_Fields + ( module Proto.Utxorpc.V1beta.Submit.Submit + , module Proto.Utxorpc.V1beta.Submit.Submit_Fields ) where import Network.GRPC.Common import Network.GRPC.Common.Protobuf -import Proto.Utxorpc.V1alpha.Submit.Submit -import Proto.Utxorpc.V1alpha.Submit.Submit_Fields +import Proto.Utxorpc.V1beta.Submit.Submit +import Proto.Utxorpc.V1beta.Submit.Submit_Fields type instance RequestMetadata (Protobuf SubmitService meth) = NoMetadata From 9af190c3ae68177af32e959230c8e0048b30ea0b Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Thu, 29 Jan 2026 17:23:22 +0100 Subject: [PATCH 3/4] Remove not-implemented services from proto definitions --- .../gen/Proto/Utxorpc/V1beta/Query/Query.hs | 102 ++---------------- .../gen/Proto/Utxorpc/V1beta/Submit/Submit.hs | 98 +++-------------- .../proto/utxorpc/v1beta/query/query.proto | 5 - .../proto/utxorpc/v1beta/submit/submit.proto | 4 - 4 files changed, 21 insertions(+), 188 deletions(-) diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs index 07f043025a..80a1a10ec4 100644 --- a/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs +++ b/cardano-rpc/gen/Proto/Utxorpc/V1beta/Query/Query.hs @@ -4592,24 +4592,13 @@ data QueryService = QueryService {} instance Data.ProtoLens.Service.Types.Service QueryService where type ServiceName QueryService = "QueryService" type ServicePackage QueryService = "utxorpc.v1beta.query" - type ServiceMethods QueryService = '["readData", - "readEraSummary", - "readGenesis", - "readParams", - "readTx", - "readUtxos", - "searchUtxos"] + type ServiceMethods QueryService = '["readParams", "readUtxos"] packedServiceDescriptor _ = "\n\ \\fQueryService\DC2_\n\ \\n\ \ReadParams\DC2'.utxorpc.v1beta.query.ReadParamsRequest\SUB(.utxorpc.v1beta.query.ReadParamsResponse\DC2\\\n\ - \\tReadUtxos\DC2&.utxorpc.v1beta.query.ReadUtxosRequest\SUB'.utxorpc.v1beta.query.ReadUtxosResponse\DC2b\n\ - \\vSearchUtxos\DC2(.utxorpc.v1beta.query.SearchUtxosRequest\SUB).utxorpc.v1beta.query.SearchUtxosResponse\DC2Y\n\ - \\bReadData\DC2%.utxorpc.v1beta.query.ReadDataRequest\SUB&.utxorpc.v1beta.query.ReadDataResponse\DC2S\n\ - \\ACKReadTx\DC2#.utxorpc.v1beta.query.ReadTxRequest\SUB$.utxorpc.v1beta.query.ReadTxResponse\DC2b\n\ - \\vReadGenesis\DC2(.utxorpc.v1beta.query.ReadGenesisRequest\SUB).utxorpc.v1beta.query.ReadGenesisResponse\DC2k\n\ - \\SOReadEraSummary\DC2+.utxorpc.v1beta.query.ReadEraSummaryRequest\SUB,.utxorpc.v1beta.query.ReadEraSummaryResponse" + \\tReadUtxos\DC2&.utxorpc.v1beta.query.ReadUtxosRequest\SUB'.utxorpc.v1beta.query.ReadUtxosResponse" instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readParams" where type MethodName QueryService "readParams" = "ReadParams" type MethodInput QueryService "readParams" = ReadParamsRequest @@ -4620,31 +4609,6 @@ instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readUtxos" whe type MethodInput QueryService "readUtxos" = ReadUtxosRequest type MethodOutput QueryService "readUtxos" = ReadUtxosResponse type MethodStreamingType QueryService "readUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming -instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "searchUtxos" where - type MethodName QueryService "searchUtxos" = "SearchUtxos" - type MethodInput QueryService "searchUtxos" = SearchUtxosRequest - type MethodOutput QueryService "searchUtxos" = SearchUtxosResponse - type MethodStreamingType QueryService "searchUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming -instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readData" where - type MethodName QueryService "readData" = "ReadData" - type MethodInput QueryService "readData" = ReadDataRequest - type MethodOutput QueryService "readData" = ReadDataResponse - type MethodStreamingType QueryService "readData" = 'Data.ProtoLens.Service.Types.NonStreaming -instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readTx" where - type MethodName QueryService "readTx" = "ReadTx" - type MethodInput QueryService "readTx" = ReadTxRequest - type MethodOutput QueryService "readTx" = ReadTxResponse - type MethodStreamingType QueryService "readTx" = 'Data.ProtoLens.Service.Types.NonStreaming -instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readGenesis" where - type MethodName QueryService "readGenesis" = "ReadGenesis" - type MethodInput QueryService "readGenesis" = ReadGenesisRequest - type MethodOutput QueryService "readGenesis" = ReadGenesisResponse - type MethodStreamingType QueryService "readGenesis" = 'Data.ProtoLens.Service.Types.NonStreaming -instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readEraSummary" where - type MethodName QueryService "readEraSummary" = "ReadEraSummary" - type MethodInput QueryService "readEraSummary" = ReadEraSummaryRequest - type MethodOutput QueryService "readEraSummary" = ReadEraSummaryResponse - type MethodStreamingType QueryService "readEraSummary" = 'Data.ProtoLens.Service.Types.NonStreaming packedFileDescriptor :: Data.ByteString.ByteString packedFileDescriptor = "\n\ @@ -4747,19 +4711,14 @@ packedFileDescriptor \\SOReadTxResponse\DC20\n\ \\STXtx\CAN\SOH \SOH(\v2 .utxorpc.v1beta.query.AnyChainTxR\STXtx\DC2?\n\ \\n\ - \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip2\178\ENQ\n\ + \ledger_tip\CAN\STX \SOH(\v2 .utxorpc.v1beta.query.ChainPointR\tledgerTip2\205\SOH\n\ \\fQueryService\DC2_\n\ \\n\ \ReadParams\DC2'.utxorpc.v1beta.query.ReadParamsRequest\SUB(.utxorpc.v1beta.query.ReadParamsResponse\DC2\\\n\ - \\tReadUtxos\DC2&.utxorpc.v1beta.query.ReadUtxosRequest\SUB'.utxorpc.v1beta.query.ReadUtxosResponse\DC2b\n\ - \\vSearchUtxos\DC2(.utxorpc.v1beta.query.SearchUtxosRequest\SUB).utxorpc.v1beta.query.SearchUtxosResponse\DC2Y\n\ - \\bReadData\DC2%.utxorpc.v1beta.query.ReadDataRequest\SUB&.utxorpc.v1beta.query.ReadDataResponse\DC2S\n\ - \\ACKReadTx\DC2#.utxorpc.v1beta.query.ReadTxRequest\SUB$.utxorpc.v1beta.query.ReadTxResponse\DC2b\n\ - \\vReadGenesis\DC2(.utxorpc.v1beta.query.ReadGenesisRequest\SUB).utxorpc.v1beta.query.ReadGenesisResponse\DC2k\n\ - \\SOReadEraSummary\DC2+.utxorpc.v1beta.query.ReadEraSummaryRequest\SUB,.utxorpc.v1beta.query.ReadEraSummaryResponseB\152\SOH\n\ + \\tReadUtxos\DC2&.utxorpc.v1beta.query.ReadUtxosRequest\SUB'.utxorpc.v1beta.query.ReadUtxosResponseB\152\SOH\n\ \\CANcom.utxorpc.v1beta.queryB\n\ - \QueryProtoP\SOH\162\STX\ETXUVQ\170\STX\DC4Utxorpc.V1beta.Query\202\STX\DC4Utxorpc\\V1beta\\Query\226\STX Utxorpc\\V1beta\\Query\\GPBMetadata\234\STX\SYNUtxorpc::V1beta::QueryJ\188=\n\ - \\a\DC2\ENQ\STX\NUL\181\SOH\SOH\n\ + \QueryProtoP\SOH\162\STX\ETXUVQ\170\STX\DC4Utxorpc.V1beta.Query\202\STX\DC4Utxorpc\\V1beta\\Query\226\STX Utxorpc\\V1beta\\Query\\GPBMetadata\234\STX\SYNUtxorpc::V1beta::QueryJ\234\&9\n\ + \\a\DC2\ENQ\STX\NUL\176\SOH\SOH\n\ \9\n\ \\SOH\f\DC2\ETX\STX\NUL\DC22// A consistent view of the state of the ledger\n\ \\n\ @@ -5435,7 +5394,7 @@ packedFileDescriptor \\r\n\ \\ENQ\EOT\SYN\STX\SOH\ETX\DC2\EOT\165\SOH\SUB\ESC\n\ \G\n\ - \\STX\ACK\NUL\DC2\ACK\169\SOH\NUL\181\SOH\SOH\SUB9 Service definition for querying the state of the chain.\n\ + \\STX\ACK\NUL\DC2\ACK\169\SOH\NUL\176\SOH\SOH\SUB9 Service definition for querying the state of the chain.\n\ \\n\ \\v\n\ \\ETX\ACK\NUL\SOH\DC2\EOT\169\SOH\b\DC4\n\ @@ -5456,49 +5415,4 @@ packedFileDescriptor \\r\n\ \\ENQ\ACK\NUL\STX\SOH\STX\DC2\EOT\171\SOH\DLE \n\ \\r\n\ - \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\EOT\171\SOH+<\n\ - \3\n\ - \\EOT\ACK\NUL\STX\STX\DC2\EOT\172\SOH\STXD\"% Search for UTxO based on a pattern.\n\ - \\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\STX\SOH\DC2\EOT\172\SOH\ACK\DC1\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\STX\STX\DC2\EOT\172\SOH\DC2$\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\STX\ETX\DC2\EOT\172\SOH/B\n\ - \+\n\ - \\EOT\ACK\NUL\STX\ETX\DC2\EOT\173\SOH\STX;\"\GS Read specific datum by hash\n\ - \\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\EOT\173\SOH\ACK\SO\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ETX\STX\DC2\EOT\173\SOH\SI\RS\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\EOT\173\SOH)9\n\ - \3\n\ - \\EOT\ACK\NUL\STX\EOT\DC2\EOT\174\SOH\STX5\"% Get Txs by chain-specific criteria.\n\ - \\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\EOT\174\SOH\ACK\f\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\EOT\STX\DC2\EOT\174\SOH\r\SUB\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\EOT\174\SOH%3\n\ - \-\n\ - \\EOT\ACK\NUL\STX\ENQ\DC2\EOT\175\SOH\STXD\"\US Get the genesis configuration\n\ - \\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ENQ\SOH\DC2\EOT\175\SOH\ACK\DC1\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ENQ\STX\DC2\EOT\175\SOH\DC2$\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ENQ\ETX\DC2\EOT\175\SOH/B\n\ - \)\n\ - \\EOT\ACK\NUL\STX\ACK\DC2\EOT\176\SOH\STXM\"\ESC Get the chain era summary\n\ - \\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ACK\SOH\DC2\EOT\176\SOH\ACK\DC4\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ACK\STX\DC2\EOT\176\SOH\NAK*\n\ - \\r\n\ - \\ENQ\ACK\NUL\STX\ACK\ETX\DC2\EOT\176\SOH5Kb\ACKproto3" \ No newline at end of file + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\EOT\171\SOH+ Date: Thu, 29 Jan 2026 17:23:32 +0100 Subject: [PATCH 4/4] Update cardano-rpc to UTXORPC v1beta --- .../src/Cardano/Api/Internal/Orphans/Misc.hs | 3 + cardano-rpc/cardano-rpc.cabal | 2 + .../Cardano/Rpc/Server/Internal/Orphans.hs | 18 ++++ .../Cardano/Rpc/Server/Internal/Tracing.hs | 21 +++-- .../Rpc/Server/Internal/UtxoRpc/Query.hs | 22 ++--- .../Rpc/Server/Internal/UtxoRpc/Submit.hs | 47 ++++------ .../Rpc/Server/Internal/UtxoRpc/Type.hs | 92 ++++++++++++------- .../Test/Cardano/Rpc/ProtocolParameters.hs | 41 ++++----- .../cardano-rpc-test/Test/Cardano/Rpc/Type.hs | 41 +++++++++ 9 files changed, 179 insertions(+), 108 deletions(-) create mode 100644 cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/Type.hs diff --git a/cardano-api/src/Cardano/Api/Internal/Orphans/Misc.hs b/cardano-api/src/Cardano/Api/Internal/Orphans/Misc.hs index 1ef74386cb..9a666da280 100644 --- a/cardano-api/src/Cardano/Api/Internal/Orphans/Misc.hs +++ b/cardano-api/src/Cardano/Api/Internal/Orphans/Misc.hs @@ -33,6 +33,7 @@ import Ouroboros.Consensus.Cardano.Block (EraMismatch (..)) import PlutusLedgerApi.Common qualified as P import Codec.Binary.Bech32 qualified as Bech32 +import Data.Bits (Bits) import Data.Data (Data) import Data.ListMap (ListMap) import Data.ListMap qualified as ListMap @@ -64,6 +65,8 @@ deriving newtype instance Integral L.Coin deriving newtype instance Num L.Coin +deriving newtype instance Bits L.Coin + -- We wrap the individual records with Last and use Last's Semigroup instance. -- In this instance we take the last 'Just' value or the only 'Just' value instance Semigroup (Ledger.ShelleyPParams StrictMaybe era) where diff --git a/cardano-rpc/cardano-rpc.cabal b/cardano-rpc/cardano-rpc.cabal index e6165fbb22..93780b22a9 100644 --- a/cardano-rpc/cardano-rpc.cabal +++ b/cardano-rpc/cardano-rpc.cabal @@ -122,6 +122,7 @@ test-suite cardano-rpc-test cardano-rpc, containers, hedgehog, + hedgehog-extras, rio, tasty, tasty-hedgehog, @@ -135,3 +136,4 @@ test-suite cardano-rpc-test other-modules: Test.Cardano.Rpc.ProtocolParameters Test.Cardano.Rpc.TxOutput + Test.Cardano.Rpc.Type diff --git a/cardano-rpc/src/Cardano/Rpc/Server/Internal/Orphans.hs b/cardano-rpc/src/Cardano/Rpc/Server/Internal/Orphans.hs index 2be607ee81..f7c907ac8b 100644 --- a/cardano-rpc/src/Cardano/Rpc/Server/Internal/Orphans.hs +++ b/cardano-rpc/src/Cardano/Rpc/Server/Internal/Orphans.hs @@ -4,6 +4,7 @@ {-# LANGUAGE OverloadedLabels #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TypeApplications #-} {-# OPTIONS_GHC -Wno-orphans #-} module Cardano.Rpc.Server.Internal.Orphans where @@ -63,6 +64,23 @@ instance Inject TxIn (Proto UtxoRpc.TxoRef) where instance Message a => Default (Proto a) where def = defMessage +instance Inject Integer (Proto UtxoRpc.BigInt) where + inject int + | int <= fromIntegral (maxBound @Int64) + && int >= fromIntegral (minBound @Int64) = + inject @Int64 $ fromIntegral int + | int < 0 = + -- https://www.rfc-editor.org/rfc/rfc8949.html#name-bignums see 3.4.3 for negative integers + defMessage & #bigNInt .~ serialiseToRawBytes (fromIntegral @_ @Natural (-1 - int)) + | otherwise = + defMessage & #bigUInt .~ serialiseToRawBytes (fromIntegral @_ @Natural int) + +instance Inject Int64 (Proto UtxoRpc.BigInt) where + inject int = defMessage & #int .~ int + +instance Inject L.Coin (Proto UtxoRpc.BigInt) where + inject = inject . fromIntegral @_ @Integer + ----------- -- Errors ----------- diff --git a/cardano-rpc/src/Cardano/Rpc/Server/Internal/Tracing.hs b/cardano-rpc/src/Cardano/Rpc/Server/Internal/Tracing.hs index 6bc9256883..1e421c1276 100644 --- a/cardano-rpc/src/Cardano/Rpc/Server/Internal/Tracing.hs +++ b/cardano-rpc/src/Cardano/Rpc/Server/Internal/Tracing.hs @@ -6,6 +6,7 @@ module Cardano.Rpc.Server.Internal.Tracing where import Cardano.Api.Consensus (TxValidationErrorInCardanoMode) import Cardano.Api.Era (Inject (..)) +import Cardano.Api.Error import Cardano.Api.Pretty import Cardano.Api.Serialise.Cbor (DecoderError) import Cardano.Api.Serialise.SerialiseUsing @@ -53,20 +54,17 @@ instance Pretty TraceRpcQuery where TraceRpcQueryReadUtxosSpan (SpanBegin _) -> "Started query read UTXO method" TraceRpcQueryReadUtxosSpan (SpanEnd _) -> "Finished query read UTXO method" +instance Error TraceRpcQuery where + prettyError = pretty + -- | Traces used in SubmitTx service data TraceRpcSubmit = -- | Node-to-client exception TraceRpcSubmitN2cConnectionError SomeException | -- | Transaction deserialisation error - TraceRpcSubmitTxDecodingFailure - Int - -- ^ index of a transaction in a request - DecoderError + TraceRpcSubmitTxDecodingError DecoderError | -- | Transaction submission error - TraceRpcSubmitTxValidationError - Int - -- ^ index of a transaction in a request - TxValidationErrorInCardanoMode + TraceRpcSubmitTxValidationError TxValidationErrorInCardanoMode | -- | Transaction submission span TraceRpcSubmitSpan TraceSpanEvent deriving Show @@ -76,8 +74,11 @@ instance Pretty TraceRpcSubmit where TraceRpcSubmitSpan (SpanBegin _) -> "Started submit method" TraceRpcSubmitSpan (SpanEnd _) -> "Finished submit method" TraceRpcSubmitN2cConnectionError e -> "N2C connection error while trying to submit a transaction: " <> prettyException e - TraceRpcSubmitTxDecodingFailure i e -> "Failed to decode transaction with index " <> pretty i <> ": " <> pshow e - TraceRpcSubmitTxValidationError i e -> "Failed to submit transaction with index " <> pretty i <> ": " <> pshow e + TraceRpcSubmitTxDecodingError e -> "Failed to decode transaction: " <> pshow e + TraceRpcSubmitTxValidationError e -> "Failed to submit transaction: " <> pshow e + +instance Error TraceRpcSubmit where + prettyError = pretty instance Inject TraceRpcSubmit TraceRpc where inject = TraceRpcSubmit diff --git a/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Query.hs b/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Query.hs index d7b39418c4..b160e67bbb 100644 --- a/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Query.hs +++ b/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Query.hs @@ -3,7 +3,6 @@ {-# LANGUAGE DerivingVia #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE GADTs #-} -{-# LANGUAGE MultiWayIf #-} {-# LANGUAGE OverloadedLabels #-} {-# LANGUAGE QuantifiedConstraints #-} {-# LANGUAGE RankNTypes #-} @@ -18,7 +17,6 @@ where import Cardano.Api import Cardano.Api.Experimental.Era -import Cardano.Api.Parser.Text qualified as P import Cardano.Rpc.Proto.Api.UtxoRpc.Query qualified as UtxoRpc import Cardano.Rpc.Server.Internal.Error import Cardano.Rpc.Server.Internal.Monad @@ -29,7 +27,6 @@ import RIO hiding (toList) import Data.Default import Data.ProtoLens (defMessage) -import Data.Text.Encoding qualified as T import GHC.IsList import Network.GRPC.Spec @@ -64,12 +61,12 @@ readUtxosMethod -> m (Proto UtxoRpc.ReadUtxosResponse) readUtxosMethod req = do utxoFilter <- - if - | Just txoRefs <- req ^. #maybe'txoRefs -> - QueryUTxOByTxIn . fromList <$> mapM txoRefToTxIn (txoRefs ^. #items) - | Just addressesProto <- req ^. #maybe'cardanoAddresses -> - QueryUTxOByAddress . fromList <$> mapM readAddress (addressesProto ^. #items) - | otherwise -> pure QueryUTxOWhole + if not (null $ req ^. #keys) + then QueryUTxOByTxIn . fromList <$> mapM txoRefToTxIn (req ^. #keys) + -- TODO: reimplement this part as SearchUtxosRequest + -- \| Just addressesProto <- req ^. #maybe'cardanoAddresses -> + -- QueryUTxOByAddress . fromList <$> mapM readAddress (addressesProto ^. #items) + else pure QueryUTxOWhole nodeConnInfo <- grab AnyCardanoEra era <- liftIO . throwExceptT $ determineEra nodeConnInfo @@ -92,6 +89,7 @@ readUtxosMethod req = do txId' <- throwEither $ deserialiseFromRawBytes AsTxId $ r ^. #hash pure $ TxIn txId' (TxIx . fromIntegral $ r ^. #index) - readAddress :: MonadRpc e m => ByteString -> m AddressAny - readAddress = - throwEither . first stringException . P.runParser parseAddressAny <=< throwEither . T.decodeUtf8' +-- TODO: reimplement this part as SearchUtxosRequest +-- readAddress :: MonadRpc e m => ByteString -> m AddressAny +-- readAddress = +-- throwEither . first stringException . P.runParser parseAddressAny <=< throwEither . T.decodeUtf8' diff --git a/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Submit.hs b/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Submit.hs index aed12e80b0..05fd483599 100644 --- a/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Submit.hs +++ b/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Submit.hs @@ -8,7 +8,6 @@ {-# LANGUAGE QuantifiedConstraints #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE TypeApplications #-} module Cardano.Rpc.Server.Internal.UtxoRpc.Submit ( submitTxMethod @@ -26,6 +25,7 @@ import Cardano.Rpc.Server.Internal.Tracing import RIO hiding (toList) import Data.Default +import GHC.Stack import Network.GRPC.Spec -- | Submit a CBOR-serialised list of transactions to the node @@ -33,30 +33,20 @@ submitTxMethod :: MonadRpc e m => Proto UtxoRpc.SubmitTxRequest -> m (Proto UtxoRpc.SubmitTxResponse) --- ^ A list of succeeded transaction ids or errors for failed ones submitTxMethod req = do - -- index transactions in the request - let serialisedTxs = zip @Int [0 ..] $ req ^.. #tx . traverse . #raw - nodeConnInfo <- grab AnyCardanoEra era <- liftIO . throwExceptT $ determineEra nodeConnInfo eon <- forEraInEon era (error "Minimum Shelley era required") pure - -- try to submit each one consecutively - submitResults <- forM serialisedTxs $ \(i, txBytes) -> do - let eTx = - first (TraceRpcSubmitTxDecodingFailure i) $ - deserialiseTx eon txBytes - - eTxId <- fmap join . forM eTx $ submitTx eon i + tx <- + putTraceThrowEither + . first TraceRpcSubmitTxDecodingError + . deserialiseTx eon + $ req ^. #tx . #raw - case eTxId of - Left err -> do - putTrace err - pure $ def & #errorMessage .~ docToText (pretty err) - Right txId' -> pure $ def & #ref .~ serialiseToRawBytes txId' + txId' <- submitTx eon tx - pure $ def & #results .~ submitResults + pure $ def & #ref .~ serialiseToRawBytes txId' where deserialiseTx :: ShelleyBasedEra era -> ByteString -> Either DecoderError (Tx era) deserialiseTx sbe = shelleyBasedEraConstraints sbe $ deserialiseFromCBOR asType @@ -64,15 +54,18 @@ submitTxMethod req = do submitTx :: MonadRpc e m => ShelleyBasedEra era - -> Int -- transaction index in the request -> Tx era - -> m (Either TraceRpcSubmit TxId) - submitTx sbe i tx = do + -> m TxId + submitTx sbe tx = do nodeConnInfo <- grab - eRes <- - tryAny $ - submitTxToNodeLocal nodeConnInfo (TxInMode sbe tx) >>= \case - Net.Tx.SubmitFail reason -> pure . Left $ TraceRpcSubmitTxValidationError i reason - Net.Tx.SubmitSuccess -> pure $ Right . getTxId $ getTxBody tx + putTraceThrowEither . join . first TraceRpcSubmitN2cConnectionError + =<< tryAny + ( submitTxToNodeLocal nodeConnInfo (TxInMode sbe tx) >>= \case + Net.Tx.SubmitFail reason -> pure . Left $ TraceRpcSubmitTxValidationError reason + Net.Tx.SubmitSuccess -> pure . Right $ getTxId $ getTxBody tx + ) - pure . join $ first TraceRpcSubmitN2cConnectionError eRes + putTraceThrowEither v = withFrozenCallStack $ do + -- See Cardano.Node.Tracing.Tracers.Rpc in cardano-node for details how this is logged + either putTrace (const $ pure ()) v + throwEither v diff --git a/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Type.hs b/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Type.hs index ca8797403a..d55b1cabf1 100644 --- a/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Type.hs +++ b/cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Type.hs @@ -18,6 +18,7 @@ module Cardano.Rpc.Server.Internal.UtxoRpc.Type , utxoRpcTxOutputToTxOut , protocolParamsToUtxoRpcPParams , simpleScriptToUtxoRpcNativeScript + , utxoRpcBigIntToInteger , mkChainPointMsg ) where @@ -70,20 +71,20 @@ protocolParamsToUtxoRpcPParams era pparams = obtainCommonConstraints era $ do drepVotingThresholds :: L.DRepVotingThresholds = pparams ^. L.ppDRepVotingThresholdsL def - & #coinsPerUtxoByte .~ pparams ^. L.ppCoinsPerUTxOByteL . to L.unCoinPerByte . to fromIntegral + & #coinsPerUtxoByte .~ pparams ^. L.ppCoinsPerUTxOByteL . to L.unCoinPerByte . to inject & #maxTxSize .~ pparams ^. L.ppMaxTxSizeL . to fromIntegral - & #minFeeCoefficient .~ pparams ^. L.ppMinFeeBL . to fromIntegral - & #minFeeConstant .~ pparams ^. L.ppMinFeeAL . to fromIntegral + & #minFeeCoefficient .~ pparams ^. L.ppMinFeeBL . to inject + & #minFeeConstant .~ pparams ^. L.ppMinFeeAL . to inject & #maxBlockBodySize .~ pparams ^. L.ppMaxBBSizeL . to fromIntegral & #maxBlockHeaderSize .~ pparams ^. L.ppMaxBHSizeL . to fromIntegral - & #stakeKeyDeposit .~ pparams ^. L.ppKeyDepositL . to fromIntegral - & #poolDeposit .~ pparams ^. L.ppPoolDepositL . to fromIntegral + & #stakeKeyDeposit .~ pparams ^. L.ppKeyDepositL . to inject + & #poolDeposit .~ pparams ^. L.ppPoolDepositL . to inject & #poolRetirementEpochBound .~ pparams ^. L.ppEMaxL . to L.unEpochInterval . to fromIntegral & #desiredNumberOfPools .~ pparams ^. L.ppNOptL . to fromIntegral & #poolInfluence .~ pparams ^. L.ppA0L . to L.unboundRational . to inject & #monetaryExpansion .~ pparams ^. L.ppRhoL . to L.unboundRational . to inject & #treasuryExpansion .~ pparams ^. L.ppTauL . to L.unboundRational . to inject - & #minPoolCost .~ pparams ^. L.ppMinPoolCostL . to fromIntegral + & #minPoolCost .~ pparams ^. L.ppMinPoolCostL . to inject & #protocolVersion . #major .~ pparams ^. L.ppProtocolVersionL . to L.pvMajor . to L.getVersion & #protocolVersion . #minor .~ pparams ^. L.ppProtocolVersionL . to L.pvMinor . to fromIntegral & #maxValueSize .~ pparams ^. L.ppMaxValSizeL . to fromIntegral @@ -129,8 +130,8 @@ protocolParamsToUtxoRpcPParams era pparams = obtainCommonConstraints era $ do .~ pparams ^. L.ppCommitteeMaxTermLengthL . to L.unEpochInterval . to fromIntegral & #governanceActionValidityPeriod .~ pparams ^. L.ppGovActionLifetimeL . to L.unEpochInterval . to fromIntegral - & #governanceActionDeposit .~ pparams ^. L.ppGovActionDepositL . to fromIntegral - & #drepDeposit .~ pparams ^. L.ppDRepDepositL . to fromIntegral + & #governanceActionDeposit .~ pparams ^. L.ppGovActionDepositL . to inject + & #drepDeposit .~ pparams ^. L.ppDRepDepositL . to inject & #drepInactivityPeriod .~ pparams ^. L.ppDRepActivityL . to L.unEpochInterval . to fromIntegral utxoRpcPParamsToProtocolParams @@ -140,15 +141,25 @@ utxoRpcPParamsToProtocolParams utxoRpcPParamsToProtocolParams era pp = conwayEraOnwardsConstraints (convert era) $ do def & appFuns - [ pure - . (L.ppCoinsPerUTxOByteL .~ pp ^. #coinsPerUtxoByte . to fromIntegral . to L.Coin . to L.CoinPerByte) + [ \r -> do + coinsPerUtxoByte <- + pp ^. #coinsPerUtxoByte . to utxoRpcBigIntToInteger ?! "Invalid coinsPerUtxoByte" + pure $ set L.ppCoinsPerUTxOByteL (L.CoinPerByte $ L.Coin coinsPerUtxoByte) r , pure . (L.ppMaxTxSizeL .~ pp ^. #maxTxSize . to fromIntegral) - , pure . (L.ppMinFeeBL .~ pp ^. #minFeeCoefficient . to fromIntegral) - , pure . (L.ppMinFeeAL .~ pp ^. #minFeeConstant . to fromIntegral) + , \r -> do + minFeeCoeff <- pp ^. #minFeeCoefficient . to utxoRpcBigIntToInteger ?! "Invalid minFeeCoefficient" + pure $ set L.ppMinFeeBL (L.Coin minFeeCoeff) r + , \r -> do + minFeeConst <- pp ^. #minFeeConstant . to utxoRpcBigIntToInteger ?! "Invalid minFeeConstant" + pure $ set L.ppMinFeeAL (L.Coin minFeeConst) r , pure . (L.ppMaxBBSizeL .~ pp ^. #maxBlockBodySize . to fromIntegral) , pure . (L.ppMaxBHSizeL .~ pp ^. #maxBlockHeaderSize . to fromIntegral) - , pure . (L.ppKeyDepositL .~ pp ^. #stakeKeyDeposit . to fromIntegral) - , pure . (L.ppPoolDepositL .~ pp ^. #poolDeposit . to fromIntegral) + , \r -> do + stakeKeyDeposit <- pp ^. #stakeKeyDeposit . to utxoRpcBigIntToInteger ?! "Invalid stakeKeyDeposit" + pure $ set L.ppKeyDepositL (L.Coin stakeKeyDeposit) r + , \r -> do + poolDeposit <- pp ^. #poolDeposit . to utxoRpcBigIntToInteger ?! "Invalid poolDeposit" + pure $ set L.ppPoolDepositL (L.Coin poolDeposit) r , pure . (L.ppEMaxL .~ pp ^. #poolRetirementEpochBound . to fromIntegral . to L.EpochInterval) , pure . (L.ppNOptL .~ pp ^. #desiredNumberOfPools . to fromIntegral) , \r -> do @@ -162,7 +173,9 @@ utxoRpcPParamsToProtocolParams era pp = conwayEraOnwardsConstraints (convert era treasuryExpansion <- pp ^. #treasuryExpansion . to inject . to L.boundRational ?! "Invalid treasuryExpansion" pure $ set L.ppTauL treasuryExpansion r - , pure . (L.ppMinPoolCostL .~ pp ^. #minPoolCost . to fromIntegral) + , \r -> do + minPoolCost <- pp ^. #minPoolCost . to utxoRpcBigIntToInteger ?! "Invalid minPoolCost" + pure $ set L.ppMinPoolCostL (L.Coin minPoolCost) r , \r -> do major <- L.mkVersion64 $ pp ^. #protocolVersion . #major . to fromIntegral pure $ set (L.ppProtocolVersionL . pvMajorL) major r @@ -273,8 +286,13 @@ utxoRpcPParamsToProtocolParams era pp = conwayEraOnwardsConstraints (convert era . ( L.ppGovActionLifetimeL .~ pp ^. #governanceActionValidityPeriod . to fromIntegral . to L.EpochInterval ) - , pure . (L.ppGovActionDepositL .~ pp ^. #governanceActionDeposit . to fromIntegral) - , pure . (L.ppDRepDepositL .~ pp ^. #drepDeposit . to fromIntegral) + , \r -> do + govActionDeposit <- + pp ^. #governanceActionDeposit . to utxoRpcBigIntToInteger ?! "Invalid governanceActionDeposit" + pure $ set L.ppGovActionDepositL (L.Coin govActionDeposit) r + , \r -> do + drepDeposit <- pp ^. #drepDeposit . to utxoRpcBigIntToInteger ?! "Invalid drepDeposit" + pure $ set L.ppDRepDepositL (L.Coin drepDeposit) r , pure . (L.ppDRepActivityL .~ pp ^. #drepInactivityPeriod . to fromIntegral . to L.EpochInterval) ] where @@ -313,7 +331,7 @@ mkChainPointMsg chainPoint blockNo = do simpleScriptToUtxoRpcNativeScript :: SimpleScript -> Proto UtxoRpc.NativeScript simpleScriptToUtxoRpcNativeScript = \case RequireSignature paymentKeyHash -> - defMessage & #scriptPubkey .~ serialiseToRawBytes paymentKeyHash + defMessage & #scriptPubkeyHash .~ serialiseToRawBytes paymentKeyHash RequireTimeBefore (SlotNo slotNo) -> defMessage & #invalidHereafter .~ slotNo RequireTimeAfter (SlotNo slotNo) -> @@ -335,7 +353,7 @@ utxoRpcNativeScriptToSimpleScript => Proto UtxoRpc.NativeScript -> m SimpleScript utxoRpcNativeScriptToSimpleScript scriptRpc - | Just paymentKeyHash <- scriptRpc ^. #maybe'scriptPubkey = + | Just paymentKeyHash <- scriptRpc ^. #maybe'scriptPubkeyHash = RequireSignature <$> liftEitherError (deserialiseFromRawBytes asType paymentKeyHash) | Just slotNo <- scriptRpc ^. #maybe'invalidHereafter = pure . RequireTimeBefore $ SlotNo slotNo @@ -399,15 +417,7 @@ scriptDataToUtxoRpcPlutusData :: ScriptData -> Proto UtxoRpc.PlutusData scriptDataToUtxoRpcPlutusData = \case ScriptDataBytes bs -> defMessage & #boundedBytes .~ bs - ScriptDataNumber int - | int <= fromIntegral (maxBound @Int64) - && int >= fromIntegral (minBound @Int64) -> - defMessage & #bigInt . #int .~ fromIntegral int - | int < 0 -> - -- https://www.rfc-editor.org/rfc/rfc8949.html#name-bignums see 3.4.3 for negative integers - defMessage & #bigInt . #bigNInt .~ serialiseToRawBytes (fromIntegral @_ @Natural (-1 - int)) - | otherwise -> - defMessage & #bigInt . #bigUInt .~ serialiseToRawBytes (fromIntegral @_ @Natural int) + ScriptDataNumber int -> defMessage & #bigInt .~ inject int ScriptDataList sds -> defMessage & #array . #items .~ map scriptDataToUtxoRpcPlutusData sds ScriptDataMap elements -> do @@ -489,7 +499,7 @@ txOutToUtxoRpcTxOutput (TxOut addressInEra txOutValue datum script) = do -- we don't have access to info if the coin was minted in the transaction, -- maybe we should add it later -- & #maybe'mintCoin .~ Nothing - & #outputCoin .~ fromIntegral qty + & #quantity .~ inject qty defMessage & #policyId .~ serialiseToRawBytes pId & #assets .~ assets @@ -511,7 +521,7 @@ txOutToUtxoRpcTxOutput (TxOut addressInEra txOutValue datum script) = do defMessage & #address .~ T.encodeUtf8 (obtainCommonConstraints (useEra @era) $ serialiseAddress addressInEra) - & #coin .~ fromIntegral (L.unCoin (txOutValueToLovelace txOutValue)) + & #coin .~ inject (L.unCoin (txOutValueToLovelace txOutValue)) & #assets .~ multiAsset & #maybe'datum .~ datumRpc & #script .~ referenceScriptToUtxoRpcScript script @@ -544,7 +554,7 @@ utxoRpcTxOutputToTxOut txOutput = do <$> deserialiseFromRawBytes asType (datumRpc ^. #hash) Nothing -> pure TxOutDatumNone referenceScript <- utxoRpcScriptToReferenceScript (txOutput ^. #script) - let coinValue = txOutput ^. #coin . to fromIntegral . to L.Coin . to lovelaceToValue + coinValue <- lovelaceToValue . L.Coin <$> txOutput ^. #coin . to utxoRpcBigIntToInteger multiAssetValue <- fmap (fromList @Value . join) . forM (txOutput ^. #assets) $ \policyAssets -> do pId <- liftEitherError $ deserialiseFromRawBytes AsPolicyId (policyAssets ^. #policyId) @@ -552,9 +562,8 @@ utxoRpcTxOutputToTxOut txOutput = do assetName <- liftEitherError $ deserialiseFromRawBytes AsAssetName (asset ^. #name) - let outCoin = Quantity . fromIntegral $ asset ^. #outputCoin - mintCoin = Quantity . fromIntegral $ asset ^. #mintCoin - pure (AssetId pId assetName, outCoin <> mintCoin) + coin <- Quantity <$> asset ^. #quantity . to utxoRpcBigIntToInteger + pure (AssetId pId assetName, coin) pure $ TxOut address @@ -563,3 +572,18 @@ utxoRpcTxOutputToTxOut txOutput = do ) datum referenceScript + +utxoRpcBigIntToInteger + :: forall m + . HasCallStack + => MonadThrow m + => Proto UtxoRpc.BigInt + -> m Integer +utxoRpcBigIntToInteger bigInt + | Just int <- bigInt ^. #maybe'int = pure $ fromIntegral int + | Just bytes <- bigInt ^. #maybe'bigNInt = do + n <- fmap fromIntegral . liftEitherError $ deserialiseFromRawBytes AsNatural bytes + pure $ -n - 1 + | Just bytes <- bigInt ^. #maybe'bigUInt = + fmap fromIntegral . liftEitherError $ deserialiseFromRawBytes AsNatural bytes + | otherwise = pure 0 -- assume default value diff --git a/cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/ProtocolParameters.hs b/cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/ProtocolParameters.hs index 16efc7fd8b..cc645ee99b 100644 --- a/cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/ProtocolParameters.hs +++ b/cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/ProtocolParameters.hs @@ -11,7 +11,6 @@ import Cardano.Rpc.Server.Internal.UtxoRpc.Type import Cardano.Ledger.Api qualified as L import Cardano.Ledger.BaseTypes qualified as L -import Cardano.Ledger.Coin qualified as L import Cardano.Ledger.Conway.PParams qualified as L import Cardano.Ledger.Plutus qualified as L @@ -48,15 +47,15 @@ hprop_roundtrip_protocol_parameters = H.property $ do pp' = obtainCommonConstraints era $ pp - & L.ppCoinsPerUTxOByteL %~ L.CoinPerByte . L.Coin . clipI 63 . L.unCoin . L.unCoinPerByte - & L.ppMinFeeBL %~ L.Coin . clipI 63 . L.unCoin - & L.ppMinFeeAL %~ L.Coin . clipI 63 . L.unCoin + & L.ppCoinsPerUTxOByteL %~ L.CoinPerByte . clipI 64 . L.unCoinPerByte + & L.ppMinFeeBL %~ clipI 64 + & L.ppMinFeeAL %~ clipI 64 & L.ppA0L %~ clipIBr & L.ppRhoL %~ clipIBr & L.ppTauL %~ clipIBr & L.ppMinFeeRefScriptCostPerByteL %~ clipIBr - & L.ppKeyDepositL %~ L.Coin . clipI 63 . L.unCoin - & L.ppPoolDepositL %~ L.Coin . clipI 63 . L.unCoin + & L.ppKeyDepositL %~ clipI 64 + & L.ppPoolDepositL %~ clipI 64 & L.ppCostModelsL .~ L.mkCostModels nonEmptyCostModels & L.ppPoolVotingThresholdsL . L.pvtMotionNoConfidenceL %~ clipIBr & L.ppPoolVotingThresholdsL . L.pvtCommitteeNormalL %~ clipIBr @@ -81,34 +80,26 @@ hprop_roundtrip_protocol_parameters = H.property $ do (protocolParamsToUtxoRpcPParams era) (utxoRpcPParamsToProtocolParams era) --- | Clip the bounded rational to a signed value not larger than 31 bits. -clipIBr :: L.BoundedRational a => a -> a +-- | Clip the bounded rational to a signed value not larger than 32 bits. +clipIBr :: (Show a, L.BoundedRational a) => a -> a clipIBr input = do let r = L.unboundRational input - fromMaybe (error "impossible! clipped value is out of bounds") $ + nBits = [32, 16, 8, 4] -- nominator bit sizes to try + dBits = nBits -- denominator bit sizes to try + clippedNums = (`clipI` numerator r) <$> nBits + clippedDens = (`clipI` denominator r) <$> dBits + fromMaybe (error $ "impossible! clipped value is out of bounds. Original value: " <> show input) $ -- try to clip value to the smaller values until one succeeds asum @[] - [ L.boundRational $ - clipI 31 (numerator r) - % clipI 31 (denominator r) - , L.boundRational $ - clipI 31 (numerator r) - % denominator r - , L.boundRational $ - clipI 15 (numerator r) - % clipI 15 (denominator r) - , L.boundRational $ - clipI 15 (numerator r) - % denominator r - , L.boundRational $ - clipI 7 (numerator r) - % denominator r + [ L.boundRational $ numerator' % denominator' + | numerator' <- clippedNums + , denominator' <- clippedDens ] -- | Clip the Integral to a value with n bit size. clipI :: (Integral a, Bits a) => Int -> a -> a clipI n v - | v > 2 ^ n = clipI n $ shiftR v 1 + | v > 2 ^ (n - 1) - 1 || v < (-(2 ^ (n - 1))) = clipI n $ shiftR v 1 | otherwise = fromIntegral v pvMajorL :: Lens' L.ProtVer L.Version diff --git a/cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/Type.hs b/cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/Type.hs new file mode 100644 index 0000000000..4b23ec4258 --- /dev/null +++ b/cardano-rpc/test/cardano-rpc-test/Test/Cardano/Rpc/Type.hs @@ -0,0 +1,41 @@ +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE ScopedTypeVariables #-} +{-# LANGUAGE TypeApplications #-} + +module Test.Cardano.Rpc.Type where + +import Cardano.Api.Experimental.Era +import Cardano.Rpc.Server.Internal.UtxoRpc.Type + +import RIO + +import Hedgehog as H +import Hedgehog.Extras qualified as H +import Hedgehog.Gen qualified as H +import Hedgehog.Range as H + +-- | Test that @BigInt@ protobuf type conversion to/from Integer roundtrips +hprop_roundtrip_bigint :: Property +hprop_roundtrip_bigint = H.property $ do + int <- forAll genLargeInteger + let bigInt = inject int + + int' <- utxoRpcBigIntToInteger bigInt + H.note_ "Check that Integer -> BigInt -> Integer preserves the value" + int === int' + + let bigInt' = inject int' + H.note_ "Check that BigInt -> Integer -> BigInt preserves the value" + bigInt === bigInt' + +-- generate integer for each of the BigInt proto type constructors +genLargeInteger :: Gen Integer +genLargeInteger = + H.choice + [ H.integral $ H.linearFrom 0 (maxI64 + 1) (2 ^ (128 :: Int)) -- large positive - bigUInt + , H.integral $ H.linearFrom 0 (-(2 ^ (128 :: Int))) (minI64 - 1) -- large negative - bigNInt + , H.integral $ H.linearFrom 0 minI64 maxI64 -- within Int64 size - int + ] + where + minI64 = fromIntegral $ minBound @Int64 :: Integer + maxI64 = fromIntegral $ maxBound @Int64 :: Integer