From 13545dce5b1a9ed9246338bb7d961b1b18c38fdf Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Wed, 24 Sep 2025 23:12:35 +0200 Subject: [PATCH] attempt to use buf and create a buildable plan --- cabal.project | 16 +- cardano-rpc/Setup.hs | 10 - cardano-rpc/buf.gen.yaml | 26 + cardano-rpc/cardano-rpc.cabal | 51 +- cardano-rpc/gen/Proto/Cardano/Rpc/Node.hs | 498 ++ .../gen/Proto/Cardano/Rpc/Node_Fields.hs | 40 + .../Proto/Utxorpc/V1alpha/Cardano/Cardano.hs | 5027 +++++++++++++++++ .../Utxorpc/V1alpha/Cardano/Cardano_Fields.hs | 524 ++ .../gen/Proto/Utxorpc/V1alpha/Query/Query.hs | 2064 +++++++ .../Utxorpc/V1alpha/Query/Query_Fields.hs | 173 + .../Proto/Utxorpc/V1alpha/Submit/Submit.hs | 812 +++ .../Utxorpc/V1alpha/Submit/Submit_Fields.hs | 97 + 12 files changed, 9299 insertions(+), 39 deletions(-) delete mode 100644 cardano-rpc/Setup.hs create mode 100644 cardano-rpc/buf.gen.yaml create mode 100644 cardano-rpc/gen/Proto/Cardano/Rpc/Node.hs create mode 100644 cardano-rpc/gen/Proto/Cardano/Rpc/Node_Fields.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano_Fields.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query_Fields.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit.hs create mode 100644 cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit_Fields.hs diff --git a/cabal.project b/cabal.project index fff04abd9f..d69d47169d 100644 --- a/cabal.project +++ b/cabal.project @@ -20,8 +20,7 @@ packages: cardano-api cardano-api-gen cardano-wasm - -- TODO fix potential issues with build-type: Custom and protoc and reenable - -- cardano-rpc + cardano-rpc extra-packages: Cabal, process @@ -56,6 +55,19 @@ write-ghc-environment-files: always jobs: $ncpus semaphore: True +constraints: + , hedgehog == 1.5 + , lifted-async == 0.10.2.7 + , random == 1.2.1.3 + , tls == 2.1.6 + , optparse-applicative==0.18.1.0 + , kes-agent == 0.1.0.1 + +allow-newer: + -- https://github.com/kapralVV/Unique/issues/11 + , Unique:hashable + , kes-agent:filepath + if impl (ghc >= 9.12) allow-newer: -- https://github.com/kapralVV/Unique/issues/11 diff --git a/cardano-rpc/Setup.hs b/cardano-rpc/Setup.hs deleted file mode 100644 index 0118df18cf..0000000000 --- a/cardano-rpc/Setup.hs +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env cabal -{- cabal: -build-depends: base, Cabal, proto-lens-setup --} - --- this is a cabal script because of https://github.com/haskell/haskell-language-server/issues/3735 - -import Data.ProtoLens.Setup - -main = defaultMainGeneratingProtos "proto" diff --git a/cardano-rpc/buf.gen.yaml b/cardano-rpc/buf.gen.yaml new file mode 100644 index 0000000000..7fb91ed45f --- /dev/null +++ b/cardano-rpc/buf.gen.yaml @@ -0,0 +1,26 @@ +version: v1 + +managed: + enabled: true + +plugins: + # node + # - plugin: es + # out: gen/node/src + # opt: + # - target=ts + # + # - plugin: connect-es + # out: gen/node/src + # opt: + # - target=ts + # + # - plugin: buf.build/bufbuild/protoschema-jsonschema + # out: gen/jsonschema/schema + + # haskell + + - plugin: haskell-protolens + path: proto-lens-protoc + out: gen + diff --git a/cardano-rpc/cardano-rpc.cabal b/cardano-rpc/cardano-rpc.cabal index 1aaac8f6ee..6f27ddb0b4 100644 --- a/cardano-rpc/cardano-rpc.cabal +++ b/cardano-rpc/cardano-rpc.cabal @@ -17,19 +17,11 @@ license-files: LICENSE NOTICE -build-type: Custom +build-type: Simple extra-doc-files: CHANGELOG.md README.md -extra-source-files: proto/**/*.proto - -custom-setup - setup-depends: - Cabal >=3.0 && <3.13, - base >=4.14 && <5, - proto-lens-setup >=0.4 && <0.5, - common project-config default-language: Haskell2010 default-extensions: @@ -50,7 +42,6 @@ common project-config library import: project-config hs-source-dirs: src - build-tool-depends: proto-lens-protoc:proto-lens-protoc exposed-modules: Cardano.Rpc.Client Cardano.Rpc.Proto.Api.Node @@ -65,14 +56,6 @@ library Cardano.Rpc.Server.Internal.UtxoRpc.Query Cardano.Rpc.Server.Internal.UtxoRpc.Submit Cardano.Rpc.Server.Internal.UtxoRpc.Type - 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 other-modules: Cardano.Rpc.Server.Internal.Orphans @@ -80,20 +63,13 @@ library autogen-modules: Paths_cardano_rpc - 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 build-depends: aeson, base, bytestring, cardano-api >=10.17, + cardano-rpc:gen, cardano-ledger-api, cardano-ledger-binary, cardano-ledger-conway, @@ -111,6 +87,26 @@ library rio, text, +-- this should be replaced by utxorpc pacakge from hackage +-- ideally we should upstream whatever is implemented in Proto.Cardano.Rpc.Node +-- into utxorpc +library gen + import: project-config + hs-source-dirs: 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 + build-depends: + proto-lens, + proto-lens-protobuf-types, + proto-lens-runtime, + test-suite cardano-rpc-test import: project-config hs-source-dirs: test/cardano-rpc-test @@ -123,8 +119,9 @@ test-suite cardano-rpc-test cardano-ledger-conway, cardano-ledger-core, cardano-rpc, + cardano-rpc:gen, containers, - hedgehog >=1.1, + hedgehog ^>=1.5, rio, tasty, tasty-hedgehog, diff --git a/cardano-rpc/gen/Proto/Cardano/Rpc/Node.hs b/cardano-rpc/gen/Proto/Cardano/Rpc/Node.hs new file mode 100644 index 0000000000..90488627b5 --- /dev/null +++ b/cardano-rpc/gen/Proto/Cardano/Rpc/Node.hs @@ -0,0 +1,498 @@ +{- This file was auto-generated from cardano/rpc/node.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.Cardano.Rpc.Node ( + Node(..), CurrentEra(), Era(..), Era(), Era'UnrecognizedValue, + ProtocolParamsJson() + ) 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.Empty +{- | Fields : + + * 'Proto.Cardano.Rpc.Node_Fields.era' @:: Lens' CurrentEra Era@ -} +data CurrentEra + = CurrentEra'_constructor {_CurrentEra'era :: !Era, + _CurrentEra'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CurrentEra where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField CurrentEra "era" Era where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _CurrentEra'era (\ x__ y__ -> x__ {_CurrentEra'era = y__})) + Prelude.id +instance Data.ProtoLens.Message CurrentEra where + messageName _ = Data.Text.pack "cardano.rpc.CurrentEra" + packedMessageDescriptor _ + = "\n\ + \\n\ + \CurrentEra\DC2\"\n\ + \\ETXera\CAN\SOH \SOH(\SO2\DLE.cardano.rpc.EraR\ETXera" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + era__field_descriptor + = Data.ProtoLens.FieldDescriptor + "era" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor Era) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"era")) :: + Data.ProtoLens.FieldDescriptor CurrentEra + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, era__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _CurrentEra'_unknownFields + (\ x__ y__ -> x__ {_CurrentEra'_unknownFields = y__}) + defMessage + = CurrentEra'_constructor + {_CurrentEra'era = Data.ProtoLens.fieldDefault, + _CurrentEra'_unknownFields = []} + parseMessage + = let + loop :: + CurrentEra -> Data.ProtoLens.Encoding.Bytes.Parser CurrentEra + 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)) + "era" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"era") 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) "CurrentEra" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"era") _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.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData CurrentEra where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_CurrentEra'_unknownFields x__) + (Control.DeepSeq.deepseq (_CurrentEra'era x__) ()) +newtype Era'UnrecognizedValue + = Era'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data Era + = Byron | + Shelley | + Allegra | + Mary | + Alonzo | + Babbage | + Conway | + Era'Unrecognized !Era'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum Era where + maybeToEnum 0 = Prelude.Just Byron + maybeToEnum 1 = Prelude.Just Shelley + maybeToEnum 2 = Prelude.Just Allegra + maybeToEnum 3 = Prelude.Just Mary + maybeToEnum 4 = Prelude.Just Alonzo + maybeToEnum 5 = Prelude.Just Babbage + maybeToEnum 6 = Prelude.Just Conway + maybeToEnum k + = Prelude.Just + (Era'Unrecognized (Era'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum Byron = "byron" + showEnum Shelley = "shelley" + showEnum Allegra = "allegra" + showEnum Mary = "mary" + showEnum Alonzo = "alonzo" + showEnum Babbage = "babbage" + showEnum Conway = "conway" + showEnum (Era'Unrecognized (Era'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "byron" = Prelude.Just Byron + | (Prelude.==) k "shelley" = Prelude.Just Shelley + | (Prelude.==) k "allegra" = Prelude.Just Allegra + | (Prelude.==) k "mary" = Prelude.Just Mary + | (Prelude.==) k "alonzo" = Prelude.Just Alonzo + | (Prelude.==) k "babbage" = Prelude.Just Babbage + | (Prelude.==) k "conway" = Prelude.Just Conway + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded Era where + minBound = Byron + maxBound = Conway +instance Prelude.Enum Era where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum Era: " (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum Byron = 0 + fromEnum Shelley = 1 + fromEnum Allegra = 2 + fromEnum Mary = 3 + fromEnum Alonzo = 4 + fromEnum Babbage = 5 + fromEnum Conway = 6 + fromEnum (Era'Unrecognized (Era'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ Conway + = Prelude.error + "Era.succ: bad argument Conway. This value would be out of bounds." + succ Byron = Shelley + succ Shelley = Allegra + succ Allegra = Mary + succ Mary = Alonzo + succ Alonzo = Babbage + succ Babbage = Conway + succ (Era'Unrecognized _) + = Prelude.error "Era.succ: bad argument: unrecognized value" + pred Byron + = Prelude.error + "Era.pred: bad argument Byron. This value would be out of bounds." + pred Shelley = Byron + pred Allegra = Shelley + pred Mary = Allegra + pred Alonzo = Mary + pred Babbage = Alonzo + pred Conway = Babbage + pred (Era'Unrecognized _) + = Prelude.error "Era.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 Era where + fieldDefault = Byron +instance Control.DeepSeq.NFData Era where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Cardano.Rpc.Node_Fields.json' @:: Lens' ProtocolParamsJson Data.ByteString.ByteString@ -} +data ProtocolParamsJson + = ProtocolParamsJson'_constructor {_ProtocolParamsJson'json :: !Data.ByteString.ByteString, + _ProtocolParamsJson'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ProtocolParamsJson where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ProtocolParamsJson "json" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ProtocolParamsJson'json + (\ x__ y__ -> x__ {_ProtocolParamsJson'json = y__})) + Prelude.id +instance Data.ProtoLens.Message ProtocolParamsJson where + messageName _ = Data.Text.pack "cardano.rpc.ProtocolParamsJson" + packedMessageDescriptor _ + = "\n\ + \\DC2ProtocolParamsJson\DC2\DC2\n\ + \\EOTjson\CAN\SOH \SOH(\fR\EOTjson" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + json__field_descriptor + = Data.ProtoLens.FieldDescriptor + "json" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"json")) :: + Data.ProtoLens.FieldDescriptor ProtocolParamsJson + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, json__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ProtocolParamsJson'_unknownFields + (\ x__ y__ -> x__ {_ProtocolParamsJson'_unknownFields = y__}) + defMessage + = ProtocolParamsJson'_constructor + {_ProtocolParamsJson'json = Data.ProtoLens.fieldDefault, + _ProtocolParamsJson'_unknownFields = []} + parseMessage + = let + loop :: + ProtocolParamsJson + -> Data.ProtoLens.Encoding.Bytes.Parser ProtocolParamsJson + 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)) + "json" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"json") 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) "ProtocolParamsJson" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"json") _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 ProtocolParamsJson where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ProtocolParamsJson'_unknownFields x__) + (Control.DeepSeq.deepseq (_ProtocolParamsJson'json x__) ()) +data Node = Node {} +instance Data.ProtoLens.Service.Types.Service Node where + type ServiceName Node = "Node" + type ServicePackage Node = "cardano.rpc" + type ServiceMethods Node = '["getEra", "getProtocolParamsJson"] + packedServiceDescriptor _ + = "\n\ + \\EOTNode\DC2;\n\ + \\ACKGetEra\DC2\SYN.google.protobuf.Empty\SUB\ETB.cardano.rpc.CurrentEra\"\NUL\DC2R\n\ + \\NAKGetProtocolParamsJson\DC2\SYN.google.protobuf.Empty\SUB\US.cardano.rpc.ProtocolParamsJson\"\NUL" +instance Data.ProtoLens.Service.Types.HasMethodImpl Node "getEra" where + type MethodName Node "getEra" = "GetEra" + type MethodInput Node "getEra" = Proto.Google.Protobuf.Empty.Empty + type MethodOutput Node "getEra" = CurrentEra + type MethodStreamingType Node "getEra" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Node "getProtocolParamsJson" where + type MethodName Node "getProtocolParamsJson" = "GetProtocolParamsJson" + type MethodInput Node "getProtocolParamsJson" = Proto.Google.Protobuf.Empty.Empty + type MethodOutput Node "getProtocolParamsJson" = ProtocolParamsJson + type MethodStreamingType Node "getProtocolParamsJson" = 'Data.ProtoLens.Service.Types.NonStreaming +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\SYNcardano/rpc/node.proto\DC2\vcardano.rpc\SUB\ESCgoogle/protobuf/empty.proto\"0\n\ + \\n\ + \CurrentEra\DC2\"\n\ + \\ETXera\CAN\SOH \SOH(\SO2\DLE.cardano.rpc.EraR\ETXera\"(\n\ + \\DC2ProtocolParamsJson\DC2\DC2\n\ + \\EOTjson\CAN\SOH \SOH(\fR\EOTjson*Y\n\ + \\ETXEra\DC2\t\n\ + \\ENQbyron\DLE\NUL\DC2\v\n\ + \\ashelley\DLE\SOH\DC2\v\n\ + \\aallegra\DLE\STX\DC2\b\n\ + \\EOTmary\DLE\ETX\DC2\n\ + \\n\ + \\ACKalonzo\DLE\EOT\DC2\v\n\ + \\ababbage\DLE\ENQ\DC2\n\ + \\n\ + \\ACKconway\DLE\ACK2\151\SOH\n\ + \\EOTNode\DC2;\n\ + \\ACKGetEra\DC2\SYN.google.protobuf.Empty\SUB\ETB.cardano.rpc.CurrentEra\"\NUL\DC2R\n\ + \\NAKGetProtocolParamsJson\DC2\SYN.google.protobuf.Empty\SUB\US.cardano.rpc.ProtocolParamsJson\"\NULBi\n\ + \\SIcom.cardano.rpcB\tNodeProtoP\SOH\162\STX\ETXCRX\170\STX\vCardano.Rpc\202\STX\vCardano\\Rpc\226\STX\ETBCardano\\Rpc\\GPBMetadata\234\STX\fCardano::RpcJ\180\ENQ\n\ + \\ACK\DC2\EOT\NUL\NUL\GS\SOH\n\ + \\b\n\ + \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\STX\NUL\DC4\n\ + \\t\n\ + \\STX\ETX\NUL\DC2\ETX\EOT\NUL%\n\ + \\n\ + \\n\ + \\STX\ACK\NUL\DC2\EOT\ACK\NUL\n\ + \\SOH\n\ + \\n\ + \\n\ + \\ETX\ACK\NUL\SOH\DC2\ETX\ACK\b\f\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\NUL\DC2\ETX\a\EOT=\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\a\b\SO\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\a\SI$\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\a/9\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\SOH\DC2\ETX\t\EOTT\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX\t\b\GS\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX\t\RS3\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\t>P\n\ + \\n\ + \\n\ + \\STX\ENQ\NUL\DC2\EOT\f\NUL\DC4\SOH\n\ + \\n\ + \\n\ + \\ETX\ENQ\NUL\SOH\DC2\ETX\f\ENQ\b\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\NUL\DC2\ETX\r\EOT\SO\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX\r\EOT\t\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX\r\f\r\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\SOH\DC2\ETX\SO\EOT\DLE\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX\SO\EOT\v\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX\SO\SO\SI\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\STX\DC2\ETX\SI\EOT\DLE\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX\SI\EOT\v\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX\SI\SO\SI\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\ETX\DC2\ETX\DLE\EOT\r\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\DLE\EOT\b\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\DLE\v\f\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\EOT\DC2\ETX\DC1\EOT\SI\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX\DC1\EOT\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX\DC1\r\SO\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\ENQ\DC2\ETX\DC2\EOT\DLE\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ENQ\SOH\DC2\ETX\DC2\EOT\v\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ENQ\STX\DC2\ETX\DC2\SO\SI\n\ + \\v\n\ + \\EOT\ENQ\NUL\STX\ACK\DC2\ETX\DC3\EOT\SI\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ACK\SOH\DC2\ETX\DC3\EOT\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\ACK\STX\DC2\ETX\DC3\r\SO\n\ + \\n\ + \\n\ + \\STX\EOT\NUL\DC2\EOT\ETB\NUL\EM\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\ETB\b\DC2\n\ + \\v\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\CAN\EOT\DLE\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\CAN\EOT\a\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\CAN\b\v\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\CAN\SO\SI\n\ + \\n\ + \\n\ + \\STX\EOT\SOH\DC2\EOT\ESC\NUL\GS\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\ESC\b\SUB\n\ + \=\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\FS\EOT\DC3\"0 JSON representation of the protocol parameters\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\FS\EOT\t\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\FS\n\ + \\SO\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\FS\DC1\DC2b\ACKproto3" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Cardano/Rpc/Node_Fields.hs b/cardano-rpc/gen/Proto/Cardano/Rpc/Node_Fields.hs new file mode 100644 index 0000000000..1c29ad2e5f --- /dev/null +++ b/cardano-rpc/gen/Proto/Cardano/Rpc/Node_Fields.hs @@ -0,0 +1,40 @@ +{- This file was auto-generated from cardano/rpc/node.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.Cardano.Rpc.Node_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.Empty +era :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "era" a) => + Lens.Family2.LensLike' f s a +era = Data.ProtoLens.Field.field @"era" +json :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "json" a) => + Lens.Family2.LensLike' f s a +json = Data.ProtoLens.Field.field @"json" \ No newline at end of file diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs new file mode 100644 index 0000000000..6c8d2ce885 --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano.hs @@ -0,0 +1,5027 @@ +{- 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(), CostModel(), CostModels(), Datum(), + ExPrices(), ExUnits(), MultiAsset(), PParams(), ProtocolVersion(), + RationalNumber(), Script(), Script'Script(..), _Script'Native, + _Script'PlutusV1, _Script'PlutusV2, _Script'PlutusV3, + _Script'PlutusV4, 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.outputCoin' @:: Lens' Asset Data.Word.Word64@ + * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mintCoin' @:: Lens' Asset Data.Int.Int64@ + * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mintCoin' @:: Lens' Asset (Prelude.Maybe Data.Int.Int64)@ -} +data Asset + = Asset'_constructor {_Asset'name :: !Data.ByteString.ByteString, + _Asset'outputCoin :: !Data.Word.Word64, + _Asset'mintCoin :: !(Prelude.Maybe Data.Int.Int64), + _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 "outputCoin" Data.Word.Word64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Asset'outputCoin (\ x__ y__ -> x__ {_Asset'outputCoin = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Asset "mintCoin" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Asset'mintCoin (\ x__ y__ -> x__ {_Asset'mintCoin = 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'mintCoin (\ x__ y__ -> x__ {_Asset'mintCoin = y__})) + Prelude.id +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\US\n\ + \\voutput_coin\CAN\STX \SOH(\EOTR\n\ + \outputCoin\DC2 \n\ + \\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoin\136\SOH\SOHB\f\n\ + \\n\ + \_mint_coin" + packedFileDescriptor _ = 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.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"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'outputCoin = Data.ProtoLens.fieldDefault, + _Asset'mintCoin = 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.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"outputCoin") _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'mintCoin") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _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'outputCoin x__) + (Control.DeepSeq.deepseq (_Asset'mintCoin 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.originalCbor' @:: Lens' Datum Data.ByteString.ByteString@ -} +data Datum + = Datum'_constructor {_Datum'hash :: !Data.ByteString.ByteString, + _Datum'originalCbor :: !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 "originalCbor" 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\DC2#\n\ + \\roriginal_cbor\CAN\ETX \SOH(\fR\foriginalCbor" + 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 + 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 Datum + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, hash__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'originalCbor = Data.ProtoLens.fieldDefault, + _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) + 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.<>) + (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 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'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.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\DC2-\n\ + \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByte\DC2\RS\n\ + \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2.\n\ + \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficient\DC2(\n\ + \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstant\DC2-\n\ + \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\ + \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2*\n\ + \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDeposit\DC2!\n\ + \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDeposit\DC2=\n\ + \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\ + \\ETBdesired_number_of_pools\CAN\n\ + \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\ + \\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\ + \\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\ + \\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2\"\n\ + \\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCost\DC2S\n\ + \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2$\n\ + \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSize\DC23\n\ + \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentage\DC22\n\ + \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputs\DC2D\n\ + \\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\ + \costModels\DC29\n\ + \\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\ + \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\ + \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\DC2m\n\ + \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2_\n\ + \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2_\n\ + \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4drepVotingThresholds\DC2,\n\ + \\DC2min_committee_size\CAN\SUB \SOH(\rR\DLEminCommitteeSize\DC20\n\ + \\DC4committee_term_limit\CAN\ESC \SOH(\EOTR\DC2committeeTermLimit\DC2I\n\ + \!governance_action_validity_period\CAN\FS \SOH(\EOTR\RSgovernanceActionValidityPeriod\DC2:\n\ + \\EMgovernance_action_deposit\CAN\GS \SOH(\EOTR\ETBgovernanceActionDeposit\DC2!\n\ + \\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDeposit\DC24\n\ + \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\DC4drepInactivityPeriod" + packedFileDescriptor _ = 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.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\FS\n\ + \\tnumerator\CAN\SOH \SOH(\ETXR\tnumerator\DC2 \n\ + \\vdenominator\CAN\STX \SOH(\EOTR\vdenominator" + 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 Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.native' @:: Lens' Script Data.ByteString.ByteString@ + * '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 !Data.ByteString.ByteString | + 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 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'Native x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'Native y__)) +instance Data.ProtoLens.Field.HasField Script "native" 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'Native x__val)) -> Prelude.Just x__val + _otherwise -> Prelude.Nothing) + (\ _ y__ -> Prelude.fmap Script'Native y__)) + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)) +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\CAN\n\ + \\ACKnative\CAN\SOH \SOH(\fH\NULR\ACKnative\DC2\GS\n\ + \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\ + \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2\DC2\GS\n\ + \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\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.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (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.getBytes + (Prelude.fromIntegral len)) + "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) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + 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 Data.ByteString.ByteString +_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.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\DC2\n\ + \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2;\n\ + \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiAssetR\ACKassets\DC24\n\ + \\ENQdatum\CAN\EOT \SOH(\v2\RS.utxorpc.v1alpha.cardano.DatumR\ENQdatum\DC27\n\ + \\ACKscript\CAN\ENQ \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript" + packedFileDescriptor _ = 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\"\228\SOH\n\ + \\bTxOutput\DC2\CAN\n\ + \\aaddress\CAN\SOH \SOH(\fR\aaddress\DC2\DC2\n\ + \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2;\n\ + \\ACKassets\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.MultiAssetR\ACKassets\DC24\n\ + \\ENQdatum\CAN\EOT \SOH(\v2\RS.utxorpc.v1alpha.cardano.DatumR\ENQdatum\DC27\n\ + \\ACKscript\CAN\ENQ \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\"$\n\ + \\fAddressArray\DC2\DC4\n\ + \\ENQitems\CAN\SOH \ETX(\fR\ENQitems\"@\n\ + \\ENQDatum\DC2\DC2\n\ + \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2#\n\ + \\roriginal_cbor\CAN\ETX \SOH(\fR\foriginalCbor\"l\n\ + \\ENQAsset\DC2\DC2\n\ + \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\US\n\ + \\voutput_coin\CAN\STX \SOH(\EOTR\n\ + \outputCoin\DC2 \n\ + \\tmint_coin\CAN\ETX \SOH(\ETXH\NULR\bmintCoin\136\SOH\SOHB\f\n\ + \\n\ + \_mint_coin\"a\n\ + \\n\ + \MultiAsset\DC2\ESC\n\ + \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC26\n\ + \\ACKassets\CAN\STX \ETX(\v2\RS.utxorpc.v1alpha.cardano.AssetR\ACKassets\"\168\SOH\n\ + \\ACKScript\DC2\CAN\n\ + \\ACKnative\CAN\SOH \SOH(\fH\NULR\ACKnative\DC2\GS\n\ + \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\ + \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2\DC2\GS\n\ + \\tplutus_v3\CAN\EOT \SOH(\fH\NULR\bplutusV3\DC2\GS\n\ + \\tplutus_v4\CAN\ENQ \SOH(\fH\NULR\bplutusV4B\b\n\ + \\ACKscript\"P\n\ + \\SORationalNumber\DC2\FS\n\ + \\tnumerator\CAN\SOH \SOH(\ETXR\tnumerator\DC2 \n\ + \\vdenominator\CAN\STX \SOH(\EOTR\vdenominator\"7\n\ + \\aExUnits\DC2\DC4\n\ + \\ENQsteps\CAN\SOH \SOH(\EOTR\ENQsteps\DC2\SYN\n\ + \\ACKmemory\CAN\STX \SOH(\EOTR\ACKmemory\"\138\SOH\n\ + \\bExPrices\DC2=\n\ + \\ENQsteps\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ENQsteps\DC2?\n\ + \\ACKmemory\CAN\STX \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmemory\"=\n\ + \\SIProtocolVersion\DC2\DC4\n\ + \\ENQmajor\CAN\SOH \SOH(\rR\ENQmajor\DC2\DC4\n\ + \\ENQminor\CAN\STX \SOH(\rR\ENQminor\"#\n\ + \\tCostModel\DC2\SYN\n\ + \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues\"\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\"\167\SI\n\ + \\aPParams\DC2-\n\ + \\DC3coins_per_utxo_byte\CAN\SOH \SOH(\EOTR\DLEcoinsPerUtxoByte\DC2\RS\n\ + \\vmax_tx_size\CAN\STX \SOH(\EOTR\tmaxTxSize\DC2.\n\ + \\DC3min_fee_coefficient\CAN\ETX \SOH(\EOTR\DC1minFeeCoefficient\DC2(\n\ + \\DLEmin_fee_constant\CAN\EOT \SOH(\EOTR\SOminFeeConstant\DC2-\n\ + \\DC3max_block_body_size\CAN\ENQ \SOH(\EOTR\DLEmaxBlockBodySize\DC21\n\ + \\NAKmax_block_header_size\CAN\ACK \SOH(\EOTR\DC2maxBlockHeaderSize\DC2*\n\ + \\DC1stake_key_deposit\CAN\a \SOH(\EOTR\SIstakeKeyDeposit\DC2!\n\ + \\fpool_deposit\CAN\b \SOH(\EOTR\vpoolDeposit\DC2=\n\ + \\ESCpool_retirement_epoch_bound\CAN\t \SOH(\EOTR\CANpoolRetirementEpochBound\DC25\n\ + \\ETBdesired_number_of_pools\CAN\n\ + \ \SOH(\EOTR\DC4desiredNumberOfPools\DC2N\n\ + \\SOpool_influence\CAN\v \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\rpoolInfluence\DC2V\n\ + \\DC2monetary_expansion\CAN\f \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1monetaryExpansion\DC2V\n\ + \\DC2treasury_expansion\CAN\r \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\DC1treasuryExpansion\DC2\"\n\ + \\rmin_pool_cost\CAN\SO \SOH(\EOTR\vminPoolCost\DC2S\n\ + \\DLEprotocol_version\CAN\SI \SOH(\v2(.utxorpc.v1alpha.cardano.ProtocolVersionR\SIprotocolVersion\DC2$\n\ + \\SOmax_value_size\CAN\DLE \SOH(\EOTR\fmaxValueSize\DC23\n\ + \\NAKcollateral_percentage\CAN\DC1 \SOH(\EOTR\DC4collateralPercentage\DC22\n\ + \\NAKmax_collateral_inputs\CAN\DC2 \SOH(\EOTR\DC3maxCollateralInputs\DC2D\n\ + \\vcost_models\CAN\DC3 \SOH(\v2#.utxorpc.v1alpha.cardano.CostModelsR\n\ + \costModels\DC29\n\ + \\ACKprices\CAN\DC4 \SOH(\v2!.utxorpc.v1alpha.cardano.ExPricesR\ACKprices\DC2n\n\ + \#max_execution_units_per_transaction\CAN\NAK \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\USmaxExecutionUnitsPerTransaction\DC2b\n\ + \\GSmax_execution_units_per_block\CAN\SYN \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\EMmaxExecutionUnitsPerBlock\DC2m\n\ + \ min_fee_script_ref_cost_per_byte\CAN\ETB \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\SUBminFeeScriptRefCostPerByte\DC2_\n\ + \\SYNpool_voting_thresholds\CAN\CAN \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4poolVotingThresholds\DC2_\n\ + \\SYNdrep_voting_thresholds\CAN\EM \SOH(\v2).utxorpc.v1alpha.cardano.VotingThresholdsR\DC4drepVotingThresholds\DC2,\n\ + \\DC2min_committee_size\CAN\SUB \SOH(\rR\DLEminCommitteeSize\DC20\n\ + \\DC4committee_term_limit\CAN\ESC \SOH(\EOTR\DC2committeeTermLimit\DC2I\n\ + \!governance_action_validity_period\CAN\FS \SOH(\EOTR\RSgovernanceActionValidityPeriod\DC2:\n\ + \\EMgovernance_action_deposit\CAN\GS \SOH(\EOTR\ETBgovernanceActionDeposit\DC2!\n\ + \\fdrep_deposit\CAN\RS \SOH(\EOTR\vdrepDeposit\DC24\n\ + \\SYNdrep_inactivity_period\CAN\US \SOH(\EOTR\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\246/\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 \n\ + \H\n\ + \\STX\EOT\NUL\DC2\EOT\ENQ\NUL\v\SOH\SUB< Represents a transaction output in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\ENQ\b\DLE\n\ + \,\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\ACK\STX\DC4\"\US Address receiving the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\ACK\STX\a\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\ACK\b\SI\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ACK\DC2\DC3\n\ + \+\n\ + \\EOT\EOT\NUL\STX\SOH\DC2\ETX\a\STX\DC2\"\RS Amount of ADA in the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\a\STX\b\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\a\t\r\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\a\DLE\DC1\n\ + \@\n\ + \\EOT\EOT\NUL\STX\STX\DC2\ETX\b\STX!\"3 Additional native (non-ADA) assets in the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\EOT\DC2\ETX\b\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\b\v\NAK\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\b\SYN\FS\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\b\US \n\ + \6\n\ + \\EOT\EOT\NUL\STX\ETX\DC2\ETX\t\STX\DC2\") Plutus data associated with the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX\t\STX\a\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\t\b\r\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\t\DLE\DC1\n\ + \1\n\ + \\EOT\EOT\NUL\STX\EOT\DC2\ETX\n\ + \\STX\DC4\"$ Script associated with the output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX\n\ + \\STX\b\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\n\ + \\t\SI\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\n\ + \\DC2\DC3\n\ + \K\n\ + \\STX\EOT\SOH\DC2\EOT\SO\NUL\DLE\SOH\SUB? TODO u5c: new type - https://github.com/utxorpc/spec/pull/167\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX\SO\b\DC4\n\ + \\v\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX\SI\STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\SI\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SI\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SI\DC1\SYN\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SI\EM\SUB\n\ + \<\n\ + \\STX\EOT\STX\DC2\EOT\DC3\NUL\SYN\SOH\SUB0 TODO u5c: replaced plutus_data with just bytes\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX\DC3\b\r\n\ + \2\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX\DC4\STX\DC1\"% Hash of this datum as seen on-chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC4\STX\a\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC4\b\f\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC4\SI\DLE\n\ + \:\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX\NAK\STX\SUB\"- Original cbor-encoded data as seen on-chain\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\NAK\STX\a\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\NAK\b\NAK\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\NAK\CAN\EM\n\ + \e\n\ + \\STX\EOT\ETX\DC2\EOT\SUB\NUL\RS\SOH\SUBY TODO u5c: mint_coin made optional\n\ + \ Represents a custom asset in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETX\SUB\b\r\n\ + \(\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETX\ESC\STX\DC1\"\ESC Name of the custom asset.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\ESC\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\ESC\b\f\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\ESC\SI\DLE\n\ + \A\n\ + \\EOT\EOT\ETX\STX\SOH\DC2\ETX\FS\STX\EM\"4 Quantity of the custom asset in case of an output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX\FS\STX\b\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX\FS\t\DC4\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX\FS\ETB\CAN\n\ + \>\n\ + \\EOT\EOT\ETX\STX\STX\DC2\ETX\GS\STX\US\"1 Quantity of the custom asset in case of a mint.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\EOT\DC2\ETX\GS\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX\GS\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX\GS\DC1\SUB\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX\GS\GS\RS\n\ + \g\n\ + \\STX\EOT\EOT\DC2\EOT\"\NUL%\SOH\SUB[ TODO u5c: redeemer was removed\n\ + \ Represents a multi-asset group in the Cardano blockchain.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETX\"\b\DC2\n\ + \5\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETX#\STX\SYN\"( Policy ID governing the custom assets.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX#\STX\a\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX#\b\DC1\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX#\DC4\NAK\n\ + \%\n\ + \\EOT\EOT\EOT\STX\SOH\DC2\ETX$\STX\FS\"\CAN List of custom assets.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\EOT\DC2\ETX$\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX$\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX$\DC1\ETB\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX$\SUB\ESC\n\ + \n\n\ + \\STX\EOT\ENQ\DC2\EOT)\NUL1\SOH\SUBb Represents a script in Cardano.\n\ + \ TODO u5c: removed native script representation, added plutus_v4\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX)\b\SO\n\ + \\f\n\ + \\EOT\EOT\ENQ\b\NUL\DC2\EOT*\STX0\ETX\n\ + \\f\n\ + \\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX*\b\SO\n\ + \\GS\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\ETX+\EOT\NAK\"\DLE Native script.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX+\EOT\t\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX+\n\ + \\DLE\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX+\DC3\DC4\n\ + \ \n\ + \\EOT\EOT\ENQ\STX\SOH\DC2\ETX,\EOT\CAN\"\DC3 Plutus V1 script.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETX,\EOT\t\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX,\n\ + \\DC3\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX,\SYN\ETB\n\ + \ \n\ + \\EOT\EOT\ENQ\STX\STX\DC2\ETX-\EOT\CAN\"\DC3 Plutus V2 script.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\ETX-\EOT\t\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX-\n\ + \\DC3\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX-\SYN\ETB\n\ + \ \n\ + \\EOT\EOT\ENQ\STX\ETX\DC2\ETX.\EOT\CAN\"\DC3 Plutus V3 script.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\ETX.\EOT\t\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETX.\n\ + \\DC3\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETX.\SYN\ETB\n\ + \ \n\ + \\EOT\EOT\ENQ\STX\EOT\DC2\ETX/\EOT\CAN\"\DC3 Plutus V4 script.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\EOT\ENQ\DC2\ETX/\EOT\t\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\EOT\SOH\DC2\ETX/\n\ + \\DC3\n\ + \\f\n\ + \\ENQ\EOT\ENQ\STX\EOT\ETX\DC2\ETX/\SYN\ETB\n\ + \b\n\ + \\STX\EOT\ACK\DC2\EOT5\NUL8\SOH\SUBV Represents a rational number as a fraction.\n\ + \ TODO u5c increased precision to 64 bits\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ACK\SOH\DC2\ETX5\b\SYN\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\ETX6\STX\SYN\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX6\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX6\b\DC1\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX6\DC4\NAK\n\ + \\v\n\ + \\EOT\EOT\ACK\STX\SOH\DC2\ETX7\STX\EM\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX7\STX\b\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX7\t\DC4\n\ + \\f\n\ + \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX7\ETB\CAN\n\ + \\FS\n\ + \\STX\EOT\a\DC2\EOT=\NUL@\SOH2\DLE PARAMS\n\ + \ ======\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\a\SOH\DC2\ETX=\b\SI\n\ + \\v\n\ + \\EOT\EOT\a\STX\NUL\DC2\ETX>\STX\DC3\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETX>\STX\b\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX>\t\SO\n\ + \\f\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX>\DC1\DC2\n\ + \\v\n\ + \\EOT\EOT\a\STX\SOH\DC2\ETX?\STX\DC4\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETX?\STX\b\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX?\t\SI\n\ + \\f\n\ + \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX?\DC2\DC3\n\ + \\n\ + \\n\ + \\STX\EOT\b\DC2\EOTB\NULE\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\b\SOH\DC2\ETXB\b\DLE\n\ + \\v\n\ + \\EOT\EOT\b\STX\NUL\DC2\ETXC\STX\ESC\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXC\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXC\DC1\SYN\n\ + \\f\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXC\EM\SUB\n\ + \\v\n\ + \\EOT\EOT\b\STX\SOH\DC2\ETXD\STX\FS\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXD\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXD\DC1\ETB\n\ + \\f\n\ + \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXD\SUB\ESC\n\ + \\n\ + \\n\ + \\STX\EOT\t\DC2\EOTG\NULJ\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\t\SOH\DC2\ETXG\b\ETB\n\ + \\v\n\ + \\EOT\EOT\t\STX\NUL\DC2\ETXH\STX\DC3\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXH\STX\b\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXH\t\SO\n\ + \\f\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXH\DC1\DC2\n\ + \\v\n\ + \\EOT\EOT\t\STX\SOH\DC2\ETXI\STX\DC3\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXI\STX\b\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXI\t\SO\n\ + \\f\n\ + \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXI\DC1\DC2\n\ + \\n\ + \\n\ + \\STX\EOT\n\ + \\DC2\EOTL\NULN\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\n\ + \\SOH\DC2\ETXL\b\DC1\n\ + \\v\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\ETXM\STX\FS\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\EOT\DC2\ETXM\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ENQ\DC2\ETXM\v\DLE\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\ETXM\DC1\ETB\n\ + \\f\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\ETXM\SUB\ESC\n\ + \\n\ + \\n\ + \\STX\EOT\v\DC2\EOTP\NULU\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\v\SOH\DC2\ETXP\b\DC2\n\ + \\v\n\ + \\EOT\EOT\v\STX\NUL\DC2\ETXQ\STX\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXQ\STX\v\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXQ\f\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXQ\CAN\EM\n\ + \\v\n\ + \\EOT\EOT\v\STX\SOH\DC2\ETXR\STX\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXR\STX\v\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXR\f\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXR\CAN\EM\n\ + \\v\n\ + \\EOT\EOT\v\STX\STX\DC2\ETXS\STX\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ACK\DC2\ETXS\STX\v\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\SOH\DC2\ETXS\f\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\STX\ETX\DC2\ETXS\CAN\EM\n\ + \\v\n\ + \\EOT\EOT\v\STX\ETX\DC2\ETXT\STX\SUB\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ACK\DC2\ETXT\STX\v\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETXT\f\NAK\n\ + \\f\n\ + \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETXT\CAN\EM\n\ + \\n\ + \\n\ + \\STX\EOT\f\DC2\EOTW\NULY\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\f\SOH\DC2\ETXW\b\CAN\n\ + \\v\n\ + \\EOT\EOT\f\STX\NUL\DC2\ETXX\STX)\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXX\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXX\v\EM\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXX\SUB$\n\ + \\f\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXX'(\n\ + \\n\ + \\n\ + \\STX\EOT\r\DC2\EOT[\NUL{\SOH\n\ + \\n\ + \\n\ + \\ETX\EOT\r\SOH\DC2\ETX[\b\SI\n\ + \1\n\ + \\EOT\EOT\r\STX\NUL\DC2\ETX\\\STX!\"$ The number of coins per UTXO byte.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ENQ\DC2\ETX\\\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETX\\\t\FS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETX\\\US \n\ + \,\n\ + \\EOT\EOT\r\STX\SOH\DC2\ETX]\STX\EM\"\US The maximum transaction size.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ENQ\DC2\ETX]\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETX]\t\DC4\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETX]\ETB\CAN\n\ + \+\n\ + \\EOT\EOT\r\STX\STX\DC2\ETX^\STX!\"\RS The minimum fee coefficient.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\STX\ENQ\DC2\ETX^\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\STX\SOH\DC2\ETX^\t\FS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\STX\ETX\DC2\ETX^\US \n\ + \(\n\ + \\EOT\EOT\r\STX\ETX\DC2\ETX_\STX\RS\"\ESC The minimum fee constant.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETX\ENQ\DC2\ETX_\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETX\SOH\DC2\ETX_\t\EM\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETX\ETX\DC2\ETX_\FS\GS\n\ + \+\n\ + \\EOT\EOT\r\STX\EOT\DC2\ETX`\STX!\"\RS The maximum block body size.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EOT\ENQ\DC2\ETX`\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EOT\SOH\DC2\ETX`\t\FS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EOT\ETX\DC2\ETX`\US \n\ + \-\n\ + \\EOT\EOT\r\STX\ENQ\DC2\ETXa\STX#\" The maximum block header size.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ENQ\ENQ\DC2\ETXa\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ENQ\SOH\DC2\ETXa\t\RS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ENQ\ETX\DC2\ETXa!\"\n\ + \%\n\ + \\EOT\EOT\r\STX\ACK\DC2\ETXb\STX\US\"\CAN The stake key deposit.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ACK\ENQ\DC2\ETXb\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ACK\SOH\DC2\ETXb\t\SUB\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ACK\ETX\DC2\ETXb\GS\RS\n\ + \ \n\ + \\EOT\EOT\r\STX\a\DC2\ETXc\STX\SUB\"\DC3 The pool deposit.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\a\ENQ\DC2\ETXc\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\a\SOH\DC2\ETXc\t\NAK\n\ + \\f\n\ + \\ENQ\EOT\r\STX\a\ETX\DC2\ETXc\CAN\EM\n\ + \/\n\ + \\EOT\EOT\r\STX\b\DC2\ETXd\STX)\"\" The pool retirement epoch bound.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\b\ENQ\DC2\ETXd\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\b\SOH\DC2\ETXd\t$\n\ + \\f\n\ + \\ENQ\EOT\r\STX\b\ETX\DC2\ETXd'(\n\ + \+\n\ + \\EOT\EOT\r\STX\t\DC2\ETXe\STX&\"\RS The desired number of pools.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\t\ENQ\DC2\ETXe\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\t\SOH\DC2\ETXe\t \n\ + \\f\n\ + \\ENQ\EOT\r\STX\t\ETX\DC2\ETXe#%\n\ + \\"\n\ + \\EOT\EOT\r\STX\n\ + \\DC2\ETXf\STX%\"\NAK The pool influence.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\n\ + \\ACK\DC2\ETXf\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\r\STX\n\ + \\SOH\DC2\ETXf\DC1\US\n\ + \\f\n\ + \\ENQ\EOT\r\STX\n\ + \\ETX\DC2\ETXf\"$\n\ + \&\n\ + \\EOT\EOT\r\STX\v\DC2\ETXg\STX)\"\EM The monetary expansion.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\v\ACK\DC2\ETXg\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\r\STX\v\SOH\DC2\ETXg\DC1#\n\ + \\f\n\ + \\ENQ\EOT\r\STX\v\ETX\DC2\ETXg&(\n\ + \&\n\ + \\EOT\EOT\r\STX\f\DC2\ETXh\STX)\"\EM The treasury expansion.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\f\ACK\DC2\ETXh\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\r\STX\f\SOH\DC2\ETXh\DC1#\n\ + \\f\n\ + \\ENQ\EOT\r\STX\f\ETX\DC2\ETXh&(\n\ + \%\n\ + \\EOT\EOT\r\STX\r\DC2\ETXi\STX\FS\"\CAN The minimum pool cost.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\r\ENQ\DC2\ETXi\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\r\SOH\DC2\ETXi\t\SYN\n\ + \\f\n\ + \\ENQ\EOT\r\STX\r\ETX\DC2\ETXi\EM\ESC\n\ + \3\n\ + \\EOT\EOT\r\STX\SO\DC2\ETXj\STX(\"& The maximum value size in an output.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SO\ACK\DC2\ETXj\STX\DC1\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SO\SOH\DC2\ETXj\DC2\"\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SO\ETX\DC2\ETXj%'\n\ + \&\n\ + \\EOT\EOT\r\STX\SI\DC2\ETXk\STX\GS\"\EM The maximum value size.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SI\ENQ\DC2\ETXk\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SI\SOH\DC2\ETXk\t\ETB\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SI\ETX\DC2\ETXk\SUB\FS\n\ + \n\n\ + \\EOT\EOT\r\STX\DLE\DC2\ETXl\STX$\"a Percentage of the txfee which must be provided as collateral when including non-native scripts.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DLE\ENQ\DC2\ETXl\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DLE\SOH\DC2\ETXl\t\RS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DLE\ETX\DC2\ETXl!#\n\ + \-\n\ + \\EOT\EOT\r\STX\DC1\DC2\ETXm\STX$\" The maximum collateral inputs.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC1\ENQ\DC2\ETXm\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC1\SOH\DC2\ETXm\t\RS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC1\ETX\DC2\ETXm!#\n\ + \\US\n\ + \\EOT\EOT\r\STX\DC2\DC2\ETXn\STX\RS\"\DC2 The cost models.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC2\ACK\DC2\ETXn\STX\f\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC2\SOH\DC2\ETXn\r\CAN\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC2\ETX\DC2\ETXn\ESC\GS\n\ + \\SUB\n\ + \\EOT\EOT\r\STX\DC3\DC2\ETXo\STX\ETB\"\r The prices.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC3\ACK\DC2\ETXo\STX\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC3\SOH\DC2\ETXo\v\DC1\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC3\ETX\DC2\ETXo\DC4\SYN\n\ + \;\n\ + \\EOT\EOT\r\STX\DC4\DC2\ETXp\STX3\". The maximum execution units per transaction.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC4\ACK\DC2\ETXp\STX\t\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC4\SOH\DC2\ETXp\n\ + \-\n\ + \\f\n\ + \\ENQ\EOT\r\STX\DC4\ETX\DC2\ETXp02\n\ + \5\n\ + \\EOT\EOT\r\STX\NAK\DC2\ETXq\STX-\"( The maximum execution units per block.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NAK\ACK\DC2\ETXq\STX\t\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NAK\SOH\DC2\ETXq\n\ + \'\n\ + \\f\n\ + \\ENQ\EOT\r\STX\NAK\ETX\DC2\ETXq*,\n\ + \9\n\ + \\EOT\EOT\r\STX\SYN\DC2\ETXr\STX7\", The minimum fee per script reference byte.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SYN\ACK\DC2\ETXr\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SYN\SOH\DC2\ETXr\DC11\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SYN\ETX\DC2\ETXr46\n\ + \*\n\ + \\EOT\EOT\r\STX\ETB\DC2\ETXs\STX/\"\GS The pool voting thresholds.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETB\ACK\DC2\ETXs\STX\DC2\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETB\SOH\DC2\ETXs\DC3)\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ETB\ETX\DC2\ETXs,.\n\ + \*\n\ + \\EOT\EOT\r\STX\CAN\DC2\ETXt\STX/\"\GS The drep voting thresholds.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\CAN\ACK\DC2\ETXt\STX\DC2\n\ + \\f\n\ + \\ENQ\EOT\r\STX\CAN\SOH\DC2\ETXt\DC3)\n\ + \\f\n\ + \\ENQ\EOT\r\STX\CAN\ETX\DC2\ETXt,.\n\ + \*\n\ + \\EOT\EOT\r\STX\EM\DC2\ETXu\STX!\"\GS The minimum committee size.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EM\ENQ\DC2\ETXu\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EM\SOH\DC2\ETXu\t\ESC\n\ + \\f\n\ + \\ENQ\EOT\r\STX\EM\ETX\DC2\ETXu\RS \n\ + \(\n\ + \\EOT\EOT\r\STX\SUB\DC2\ETXv\STX#\"\ESC The committee term limit.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SUB\ENQ\DC2\ETXv\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SUB\SOH\DC2\ETXv\t\GS\n\ + \\f\n\ + \\ENQ\EOT\r\STX\SUB\ETX\DC2\ETXv \"\n\ + \5\n\ + \\EOT\EOT\r\STX\ESC\DC2\ETXw\STX0\"( The governance action validity period.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ESC\ENQ\DC2\ETXw\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ESC\SOH\DC2\ETXw\t*\n\ + \\f\n\ + \\ENQ\EOT\r\STX\ESC\ETX\DC2\ETXw-/\n\ + \-\n\ + \\EOT\EOT\r\STX\FS\DC2\ETXx\STX(\" The governance action deposit.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\FS\ENQ\DC2\ETXx\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\FS\SOH\DC2\ETXx\t\"\n\ + \\f\n\ + \\ENQ\EOT\r\STX\FS\ETX\DC2\ETXx%'\n\ + \ \n\ + \\EOT\EOT\r\STX\GS\DC2\ETXy\STX\ESC\"\DC3 The drep deposit.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\GS\ENQ\DC2\ETXy\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\GS\SOH\DC2\ETXy\t\NAK\n\ + \\f\n\ + \\ENQ\EOT\r\STX\GS\ETX\DC2\ETXy\CAN\SUB\n\ + \*\n\ + \\EOT\EOT\r\STX\RS\DC2\ETXz\STX%\"\GS The drep inactivity period.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\r\STX\RS\ENQ\DC2\ETXz\STX\b\n\ + \\f\n\ + \\ENQ\EOT\r\STX\RS\SOH\DC2\ETXz\t\US\n\ + \\f\n\ + \\ENQ\EOT\r\STX\RS\ETX\DC2\ETXz\"$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 new file mode 100644 index 0000000000..29c4bde3dc --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Cardano/Cardano_Fields.hs @@ -0,0 +1,524 @@ +{- 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" +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" +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" +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" +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" +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" +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" +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'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'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'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'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'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" +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" +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" +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" +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" +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'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'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 new file mode 100644 index 0000000000..177debc49d --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Query/Query.hs @@ -0,0 +1,2064 @@ +{- 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+ + 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 :: + 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" +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 :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'cardanoAddresses" a) => + Lens.Family2.LensLike' f s a +maybe'cardanoAddresses + = Data.ProtoLens.Field.field @"maybe'cardanoAddresses" +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 :: + 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'queryArgs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'queryArgs" a) => + Lens.Family2.LensLike' f s a +maybe'queryArgs = Data.ProtoLens.Field.field @"maybe'queryArgs" +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'txoRefs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'txoRefs" a) => + Lens.Family2.LensLike' f s a +maybe'txoRefs = Data.ProtoLens.Field.field @"maybe'txoRefs" +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" +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" +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" +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" +txoRefs :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "txoRefs" a) => + Lens.Family2.LensLike' f s a +txoRefs = Data.ProtoLens.Field.field @"txoRefs" +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'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 diff --git a/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit.hs b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit.hs new file mode 100644 index 0000000000..64fbd22d4a --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit.hs @@ -0,0 +1,812 @@ +{- 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 ( + SubmitService(..), AnyChainTx(), AnyChainTx'Type(..), + _AnyChainTx'Raw, SubmitTxRequest(), SubmitTxResponse(), + TxSubmitResult(), TxSubmitResult'Result(..), _TxSubmitResult'Ref, + _TxSubmitResult'ErrorMessage + ) 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.Submit.Submit_Fields.maybe'type'' @:: Lens' AnyChainTx (Prelude.Maybe AnyChainTx'Type)@ + * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'raw' @:: Lens' AnyChainTx (Prelude.Maybe Data.ByteString.ByteString)@ + * 'Proto.Utxorpc.V1alpha.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.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 new file mode 100644 index 0000000000..a76c34d8b1 --- /dev/null +++ b/cardano-rpc/gen/Proto/Utxorpc/V1alpha/Submit/Submit_Fields.hs @@ -0,0 +1,97 @@ +{- 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