utxorpc 0.0.7.0 → 0.0.9.0

raw patch · 4 files changed

+16154/−15891 lines, 4 filesdep ~proto-lens-runtimePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: proto-lens-runtime

API changes (from Hackage documentation)

Files

• Proto/Utxorpc/V1alpha/Cardano/Cardano.hs +16002/−15761
• Proto/Utxorpc/V1alpha/Cardano/Cardano_Fields.hs +28/−6
• Proto/Utxorpc/V1alpha/Query/Query.hs +122/−122
• utxorpc.cabal +2/−2

@@ -11,15764 +11,16005 @@         _Certificate'StakeDeregistration, _Certificate'StakeDelegation,         _Certificate'PoolRegistration, _Certificate'PoolRetirement,         _Certificate'GenesisKeyDelegation, _Certificate'MirCert,-        Collateral(), Constr(), CostModel(), CostModels(), EvalError(),-        EvalTrace(), ExPrices(), ExUnits(), GenesisKeyDelegationCert(),-        Metadata(), Metadatum(), Metadatum'Metadatum(..), _Metadatum'Int,-        _Metadatum'Bytes, _Metadatum'Text, _Metadatum'Array,-        _Metadatum'Map, MetadatumArray(), MetadatumMap(), MetadatumPair(),-        MirCert(), MirSource(..), MirSource(), MirSource'UnrecognizedValue,-        MirTarget(), Multiasset(), NativeScript(),-        NativeScript'NativeScript(..), _NativeScript'ScriptPubkey,-        _NativeScript'ScriptAll, _NativeScript'ScriptAny,-        _NativeScript'ScriptNOfK, _NativeScript'InvalidBefore,-        _NativeScript'InvalidHereafter, NativeScriptList(), PParams(),-        PlutusData(), PlutusData'PlutusData(..), _PlutusData'Constr,-        _PlutusData'Map, _PlutusData'BigInt, _PlutusData'BoundedBytes,-        _PlutusData'Array, PlutusDataArray(), PlutusDataMap(),-        PlutusDataPair(), PoolMetadata(), PoolRegistrationCert(),-        PoolRetirementCert(), ProtocolVersion(), RationalNumber(),-        Redeemer(), RedeemerPurpose(..), RedeemerPurpose(),-        RedeemerPurpose'UnrecognizedValue, Relay(), Script(),-        Script'Script(..), _Script'Native, _Script'PlutusV1,-        _Script'PlutusV2, ScriptNOfK(), StakeCredential(),-        StakeCredential'StakeCredential(..), _StakeCredential'AddrKeyHash,-        _StakeCredential'ScriptHash, StakeDelegationCert(), Tx(), TxEval(),-        TxInput(), TxOutput(), TxOutputPattern(), TxPattern(),-        TxValidity(), VKeyWitness(), Withdrawal(), WitnessSet()-    ) where-import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism-import qualified Data.ProtoLens.Runtime.Prelude as Prelude-import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int-import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid-import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word-import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum-import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types-import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2-import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked-import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text-import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map-import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString-import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8-import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding-import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector-import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic-import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed-import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.exactAddress' @:: Lens' AddressPattern Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.paymentPart' @:: Lens' AddressPattern Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.delegationPart' @:: Lens' AddressPattern Data.ByteString.ByteString@ -}-data AddressPattern-  = AddressPattern'_constructor {_AddressPattern'exactAddress :: !Data.ByteString.ByteString,-                                 _AddressPattern'paymentPart :: !Data.ByteString.ByteString,-                                 _AddressPattern'delegationPart :: !Data.ByteString.ByteString,-                                 _AddressPattern'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show AddressPattern where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField AddressPattern "exactAddress" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AddressPattern'exactAddress-           (\ x__ y__ -> x__ {_AddressPattern'exactAddress = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField AddressPattern "paymentPart" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AddressPattern'paymentPart-           (\ x__ y__ -> x__ {_AddressPattern'paymentPart = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField AddressPattern "delegationPart" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AddressPattern'delegationPart-           (\ x__ y__ -> x__ {_AddressPattern'delegationPart = y__}))-        Prelude.id-instance Data.ProtoLens.Message AddressPattern where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.AddressPattern"-  packedMessageDescriptor _-    = "\n\-      \\SOAddressPattern\DC2#\n\-      \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\-      \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\-      \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        exactAddress__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "exact_address"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"exactAddress")) ::-              Data.ProtoLens.FieldDescriptor AddressPattern-        paymentPart__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "payment_part"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"paymentPart")) ::-              Data.ProtoLens.FieldDescriptor AddressPattern-        delegationPart__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "delegation_part"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"delegationPart")) ::-              Data.ProtoLens.FieldDescriptor AddressPattern-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, exactAddress__field_descriptor),-           (Data.ProtoLens.Tag 2, paymentPart__field_descriptor),-           (Data.ProtoLens.Tag 3, delegationPart__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _AddressPattern'_unknownFields-        (\ x__ y__ -> x__ {_AddressPattern'_unknownFields = y__})-  defMessage-    = AddressPattern'_constructor-        {_AddressPattern'exactAddress = Data.ProtoLens.fieldDefault,-         _AddressPattern'paymentPart = Data.ProtoLens.fieldDefault,-         _AddressPattern'delegationPart = Data.ProtoLens.fieldDefault,-         _AddressPattern'_unknownFields = []}-  parseMessage-    = let-        loop ::-          AddressPattern-          -> Data.ProtoLens.Encoding.Bytes.Parser AddressPattern-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "exact_address"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"exactAddress") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "payment_part"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentPart") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "delegation_part"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"delegationPart") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "AddressPattern"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v-                  = Lens.Family2.view (Data.ProtoLens.Field.field @"exactAddress") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let-                   _v-                     = Lens.Family2.view (Data.ProtoLens.Field.field @"paymentPart") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                ((Data.Monoid.<>)-                   (let-                      _v-                        = Lens.Family2.view-                            (Data.ProtoLens.Field.field @"delegationPart") _x-                    in-                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                          Data.Monoid.mempty-                      else-                          (Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                            ((\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                               _v))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData AddressPattern where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_AddressPattern'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_AddressPattern'exactAddress x__)-                (Control.DeepSeq.deepseq-                   (_AddressPattern'paymentPart x__)-                   (Control.DeepSeq.deepseq (_AddressPattern'delegationPart x__) ())))-{- | Fields :-     -         * 'Proto.Utxorpc.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@ -}-data Asset-  = Asset'_constructor {_Asset'name :: !Data.ByteString.ByteString,-                        _Asset'outputCoin :: !Data.Word.Word64,-                        _Asset'mintCoin :: !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__}))-        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\ESC\n\-      \\tmint_coin\CAN\ETX \SOH(\ETXR\bmintCoin"-  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.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"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 = Data.ProtoLens.fieldDefault,-         _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.<>)-                   (let-                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"mintCoin") _x-                    in-                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                          Data.Monoid.mempty-                      else-                          (Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                            ((Prelude..)-                               Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))-                   (Data.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.policyId' @:: Lens' AssetPattern Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.assetName' @:: Lens' AssetPattern Data.ByteString.ByteString@ -}-data AssetPattern-  = AssetPattern'_constructor {_AssetPattern'policyId :: !Data.ByteString.ByteString,-                               _AssetPattern'assetName :: !Data.ByteString.ByteString,-                               _AssetPattern'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show AssetPattern where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField AssetPattern "policyId" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AssetPattern'policyId-           (\ x__ y__ -> x__ {_AssetPattern'policyId = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField AssetPattern "assetName" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AssetPattern'assetName-           (\ x__ y__ -> x__ {_AssetPattern'assetName = y__}))-        Prelude.id-instance Data.ProtoLens.Message AssetPattern where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.AssetPattern"-  packedMessageDescriptor _-    = "\n\-      \\fAssetPattern\DC2\ESC\n\-      \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\-      \\n\-      \asset_name\CAN\STX \SOH(\fR\tassetName"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        policyId__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "policy_id"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"policyId")) ::-              Data.ProtoLens.FieldDescriptor AssetPattern-        assetName__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "asset_name"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"assetName")) ::-              Data.ProtoLens.FieldDescriptor AssetPattern-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, policyId__field_descriptor),-           (Data.ProtoLens.Tag 2, assetName__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _AssetPattern'_unknownFields-        (\ x__ y__ -> x__ {_AssetPattern'_unknownFields = y__})-  defMessage-    = AssetPattern'_constructor-        {_AssetPattern'policyId = Data.ProtoLens.fieldDefault,-         _AssetPattern'assetName = Data.ProtoLens.fieldDefault,-         _AssetPattern'_unknownFields = []}-  parseMessage-    = let-        loop ::-          AssetPattern -> Data.ProtoLens.Encoding.Bytes.Parser AssetPattern-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "policy_id"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"policyId") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "asset_name"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"assetName") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "AssetPattern"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"policyId") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let-                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"assetName") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData AssetPattern where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_AssetPattern'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_AssetPattern'policyId x__)-                (Control.DeepSeq.deepseq (_AssetPattern'assetName x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.metadata' @:: Lens' AuxData [Metadata]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'metadata' @:: Lens' AuxData (Data.Vector.Vector Metadata)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scripts' @:: Lens' AuxData [Script]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'scripts' @:: Lens' AuxData (Data.Vector.Vector Script)@ -}-data AuxData-  = AuxData'_constructor {_AuxData'metadata :: !(Data.Vector.Vector Metadata),-                          _AuxData'scripts :: !(Data.Vector.Vector Script),-                          _AuxData'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show AuxData where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField AuxData "metadata" [Metadata] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AuxData'metadata (\ x__ y__ -> x__ {_AuxData'metadata = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField AuxData "vec'metadata" (Data.Vector.Vector Metadata) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AuxData'metadata (\ x__ y__ -> x__ {_AuxData'metadata = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField AuxData "scripts" [Script] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AuxData'scripts (\ x__ y__ -> x__ {_AuxData'scripts = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField AuxData "vec'scripts" (Data.Vector.Vector Script) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _AuxData'scripts (\ x__ y__ -> x__ {_AuxData'scripts = y__}))-        Prelude.id-instance Data.ProtoLens.Message AuxData where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.AuxData"-  packedMessageDescriptor _-    = "\n\-      \\aAuxData\DC2=\n\-      \\bmetadata\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.cardano.MetadataR\bmetadata\DC29\n\-      \\ascripts\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ascripts"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        metadata__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "metadata"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Metadata)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"metadata")) ::-              Data.ProtoLens.FieldDescriptor AuxData-        scripts__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "scripts"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Script)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"scripts")) ::-              Data.ProtoLens.FieldDescriptor AuxData-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, metadata__field_descriptor),-           (Data.ProtoLens.Tag 2, scripts__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _AuxData'_unknownFields-        (\ x__ y__ -> x__ {_AuxData'_unknownFields = y__})-  defMessage-    = AuxData'_constructor-        {_AuxData'metadata = Data.Vector.Generic.empty,-         _AuxData'scripts = Data.Vector.Generic.empty,-         _AuxData'_unknownFields = []}-  parseMessage-    = let-        loop ::-          AuxData-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadata-             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script-                -> Data.ProtoLens.Encoding.Bytes.Parser AuxData-        loop x mutable'metadata mutable'scripts-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                              mutable'metadata)-                      frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                             mutable'scripts)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'metadata") frozen'metadata-                              (Lens.Family2.set-                                 (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x)))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "metadata"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'metadata y)-                                loop x v mutable'scripts-                        18-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "scripts"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'scripts y)-                                loop x mutable'metadata v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'metadata mutable'scripts-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                    Data.ProtoLens.Encoding.Growing.new-              mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                   Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'metadata mutable'scripts)-          "AuxData"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view-                   (Data.ProtoLens.Field.field @"vec'metadata") _x))-             ((Data.Monoid.<>)-                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                   (\ _v-                      -> (Data.Monoid.<>)-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                           ((Prelude..)-                              (\ bs-                                 -> (Data.Monoid.<>)-                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                         (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Data.ProtoLens.encodeMessage _v))-                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'scripts") _x))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData AuxData where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_AuxData'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_AuxData'metadata x__)-                (Control.DeepSeq.deepseq (_AuxData'scripts x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' BigInt (Prelude.Maybe BigInt'BigInt)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'int' @:: Lens' BigInt (Prelude.Maybe Data.Int.Int64)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.int' @:: Lens' BigInt Data.Int.Int64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigUInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigUInt' @:: Lens' BigInt Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigNInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigNInt' @:: Lens' BigInt Data.ByteString.ByteString@ -}-data BigInt-  = BigInt'_constructor {_BigInt'bigInt :: !(Prelude.Maybe BigInt'BigInt),-                         _BigInt'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show BigInt where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-data BigInt'BigInt-  = BigInt'Int !Data.Int.Int64 |-    BigInt'BigUInt !Data.ByteString.ByteString |-    BigInt'BigNInt !Data.ByteString.ByteString-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField BigInt "maybe'bigInt" (Prelude.Maybe BigInt'BigInt) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField BigInt "maybe'int" (Prelude.Maybe Data.Int.Int64) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap BigInt'Int y__))-instance Data.ProtoLens.Field.HasField BigInt "int" Data.Int.Int64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap BigInt'Int y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField BigInt "maybe'bigUInt" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__))-instance Data.ProtoLens.Field.HasField BigInt "bigUInt" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField BigInt "maybe'bigNInt" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__))-instance Data.ProtoLens.Field.HasField BigInt "bigNInt" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Message BigInt where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.BigInt"-  packedMessageDescriptor _-    = "\n\-      \\ACKBigInt\DC2\DC2\n\-      \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\FS\n\-      \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\-      \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\-      \\abig_int"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        int__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "int"-              (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'int")) ::-              Data.ProtoLens.FieldDescriptor BigInt-        bigUInt__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "big_u_int"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'bigUInt")) ::-              Data.ProtoLens.FieldDescriptor BigInt-        bigNInt__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "big_n_int"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'bigNInt")) ::-              Data.ProtoLens.FieldDescriptor BigInt-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, int__field_descriptor),-           (Data.ProtoLens.Tag 2, bigUInt__field_descriptor),-           (Data.ProtoLens.Tag 3, bigNInt__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _BigInt'_unknownFields-        (\ x__ y__ -> x__ {_BigInt'_unknownFields = y__})-  defMessage-    = BigInt'_constructor-        {_BigInt'bigInt = Prelude.Nothing, _BigInt'_unknownFields = []}-  parseMessage-    = let-        loop :: BigInt -> Data.ProtoLens.Encoding.Bytes.Parser BigInt-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "int"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "big_u_int"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigUInt") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "big_n_int"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigNInt") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "BigInt"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'bigInt") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just (BigInt'Int v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                       ((Prelude..)-                          Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v)-                (Prelude.Just (BigInt'BigUInt v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v)-                (Prelude.Just (BigInt'BigNInt v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData BigInt where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_BigInt'_unknownFields x__)-             (Control.DeepSeq.deepseq (_BigInt'bigInt x__) ())-instance Control.DeepSeq.NFData BigInt'BigInt where-  rnf (BigInt'Int x__) = Control.DeepSeq.rnf x__-  rnf (BigInt'BigUInt x__) = Control.DeepSeq.rnf x__-  rnf (BigInt'BigNInt x__) = Control.DeepSeq.rnf x__-_BigInt'Int ::-  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.Int.Int64-_BigInt'Int-  = Data.ProtoLens.Prism.prism'-      BigInt'Int-      (\ p__-         -> case p__ of-              (BigInt'Int p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_BigInt'BigUInt ::-  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString-_BigInt'BigUInt-  = Data.ProtoLens.Prism.prism'-      BigInt'BigUInt-      (\ p__-         -> case p__ of-              (BigInt'BigUInt p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_BigInt'BigNInt ::-  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString-_BigInt'BigNInt-  = Data.ProtoLens.Prism.prism'-      BigInt'BigNInt-      (\ p__-         -> case p__ of-              (BigInt'BigNInt p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.header' @:: Lens' Block BlockHeader@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'header' @:: Lens' Block (Prelude.Maybe BlockHeader)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.body' @:: Lens' Block BlockBody@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'body' @:: Lens' Block (Prelude.Maybe BlockBody)@ -}-data Block-  = Block'_constructor {_Block'header :: !(Prelude.Maybe BlockHeader),-                        _Block'body :: !(Prelude.Maybe BlockBody),-                        _Block'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Block where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Block "header" BlockHeader where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Block'header (\ x__ y__ -> x__ {_Block'header = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Block "maybe'header" (Prelude.Maybe BlockHeader) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Block'header (\ x__ y__ -> x__ {_Block'header = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Block "body" BlockBody where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Block'body (\ x__ y__ -> x__ {_Block'body = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Block "maybe'body" (Prelude.Maybe BlockBody) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Block'body (\ x__ y__ -> x__ {_Block'body = y__}))-        Prelude.id-instance Data.ProtoLens.Message Block where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Block"-  packedMessageDescriptor _-    = "\n\-      \\ENQBlock\DC2<\n\-      \\ACKheader\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.cardano.BlockHeaderR\ACKheader\DC26\n\-      \\EOTbody\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.BlockBodyR\EOTbody"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        header__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "header"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor BlockHeader)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'header")) ::-              Data.ProtoLens.FieldDescriptor Block-        body__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "body"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor BlockBody)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'body")) ::-              Data.ProtoLens.FieldDescriptor Block-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, header__field_descriptor),-           (Data.ProtoLens.Tag 2, body__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Block'_unknownFields-        (\ x__ y__ -> x__ {_Block'_unknownFields = y__})-  defMessage-    = Block'_constructor-        {_Block'header = Prelude.Nothing, _Block'body = Prelude.Nothing,-         _Block'_unknownFields = []}-  parseMessage-    = let-        loop :: Block -> Data.ProtoLens.Encoding.Bytes.Parser Block-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "header"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "body"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Block"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'header") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'body") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData Block where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Block'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Block'header x__) (Control.DeepSeq.deepseq (_Block'body x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.tx' @:: Lens' BlockBody [Tx]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'tx' @:: Lens' BlockBody (Data.Vector.Vector Tx)@ -}-data BlockBody-  = BlockBody'_constructor {_BlockBody'tx :: !(Data.Vector.Vector Tx),-                            _BlockBody'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show BlockBody where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField BlockBody "tx" [Tx] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BlockBody'tx (\ x__ y__ -> x__ {_BlockBody'tx = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField BlockBody "vec'tx" (Data.Vector.Vector Tx) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BlockBody'tx (\ x__ y__ -> x__ {_BlockBody'tx = y__}))-        Prelude.id-instance Data.ProtoLens.Message BlockBody where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.BlockBody"-  packedMessageDescriptor _-    = "\n\-      \\tBlockBody\DC2+\n\-      \\STXtx\CAN\SOH \ETX(\v2\ESC.utxorpc.v1alpha.cardano.TxR\STXtx"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        tx__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "tx"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Tx)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"tx")) ::-              Data.ProtoLens.FieldDescriptor BlockBody-      in Data.Map.fromList [(Data.ProtoLens.Tag 1, tx__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _BlockBody'_unknownFields-        (\ x__ y__ -> x__ {_BlockBody'_unknownFields = y__})-  defMessage-    = BlockBody'_constructor-        {_BlockBody'tx = Data.Vector.Generic.empty,-         _BlockBody'_unknownFields = []}-  parseMessage-    = let-        loop ::-          BlockBody-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Tx-             -> Data.ProtoLens.Encoding.Bytes.Parser BlockBody-        loop x mutable'tx-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                     (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tx)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'tx") frozen'tx x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "tx"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'tx y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'tx-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                              Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'tx)-          "BlockBody"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tx") _x))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData BlockBody where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_BlockBody'_unknownFields x__)-             (Control.DeepSeq.deepseq (_BlockBody'tx x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.slot' @:: Lens' BlockHeader Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' BlockHeader Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.height' @:: Lens' BlockHeader Data.Word.Word64@ -}-data BlockHeader-  = BlockHeader'_constructor {_BlockHeader'slot :: !Data.Word.Word64,-                              _BlockHeader'hash :: !Data.ByteString.ByteString,-                              _BlockHeader'height :: !Data.Word.Word64,-                              _BlockHeader'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show BlockHeader where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField BlockHeader "slot" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BlockHeader'slot (\ x__ y__ -> x__ {_BlockHeader'slot = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField BlockHeader "hash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BlockHeader'hash (\ x__ y__ -> x__ {_BlockHeader'hash = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField BlockHeader "height" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _BlockHeader'height (\ x__ y__ -> x__ {_BlockHeader'height = y__}))-        Prelude.id-instance Data.ProtoLens.Message BlockHeader where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.BlockHeader"-  packedMessageDescriptor _-    = "\n\-      \\vBlockHeader\DC2\DC2\n\-      \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\-      \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\-      \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        slot__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "slot"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) ::-              Data.ProtoLens.FieldDescriptor BlockHeader-        hash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::-              Data.ProtoLens.FieldDescriptor BlockHeader-        height__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "height"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) ::-              Data.ProtoLens.FieldDescriptor BlockHeader-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, slot__field_descriptor),-           (Data.ProtoLens.Tag 2, hash__field_descriptor),-           (Data.ProtoLens.Tag 3, height__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _BlockHeader'_unknownFields-        (\ x__ y__ -> x__ {_BlockHeader'_unknownFields = y__})-  defMessage-    = BlockHeader'_constructor-        {_BlockHeader'slot = Data.ProtoLens.fieldDefault,-         _BlockHeader'hash = Data.ProtoLens.fieldDefault,-         _BlockHeader'height = Data.ProtoLens.fieldDefault,-         _BlockHeader'_unknownFields = []}-  parseMessage-    = let-        loop ::-          BlockHeader -> Data.ProtoLens.Encoding.Bytes.Parser BlockHeader-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "slot"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "hash"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)-                        24-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "height"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "BlockHeader"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-             ((Data.Monoid.<>)-                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                ((Data.Monoid.<>)-                   (let-                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"height") _x-                    in-                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                          Data.Monoid.mempty-                      else-                          (Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData BlockHeader where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_BlockHeader'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_BlockHeader'slot x__)-                (Control.DeepSeq.deepseq-                   (_BlockHeader'hash x__)-                   (Control.DeepSeq.deepseq (_BlockHeader'height x__) ())))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' Certificate Redeemer@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Certificate (Prelude.Maybe Redeemer)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'certificate' @:: Lens' Certificate (Prelude.Maybe Certificate'Certificate)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeRegistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeRegistration' @:: Lens' Certificate StakeCredential@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeDeregistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeDeregistration' @:: Lens' Certificate StakeCredential@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeDelegation' @:: Lens' Certificate (Prelude.Maybe StakeDelegationCert)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeDelegation' @:: Lens' Certificate StakeDelegationCert@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolRegistration' @:: Lens' Certificate (Prelude.Maybe PoolRegistrationCert)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRegistration' @:: Lens' Certificate PoolRegistrationCert@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolRetirement' @:: Lens' Certificate (Prelude.Maybe PoolRetirementCert)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRetirement' @:: Lens' Certificate PoolRetirementCert@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'genesisKeyDelegation' @:: Lens' Certificate (Prelude.Maybe GenesisKeyDelegationCert)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.genesisKeyDelegation' @:: Lens' Certificate GenesisKeyDelegationCert@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mirCert' @:: Lens' Certificate (Prelude.Maybe MirCert)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mirCert' @:: Lens' Certificate MirCert@ -}-data Certificate-  = Certificate'_constructor {_Certificate'redeemer :: !(Prelude.Maybe Redeemer),-                              _Certificate'certificate :: !(Prelude.Maybe Certificate'Certificate),-                              _Certificate'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Certificate where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-data Certificate'Certificate-  = Certificate'StakeRegistration !StakeCredential |-    Certificate'StakeDeregistration !StakeCredential |-    Certificate'StakeDelegation !StakeDelegationCert |-    Certificate'PoolRegistration !PoolRegistrationCert |-    Certificate'PoolRetirement !PoolRetirementCert |-    Certificate'GenesisKeyDelegation !GenesisKeyDelegationCert |-    Certificate'MirCert !MirCert-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField Certificate "redeemer" Redeemer where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'redeemer-           (\ x__ y__ -> x__ {_Certificate'redeemer = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Certificate "maybe'redeemer" (Prelude.Maybe Redeemer) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'redeemer-           (\ x__ y__ -> x__ {_Certificate'redeemer = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Certificate "maybe'certificate" (Prelude.Maybe Certificate'Certificate) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeRegistration" (Prelude.Maybe StakeCredential) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Certificate'StakeRegistration x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Certificate'StakeRegistration y__))-instance Data.ProtoLens.Field.HasField Certificate "stakeRegistration" StakeCredential where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Certificate'StakeRegistration x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Certificate'StakeRegistration y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDeregistration" (Prelude.Maybe StakeCredential) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Certificate'StakeDeregistration x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Certificate'StakeDeregistration y__))-instance Data.ProtoLens.Field.HasField Certificate "stakeDeregistration" StakeCredential where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Certificate'StakeDeregistration x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Certificate'StakeDeregistration y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDelegation" (Prelude.Maybe StakeDelegationCert) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Certificate'StakeDelegation x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Certificate'StakeDelegation y__))-instance Data.ProtoLens.Field.HasField Certificate "stakeDelegation" StakeDelegationCert where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Certificate'StakeDelegation x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Certificate'StakeDelegation y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRegistration" (Prelude.Maybe PoolRegistrationCert) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Certificate'PoolRegistration x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Certificate'PoolRegistration y__))-instance Data.ProtoLens.Field.HasField Certificate "poolRegistration" PoolRegistrationCert where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Certificate'PoolRegistration x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Certificate'PoolRegistration y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRetirement" (Prelude.Maybe PoolRetirementCert) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Certificate'PoolRetirement x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Certificate'PoolRetirement y__))-instance Data.ProtoLens.Field.HasField Certificate "poolRetirement" PoolRetirementCert where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Certificate'PoolRetirement x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Certificate'PoolRetirement y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Certificate "maybe'genesisKeyDelegation" (Prelude.Maybe GenesisKeyDelegationCert) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Certificate'GenesisKeyDelegation x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Certificate'GenesisKeyDelegation y__))-instance Data.ProtoLens.Field.HasField Certificate "genesisKeyDelegation" GenesisKeyDelegationCert where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Certificate'GenesisKeyDelegation x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Certificate'GenesisKeyDelegation y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Certificate "maybe'mirCert" (Prelude.Maybe MirCert) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Certificate'MirCert x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Certificate'MirCert y__))-instance Data.ProtoLens.Field.HasField Certificate "mirCert" MirCert where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Certificate'certificate-           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Certificate'MirCert x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Certificate'MirCert y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Message Certificate where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.Certificate"-  packedMessageDescriptor _-    = "\n\-      \\vCertificate\DC2Y\n\-      \\DC2stake_registration\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2]\n\-      \\DC4stake_deregistration\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2Y\n\-      \\DLEstake_delegation\CAN\ETX \SOH(\v2,.utxorpc.v1alpha.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2\\\n\-      \\DC1pool_registration\CAN\EOT \SOH(\v2-.utxorpc.v1alpha.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2V\n\-      \\SIpool_retirement\CAN\ENQ \SOH(\v2+.utxorpc.v1alpha.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2i\n\-      \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v21.utxorpc.v1alpha.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2=\n\-      \\bmir_cert\CAN\a \SOH(\v2 .utxorpc.v1alpha.cardano.MirCertH\NULR\amirCert\DC2=\n\-      \\bredeemer\CANd \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemerB\r\n\-      \\vcertificate"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        redeemer__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "redeemer"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Redeemer)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::-              Data.ProtoLens.FieldDescriptor Certificate-        stakeRegistration__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "stake_registration"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'stakeRegistration")) ::-              Data.ProtoLens.FieldDescriptor Certificate-        stakeDeregistration__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "stake_deregistration"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'stakeDeregistration")) ::-              Data.ProtoLens.FieldDescriptor Certificate-        stakeDelegation__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "stake_delegation"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor StakeDelegationCert)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'stakeDelegation")) ::-              Data.ProtoLens.FieldDescriptor Certificate-        poolRegistration__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pool_registration"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PoolRegistrationCert)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'poolRegistration")) ::-              Data.ProtoLens.FieldDescriptor Certificate-        poolRetirement__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pool_retirement"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PoolRetirementCert)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'poolRetirement")) ::-              Data.ProtoLens.FieldDescriptor Certificate-        genesisKeyDelegation__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "genesis_key_delegation"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor GenesisKeyDelegationCert)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'genesisKeyDelegation")) ::-              Data.ProtoLens.FieldDescriptor Certificate-        mirCert__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "mir_cert"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor MirCert)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'mirCert")) ::-              Data.ProtoLens.FieldDescriptor Certificate-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 100, redeemer__field_descriptor),-           (Data.ProtoLens.Tag 1, stakeRegistration__field_descriptor),-           (Data.ProtoLens.Tag 2, stakeDeregistration__field_descriptor),-           (Data.ProtoLens.Tag 3, stakeDelegation__field_descriptor),-           (Data.ProtoLens.Tag 4, poolRegistration__field_descriptor),-           (Data.ProtoLens.Tag 5, poolRetirement__field_descriptor),-           (Data.ProtoLens.Tag 6, genesisKeyDelegation__field_descriptor),-           (Data.ProtoLens.Tag 7, mirCert__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Certificate'_unknownFields-        (\ x__ y__ -> x__ {_Certificate'_unknownFields = y__})-  defMessage-    = Certificate'_constructor-        {_Certificate'redeemer = Prelude.Nothing,-         _Certificate'certificate = Prelude.Nothing,-         _Certificate'_unknownFields = []}-  parseMessage-    = let-        loop ::-          Certificate -> Data.ProtoLens.Encoding.Bytes.Parser Certificate-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        802-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "redeemer"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "stake_registration"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"stakeRegistration") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "stake_deregistration"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"stakeDeregistration") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "stake_delegation"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"stakeDelegation") y x)-                        34-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "pool_registration"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"poolRegistration") y x)-                        42-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "pool_retirement"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"poolRetirement") y x)-                        50-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "genesis_key_delegation"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"genesisKeyDelegation") y x)-                        58-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "mir_cert"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mirCert") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Certificate"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 802)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view-                       (Data.ProtoLens.Field.field @"maybe'certificate") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just (Certificate'StakeRegistration v))-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage v)-                   (Prelude.Just (Certificate'StakeDeregistration v))-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage v)-                   (Prelude.Just (Certificate'StakeDelegation v))-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage v)-                   (Prelude.Just (Certificate'PoolRegistration v))-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage v)-                   (Prelude.Just (Certificate'PoolRetirement v))-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 42)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage v)-                   (Prelude.Just (Certificate'GenesisKeyDelegation v))-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 50)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage v)-                   (Prelude.Just (Certificate'MirCert v))-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 58)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData Certificate where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Certificate'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Certificate'redeemer x__)-                (Control.DeepSeq.deepseq (_Certificate'certificate x__) ()))-instance Control.DeepSeq.NFData Certificate'Certificate where-  rnf (Certificate'StakeRegistration x__) = Control.DeepSeq.rnf x__-  rnf (Certificate'StakeDeregistration x__) = Control.DeepSeq.rnf x__-  rnf (Certificate'StakeDelegation x__) = Control.DeepSeq.rnf x__-  rnf (Certificate'PoolRegistration x__) = Control.DeepSeq.rnf x__-  rnf (Certificate'PoolRetirement x__) = Control.DeepSeq.rnf x__-  rnf (Certificate'GenesisKeyDelegation x__)-    = Control.DeepSeq.rnf x__-  rnf (Certificate'MirCert x__) = Control.DeepSeq.rnf x__-_Certificate'StakeRegistration ::-  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential-_Certificate'StakeRegistration-  = Data.ProtoLens.Prism.prism'-      Certificate'StakeRegistration-      (\ p__-         -> case p__ of-              (Certificate'StakeRegistration p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Certificate'StakeDeregistration ::-  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential-_Certificate'StakeDeregistration-  = Data.ProtoLens.Prism.prism'-      Certificate'StakeDeregistration-      (\ p__-         -> case p__ of-              (Certificate'StakeDeregistration p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Certificate'StakeDelegation ::-  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeDelegationCert-_Certificate'StakeDelegation-  = Data.ProtoLens.Prism.prism'-      Certificate'StakeDelegation-      (\ p__-         -> case p__ of-              (Certificate'StakeDelegation p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Certificate'PoolRegistration ::-  Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRegistrationCert-_Certificate'PoolRegistration-  = Data.ProtoLens.Prism.prism'-      Certificate'PoolRegistration-      (\ p__-         -> case p__ of-              (Certificate'PoolRegistration p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Certificate'PoolRetirement ::-  Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRetirementCert-_Certificate'PoolRetirement-  = Data.ProtoLens.Prism.prism'-      Certificate'PoolRetirement-      (\ p__-         -> case p__ of-              (Certificate'PoolRetirement p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Certificate'GenesisKeyDelegation ::-  Data.ProtoLens.Prism.Prism' Certificate'Certificate GenesisKeyDelegationCert-_Certificate'GenesisKeyDelegation-  = Data.ProtoLens.Prism.prism'-      Certificate'GenesisKeyDelegation-      (\ p__-         -> case p__ of-              (Certificate'GenesisKeyDelegation p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Certificate'MirCert ::-  Data.ProtoLens.Prism.Prism' Certificate'Certificate MirCert-_Certificate'MirCert-  = Data.ProtoLens.Prism.prism'-      Certificate'MirCert-      (\ p__-         -> case p__ of-              (Certificate'MirCert p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateral' @:: Lens' Collateral [TxInput]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'collateral' @:: Lens' Collateral (Data.Vector.Vector TxInput)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateralReturn' @:: Lens' Collateral TxOutput@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'collateralReturn' @:: Lens' Collateral (Prelude.Maybe TxOutput)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.totalCollateral' @:: Lens' Collateral Data.Word.Word64@ -}-data Collateral-  = Collateral'_constructor {_Collateral'collateral :: !(Data.Vector.Vector TxInput),-                             _Collateral'collateralReturn :: !(Prelude.Maybe TxOutput),-                             _Collateral'totalCollateral :: !Data.Word.Word64,-                             _Collateral'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Collateral where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Collateral "collateral" [TxInput] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Collateral'collateral-           (\ x__ y__ -> x__ {_Collateral'collateral = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Collateral "vec'collateral" (Data.Vector.Vector TxInput) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Collateral'collateral-           (\ x__ y__ -> x__ {_Collateral'collateral = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Collateral "collateralReturn" TxOutput where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Collateral'collateralReturn-           (\ x__ y__ -> x__ {_Collateral'collateralReturn = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Collateral "maybe'collateralReturn" (Prelude.Maybe TxOutput) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Collateral'collateralReturn-           (\ x__ y__ -> x__ {_Collateral'collateralReturn = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Collateral "totalCollateral" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Collateral'totalCollateral-           (\ x__ y__ -> x__ {_Collateral'totalCollateral = y__}))-        Prelude.id-instance Data.ProtoLens.Message Collateral where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Collateral"-  packedMessageDescriptor _-    = "\n\-      \\n\-      \Collateral\DC2@\n\-      \\n\-      \collateral\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\n\-      \collateral\DC2N\n\-      \\DC1collateral_return\CAN\STX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\DLEcollateralReturn\DC2)\n\-      \\DLEtotal_collateral\CAN\ETX \SOH(\EOTR\SItotalCollateral"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        collateral__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "collateral"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxInput)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"collateral")) ::-              Data.ProtoLens.FieldDescriptor Collateral-        collateralReturn__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "collateral_return"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxOutput)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'collateralReturn")) ::-              Data.ProtoLens.FieldDescriptor Collateral-        totalCollateral__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "total_collateral"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"totalCollateral")) ::-              Data.ProtoLens.FieldDescriptor Collateral-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, collateral__field_descriptor),-           (Data.ProtoLens.Tag 2, collateralReturn__field_descriptor),-           (Data.ProtoLens.Tag 3, totalCollateral__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Collateral'_unknownFields-        (\ x__ y__ -> x__ {_Collateral'_unknownFields = y__})-  defMessage-    = Collateral'_constructor-        {_Collateral'collateral = Data.Vector.Generic.empty,-         _Collateral'collateralReturn = Prelude.Nothing,-         _Collateral'totalCollateral = Data.ProtoLens.fieldDefault,-         _Collateral'_unknownFields = []}-  parseMessage-    = let-        loop ::-          Collateral-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput-             -> Data.ProtoLens.Encoding.Bytes.Parser Collateral-        loop x mutable'collateral-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'collateral <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'collateral)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'collateral") frozen'collateral-                              x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "collateral"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'collateral y)-                                loop x v-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "collateral_return"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"collateralReturn") y x)-                                  mutable'collateral-                        24-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "total_collateral"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"totalCollateral") y x)-                                  mutable'collateral-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'collateral-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'collateral <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                      Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'collateral)-          "Collateral"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view-                   (Data.ProtoLens.Field.field @"vec'collateral") _x))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view-                       (Data.ProtoLens.Field.field @"maybe'collateralReturn") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                ((Data.Monoid.<>)-                   (let-                      _v-                        = Lens.Family2.view-                            (Data.ProtoLens.Field.field @"totalCollateral") _x-                    in-                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                          Data.Monoid.mempty-                      else-                          (Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData Collateral where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Collateral'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Collateral'collateral x__)-                (Control.DeepSeq.deepseq-                   (_Collateral'collateralReturn x__)-                   (Control.DeepSeq.deepseq (_Collateral'totalCollateral x__) ())))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.tag' @:: Lens' Constr Data.Word.Word32@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.anyConstructor' @:: Lens' Constr Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fields' @:: Lens' Constr [PlutusData]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'fields' @:: Lens' Constr (Data.Vector.Vector PlutusData)@ -}-data Constr-  = Constr'_constructor {_Constr'tag :: !Data.Word.Word32,-                         _Constr'anyConstructor :: !Data.Word.Word64,-                         _Constr'fields :: !(Data.Vector.Vector PlutusData),-                         _Constr'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Constr where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Constr "tag" Data.Word.Word32 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Constr'tag (\ x__ y__ -> x__ {_Constr'tag = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Constr "anyConstructor" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Constr'anyConstructor-           (\ x__ y__ -> x__ {_Constr'anyConstructor = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Constr "fields" [PlutusData] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Constr "vec'fields" (Data.Vector.Vector PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__}))-        Prelude.id-instance Data.ProtoLens.Message Constr where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Constr"-  packedMessageDescriptor _-    = "\n\-      \\ACKConstr\DC2\DLE\n\-      \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\-      \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2;\n\-      \\ACKfields\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ACKfields"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        tag__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "tag"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"tag")) ::-              Data.ProtoLens.FieldDescriptor Constr-        anyConstructor__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "any_constructor"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"anyConstructor")) ::-              Data.ProtoLens.FieldDescriptor Constr-        fields__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "fields"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusData)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"fields")) ::-              Data.ProtoLens.FieldDescriptor Constr-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, tag__field_descriptor),-           (Data.ProtoLens.Tag 2, anyConstructor__field_descriptor),-           (Data.ProtoLens.Tag 3, fields__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Constr'_unknownFields-        (\ x__ y__ -> x__ {_Constr'_unknownFields = y__})-  defMessage-    = Constr'_constructor-        {_Constr'tag = Data.ProtoLens.fieldDefault,-         _Constr'anyConstructor = Data.ProtoLens.fieldDefault,-         _Constr'fields = Data.Vector.Generic.empty,-         _Constr'_unknownFields = []}-  parseMessage-    = let-        loop ::-          Constr-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData-             -> Data.ProtoLens.Encoding.Bytes.Parser Constr-        loop x mutable'fields-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                            mutable'fields)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'fields") frozen'fields x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "tag"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x)-                                  mutable'fields-                        16-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "any_constructor"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"anyConstructor") y x)-                                  mutable'fields-                        26-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "fields"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'fields y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'fields-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                  Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'fields)-          "Constr"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"tag") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      ((Prelude..)-                         Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))-             ((Data.Monoid.<>)-                (let-                   _v-                     = Lens.Family2.view-                         (Data.ProtoLens.Field.field @"anyConstructor") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-                ((Data.Monoid.<>)-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v-                         -> (Data.Monoid.<>)-                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                              ((Prelude..)-                                 (\ bs-                                    -> (Data.Monoid.<>)-                                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                                            (Prelude.fromIntegral (Data.ByteString.length bs)))-                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                 Data.ProtoLens.encodeMessage _v))-                      (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'fields") _x))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData Constr where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Constr'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Constr'tag x__)-                (Control.DeepSeq.deepseq-                   (_Constr'anyConstructor x__)-                   (Control.DeepSeq.deepseq (_Constr'fields x__) ())))-{- | Fields :-      -}-data CostModel-  = CostModel'_constructor {_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.Message CostModel where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.CostModel"-  packedMessageDescriptor _-    = "\n\-      \\tCostModel"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag = let in Data.Map.fromList []-  unknownFields-    = Lens.Family2.Unchecked.lens-        _CostModel'_unknownFields-        (\ x__ y__ -> x__ {_CostModel'_unknownFields = y__})-  defMessage-    = CostModel'_constructor {_CostModel'_unknownFields = []}-  parseMessage-    = let-        loop :: CostModel -> Data.ProtoLens.Encoding.Bytes.Parser CostModel-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "CostModel"-  buildMessage-    = \ _x-        -> 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__) ()-{- | 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)@ -}-data CostModels-  = CostModels'_constructor {_CostModels'plutusV1 :: !(Prelude.Maybe CostModel),-                             _CostModels'plutusV2 :: !(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.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"-  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-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, plutusV1__field_descriptor),-           (Data.ProtoLens.Tag 2, plutusV2__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'_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)-                        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.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__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.msg' @:: Lens' EvalError Data.Text.Text@ -}-data EvalError-  = EvalError'_constructor {_EvalError'msg :: !Data.Text.Text,-                            _EvalError'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show EvalError where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField EvalError "msg" Data.Text.Text where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _EvalError'msg (\ x__ y__ -> x__ {_EvalError'msg = y__}))-        Prelude.id-instance Data.ProtoLens.Message EvalError where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.EvalError"-  packedMessageDescriptor _-    = "\n\-      \\tEvalError\DC2\DLE\n\-      \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        msg__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "msg"-              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) ::-              Data.ProtoLens.FieldDescriptor EvalError-      in-        Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _EvalError'_unknownFields-        (\ x__ y__ -> x__ {_EvalError'_unknownFields = y__})-  defMessage-    = EvalError'_constructor-        {_EvalError'msg = Data.ProtoLens.fieldDefault,-         _EvalError'_unknownFields = []}-  parseMessage-    = let-        loop :: EvalError -> Data.ProtoLens.Encoding.Bytes.Parser EvalError-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getText-                                             (Prelude.fromIntegral len))-                                       "msg"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "EvalError"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((Prelude..)-                         (\ bs-                            -> (Data.Monoid.<>)-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt-                                    (Prelude.fromIntegral (Data.ByteString.length bs)))-                                 (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         Data.Text.Encoding.encodeUtf8 _v))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData EvalError where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_EvalError'_unknownFields x__)-             (Control.DeepSeq.deepseq (_EvalError'msg x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.msg' @:: Lens' EvalTrace Data.Text.Text@ -}-data EvalTrace-  = EvalTrace'_constructor {_EvalTrace'msg :: !Data.Text.Text,-                            _EvalTrace'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show EvalTrace where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField EvalTrace "msg" Data.Text.Text where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _EvalTrace'msg (\ x__ y__ -> x__ {_EvalTrace'msg = y__}))-        Prelude.id-instance Data.ProtoLens.Message EvalTrace where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.EvalTrace"-  packedMessageDescriptor _-    = "\n\-      \\tEvalTrace\DC2\DLE\n\-      \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        msg__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "msg"-              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) ::-              Data.ProtoLens.FieldDescriptor EvalTrace-      in-        Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _EvalTrace'_unknownFields-        (\ x__ y__ -> x__ {_EvalTrace'_unknownFields = y__})-  defMessage-    = EvalTrace'_constructor-        {_EvalTrace'msg = Data.ProtoLens.fieldDefault,-         _EvalTrace'_unknownFields = []}-  parseMessage-    = let-        loop :: EvalTrace -> Data.ProtoLens.Encoding.Bytes.Parser EvalTrace-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getText-                                             (Prelude.fromIntegral len))-                                       "msg"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "EvalTrace"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((Prelude..)-                         (\ bs-                            -> (Data.Monoid.<>)-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt-                                    (Prelude.fromIntegral (Data.ByteString.length bs)))-                                 (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         Data.Text.Encoding.encodeUtf8 _v))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData EvalTrace where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_EvalTrace'_unknownFields x__)-             (Control.DeepSeq.deepseq (_EvalTrace'msg x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.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.genesisHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.genesisDelegateHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@ -}-data GenesisKeyDelegationCert-  = GenesisKeyDelegationCert'_constructor {_GenesisKeyDelegationCert'genesisHash :: !Data.ByteString.ByteString,-                                           _GenesisKeyDelegationCert'genesisDelegateHash :: !Data.ByteString.ByteString,-                                           _GenesisKeyDelegationCert'vrfKeyhash :: !Data.ByteString.ByteString,-                                           _GenesisKeyDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show GenesisKeyDelegationCert where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisHash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _GenesisKeyDelegationCert'genesisHash-           (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'genesisHash = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisDelegateHash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _GenesisKeyDelegationCert'genesisDelegateHash-           (\ x__ y__-              -> x__ {_GenesisKeyDelegationCert'genesisDelegateHash = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "vrfKeyhash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _GenesisKeyDelegationCert'vrfKeyhash-           (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'vrfKeyhash = y__}))-        Prelude.id-instance Data.ProtoLens.Message GenesisKeyDelegationCert where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.GenesisKeyDelegationCert"-  packedMessageDescriptor _-    = "\n\-      \\CANGenesisKeyDelegationCert\DC2!\n\-      \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\-      \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\-      \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\-      \vrfKeyhash"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        genesisHash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "genesis_hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"genesisHash")) ::-              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert-        genesisDelegateHash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "genesis_delegate_hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"genesisDelegateHash")) ::-              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert-        vrfKeyhash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "vrf_keyhash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"vrfKeyhash")) ::-              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, genesisHash__field_descriptor),-           (Data.ProtoLens.Tag 2, genesisDelegateHash__field_descriptor),-           (Data.ProtoLens.Tag 3, vrfKeyhash__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _GenesisKeyDelegationCert'_unknownFields-        (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'_unknownFields = y__})-  defMessage-    = GenesisKeyDelegationCert'_constructor-        {_GenesisKeyDelegationCert'genesisHash = Data.ProtoLens.fieldDefault,-         _GenesisKeyDelegationCert'genesisDelegateHash = Data.ProtoLens.fieldDefault,-         _GenesisKeyDelegationCert'vrfKeyhash = Data.ProtoLens.fieldDefault,-         _GenesisKeyDelegationCert'_unknownFields = []}-  parseMessage-    = let-        loop ::-          GenesisKeyDelegationCert-          -> Data.ProtoLens.Encoding.Bytes.Parser GenesisKeyDelegationCert-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "genesis_hash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"genesisHash") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "genesis_delegate_hash"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"genesisDelegateHash") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "vrf_keyhash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"vrfKeyhash") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "GenesisKeyDelegationCert"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v-                  = Lens.Family2.view (Data.ProtoLens.Field.field @"genesisHash") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let-                   _v-                     = Lens.Family2.view-                         (Data.ProtoLens.Field.field @"genesisDelegateHash") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                ((Data.Monoid.<>)-                   (let-                      _v-                        = Lens.Family2.view (Data.ProtoLens.Field.field @"vrfKeyhash") _x-                    in-                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                          Data.Monoid.mempty-                      else-                          (Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                            ((\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                               _v))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData GenesisKeyDelegationCert where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_GenesisKeyDelegationCert'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_GenesisKeyDelegationCert'genesisHash x__)-                (Control.DeepSeq.deepseq-                   (_GenesisKeyDelegationCert'genesisDelegateHash x__)-                   (Control.DeepSeq.deepseq-                      (_GenesisKeyDelegationCert'vrfKeyhash x__) ())))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.label' @:: Lens' Metadata Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' Metadata Metadatum@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' Metadata (Prelude.Maybe Metadatum)@ -}-data Metadata-  = Metadata'_constructor {_Metadata'label :: !Data.Word.Word64,-                           _Metadata'value :: !(Prelude.Maybe Metadatum),-                           _Metadata'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Metadata where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Metadata "label" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadata'label (\ x__ y__ -> x__ {_Metadata'label = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Metadata "value" Metadatum where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadata'value (\ x__ y__ -> x__ {_Metadata'value = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Metadata "maybe'value" (Prelude.Maybe Metadatum) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadata'value (\ x__ y__ -> x__ {_Metadata'value = y__}))-        Prelude.id-instance Data.ProtoLens.Message Metadata where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Metadata"-  packedMessageDescriptor _-    = "\n\-      \\bMetadata\DC2\DC4\n\-      \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC28\n\-      \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        label__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "label"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"label")) ::-              Data.ProtoLens.FieldDescriptor Metadata-        value__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "value"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Metadatum)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'value")) ::-              Data.ProtoLens.FieldDescriptor Metadata-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, label__field_descriptor),-           (Data.ProtoLens.Tag 2, value__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Metadata'_unknownFields-        (\ x__ y__ -> x__ {_Metadata'_unknownFields = y__})-  defMessage-    = Metadata'_constructor-        {_Metadata'label = Data.ProtoLens.fieldDefault,-         _Metadata'value = Prelude.Nothing, _Metadata'_unknownFields = []}-  parseMessage-    = let-        loop :: Metadata -> Data.ProtoLens.Encoding.Bytes.Parser Metadata-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "label"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "value"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Metadata"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"label") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData Metadata where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Metadata'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Metadata'label x__)-                (Control.DeepSeq.deepseq (_Metadata'value x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'metadatum' @:: Lens' Metadatum (Prelude.Maybe Metadatum'Metadatum)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'int' @:: Lens' Metadatum (Prelude.Maybe Data.Int.Int64)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.int' @:: Lens' Metadatum Data.Int.Int64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bytes' @:: Lens' Metadatum (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bytes' @:: Lens' Metadatum Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'text' @:: Lens' Metadatum (Prelude.Maybe Data.Text.Text)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.text' @:: Lens' Metadatum Data.Text.Text@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'array' @:: Lens' Metadatum (Prelude.Maybe MetadatumArray)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.array' @:: Lens' Metadatum MetadatumArray@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'map' @:: Lens' Metadatum (Prelude.Maybe MetadatumMap)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.map' @:: Lens' Metadatum MetadatumMap@ -}-data Metadatum-  = Metadatum'_constructor {_Metadatum'metadatum :: !(Prelude.Maybe Metadatum'Metadatum),-                            _Metadatum'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Metadatum where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-data Metadatum'Metadatum-  = Metadatum'Int !Data.Int.Int64 |-    Metadatum'Bytes !Data.ByteString.ByteString |-    Metadatum'Text !Data.Text.Text |-    Metadatum'Array !MetadatumArray |-    Metadatum'Map !MetadatumMap-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField Metadatum "maybe'metadatum" (Prelude.Maybe Metadatum'Metadatum) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Metadatum "maybe'int" (Prelude.Maybe Data.Int.Int64) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Metadatum'Int x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Metadatum'Int y__))-instance Data.ProtoLens.Field.HasField Metadatum "int" Data.Int.Int64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Metadatum'Int x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Metadatum'Int y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField Metadatum "maybe'bytes" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Metadatum'Bytes x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Metadatum'Bytes y__))-instance Data.ProtoLens.Field.HasField Metadatum "bytes" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Metadatum'Bytes x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Metadatum'Bytes y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField Metadatum "maybe'text" (Prelude.Maybe Data.Text.Text) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Metadatum'Text x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Metadatum'Text y__))-instance Data.ProtoLens.Field.HasField Metadatum "text" Data.Text.Text where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Metadatum'Text x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Metadatum'Text y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField Metadatum "maybe'array" (Prelude.Maybe MetadatumArray) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Metadatum'Array x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Metadatum'Array y__))-instance Data.ProtoLens.Field.HasField Metadatum "array" MetadatumArray where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Metadatum'Array x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Metadatum'Array y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Metadatum "maybe'map" (Prelude.Maybe MetadatumMap) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Metadatum'Map x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Metadatum'Map y__))-instance Data.ProtoLens.Field.HasField Metadatum "map" MetadatumMap where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Metadatum'metadatum-           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Metadatum'Map x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Metadatum'Map y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Message Metadatum where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Metadatum"-  packedMessageDescriptor _-    = "\n\-      \\tMetadatum\DC2\DC2\n\-      \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\-      \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\-      \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2?\n\-      \\ENQarray\CAN\EOT \SOH(\v2'.utxorpc.v1alpha.cardano.MetadatumArrayH\NULR\ENQarray\DC29\n\-      \\ETXmap\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.MetadatumMapH\NULR\ETXmapB\v\n\-      \\tmetadatum"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        int__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "int"-              (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'int")) ::-              Data.ProtoLens.FieldDescriptor Metadatum-        bytes__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "bytes"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'bytes")) ::-              Data.ProtoLens.FieldDescriptor Metadatum-        text__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "text"-              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'text")) ::-              Data.ProtoLens.FieldDescriptor Metadatum-        array__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "array"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor MetadatumArray)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'array")) ::-              Data.ProtoLens.FieldDescriptor Metadatum-        map__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "map"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor MetadatumMap)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'map")) ::-              Data.ProtoLens.FieldDescriptor Metadatum-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, int__field_descriptor),-           (Data.ProtoLens.Tag 2, bytes__field_descriptor),-           (Data.ProtoLens.Tag 3, text__field_descriptor),-           (Data.ProtoLens.Tag 4, array__field_descriptor),-           (Data.ProtoLens.Tag 5, map__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Metadatum'_unknownFields-        (\ x__ y__ -> x__ {_Metadatum'_unknownFields = y__})-  defMessage-    = Metadatum'_constructor-        {_Metadatum'metadatum = Prelude.Nothing,-         _Metadatum'_unknownFields = []}-  parseMessage-    = let-        loop :: Metadatum -> Data.ProtoLens.Encoding.Bytes.Parser Metadatum-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "int"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "bytes"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bytes") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getText-                                             (Prelude.fromIntegral len))-                                       "text"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"text") y x)-                        34-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "array"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x)-                        42-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "map"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Metadatum"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view-                    (Data.ProtoLens.Field.field @"maybe'metadatum") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just (Metadatum'Int v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                       ((Prelude..)-                          Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v)-                (Prelude.Just (Metadatum'Bytes v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v)-                (Prelude.Just (Metadatum'Text v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.Text.Encoding.encodeUtf8 v)-                (Prelude.Just (Metadatum'Array v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v)-                (Prelude.Just (Metadatum'Map v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 42)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Metadatum where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Metadatum'_unknownFields x__)-             (Control.DeepSeq.deepseq (_Metadatum'metadatum x__) ())-instance Control.DeepSeq.NFData Metadatum'Metadatum where-  rnf (Metadatum'Int x__) = Control.DeepSeq.rnf x__-  rnf (Metadatum'Bytes x__) = Control.DeepSeq.rnf x__-  rnf (Metadatum'Text x__) = Control.DeepSeq.rnf x__-  rnf (Metadatum'Array x__) = Control.DeepSeq.rnf x__-  rnf (Metadatum'Map x__) = Control.DeepSeq.rnf x__-_Metadatum'Int ::-  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Int.Int64-_Metadatum'Int-  = Data.ProtoLens.Prism.prism'-      Metadatum'Int-      (\ p__-         -> case p__ of-              (Metadatum'Int p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Metadatum'Bytes ::-  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.ByteString.ByteString-_Metadatum'Bytes-  = Data.ProtoLens.Prism.prism'-      Metadatum'Bytes-      (\ p__-         -> case p__ of-              (Metadatum'Bytes p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Metadatum'Text ::-  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Text.Text-_Metadatum'Text-  = Data.ProtoLens.Prism.prism'-      Metadatum'Text-      (\ p__-         -> case p__ of-              (Metadatum'Text p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Metadatum'Array ::-  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumArray-_Metadatum'Array-  = Data.ProtoLens.Prism.prism'-      Metadatum'Array-      (\ p__-         -> case p__ of-              (Metadatum'Array p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Metadatum'Map ::-  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumMap-_Metadatum'Map-  = Data.ProtoLens.Prism.prism'-      Metadatum'Map-      (\ p__-         -> case p__ of-              (Metadatum'Map p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' MetadatumArray [Metadatum]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' MetadatumArray (Data.Vector.Vector Metadatum)@ -}-data MetadatumArray-  = MetadatumArray'_constructor {_MetadatumArray'items :: !(Data.Vector.Vector Metadatum),-                                 _MetadatumArray'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MetadatumArray where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MetadatumArray "items" [Metadatum] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumArray'items-           (\ x__ y__ -> x__ {_MetadatumArray'items = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField MetadatumArray "vec'items" (Data.Vector.Vector Metadatum) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumArray'items-           (\ x__ y__ -> x__ {_MetadatumArray'items = y__}))-        Prelude.id-instance Data.ProtoLens.Message MetadatumArray where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.MetadatumArray"-  packedMessageDescriptor _-    = "\n\-      \\SOMetadatumArray\DC28\n\-      \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQitems"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        items__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "items"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Metadatum)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::-              Data.ProtoLens.FieldDescriptor MetadatumArray-      in-        Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _MetadatumArray'_unknownFields-        (\ x__ y__ -> x__ {_MetadatumArray'_unknownFields = y__})-  defMessage-    = MetadatumArray'_constructor-        {_MetadatumArray'items = Data.Vector.Generic.empty,-         _MetadatumArray'_unknownFields = []}-  parseMessage-    = let-        loop ::-          MetadatumArray-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadatum-             -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumArray-        loop x mutable'items-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "items"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'items-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                 Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'items)-          "MetadatumArray"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData MetadatumArray where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_MetadatumArray'_unknownFields x__)-             (Control.DeepSeq.deepseq (_MetadatumArray'items x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pairs' @:: Lens' MetadatumMap [MetadatumPair]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'pairs' @:: Lens' MetadatumMap (Data.Vector.Vector MetadatumPair)@ -}-data MetadatumMap-  = MetadatumMap'_constructor {_MetadatumMap'pairs :: !(Data.Vector.Vector MetadatumPair),-                               _MetadatumMap'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MetadatumMap where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MetadatumMap "pairs" [MetadatumPair] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumMap'pairs (\ x__ y__ -> x__ {_MetadatumMap'pairs = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField MetadatumMap "vec'pairs" (Data.Vector.Vector MetadatumPair) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumMap'pairs (\ x__ y__ -> x__ {_MetadatumMap'pairs = y__}))-        Prelude.id-instance Data.ProtoLens.Message MetadatumMap where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.MetadatumMap"-  packedMessageDescriptor _-    = "\n\-      \\fMetadatumMap\DC2<\n\-      \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.cardano.MetadatumPairR\ENQpairs"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        pairs__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pairs"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor MetadatumPair)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pairs")) ::-              Data.ProtoLens.FieldDescriptor MetadatumMap-      in-        Data.Map.fromList [(Data.ProtoLens.Tag 1, pairs__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _MetadatumMap'_unknownFields-        (\ x__ y__ -> x__ {_MetadatumMap'_unknownFields = y__})-  defMessage-    = MetadatumMap'_constructor-        {_MetadatumMap'pairs = Data.Vector.Generic.empty,-         _MetadatumMap'_unknownFields = []}-  parseMessage-    = let-        loop ::-          MetadatumMap-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetadatumPair-             -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumMap-        loop x mutable'pairs-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "pairs"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'pairs y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'pairs-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                 Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'pairs)-          "MetadatumMap"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pairs") _x))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData MetadatumMap where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_MetadatumMap'_unknownFields x__)-             (Control.DeepSeq.deepseq (_MetadatumMap'pairs x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.key' @:: Lens' MetadatumPair Metadatum@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'key' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' MetadatumPair Metadatum@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@ -}-data MetadatumPair-  = MetadatumPair'_constructor {_MetadatumPair'key :: !(Prelude.Maybe Metadatum),-                                _MetadatumPair'value :: !(Prelude.Maybe Metadatum),-                                _MetadatumPair'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MetadatumPair where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MetadatumPair "key" Metadatum where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumPair'key (\ x__ y__ -> x__ {_MetadatumPair'key = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'key" (Prelude.Maybe Metadatum) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumPair'key (\ x__ y__ -> x__ {_MetadatumPair'key = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField MetadatumPair "value" Metadatum where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumPair'value-           (\ x__ y__ -> x__ {_MetadatumPair'value = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'value" (Prelude.Maybe Metadatum) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MetadatumPair'value-           (\ x__ y__ -> x__ {_MetadatumPair'value = y__}))-        Prelude.id-instance Data.ProtoLens.Message MetadatumPair where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.MetadatumPair"-  packedMessageDescriptor _-    = "\n\-      \\rMetadatumPair\DC24\n\-      \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ETXkey\DC28\n\-      \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        key__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "key"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Metadatum)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'key")) ::-              Data.ProtoLens.FieldDescriptor MetadatumPair-        value__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "value"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Metadatum)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'value")) ::-              Data.ProtoLens.FieldDescriptor MetadatumPair-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, key__field_descriptor),-           (Data.ProtoLens.Tag 2, value__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _MetadatumPair'_unknownFields-        (\ x__ y__ -> x__ {_MetadatumPair'_unknownFields = y__})-  defMessage-    = MetadatumPair'_constructor-        {_MetadatumPair'key = Prelude.Nothing,-         _MetadatumPair'value = Prelude.Nothing,-         _MetadatumPair'_unknownFields = []}-  parseMessage-    = let-        loop ::-          MetadatumPair -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumPair-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "key"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "value"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "MetadatumPair"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData MetadatumPair where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_MetadatumPair'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_MetadatumPair'key x__)-                (Control.DeepSeq.deepseq (_MetadatumPair'value x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.from' @:: Lens' MirCert MirSource@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.to' @:: Lens' MirCert [MirTarget]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'to' @:: Lens' MirCert (Data.Vector.Vector MirTarget)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.otherPot' @:: Lens' MirCert Data.Word.Word64@ -}-data MirCert-  = MirCert'_constructor {_MirCert'from :: !MirSource,-                          _MirCert'to :: !(Data.Vector.Vector MirTarget),-                          _MirCert'otherPot :: !Data.Word.Word64,-                          _MirCert'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MirCert where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MirCert "from" MirSource where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MirCert'from (\ x__ y__ -> x__ {_MirCert'from = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField MirCert "to" [MirTarget] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MirCert'to (\ x__ y__ -> x__ {_MirCert'to = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField MirCert "vec'to" (Data.Vector.Vector MirTarget) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MirCert'to (\ x__ y__ -> x__ {_MirCert'to = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField MirCert "otherPot" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MirCert'otherPot (\ x__ y__ -> x__ {_MirCert'otherPot = y__}))-        Prelude.id-instance Data.ProtoLens.Message MirCert where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.MirCert"-  packedMessageDescriptor _-    = "\n\-      \\aMirCert\DC26\n\-      \\EOTfrom\CAN\SOH \SOH(\SO2\".utxorpc.v1alpha.cardano.MirSourceR\EOTfrom\DC22\n\-      \\STXto\CAN\STX \ETX(\v2\".utxorpc.v1alpha.cardano.MirTargetR\STXto\DC2\ESC\n\-      \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        from__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "from"-              (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                 Data.ProtoLens.FieldTypeDescriptor MirSource)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"from")) ::-              Data.ProtoLens.FieldDescriptor MirCert-        to__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "to"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor MirTarget)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"to")) ::-              Data.ProtoLens.FieldDescriptor MirCert-        otherPot__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "other_pot"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"otherPot")) ::-              Data.ProtoLens.FieldDescriptor MirCert-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, from__field_descriptor),-           (Data.ProtoLens.Tag 2, to__field_descriptor),-           (Data.ProtoLens.Tag 3, otherPot__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _MirCert'_unknownFields-        (\ x__ y__ -> x__ {_MirCert'_unknownFields = y__})-  defMessage-    = MirCert'_constructor-        {_MirCert'from = Data.ProtoLens.fieldDefault,-         _MirCert'to = Data.Vector.Generic.empty,-         _MirCert'otherPot = Data.ProtoLens.fieldDefault,-         _MirCert'_unknownFields = []}-  parseMessage-    = let-        loop ::-          MirCert-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MirTarget-             -> Data.ProtoLens.Encoding.Bytes.Parser MirCert-        loop x mutable'to-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'to <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                     (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'to)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'to") frozen'to x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.toEnum-                                          (Prelude.fmap-                                             Prelude.fromIntegral-                                             Data.ProtoLens.Encoding.Bytes.getVarInt))-                                       "from"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"from") y x)-                                  mutable'to-                        18-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "to"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'to y)-                                loop x v-                        24-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "other_pot"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"otherPot") y x)-                                  mutable'to-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'to-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'to <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                              Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'to)-          "MirCert"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"from") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      ((Prelude..)-                         ((Prelude..)-                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)-                         Prelude.fromEnum _v))-             ((Data.Monoid.<>)-                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                   (\ _v-                      -> (Data.Monoid.<>)-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                           ((Prelude..)-                              (\ bs-                                 -> (Data.Monoid.<>)-                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                         (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Data.ProtoLens.encodeMessage _v))-                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'to") _x))-                ((Data.Monoid.<>)-                   (let-                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"otherPot") _x-                    in-                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                          Data.Monoid.mempty-                      else-                          (Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData MirCert where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_MirCert'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_MirCert'from x__)-                (Control.DeepSeq.deepseq-                   (_MirCert'to x__)-                   (Control.DeepSeq.deepseq (_MirCert'otherPot x__) ())))-newtype MirSource'UnrecognizedValue-  = MirSource'UnrecognizedValue Data.Int.Int32-  deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show)-data MirSource-  = MIR_SOURCE_UNSPECIFIED |-    MIR_SOURCE_RESERVES |-    MIR_SOURCE_TREASURY |-    MirSource'Unrecognized !MirSource'UnrecognizedValue-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum MirSource where-  maybeToEnum 0 = Prelude.Just MIR_SOURCE_UNSPECIFIED-  maybeToEnum 1 = Prelude.Just MIR_SOURCE_RESERVES-  maybeToEnum 2 = Prelude.Just MIR_SOURCE_TREASURY-  maybeToEnum k-    = Prelude.Just-        (MirSource'Unrecognized-           (MirSource'UnrecognizedValue (Prelude.fromIntegral k)))-  showEnum MIR_SOURCE_UNSPECIFIED = "MIR_SOURCE_UNSPECIFIED"-  showEnum MIR_SOURCE_RESERVES = "MIR_SOURCE_RESERVES"-  showEnum MIR_SOURCE_TREASURY = "MIR_SOURCE_TREASURY"-  showEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue k))-    = Prelude.show k-  readEnum k-    | (Prelude.==) k "MIR_SOURCE_UNSPECIFIED"-    = Prelude.Just MIR_SOURCE_UNSPECIFIED-    | (Prelude.==) k "MIR_SOURCE_RESERVES"-    = Prelude.Just MIR_SOURCE_RESERVES-    | (Prelude.==) k "MIR_SOURCE_TREASURY"-    = Prelude.Just MIR_SOURCE_TREASURY-    | Prelude.otherwise-    = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum-instance Prelude.Bounded MirSource where-  minBound = MIR_SOURCE_UNSPECIFIED-  maxBound = MIR_SOURCE_TREASURY-instance Prelude.Enum MirSource where-  toEnum k__-    = Prelude.maybe-        (Prelude.error-           ((Prelude.++)-              "toEnum: unknown value for enum MirSource: " (Prelude.show k__)))-        Prelude.id (Data.ProtoLens.maybeToEnum k__)-  fromEnum MIR_SOURCE_UNSPECIFIED = 0-  fromEnum MIR_SOURCE_RESERVES = 1-  fromEnum MIR_SOURCE_TREASURY = 2-  fromEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue k))-    = Prelude.fromIntegral k-  succ MIR_SOURCE_TREASURY-    = Prelude.error-        "MirSource.succ: bad argument MIR_SOURCE_TREASURY. This value would be out of bounds."-  succ MIR_SOURCE_UNSPECIFIED = MIR_SOURCE_RESERVES-  succ MIR_SOURCE_RESERVES = MIR_SOURCE_TREASURY-  succ (MirSource'Unrecognized _)-    = Prelude.error "MirSource.succ: bad argument: unrecognized value"-  pred MIR_SOURCE_UNSPECIFIED-    = Prelude.error-        "MirSource.pred: bad argument MIR_SOURCE_UNSPECIFIED. This value would be out of bounds."-  pred MIR_SOURCE_RESERVES = MIR_SOURCE_UNSPECIFIED-  pred MIR_SOURCE_TREASURY = MIR_SOURCE_RESERVES-  pred (MirSource'Unrecognized _)-    = Prelude.error "MirSource.pred: bad argument: unrecognized value"-  enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom-  enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo-  enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen-  enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo-instance Data.ProtoLens.FieldDefault MirSource where-  fieldDefault = MIR_SOURCE_UNSPECIFIED-instance Control.DeepSeq.NFData MirSource where-  rnf x__ = Prelude.seq x__ ()-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeCredential' @:: Lens' MirTarget StakeCredential@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' MirTarget (Prelude.Maybe StakeCredential)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.deltaCoin' @:: Lens' MirTarget Data.Int.Int64@ -}-data MirTarget-  = MirTarget'_constructor {_MirTarget'stakeCredential :: !(Prelude.Maybe StakeCredential),-                            _MirTarget'deltaCoin :: !Data.Int.Int64,-                            _MirTarget'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MirTarget where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MirTarget "stakeCredential" StakeCredential where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MirTarget'stakeCredential-           (\ x__ y__ -> x__ {_MirTarget'stakeCredential = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField MirTarget "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MirTarget'stakeCredential-           (\ x__ y__ -> x__ {_MirTarget'stakeCredential = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField MirTarget "deltaCoin" Data.Int.Int64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _MirTarget'deltaCoin-           (\ x__ y__ -> x__ {_MirTarget'deltaCoin = y__}))-        Prelude.id-instance Data.ProtoLens.Message MirTarget where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.MirTarget"-  packedMessageDescriptor _-    = "\n\-      \\tMirTarget\DC2S\n\-      \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2\GS\n\-      \\n\-      \delta_coin\CAN\STX \SOH(\ETXR\tdeltaCoin"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        stakeCredential__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "stake_credential"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'stakeCredential")) ::-              Data.ProtoLens.FieldDescriptor MirTarget-        deltaCoin__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "delta_coin"-              (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"deltaCoin")) ::-              Data.ProtoLens.FieldDescriptor MirTarget-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor),-           (Data.ProtoLens.Tag 2, deltaCoin__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _MirTarget'_unknownFields-        (\ x__ y__ -> x__ {_MirTarget'_unknownFields = y__})-  defMessage-    = MirTarget'_constructor-        {_MirTarget'stakeCredential = Prelude.Nothing,-         _MirTarget'deltaCoin = Data.ProtoLens.fieldDefault,-         _MirTarget'_unknownFields = []}-  parseMessage-    = let-        loop :: MirTarget -> Data.ProtoLens.Encoding.Bytes.Parser MirTarget-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "stake_credential"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"stakeCredential") y x)-                        16-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "delta_coin"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"deltaCoin") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "MirTarget"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view-                    (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (let-                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"deltaCoin") _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 MirTarget where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_MirTarget'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_MirTarget'stakeCredential x__)-                (Control.DeepSeq.deepseq (_MirTarget'deltaCoin x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.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)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' Multiasset Redeemer@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Multiasset (Prelude.Maybe Redeemer)@ -}-data Multiasset-  = Multiasset'_constructor {_Multiasset'policyId :: !Data.ByteString.ByteString,-                             _Multiasset'assets :: !(Data.Vector.Vector Asset),-                             _Multiasset'redeemer :: !(Prelude.Maybe Redeemer),-                             _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.Field.HasField Multiasset "redeemer" Redeemer where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Multiasset'redeemer-           (\ x__ y__ -> x__ {_Multiasset'redeemer = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Multiasset "maybe'redeemer" (Prelude.Maybe Redeemer) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Multiasset'redeemer-           (\ x__ y__ -> x__ {_Multiasset'redeemer = 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\DC2=\n\-      \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer"-  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-        redeemer__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "redeemer"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Redeemer)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::-              Data.ProtoLens.FieldDescriptor Multiasset-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, policyId__field_descriptor),-           (Data.ProtoLens.Tag 2, assets__field_descriptor),-           (Data.ProtoLens.Tag 3, redeemer__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'redeemer = Prelude.Nothing,-         _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-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "redeemer"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)-                                  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)-          "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.Monoid.<>)-                   (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x-                    of-                      Prelude.Nothing -> Data.Monoid.mempty-                      (Prelude.Just _v)-                        -> (Data.Monoid.<>)-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                             ((Prelude..)-                                (\ bs-                                   -> (Data.Monoid.<>)-                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                           (Prelude.fromIntegral (Data.ByteString.length bs)))-                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                Data.ProtoLens.encodeMessage _v))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData Multiasset where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Multiasset'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Multiasset'policyId x__)-                (Control.DeepSeq.deepseq-                   (_Multiasset'assets x__)-                   (Control.DeepSeq.deepseq (_Multiasset'redeemer x__) ())))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'nativeScript' @:: Lens' NativeScript (Prelude.Maybe NativeScript'NativeScript)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptPubkey' @:: Lens' NativeScript (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptPubkey' @:: Lens' NativeScript Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAll' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAll' @:: Lens' NativeScript NativeScriptList@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAny' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAny' @:: Lens' NativeScript NativeScriptList@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptNOfK' @:: Lens' NativeScript (Prelude.Maybe ScriptNOfK)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptNOfK' @:: Lens' NativeScript ScriptNOfK@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidBefore' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidBefore' @:: Lens' NativeScript Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidHereafter' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidHereafter' @:: Lens' NativeScript Data.Word.Word64@ -}-data NativeScript-  = NativeScript'_constructor {_NativeScript'nativeScript :: !(Prelude.Maybe NativeScript'NativeScript),-                               _NativeScript'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show NativeScript where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-data NativeScript'NativeScript-  = NativeScript'ScriptPubkey !Data.ByteString.ByteString |-    NativeScript'ScriptAll !NativeScriptList |-    NativeScript'ScriptAny !NativeScriptList |-    NativeScript'ScriptNOfK !ScriptNOfK |-    NativeScript'InvalidBefore !Data.Word.Word64 |-    NativeScript'InvalidHereafter !Data.Word.Word64-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField NativeScript "maybe'nativeScript" (Prelude.Maybe NativeScript'NativeScript) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptPubkey" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (NativeScript'ScriptPubkey x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkey y__))-instance Data.ProtoLens.Field.HasField NativeScript "scriptPubkey" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (NativeScript'ScriptPubkey x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkey y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAll" (Prelude.Maybe NativeScriptList) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (NativeScript'ScriptAll x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__))-instance Data.ProtoLens.Field.HasField NativeScript "scriptAll" NativeScriptList where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (NativeScript'ScriptAll x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAny" (Prelude.Maybe NativeScriptList) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (NativeScript'ScriptAny x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__))-instance Data.ProtoLens.Field.HasField NativeScript "scriptAny" NativeScriptList where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (NativeScript'ScriptAny x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptNOfK" (Prelude.Maybe ScriptNOfK) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (NativeScript'ScriptNOfK x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__))-instance Data.ProtoLens.Field.HasField NativeScript "scriptNOfK" ScriptNOfK where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (NativeScript'ScriptNOfK x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidBefore" (Prelude.Maybe Data.Word.Word64) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (NativeScript'InvalidBefore x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__))-instance Data.ProtoLens.Field.HasField NativeScript "invalidBefore" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (NativeScript'InvalidBefore x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidHereafter" (Prelude.Maybe Data.Word.Word64) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (NativeScript'InvalidHereafter x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__))-instance Data.ProtoLens.Field.HasField NativeScript "invalidHereafter" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScript'nativeScript-           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (NativeScript'InvalidHereafter x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Message NativeScript where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.NativeScript"-  packedMessageDescriptor _-    = "\n\-      \\fNativeScript\DC2%\n\-      \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\-      \\n\-      \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\-      \\n\-      \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\-      \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\-      \scriptNOfK\DC2'\n\-      \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\-      \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\-      \\rnative_script"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        scriptPubkey__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "script_pubkey"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'scriptPubkey")) ::-              Data.ProtoLens.FieldDescriptor NativeScript-        scriptAll__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "script_all"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor NativeScriptList)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'scriptAll")) ::-              Data.ProtoLens.FieldDescriptor NativeScript-        scriptAny__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "script_any"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor NativeScriptList)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'scriptAny")) ::-              Data.ProtoLens.FieldDescriptor NativeScript-        scriptNOfK__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "script_n_of_k"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor ScriptNOfK)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'scriptNOfK")) ::-              Data.ProtoLens.FieldDescriptor NativeScript-        invalidBefore__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "invalid_before"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'invalidBefore")) ::-              Data.ProtoLens.FieldDescriptor NativeScript-        invalidHereafter__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "invalid_hereafter"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'invalidHereafter")) ::-              Data.ProtoLens.FieldDescriptor NativeScript-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, scriptPubkey__field_descriptor),-           (Data.ProtoLens.Tag 2, scriptAll__field_descriptor),-           (Data.ProtoLens.Tag 3, scriptAny__field_descriptor),-           (Data.ProtoLens.Tag 4, scriptNOfK__field_descriptor),-           (Data.ProtoLens.Tag 5, invalidBefore__field_descriptor),-           (Data.ProtoLens.Tag 6, invalidHereafter__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _NativeScript'_unknownFields-        (\ x__ y__ -> x__ {_NativeScript'_unknownFields = y__})-  defMessage-    = NativeScript'_constructor-        {_NativeScript'nativeScript = Prelude.Nothing,-         _NativeScript'_unknownFields = []}-  parseMessage-    = let-        loop ::-          NativeScript -> Data.ProtoLens.Encoding.Bytes.Parser NativeScript-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "script_pubkey"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"scriptPubkey") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "script_all"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAll") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "script_any"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAny") y x)-                        34-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "script_n_of_k"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptNOfK") y x)-                        40-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_before"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"invalidBefore") y x)-                        48-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_hereafter"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"invalidHereafter") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "NativeScript"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view-                    (Data.ProtoLens.Field.field @"maybe'nativeScript") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just (NativeScript'ScriptPubkey v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v)-                (Prelude.Just (NativeScript'ScriptAll v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v)-                (Prelude.Just (NativeScript'ScriptAny v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v)-                (Prelude.Just (NativeScript'ScriptNOfK v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v)-                (Prelude.Just (NativeScript'InvalidBefore v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 40)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt v)-                (Prelude.Just (NativeScript'InvalidHereafter v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 48)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt v))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData NativeScript where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_NativeScript'_unknownFields x__)-             (Control.DeepSeq.deepseq (_NativeScript'nativeScript x__) ())-instance Control.DeepSeq.NFData NativeScript'NativeScript where-  rnf (NativeScript'ScriptPubkey x__) = Control.DeepSeq.rnf x__-  rnf (NativeScript'ScriptAll x__) = Control.DeepSeq.rnf x__-  rnf (NativeScript'ScriptAny x__) = Control.DeepSeq.rnf x__-  rnf (NativeScript'ScriptNOfK x__) = Control.DeepSeq.rnf x__-  rnf (NativeScript'InvalidBefore x__) = Control.DeepSeq.rnf x__-  rnf (NativeScript'InvalidHereafter x__) = Control.DeepSeq.rnf x__-_NativeScript'ScriptPubkey ::-  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.ByteString.ByteString-_NativeScript'ScriptPubkey-  = Data.ProtoLens.Prism.prism'-      NativeScript'ScriptPubkey-      (\ p__-         -> case p__ of-              (NativeScript'ScriptPubkey p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_NativeScript'ScriptAll ::-  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList-_NativeScript'ScriptAll-  = Data.ProtoLens.Prism.prism'-      NativeScript'ScriptAll-      (\ p__-         -> case p__ of-              (NativeScript'ScriptAll p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_NativeScript'ScriptAny ::-  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList-_NativeScript'ScriptAny-  = Data.ProtoLens.Prism.prism'-      NativeScript'ScriptAny-      (\ p__-         -> case p__ of-              (NativeScript'ScriptAny p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_NativeScript'ScriptNOfK ::-  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript ScriptNOfK-_NativeScript'ScriptNOfK-  = Data.ProtoLens.Prism.prism'-      NativeScript'ScriptNOfK-      (\ p__-         -> case p__ of-              (NativeScript'ScriptNOfK p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_NativeScript'InvalidBefore ::-  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64-_NativeScript'InvalidBefore-  = Data.ProtoLens.Prism.prism'-      NativeScript'InvalidBefore-      (\ p__-         -> case p__ of-              (NativeScript'InvalidBefore p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_NativeScript'InvalidHereafter ::-  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64-_NativeScript'InvalidHereafter-  = Data.ProtoLens.Prism.prism'-      NativeScript'InvalidHereafter-      (\ p__-         -> case p__ of-              (NativeScript'InvalidHereafter p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' NativeScriptList [NativeScript]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' NativeScriptList (Data.Vector.Vector NativeScript)@ -}-data NativeScriptList-  = NativeScriptList'_constructor {_NativeScriptList'items :: !(Data.Vector.Vector NativeScript),-                                   _NativeScriptList'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show NativeScriptList where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField NativeScriptList "items" [NativeScript] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScriptList'items-           (\ x__ y__ -> x__ {_NativeScriptList'items = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField NativeScriptList "vec'items" (Data.Vector.Vector NativeScript) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _NativeScriptList'items-           (\ x__ y__ -> x__ {_NativeScriptList'items = y__}))-        Prelude.id-instance Data.ProtoLens.Message NativeScriptList where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.NativeScriptList"-  packedMessageDescriptor _-    = "\n\-      \\DLENativeScriptList\DC2;\n\-      \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        items__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "items"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor NativeScript)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::-              Data.ProtoLens.FieldDescriptor NativeScriptList-      in-        Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _NativeScriptList'_unknownFields-        (\ x__ y__ -> x__ {_NativeScriptList'_unknownFields = y__})-  defMessage-    = NativeScriptList'_constructor-        {_NativeScriptList'items = Data.Vector.Generic.empty,-         _NativeScriptList'_unknownFields = []}-  parseMessage-    = let-        loop ::-          NativeScriptList-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript-             -> Data.ProtoLens.Encoding.Bytes.Parser NativeScriptList-        loop x mutable'items-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "items"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'items-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                 Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'items)-          "NativeScriptList"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData NativeScriptList where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_NativeScriptList'_unknownFields x__)-             (Control.DeepSeq.deepseq (_NativeScriptList'items x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coinsPerUtxoByte' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxTxSize' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeCoefficient' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeConstant' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockBodySize' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockHeaderSize' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeKeyDeposit' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolDeposit' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRetirementEpochBound' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.desiredNumberOfPools' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolInfluence' @:: Lens' PParams RationalNumber@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolInfluence' @:: Lens' PParams (Prelude.Maybe RationalNumber)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.monetaryExpansion' @:: Lens' PParams RationalNumber@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'monetaryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.treasuryExpansion' @:: Lens' PParams RationalNumber@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'treasuryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minPoolCost' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.protocolVersion' @:: Lens' PParams ProtocolVersion@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'protocolVersion' @:: Lens' PParams (Prelude.Maybe ProtocolVersion)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxValueSize' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateralPercentage' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxCollateralInputs' @:: Lens' PParams Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.costModels' @:: Lens' PParams CostModels@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'costModels' @:: Lens' PParams (Prelude.Maybe CostModels)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.prices' @:: Lens' PParams ExPrices@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'prices' @:: Lens' PParams (Prelude.Maybe ExPrices)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerTransaction' @:: Lens' PParams ExUnits@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerTransaction' @:: Lens' PParams (Prelude.Maybe ExUnits)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerBlock' @:: Lens' PParams ExUnits@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerBlock' @:: Lens' PParams (Prelude.Maybe ExUnits)@ -}-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'_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.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"-  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-      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)]-  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'_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)-                        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.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__)-                                                                               ()))))))))))))))))))))))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusData' @:: Lens' PlutusData (Prelude.Maybe PlutusData'PlutusData)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'constr' @:: Lens' PlutusData (Prelude.Maybe Constr)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.constr' @:: Lens' PlutusData Constr@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'map' @:: Lens' PlutusData (Prelude.Maybe PlutusDataMap)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.map' @:: Lens' PlutusData PlutusDataMap@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' PlutusData (Prelude.Maybe BigInt)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigInt' @:: Lens' PlutusData BigInt@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'boundedBytes' @:: Lens' PlutusData (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.boundedBytes' @:: Lens' PlutusData Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'array' @:: Lens' PlutusData (Prelude.Maybe PlutusDataArray)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.array' @:: Lens' PlutusData PlutusDataArray@ -}-data PlutusData-  = PlutusData'_constructor {_PlutusData'plutusData :: !(Prelude.Maybe PlutusData'PlutusData),-                             _PlutusData'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show PlutusData where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-data PlutusData'PlutusData-  = PlutusData'Constr !Constr |-    PlutusData'Map !PlutusDataMap |-    PlutusData'BigInt !BigInt |-    PlutusData'BoundedBytes !Data.ByteString.ByteString |-    PlutusData'Array !PlutusDataArray-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField PlutusData "maybe'plutusData" (Prelude.Maybe PlutusData'PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PlutusData "maybe'constr" (Prelude.Maybe Constr) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap PlutusData'Constr y__))-instance Data.ProtoLens.Field.HasField PlutusData "constr" Constr where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap PlutusData'Constr y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField PlutusData "maybe'map" (Prelude.Maybe PlutusDataMap) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap PlutusData'Map y__))-instance Data.ProtoLens.Field.HasField PlutusData "map" PlutusDataMap where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap PlutusData'Map y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField PlutusData "maybe'bigInt" (Prelude.Maybe BigInt) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__))-instance Data.ProtoLens.Field.HasField PlutusData "bigInt" BigInt where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField PlutusData "maybe'boundedBytes" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (PlutusData'BoundedBytes x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__))-instance Data.ProtoLens.Field.HasField PlutusData "boundedBytes" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (PlutusData'BoundedBytes x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField PlutusData "maybe'array" (Prelude.Maybe PlutusDataArray) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap PlutusData'Array y__))-instance Data.ProtoLens.Field.HasField PlutusData "array" PlutusDataArray where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusData'plutusData-           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap PlutusData'Array y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Message PlutusData where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusData"-  packedMessageDescriptor _-    = "\n\-      \\n\-      \PlutusData\DC29\n\-      \\ACKconstr\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\-      \\ETXmap\CAN\STX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\-      \\abig_int\CAN\ETX \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\-      \\rbounded_bytes\CAN\EOT \SOH(\fH\NULR\fboundedBytes\DC2@\n\-      \\ENQarray\CAN\ENQ \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\-      \\vplutus_data"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        constr__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "constr"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Constr)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'constr")) ::-              Data.ProtoLens.FieldDescriptor PlutusData-        map__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "map"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusDataMap)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'map")) ::-              Data.ProtoLens.FieldDescriptor PlutusData-        bigInt__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "big_int"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor BigInt)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'bigInt")) ::-              Data.ProtoLens.FieldDescriptor PlutusData-        boundedBytes__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "bounded_bytes"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'boundedBytes")) ::-              Data.ProtoLens.FieldDescriptor PlutusData-        array__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "array"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusDataArray)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'array")) ::-              Data.ProtoLens.FieldDescriptor PlutusData-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, constr__field_descriptor),-           (Data.ProtoLens.Tag 2, map__field_descriptor),-           (Data.ProtoLens.Tag 3, bigInt__field_descriptor),-           (Data.ProtoLens.Tag 4, boundedBytes__field_descriptor),-           (Data.ProtoLens.Tag 5, array__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _PlutusData'_unknownFields-        (\ x__ y__ -> x__ {_PlutusData'_unknownFields = y__})-  defMessage-    = PlutusData'_constructor-        {_PlutusData'plutusData = Prelude.Nothing,-         _PlutusData'_unknownFields = []}-  parseMessage-    = let-        loop ::-          PlutusData -> Data.ProtoLens.Encoding.Bytes.Parser PlutusData-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        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)-                                       "constr"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"constr") 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)-                                       "map"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") 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)-                                       "big_int"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigInt") y x)-                        34-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "bounded_bytes"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"boundedBytes") y x)-                        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)-                                       "array"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "PlutusData"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view-                    (Data.ProtoLens.Field.field @"maybe'plutusData") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just (PlutusData'Constr v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 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 (PlutusData'Map v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v)-                (Prelude.Just (PlutusData'BigInt v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v)-                (Prelude.Just (PlutusData'BoundedBytes 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 (PlutusData'Array 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 PlutusData where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_PlutusData'_unknownFields x__)-             (Control.DeepSeq.deepseq (_PlutusData'plutusData x__) ())-instance Control.DeepSeq.NFData PlutusData'PlutusData where-  rnf (PlutusData'Constr x__) = Control.DeepSeq.rnf x__-  rnf (PlutusData'Map x__) = Control.DeepSeq.rnf x__-  rnf (PlutusData'BigInt x__) = Control.DeepSeq.rnf x__-  rnf (PlutusData'BoundedBytes x__) = Control.DeepSeq.rnf x__-  rnf (PlutusData'Array x__) = Control.DeepSeq.rnf x__-_PlutusData'Constr ::-  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Constr-_PlutusData'Constr-  = Data.ProtoLens.Prism.prism'-      PlutusData'Constr-      (\ p__-         -> case p__ of-              (PlutusData'Constr p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_PlutusData'Map ::-  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataMap-_PlutusData'Map-  = Data.ProtoLens.Prism.prism'-      PlutusData'Map-      (\ p__-         -> case p__ of-              (PlutusData'Map p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_PlutusData'BigInt ::-  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData BigInt-_PlutusData'BigInt-  = Data.ProtoLens.Prism.prism'-      PlutusData'BigInt-      (\ p__-         -> case p__ of-              (PlutusData'BigInt p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_PlutusData'BoundedBytes ::-  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Data.ByteString.ByteString-_PlutusData'BoundedBytes-  = Data.ProtoLens.Prism.prism'-      PlutusData'BoundedBytes-      (\ p__-         -> case p__ of-              (PlutusData'BoundedBytes p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_PlutusData'Array ::-  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataArray-_PlutusData'Array-  = Data.ProtoLens.Prism.prism'-      PlutusData'Array-      (\ p__-         -> case p__ of-              (PlutusData'Array p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' PlutusDataArray [PlutusData]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' PlutusDataArray (Data.Vector.Vector PlutusData)@ -}-data PlutusDataArray-  = PlutusDataArray'_constructor {_PlutusDataArray'items :: !(Data.Vector.Vector PlutusData),-                                  _PlutusDataArray'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show PlutusDataArray where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField PlutusDataArray "items" [PlutusData] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataArray'items-           (\ x__ y__ -> x__ {_PlutusDataArray'items = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField PlutusDataArray "vec'items" (Data.Vector.Vector PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataArray'items-           (\ x__ y__ -> x__ {_PlutusDataArray'items = y__}))-        Prelude.id-instance Data.ProtoLens.Message PlutusDataArray where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataArray"-  packedMessageDescriptor _-    = "\n\-      \\SIPlutusDataArray\DC29\n\-      \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        items__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "items"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusData)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::-              Data.ProtoLens.FieldDescriptor PlutusDataArray-      in-        Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _PlutusDataArray'_unknownFields-        (\ x__ y__ -> x__ {_PlutusDataArray'_unknownFields = y__})-  defMessage-    = PlutusDataArray'_constructor-        {_PlutusDataArray'items = Data.Vector.Generic.empty,-         _PlutusDataArray'_unknownFields = []}-  parseMessage-    = let-        loop ::-          PlutusDataArray-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData-             -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataArray-        loop x mutable'items-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "items"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'items-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                 Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'items)-          "PlutusDataArray"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData PlutusDataArray where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_PlutusDataArray'_unknownFields x__)-             (Control.DeepSeq.deepseq (_PlutusDataArray'items x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pairs' @:: Lens' PlutusDataMap [PlutusDataPair]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'pairs' @:: Lens' PlutusDataMap (Data.Vector.Vector PlutusDataPair)@ -}-data PlutusDataMap-  = PlutusDataMap'_constructor {_PlutusDataMap'pairs :: !(Data.Vector.Vector PlutusDataPair),-                                _PlutusDataMap'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show PlutusDataMap where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField PlutusDataMap "pairs" [PlutusDataPair] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataMap'pairs-           (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField PlutusDataMap "vec'pairs" (Data.Vector.Vector PlutusDataPair) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataMap'pairs-           (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__}))-        Prelude.id-instance Data.ProtoLens.Message PlutusDataMap where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataMap"-  packedMessageDescriptor _-    = "\n\-      \\rPlutusDataMap\DC2=\n\-      \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        pairs__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pairs"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusDataPair)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pairs")) ::-              Data.ProtoLens.FieldDescriptor PlutusDataMap-      in-        Data.Map.fromList [(Data.ProtoLens.Tag 1, pairs__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _PlutusDataMap'_unknownFields-        (\ x__ y__ -> x__ {_PlutusDataMap'_unknownFields = y__})-  defMessage-    = PlutusDataMap'_constructor-        {_PlutusDataMap'pairs = Data.Vector.Generic.empty,-         _PlutusDataMap'_unknownFields = []}-  parseMessage-    = let-        loop ::-          PlutusDataMap-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusDataPair-             -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataMap-        loop x mutable'pairs-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "pairs"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'pairs y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'pairs-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                 Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'pairs)-          "PlutusDataMap"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pairs") _x))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData PlutusDataMap where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_PlutusDataMap'_unknownFields x__)-             (Control.DeepSeq.deepseq (_PlutusDataMap'pairs x__) ())-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.key' @:: Lens' PlutusDataPair PlutusData@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'key' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' PlutusDataPair PlutusData@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@ -}-data PlutusDataPair-  = PlutusDataPair'_constructor {_PlutusDataPair'key :: !(Prelude.Maybe PlutusData),-                                 _PlutusDataPair'value :: !(Prelude.Maybe PlutusData),-                                 _PlutusDataPair'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show PlutusDataPair where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField PlutusDataPair "key" PlutusData where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'key" (Prelude.Maybe PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PlutusDataPair "value" PlutusData where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataPair'value-           (\ x__ y__ -> x__ {_PlutusDataPair'value = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'value" (Prelude.Maybe PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PlutusDataPair'value-           (\ x__ y__ -> x__ {_PlutusDataPair'value = y__}))-        Prelude.id-instance Data.ProtoLens.Message PlutusDataPair where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataPair"-  packedMessageDescriptor _-    = "\n\-      \\SOPlutusDataPair\DC25\n\-      \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\-      \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        key__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "key"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusData)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'key")) ::-              Data.ProtoLens.FieldDescriptor PlutusDataPair-        value__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "value"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusData)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'value")) ::-              Data.ProtoLens.FieldDescriptor PlutusDataPair-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, key__field_descriptor),-           (Data.ProtoLens.Tag 2, value__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _PlutusDataPair'_unknownFields-        (\ x__ y__ -> x__ {_PlutusDataPair'_unknownFields = y__})-  defMessage-    = PlutusDataPair'_constructor-        {_PlutusDataPair'key = Prelude.Nothing,-         _PlutusDataPair'value = Prelude.Nothing,-         _PlutusDataPair'_unknownFields = []}-  parseMessage-    = let-        loop ::-          PlutusDataPair-          -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataPair-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "key"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "value"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "PlutusDataPair"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData PlutusDataPair where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_PlutusDataPair'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_PlutusDataPair'key x__)-                (Control.DeepSeq.deepseq (_PlutusDataPair'value x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.url' @:: Lens' PoolMetadata Data.Text.Text@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' PoolMetadata Data.ByteString.ByteString@ -}-data PoolMetadata-  = PoolMetadata'_constructor {_PoolMetadata'url :: !Data.Text.Text,-                               _PoolMetadata'hash :: !Data.ByteString.ByteString,-                               _PoolMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show PoolMetadata where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField PoolMetadata "url" Data.Text.Text where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolMetadata'url (\ x__ y__ -> x__ {_PoolMetadata'url = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolMetadata "hash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolMetadata'hash (\ x__ y__ -> x__ {_PoolMetadata'hash = y__}))-        Prelude.id-instance Data.ProtoLens.Message PoolMetadata where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.PoolMetadata"-  packedMessageDescriptor _-    = "\n\-      \\fPoolMetadata\DC2\DLE\n\-      \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\-      \\EOThash\CAN\STX \SOH(\fR\EOThash"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        url__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "url"-              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"url")) ::-              Data.ProtoLens.FieldDescriptor PoolMetadata-        hash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::-              Data.ProtoLens.FieldDescriptor PoolMetadata-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, url__field_descriptor),-           (Data.ProtoLens.Tag 2, hash__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _PoolMetadata'_unknownFields-        (\ x__ y__ -> x__ {_PoolMetadata'_unknownFields = y__})-  defMessage-    = PoolMetadata'_constructor-        {_PoolMetadata'url = Data.ProtoLens.fieldDefault,-         _PoolMetadata'hash = Data.ProtoLens.fieldDefault,-         _PoolMetadata'_unknownFields = []}-  parseMessage-    = let-        loop ::-          PoolMetadata -> Data.ProtoLens.Encoding.Bytes.Parser PoolMetadata-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getText-                                             (Prelude.fromIntegral len))-                                       "url"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"url") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "hash"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "PoolMetadata"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"url") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((Prelude..)-                         (\ bs-                            -> (Data.Monoid.<>)-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt-                                    (Prelude.fromIntegral (Data.ByteString.length bs)))-                                 (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         Data.Text.Encoding.encodeUtf8 _v))-             ((Data.Monoid.<>)-                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData PoolMetadata where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_PoolMetadata'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_PoolMetadata'url x__)-                (Control.DeepSeq.deepseq (_PoolMetadata'hash x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.operator' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pledge' @:: Lens' PoolRegistrationCert Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.cost' @:: Lens' PoolRegistrationCert Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.margin' @:: Lens' PoolRegistrationCert RationalNumber@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'margin' @:: Lens' PoolRegistrationCert (Prelude.Maybe RationalNumber)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.rewardAccount' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolOwners' @:: Lens' PoolRegistrationCert [Data.ByteString.ByteString]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'poolOwners' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.relays' @:: Lens' PoolRegistrationCert [Relay]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'relays' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Relay)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolMetadata' @:: Lens' PoolRegistrationCert PoolMetadata@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolMetadata' @:: Lens' PoolRegistrationCert (Prelude.Maybe PoolMetadata)@ -}-data PoolRegistrationCert-  = PoolRegistrationCert'_constructor {_PoolRegistrationCert'operator :: !Data.ByteString.ByteString,-                                       _PoolRegistrationCert'vrfKeyhash :: !Data.ByteString.ByteString,-                                       _PoolRegistrationCert'pledge :: !Data.Word.Word64,-                                       _PoolRegistrationCert'cost :: !Data.Word.Word64,-                                       _PoolRegistrationCert'margin :: !(Prelude.Maybe RationalNumber),-                                       _PoolRegistrationCert'rewardAccount :: !Data.ByteString.ByteString,-                                       _PoolRegistrationCert'poolOwners :: !(Data.Vector.Vector Data.ByteString.ByteString),-                                       _PoolRegistrationCert'relays :: !(Data.Vector.Vector Relay),-                                       _PoolRegistrationCert'poolMetadata :: !(Prelude.Maybe PoolMetadata),-                                       _PoolRegistrationCert'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show PoolRegistrationCert where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "operator" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'operator-           (\ x__ y__ -> x__ {_PoolRegistrationCert'operator = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vrfKeyhash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'vrfKeyhash-           (\ x__ y__ -> x__ {_PoolRegistrationCert'vrfKeyhash = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "pledge" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'pledge-           (\ x__ y__ -> x__ {_PoolRegistrationCert'pledge = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "cost" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'cost-           (\ x__ y__ -> x__ {_PoolRegistrationCert'cost = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "margin" RationalNumber where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'margin-           (\ x__ y__ -> x__ {_PoolRegistrationCert'margin = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'margin" (Prelude.Maybe RationalNumber) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'margin-           (\ x__ y__ -> x__ {_PoolRegistrationCert'margin = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "rewardAccount" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'rewardAccount-           (\ x__ y__ -> x__ {_PoolRegistrationCert'rewardAccount = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolOwners" [Data.ByteString.ByteString] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'poolOwners-           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolOwners = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'poolOwners" (Data.Vector.Vector Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'poolOwners-           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolOwners = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "relays" [Relay] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'relays-           (\ x__ y__ -> x__ {_PoolRegistrationCert'relays = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'relays" (Data.Vector.Vector Relay) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'relays-           (\ x__ y__ -> x__ {_PoolRegistrationCert'relays = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolMetadata" PoolMetadata where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'poolMetadata-           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolMetadata = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'poolMetadata" (Prelude.Maybe PoolMetadata) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRegistrationCert'poolMetadata-           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolMetadata = y__}))-        Prelude.id-instance Data.ProtoLens.Message PoolRegistrationCert where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.PoolRegistrationCert"-  packedMessageDescriptor _-    = "\n\-      \\DC4PoolRegistrationCert\DC2\SUB\n\-      \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\-      \\vvrf_keyhash\CAN\STX \SOH(\fR\n\-      \vrfKeyhash\DC2\SYN\n\-      \\ACKpledge\CAN\ETX \SOH(\EOTR\ACKpledge\DC2\DC2\n\-      \\EOTcost\CAN\EOT \SOH(\EOTR\EOTcost\DC2?\n\-      \\ACKmargin\CAN\ENQ \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmargin\DC2%\n\-      \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\-      \\vpool_owners\CAN\a \ETX(\fR\n\-      \poolOwners\DC26\n\-      \\ACKrelays\CAN\b \ETX(\v2\RS.utxorpc.v1alpha.cardano.RelayR\ACKrelays\DC2J\n\-      \\rpool_metadata\CAN\t \SOH(\v2%.utxorpc.v1alpha.cardano.PoolMetadataR\fpoolMetadata"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        operator__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "operator"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"operator")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        vrfKeyhash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "vrf_keyhash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"vrfKeyhash")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        pledge__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pledge"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pledge")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        cost__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "cost"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"cost")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        margin__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "margin"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'margin")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        rewardAccount__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "reward_account"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"rewardAccount")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        poolOwners__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pool_owners"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"poolOwners")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        relays__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "relays"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Relay)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"relays")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-        poolMetadata__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pool_metadata"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PoolMetadata)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'poolMetadata")) ::-              Data.ProtoLens.FieldDescriptor PoolRegistrationCert-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, operator__field_descriptor),-           (Data.ProtoLens.Tag 2, vrfKeyhash__field_descriptor),-           (Data.ProtoLens.Tag 3, pledge__field_descriptor),-           (Data.ProtoLens.Tag 4, cost__field_descriptor),-           (Data.ProtoLens.Tag 5, margin__field_descriptor),-           (Data.ProtoLens.Tag 6, rewardAccount__field_descriptor),-           (Data.ProtoLens.Tag 7, poolOwners__field_descriptor),-           (Data.ProtoLens.Tag 8, relays__field_descriptor),-           (Data.ProtoLens.Tag 9, poolMetadata__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _PoolRegistrationCert'_unknownFields-        (\ x__ y__ -> x__ {_PoolRegistrationCert'_unknownFields = y__})-  defMessage-    = PoolRegistrationCert'_constructor-        {_PoolRegistrationCert'operator = Data.ProtoLens.fieldDefault,-         _PoolRegistrationCert'vrfKeyhash = Data.ProtoLens.fieldDefault,-         _PoolRegistrationCert'pledge = Data.ProtoLens.fieldDefault,-         _PoolRegistrationCert'cost = Data.ProtoLens.fieldDefault,-         _PoolRegistrationCert'margin = Prelude.Nothing,-         _PoolRegistrationCert'rewardAccount = Data.ProtoLens.fieldDefault,-         _PoolRegistrationCert'poolOwners = Data.Vector.Generic.empty,-         _PoolRegistrationCert'relays = Data.Vector.Generic.empty,-         _PoolRegistrationCert'poolMetadata = Prelude.Nothing,-         _PoolRegistrationCert'_unknownFields = []}-  parseMessage-    = let-        loop ::-          PoolRegistrationCert-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString-             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Relay-                -> Data.ProtoLens.Encoding.Bytes.Parser PoolRegistrationCert-        loop x mutable'poolOwners mutable'relays-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'poolOwners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'poolOwners)-                      frozen'relays <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                            mutable'relays)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'poolOwners") frozen'poolOwners-                              (Lens.Family2.set-                                 (Data.ProtoLens.Field.field @"vec'relays") frozen'relays x)))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "operator"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"operator") y x)-                                  mutable'poolOwners mutable'relays-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "vrf_keyhash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"vrfKeyhash") y x)-                                  mutable'poolOwners mutable'relays-                        24-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "pledge"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"pledge") y x)-                                  mutable'poolOwners mutable'relays-                        32-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "cost"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"cost") y x)-                                  mutable'poolOwners mutable'relays-                        42-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "margin"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"margin") y x)-                                  mutable'poolOwners mutable'relays-                        50-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "reward_account"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"rewardAccount") y x)-                                  mutable'poolOwners mutable'relays-                        58-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.getBytes-                                              (Prelude.fromIntegral len))-                                        "pool_owners"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'poolOwners y)-                                loop x v mutable'relays-                        66-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "relays"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'relays y)-                                loop x mutable'poolOwners v-                        74-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "pool_metadata"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"poolMetadata") y x)-                                  mutable'poolOwners mutable'relays-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'poolOwners mutable'relays-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'poolOwners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                      Data.ProtoLens.Encoding.Growing.new-              mutable'relays <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                  Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'poolOwners mutable'relays)-          "PoolRegistrationCert"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"operator") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let-                   _v-                     = Lens.Family2.view (Data.ProtoLens.Field.field @"vrfKeyhash") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                ((Data.Monoid.<>)-                   (let-                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pledge") _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 @"cost") _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.<>)-                         (case-                              Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'margin") _x-                          of-                            Prelude.Nothing -> Data.Monoid.mempty-                            (Prelude.Just _v)-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt 42)-                                   ((Prelude..)-                                      (\ bs-                                         -> (Data.Monoid.<>)-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                              (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                      Data.ProtoLens.encodeMessage _v))-                         ((Data.Monoid.<>)-                            (let-                               _v-                                 = Lens.Family2.view-                                     (Data.ProtoLens.Field.field @"rewardAccount") _x-                             in-                               if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                                   Data.Monoid.mempty-                               else-                                   (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt 50)-                                     ((\ bs-                                         -> (Data.Monoid.<>)-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                              (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                        _v))-                            ((Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                  (\ _v-                                     -> (Data.Monoid.<>)-                                          (Data.ProtoLens.Encoding.Bytes.putVarInt 58)-                                          ((\ bs-                                              -> (Data.Monoid.<>)-                                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                      (Prelude.fromIntegral-                                                         (Data.ByteString.length bs)))-                                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                             _v))-                                  (Lens.Family2.view-                                     (Data.ProtoLens.Field.field @"vec'poolOwners") _x))-                               ((Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                     (\ _v-                                        -> (Data.Monoid.<>)-                                             (Data.ProtoLens.Encoding.Bytes.putVarInt 66)-                                             ((Prelude..)-                                                (\ bs-                                                   -> (Data.Monoid.<>)-                                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                           (Prelude.fromIntegral-                                                              (Data.ByteString.length bs)))-                                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Data.ProtoLens.encodeMessage _v))-                                     (Lens.Family2.view-                                        (Data.ProtoLens.Field.field @"vec'relays") _x))-                                  ((Data.Monoid.<>)-                                     (case-                                          Lens.Family2.view-                                            (Data.ProtoLens.Field.field @"maybe'poolMetadata") _x-                                      of-                                        Prelude.Nothing -> Data.Monoid.mempty-                                        (Prelude.Just _v)-                                          -> (Data.Monoid.<>)-                                               (Data.ProtoLens.Encoding.Bytes.putVarInt 74)-                                               ((Prelude..)-                                                  (\ bs-                                                     -> (Data.Monoid.<>)-                                                          (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                             (Prelude.fromIntegral-                                                                (Data.ByteString.length bs)))-                                                          (Data.ProtoLens.Encoding.Bytes.putBytes-                                                             bs))-                                                  Data.ProtoLens.encodeMessage _v))-                                     (Data.ProtoLens.Encoding.Wire.buildFieldSet-                                        (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))))-instance Control.DeepSeq.NFData PoolRegistrationCert where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_PoolRegistrationCert'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_PoolRegistrationCert'operator x__)-                (Control.DeepSeq.deepseq-                   (_PoolRegistrationCert'vrfKeyhash x__)-                   (Control.DeepSeq.deepseq-                      (_PoolRegistrationCert'pledge x__)-                      (Control.DeepSeq.deepseq-                         (_PoolRegistrationCert'cost x__)-                         (Control.DeepSeq.deepseq-                            (_PoolRegistrationCert'margin x__)-                            (Control.DeepSeq.deepseq-                               (_PoolRegistrationCert'rewardAccount x__)-                               (Control.DeepSeq.deepseq-                                  (_PoolRegistrationCert'poolOwners x__)-                                  (Control.DeepSeq.deepseq-                                     (_PoolRegistrationCert'relays x__)-                                     (Control.DeepSeq.deepseq-                                        (_PoolRegistrationCert'poolMetadata x__) ())))))))))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' PoolRetirementCert Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.epoch' @:: Lens' PoolRetirementCert Data.Word.Word64@ -}-data PoolRetirementCert-  = PoolRetirementCert'_constructor {_PoolRetirementCert'poolKeyhash :: !Data.ByteString.ByteString,-                                     _PoolRetirementCert'epoch :: !Data.Word.Word64,-                                     _PoolRetirementCert'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show PoolRetirementCert where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField PoolRetirementCert "poolKeyhash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRetirementCert'poolKeyhash-           (\ x__ y__ -> x__ {_PoolRetirementCert'poolKeyhash = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField PoolRetirementCert "epoch" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _PoolRetirementCert'epoch-           (\ x__ y__ -> x__ {_PoolRetirementCert'epoch = y__}))-        Prelude.id-instance Data.ProtoLens.Message PoolRetirementCert where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.PoolRetirementCert"-  packedMessageDescriptor _-    = "\n\-      \\DC2PoolRetirementCert\DC2!\n\-      \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\-      \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        poolKeyhash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pool_keyhash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"poolKeyhash")) ::-              Data.ProtoLens.FieldDescriptor PoolRetirementCert-        epoch__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "epoch"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"epoch")) ::-              Data.ProtoLens.FieldDescriptor PoolRetirementCert-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, poolKeyhash__field_descriptor),-           (Data.ProtoLens.Tag 2, epoch__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _PoolRetirementCert'_unknownFields-        (\ x__ y__ -> x__ {_PoolRetirementCert'_unknownFields = y__})-  defMessage-    = PoolRetirementCert'_constructor-        {_PoolRetirementCert'poolKeyhash = Data.ProtoLens.fieldDefault,-         _PoolRetirementCert'epoch = Data.ProtoLens.fieldDefault,-         _PoolRetirementCert'_unknownFields = []}-  parseMessage-    = let-        loop ::-          PoolRetirementCert-          -> Data.ProtoLens.Encoding.Bytes.Parser PoolRetirementCert-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "pool_keyhash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x)-                        16-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "epoch"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epoch") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "PoolRetirementCert"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v-                  = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let-                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"epoch") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData PoolRetirementCert where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_PoolRetirementCert'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_PoolRetirementCert'poolKeyhash x__)-                (Control.DeepSeq.deepseq (_PoolRetirementCert'epoch x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.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.Int32@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.denominator' @:: Lens' RationalNumber Data.Word.Word32@ -}-data RationalNumber-  = RationalNumber'_constructor {_RationalNumber'numerator :: !Data.Int.Int32,-                                 _RationalNumber'denominator :: !Data.Word.Word32,-                                 _RationalNumber'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show RationalNumber where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField RationalNumber "numerator" Data.Int.Int32 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _RationalNumber'numerator-           (\ x__ y__ -> x__ {_RationalNumber'numerator = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField RationalNumber "denominator" Data.Word.Word32 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _RationalNumber'denominator-           (\ x__ y__ -> x__ {_RationalNumber'denominator = y__}))-        Prelude.id-instance Data.ProtoLens.Message RationalNumber where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.RationalNumber"-  packedMessageDescriptor _-    = "\n\-      \\SORationalNumber\DC2\FS\n\-      \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\-      \\vdenominator\CAN\STX \SOH(\rR\vdenominator"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        numerator__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "numerator"-              (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"numerator")) ::-              Data.ProtoLens.FieldDescriptor RationalNumber-        denominator__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "denominator"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"denominator")) ::-              Data.ProtoLens.FieldDescriptor RationalNumber-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, numerator__field_descriptor),-           (Data.ProtoLens.Tag 2, denominator__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _RationalNumber'_unknownFields-        (\ x__ y__ -> x__ {_RationalNumber'_unknownFields = y__})-  defMessage-    = RationalNumber'_constructor-        {_RationalNumber'numerator = Data.ProtoLens.fieldDefault,-         _RationalNumber'denominator = Data.ProtoLens.fieldDefault,-         _RationalNumber'_unknownFields = []}-  parseMessage-    = let-        loop ::-          RationalNumber-          -> Data.ProtoLens.Encoding.Bytes.Parser RationalNumber-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "numerator"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"numerator") y x)-                        16-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "denominator"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"denominator") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "RationalNumber"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"numerator") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      ((Prelude..)-                         Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))-             ((Data.Monoid.<>)-                (let-                   _v-                     = Lens.Family2.view (Data.ProtoLens.Field.field @"denominator") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                         ((Prelude..)-                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData RationalNumber where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_RationalNumber'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_RationalNumber'numerator x__)-                (Control.DeepSeq.deepseq (_RationalNumber'denominator x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.purpose' @:: Lens' Redeemer RedeemerPurpose@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.datum' @:: Lens' Redeemer PlutusData@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'datum' @:: Lens' Redeemer (Prelude.Maybe PlutusData)@ -}-data Redeemer-  = Redeemer'_constructor {_Redeemer'purpose :: !RedeemerPurpose,-                           _Redeemer'datum :: !(Prelude.Maybe PlutusData),-                           _Redeemer'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Redeemer where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Redeemer "purpose" RedeemerPurpose where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Redeemer'purpose (\ x__ y__ -> x__ {_Redeemer'purpose = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Redeemer "datum" PlutusData where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Redeemer'datum (\ x__ y__ -> x__ {_Redeemer'datum = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Redeemer "maybe'datum" (Prelude.Maybe PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Redeemer'datum (\ x__ y__ -> x__ {_Redeemer'datum = y__}))-        Prelude.id-instance Data.ProtoLens.Message Redeemer where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Redeemer"-  packedMessageDescriptor _-    = "\n\-      \\bRedeemer\DC2B\n\-      \\apurpose\CAN\SOH \SOH(\SO2(.utxorpc.v1alpha.cardano.RedeemerPurposeR\apurpose\DC29\n\-      \\ENQdatum\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        purpose__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "purpose"-              (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                 Data.ProtoLens.FieldTypeDescriptor RedeemerPurpose)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"purpose")) ::-              Data.ProtoLens.FieldDescriptor Redeemer-        datum__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "datum"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusData)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'datum")) ::-              Data.ProtoLens.FieldDescriptor Redeemer-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, purpose__field_descriptor),-           (Data.ProtoLens.Tag 2, datum__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Redeemer'_unknownFields-        (\ x__ y__ -> x__ {_Redeemer'_unknownFields = y__})-  defMessage-    = Redeemer'_constructor-        {_Redeemer'purpose = Data.ProtoLens.fieldDefault,-         _Redeemer'datum = Prelude.Nothing, _Redeemer'_unknownFields = []}-  parseMessage-    = let-        loop :: Redeemer -> Data.ProtoLens.Encoding.Bytes.Parser Redeemer-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.toEnum-                                          (Prelude.fmap-                                             Prelude.fromIntegral-                                             Data.ProtoLens.Encoding.Bytes.getVarInt))-                                       "purpose"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"purpose") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "datum"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"datum") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Redeemer"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"purpose") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      ((Prelude..)-                         ((Prelude..)-                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)-                         Prelude.fromEnum _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'datum") _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 Redeemer where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Redeemer'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Redeemer'purpose x__)-                (Control.DeepSeq.deepseq (_Redeemer'datum x__) ()))-newtype RedeemerPurpose'UnrecognizedValue-  = RedeemerPurpose'UnrecognizedValue Data.Int.Int32-  deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show)-data RedeemerPurpose-  = REDEEMER_PURPOSE_UNSPECIFIED |-    REDEEMER_PURPOSE_SPEND |-    REDEEMER_PURPOSE_MINT |-    REDEEMER_PURPOSE_CERT |-    REDEEMER_PURPOSE_REWARD |-    RedeemerPurpose'Unrecognized !RedeemerPurpose'UnrecognizedValue-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum RedeemerPurpose where-  maybeToEnum 0 = Prelude.Just REDEEMER_PURPOSE_UNSPECIFIED-  maybeToEnum 1 = Prelude.Just REDEEMER_PURPOSE_SPEND-  maybeToEnum 2 = Prelude.Just REDEEMER_PURPOSE_MINT-  maybeToEnum 3 = Prelude.Just REDEEMER_PURPOSE_CERT-  maybeToEnum 4 = Prelude.Just REDEEMER_PURPOSE_REWARD-  maybeToEnum k-    = Prelude.Just-        (RedeemerPurpose'Unrecognized-           (RedeemerPurpose'UnrecognizedValue (Prelude.fromIntegral k)))-  showEnum REDEEMER_PURPOSE_UNSPECIFIED-    = "REDEEMER_PURPOSE_UNSPECIFIED"-  showEnum REDEEMER_PURPOSE_SPEND = "REDEEMER_PURPOSE_SPEND"-  showEnum REDEEMER_PURPOSE_MINT = "REDEEMER_PURPOSE_MINT"-  showEnum REDEEMER_PURPOSE_CERT = "REDEEMER_PURPOSE_CERT"-  showEnum REDEEMER_PURPOSE_REWARD = "REDEEMER_PURPOSE_REWARD"-  showEnum-    (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue k))-    = Prelude.show k-  readEnum k-    | (Prelude.==) k "REDEEMER_PURPOSE_UNSPECIFIED"-    = Prelude.Just REDEEMER_PURPOSE_UNSPECIFIED-    | (Prelude.==) k "REDEEMER_PURPOSE_SPEND"-    = Prelude.Just REDEEMER_PURPOSE_SPEND-    | (Prelude.==) k "REDEEMER_PURPOSE_MINT"-    = Prelude.Just REDEEMER_PURPOSE_MINT-    | (Prelude.==) k "REDEEMER_PURPOSE_CERT"-    = Prelude.Just REDEEMER_PURPOSE_CERT-    | (Prelude.==) k "REDEEMER_PURPOSE_REWARD"-    = Prelude.Just REDEEMER_PURPOSE_REWARD-    | Prelude.otherwise-    = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum-instance Prelude.Bounded RedeemerPurpose where-  minBound = REDEEMER_PURPOSE_UNSPECIFIED-  maxBound = REDEEMER_PURPOSE_REWARD-instance Prelude.Enum RedeemerPurpose where-  toEnum k__-    = Prelude.maybe-        (Prelude.error-           ((Prelude.++)-              "toEnum: unknown value for enum RedeemerPurpose: "-              (Prelude.show k__)))-        Prelude.id (Data.ProtoLens.maybeToEnum k__)-  fromEnum REDEEMER_PURPOSE_UNSPECIFIED = 0-  fromEnum REDEEMER_PURPOSE_SPEND = 1-  fromEnum REDEEMER_PURPOSE_MINT = 2-  fromEnum REDEEMER_PURPOSE_CERT = 3-  fromEnum REDEEMER_PURPOSE_REWARD = 4-  fromEnum-    (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue k))-    = Prelude.fromIntegral k-  succ REDEEMER_PURPOSE_REWARD-    = Prelude.error-        "RedeemerPurpose.succ: bad argument REDEEMER_PURPOSE_REWARD. This value would be out of bounds."-  succ REDEEMER_PURPOSE_UNSPECIFIED = REDEEMER_PURPOSE_SPEND-  succ REDEEMER_PURPOSE_SPEND = REDEEMER_PURPOSE_MINT-  succ REDEEMER_PURPOSE_MINT = REDEEMER_PURPOSE_CERT-  succ REDEEMER_PURPOSE_CERT = REDEEMER_PURPOSE_REWARD-  succ (RedeemerPurpose'Unrecognized _)-    = Prelude.error-        "RedeemerPurpose.succ: bad argument: unrecognized value"-  pred REDEEMER_PURPOSE_UNSPECIFIED-    = Prelude.error-        "RedeemerPurpose.pred: bad argument REDEEMER_PURPOSE_UNSPECIFIED. This value would be out of bounds."-  pred REDEEMER_PURPOSE_SPEND = REDEEMER_PURPOSE_UNSPECIFIED-  pred REDEEMER_PURPOSE_MINT = REDEEMER_PURPOSE_SPEND-  pred REDEEMER_PURPOSE_CERT = REDEEMER_PURPOSE_MINT-  pred REDEEMER_PURPOSE_REWARD = REDEEMER_PURPOSE_CERT-  pred (RedeemerPurpose'Unrecognized _)-    = Prelude.error-        "RedeemerPurpose.pred: bad argument: unrecognized value"-  enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom-  enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo-  enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen-  enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo-instance Data.ProtoLens.FieldDefault RedeemerPurpose where-  fieldDefault = REDEEMER_PURPOSE_UNSPECIFIED-instance Control.DeepSeq.NFData RedeemerPurpose where-  rnf x__ = Prelude.seq x__ ()-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ipV4' @:: Lens' Relay Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ipV6' @:: Lens' Relay Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.dnsName' @:: Lens' Relay Data.Text.Text@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.port' @:: Lens' Relay Data.Word.Word32@ -}-data Relay-  = Relay'_constructor {_Relay'ipV4 :: !Data.ByteString.ByteString,-                        _Relay'ipV6 :: !Data.ByteString.ByteString,-                        _Relay'dnsName :: !Data.Text.Text,-                        _Relay'port :: !Data.Word.Word32,-                        _Relay'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Relay where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Relay "ipV4" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Relay'ipV4 (\ x__ y__ -> x__ {_Relay'ipV4 = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Relay "ipV6" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Relay'ipV6 (\ x__ y__ -> x__ {_Relay'ipV6 = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Relay "dnsName" Data.Text.Text where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Relay'dnsName (\ x__ y__ -> x__ {_Relay'dnsName = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Relay "port" Data.Word.Word32 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Relay'port (\ x__ y__ -> x__ {_Relay'port = y__}))-        Prelude.id-instance Data.ProtoLens.Message Relay where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Relay"-  packedMessageDescriptor _-    = "\n\-      \\ENQRelay\DC2\DC3\n\-      \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\-      \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\-      \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\-      \\EOTport\CAN\EOT \SOH(\rR\EOTport"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        ipV4__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "ip_v4"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ipV4")) ::-              Data.ProtoLens.FieldDescriptor Relay-        ipV6__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "ip_v6"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ipV6")) ::-              Data.ProtoLens.FieldDescriptor Relay-        dnsName__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "dns_name"-              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"dnsName")) ::-              Data.ProtoLens.FieldDescriptor Relay-        port__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "port"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"port")) ::-              Data.ProtoLens.FieldDescriptor Relay-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, ipV4__field_descriptor),-           (Data.ProtoLens.Tag 2, ipV6__field_descriptor),-           (Data.ProtoLens.Tag 3, dnsName__field_descriptor),-           (Data.ProtoLens.Tag 4, port__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Relay'_unknownFields-        (\ x__ y__ -> x__ {_Relay'_unknownFields = y__})-  defMessage-    = Relay'_constructor-        {_Relay'ipV4 = Data.ProtoLens.fieldDefault,-         _Relay'ipV6 = Data.ProtoLens.fieldDefault,-         _Relay'dnsName = Data.ProtoLens.fieldDefault,-         _Relay'port = Data.ProtoLens.fieldDefault,-         _Relay'_unknownFields = []}-  parseMessage-    = let-        loop :: Relay -> Data.ProtoLens.Encoding.Bytes.Parser Relay-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "ip_v4"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ipV4") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "ip_v6"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ipV6") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getText-                                             (Prelude.fromIntegral len))-                                       "dns_name"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"dnsName") y x)-                        32-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "port"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"port") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Relay"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ipV4") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ipV6") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                ((Data.Monoid.<>)-                   (let-                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"dnsName") _x-                    in-                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                          Data.Monoid.mempty-                      else-                          (Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                            ((Prelude..)-                               (\ bs-                                  -> (Data.Monoid.<>)-                                       (Data.ProtoLens.Encoding.Bytes.putVarInt-                                          (Prelude.fromIntegral (Data.ByteString.length bs)))-                                       (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                               Data.Text.Encoding.encodeUtf8 _v))-                   ((Data.Monoid.<>)-                      (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"port") _x-                       in-                         if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                             Data.Monoid.mempty-                         else-                             (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt 32)-                               ((Prelude..)-                                  Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))-                      (Data.ProtoLens.Encoding.Wire.buildFieldSet-                         (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))-instance Control.DeepSeq.NFData Relay where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Relay'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Relay'ipV4 x__)-                (Control.DeepSeq.deepseq-                   (_Relay'ipV6 x__)-                   (Control.DeepSeq.deepseq-                      (_Relay'dnsName x__)-                      (Control.DeepSeq.deepseq (_Relay'port x__) ()))))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'script' @:: Lens' Script (Prelude.Maybe Script'Script)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'native' @:: Lens' Script (Prelude.Maybe NativeScript)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.native' @:: Lens' Script NativeScript@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' Script Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' Script Data.ByteString.ByteString@ -}-data Script-  = Script'_constructor {_Script'script :: !(Prelude.Maybe Script'Script),-                         _Script'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Script where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-data Script'Script-  = Script'Native !NativeScript |-    Script'PlutusV1 !Data.ByteString.ByteString |-    Script'PlutusV2 !Data.ByteString.ByteString-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField Script "maybe'script" (Prelude.Maybe Script'Script) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Script "maybe'native" (Prelude.Maybe NativeScript) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Script'Native y__))-instance Data.ProtoLens.Field.HasField Script "native" NativeScript where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Script'Native y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))-instance Data.ProtoLens.Field.HasField Script "maybe'plutusV1" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__))-instance Data.ProtoLens.Field.HasField Script "plutusV1" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField Script "maybe'plutusV2" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__))-instance Data.ProtoLens.Field.HasField Script "plutusV2" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Message Script where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Script"-  packedMessageDescriptor _-    = "\n\-      \\ACKScript\DC2?\n\-      \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\-      \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\-      \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2B\b\n\-      \\ACKscript"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        native__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "native"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor NativeScript)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'native")) ::-              Data.ProtoLens.FieldDescriptor Script-        plutusV1__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "plutus_v1"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'plutusV1")) ::-              Data.ProtoLens.FieldDescriptor Script-        plutusV2__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "plutus_v2"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'plutusV2")) ::-              Data.ProtoLens.FieldDescriptor Script-      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)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Script'_unknownFields-        (\ x__ y__ -> x__ {_Script'_unknownFields = y__})-  defMessage-    = Script'_constructor-        {_Script'script = Prelude.Nothing, _Script'_unknownFields = []}-  parseMessage-    = let-        loop :: Script -> Data.ProtoLens.Encoding.Bytes.Parser Script-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "native"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"native") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "plutus_v1"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "plutus_v2"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Script"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'script") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just (Script'Native v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage v)-                (Prelude.Just (Script'PlutusV1 v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v)-                (Prelude.Just (Script'PlutusV2 v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v))-             (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__-_Script'Native ::-  Data.ProtoLens.Prism.Prism' Script'Script NativeScript-_Script'Native-  = Data.ProtoLens.Prism.prism'-      Script'Native-      (\ p__-         -> case p__ of-              (Script'Native p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Script'PlutusV1 ::-  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString-_Script'PlutusV1-  = Data.ProtoLens.Prism.prism'-      Script'PlutusV1-      (\ p__-         -> case p__ of-              (Script'PlutusV1 p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_Script'PlutusV2 ::-  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString-_Script'PlutusV2-  = Data.ProtoLens.Prism.prism'-      Script'PlutusV2-      (\ p__-         -> case p__ of-              (Script'PlutusV2 p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.k' @:: Lens' ScriptNOfK Data.Word.Word32@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scripts' @:: Lens' ScriptNOfK [NativeScript]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'scripts' @:: Lens' ScriptNOfK (Data.Vector.Vector NativeScript)@ -}-data ScriptNOfK-  = ScriptNOfK'_constructor {_ScriptNOfK'k :: !Data.Word.Word32,-                             _ScriptNOfK'scripts :: !(Data.Vector.Vector NativeScript),-                             _ScriptNOfK'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show ScriptNOfK where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField ScriptNOfK "k" Data.Word.Word32 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _ScriptNOfK'k (\ x__ y__ -> x__ {_ScriptNOfK'k = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField ScriptNOfK "scripts" [NativeScript] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField ScriptNOfK "vec'scripts" (Data.Vector.Vector NativeScript) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__}))-        Prelude.id-instance Data.ProtoLens.Message ScriptNOfK where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.ScriptNOfK"-  packedMessageDescriptor _-    = "\n\-      \\n\-      \ScriptNOfK\DC2\f\n\-      \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\-      \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        k__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "k"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"k")) ::-              Data.ProtoLens.FieldDescriptor ScriptNOfK-        scripts__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "scripts"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor NativeScript)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"scripts")) ::-              Data.ProtoLens.FieldDescriptor ScriptNOfK-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, k__field_descriptor),-           (Data.ProtoLens.Tag 2, scripts__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _ScriptNOfK'_unknownFields-        (\ x__ y__ -> x__ {_ScriptNOfK'_unknownFields = y__})-  defMessage-    = ScriptNOfK'_constructor-        {_ScriptNOfK'k = Data.ProtoLens.fieldDefault,-         _ScriptNOfK'scripts = Data.Vector.Generic.empty,-         _ScriptNOfK'_unknownFields = []}-  parseMessage-    = let-        loop ::-          ScriptNOfK-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript-             -> Data.ProtoLens.Encoding.Bytes.Parser ScriptNOfK-        loop x mutable'scripts-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                             mutable'scripts)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "k"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"k") y x)-                                  mutable'scripts-                        18-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "scripts"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'scripts y)-                                loop x v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'scripts-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                   Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'scripts)-          "ScriptNOfK"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"k") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      ((Prelude..)-                         Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))-             ((Data.Monoid.<>)-                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                   (\ _v-                      -> (Data.Monoid.<>)-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                           ((Prelude..)-                              (\ bs-                                 -> (Data.Monoid.<>)-                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                         (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Data.ProtoLens.encodeMessage _v))-                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'scripts") _x))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData ScriptNOfK where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_ScriptNOfK'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_ScriptNOfK'k x__)-                (Control.DeepSeq.deepseq (_ScriptNOfK'scripts x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeCredential (Prelude.Maybe StakeCredential'StakeCredential)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'addrKeyHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.addrKeyHash' @:: Lens' StakeCredential Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptHash' @:: Lens' StakeCredential Data.ByteString.ByteString@ -}-data StakeCredential-  = StakeCredential'_constructor {_StakeCredential'stakeCredential :: !(Prelude.Maybe StakeCredential'StakeCredential),-                                  _StakeCredential'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show StakeCredential where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-data StakeCredential'StakeCredential-  = StakeCredential'AddrKeyHash !Data.ByteString.ByteString |-    StakeCredential'ScriptHash !Data.ByteString.ByteString-  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.Field.HasField StakeCredential "maybe'stakeCredential" (Prelude.Maybe StakeCredential'StakeCredential) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeCredential'stakeCredential-           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField StakeCredential "maybe'addrKeyHash" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeCredential'stakeCredential-           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (StakeCredential'AddrKeyHash x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap StakeCredential'AddrKeyHash y__))-instance Data.ProtoLens.Field.HasField StakeCredential "addrKeyHash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeCredential'stakeCredential-           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (StakeCredential'AddrKeyHash x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap StakeCredential'AddrKeyHash y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Field.HasField StakeCredential "maybe'scriptHash" (Prelude.Maybe Data.ByteString.ByteString) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeCredential'stakeCredential-           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))-        (Lens.Family2.Unchecked.lens-           (\ x__-              -> case x__ of-                   (Prelude.Just (StakeCredential'ScriptHash x__val))-                     -> Prelude.Just x__val-                   _otherwise -> Prelude.Nothing)-           (\ _ y__ -> Prelude.fmap StakeCredential'ScriptHash y__))-instance Data.ProtoLens.Field.HasField StakeCredential "scriptHash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeCredential'stakeCredential-           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))-        ((Prelude..)-           (Lens.Family2.Unchecked.lens-              (\ x__-                 -> case x__ of-                      (Prelude.Just (StakeCredential'ScriptHash x__val))-                        -> Prelude.Just x__val-                      _otherwise -> Prelude.Nothing)-              (\ _ y__ -> Prelude.fmap StakeCredential'ScriptHash y__))-           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))-instance Data.ProtoLens.Message StakeCredential where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.StakeCredential"-  packedMessageDescriptor _-    = "\n\-      \\SIStakeCredential\DC2$\n\-      \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\-      \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\-      \scriptHashB\DC2\n\-      \\DLEstake_credential"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        addrKeyHash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "addr_key_hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'addrKeyHash")) ::-              Data.ProtoLens.FieldDescriptor StakeCredential-        scriptHash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "script_hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'scriptHash")) ::-              Data.ProtoLens.FieldDescriptor StakeCredential-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, addrKeyHash__field_descriptor),-           (Data.ProtoLens.Tag 2, scriptHash__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _StakeCredential'_unknownFields-        (\ x__ y__ -> x__ {_StakeCredential'_unknownFields = y__})-  defMessage-    = StakeCredential'_constructor-        {_StakeCredential'stakeCredential = Prelude.Nothing,-         _StakeCredential'_unknownFields = []}-  parseMessage-    = let-        loop ::-          StakeCredential-          -> Data.ProtoLens.Encoding.Bytes.Parser StakeCredential-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "addr_key_hash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"addrKeyHash") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "script_hash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptHash") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "StakeCredential"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view-                    (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just (StakeCredential'AddrKeyHash v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v)-                (Prelude.Just (StakeCredential'ScriptHash v))-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                       ((\ bs-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          v))-             (Data.ProtoLens.Encoding.Wire.buildFieldSet-                (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData StakeCredential where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_StakeCredential'_unknownFields x__)-             (Control.DeepSeq.deepseq (_StakeCredential'stakeCredential x__) ())-instance Control.DeepSeq.NFData StakeCredential'StakeCredential where-  rnf (StakeCredential'AddrKeyHash x__) = Control.DeepSeq.rnf x__-  rnf (StakeCredential'ScriptHash x__) = Control.DeepSeq.rnf x__-_StakeCredential'AddrKeyHash ::-  Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString-_StakeCredential'AddrKeyHash-  = Data.ProtoLens.Prism.prism'-      StakeCredential'AddrKeyHash-      (\ p__-         -> case p__ of-              (StakeCredential'AddrKeyHash p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-_StakeCredential'ScriptHash ::-  Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString-_StakeCredential'ScriptHash-  = Data.ProtoLens.Prism.prism'-      StakeCredential'ScriptHash-      (\ p__-         -> case p__ of-              (StakeCredential'ScriptHash p__val) -> Prelude.Just p__val-              _otherwise -> Prelude.Nothing)-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeDelegationCert StakeCredential@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeDelegationCert (Prelude.Maybe StakeCredential)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeDelegationCert Data.ByteString.ByteString@ -}-data StakeDelegationCert-  = StakeDelegationCert'_constructor {_StakeDelegationCert'stakeCredential :: !(Prelude.Maybe StakeCredential),-                                      _StakeDelegationCert'poolKeyhash :: !Data.ByteString.ByteString,-                                      _StakeDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show StakeDelegationCert where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField StakeDelegationCert "stakeCredential" StakeCredential where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeDelegationCert'stakeCredential-           (\ x__ y__ -> x__ {_StakeDelegationCert'stakeCredential = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField StakeDelegationCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeDelegationCert'stakeCredential-           (\ x__ y__ -> x__ {_StakeDelegationCert'stakeCredential = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField StakeDelegationCert "poolKeyhash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _StakeDelegationCert'poolKeyhash-           (\ x__ y__ -> x__ {_StakeDelegationCert'poolKeyhash = y__}))-        Prelude.id-instance Data.ProtoLens.Message StakeDelegationCert where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.StakeDelegationCert"-  packedMessageDescriptor _-    = "\n\-      \\DC3StakeDelegationCert\DC2S\n\-      \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\-      \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        stakeCredential__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "stake_credential"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'stakeCredential")) ::-              Data.ProtoLens.FieldDescriptor StakeDelegationCert-        poolKeyhash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "pool_keyhash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"poolKeyhash")) ::-              Data.ProtoLens.FieldDescriptor StakeDelegationCert-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor),-           (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _StakeDelegationCert'_unknownFields-        (\ x__ y__ -> x__ {_StakeDelegationCert'_unknownFields = y__})-  defMessage-    = StakeDelegationCert'_constructor-        {_StakeDelegationCert'stakeCredential = Prelude.Nothing,-         _StakeDelegationCert'poolKeyhash = Data.ProtoLens.fieldDefault,-         _StakeDelegationCert'_unknownFields = []}-  parseMessage-    = let-        loop ::-          StakeDelegationCert-          -> Data.ProtoLens.Encoding.Bytes.Parser StakeDelegationCert-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "stake_credential"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"stakeCredential") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "pool_keyhash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "StakeDelegationCert"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view-                    (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (let-                   _v-                     = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData StakeDelegationCert where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_StakeDelegationCert'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_StakeDelegationCert'stakeCredential x__)-                (Control.DeepSeq.deepseq-                   (_StakeDelegationCert'poolKeyhash x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.inputs' @:: Lens' Tx [TxInput]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'inputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputs' @:: Lens' Tx [TxOutput]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'outputs' @:: Lens' Tx (Data.Vector.Vector TxOutput)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.certificates' @:: Lens' Tx [Certificate]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'certificates' @:: Lens' Tx (Data.Vector.Vector Certificate)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.withdrawals' @:: Lens' Tx [Withdrawal]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'withdrawals' @:: Lens' Tx (Data.Vector.Vector Withdrawal)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mint' @:: Lens' Tx [Multiasset]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'mint' @:: Lens' Tx (Data.Vector.Vector Multiasset)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.referenceInputs' @:: Lens' Tx [TxInput]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'referenceInputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.witnesses' @:: Lens' Tx WitnessSet@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'witnesses' @:: Lens' Tx (Prelude.Maybe WitnessSet)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateral' @:: Lens' Tx Collateral@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'collateral' @:: Lens' Tx (Prelude.Maybe Collateral)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fee' @:: Lens' Tx Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.validity' @:: Lens' Tx TxValidity@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'validity' @:: Lens' Tx (Prelude.Maybe TxValidity)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.successful' @:: Lens' Tx Prelude.Bool@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.auxiliary' @:: Lens' Tx AuxData@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'auxiliary' @:: Lens' Tx (Prelude.Maybe AuxData)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' Tx Data.ByteString.ByteString@ -}-data Tx-  = Tx'_constructor {_Tx'inputs :: !(Data.Vector.Vector TxInput),-                     _Tx'outputs :: !(Data.Vector.Vector TxOutput),-                     _Tx'certificates :: !(Data.Vector.Vector Certificate),-                     _Tx'withdrawals :: !(Data.Vector.Vector Withdrawal),-                     _Tx'mint :: !(Data.Vector.Vector Multiasset),-                     _Tx'referenceInputs :: !(Data.Vector.Vector TxInput),-                     _Tx'witnesses :: !(Prelude.Maybe WitnessSet),-                     _Tx'collateral :: !(Prelude.Maybe Collateral),-                     _Tx'fee :: !Data.Word.Word64,-                     _Tx'validity :: !(Prelude.Maybe TxValidity),-                     _Tx'successful :: !Prelude.Bool,-                     _Tx'auxiliary :: !(Prelude.Maybe AuxData),-                     _Tx'hash :: !Data.ByteString.ByteString,-                     _Tx'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Tx where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Tx "inputs" [TxInput] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'inputs (\ x__ y__ -> x__ {_Tx'inputs = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Tx "vec'inputs" (Data.Vector.Vector TxInput) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'inputs (\ x__ y__ -> x__ {_Tx'inputs = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "outputs" [TxOutput] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'outputs (\ x__ y__ -> x__ {_Tx'outputs = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Tx "vec'outputs" (Data.Vector.Vector TxOutput) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'outputs (\ x__ y__ -> x__ {_Tx'outputs = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "certificates" [Certificate] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'certificates (\ x__ y__ -> x__ {_Tx'certificates = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Tx "vec'certificates" (Data.Vector.Vector Certificate) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'certificates (\ x__ y__ -> x__ {_Tx'certificates = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "withdrawals" [Withdrawal] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'withdrawals (\ x__ y__ -> x__ {_Tx'withdrawals = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Tx "vec'withdrawals" (Data.Vector.Vector Withdrawal) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'withdrawals (\ x__ y__ -> x__ {_Tx'withdrawals = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "mint" [Multiasset] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'mint (\ x__ y__ -> x__ {_Tx'mint = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Tx "vec'mint" (Data.Vector.Vector Multiasset) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'mint (\ x__ y__ -> x__ {_Tx'mint = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "referenceInputs" [TxInput] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'referenceInputs (\ x__ y__ -> x__ {_Tx'referenceInputs = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField Tx "vec'referenceInputs" (Data.Vector.Vector TxInput) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'referenceInputs (\ x__ y__ -> x__ {_Tx'referenceInputs = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "witnesses" WitnessSet where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'witnesses (\ x__ y__ -> x__ {_Tx'witnesses = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Tx "maybe'witnesses" (Prelude.Maybe WitnessSet) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'witnesses (\ x__ y__ -> x__ {_Tx'witnesses = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "collateral" Collateral where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'collateral (\ x__ y__ -> x__ {_Tx'collateral = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Tx "maybe'collateral" (Prelude.Maybe Collateral) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'collateral (\ x__ y__ -> x__ {_Tx'collateral = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "fee" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'fee (\ x__ y__ -> x__ {_Tx'fee = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "validity" TxValidity where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'validity (\ x__ y__ -> x__ {_Tx'validity = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Tx "maybe'validity" (Prelude.Maybe TxValidity) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'validity (\ x__ y__ -> x__ {_Tx'validity = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "successful" Prelude.Bool where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'successful (\ x__ y__ -> x__ {_Tx'successful = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "auxiliary" AuxData where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'auxiliary (\ x__ y__ -> x__ {_Tx'auxiliary = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Tx "maybe'auxiliary" (Prelude.Maybe AuxData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'auxiliary (\ x__ y__ -> x__ {_Tx'auxiliary = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Tx "hash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Tx'hash (\ x__ y__ -> x__ {_Tx'hash = y__}))-        Prelude.id-instance Data.ProtoLens.Message Tx where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Tx"-  packedMessageDescriptor _-    = "\n\-      \\STXTx\DC28\n\-      \\ACKinputs\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\ACKinputs\DC2;\n\-      \\aoutputs\CAN\STX \ETX(\v2!.utxorpc.v1alpha.cardano.TxOutputR\aoutputs\DC2H\n\-      \\fcertificates\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.cardano.CertificateR\fcertificates\DC2E\n\-      \\vwithdrawals\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.cardano.WithdrawalR\vwithdrawals\DC27\n\-      \\EOTmint\CAN\ENQ \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\EOTmint\DC2K\n\-      \\DLEreference_inputs\CAN\ACK \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\SIreferenceInputs\DC2A\n\-      \\twitnesses\CAN\a \SOH(\v2#.utxorpc.v1alpha.cardano.WitnessSetR\twitnesses\DC2C\n\-      \\n\-      \collateral\CAN\b \SOH(\v2#.utxorpc.v1alpha.cardano.CollateralR\n\-      \collateral\DC2\DLE\n\-      \\ETXfee\CAN\t \SOH(\EOTR\ETXfee\DC2?\n\-      \\bvalidity\CAN\n\-      \ \SOH(\v2#.utxorpc.v1alpha.cardano.TxValidityR\bvalidity\DC2\RS\n\-      \\n\-      \successful\CAN\v \SOH(\bR\n\-      \successful\DC2>\n\-      \\tauxiliary\CAN\f \SOH(\v2 .utxorpc.v1alpha.cardano.AuxDataR\tauxiliary\DC2\DC2\n\-      \\EOThash\CAN\r \SOH(\fR\EOThash"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        inputs__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "inputs"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxInput)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"inputs")) ::-              Data.ProtoLens.FieldDescriptor Tx-        outputs__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "outputs"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxOutput)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"outputs")) ::-              Data.ProtoLens.FieldDescriptor Tx-        certificates__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "certificates"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Certificate)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"certificates")) ::-              Data.ProtoLens.FieldDescriptor Tx-        withdrawals__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "withdrawals"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Withdrawal)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"withdrawals")) ::-              Data.ProtoLens.FieldDescriptor Tx-        mint__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "mint"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Multiasset)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"mint")) ::-              Data.ProtoLens.FieldDescriptor Tx-        referenceInputs__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "reference_inputs"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxInput)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"referenceInputs")) ::-              Data.ProtoLens.FieldDescriptor Tx-        witnesses__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "witnesses"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor WitnessSet)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'witnesses")) ::-              Data.ProtoLens.FieldDescriptor Tx-        collateral__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "collateral"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Collateral)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'collateral")) ::-              Data.ProtoLens.FieldDescriptor Tx-        fee__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "fee"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fee")) ::-              Data.ProtoLens.FieldDescriptor Tx-        validity__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "validity"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxValidity)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'validity")) ::-              Data.ProtoLens.FieldDescriptor Tx-        successful__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "successful"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"successful")) ::-              Data.ProtoLens.FieldDescriptor Tx-        auxiliary__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "auxiliary"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor AuxData)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'auxiliary")) ::-              Data.ProtoLens.FieldDescriptor Tx-        hash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::-              Data.ProtoLens.FieldDescriptor Tx-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, inputs__field_descriptor),-           (Data.ProtoLens.Tag 2, outputs__field_descriptor),-           (Data.ProtoLens.Tag 3, certificates__field_descriptor),-           (Data.ProtoLens.Tag 4, withdrawals__field_descriptor),-           (Data.ProtoLens.Tag 5, mint__field_descriptor),-           (Data.ProtoLens.Tag 6, referenceInputs__field_descriptor),-           (Data.ProtoLens.Tag 7, witnesses__field_descriptor),-           (Data.ProtoLens.Tag 8, collateral__field_descriptor),-           (Data.ProtoLens.Tag 9, fee__field_descriptor),-           (Data.ProtoLens.Tag 10, validity__field_descriptor),-           (Data.ProtoLens.Tag 11, successful__field_descriptor),-           (Data.ProtoLens.Tag 12, auxiliary__field_descriptor),-           (Data.ProtoLens.Tag 13, hash__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Tx'_unknownFields (\ x__ y__ -> x__ {_Tx'_unknownFields = y__})-  defMessage-    = Tx'_constructor-        {_Tx'inputs = Data.Vector.Generic.empty,-         _Tx'outputs = Data.Vector.Generic.empty,-         _Tx'certificates = Data.Vector.Generic.empty,-         _Tx'withdrawals = Data.Vector.Generic.empty,-         _Tx'mint = Data.Vector.Generic.empty,-         _Tx'referenceInputs = Data.Vector.Generic.empty,-         _Tx'witnesses = Prelude.Nothing, _Tx'collateral = Prelude.Nothing,-         _Tx'fee = Data.ProtoLens.fieldDefault,-         _Tx'validity = Prelude.Nothing,-         _Tx'successful = Data.ProtoLens.fieldDefault,-         _Tx'auxiliary = Prelude.Nothing,-         _Tx'hash = Data.ProtoLens.fieldDefault, _Tx'_unknownFields = []}-  parseMessage-    = let-        loop ::-          Tx-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Certificate-             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput-                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Multiasset-                   -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxOutput-                      -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput-                         -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Withdrawal-                            -> Data.ProtoLens.Encoding.Bytes.Parser Tx-        loop-          x-          mutable'certificates-          mutable'inputs-          mutable'mint-          mutable'outputs-          mutable'referenceInputs-          mutable'withdrawals-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'certificates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                               (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                  mutable'certificates)-                      frozen'inputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                            mutable'inputs)-                      frozen'mint <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'mint)-                      frozen'outputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                             mutable'outputs)-                      frozen'referenceInputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                     mutable'referenceInputs)-                      frozen'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                              (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                 mutable'withdrawals)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'certificates")-                              frozen'certificates-                              (Lens.Family2.set-                                 (Data.ProtoLens.Field.field @"vec'inputs") frozen'inputs-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'mint") frozen'mint-                                    (Lens.Family2.set-                                       (Data.ProtoLens.Field.field @"vec'outputs") frozen'outputs-                                       (Lens.Family2.set-                                          (Data.ProtoLens.Field.field @"vec'referenceInputs")-                                          frozen'referenceInputs-                                          (Lens.Family2.set-                                             (Data.ProtoLens.Field.field @"vec'withdrawals")-                                             frozen'withdrawals x)))))))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "inputs"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'inputs y)-                                loop-                                  x mutable'certificates v mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        18-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "outputs"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'outputs y)-                                loop-                                  x mutable'certificates mutable'inputs mutable'mint v-                                  mutable'referenceInputs mutable'withdrawals-                        26-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "certificates"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append-                                          mutable'certificates y)-                                loop-                                  x v mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        34-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "withdrawals"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append-                                          mutable'withdrawals y)-                                loop-                                  x mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs v-                        42-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "mint"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'mint y)-                                loop-                                  x mutable'certificates mutable'inputs v mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        50-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "reference_inputs"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append-                                          mutable'referenceInputs y)-                                loop-                                  x mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  v mutable'withdrawals-                        58-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "witnesses"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"witnesses") y x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        66-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "collateral"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"collateral") y x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        72-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "fee"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        82-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "validity"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"validity") y x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        88-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "successful"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"successful") y x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        98-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "auxiliary"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"auxiliary") y x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        106-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "hash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs-                                  mutable'referenceInputs mutable'withdrawals-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'certificates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        Data.ProtoLens.Encoding.Growing.new-              mutable'inputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                  Data.ProtoLens.Encoding.Growing.new-              mutable'mint <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                Data.ProtoLens.Encoding.Growing.new-              mutable'outputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                   Data.ProtoLens.Encoding.Growing.new-              mutable'referenceInputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                           Data.ProtoLens.Encoding.Growing.new-              mutable'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       Data.ProtoLens.Encoding.Growing.new-              loop-                Data.ProtoLens.defMessage mutable'certificates mutable'inputs-                mutable'mint mutable'outputs mutable'referenceInputs-                mutable'withdrawals)-          "Tx"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'inputs") _x))-             ((Data.Monoid.<>)-                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                   (\ _v-                      -> (Data.Monoid.<>)-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                           ((Prelude..)-                              (\ bs-                                 -> (Data.Monoid.<>)-                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                         (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Data.ProtoLens.encodeMessage _v))-                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'outputs") _x))-                ((Data.Monoid.<>)-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v-                         -> (Data.Monoid.<>)-                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                              ((Prelude..)-                                 (\ bs-                                    -> (Data.Monoid.<>)-                                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                                            (Prelude.fromIntegral (Data.ByteString.length bs)))-                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                 Data.ProtoLens.encodeMessage _v))-                      (Lens.Family2.view-                         (Data.ProtoLens.Field.field @"vec'certificates") _x))-                   ((Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                         (\ _v-                            -> (Data.Monoid.<>)-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                                 ((Prelude..)-                                    (\ bs-                                       -> (Data.Monoid.<>)-                                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                                            (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                    Data.ProtoLens.encodeMessage _v))-                         (Lens.Family2.view-                            (Data.ProtoLens.Field.field @"vec'withdrawals") _x))-                      ((Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                            (\ _v-                               -> (Data.Monoid.<>)-                                    (Data.ProtoLens.Encoding.Bytes.putVarInt 42)-                                    ((Prelude..)-                                       (\ bs-                                          -> (Data.Monoid.<>)-                                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                  (Prelude.fromIntegral-                                                     (Data.ByteString.length bs)))-                                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                       Data.ProtoLens.encodeMessage _v))-                            (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'mint") _x))-                         ((Data.Monoid.<>)-                            (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                               (\ _v-                                  -> (Data.Monoid.<>)-                                       (Data.ProtoLens.Encoding.Bytes.putVarInt 50)-                                       ((Prelude..)-                                          (\ bs-                                             -> (Data.Monoid.<>)-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                          Data.ProtoLens.encodeMessage _v))-                               (Lens.Family2.view-                                  (Data.ProtoLens.Field.field @"vec'referenceInputs") _x))-                            ((Data.Monoid.<>)-                               (case-                                    Lens.Family2.view-                                      (Data.ProtoLens.Field.field @"maybe'witnesses") _x-                                of-                                  Prelude.Nothing -> Data.Monoid.mempty-                                  (Prelude.Just _v)-                                    -> (Data.Monoid.<>)-                                         (Data.ProtoLens.Encoding.Bytes.putVarInt 58)-                                         ((Prelude..)-                                            (\ bs-                                               -> (Data.Monoid.<>)-                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                       (Prelude.fromIntegral-                                                          (Data.ByteString.length bs)))-                                                    (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Data.ProtoLens.encodeMessage _v))-                               ((Data.Monoid.<>)-                                  (case-                                       Lens.Family2.view-                                         (Data.ProtoLens.Field.field @"maybe'collateral") _x-                                   of-                                     Prelude.Nothing -> Data.Monoid.mempty-                                     (Prelude.Just _v)-                                       -> (Data.Monoid.<>)-                                            (Data.ProtoLens.Encoding.Bytes.putVarInt 66)-                                            ((Prelude..)-                                               (\ bs-                                                  -> (Data.Monoid.<>)-                                                       (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                          (Prelude.fromIntegral-                                                             (Data.ByteString.length bs)))-                                                       (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                               Data.ProtoLens.encodeMessage _v))-                                  ((Data.Monoid.<>)-                                     (let-                                        _v-                                          = Lens.Family2.view (Data.ProtoLens.Field.field @"fee") _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.<>)-                                        (case-                                             Lens.Family2.view-                                               (Data.ProtoLens.Field.field @"maybe'validity") _x-                                         of-                                           Prelude.Nothing -> Data.Monoid.mempty-                                           (Prelude.Just _v)-                                             -> (Data.Monoid.<>)-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt 82)-                                                  ((Prelude..)-                                                     (\ bs-                                                        -> (Data.Monoid.<>)-                                                             (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                (Prelude.fromIntegral-                                                                   (Data.ByteString.length bs)))-                                                             (Data.ProtoLens.Encoding.Bytes.putBytes-                                                                bs))-                                                     Data.ProtoLens.encodeMessage _v))-                                        ((Data.Monoid.<>)-                                           (let-                                              _v-                                                = Lens.Family2.view-                                                    (Data.ProtoLens.Field.field @"successful") _x-                                            in-                                              if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                                                  Data.Monoid.mempty-                                              else-                                                  (Data.Monoid.<>)-                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt 88)-                                                    ((Prelude..)-                                                       Data.ProtoLens.Encoding.Bytes.putVarInt-                                                       (\ b -> if b then 1 else 0) _v))-                                           ((Data.Monoid.<>)-                                              (case-                                                   Lens.Family2.view-                                                     (Data.ProtoLens.Field.field @"maybe'auxiliary")-                                                     _x-                                               of-                                                 Prelude.Nothing -> Data.Monoid.mempty-                                                 (Prelude.Just _v)-                                                   -> (Data.Monoid.<>)-                                                        (Data.ProtoLens.Encoding.Bytes.putVarInt 98)-                                                        ((Prelude..)-                                                           (\ bs-                                                              -> (Data.Monoid.<>)-                                                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                      (Prelude.fromIntegral-                                                                         (Data.ByteString.length-                                                                            bs)))-                                                                   (Data.ProtoLens.Encoding.Bytes.putBytes-                                                                      bs))-                                                           Data.ProtoLens.encodeMessage _v))-                                              ((Data.Monoid.<>)-                                                 (let-                                                    _v-                                                      = Lens.Family2.view-                                                          (Data.ProtoLens.Field.field @"hash") _x-                                                  in-                                                    if (Prelude.==)-                                                         _v Data.ProtoLens.fieldDefault then-                                                        Data.Monoid.mempty-                                                    else-                                                        (Data.Monoid.<>)-                                                          (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                             106)-                                                          ((\ bs-                                                              -> (Data.Monoid.<>)-                                                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                      (Prelude.fromIntegral-                                                                         (Data.ByteString.length-                                                                            bs)))-                                                                   (Data.ProtoLens.Encoding.Bytes.putBytes-                                                                      bs))-                                                             _v))-                                                 (Data.ProtoLens.Encoding.Wire.buildFieldSet-                                                    (Lens.Family2.view-                                                       Data.ProtoLens.unknownFields _x))))))))))))))-instance Control.DeepSeq.NFData Tx where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Tx'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Tx'inputs x__)-                (Control.DeepSeq.deepseq-                   (_Tx'outputs x__)-                   (Control.DeepSeq.deepseq-                      (_Tx'certificates x__)-                      (Control.DeepSeq.deepseq-                         (_Tx'withdrawals x__)-                         (Control.DeepSeq.deepseq-                            (_Tx'mint x__)-                            (Control.DeepSeq.deepseq-                               (_Tx'referenceInputs x__)-                               (Control.DeepSeq.deepseq-                                  (_Tx'witnesses x__)-                                  (Control.DeepSeq.deepseq-                                     (_Tx'collateral x__)-                                     (Control.DeepSeq.deepseq-                                        (_Tx'fee x__)-                                        (Control.DeepSeq.deepseq-                                           (_Tx'validity x__)-                                           (Control.DeepSeq.deepseq-                                              (_Tx'successful x__)-                                              (Control.DeepSeq.deepseq-                                                 (_Tx'auxiliary x__)-                                                 (Control.DeepSeq.deepseq-                                                    (_Tx'hash x__) ())))))))))))))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fee' @:: Lens' TxEval Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.exUnits' @:: Lens' TxEval ExUnits@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'exUnits' @:: Lens' TxEval (Prelude.Maybe ExUnits)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.errors' @:: Lens' TxEval [EvalError]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'errors' @:: Lens' TxEval (Data.Vector.Vector EvalError)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.traces' @:: Lens' TxEval [EvalTrace]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'traces' @:: Lens' TxEval (Data.Vector.Vector EvalTrace)@ -}-data TxEval-  = TxEval'_constructor {_TxEval'fee :: !Data.Word.Word64,-                         _TxEval'exUnits :: !(Prelude.Maybe ExUnits),-                         _TxEval'errors :: !(Data.Vector.Vector EvalError),-                         _TxEval'traces :: !(Data.Vector.Vector EvalTrace),-                         _TxEval'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show TxEval where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField TxEval "fee" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxEval'fee (\ x__ y__ -> x__ {_TxEval'fee = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxEval "exUnits" ExUnits where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxEval'exUnits (\ x__ y__ -> x__ {_TxEval'exUnits = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxEval "maybe'exUnits" (Prelude.Maybe ExUnits) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxEval'exUnits (\ x__ y__ -> x__ {_TxEval'exUnits = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxEval "errors" [EvalError] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxEval'errors (\ x__ y__ -> x__ {_TxEval'errors = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField TxEval "vec'errors" (Data.Vector.Vector EvalError) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxEval'errors (\ x__ y__ -> x__ {_TxEval'errors = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxEval "traces" [EvalTrace] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxEval'traces (\ x__ y__ -> x__ {_TxEval'traces = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField TxEval "vec'traces" (Data.Vector.Vector EvalTrace) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxEval'traces (\ x__ y__ -> x__ {_TxEval'traces = y__}))-        Prelude.id-instance Data.ProtoLens.Message TxEval where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxEval"-  packedMessageDescriptor _-    = "\n\-      \\ACKTxEval\DC2\DLE\n\-      \\ETXfee\CAN\SOH \SOH(\EOTR\ETXfee\DC2;\n\-      \\bex_units\CAN\STX \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\aexUnits\DC2:\n\-      \\ACKerrors\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.cardano.EvalErrorR\ACKerrors\DC2:\n\-      \\ACKtraces\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.cardano.EvalTraceR\ACKtraces"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        fee__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "fee"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fee")) ::-              Data.ProtoLens.FieldDescriptor TxEval-        exUnits__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "ex_units"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor ExUnits)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'exUnits")) ::-              Data.ProtoLens.FieldDescriptor TxEval-        errors__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "errors"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor EvalError)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"errors")) ::-              Data.ProtoLens.FieldDescriptor TxEval-        traces__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "traces"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor EvalTrace)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"traces")) ::-              Data.ProtoLens.FieldDescriptor TxEval-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, fee__field_descriptor),-           (Data.ProtoLens.Tag 2, exUnits__field_descriptor),-           (Data.ProtoLens.Tag 3, errors__field_descriptor),-           (Data.ProtoLens.Tag 4, traces__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _TxEval'_unknownFields-        (\ x__ y__ -> x__ {_TxEval'_unknownFields = y__})-  defMessage-    = TxEval'_constructor-        {_TxEval'fee = Data.ProtoLens.fieldDefault,-         _TxEval'exUnits = Prelude.Nothing,-         _TxEval'errors = Data.Vector.Generic.empty,-         _TxEval'traces = Data.Vector.Generic.empty,-         _TxEval'_unknownFields = []}-  parseMessage-    = let-        loop ::-          TxEval-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalError-             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalTrace-                -> Data.ProtoLens.Encoding.Bytes.Parser TxEval-        loop x mutable'errors mutable'traces-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                            mutable'errors)-                      frozen'traces <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                            mutable'traces)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'errors") frozen'errors-                              (Lens.Family2.set-                                 (Data.ProtoLens.Field.field @"vec'traces") frozen'traces x)))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "fee"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x)-                                  mutable'errors mutable'traces-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "ex_units"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"exUnits") y x)-                                  mutable'errors mutable'traces-                        26-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "errors"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'errors y)-                                loop x v mutable'traces-                        34-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "traces"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'traces y)-                                loop x mutable'errors v-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'errors mutable'traces-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                  Data.ProtoLens.Encoding.Growing.new-              mutable'traces <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                  Data.ProtoLens.Encoding.Growing.new-              loop Data.ProtoLens.defMessage mutable'errors mutable'traces)-          "TxEval"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fee") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'exUnits") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                ((Data.Monoid.<>)-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v-                         -> (Data.Monoid.<>)-                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                              ((Prelude..)-                                 (\ bs-                                    -> (Data.Monoid.<>)-                                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                                            (Prelude.fromIntegral (Data.ByteString.length bs)))-                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                 Data.ProtoLens.encodeMessage _v))-                      (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'errors") _x))-                   ((Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                         (\ _v-                            -> (Data.Monoid.<>)-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                                 ((Prelude..)-                                    (\ bs-                                       -> (Data.Monoid.<>)-                                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                                            (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                    Data.ProtoLens.encodeMessage _v))-                         (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'traces") _x))-                      (Data.ProtoLens.Encoding.Wire.buildFieldSet-                         (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))-instance Control.DeepSeq.NFData TxEval where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_TxEval'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_TxEval'fee x__)-                (Control.DeepSeq.deepseq-                   (_TxEval'exUnits x__)-                   (Control.DeepSeq.deepseq-                      (_TxEval'errors x__)-                      (Control.DeepSeq.deepseq (_TxEval'traces x__) ()))))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.txHash' @:: Lens' TxInput Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputIndex' @:: Lens' TxInput Data.Word.Word32@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.asOutput' @:: Lens' TxInput TxOutput@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'asOutput' @:: Lens' TxInput (Prelude.Maybe TxOutput)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' TxInput Redeemer@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' TxInput (Prelude.Maybe Redeemer)@ -}-data TxInput-  = TxInput'_constructor {_TxInput'txHash :: !Data.ByteString.ByteString,-                          _TxInput'outputIndex :: !Data.Word.Word32,-                          _TxInput'asOutput :: !(Prelude.Maybe TxOutput),-                          _TxInput'redeemer :: !(Prelude.Maybe Redeemer),-                          _TxInput'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show TxInput where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField TxInput "txHash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxInput'txHash (\ x__ y__ -> x__ {_TxInput'txHash = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxInput "outputIndex" Data.Word.Word32 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxInput'outputIndex-           (\ x__ y__ -> x__ {_TxInput'outputIndex = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxInput "asOutput" TxOutput where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxInput'asOutput (\ x__ y__ -> x__ {_TxInput'asOutput = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxInput "maybe'asOutput" (Prelude.Maybe TxOutput) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxInput'asOutput (\ x__ y__ -> x__ {_TxInput'asOutput = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxInput "redeemer" Redeemer where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxInput'redeemer (\ x__ y__ -> x__ {_TxInput'redeemer = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxInput "maybe'redeemer" (Prelude.Maybe Redeemer) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxInput'redeemer (\ x__ y__ -> x__ {_TxInput'redeemer = y__}))-        Prelude.id-instance Data.ProtoLens.Message TxInput where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxInput"-  packedMessageDescriptor _-    = "\n\-      \\aTxInput\DC2\ETB\n\-      \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\-      \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2>\n\-      \\tas_output\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\basOutput\DC2=\n\-      \\bredeemer\CAN\EOT \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        txHash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "tx_hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txHash")) ::-              Data.ProtoLens.FieldDescriptor TxInput-        outputIndex__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "output_index"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"outputIndex")) ::-              Data.ProtoLens.FieldDescriptor TxInput-        asOutput__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "as_output"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxOutput)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'asOutput")) ::-              Data.ProtoLens.FieldDescriptor TxInput-        redeemer__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "redeemer"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Redeemer)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::-              Data.ProtoLens.FieldDescriptor TxInput-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, txHash__field_descriptor),-           (Data.ProtoLens.Tag 2, outputIndex__field_descriptor),-           (Data.ProtoLens.Tag 3, asOutput__field_descriptor),-           (Data.ProtoLens.Tag 4, redeemer__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _TxInput'_unknownFields-        (\ x__ y__ -> x__ {_TxInput'_unknownFields = y__})-  defMessage-    = TxInput'_constructor-        {_TxInput'txHash = Data.ProtoLens.fieldDefault,-         _TxInput'outputIndex = Data.ProtoLens.fieldDefault,-         _TxInput'asOutput = Prelude.Nothing,-         _TxInput'redeemer = Prelude.Nothing, _TxInput'_unknownFields = []}-  parseMessage-    = let-        loop :: TxInput -> Data.ProtoLens.Encoding.Bytes.Parser TxInput-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "tx_hash"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txHash") y x)-                        16-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (Prelude.fmap-                                          Prelude.fromIntegral-                                          Data.ProtoLens.Encoding.Bytes.getVarInt)-                                       "output_index"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"outputIndex") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "as_output"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"asOutput") y x)-                        34-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "redeemer"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "TxInput"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txHash") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let-                   _v-                     = Lens.Family2.view (Data.ProtoLens.Field.field @"outputIndex") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                         ((Prelude..)-                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))-                ((Data.Monoid.<>)-                   (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'asOutput") _x-                    of-                      Prelude.Nothing -> Data.Monoid.mempty-                      (Prelude.Just _v)-                        -> (Data.Monoid.<>)-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                             ((Prelude..)-                                (\ bs-                                   -> (Data.Monoid.<>)-                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                           (Prelude.fromIntegral (Data.ByteString.length bs)))-                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                Data.ProtoLens.encodeMessage _v))-                   ((Data.Monoid.<>)-                      (case-                           Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x-                       of-                         Prelude.Nothing -> Data.Monoid.mempty-                         (Prelude.Just _v)-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                                ((Prelude..)-                                   (\ bs-                                      -> (Data.Monoid.<>)-                                           (Data.ProtoLens.Encoding.Bytes.putVarInt-                                              (Prelude.fromIntegral (Data.ByteString.length bs)))-                                           (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                   Data.ProtoLens.encodeMessage _v))-                      (Data.ProtoLens.Encoding.Wire.buildFieldSet-                         (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))-instance Control.DeepSeq.NFData TxInput where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_TxInput'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_TxInput'txHash x__)-                (Control.DeepSeq.deepseq-                   (_TxInput'outputIndex x__)-                   (Control.DeepSeq.deepseq-                      (_TxInput'asOutput x__)-                      (Control.DeepSeq.deepseq (_TxInput'redeemer x__) ()))))-{- | Fields :-     -         * 'Proto.Utxorpc.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 PlutusData@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'datum' @:: Lens' TxOutput (Prelude.Maybe PlutusData)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.datumHash' @:: Lens' TxOutput Data.ByteString.ByteString@-         * '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 PlutusData),-                           _TxOutput'datumHash :: !Data.ByteString.ByteString,-                           _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" PlutusData 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 PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxOutput'datum (\ x__ y__ -> x__ {_TxOutput'datum = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxOutput "datumHash" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxOutput'datumHash (\ x__ y__ -> x__ {_TxOutput'datumHash = 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\DC29\n\-      \\ENQdatum\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum\DC2\GS\n\-      \\n\-      \datum_hash\CAN\ENQ \SOH(\fR\tdatumHash\DC27\n\-      \\ACKscript\CAN\ACK \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 PlutusData)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'datum")) ::-              Data.ProtoLens.FieldDescriptor TxOutput-        datumHash__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "datum_hash"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"datumHash")) ::-              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, datumHash__field_descriptor),-           (Data.ProtoLens.Tag 6, 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'datumHash = Data.ProtoLens.fieldDefault,-         _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.getBytes-                                             (Prelude.fromIntegral len))-                                       "datum_hash"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"datumHash") y x)-                                  mutable'assets-                        50-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "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.<>)-                         (let-                            _v = Lens.Family2.view (Data.ProtoLens.Field.field @"datumHash") _x-                          in-                            if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                                Data.Monoid.mempty-                            else-                                (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt 42)-                                  ((\ bs-                                      -> (Data.Monoid.<>)-                                           (Data.ProtoLens.Encoding.Bytes.putVarInt-                                              (Prelude.fromIntegral (Data.ByteString.length bs)))-                                           (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                     _v))-                         ((Data.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 50)-                                      ((Prelude..)-                                         (\ bs-                                            -> (Data.Monoid.<>)-                                                 (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                    (Prelude.fromIntegral-                                                       (Data.ByteString.length bs)))-                                                 (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                         Data.ProtoLens.encodeMessage _v))-                            (Data.ProtoLens.Encoding.Wire.buildFieldSet-                               (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))))-instance Control.DeepSeq.NFData 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'datumHash x__)-                            (Control.DeepSeq.deepseq (_TxOutput'script x__) ()))))))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.address' @:: Lens' TxOutputPattern AddressPattern@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'address' @:: Lens' TxOutputPattern (Prelude.Maybe AddressPattern)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.asset' @:: Lens' TxOutputPattern AssetPattern@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'asset' @:: Lens' TxOutputPattern (Prelude.Maybe AssetPattern)@ -}-data TxOutputPattern-  = TxOutputPattern'_constructor {_TxOutputPattern'address :: !(Prelude.Maybe AddressPattern),-                                  _TxOutputPattern'asset :: !(Prelude.Maybe AssetPattern),-                                  _TxOutputPattern'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show TxOutputPattern where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField TxOutputPattern "address" AddressPattern where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxOutputPattern'address-           (\ x__ y__ -> x__ {_TxOutputPattern'address = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'address" (Prelude.Maybe AddressPattern) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxOutputPattern'address-           (\ x__ y__ -> x__ {_TxOutputPattern'address = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxOutputPattern "asset" AssetPattern where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxOutputPattern'asset-           (\ x__ y__ -> x__ {_TxOutputPattern'asset = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'asset" (Prelude.Maybe AssetPattern) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxOutputPattern'asset-           (\ x__ y__ -> x__ {_TxOutputPattern'asset = y__}))-        Prelude.id-instance Data.ProtoLens.Message TxOutputPattern where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.TxOutputPattern"-  packedMessageDescriptor _-    = "\n\-      \\SITxOutputPattern\DC2A\n\-      \\aaddress\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\aaddress\DC2;\n\-      \\ENQasset\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\ENQasset"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        address__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "address"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor AddressPattern)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'address")) ::-              Data.ProtoLens.FieldDescriptor TxOutputPattern-        asset__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "asset"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'asset")) ::-              Data.ProtoLens.FieldDescriptor TxOutputPattern-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, address__field_descriptor),-           (Data.ProtoLens.Tag 2, asset__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _TxOutputPattern'_unknownFields-        (\ x__ y__ -> x__ {_TxOutputPattern'_unknownFields = y__})-  defMessage-    = TxOutputPattern'_constructor-        {_TxOutputPattern'address = Prelude.Nothing,-         _TxOutputPattern'asset = Prelude.Nothing,-         _TxOutputPattern'_unknownFields = []}-  parseMessage-    = let-        loop ::-          TxOutputPattern-          -> Data.ProtoLens.Encoding.Bytes.Parser TxOutputPattern-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "address"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "asset"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"asset") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "TxOutputPattern"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'address") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'asset") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData TxOutputPattern where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_TxOutputPattern'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_TxOutputPattern'address x__)-                (Control.DeepSeq.deepseq (_TxOutputPattern'asset x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.consumes' @:: Lens' TxPattern TxOutputPattern@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'consumes' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.produces' @:: Lens' TxPattern TxOutputPattern@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'produces' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hasAddress' @:: Lens' TxPattern AddressPattern@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'hasAddress' @:: Lens' TxPattern (Prelude.Maybe AddressPattern)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.movesAsset' @:: Lens' TxPattern AssetPattern@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'movesAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mintsAsset' @:: Lens' TxPattern AssetPattern@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mintsAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@ -}-data TxPattern-  = TxPattern'_constructor {_TxPattern'consumes :: !(Prelude.Maybe TxOutputPattern),-                            _TxPattern'produces :: !(Prelude.Maybe TxOutputPattern),-                            _TxPattern'hasAddress :: !(Prelude.Maybe AddressPattern),-                            _TxPattern'movesAsset :: !(Prelude.Maybe AssetPattern),-                            _TxPattern'mintsAsset :: !(Prelude.Maybe AssetPattern),-                            _TxPattern'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show TxPattern where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField TxPattern "consumes" TxOutputPattern where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'consumes (\ x__ y__ -> x__ {_TxPattern'consumes = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxPattern "maybe'consumes" (Prelude.Maybe TxOutputPattern) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'consumes (\ x__ y__ -> x__ {_TxPattern'consumes = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxPattern "produces" TxOutputPattern where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'produces (\ x__ y__ -> x__ {_TxPattern'produces = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxPattern "maybe'produces" (Prelude.Maybe TxOutputPattern) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'produces (\ x__ y__ -> x__ {_TxPattern'produces = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxPattern "hasAddress" AddressPattern where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'hasAddress-           (\ x__ y__ -> x__ {_TxPattern'hasAddress = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxPattern "maybe'hasAddress" (Prelude.Maybe AddressPattern) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'hasAddress-           (\ x__ y__ -> x__ {_TxPattern'hasAddress = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxPattern "movesAsset" AssetPattern where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'movesAsset-           (\ x__ y__ -> x__ {_TxPattern'movesAsset = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxPattern "maybe'movesAsset" (Prelude.Maybe AssetPattern) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'movesAsset-           (\ x__ y__ -> x__ {_TxPattern'movesAsset = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxPattern "mintsAsset" AssetPattern where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'mintsAsset-           (\ x__ y__ -> x__ {_TxPattern'mintsAsset = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField TxPattern "maybe'mintsAsset" (Prelude.Maybe AssetPattern) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxPattern'mintsAsset-           (\ x__ y__ -> x__ {_TxPattern'mintsAsset = y__}))-        Prelude.id-instance Data.ProtoLens.Message TxPattern where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxPattern"-  packedMessageDescriptor _-    = "\n\-      \\tTxPattern\DC2D\n\-      \\bconsumes\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bconsumes\DC2D\n\-      \\bproduces\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bproduces\DC2H\n\-      \\vhas_address\CAN\ETX \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\n\-      \hasAddress\DC2F\n\-      \\vmoves_asset\CAN\EOT \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\-      \movesAsset\DC2F\n\-      \\vmints_asset\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\-      \mintsAsset"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        consumes__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "consumes"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxOutputPattern)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'consumes")) ::-              Data.ProtoLens.FieldDescriptor TxPattern-        produces__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "produces"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor TxOutputPattern)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'produces")) ::-              Data.ProtoLens.FieldDescriptor TxPattern-        hasAddress__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "has_address"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor AddressPattern)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'hasAddress")) ::-              Data.ProtoLens.FieldDescriptor TxPattern-        movesAsset__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "moves_asset"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'movesAsset")) ::-              Data.ProtoLens.FieldDescriptor TxPattern-        mintsAsset__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "mints_asset"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'mintsAsset")) ::-              Data.ProtoLens.FieldDescriptor TxPattern-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, consumes__field_descriptor),-           (Data.ProtoLens.Tag 2, produces__field_descriptor),-           (Data.ProtoLens.Tag 3, hasAddress__field_descriptor),-           (Data.ProtoLens.Tag 4, movesAsset__field_descriptor),-           (Data.ProtoLens.Tag 5, mintsAsset__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _TxPattern'_unknownFields-        (\ x__ y__ -> x__ {_TxPattern'_unknownFields = y__})-  defMessage-    = TxPattern'_constructor-        {_TxPattern'consumes = Prelude.Nothing,-         _TxPattern'produces = Prelude.Nothing,-         _TxPattern'hasAddress = Prelude.Nothing,-         _TxPattern'movesAsset = Prelude.Nothing,-         _TxPattern'mintsAsset = Prelude.Nothing,-         _TxPattern'_unknownFields = []}-  parseMessage-    = let-        loop :: TxPattern -> Data.ProtoLens.Encoding.Bytes.Parser TxPattern-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "consumes"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"consumes") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "produces"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"produces") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "has_address"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"hasAddress") y x)-                        34-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "moves_asset"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"movesAsset") y x)-                        42-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "mints_asset"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"mintsAsset") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "TxPattern"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'consumes") _x-              of-                Prelude.Nothing -> Data.Monoid.mempty-                (Prelude.Just _v)-                  -> (Data.Monoid.<>)-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                       ((Prelude..)-                          (\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Data.ProtoLens.encodeMessage _v))-             ((Data.Monoid.<>)-                (case-                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'produces") _x-                 of-                   Prelude.Nothing -> Data.Monoid.mempty-                   (Prelude.Just _v)-                     -> (Data.Monoid.<>)-                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                          ((Prelude..)-                             (\ bs-                                -> (Data.Monoid.<>)-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                        (Prelude.fromIntegral (Data.ByteString.length bs)))-                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                             Data.ProtoLens.encodeMessage _v))-                ((Data.Monoid.<>)-                   (case-                        Lens.Family2.view-                          (Data.ProtoLens.Field.field @"maybe'hasAddress") _x-                    of-                      Prelude.Nothing -> Data.Monoid.mempty-                      (Prelude.Just _v)-                        -> (Data.Monoid.<>)-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                             ((Prelude..)-                                (\ bs-                                   -> (Data.Monoid.<>)-                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                           (Prelude.fromIntegral (Data.ByteString.length bs)))-                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                Data.ProtoLens.encodeMessage _v))-                   ((Data.Monoid.<>)-                      (case-                           Lens.Family2.view-                             (Data.ProtoLens.Field.field @"maybe'movesAsset") _x-                       of-                         Prelude.Nothing -> Data.Monoid.mempty-                         (Prelude.Just _v)-                           -> (Data.Monoid.<>)-                                (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                                ((Prelude..)-                                   (\ bs-                                      -> (Data.Monoid.<>)-                                           (Data.ProtoLens.Encoding.Bytes.putVarInt-                                              (Prelude.fromIntegral (Data.ByteString.length bs)))-                                           (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                   Data.ProtoLens.encodeMessage _v))-                      ((Data.Monoid.<>)-                         (case-                              Lens.Family2.view-                                (Data.ProtoLens.Field.field @"maybe'mintsAsset") _x-                          of-                            Prelude.Nothing -> Data.Monoid.mempty-                            (Prelude.Just _v)-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt 42)-                                   ((Prelude..)-                                      (\ bs-                                         -> (Data.Monoid.<>)-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                              (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                      Data.ProtoLens.encodeMessage _v))-                         (Data.ProtoLens.Encoding.Wire.buildFieldSet-                            (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))-instance Control.DeepSeq.NFData TxPattern where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_TxPattern'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_TxPattern'consumes x__)-                (Control.DeepSeq.deepseq-                   (_TxPattern'produces x__)-                   (Control.DeepSeq.deepseq-                      (_TxPattern'hasAddress x__)-                      (Control.DeepSeq.deepseq-                         (_TxPattern'movesAsset x__)-                         (Control.DeepSeq.deepseq (_TxPattern'mintsAsset x__) ())))))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.start' @:: Lens' TxValidity Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ttl' @:: Lens' TxValidity Data.Word.Word64@ -}-data TxValidity-  = TxValidity'_constructor {_TxValidity'start :: !Data.Word.Word64,-                             _TxValidity'ttl :: !Data.Word.Word64,-                             _TxValidity'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show TxValidity where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField TxValidity "start" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxValidity'start (\ x__ y__ -> x__ {_TxValidity'start = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField TxValidity "ttl" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _TxValidity'ttl (\ x__ y__ -> x__ {_TxValidity'ttl = y__}))-        Prelude.id-instance Data.ProtoLens.Message TxValidity where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxValidity"-  packedMessageDescriptor _-    = "\n\-      \\n\-      \TxValidity\DC2\DC4\n\-      \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\-      \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        start__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "start"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"start")) ::-              Data.ProtoLens.FieldDescriptor TxValidity-        ttl__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "ttl"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ttl")) ::-              Data.ProtoLens.FieldDescriptor TxValidity-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, start__field_descriptor),-           (Data.ProtoLens.Tag 2, ttl__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _TxValidity'_unknownFields-        (\ x__ y__ -> x__ {_TxValidity'_unknownFields = y__})-  defMessage-    = TxValidity'_constructor-        {_TxValidity'start = Data.ProtoLens.fieldDefault,-         _TxValidity'ttl = Data.ProtoLens.fieldDefault,-         _TxValidity'_unknownFields = []}-  parseMessage-    = let-        loop ::-          TxValidity -> Data.ProtoLens.Encoding.Bytes.Parser TxValidity-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "start"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x)-                        16-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "ttl"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "TxValidity"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"start") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-             ((Data.Monoid.<>)-                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ttl") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData TxValidity where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_TxValidity'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_TxValidity'start x__)-                (Control.DeepSeq.deepseq (_TxValidity'ttl x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vkey' @:: Lens' VKeyWitness Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.signature' @:: Lens' VKeyWitness Data.ByteString.ByteString@ -}-data VKeyWitness-  = VKeyWitness'_constructor {_VKeyWitness'vkey :: !Data.ByteString.ByteString,-                              _VKeyWitness'signature :: !Data.ByteString.ByteString,-                              _VKeyWitness'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show VKeyWitness where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField VKeyWitness "vkey" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _VKeyWitness'vkey (\ x__ y__ -> x__ {_VKeyWitness'vkey = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField VKeyWitness "signature" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _VKeyWitness'signature-           (\ x__ y__ -> x__ {_VKeyWitness'signature = y__}))-        Prelude.id-instance Data.ProtoLens.Message VKeyWitness where-  messageName _-    = Data.Text.pack "utxorpc.v1alpha.cardano.VKeyWitness"-  packedMessageDescriptor _-    = "\n\-      \\vVKeyWitness\DC2\DC2\n\-      \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\-      \\tsignature\CAN\STX \SOH(\fR\tsignature"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        vkey__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "vkey"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"vkey")) ::-              Data.ProtoLens.FieldDescriptor VKeyWitness-        signature__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "signature"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"signature")) ::-              Data.ProtoLens.FieldDescriptor VKeyWitness-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, vkey__field_descriptor),-           (Data.ProtoLens.Tag 2, signature__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _VKeyWitness'_unknownFields-        (\ x__ y__ -> x__ {_VKeyWitness'_unknownFields = y__})-  defMessage-    = VKeyWitness'_constructor-        {_VKeyWitness'vkey = Data.ProtoLens.fieldDefault,-         _VKeyWitness'signature = Data.ProtoLens.fieldDefault,-         _VKeyWitness'_unknownFields = []}-  parseMessage-    = let-        loop ::-          VKeyWitness -> Data.ProtoLens.Encoding.Bytes.Parser VKeyWitness-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "vkey"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"vkey") y x)-                        18-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "signature"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "VKeyWitness"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vkey") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (let-                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"signature") _x-                 in-                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                       Data.Monoid.mempty-                   else-                       (Data.Monoid.<>)-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                         ((\ bs-                             -> (Data.Monoid.<>)-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            _v))-                (Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))-instance Control.DeepSeq.NFData VKeyWitness where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_VKeyWitness'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_VKeyWitness'vkey x__)-                (Control.DeepSeq.deepseq (_VKeyWitness'signature x__) ()))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.rewardAccount' @:: Lens' Withdrawal Data.ByteString.ByteString@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coin' @:: Lens' Withdrawal Data.Word.Word64@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' Withdrawal Redeemer@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Withdrawal (Prelude.Maybe Redeemer)@ -}-data Withdrawal-  = Withdrawal'_constructor {_Withdrawal'rewardAccount :: !Data.ByteString.ByteString,-                             _Withdrawal'coin :: !Data.Word.Word64,-                             _Withdrawal'redeemer :: !(Prelude.Maybe Redeemer),-                             _Withdrawal'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Withdrawal where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Withdrawal "rewardAccount" Data.ByteString.ByteString where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Withdrawal'rewardAccount-           (\ x__ y__ -> x__ {_Withdrawal'rewardAccount = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Withdrawal "coin" Data.Word.Word64 where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Withdrawal'coin (\ x__ y__ -> x__ {_Withdrawal'coin = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField Withdrawal "redeemer" Redeemer where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Withdrawal'redeemer-           (\ x__ y__ -> x__ {_Withdrawal'redeemer = y__}))-        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)-instance Data.ProtoLens.Field.HasField Withdrawal "maybe'redeemer" (Prelude.Maybe Redeemer) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _Withdrawal'redeemer-           (\ x__ y__ -> x__ {_Withdrawal'redeemer = y__}))-        Prelude.id-instance Data.ProtoLens.Message Withdrawal where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Withdrawal"-  packedMessageDescriptor _-    = "\n\-      \\n\-      \Withdrawal\DC2%\n\-      \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC2\DC2\n\-      \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2=\n\-      \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        rewardAccount__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "reward_account"-              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional-                 (Data.ProtoLens.Field.field @"rewardAccount")) ::-              Data.ProtoLens.FieldDescriptor Withdrawal-        coin__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "coin"-              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-              (Data.ProtoLens.PlainField-                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"coin")) ::-              Data.ProtoLens.FieldDescriptor Withdrawal-        redeemer__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "redeemer"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Redeemer)-              (Data.ProtoLens.OptionalField-                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::-              Data.ProtoLens.FieldDescriptor Withdrawal-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, rewardAccount__field_descriptor),-           (Data.ProtoLens.Tag 2, coin__field_descriptor),-           (Data.ProtoLens.Tag 3, redeemer__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _Withdrawal'_unknownFields-        (\ x__ y__ -> x__ {_Withdrawal'_unknownFields = y__})-  defMessage-    = Withdrawal'_constructor-        {_Withdrawal'rewardAccount = Data.ProtoLens.fieldDefault,-         _Withdrawal'coin = Data.ProtoLens.fieldDefault,-         _Withdrawal'redeemer = Prelude.Nothing,-         _Withdrawal'_unknownFields = []}-  parseMessage-    = let-        loop ::-          Withdrawal -> Data.ProtoLens.Encoding.Bytes.Parser Withdrawal-        loop x-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.getBytes-                                             (Prelude.fromIntegral len))-                                       "reward_account"-                                loop-                                  (Lens.Family2.set-                                     (Data.ProtoLens.Field.field @"rewardAccount") y x)-                        16-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       Data.ProtoLens.Encoding.Bytes.getVarInt "coin"-                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x)-                        26-                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                           Data.ProtoLens.Encoding.Bytes.isolate-                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)-                                       "redeemer"-                                loop-                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do loop Data.ProtoLens.defMessage) "Withdrawal"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (let-                _v-                  = Lens.Family2.view-                      (Data.ProtoLens.Field.field @"rewardAccount") _x-              in-                if (Prelude.==) _v Data.ProtoLens.fieldDefault then-                    Data.Monoid.mempty-                else-                    (Data.Monoid.<>)-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                      ((\ bs-                          -> (Data.Monoid.<>)-                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                  (Prelude.fromIntegral (Data.ByteString.length bs)))-                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                         _v))-             ((Data.Monoid.<>)-                (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.<>)-                   (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x-                    of-                      Prelude.Nothing -> Data.Monoid.mempty-                      (Prelude.Just _v)-                        -> (Data.Monoid.<>)-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                             ((Prelude..)-                                (\ bs-                                   -> (Data.Monoid.<>)-                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                           (Prelude.fromIntegral (Data.ByteString.length bs)))-                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                Data.ProtoLens.encodeMessage _v))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData Withdrawal where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_Withdrawal'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_Withdrawal'rewardAccount x__)-                (Control.DeepSeq.deepseq-                   (_Withdrawal'coin x__)-                   (Control.DeepSeq.deepseq (_Withdrawal'redeemer x__) ())))-{- | Fields :-     -         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vkeywitness' @:: Lens' WitnessSet [VKeyWitness]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'vkeywitness' @:: Lens' WitnessSet (Data.Vector.Vector VKeyWitness)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.script' @:: Lens' WitnessSet [Script]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'script' @:: Lens' WitnessSet (Data.Vector.Vector Script)@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusDatums' @:: Lens' WitnessSet [PlutusData]@-         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'plutusDatums' @:: Lens' WitnessSet (Data.Vector.Vector PlutusData)@ -}-data WitnessSet-  = WitnessSet'_constructor {_WitnessSet'vkeywitness :: !(Data.Vector.Vector VKeyWitness),-                             _WitnessSet'script :: !(Data.Vector.Vector Script),-                             _WitnessSet'plutusDatums :: !(Data.Vector.Vector PlutusData),-                             _WitnessSet'_unknownFields :: !Data.ProtoLens.FieldSet}-  deriving stock (Prelude.Eq, Prelude.Ord)-instance Prelude.Show WitnessSet where-  showsPrec _ __x __s-    = Prelude.showChar-        '{'-        (Prelude.showString-           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField WitnessSet "vkeywitness" [VKeyWitness] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _WitnessSet'vkeywitness-           (\ x__ y__ -> x__ {_WitnessSet'vkeywitness = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField WitnessSet "vec'vkeywitness" (Data.Vector.Vector VKeyWitness) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _WitnessSet'vkeywitness-           (\ x__ y__ -> x__ {_WitnessSet'vkeywitness = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField WitnessSet "script" [Script] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _WitnessSet'script (\ x__ y__ -> x__ {_WitnessSet'script = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField WitnessSet "vec'script" (Data.Vector.Vector Script) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _WitnessSet'script (\ x__ y__ -> x__ {_WitnessSet'script = y__}))-        Prelude.id-instance Data.ProtoLens.Field.HasField WitnessSet "plutusDatums" [PlutusData] where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _WitnessSet'plutusDatums-           (\ x__ y__ -> x__ {_WitnessSet'plutusDatums = y__}))-        (Lens.Family2.Unchecked.lens-           Data.Vector.Generic.toList-           (\ _ y__ -> Data.Vector.Generic.fromList y__))-instance Data.ProtoLens.Field.HasField WitnessSet "vec'plutusDatums" (Data.Vector.Vector PlutusData) where-  fieldOf _-    = (Prelude..)-        (Lens.Family2.Unchecked.lens-           _WitnessSet'plutusDatums-           (\ x__ y__ -> x__ {_WitnessSet'plutusDatums = y__}))-        Prelude.id-instance Data.ProtoLens.Message WitnessSet where-  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.WitnessSet"-  packedMessageDescriptor _-    = "\n\-      \\n\-      \WitnessSet\DC2F\n\-      \\vvkeywitness\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.cardano.VKeyWitnessR\vvkeywitness\DC27\n\-      \\ACKscript\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\DC2H\n\-      \\rplutus_datums\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\fplutusDatums"-  packedFileDescriptor _ = packedFileDescriptor-  fieldsByTag-    = let-        vkeywitness__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "vkeywitness"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor VKeyWitness)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"vkeywitness")) ::-              Data.ProtoLens.FieldDescriptor WitnessSet-        script__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "script"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor Script)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"script")) ::-              Data.ProtoLens.FieldDescriptor WitnessSet-        plutusDatums__field_descriptor-          = Data.ProtoLens.FieldDescriptor-              "plutus_datums"-              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                 Data.ProtoLens.FieldTypeDescriptor PlutusData)-              (Data.ProtoLens.RepeatedField-                 Data.ProtoLens.Unpacked-                 (Data.ProtoLens.Field.field @"plutusDatums")) ::-              Data.ProtoLens.FieldDescriptor WitnessSet-      in-        Data.Map.fromList-          [(Data.ProtoLens.Tag 1, vkeywitness__field_descriptor),-           (Data.ProtoLens.Tag 2, script__field_descriptor),-           (Data.ProtoLens.Tag 3, plutusDatums__field_descriptor)]-  unknownFields-    = Lens.Family2.Unchecked.lens-        _WitnessSet'_unknownFields-        (\ x__ y__ -> x__ {_WitnessSet'_unknownFields = y__})-  defMessage-    = WitnessSet'_constructor-        {_WitnessSet'vkeywitness = Data.Vector.Generic.empty,-         _WitnessSet'script = Data.Vector.Generic.empty,-         _WitnessSet'plutusDatums = Data.Vector.Generic.empty,-         _WitnessSet'_unknownFields = []}-  parseMessage-    = let-        loop ::-          WitnessSet-          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData-             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script-                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld VKeyWitness-                   -> Data.ProtoLens.Encoding.Bytes.Parser WitnessSet-        loop x mutable'plutusDatums mutable'script mutable'vkeywitness-          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-               if end then-                   do frozen'plutusDatums <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                               (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                  mutable'plutusDatums)-                      frozen'script <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                            mutable'script)-                      frozen'vkeywitness <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                              (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                 mutable'vkeywitness)-                      (let missing = []-                       in-                         if Prelude.null missing then-                             Prelude.return ()-                         else-                             Prelude.fail-                               ((Prelude.++)-                                  "Missing required fields: "-                                  (Prelude.show (missing :: [Prelude.String]))))-                      Prelude.return-                        (Lens.Family2.over-                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)-                           (Lens.Family2.set-                              (Data.ProtoLens.Field.field @"vec'plutusDatums")-                              frozen'plutusDatums-                              (Lens.Family2.set-                                 (Data.ProtoLens.Field.field @"vec'script") frozen'script-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'vkeywitness")-                                    frozen'vkeywitness x))))-               else-                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                      case tag of-                        10-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "vkeywitness"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append-                                          mutable'vkeywitness y)-                                loop x mutable'plutusDatums mutable'script v-                        18-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "script"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append mutable'script y)-                                loop x mutable'plutusDatums v mutable'vkeywitness-                        26-                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)-                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                            Data.ProtoLens.Encoding.Bytes.isolate-                                              (Prelude.fromIntegral len)-                                              Data.ProtoLens.parseMessage)-                                        "plutus_datums"-                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       (Data.ProtoLens.Encoding.Growing.append-                                          mutable'plutusDatums y)-                                loop x v mutable'script mutable'vkeywitness-                        wire-                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                        wire-                                loop-                                  (Lens.Family2.over-                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)-                                  mutable'plutusDatums mutable'script mutable'vkeywitness-      in-        (Data.ProtoLens.Encoding.Bytes.<?>)-          (do mutable'plutusDatums <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        Data.ProtoLens.Encoding.Growing.new-              mutable'script <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                  Data.ProtoLens.Encoding.Growing.new-              mutable'vkeywitness <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       Data.ProtoLens.Encoding.Growing.new-              loop-                Data.ProtoLens.defMessage mutable'plutusDatums mutable'script-                mutable'vkeywitness)-          "WitnessSet"-  buildMessage-    = \ _x-        -> (Data.Monoid.<>)-             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                (\ _v-                   -> (Data.Monoid.<>)-                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                        ((Prelude..)-                           (\ bs-                              -> (Data.Monoid.<>)-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                      (Prelude.fromIntegral (Data.ByteString.length bs)))-                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                           Data.ProtoLens.encodeMessage _v))-                (Lens.Family2.view-                   (Data.ProtoLens.Field.field @"vec'vkeywitness") _x))-             ((Data.Monoid.<>)-                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                   (\ _v-                      -> (Data.Monoid.<>)-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                           ((Prelude..)-                              (\ bs-                                 -> (Data.Monoid.<>)-                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                         (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Data.ProtoLens.encodeMessage _v))-                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'script") _x))-                ((Data.Monoid.<>)-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v-                         -> (Data.Monoid.<>)-                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                              ((Prelude..)-                                 (\ bs-                                    -> (Data.Monoid.<>)-                                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                                            (Prelude.fromIntegral (Data.ByteString.length bs)))-                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                 Data.ProtoLens.encodeMessage _v))-                      (Lens.Family2.view-                         (Data.ProtoLens.Field.field @"vec'plutusDatums") _x))-                   (Data.ProtoLens.Encoding.Wire.buildFieldSet-                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))-instance Control.DeepSeq.NFData WitnessSet where-  rnf-    = \ x__-        -> Control.DeepSeq.deepseq-             (_WitnessSet'_unknownFields x__)-             (Control.DeepSeq.deepseq-                (_WitnessSet'vkeywitness x__)-                (Control.DeepSeq.deepseq-                   (_WitnessSet'script x__)-                   (Control.DeepSeq.deepseq (_WitnessSet'plutusDatums x__) ())))-packedFileDescriptor :: Data.ByteString.ByteString-packedFileDescriptor-  = "\n\-    \%utxorpc/v1alpha/cardano/cardano.proto\DC2\ETButxorpc.v1alpha.cardano\"\137\SOH\n\-    \\bRedeemer\DC2B\n\-    \\apurpose\CAN\SOH \SOH(\SO2(.utxorpc.v1alpha.cardano.RedeemerPurposeR\apurpose\DC29\n\-    \\ENQdatum\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum\"\196\SOH\n\-    \\aTxInput\DC2\ETB\n\-    \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\-    \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2>\n\-    \\tas_output\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\basOutput\DC2=\n\-    \\bredeemer\CAN\EOT \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer\"\136\STX\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\DC29\n\-    \\ENQdatum\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQdatum\DC2\GS\n\-    \\n\-    \datum_hash\CAN\ENQ \SOH(\fR\tdatumHash\DC27\n\-    \\ACKscript\CAN\ACK \SOH(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\"Y\n\-    \\ENQAsset\DC2\DC2\n\-    \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\US\n\-    \\voutput_coin\CAN\STX \SOH(\EOTR\n\-    \outputCoin\DC2\ESC\n\-    \\tmint_coin\CAN\ETX \SOH(\ETXR\bmintCoin\"\160\SOH\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\DC2=\n\-    \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer\"4\n\-    \\n\-    \TxValidity\DC2\DC4\n\-    \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\-    \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl\"\201\SOH\n\-    \\n\-    \Collateral\DC2@\n\-    \\n\-    \collateral\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\n\-    \collateral\DC2N\n\-    \\DC1collateral_return\CAN\STX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\DLEcollateralReturn\DC2)\n\-    \\DLEtotal_collateral\CAN\ETX \SOH(\EOTR\SItotalCollateral\"\134\SOH\n\-    \\n\-    \Withdrawal\DC2%\n\-    \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC2\DC2\n\-    \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2=\n\-    \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer\"\215\SOH\n\-    \\n\-    \WitnessSet\DC2F\n\-    \\vvkeywitness\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.cardano.VKeyWitnessR\vvkeywitness\DC27\n\-    \\ACKscript\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\DC2H\n\-    \\rplutus_datums\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\fplutusDatums\"\131\SOH\n\-    \\aAuxData\DC2=\n\-    \\bmetadata\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.cardano.MetadataR\bmetadata\DC29\n\-    \\ascripts\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ascripts\"\225\ENQ\n\-    \\STXTx\DC28\n\-    \\ACKinputs\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\ACKinputs\DC2;\n\-    \\aoutputs\CAN\STX \ETX(\v2!.utxorpc.v1alpha.cardano.TxOutputR\aoutputs\DC2H\n\-    \\fcertificates\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.cardano.CertificateR\fcertificates\DC2E\n\-    \\vwithdrawals\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.cardano.WithdrawalR\vwithdrawals\DC27\n\-    \\EOTmint\CAN\ENQ \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\EOTmint\DC2K\n\-    \\DLEreference_inputs\CAN\ACK \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\SIreferenceInputs\DC2A\n\-    \\twitnesses\CAN\a \SOH(\v2#.utxorpc.v1alpha.cardano.WitnessSetR\twitnesses\DC2C\n\-    \\n\-    \collateral\CAN\b \SOH(\v2#.utxorpc.v1alpha.cardano.CollateralR\n\-    \collateral\DC2\DLE\n\-    \\ETXfee\CAN\t \SOH(\EOTR\ETXfee\DC2?\n\-    \\bvalidity\CAN\n\-    \ \SOH(\v2#.utxorpc.v1alpha.cardano.TxValidityR\bvalidity\DC2\RS\n\-    \\n\-    \successful\CAN\v \SOH(\bR\n\-    \successful\DC2>\n\-    \\tauxiliary\CAN\f \SOH(\v2 .utxorpc.v1alpha.cardano.AuxDataR\tauxiliary\DC2\DC2\n\-    \\EOThash\CAN\r \SOH(\fR\EOThash\"M\n\-    \\vBlockHeader\DC2\DC2\n\-    \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\-    \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\-    \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\"8\n\-    \\tBlockBody\DC2+\n\-    \\STXtx\CAN\SOH \ETX(\v2\ESC.utxorpc.v1alpha.cardano.TxR\STXtx\"}\n\-    \\ENQBlock\DC2<\n\-    \\ACKheader\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.cardano.BlockHeaderR\ACKheader\DC26\n\-    \\EOTbody\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.BlockBodyR\EOTbody\"?\n\-    \\vVKeyWitness\DC2\DC2\n\-    \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\-    \\tsignature\CAN\STX \SOH(\fR\tsignature\"\128\ETX\n\-    \\fNativeScript\DC2%\n\-    \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\-    \\n\-    \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\-    \\n\-    \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\-    \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\-    \scriptNOfK\DC2'\n\-    \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\-    \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\-    \\rnative_script\"O\n\-    \\DLENativeScriptList\DC2;\n\-    \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems\"[\n\-    \\n\-    \ScriptNOfK\DC2\f\n\-    \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\-    \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts\"\128\SOH\n\-    \\ACKConstr\DC2\DLE\n\-    \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\-    \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2;\n\-    \\ACKfields\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ACKfields\"c\n\-    \\ACKBigInt\DC2\DC2\n\-    \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\FS\n\-    \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\-    \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\-    \\abig_int\"\130\SOH\n\-    \\SOPlutusDataPair\DC25\n\-    \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\-    \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue\"\183\STX\n\-    \\n\-    \PlutusData\DC29\n\-    \\ACKconstr\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\-    \\ETXmap\CAN\STX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\-    \\abig_int\CAN\ETX \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\-    \\rbounded_bytes\CAN\EOT \SOH(\fH\NULR\fboundedBytes\DC2@\n\-    \\ENQarray\CAN\ENQ \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\-    \\vplutus_data\"N\n\-    \\rPlutusDataMap\DC2=\n\-    \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs\"L\n\-    \\SIPlutusDataArray\DC29\n\-    \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems\"\145\SOH\n\-    \\ACKScript\DC2?\n\-    \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\-    \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\-    \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2B\b\n\-    \\ACKscript\"\214\SOH\n\-    \\tMetadatum\DC2\DC2\n\-    \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\-    \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\-    \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2?\n\-    \\ENQarray\CAN\EOT \SOH(\v2'.utxorpc.v1alpha.cardano.MetadatumArrayH\NULR\ENQarray\DC29\n\-    \\ETXmap\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.MetadatumMapH\NULR\ETXmapB\v\n\-    \\tmetadatum\"J\n\-    \\SOMetadatumArray\DC28\n\-    \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQitems\"L\n\-    \\fMetadatumMap\DC2<\n\-    \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.cardano.MetadatumPairR\ENQpairs\"\DEL\n\-    \\rMetadatumPair\DC24\n\-    \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ETXkey\DC28\n\-    \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue\"Z\n\-    \\bMetadata\DC2\DC4\n\-    \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC28\n\-    \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue\"n\n\-    \\SIStakeCredential\DC2$\n\-    \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\-    \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\-    \scriptHashB\DC2\n\-    \\DLEstake_credential\"P\n\-    \\SORationalNumber\DC2\FS\n\-    \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\-    \\vdenominator\CAN\STX \SOH(\rR\vdenominator\"`\n\-    \\ENQRelay\DC2\DC3\n\-    \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\-    \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\-    \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\-    \\EOTport\CAN\EOT \SOH(\rR\EOTport\"4\n\-    \\fPoolMetadata\DC2\DLE\n\-    \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\-    \\EOThash\CAN\STX \SOH(\fR\EOThash\"\208\ENQ\n\-    \\vCertificate\DC2Y\n\-    \\DC2stake_registration\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2]\n\-    \\DC4stake_deregistration\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2Y\n\-    \\DLEstake_delegation\CAN\ETX \SOH(\v2,.utxorpc.v1alpha.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2\\\n\-    \\DC1pool_registration\CAN\EOT \SOH(\v2-.utxorpc.v1alpha.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2V\n\-    \\SIpool_retirement\CAN\ENQ \SOH(\v2+.utxorpc.v1alpha.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2i\n\-    \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v21.utxorpc.v1alpha.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2=\n\-    \\bmir_cert\CAN\a \SOH(\v2 .utxorpc.v1alpha.cardano.MirCertH\NULR\amirCert\DC2=\n\-    \\bredeemer\CANd \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemerB\r\n\-    \\vcertificate\"\141\SOH\n\-    \\DC3StakeDelegationCert\DC2S\n\-    \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\-    \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\"\140\ETX\n\-    \\DC4PoolRegistrationCert\DC2\SUB\n\-    \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\-    \\vvrf_keyhash\CAN\STX \SOH(\fR\n\-    \vrfKeyhash\DC2\SYN\n\-    \\ACKpledge\CAN\ETX \SOH(\EOTR\ACKpledge\DC2\DC2\n\-    \\EOTcost\CAN\EOT \SOH(\EOTR\EOTcost\DC2?\n\-    \\ACKmargin\CAN\ENQ \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmargin\DC2%\n\-    \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\-    \\vpool_owners\CAN\a \ETX(\fR\n\-    \poolOwners\DC26\n\-    \\ACKrelays\CAN\b \ETX(\v2\RS.utxorpc.v1alpha.cardano.RelayR\ACKrelays\DC2J\n\-    \\rpool_metadata\CAN\t \SOH(\v2%.utxorpc.v1alpha.cardano.PoolMetadataR\fpoolMetadata\"M\n\-    \\DC2PoolRetirementCert\DC2!\n\-    \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\-    \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch\"\146\SOH\n\-    \\CANGenesisKeyDelegationCert\DC2!\n\-    \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\-    \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\-    \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\-    \vrfKeyhash\"\DEL\n\-    \\tMirTarget\DC2S\n\-    \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2\GS\n\-    \\n\-    \delta_coin\CAN\STX \SOH(\ETXR\tdeltaCoin\"\146\SOH\n\-    \\aMirCert\DC26\n\-    \\EOTfrom\CAN\SOH \SOH(\SO2\".utxorpc.v1alpha.cardano.MirSourceR\EOTfrom\DC22\n\-    \\STXto\CAN\STX \ETX(\v2\".utxorpc.v1alpha.cardano.MirTargetR\STXto\DC2\ESC\n\-    \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot\"\129\SOH\n\-    \\SOAddressPattern\DC2#\n\-    \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\-    \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\-    \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart\"J\n\-    \\fAssetPattern\DC2\ESC\n\-    \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\-    \\n\-    \asset_name\CAN\STX \SOH(\fR\tassetName\"\145\SOH\n\-    \\SITxOutputPattern\DC2A\n\-    \\aaddress\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\aaddress\DC2;\n\-    \\ENQasset\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\ENQasset\"\241\STX\n\-    \\tTxPattern\DC2D\n\-    \\bconsumes\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bconsumes\DC2D\n\-    \\bproduces\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bproduces\DC2H\n\-    \\vhas_address\CAN\ETX \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\n\-    \hasAddress\DC2F\n\-    \\vmoves_asset\CAN\EOT \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\-    \movesAsset\DC2F\n\-    \\vmints_asset\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\-    \mintsAsset\"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\"\v\n\-    \\tCostModel\"\142\SOH\n\-    \\n\-    \CostModels\DC2?\n\-    \\tplutus_v1\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV1\DC2?\n\-    \\tplutus_v2\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV2\"\182\n\-    \\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\"\GS\n\-    \\tEvalError\DC2\DLE\n\-    \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\GS\n\-    \\tEvalTrace\DC2\DLE\n\-    \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\207\SOH\n\-    \\ACKTxEval\DC2\DLE\n\-    \\ETXfee\CAN\SOH \SOH(\EOTR\ETXfee\DC2;\n\-    \\bex_units\CAN\STX \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\aexUnits\DC2:\n\-    \\ACKerrors\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.cardano.EvalErrorR\ACKerrors\DC2:\n\-    \\ACKtraces\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.cardano.EvalTraceR\ACKtraces*\162\SOH\n\-    \\SIRedeemerPurpose\DC2 \n\-    \\FSREDEEMER_PURPOSE_UNSPECIFIED\DLE\NUL\DC2\SUB\n\-    \\SYNREDEEMER_PURPOSE_SPEND\DLE\SOH\DC2\EM\n\-    \\NAKREDEEMER_PURPOSE_MINT\DLE\STX\DC2\EM\n\-    \\NAKREDEEMER_PURPOSE_CERT\DLE\ETX\DC2\ESC\n\-    \\ETBREDEEMER_PURPOSE_REWARD\DLE\EOT*Y\n\-    \\tMirSource\DC2\SUB\n\-    \\SYNMIR_SOURCE_UNSPECIFIED\DLE\NUL\DC2\ETB\n\-    \\DC3MIR_SOURCE_RESERVES\DLE\SOH\DC2\ETB\n\-    \\DC3MIR_SOURCE_TREASURY\DLE\STXB\224\SOH\n\-    \\ESCcom.utxorpc.v1alpha.cardanoB\fCardanoProtoP\SOHZ5github.com/utxorpc/go-codegen/utxorpc/v1alpha/cardano\162\STX\ETXUVC\170\STX\ETBUtxorpc.V1alpha.Cardano\202\STX\ETBUtxorpc\\V1alpha\\Cardano\226\STX#Utxorpc\\V1alpha\\Cardano\\GPBMetadata\234\STX\EMUtxorpc::V1alpha::CardanoJ\165\152\SOH\n\-    \\a\DC2\ENQ\NUL\NUL\163\ETX\SOH\n\-    \\b\n\-    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\-    \\b\n\-    \\SOH\STX\DC2\ETX\STX\NUL \n\-    \7\n\-    \\STX\ENQ\NUL\DC2\EOT\ENQ\NUL\v\SOH\SUB+ Purpose of the redeemer in a transaction.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\ENQ\NUL\SOH\DC2\ETX\ENQ\ENQ\DC4\n\-    \\v\n\-    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX\ACK\STX#\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX\ACK\STX\RS\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX\ACK!\"\n\-    \\v\n\-    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX\a\STX\GS\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX\a\STX\CAN\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX\a\ESC\FS\n\-    \\v\n\-    \\EOT\ENQ\NUL\STX\STX\DC2\ETX\b\STX\FS\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX\b\STX\ETB\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX\b\SUB\ESC\n\-    \\v\n\-    \\EOT\ENQ\NUL\STX\ETX\DC2\ETX\t\STX\FS\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\t\STX\ETB\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\t\SUB\ESC\n\-    \\v\n\-    \\EOT\ENQ\NUL\STX\EOT\DC2\ETX\n\-    \\STX\RS\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX\n\-    \\STX\EM\n\-    \\f\n\-    \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX\n\-    \\FS\GS\n\-    \7\n\-    \\STX\EOT\NUL\DC2\EOT\SO\NUL\DC1\SOH\SUB+ Redeemer information for a Plutus script.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\NUL\SOH\DC2\ETX\SO\b\DLE\n\-    \'\n\-    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\STX\RS\"\SUB Purpose of the redeemer.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\SI\STX\DC1\n\-    \\f\n\-    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\DC2\EM\n\-    \\f\n\-    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\FS\GS\n\-    \8\n\-    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DLE\STX\ETB\"+ Plutus data associated with the redeemer.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\DLE\STX\f\n\-    \\f\n\-    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DLE\r\DC2\n\-    \\f\n\-    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DLE\NAK\SYN\n\-    \G\n\-    \\STX\EOT\SOH\DC2\EOT\DC4\NUL\EM\SOH\SUB; Represents a transaction input in the Cardano blockchain.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\SOH\SOH\DC2\ETX\DC4\b\SI\n\-    \0\n\-    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\NAK\STX\DC4\"# Hash of the previous transaction.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\NAK\STX\a\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\NAK\b\SI\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\NAK\DC2\DC3\n\-    \?\n\-    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\SYN\STX\SUB\"2 Index of the output in the previous transaction.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\SYN\STX\b\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\SYN\t\NAK\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\SYN\CAN\EM\n\-    \T\n\-    \\EOT\EOT\SOH\STX\STX\DC2\ETX\ETB\STX\EM\"G Content of the input represented as output of the related transaction\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\ETB\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\ETB\v\DC4\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\ETB\ETB\CAN\n\-    \.\n\-    \\EOT\EOT\SOH\STX\ETX\DC2\ETX\CAN\STX\CAN\"! Redeemer for the Plutus script.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX\CAN\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\CAN\v\DC3\n\-    \\f\n\-    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\CAN\SYN\ETB\n\-    \H\n\-    \\STX\EOT\STX\DC2\EOT\FS\NUL#\SOH\SUB< Represents a transaction output in the Cardano blockchain.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\STX\SOH\DC2\ETX\FS\b\DLE\n\-    \,\n\-    \\EOT\EOT\STX\STX\NUL\DC2\ETX\GS\STX\DC4\"\US Address receiving the output.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\GS\STX\a\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\GS\b\SI\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\GS\DC2\DC3\n\-    \+\n\-    \\EOT\EOT\STX\STX\SOH\DC2\ETX\RS\STX\DC2\"\RS Amount of ADA in the output.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\RS\STX\b\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\RS\t\r\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\RS\DLE\DC1\n\-    \@\n\-    \\EOT\EOT\STX\STX\STX\DC2\ETX\US\STX!\"3 Additional native (non-ADA) assets in the output.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\STX\EOT\DC2\ETX\US\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\STX\ACK\DC2\ETX\US\v\NAK\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX\US\SYN\FS\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX\US\US \n\-    \6\n\-    \\EOT\EOT\STX\STX\ETX\DC2\ETX \STX\ETB\") Plutus data associated with the output.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETX \STX\f\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX \r\DC2\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX \NAK\SYN\n\-    \'\n\-    \\EOT\EOT\STX\STX\EOT\DC2\ETX!\STX\ETB\"\SUB Hash of the Plutus data.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\EOT\ENQ\DC2\ETX!\STX\a\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETX!\b\DC2\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETX!\NAK\SYN\n\-    \1\n\-    \\EOT\EOT\STX\STX\ENQ\DC2\ETX\"\STX\DC4\"$ Script associated with the output.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\ENQ\ACK\DC2\ETX\"\STX\b\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\ENQ\SOH\DC2\ETX\"\t\SI\n\-    \\f\n\-    \\ENQ\EOT\STX\STX\ENQ\ETX\DC2\ETX\"\DC2\DC3\n\-    \B\n\-    \\STX\EOT\ETX\DC2\EOT&\NUL*\SOH\SUB6 Represents a custom asset in the Cardano blockchain.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\ETX\SOH\DC2\ETX&\b\r\n\-    \(\n\-    \\EOT\EOT\ETX\STX\NUL\DC2\ETX'\STX\DC1\"\ESC Name of the custom asset.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX'\STX\a\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX'\b\f\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX'\SI\DLE\n\-    \A\n\-    \\EOT\EOT\ETX\STX\SOH\DC2\ETX(\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(\STX\b\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX(\t\DC4\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX(\ETB\CAN\n\-    \>\n\-    \\EOT\EOT\ETX\STX\STX\DC2\ETX)\STX\SYN\"1 Quantity of the custom asset in case of a mint.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX)\STX\a\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX)\b\DC1\n\-    \\f\n\-    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX)\DC4\NAK\n\-    \G\n\-    \\STX\EOT\EOT\DC2\EOT-\NUL1\SOH\SUB; 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\-    \\EOT\EOT\EOT\STX\STX\DC2\ETX0\STX\CAN\"! Redeemer for the Plutus script.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\EOT\STX\STX\ACK\DC2\ETX0\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETX0\v\DC3\n\-    \\f\n\-    \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX0\SYN\ETB\n\-    \@\n\-    \\STX\EOT\ENQ\DC2\EOT4\NUL7\SOH\SUB4 Represents the validity interval of a transaction.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\ENQ\SOH\DC2\ETX4\b\DC2\n\-    \.\n\-    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX5\STX\DC3\"! Start of the validity interval.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX5\STX\b\n\-    \\f\n\-    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX5\t\SO\n\-    \\f\n\-    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX5\DC1\DC2\n\-    \@\n\-    \\EOT\EOT\ENQ\STX\SOH\DC2\ETX6\STX\DC1\"3 End of the validity interval (TTL: Time to Live).\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETX6\STX\b\n\-    \\f\n\-    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX6\t\f\n\-    \\f\n\-    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX6\SI\DLE\n\-    \F\n\-    \\STX\EOT\ACK\DC2\EOT:\NUL>\SOH\SUB: Represents the collateral information for a transaction.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\ACK\SOH\DC2\ETX:\b\DC2\n\-    \5\n\-    \\EOT\EOT\ACK\STX\NUL\DC2\ETX;\STX\"\"( Collateral inputs for the transaction.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX;\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX;\v\DC2\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX;\DC3\GS\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX; !\n\-    \;\n\-    \\EOT\EOT\ACK\STX\SOH\DC2\ETX<\STX!\". Collateral return in case of script failure.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX<\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX<\v\FS\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX<\US \n\-    \*\n\-    \\EOT\EOT\ACK\STX\STX\DC2\ETX=\STX\RS\"\GS Total amount of collateral.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETX=\STX\b\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX=\t\EM\n\-    \\f\n\-    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX=\FS\GS\n\-    \<\n\-    \\STX\EOT\a\DC2\EOTA\NULE\SOH\SUB0 Represents a withdrawal from a reward account.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\a\SOH\DC2\ETXA\b\DC2\n\-    \-\n\-    \\EOT\EOT\a\STX\NUL\DC2\ETXB\STX\ESC\"  Address of the reward account.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXB\STX\a\n\-    \\f\n\-    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXB\b\SYN\n\-    \\f\n\-    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXB\EM\SUB\n\-    \'\n\-    \\EOT\EOT\a\STX\SOH\DC2\ETXC\STX\DC2\"\SUB Amount of ADA withdrawn.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETXC\STX\b\n\-    \\f\n\-    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXC\t\r\n\-    \\f\n\-    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXC\DLE\DC1\n\-    \.\n\-    \\EOT\EOT\a\STX\STX\DC2\ETXD\STX\CAN\"! Redeemer for the Plutus script.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\a\STX\STX\ACK\DC2\ETXD\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXD\v\DC3\n\-    \\f\n\-    \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXD\SYN\ETB\n\-    \G\n\-    \\STX\EOT\b\DC2\EOTH\NULL\SOH\SUB; Represents a set of witnesses that validate a transaction\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\b\SOH\DC2\ETXH\b\DC2\n\-    \&\n\-    \\EOT\EOT\b\STX\NUL\DC2\ETXI\STX'\"\EM List of VKey witnesses.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\b\STX\NUL\EOT\DC2\ETXI\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXI\v\SYN\n\-    \\f\n\-    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXI\ETB\"\n\-    \\f\n\-    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXI%&\n\-    \\US\n\-    \\EOT\EOT\b\STX\SOH\DC2\ETXJ\STX\GS\"\DC2 List of scripts.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\b\STX\SOH\EOT\DC2\ETXJ\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXJ\v\DC1\n\-    \\f\n\-    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXJ\DC2\CAN\n\-    \\f\n\-    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXJ\ESC\FS\n\-    \L\n\-    \\EOT\EOT\b\STX\STX\DC2\ETXK\STX(\"? List of Plutus data elements associated with the transaction.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\b\STX\STX\EOT\DC2\ETXK\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\b\STX\STX\ACK\DC2\ETXK\v\NAK\n\-    \\f\n\-    \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXK\SYN#\n\-    \\f\n\-    \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXK&'\n\-    \H\n\-    \\STX\EOT\t\DC2\EOTO\NULR\SOH\SUB< Auxiliary data not directly tied to the validation process\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\t\SOH\DC2\ETXO\b\SI\n\-    \3\n\-    \\EOT\EOT\t\STX\NUL\DC2\ETXP\STX!\"& List of auxiliary metadata elements.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXP\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXP\v\DC3\n\-    \\f\n\-    \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXP\DC4\FS\n\-    \\f\n\-    \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXP\US \n\-    \)\n\-    \\EOT\EOT\t\STX\SOH\DC2\ETXQ\STX\RS\"\FS List of auxiliary scripts.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\t\STX\SOH\EOT\DC2\ETXQ\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXQ\v\DC1\n\-    \\f\n\-    \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXQ\DC2\EM\n\-    \\f\n\-    \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXQ\FS\GS\n\-    \A\n\-    \\STX\EOT\n\-    \\DC2\EOTU\NULc\SOH\SUB5 Represents a transaction in the Cardano blockchain.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\n\-    \\SOH\DC2\ETXU\b\n\-    \\n\-    \)\n\-    \\EOT\EOT\n\-    \\STX\NUL\DC2\ETXV\STX\RS\"\FS List of transaction inputs\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\NUL\EOT\DC2\ETXV\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\NUL\ACK\DC2\ETXV\v\DC2\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\NUL\SOH\DC2\ETXV\DC3\EM\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\NUL\ETX\DC2\ETXV\FS\GS\n\-    \*\n\-    \\EOT\EOT\n\-    \\STX\SOH\DC2\ETXW\STX \"\GS List of transaction outputs\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\SOH\EOT\DC2\ETXW\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\SOH\ACK\DC2\ETXW\v\DC3\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\SOH\SOH\DC2\ETXW\DC4\ESC\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\SOH\ETX\DC2\ETXW\RS\US\n\-    \#\n\-    \\EOT\EOT\n\-    \\STX\STX\DC2\ETXX\STX(\"\SYN List of certificates\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\STX\EOT\DC2\ETXX\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\STX\ACK\DC2\ETXX\v\SYN\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\STX\SOH\DC2\ETXX\ETB#\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\STX\ETX\DC2\ETXX&'\n\-    \\"\n\-    \\EOT\EOT\n\-    \\STX\ETX\DC2\ETXY\STX&\"\NAK List of withdrawals\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ETX\EOT\DC2\ETXY\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ETX\ACK\DC2\ETXY\v\NAK\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ETX\SOH\DC2\ETXY\SYN!\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ETX\ETX\DC2\ETXY$%\n\-    \+\n\-    \\EOT\EOT\n\-    \\STX\EOT\DC2\ETXZ\STX\US\"\RS List of minted custom assets\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\EOT\EOT\DC2\ETXZ\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\EOT\ACK\DC2\ETXZ\v\NAK\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\EOT\SOH\DC2\ETXZ\SYN\SUB\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\EOT\ETX\DC2\ETXZ\GS\RS\n\-    \'\n\-    \\EOT\EOT\n\-    \\STX\ENQ\DC2\ETX[\STX(\"\SUB List of reference inputs\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ENQ\EOT\DC2\ETX[\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ENQ\ACK\DC2\ETX[\v\DC2\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ENQ\SOH\DC2\ETX[\DC3#\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ENQ\ETX\DC2\ETX[&'\n\-    \5\n\-    \\EOT\EOT\n\-    \\STX\ACK\DC2\ETX\\\STX\ESC\"( Witnesses that validte the transaction\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ACK\ACK\DC2\ETX\\\STX\f\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ACK\SOH\DC2\ETX\\\r\SYN\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\ACK\ETX\DC2\ETX\\\EM\SUB\n\-    \?\n\-    \\EOT\EOT\n\-    \\STX\a\DC2\ETX]\STX\FS\"2 Collateral details in case of failed transaction\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\a\ACK\DC2\ETX]\STX\f\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\a\SOH\DC2\ETX]\r\ETB\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\a\ETX\DC2\ETX]\SUB\ESC\n\-    \%\n\-    \\EOT\EOT\n\-    \\STX\b\DC2\ETX^\STX\DC1\"\CAN Transaction fee in ADA\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\b\ENQ\DC2\ETX^\STX\b\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\b\SOH\DC2\ETX^\t\f\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\b\ETX\DC2\ETX^\SI\DLE\n\-    \3\n\-    \\EOT\EOT\n\-    \\STX\t\DC2\ETX_\STX\ESC\"& Validity interval of the transaction\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\t\ACK\DC2\ETX_\STX\f\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\t\SOH\DC2\ETX_\r\NAK\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\t\ETX\DC2\ETX_\CAN\SUB\n\-    \E\n\-    \\EOT\EOT\n\-    \\STX\n\-    \\DC2\ETX`\STX\ETB\"8 Flag indicating whether the transaction was successful\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\n\-    \\ENQ\DC2\ETX`\STX\ACK\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\n\-    \\SOH\DC2\ETX`\a\DC1\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\n\-    \\ETX\DC2\ETX`\DC4\SYN\n\-    \I\n\-    \\EOT\EOT\n\-    \\STX\v\DC2\ETXa\STX\EM\"< Auxiliary data not directly tied to the validation process\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\v\ACK\DC2\ETXa\STX\t\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\v\SOH\DC2\ETXa\n\-    \\DC3\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\v\ETX\DC2\ETXa\SYN\CAN\n\-    \E\n\-    \\EOT\EOT\n\-    \\STX\f\DC2\ETXb\STX\DC2\"8 Hash of the transaction that serves as main identifier\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\f\ENQ\DC2\ETXb\STX\a\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\f\SOH\DC2\ETXb\b\f\n\-    \\f\n\-    \\ENQ\EOT\n\-    \\STX\f\ETX\DC2\ETXb\SI\DC1\n\-    \:\n\-    \\STX\EOT\v\DC2\EOTf\NULj\SOH\SUB. Contains the header information for a block.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\v\SOH\DC2\ETXf\b\DC3\n\-    \\ESC\n\-    \\EOT\EOT\v\STX\NUL\DC2\ETXg\STX\DC2\"\SO Slot number.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\v\STX\NUL\ENQ\DC2\ETXg\STX\b\n\-    \\f\n\-    \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXg\t\r\n\-    \\f\n\-    \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXg\DLE\DC1\n\-    \\SUB\n\-    \\EOT\EOT\v\STX\SOH\DC2\ETXh\STX\DC1\"\r Block hash.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\v\STX\SOH\ENQ\DC2\ETXh\STX\a\n\-    \\f\n\-    \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXh\b\f\n\-    \\f\n\-    \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXh\SI\DLE\n\-    \\FS\n\-    \\EOT\EOT\v\STX\STX\DC2\ETXi\STX\DC4\"\SI Block height.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\v\STX\STX\ENQ\DC2\ETXi\STX\b\n\-    \\f\n\-    \\ENQ\EOT\v\STX\STX\SOH\DC2\ETXi\t\SI\n\-    \\f\n\-    \\ENQ\EOT\v\STX\STX\ETX\DC2\ETXi\DC2\DC3\n\-    \8\n\-    \\STX\EOT\f\DC2\EOTm\NULo\SOH\SUB, Contains the transaction data for a block.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\f\SOH\DC2\ETXm\b\DC1\n\-    \$\n\-    \\EOT\EOT\f\STX\NUL\DC2\ETXn\STX\NAK\"\ETB List of transactions.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXn\STX\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXn\v\r\n\-    \\f\n\-    \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXn\SO\DLE\n\-    \\f\n\-    \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXn\DC3\DC4\n\-    \E\n\-    \\STX\EOT\r\DC2\EOTr\NULu\SOH\SUB9 Represents a complete block, including header and body.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\r\SOH\DC2\ETXr\b\r\n\-    \\FS\n\-    \\EOT\EOT\r\STX\NUL\DC2\ETXs\STX\EM\"\SI Block header.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXs\STX\r\n\-    \\f\n\-    \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXs\SO\DC4\n\-    \\f\n\-    \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXs\ETB\CAN\n\-    \\SUB\n\-    \\EOT\EOT\r\STX\SOH\DC2\ETXt\STX\NAK\"\r Block body.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\r\STX\SOH\ACK\DC2\ETXt\STX\v\n\-    \\f\n\-    \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETXt\f\DLE\n\-    \\f\n\-    \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETXt\DC3\DC4\n\-    \C\n\-    \\STX\EOT\SO\DC2\EOTx\NUL{\SOH\SUB7 Represents a VKey witness used to sign a transaction.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\SO\SOH\DC2\ETXx\b\DC3\n\-    \ \n\-    \\EOT\EOT\SO\STX\NUL\DC2\ETXy\STX\DC1\"\DC3 Verification key.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SO\STX\NUL\ENQ\DC2\ETXy\STX\a\n\-    \\f\n\-    \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXy\b\f\n\-    \\f\n\-    \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXy\SI\DLE\n\-    \D\n\-    \\EOT\EOT\SO\STX\SOH\DC2\ETXz\STX\SYN\"7 Signature generated using the associated private key.\n\-    \\n\-    \\f\n\-    \\ENQ\EOT\SO\STX\SOH\ENQ\DC2\ETXz\STX\a\n\-    \\f\n\-    \\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXz\b\DC1\n\-    \\f\n\-    \\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXz\DC4\NAK\n\-    \5\n\-    \\STX\EOT\SI\DC2\ENQ~\NUL\135\SOH\SOH\SUB( Represents a native script in Cardano.\n\-    \\n\-    \\n\-    \\n\-    \\ETX\EOT\SI\SOH\DC2\ETX~\b\DC4\n\-    \\r\n\-    \\EOT\EOT\SI\b\NUL\DC2\ENQ\DEL\STX\134\SOH\ETX\n\-    \\f\n\-    \\ENQ\EOT\SI\b\NUL\SOH\DC2\ETX\DEL\b\NAK\n\-    \4\n\-    \\EOT\EOT\SI\STX\NUL\DC2\EOT\128\SOH\EOT\FS\"& Script based on an address key hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\128\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\128\SOH\n\-    \\ETB\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\128\SOH\SUB\ESC\n\-    \H\n\-    \\EOT\EOT\SI\STX\SOH\DC2\EOT\129\SOH\EOT$\": Script that requires all nested scripts to be satisfied.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\SOH\ACK\DC2\EOT\129\SOH\EOT\DC4\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\129\SOH\NAK\US\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\129\SOH\"#\n\-    \O\n\-    \\EOT\EOT\SI\STX\STX\DC2\EOT\130\SOH\EOT$\"A Script that requires any of the nested scripts to be satisfied.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\STX\ACK\DC2\EOT\130\SOH\EOT\DC4\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\STX\SOH\DC2\EOT\130\SOH\NAK\US\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\STX\ETX\DC2\EOT\130\SOH\"#\n\-    \O\n\-    \\EOT\EOT\SI\STX\ETX\DC2\EOT\131\SOH\EOT!\"A Script that requires k out of n nested scripts to be satisfied.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\ETX\ACK\DC2\EOT\131\SOH\EOT\SO\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\ETX\SOH\DC2\EOT\131\SOH\SI\FS\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\ETX\ETX\DC2\EOT\131\SOH\US \n\-    \?\n\-    \\EOT\EOT\SI\STX\EOT\DC2\EOT\132\SOH\EOT\RS\"1 Slot number before which the script is invalid.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\EOT\ENQ\DC2\EOT\132\SOH\EOT\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\EOT\SOH\DC2\EOT\132\SOH\v\EM\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\EOT\ETX\DC2\EOT\132\SOH\FS\GS\n\-    \>\n\-    \\EOT\EOT\SI\STX\ENQ\DC2\EOT\133\SOH\EOT!\"0 Slot number after which the script is invalid.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\ENQ\ENQ\DC2\EOT\133\SOH\EOT\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\ENQ\SOH\DC2\EOT\133\SOH\v\FS\n\-    \\r\n\-    \\ENQ\EOT\SI\STX\ENQ\ETX\DC2\EOT\133\SOH\US \n\-    \4\n\-    \\STX\EOT\DLE\DC2\ACK\138\SOH\NUL\140\SOH\SOH\SUB& Represents a list of native scripts.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\DLE\SOH\DC2\EOT\138\SOH\b\CAN\n\-    \'\n\-    \\EOT\EOT\DLE\STX\NUL\DC2\EOT\139\SOH\STX\"\"\EM List of native scripts.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DLE\STX\NUL\EOT\DC2\EOT\139\SOH\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\139\SOH\v\ETB\n\-    \\r\n\-    \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\139\SOH\CAN\GS\n\-    \\r\n\-    \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\139\SOH !\n\-    \8\n\-    \\STX\EOT\DC1\DC2\ACK\143\SOH\NUL\146\SOH\SOH\SUB* Represents a \"k out of n\" native script.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\DC1\SOH\DC2\EOT\143\SOH\b\DC2\n\-    \9\n\-    \\EOT\EOT\DC1\STX\NUL\DC2\EOT\144\SOH\STX\SI\"+ The number of required satisfied scripts.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DC1\STX\NUL\ENQ\DC2\EOT\144\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\144\SOH\t\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\144\SOH\r\SO\n\-    \'\n\-    \\EOT\EOT\DC1\STX\SOH\DC2\EOT\145\SOH\STX$\"\EM List of native scripts.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DC1\STX\SOH\EOT\DC2\EOT\145\SOH\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\145\SOH\v\ETB\n\-    \\r\n\-    \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\145\SOH\CAN\US\n\-    \\r\n\-    \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\145\SOH\"#\n\-    \D\n\-    \\STX\EOT\DC2\DC2\ACK\149\SOH\NUL\153\SOH\SOH\SUB6 Represents a constructor for Plutus data in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\DC2\SOH\DC2\EOT\149\SOH\b\SO\n\-    \\f\n\-    \\EOT\EOT\DC2\STX\NUL\DC2\EOT\150\SOH\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\150\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\150\SOH\t\f\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\150\SOH\SI\DLE\n\-    \\f\n\-    \\EOT\EOT\DC2\STX\SOH\DC2\EOT\151\SOH\STX\GS\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\SOH\ENQ\DC2\EOT\151\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\151\SOH\t\CAN\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\151\SOH\ESC\FS\n\-    \\f\n\-    \\EOT\EOT\DC2\STX\STX\DC2\EOT\152\SOH\STX!\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\STX\EOT\DC2\EOT\152\SOH\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\STX\ACK\DC2\EOT\152\SOH\v\NAK\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\STX\SOH\DC2\EOT\152\SOH\SYN\FS\n\-    \\r\n\-    \\ENQ\EOT\DC2\STX\STX\ETX\DC2\EOT\152\SOH\US \n\-    \D\n\-    \\STX\EOT\DC3\DC2\ACK\156\SOH\NUL\162\SOH\SOH\SUB6 Represents a big integer for Plutus data in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\DC3\SOH\DC2\EOT\156\SOH\b\SO\n\-    \\SO\n\-    \\EOT\EOT\DC3\b\NUL\DC2\ACK\157\SOH\STX\161\SOH\ETX\n\-    \\r\n\-    \\ENQ\EOT\DC3\b\NUL\SOH\DC2\EOT\157\SOH\b\SI\n\-    \\f\n\-    \\EOT\EOT\DC3\STX\NUL\DC2\EOT\158\SOH\EOT\DC2\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\158\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\158\SOH\n\-    \\r\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\158\SOH\DLE\DC1\n\-    \\f\n\-    \\EOT\EOT\DC3\STX\SOH\DC2\EOT\159\SOH\EOT\CAN\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\159\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\159\SOH\n\-    \\DC3\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\159\SOH\SYN\ETB\n\-    \\f\n\-    \\EOT\EOT\DC3\STX\STX\DC2\EOT\160\SOH\EOT\CAN\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\STX\ENQ\DC2\EOT\160\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\STX\SOH\DC2\EOT\160\SOH\n\-    \\DC3\n\-    \\r\n\-    \\ENQ\EOT\DC3\STX\STX\ETX\DC2\EOT\160\SOH\SYN\ETB\n\-    \G\n\-    \\STX\EOT\DC4\DC2\ACK\165\SOH\NUL\168\SOH\SOH\SUB9 Represents a key-value pair for Plutus data in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\DC4\SOH\DC2\EOT\165\SOH\b\SYN\n\-    \ \n\-    \\EOT\EOT\DC4\STX\NUL\DC2\EOT\166\SOH\STX\NAK\"\DC2 Key of the pair.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DC4\STX\NUL\ACK\DC2\EOT\166\SOH\STX\f\n\-    \\r\n\-    \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\166\SOH\r\DLE\n\-    \\r\n\-    \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\166\SOH\DC3\DC4\n\-    \\"\n\-    \\EOT\EOT\DC4\STX\SOH\DC2\EOT\167\SOH\STX\ETB\"\DC4 Value of the pair.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\DC4\STX\SOH\ACK\DC2\EOT\167\SOH\STX\f\n\-    \\r\n\-    \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\167\SOH\r\DC2\n\-    \\r\n\-    \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\167\SOH\NAK\SYN\n\-    \9\n\-    \\STX\EOT\NAK\DC2\ACK\171\SOH\NUL\179\SOH\SOH\SUB+ Represents a Plutus data item in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\NAK\SOH\DC2\EOT\171\SOH\b\DC2\n\-    \\SO\n\-    \\EOT\EOT\NAK\b\NUL\DC2\ACK\172\SOH\STX\178\SOH\ETX\n\-    \\r\n\-    \\ENQ\EOT\NAK\b\NUL\SOH\DC2\EOT\172\SOH\b\DC3\n\-    \\FS\n\-    \\EOT\EOT\NAK\STX\NUL\DC2\EOT\173\SOH\EOT\SYN\"\SO Constructor.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\NUL\ACK\DC2\EOT\173\SOH\EOT\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\173\SOH\v\DC1\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\173\SOH\DC4\NAK\n\-    \#\n\-    \\EOT\EOT\NAK\STX\SOH\DC2\EOT\174\SOH\EOT\SUB\"\NAK Map of Plutus data.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\SOH\ACK\DC2\EOT\174\SOH\EOT\DC1\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\174\SOH\DC2\NAK\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\174\SOH\CAN\EM\n\-    \\FS\n\-    \\EOT\EOT\NAK\STX\STX\DC2\EOT\175\SOH\EOT\ETB\"\SO Big integer.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\STX\ACK\DC2\EOT\175\SOH\EOT\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\STX\SOH\DC2\EOT\175\SOH\v\DC2\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\STX\ETX\DC2\EOT\175\SOH\NAK\SYN\n\-    \\RS\n\-    \\EOT\EOT\NAK\STX\ETX\DC2\EOT\176\SOH\EOT\FS\"\DLE Bounded bytes.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\ETX\ENQ\DC2\EOT\176\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\ETX\SOH\DC2\EOT\176\SOH\n\-    \\ETB\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\ETX\ETX\DC2\EOT\176\SOH\SUB\ESC\n\-    \%\n\-    \\EOT\EOT\NAK\STX\EOT\DC2\EOT\177\SOH\EOT\RS\"\ETB Array of Plutus data.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\EOT\ACK\DC2\EOT\177\SOH\EOT\DC3\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\EOT\SOH\DC2\EOT\177\SOH\DC4\EM\n\-    \\r\n\-    \\ENQ\EOT\NAK\STX\EOT\ETX\DC2\EOT\177\SOH\FS\GS\n\-    \;\n\-    \\STX\EOT\SYN\DC2\ACK\182\SOH\NUL\184\SOH\SOH\SUB- Represents a map of Plutus data in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\SYN\SOH\DC2\EOT\182\SOH\b\NAK\n\-    \(\n\-    \\EOT\EOT\SYN\STX\NUL\DC2\EOT\183\SOH\STX$\"\SUB List of key-value pairs.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SYN\STX\NUL\EOT\DC2\EOT\183\SOH\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SYN\STX\NUL\ACK\DC2\EOT\183\SOH\v\EM\n\-    \\r\n\-    \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\183\SOH\SUB\US\n\-    \\r\n\-    \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\183\SOH\"#\n\-    \>\n\-    \\STX\EOT\ETB\DC2\ACK\187\SOH\NUL\189\SOH\SOH\SUB0 Represents an array of Plutus data in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\ETB\SOH\DC2\EOT\187\SOH\b\ETB\n\-    \*\n\-    \\EOT\EOT\ETB\STX\NUL\DC2\EOT\188\SOH\STX \"\FS List of Plutus data items.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\ETB\STX\NUL\EOT\DC2\EOT\188\SOH\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\ETB\STX\NUL\ACK\DC2\EOT\188\SOH\v\NAK\n\-    \\r\n\-    \\ENQ\EOT\ETB\STX\NUL\SOH\DC2\EOT\188\SOH\SYN\ESC\n\-    \\r\n\-    \\ENQ\EOT\ETB\STX\NUL\ETX\DC2\EOT\188\SOH\RS\US\n\-    \/\n\-    \\STX\EOT\CAN\DC2\ACK\192\SOH\NUL\198\SOH\SOH\SUB! Represents a script in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\CAN\SOH\DC2\EOT\192\SOH\b\SO\n\-    \\SO\n\-    \\EOT\EOT\CAN\b\NUL\DC2\ACK\193\SOH\STX\197\SOH\ETX\n\-    \\r\n\-    \\ENQ\EOT\CAN\b\NUL\SOH\DC2\EOT\193\SOH\b\SO\n\-    \\RS\n\-    \\EOT\EOT\CAN\STX\NUL\DC2\EOT\194\SOH\EOT\FS\"\DLE Native script.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\NUL\ACK\DC2\EOT\194\SOH\EOT\DLE\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\NUL\SOH\DC2\EOT\194\SOH\DC1\ETB\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\NUL\ETX\DC2\EOT\194\SOH\SUB\ESC\n\-    \!\n\-    \\EOT\EOT\CAN\STX\SOH\DC2\EOT\195\SOH\EOT\CAN\"\DC3 Plutus V1 script.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\SOH\ENQ\DC2\EOT\195\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\SOH\SOH\DC2\EOT\195\SOH\n\-    \\DC3\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\SOH\ETX\DC2\EOT\195\SOH\SYN\ETB\n\-    \!\n\-    \\EOT\EOT\CAN\STX\STX\DC2\EOT\196\SOH\EOT\CAN\"\DC3 Plutus V2 script.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\STX\ENQ\DC2\EOT\196\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\STX\SOH\DC2\EOT\196\SOH\n\-    \\DC3\n\-    \\r\n\-    \\ENQ\EOT\CAN\STX\STX\ETX\DC2\EOT\196\SOH\SYN\ETB\n\-    \\f\n\-    \\STX\EOT\EM\DC2\ACK\200\SOH\NUL\208\SOH\SOH\n\-    \\v\n\-    \\ETX\EOT\EM\SOH\DC2\EOT\200\SOH\b\DC1\n\-    \\SO\n\-    \\EOT\EOT\EM\b\NUL\DC2\ACK\201\SOH\STX\207\SOH\ETX\n\-    \\r\n\-    \\ENQ\EOT\EM\b\NUL\SOH\DC2\EOT\201\SOH\b\DC1\n\-    \\f\n\-    \\EOT\EOT\EM\STX\NUL\DC2\EOT\202\SOH\EOT\DC2\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\NUL\ENQ\DC2\EOT\202\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\NUL\SOH\DC2\EOT\202\SOH\n\-    \\r\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\NUL\ETX\DC2\EOT\202\SOH\DLE\DC1\n\-    \\f\n\-    \\EOT\EOT\EM\STX\SOH\DC2\EOT\203\SOH\EOT\DC4\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\SOH\ENQ\DC2\EOT\203\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\SOH\SOH\DC2\EOT\203\SOH\n\-    \\SI\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\SOH\ETX\DC2\EOT\203\SOH\DC2\DC3\n\-    \\f\n\-    \\EOT\EOT\EM\STX\STX\DC2\EOT\204\SOH\EOT\DC4\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\STX\ENQ\DC2\EOT\204\SOH\EOT\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\STX\SOH\DC2\EOT\204\SOH\v\SI\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\STX\ETX\DC2\EOT\204\SOH\DC2\DC3\n\-    \\f\n\-    \\EOT\EOT\EM\STX\ETX\DC2\EOT\205\SOH\EOT\GS\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\ETX\ACK\DC2\EOT\205\SOH\EOT\DC2\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\ETX\SOH\DC2\EOT\205\SOH\DC3\CAN\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\ETX\ETX\DC2\EOT\205\SOH\ESC\FS\n\-    \\f\n\-    \\EOT\EOT\EM\STX\EOT\DC2\EOT\206\SOH\EOT\EM\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\EOT\ACK\DC2\EOT\206\SOH\EOT\DLE\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\EOT\SOH\DC2\EOT\206\SOH\DC1\DC4\n\-    \\r\n\-    \\ENQ\EOT\EM\STX\EOT\ETX\DC2\EOT\206\SOH\ETB\CAN\n\-    \\f\n\-    \\STX\EOT\SUB\DC2\ACK\210\SOH\NUL\212\SOH\SOH\n\-    \\v\n\-    \\ETX\EOT\SUB\SOH\DC2\EOT\210\SOH\b\SYN\n\-    \\f\n\-    \\EOT\EOT\SUB\STX\NUL\DC2\EOT\211\SOH\STX\US\n\-    \\r\n\-    \\ENQ\EOT\SUB\STX\NUL\EOT\DC2\EOT\211\SOH\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\SUB\STX\NUL\ACK\DC2\EOT\211\SOH\v\DC4\n\-    \\r\n\-    \\ENQ\EOT\SUB\STX\NUL\SOH\DC2\EOT\211\SOH\NAK\SUB\n\-    \\r\n\-    \\ENQ\EOT\SUB\STX\NUL\ETX\DC2\EOT\211\SOH\GS\RS\n\-    \\f\n\-    \\STX\EOT\ESC\DC2\ACK\214\SOH\NUL\216\SOH\SOH\n\-    \\v\n\-    \\ETX\EOT\ESC\SOH\DC2\EOT\214\SOH\b\DC4\n\-    \\f\n\-    \\EOT\EOT\ESC\STX\NUL\DC2\EOT\215\SOH\STX#\n\-    \\r\n\-    \\ENQ\EOT\ESC\STX\NUL\EOT\DC2\EOT\215\SOH\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\ESC\STX\NUL\ACK\DC2\EOT\215\SOH\v\CAN\n\-    \\r\n\-    \\ENQ\EOT\ESC\STX\NUL\SOH\DC2\EOT\215\SOH\EM\RS\n\-    \\r\n\-    \\ENQ\EOT\ESC\STX\NUL\ETX\DC2\EOT\215\SOH!\"\n\-    \\f\n\-    \\STX\EOT\FS\DC2\ACK\218\SOH\NUL\221\SOH\SOH\n\-    \\v\n\-    \\ETX\EOT\FS\SOH\DC2\EOT\218\SOH\b\NAK\n\-    \\f\n\-    \\EOT\EOT\FS\STX\NUL\DC2\EOT\219\SOH\STX\DC4\n\-    \\r\n\-    \\ENQ\EOT\FS\STX\NUL\ACK\DC2\EOT\219\SOH\STX\v\n\-    \\r\n\-    \\ENQ\EOT\FS\STX\NUL\SOH\DC2\EOT\219\SOH\f\SI\n\-    \\r\n\-    \\ENQ\EOT\FS\STX\NUL\ETX\DC2\EOT\219\SOH\DC2\DC3\n\-    \\f\n\-    \\EOT\EOT\FS\STX\SOH\DC2\EOT\220\SOH\STX\SYN\n\-    \\r\n\-    \\ENQ\EOT\FS\STX\SOH\ACK\DC2\EOT\220\SOH\STX\v\n\-    \\r\n\-    \\ENQ\EOT\FS\STX\SOH\SOH\DC2\EOT\220\SOH\f\DC1\n\-    \\r\n\-    \\ENQ\EOT\FS\STX\SOH\ETX\DC2\EOT\220\SOH\DC4\NAK\n\-    \\f\n\-    \\STX\EOT\GS\DC2\ACK\223\SOH\NUL\226\SOH\SOH\n\-    \\v\n\-    \\ETX\EOT\GS\SOH\DC2\EOT\223\SOH\b\DLE\n\-    \\f\n\-    \\EOT\EOT\GS\STX\NUL\DC2\EOT\224\SOH\STX\DC3\n\-    \\r\n\-    \\ENQ\EOT\GS\STX\NUL\ENQ\DC2\EOT\224\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT\GS\STX\NUL\SOH\DC2\EOT\224\SOH\t\SO\n\-    \\r\n\-    \\ENQ\EOT\GS\STX\NUL\ETX\DC2\EOT\224\SOH\DC1\DC2\n\-    \\f\n\-    \\EOT\EOT\GS\STX\SOH\DC2\EOT\225\SOH\STX\SYN\n\-    \\r\n\-    \\ENQ\EOT\GS\STX\SOH\ACK\DC2\EOT\225\SOH\STX\v\n\-    \\r\n\-    \\ENQ\EOT\GS\STX\SOH\SOH\DC2\EOT\225\SOH\f\DC1\n\-    \\r\n\-    \\ENQ\EOT\GS\STX\SOH\ETX\DC2\EOT\225\SOH\DC4\NAK\n\-    \9\n\-    \\STX\EOT\RS\DC2\ACK\229\SOH\NUL\234\SOH\SOH\SUB+ Represents a stake credential in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\RS\SOH\DC2\EOT\229\SOH\b\ETB\n\-    \\SO\n\-    \\EOT\EOT\RS\b\NUL\DC2\ACK\230\SOH\STX\233\SOH\ETX\n\-    \\r\n\-    \\ENQ\EOT\RS\b\NUL\SOH\DC2\EOT\230\SOH\b\CAN\n\-    \!\n\-    \\EOT\EOT\RS\STX\NUL\DC2\EOT\231\SOH\EOT\FS\"\DC3 Address key hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\RS\STX\NUL\ENQ\DC2\EOT\231\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\RS\STX\NUL\SOH\DC2\EOT\231\SOH\n\-    \\ETB\n\-    \\r\n\-    \\ENQ\EOT\RS\STX\NUL\ETX\DC2\EOT\231\SOH\SUB\ESC\n\-    \\FS\n\-    \\EOT\EOT\RS\STX\SOH\DC2\EOT\232\SOH\EOT\SUB\"\SO Script hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\RS\STX\SOH\ENQ\DC2\EOT\232\SOH\EOT\t\n\-    \\r\n\-    \\ENQ\EOT\RS\STX\SOH\SOH\DC2\EOT\232\SOH\n\-    \\NAK\n\-    \\r\n\-    \\ENQ\EOT\RS\STX\SOH\ETX\DC2\EOT\232\SOH\CAN\EM\n\-    \;\n\-    \\STX\EOT\US\DC2\ACK\237\SOH\NUL\240\SOH\SOH\SUB- Represents a rational number as a fraction.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\US\SOH\DC2\EOT\237\SOH\b\SYN\n\-    \\f\n\-    \\EOT\EOT\US\STX\NUL\DC2\EOT\238\SOH\STX\SYN\n\-    \\r\n\-    \\ENQ\EOT\US\STX\NUL\ENQ\DC2\EOT\238\SOH\STX\a\n\-    \\r\n\-    \\ENQ\EOT\US\STX\NUL\SOH\DC2\EOT\238\SOH\b\DC1\n\-    \\r\n\-    \\ENQ\EOT\US\STX\NUL\ETX\DC2\EOT\238\SOH\DC4\NAK\n\-    \\f\n\-    \\EOT\EOT\US\STX\SOH\DC2\EOT\239\SOH\STX\EM\n\-    \\r\n\-    \\ENQ\EOT\US\STX\SOH\ENQ\DC2\EOT\239\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT\US\STX\SOH\SOH\DC2\EOT\239\SOH\t\DC4\n\-    \\r\n\-    \\ENQ\EOT\US\STX\SOH\ETX\DC2\EOT\239\SOH\ETB\CAN\n\-    \.\n\-    \\STX\EOT \DC2\ACK\243\SOH\NUL\248\SOH\SOH\SUB  Represents a relay in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT \SOH\DC2\EOT\243\SOH\b\r\n\-    \\f\n\-    \\EOT\EOT \STX\NUL\DC2\EOT\244\SOH\STX\DC2\n\-    \\r\n\-    \\ENQ\EOT \STX\NUL\ENQ\DC2\EOT\244\SOH\STX\a\n\-    \\r\n\-    \\ENQ\EOT \STX\NUL\SOH\DC2\EOT\244\SOH\b\r\n\-    \\r\n\-    \\ENQ\EOT \STX\NUL\ETX\DC2\EOT\244\SOH\DLE\DC1\n\-    \\f\n\-    \\EOT\EOT \STX\SOH\DC2\EOT\245\SOH\STX\DC2\n\-    \\r\n\-    \\ENQ\EOT \STX\SOH\ENQ\DC2\EOT\245\SOH\STX\a\n\-    \\r\n\-    \\ENQ\EOT \STX\SOH\SOH\DC2\EOT\245\SOH\b\r\n\-    \\r\n\-    \\ENQ\EOT \STX\SOH\ETX\DC2\EOT\245\SOH\DLE\DC1\n\-    \\f\n\-    \\EOT\EOT \STX\STX\DC2\EOT\246\SOH\STX\SYN\n\-    \\r\n\-    \\ENQ\EOT \STX\STX\ENQ\DC2\EOT\246\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT \STX\STX\SOH\DC2\EOT\246\SOH\t\DC1\n\-    \\r\n\-    \\ENQ\EOT \STX\STX\ETX\DC2\EOT\246\SOH\DC4\NAK\n\-    \\f\n\-    \\EOT\EOT \STX\ETX\DC2\EOT\247\SOH\STX\DC2\n\-    \\r\n\-    \\ENQ\EOT \STX\ETX\ENQ\DC2\EOT\247\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT \STX\ETX\SOH\DC2\EOT\247\SOH\t\r\n\-    \\r\n\-    \\ENQ\EOT \STX\ETX\ETX\DC2\EOT\247\SOH\DLE\DC1\n\-    \4\n\-    \\STX\EOT!\DC2\ACK\251\SOH\NUL\254\SOH\SOH\SUB& Represents pool metadata in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT!\SOH\DC2\EOT\251\SOH\b\DC4\n\-    \\f\n\-    \\EOT\EOT!\STX\NUL\DC2\EOT\252\SOH\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT!\STX\NUL\ENQ\DC2\EOT\252\SOH\STX\b\n\-    \\r\n\-    \\ENQ\EOT!\STX\NUL\SOH\DC2\EOT\252\SOH\t\f\n\-    \\r\n\-    \\ENQ\EOT!\STX\NUL\ETX\DC2\EOT\252\SOH\SI\DLE\n\-    \\f\n\-    \\EOT\EOT!\STX\SOH\DC2\EOT\253\SOH\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT!\STX\SOH\ENQ\DC2\EOT\253\SOH\STX\a\n\-    \\r\n\-    \\ENQ\EOT!\STX\SOH\SOH\DC2\EOT\253\SOH\b\f\n\-    \\r\n\-    \\ENQ\EOT!\STX\SOH\ETX\DC2\EOT\253\SOH\SI\DLE\n\-    \4\n\-    \\STX\EOT\"\DC2\ACK\129\STX\NUL\140\STX\SOH\SUB& Represents a certificate in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT\"\SOH\DC2\EOT\129\STX\b\DC3\n\-    \\SO\n\-    \\EOT\EOT\"\b\NUL\DC2\ACK\130\STX\STX\138\STX\ETX\n\-    \\r\n\-    \\ENQ\EOT\"\b\NUL\SOH\DC2\EOT\130\STX\b\DC3\n\-    \/\n\-    \\EOT\EOT\"\STX\NUL\DC2\EOT\131\STX\EOT+\"! Stake registration certificate.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\NUL\ACK\DC2\EOT\131\STX\EOT\DC3\n\-    \\r\n\-    \\ENQ\EOT\"\STX\NUL\SOH\DC2\EOT\131\STX\DC4&\n\-    \\r\n\-    \\ENQ\EOT\"\STX\NUL\ETX\DC2\EOT\131\STX)*\n\-    \1\n\-    \\EOT\EOT\"\STX\SOH\DC2\EOT\132\STX\EOT-\"# Stake deregistration certificate.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\SOH\ACK\DC2\EOT\132\STX\EOT\DC3\n\-    \\r\n\-    \\ENQ\EOT\"\STX\SOH\SOH\DC2\EOT\132\STX\DC4(\n\-    \\r\n\-    \\ENQ\EOT\"\STX\SOH\ETX\DC2\EOT\132\STX+,\n\-    \-\n\-    \\EOT\EOT\"\STX\STX\DC2\EOT\133\STX\EOT-\"\US Stake delegation certificate.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\STX\ACK\DC2\EOT\133\STX\EOT\ETB\n\-    \\r\n\-    \\ENQ\EOT\"\STX\STX\SOH\DC2\EOT\133\STX\CAN(\n\-    \\r\n\-    \\ENQ\EOT\"\STX\STX\ETX\DC2\EOT\133\STX+,\n\-    \.\n\-    \\EOT\EOT\"\STX\ETX\DC2\EOT\134\STX\EOT/\"  Pool registration certificate.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ETX\ACK\DC2\EOT\134\STX\EOT\CAN\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ETX\SOH\DC2\EOT\134\STX\EM*\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ETX\ETX\DC2\EOT\134\STX-.\n\-    \,\n\-    \\EOT\EOT\"\STX\EOT\DC2\EOT\135\STX\EOT+\"\RS Pool retirement certificate.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\EOT\ACK\DC2\EOT\135\STX\EOT\SYN\n\-    \\r\n\-    \\ENQ\EOT\"\STX\EOT\SOH\DC2\EOT\135\STX\ETB&\n\-    \\r\n\-    \\ENQ\EOT\"\STX\EOT\ETX\DC2\EOT\135\STX)*\n\-    \3\n\-    \\EOT\EOT\"\STX\ENQ\DC2\EOT\136\STX\EOT8\"% Genesis key delegation certificate.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ENQ\ACK\DC2\EOT\136\STX\EOT\FS\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ENQ\SOH\DC2\EOT\136\STX\GS3\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ENQ\ETX\DC2\EOT\136\STX67\n\-    \7\n\-    \\EOT\EOT\"\STX\ACK\DC2\EOT\137\STX\EOT\EM\") Move instantaneous rewards certificate.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ACK\ACK\DC2\EOT\137\STX\EOT\v\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ACK\SOH\DC2\EOT\137\STX\f\DC4\n\-    \\r\n\-    \\ENQ\EOT\"\STX\ACK\ETX\DC2\EOT\137\STX\ETB\CAN\n\-    \/\n\-    \\EOT\EOT\"\STX\a\DC2\EOT\139\STX\STX\SUB\"! Redeemer for the Plutus script.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\a\ACK\DC2\EOT\139\STX\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT\"\STX\a\SOH\DC2\EOT\139\STX\v\DC3\n\-    \\r\n\-    \\ENQ\EOT\"\STX\a\ETX\DC2\EOT\139\STX\SYN\EM\n\-    \E\n\-    \\STX\EOT#\DC2\ACK\143\STX\NUL\146\STX\SOH\SUB7 Represents a stake delegation certificate in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT#\SOH\DC2\EOT\143\STX\b\ESC\n\-    \!\n\-    \\EOT\EOT#\STX\NUL\DC2\EOT\144\STX\STX'\"\DC3 Stake credential.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT#\STX\NUL\ACK\DC2\EOT\144\STX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT#\STX\NUL\SOH\DC2\EOT\144\STX\DC2\"\n\-    \\r\n\-    \\ENQ\EOT#\STX\NUL\ETX\DC2\EOT\144\STX%&\n\-    \\RS\n\-    \\EOT\EOT#\STX\SOH\DC2\EOT\145\STX\STX\EM\"\DLE Pool key hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT#\STX\SOH\ENQ\DC2\EOT\145\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT#\STX\SOH\SOH\DC2\EOT\145\STX\b\DC4\n\-    \\r\n\-    \\ENQ\EOT#\STX\SOH\ETX\DC2\EOT\145\STX\ETB\CAN\n\-    \F\n\-    \\STX\EOT$\DC2\ACK\149\STX\NUL\159\STX\SOH\SUB8 Represents a pool registration certificate in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT$\SOH\DC2\EOT\149\STX\b\FS\n\-    \\"\n\-    \\EOT\EOT$\STX\NUL\DC2\EOT\150\STX\STX\NAK\"\DC4 Operator key hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\NUL\ENQ\DC2\EOT\150\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT$\STX\NUL\SOH\DC2\EOT\150\STX\b\DLE\n\-    \\r\n\-    \\ENQ\EOT$\STX\NUL\ETX\DC2\EOT\150\STX\DC3\DC4\n\-    \\GS\n\-    \\EOT\EOT$\STX\SOH\DC2\EOT\151\STX\STX\CAN\"\SI VRF key hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\SOH\ENQ\DC2\EOT\151\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT$\STX\SOH\SOH\DC2\EOT\151\STX\b\DC3\n\-    \\r\n\-    \\ENQ\EOT$\STX\SOH\ETX\DC2\EOT\151\STX\SYN\ETB\n\-    \\RS\n\-    \\EOT\EOT$\STX\STX\DC2\EOT\152\STX\STX\DC4\"\DLE Pledge amount.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\STX\ENQ\DC2\EOT\152\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT$\STX\STX\SOH\DC2\EOT\152\STX\t\SI\n\-    \\r\n\-    \\ENQ\EOT$\STX\STX\ETX\DC2\EOT\152\STX\DC2\DC3\n\-    \\SUB\n\-    \\EOT\EOT$\STX\ETX\DC2\EOT\153\STX\STX\DC2\"\f Pool cost.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\ETX\ENQ\DC2\EOT\153\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT$\STX\ETX\SOH\DC2\EOT\153\STX\t\r\n\-    \\r\n\-    \\ENQ\EOT$\STX\ETX\ETX\DC2\EOT\153\STX\DLE\DC1\n\-    \\FS\n\-    \\EOT\EOT$\STX\EOT\DC2\EOT\154\STX\STX\FS\"\SO Pool margin.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\EOT\ACK\DC2\EOT\154\STX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT$\STX\EOT\SOH\DC2\EOT\154\STX\DC1\ETB\n\-    \\r\n\-    \\ENQ\EOT$\STX\EOT\ETX\DC2\EOT\154\STX\SUB\ESC\n\-    \\US\n\-    \\EOT\EOT$\STX\ENQ\DC2\EOT\155\STX\STX\ESC\"\DC1 Reward account.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\ENQ\ENQ\DC2\EOT\155\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT$\STX\ENQ\SOH\DC2\EOT\155\STX\b\SYN\n\-    \\r\n\-    \\ENQ\EOT$\STX\ENQ\ETX\DC2\EOT\155\STX\EM\SUB\n\-    \.\n\-    \\EOT\EOT$\STX\ACK\DC2\EOT\156\STX\STX!\"  List of pool owner key hashes.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\ACK\EOT\DC2\EOT\156\STX\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\ACK\ENQ\DC2\EOT\156\STX\v\DLE\n\-    \\r\n\-    \\ENQ\EOT$\STX\ACK\SOH\DC2\EOT\156\STX\DC1\FS\n\-    \\r\n\-    \\ENQ\EOT$\STX\ACK\ETX\DC2\EOT\156\STX\US \n\-    \\US\n\-    \\EOT\EOT$\STX\a\DC2\EOT\157\STX\STX\FS\"\DC1 List of relays.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\a\EOT\DC2\EOT\157\STX\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\a\ACK\DC2\EOT\157\STX\v\DLE\n\-    \\r\n\-    \\ENQ\EOT$\STX\a\SOH\DC2\EOT\157\STX\DC1\ETB\n\-    \\r\n\-    \\ENQ\EOT$\STX\a\ETX\DC2\EOT\157\STX\SUB\ESC\n\-    \\RS\n\-    \\EOT\EOT$\STX\b\DC2\EOT\158\STX\STX!\"\DLE Pool metadata.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT$\STX\b\ACK\DC2\EOT\158\STX\STX\SO\n\-    \\r\n\-    \\ENQ\EOT$\STX\b\SOH\DC2\EOT\158\STX\SI\FS\n\-    \\r\n\-    \\ENQ\EOT$\STX\b\ETX\DC2\EOT\158\STX\US \n\-    \D\n\-    \\STX\EOT%\DC2\ACK\162\STX\NUL\165\STX\SOH\SUB6 Represents a pool retirement certificate in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT%\SOH\DC2\EOT\162\STX\b\SUB\n\-    \\RS\n\-    \\EOT\EOT%\STX\NUL\DC2\EOT\163\STX\STX\EM\"\DLE Pool key hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT%\STX\NUL\ENQ\DC2\EOT\163\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT%\STX\NUL\SOH\DC2\EOT\163\STX\b\DC4\n\-    \\r\n\-    \\ENQ\EOT%\STX\NUL\ETX\DC2\EOT\163\STX\ETB\CAN\n\-    \!\n\-    \\EOT\EOT%\STX\SOH\DC2\EOT\164\STX\STX\DC3\"\DC3 Retirement epoch.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT%\STX\SOH\ENQ\DC2\EOT\164\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT%\STX\SOH\SOH\DC2\EOT\164\STX\t\SO\n\-    \\r\n\-    \\ENQ\EOT%\STX\SOH\ETX\DC2\EOT\164\STX\DC1\DC2\n\-    \K\n\-    \\STX\EOT&\DC2\ACK\168\STX\NUL\172\STX\SOH\SUB= Represents a genesis key delegation certificate in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT&\SOH\DC2\EOT\168\STX\b \n\-    \\GS\n\-    \\EOT\EOT&\STX\NUL\DC2\EOT\169\STX\STX\EM\"\SI Genesis hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT&\STX\NUL\ENQ\DC2\EOT\169\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT&\STX\NUL\SOH\DC2\EOT\169\STX\b\DC4\n\-    \\r\n\-    \\ENQ\EOT&\STX\NUL\ETX\DC2\EOT\169\STX\ETB\CAN\n\-    \&\n\-    \\EOT\EOT&\STX\SOH\DC2\EOT\170\STX\STX\"\"\CAN Genesis delegate hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT&\STX\SOH\ENQ\DC2\EOT\170\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT&\STX\SOH\SOH\DC2\EOT\170\STX\b\GS\n\-    \\r\n\-    \\ENQ\EOT&\STX\SOH\ETX\DC2\EOT\170\STX !\n\-    \\GS\n\-    \\EOT\EOT&\STX\STX\DC2\EOT\171\STX\STX\CAN\"\SI VRF key hash.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT&\STX\STX\ENQ\DC2\EOT\171\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT&\STX\STX\SOH\DC2\EOT\171\STX\b\DC3\n\-    \\r\n\-    \\ENQ\EOT&\STX\STX\ETX\DC2\EOT\171\STX\SYN\ETB\n\-    \\f\n\-    \\STX\ENQ\SOH\DC2\ACK\174\STX\NUL\178\STX\SOH\n\-    \\v\n\-    \\ETX\ENQ\SOH\SOH\DC2\EOT\174\STX\ENQ\SO\n\-    \\f\n\-    \\EOT\ENQ\SOH\STX\NUL\DC2\EOT\175\STX\STX\GS\n\-    \\r\n\-    \\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\EOT\175\STX\STX\CAN\n\-    \\r\n\-    \\ENQ\ENQ\SOH\STX\NUL\STX\DC2\EOT\175\STX\ESC\FS\n\-    \\f\n\-    \\EOT\ENQ\SOH\STX\SOH\DC2\EOT\176\STX\STX\SUB\n\-    \\r\n\-    \\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\EOT\176\STX\STX\NAK\n\-    \\r\n\-    \\ENQ\ENQ\SOH\STX\SOH\STX\DC2\EOT\176\STX\CAN\EM\n\-    \\f\n\-    \\EOT\ENQ\SOH\STX\STX\DC2\EOT\177\STX\STX\SUB\n\-    \\r\n\-    \\ENQ\ENQ\SOH\STX\STX\SOH\DC2\EOT\177\STX\STX\NAK\n\-    \\r\n\-    \\ENQ\ENQ\SOH\STX\STX\STX\DC2\EOT\177\STX\CAN\EM\n\-    \\f\n\-    \\STX\EOT'\DC2\ACK\180\STX\NUL\183\STX\SOH\n\-    \\v\n\-    \\ETX\EOT'\SOH\DC2\EOT\180\STX\b\DC1\n\-    \\f\n\-    \\EOT\EOT'\STX\NUL\DC2\EOT\181\STX\STX'\n\-    \\r\n\-    \\ENQ\EOT'\STX\NUL\ACK\DC2\EOT\181\STX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT'\STX\NUL\SOH\DC2\EOT\181\STX\DC2\"\n\-    \\r\n\-    \\ENQ\EOT'\STX\NUL\ETX\DC2\EOT\181\STX%&\n\-    \\f\n\-    \\EOT\EOT'\STX\SOH\DC2\EOT\182\STX\STX\ETB\n\-    \\r\n\-    \\ENQ\EOT'\STX\SOH\ENQ\DC2\EOT\182\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT'\STX\SOH\SOH\DC2\EOT\182\STX\b\DC2\n\-    \\r\n\-    \\ENQ\EOT'\STX\SOH\ETX\DC2\EOT\182\STX\NAK\SYN\n\-    \N\n\-    \\STX\EOT(\DC2\ACK\186\STX\NUL\190\STX\SOH\SUB@ Represents a move instantaneous reward certificate in Cardano.\n\-    \\n\-    \\v\n\-    \\ETX\EOT(\SOH\DC2\EOT\186\STX\b\SI\n\-    \\f\n\-    \\EOT\EOT(\STX\NUL\DC2\EOT\187\STX\STX\NAK\n\-    \\r\n\-    \\ENQ\EOT(\STX\NUL\ACK\DC2\EOT\187\STX\STX\v\n\-    \\r\n\-    \\ENQ\EOT(\STX\NUL\SOH\DC2\EOT\187\STX\f\DLE\n\-    \\r\n\-    \\ENQ\EOT(\STX\NUL\ETX\DC2\EOT\187\STX\DC3\DC4\n\-    \\f\n\-    \\EOT\EOT(\STX\SOH\DC2\EOT\188\STX\STX\FS\n\-    \\r\n\-    \\ENQ\EOT(\STX\SOH\EOT\DC2\EOT\188\STX\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT(\STX\SOH\ACK\DC2\EOT\188\STX\v\DC4\n\-    \\r\n\-    \\ENQ\EOT(\STX\SOH\SOH\DC2\EOT\188\STX\NAK\ETB\n\-    \\r\n\-    \\ENQ\EOT(\STX\SOH\ETX\DC2\EOT\188\STX\SUB\ESC\n\-    \\f\n\-    \\EOT\EOT(\STX\STX\DC2\EOT\189\STX\STX\ETB\n\-    \\r\n\-    \\ENQ\EOT(\STX\STX\ENQ\DC2\EOT\189\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT(\STX\STX\SOH\DC2\EOT\189\STX\t\DC2\n\-    \\r\n\-    \\ENQ\EOT(\STX\STX\ETX\DC2\EOT\189\STX\NAK\SYN\n\-    \}\n\-    \\STX\EOT)\DC2\ACK\196\STX\NUL\200\STX\SOH\SUBI Pattern of an address that can be used to evaluate matching predicates.\n\-    \2$ PATTERN MATCHING\n\-    \ ================\n\-    \\n\-    \\v\n\-    \\ETX\EOT)\SOH\DC2\EOT\196\STX\b\SYN\n\-    \B\n\-    \\EOT\EOT)\STX\NUL\DC2\EOT\197\STX\STX\SUB\"4 The address should match this exact address value.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT)\STX\NUL\ENQ\DC2\EOT\197\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT)\STX\NUL\SOH\DC2\EOT\197\STX\b\NAK\n\-    \\r\n\-    \\ENQ\EOT)\STX\NUL\ETX\DC2\EOT\197\STX\CAN\EM\n\-    \H\n\-    \\EOT\EOT)\STX\SOH\DC2\EOT\198\STX\STX\EM\": The payment part of the address should match this value.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT)\STX\SOH\ENQ\DC2\EOT\198\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT)\STX\SOH\SOH\DC2\EOT\198\STX\b\DC4\n\-    \\r\n\-    \\ENQ\EOT)\STX\SOH\ETX\DC2\EOT\198\STX\ETB\CAN\n\-    \K\n\-    \\EOT\EOT)\STX\STX\DC2\EOT\199\STX\STX\FS\"= The delegation part of the address should match this value.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT)\STX\STX\ENQ\DC2\EOT\199\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT)\STX\STX\SOH\DC2\EOT\199\STX\b\ETB\n\-    \\r\n\-    \\ENQ\EOT)\STX\STX\ETX\DC2\EOT\199\STX\SUB\ESC\n\-    \[\n\-    \\STX\EOT*\DC2\ACK\203\STX\NUL\206\STX\SOH\SUBM Pattern of a native asset that can be used to evaluate matching predicates.\n\-    \\n\-    \\v\n\-    \\ETX\EOT*\SOH\DC2\EOT\203\STX\b\DC4\n\-    \9\n\-    \\EOT\EOT*\STX\NUL\DC2\EOT\204\STX\STX\SYN\"+ The asset should belong to this policy id\n\-    \\n\-    \\r\n\-    \\ENQ\EOT*\STX\NUL\ENQ\DC2\EOT\204\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT*\STX\NUL\SOH\DC2\EOT\204\STX\b\DC1\n\-    \\r\n\-    \\ENQ\EOT*\STX\NUL\ETX\DC2\EOT\204\STX\DC4\NAK\n\-    \2\n\-    \\EOT\EOT*\STX\SOH\DC2\EOT\205\STX\STX\ETB\"$ The asset should present this name\n\-    \\n\-    \\r\n\-    \\ENQ\EOT*\STX\SOH\ENQ\DC2\EOT\205\STX\STX\a\n\-    \\r\n\-    \\ENQ\EOT*\STX\SOH\SOH\DC2\EOT\205\STX\b\DC2\n\-    \\r\n\-    \\ENQ\EOT*\STX\SOH\ETX\DC2\EOT\205\STX\NAK\SYN\n\-    \X\n\-    \\STX\EOT+\DC2\ACK\209\STX\NUL\212\STX\SOH\SUBJ Pattern of a tx output that can be used to evaluate matching predicates.\n\-    \\n\-    \\v\n\-    \\ETX\EOT+\SOH\DC2\EOT\209\STX\b\ETB\n\-    \K\n\-    \\EOT\EOT+\STX\NUL\DC2\EOT\210\STX\STX\GS\"= Match any address in the output that exhibits this pattern.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT+\STX\NUL\ACK\DC2\EOT\210\STX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT+\STX\NUL\SOH\DC2\EOT\210\STX\DC1\CAN\n\-    \\r\n\-    \\ENQ\EOT+\STX\NUL\ETX\DC2\EOT\210\STX\ESC\FS\n\-    \I\n\-    \\EOT\EOT+\STX\SOH\DC2\EOT\211\STX\STX\EM\"; Match any asset in the output that exhibits this pattern.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT+\STX\SOH\ACK\DC2\EOT\211\STX\STX\SO\n\-    \\r\n\-    \\ENQ\EOT+\STX\SOH\SOH\DC2\EOT\211\STX\SI\DC4\n\-    \\r\n\-    \\ENQ\EOT+\STX\SOH\ETX\DC2\EOT\211\STX\ETB\CAN\n\-    \Q\n\-    \\STX\EOT,\DC2\ACK\215\STX\NUL\221\STX\SOH\SUBC Pattern of a Tx that can be used to evaluate matching predicates.\n\-    \\n\-    \\v\n\-    \\ETX\EOT,\SOH\DC2\EOT\215\STX\b\DC1\n\-    \;\n\-    \\EOT\EOT,\STX\NUL\DC2\EOT\216\STX\STX\US\"- Match any input that exhibits this pattern.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT,\STX\NUL\ACK\DC2\EOT\216\STX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT,\STX\NUL\SOH\DC2\EOT\216\STX\DC2\SUB\n\-    \\r\n\-    \\ENQ\EOT,\STX\NUL\ETX\DC2\EOT\216\STX\GS\RS\n\-    \<\n\-    \\EOT\EOT,\STX\SOH\DC2\EOT\217\STX\STX\US\". Match any output that exhibits this pattern.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT,\STX\SOH\ACK\DC2\EOT\217\STX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT,\STX\SOH\SOH\DC2\EOT\217\STX\DC2\SUB\n\-    \\r\n\-    \\ENQ\EOT,\STX\SOH\ETX\DC2\EOT\217\STX\GS\RS\n\-    \`\n\-    \\EOT\EOT,\STX\STX\DC2\EOT\218\STX\STX!\"R Match any address (inputs, outputs, collateral, etc) that exhibits this pattern.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT,\STX\STX\ACK\DC2\EOT\218\STX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT,\STX\STX\SOH\DC2\EOT\218\STX\DC1\FS\n\-    \\r\n\-    \\ENQ\EOT,\STX\STX\ETX\DC2\EOT\218\STX\US \n\-    \;\n\-    \\EOT\EOT,\STX\ETX\DC2\EOT\219\STX\STX\US\"- Match any asset that exhibits this pattern.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT,\STX\ETX\ACK\DC2\EOT\219\STX\STX\SO\n\-    \\r\n\-    \\ENQ\EOT,\STX\ETX\SOH\DC2\EOT\219\STX\SI\SUB\n\-    \\r\n\-    \\ENQ\EOT,\STX\ETX\ETX\DC2\EOT\219\STX\GS\RS\n\-    \L\n\-    \\EOT\EOT,\STX\EOT\DC2\EOT\220\STX\STX\US\"> Match any tx that either mint or burn the the asset pattern.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT,\STX\EOT\ACK\DC2\EOT\220\STX\STX\SO\n\-    \\r\n\-    \\ENQ\EOT,\STX\EOT\SOH\DC2\EOT\220\STX\SI\SUB\n\-    \\r\n\-    \\ENQ\EOT,\STX\EOT\ETX\DC2\EOT\220\STX\GS\RS\n\-    \\RS\n\-    \\STX\EOT-\DC2\ACK\226\STX\NUL\229\STX\SOH2\DLE PARAMS\n\-    \ ======\n\-    \\n\-    \\v\n\-    \\ETX\EOT-\SOH\DC2\EOT\226\STX\b\SI\n\-    \\f\n\-    \\EOT\EOT-\STX\NUL\DC2\EOT\227\STX\STX\DC3\n\-    \\r\n\-    \\ENQ\EOT-\STX\NUL\ENQ\DC2\EOT\227\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT-\STX\NUL\SOH\DC2\EOT\227\STX\t\SO\n\-    \\r\n\-    \\ENQ\EOT-\STX\NUL\ETX\DC2\EOT\227\STX\DC1\DC2\n\-    \\f\n\-    \\EOT\EOT-\STX\SOH\DC2\EOT\228\STX\STX\DC4\n\-    \\r\n\-    \\ENQ\EOT-\STX\SOH\ENQ\DC2\EOT\228\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT-\STX\SOH\SOH\DC2\EOT\228\STX\t\SI\n\-    \\r\n\-    \\ENQ\EOT-\STX\SOH\ETX\DC2\EOT\228\STX\DC2\DC3\n\-    \\f\n\-    \\STX\EOT.\DC2\ACK\231\STX\NUL\234\STX\SOH\n\-    \\v\n\-    \\ETX\EOT.\SOH\DC2\EOT\231\STX\b\DLE\n\-    \\f\n\-    \\EOT\EOT.\STX\NUL\DC2\EOT\232\STX\STX\ESC\n\-    \\r\n\-    \\ENQ\EOT.\STX\NUL\ACK\DC2\EOT\232\STX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT.\STX\NUL\SOH\DC2\EOT\232\STX\DC1\SYN\n\-    \\r\n\-    \\ENQ\EOT.\STX\NUL\ETX\DC2\EOT\232\STX\EM\SUB\n\-    \\f\n\-    \\EOT\EOT.\STX\SOH\DC2\EOT\233\STX\STX\FS\n\-    \\r\n\-    \\ENQ\EOT.\STX\SOH\ACK\DC2\EOT\233\STX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT.\STX\SOH\SOH\DC2\EOT\233\STX\DC1\ETB\n\-    \\r\n\-    \\ENQ\EOT.\STX\SOH\ETX\DC2\EOT\233\STX\SUB\ESC\n\-    \\f\n\-    \\STX\EOT/\DC2\ACK\236\STX\NUL\239\STX\SOH\n\-    \\v\n\-    \\ETX\EOT/\SOH\DC2\EOT\236\STX\b\ETB\n\-    \\f\n\-    \\EOT\EOT/\STX\NUL\DC2\EOT\237\STX\STX\DC3\n\-    \\r\n\-    \\ENQ\EOT/\STX\NUL\ENQ\DC2\EOT\237\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT/\STX\NUL\SOH\DC2\EOT\237\STX\t\SO\n\-    \\r\n\-    \\ENQ\EOT/\STX\NUL\ETX\DC2\EOT\237\STX\DC1\DC2\n\-    \\f\n\-    \\EOT\EOT/\STX\SOH\DC2\EOT\238\STX\STX\DC3\n\-    \\r\n\-    \\ENQ\EOT/\STX\SOH\ENQ\DC2\EOT\238\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT/\STX\SOH\SOH\DC2\EOT\238\STX\t\SO\n\-    \\r\n\-    \\ENQ\EOT/\STX\SOH\ETX\DC2\EOT\238\STX\DC1\DC2\n\-    \\DC4\n\-    \\STX\EOT0\DC2\ACK\241\STX\NUL\243\STX\SOH\"\ACK TODO\n\-    \\n\-    \\v\n\-    \\ETX\EOT0\SOH\DC2\EOT\241\STX\b\DC1\n\-    \\f\n\-    \\STX\EOT1\DC2\ACK\245\STX\NUL\248\STX\SOH\n\-    \\v\n\-    \\ETX\EOT1\SOH\DC2\EOT\245\STX\b\DC2\n\-    \\f\n\-    \\EOT\EOT1\STX\NUL\DC2\EOT\246\STX\STX\SUB\n\-    \\r\n\-    \\ENQ\EOT1\STX\NUL\ACK\DC2\EOT\246\STX\STX\v\n\-    \\r\n\-    \\ENQ\EOT1\STX\NUL\SOH\DC2\EOT\246\STX\f\NAK\n\-    \\r\n\-    \\ENQ\EOT1\STX\NUL\ETX\DC2\EOT\246\STX\CAN\EM\n\-    \\f\n\-    \\EOT\EOT1\STX\SOH\DC2\EOT\247\STX\STX\SUB\n\-    \\r\n\-    \\ENQ\EOT1\STX\SOH\ACK\DC2\EOT\247\STX\STX\v\n\-    \\r\n\-    \\ENQ\EOT1\STX\SOH\SOH\DC2\EOT\247\STX\f\NAK\n\-    \\r\n\-    \\ENQ\EOT1\STX\SOH\ETX\DC2\EOT\247\STX\CAN\EM\n\-    \\f\n\-    \\STX\EOT2\DC2\ACK\250\STX\NUL\145\ETX\SOH\n\-    \\v\n\-    \\ETX\EOT2\SOH\DC2\EOT\250\STX\b\SI\n\-    \2\n\-    \\EOT\EOT2\STX\NUL\DC2\EOT\251\STX\STX!\"$ The number of coins per UTXO byte.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\NUL\ENQ\DC2\EOT\251\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\NUL\SOH\DC2\EOT\251\STX\t\FS\n\-    \\r\n\-    \\ENQ\EOT2\STX\NUL\ETX\DC2\EOT\251\STX\US \n\-    \-\n\-    \\EOT\EOT2\STX\SOH\DC2\EOT\252\STX\STX\EM\"\US The maximum transaction size.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\SOH\ENQ\DC2\EOT\252\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\SOH\SOH\DC2\EOT\252\STX\t\DC4\n\-    \\r\n\-    \\ENQ\EOT2\STX\SOH\ETX\DC2\EOT\252\STX\ETB\CAN\n\-    \,\n\-    \\EOT\EOT2\STX\STX\DC2\EOT\253\STX\STX!\"\RS The minimum fee coefficient.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\STX\ENQ\DC2\EOT\253\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\STX\SOH\DC2\EOT\253\STX\t\FS\n\-    \\r\n\-    \\ENQ\EOT2\STX\STX\ETX\DC2\EOT\253\STX\US \n\-    \)\n\-    \\EOT\EOT2\STX\ETX\DC2\EOT\254\STX\STX\RS\"\ESC The minimum fee constant.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\ETX\ENQ\DC2\EOT\254\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\ETX\SOH\DC2\EOT\254\STX\t\EM\n\-    \\r\n\-    \\ENQ\EOT2\STX\ETX\ETX\DC2\EOT\254\STX\FS\GS\n\-    \,\n\-    \\EOT\EOT2\STX\EOT\DC2\EOT\255\STX\STX!\"\RS The maximum block body size.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\EOT\ENQ\DC2\EOT\255\STX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\EOT\SOH\DC2\EOT\255\STX\t\FS\n\-    \\r\n\-    \\ENQ\EOT2\STX\EOT\ETX\DC2\EOT\255\STX\US \n\-    \.\n\-    \\EOT\EOT2\STX\ENQ\DC2\EOT\128\ETX\STX#\"  The maximum block header size.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\ENQ\ENQ\DC2\EOT\128\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\ENQ\SOH\DC2\EOT\128\ETX\t\RS\n\-    \\r\n\-    \\ENQ\EOT2\STX\ENQ\ETX\DC2\EOT\128\ETX!\"\n\-    \&\n\-    \\EOT\EOT2\STX\ACK\DC2\EOT\129\ETX\STX\US\"\CAN The stake key deposit.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\ACK\ENQ\DC2\EOT\129\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\ACK\SOH\DC2\EOT\129\ETX\t\SUB\n\-    \\r\n\-    \\ENQ\EOT2\STX\ACK\ETX\DC2\EOT\129\ETX\GS\RS\n\-    \!\n\-    \\EOT\EOT2\STX\a\DC2\EOT\130\ETX\STX\SUB\"\DC3 The pool deposit.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\a\ENQ\DC2\EOT\130\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\a\SOH\DC2\EOT\130\ETX\t\NAK\n\-    \\r\n\-    \\ENQ\EOT2\STX\a\ETX\DC2\EOT\130\ETX\CAN\EM\n\-    \0\n\-    \\EOT\EOT2\STX\b\DC2\EOT\131\ETX\STX)\"\" The pool retirement epoch bound.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\b\ENQ\DC2\EOT\131\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\b\SOH\DC2\EOT\131\ETX\t$\n\-    \\r\n\-    \\ENQ\EOT2\STX\b\ETX\DC2\EOT\131\ETX'(\n\-    \,\n\-    \\EOT\EOT2\STX\t\DC2\EOT\132\ETX\STX&\"\RS The desired number of pools.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\t\ENQ\DC2\EOT\132\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\t\SOH\DC2\EOT\132\ETX\t \n\-    \\r\n\-    \\ENQ\EOT2\STX\t\ETX\DC2\EOT\132\ETX#%\n\-    \#\n\-    \\EOT\EOT2\STX\n\-    \\DC2\EOT\133\ETX\STX%\"\NAK The pool influence.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\n\-    \\ACK\DC2\EOT\133\ETX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT2\STX\n\-    \\SOH\DC2\EOT\133\ETX\DC1\US\n\-    \\r\n\-    \\ENQ\EOT2\STX\n\-    \\ETX\DC2\EOT\133\ETX\"$\n\-    \'\n\-    \\EOT\EOT2\STX\v\DC2\EOT\134\ETX\STX)\"\EM The monetary expansion.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\v\ACK\DC2\EOT\134\ETX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT2\STX\v\SOH\DC2\EOT\134\ETX\DC1#\n\-    \\r\n\-    \\ENQ\EOT2\STX\v\ETX\DC2\EOT\134\ETX&(\n\-    \'\n\-    \\EOT\EOT2\STX\f\DC2\EOT\135\ETX\STX)\"\EM The treasury expansion.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\f\ACK\DC2\EOT\135\ETX\STX\DLE\n\-    \\r\n\-    \\ENQ\EOT2\STX\f\SOH\DC2\EOT\135\ETX\DC1#\n\-    \\r\n\-    \\ENQ\EOT2\STX\f\ETX\DC2\EOT\135\ETX&(\n\-    \&\n\-    \\EOT\EOT2\STX\r\DC2\EOT\136\ETX\STX\FS\"\CAN The minimum pool cost.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\r\ENQ\DC2\EOT\136\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\r\SOH\DC2\EOT\136\ETX\t\SYN\n\-    \\r\n\-    \\ENQ\EOT2\STX\r\ETX\DC2\EOT\136\ETX\EM\ESC\n\-    \%\n\-    \\EOT\EOT2\STX\SO\DC2\EOT\137\ETX\STX(\"\ETB The protocol version.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\SO\ACK\DC2\EOT\137\ETX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT2\STX\SO\SOH\DC2\EOT\137\ETX\DC2\"\n\-    \\r\n\-    \\ENQ\EOT2\STX\SO\ETX\DC2\EOT\137\ETX%'\n\-    \'\n\-    \\EOT\EOT2\STX\SI\DC2\EOT\138\ETX\STX\GS\"\EM The maximum value size.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\SI\ENQ\DC2\EOT\138\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\SI\SOH\DC2\EOT\138\ETX\t\ETB\n\-    \\r\n\-    \\ENQ\EOT2\STX\SI\ETX\DC2\EOT\138\ETX\SUB\FS\n\-    \*\n\-    \\EOT\EOT2\STX\DLE\DC2\EOT\139\ETX\STX$\"\FS The collateral percentage.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\DLE\ENQ\DC2\EOT\139\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\DLE\SOH\DC2\EOT\139\ETX\t\RS\n\-    \\r\n\-    \\ENQ\EOT2\STX\DLE\ETX\DC2\EOT\139\ETX!#\n\-    \.\n\-    \\EOT\EOT2\STX\DC1\DC2\EOT\140\ETX\STX$\"  The maximum collateral inputs.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC1\ENQ\DC2\EOT\140\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC1\SOH\DC2\EOT\140\ETX\t\RS\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC1\ETX\DC2\EOT\140\ETX!#\n\-    \ \n\-    \\EOT\EOT2\STX\DC2\DC2\EOT\141\ETX\STX\RS\"\DC2 The cost models.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC2\ACK\DC2\EOT\141\ETX\STX\f\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC2\SOH\DC2\EOT\141\ETX\r\CAN\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC2\ETX\DC2\EOT\141\ETX\ESC\GS\n\-    \\ESC\n\-    \\EOT\EOT2\STX\DC3\DC2\EOT\142\ETX\STX\ETB\"\r The prices.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC3\ACK\DC2\EOT\142\ETX\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC3\SOH\DC2\EOT\142\ETX\v\DC1\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC3\ETX\DC2\EOT\142\ETX\DC4\SYN\n\-    \<\n\-    \\EOT\EOT2\STX\DC4\DC2\EOT\143\ETX\STX3\". The maximum execution units per transaction.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC4\ACK\DC2\EOT\143\ETX\STX\t\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC4\SOH\DC2\EOT\143\ETX\n\-    \-\n\-    \\r\n\-    \\ENQ\EOT2\STX\DC4\ETX\DC2\EOT\143\ETX02\n\-    \6\n\-    \\EOT\EOT2\STX\NAK\DC2\EOT\144\ETX\STX-\"( The maximum execution units per block.\n\-    \\n\-    \\r\n\-    \\ENQ\EOT2\STX\NAK\ACK\DC2\EOT\144\ETX\STX\t\n\-    \\r\n\-    \\ENQ\EOT2\STX\NAK\SOH\DC2\EOT\144\ETX\n\-    \'\n\-    \\r\n\-    \\ENQ\EOT2\STX\NAK\ETX\DC2\EOT\144\ETX*,\n\-    \&\n\-    \\STX\EOT3\DC2\ACK\150\ETX\NUL\152\ETX\SOH2\CAN EVALUATION\n\-    \ ==========\n\-    \\n\-    \\v\n\-    \\ETX\EOT3\SOH\DC2\EOT\150\ETX\b\DC1\n\-    \\f\n\-    \\EOT\EOT3\STX\NUL\DC2\EOT\151\ETX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT3\STX\NUL\ENQ\DC2\EOT\151\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT3\STX\NUL\SOH\DC2\EOT\151\ETX\t\f\n\-    \\r\n\-    \\ENQ\EOT3\STX\NUL\ETX\DC2\EOT\151\ETX\SI\DLE\n\-    \\f\n\-    \\STX\EOT4\DC2\ACK\154\ETX\NUL\156\ETX\SOH\n\-    \\v\n\-    \\ETX\EOT4\SOH\DC2\EOT\154\ETX\b\DC1\n\-    \\f\n\-    \\EOT\EOT4\STX\NUL\DC2\EOT\155\ETX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT4\STX\NUL\ENQ\DC2\EOT\155\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT4\STX\NUL\SOH\DC2\EOT\155\ETX\t\f\n\-    \\r\n\-    \\ENQ\EOT4\STX\NUL\ETX\DC2\EOT\155\ETX\SI\DLE\n\-    \\f\n\-    \\STX\EOT5\DC2\ACK\158\ETX\NUL\163\ETX\SOH\n\-    \\v\n\-    \\ETX\EOT5\SOH\DC2\EOT\158\ETX\b\SO\n\-    \\f\n\-    \\EOT\EOT5\STX\NUL\DC2\EOT\159\ETX\STX\DC1\n\-    \\r\n\-    \\ENQ\EOT5\STX\NUL\ENQ\DC2\EOT\159\ETX\STX\b\n\-    \\r\n\-    \\ENQ\EOT5\STX\NUL\SOH\DC2\EOT\159\ETX\t\f\n\-    \\r\n\-    \\ENQ\EOT5\STX\NUL\ETX\DC2\EOT\159\ETX\SI\DLE\n\-    \\f\n\-    \\EOT\EOT5\STX\SOH\DC2\EOT\160\ETX\STX\ETB\n\-    \\r\n\-    \\ENQ\EOT5\STX\SOH\ACK\DC2\EOT\160\ETX\STX\t\n\-    \\r\n\-    \\ENQ\EOT5\STX\SOH\SOH\DC2\EOT\160\ETX\n\-    \\DC2\n\-    \\r\n\-    \\ENQ\EOT5\STX\SOH\ETX\DC2\EOT\160\ETX\NAK\SYN\n\-    \\f\n\-    \\EOT\EOT5\STX\STX\DC2\EOT\161\ETX\STX \n\-    \\r\n\-    \\ENQ\EOT5\STX\STX\EOT\DC2\EOT\161\ETX\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT5\STX\STX\ACK\DC2\EOT\161\ETX\v\DC4\n\-    \\r\n\-    \\ENQ\EOT5\STX\STX\SOH\DC2\EOT\161\ETX\NAK\ESC\n\-    \\r\n\-    \\ENQ\EOT5\STX\STX\ETX\DC2\EOT\161\ETX\RS\US\n\-    \\f\n\-    \\EOT\EOT5\STX\ETX\DC2\EOT\162\ETX\STX \n\-    \\r\n\-    \\ENQ\EOT5\STX\ETX\EOT\DC2\EOT\162\ETX\STX\n\-    \\n\-    \\r\n\-    \\ENQ\EOT5\STX\ETX\ACK\DC2\EOT\162\ETX\v\DC4\n\-    \\r\n\-    \\ENQ\EOT5\STX\ETX\SOH\DC2\EOT\162\ETX\NAK\ESC\n\-    \\r\n\-    \\ENQ\EOT5\STX\ETX\ETX\DC2\EOT\162\ETX\RS\USb\ACKproto3"+        Collateral(), Constr(), CostModel(), CostModels(), Datum(),+        EvalError(), EvalTrace(), ExPrices(), ExUnits(),+        GenesisKeyDelegationCert(), Metadata(), Metadatum(),+        Metadatum'Metadatum(..), _Metadatum'Int, _Metadatum'Bytes,+        _Metadatum'Text, _Metadatum'Array, _Metadatum'Map,+        MetadatumArray(), MetadatumMap(), MetadatumPair(), MirCert(),+        MirSource(..), MirSource(), MirSource'UnrecognizedValue,+        MirTarget(), Multiasset(), NativeScript(),+        NativeScript'NativeScript(..), _NativeScript'ScriptPubkey,+        _NativeScript'ScriptAll, _NativeScript'ScriptAny,+        _NativeScript'ScriptNOfK, _NativeScript'InvalidBefore,+        _NativeScript'InvalidHereafter, NativeScriptList(), PParams(),+        PlutusData(), PlutusData'PlutusData(..), _PlutusData'Constr,+        _PlutusData'Map, _PlutusData'BigInt, _PlutusData'BoundedBytes,+        _PlutusData'Array, PlutusDataArray(), PlutusDataMap(),+        PlutusDataPair(), PoolMetadata(), PoolRegistrationCert(),+        PoolRetirementCert(), ProtocolVersion(), RationalNumber(),+        Redeemer(), RedeemerPurpose(..), RedeemerPurpose(),+        RedeemerPurpose'UnrecognizedValue, Relay(), Script(),+        Script'Script(..), _Script'Native, _Script'PlutusV1,+        _Script'PlutusV2, ScriptNOfK(), StakeCredential(),+        StakeCredential'StakeCredential(..), _StakeCredential'AddrKeyHash,+        _StakeCredential'ScriptHash, StakeDelegationCert(), Tx(), TxEval(),+        TxInput(), TxOutput(), TxOutputPattern(), TxPattern(),+        TxValidity(), VKeyWitness(), Withdrawal(), WitnessSet()+    ) where+import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism+import qualified Data.ProtoLens.Runtime.Prelude as Prelude+import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int+import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid+import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word+import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum+import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2+import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text+import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map+import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString+import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8+import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding+import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector+import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic+import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed+import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.exactAddress' @:: Lens' AddressPattern Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.paymentPart' @:: Lens' AddressPattern Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.delegationPart' @:: Lens' AddressPattern Data.ByteString.ByteString@ -}+data AddressPattern+  = AddressPattern'_constructor {_AddressPattern'exactAddress :: !Data.ByteString.ByteString,+                                 _AddressPattern'paymentPart :: !Data.ByteString.ByteString,+                                 _AddressPattern'delegationPart :: !Data.ByteString.ByteString,+                                 _AddressPattern'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show AddressPattern where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField AddressPattern "exactAddress" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AddressPattern'exactAddress+           (\ x__ y__ -> x__ {_AddressPattern'exactAddress = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField AddressPattern "paymentPart" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AddressPattern'paymentPart+           (\ x__ y__ -> x__ {_AddressPattern'paymentPart = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField AddressPattern "delegationPart" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AddressPattern'delegationPart+           (\ x__ y__ -> x__ {_AddressPattern'delegationPart = y__}))+        Prelude.id+instance Data.ProtoLens.Message AddressPattern where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.AddressPattern"+  packedMessageDescriptor _+    = "\n\+      \\SOAddressPattern\DC2#\n\+      \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\+      \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\+      \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        exactAddress__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "exact_address"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"exactAddress")) ::+              Data.ProtoLens.FieldDescriptor AddressPattern+        paymentPart__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "payment_part"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"paymentPart")) ::+              Data.ProtoLens.FieldDescriptor AddressPattern+        delegationPart__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "delegation_part"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"delegationPart")) ::+              Data.ProtoLens.FieldDescriptor AddressPattern+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, exactAddress__field_descriptor),+           (Data.ProtoLens.Tag 2, paymentPart__field_descriptor),+           (Data.ProtoLens.Tag 3, delegationPart__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _AddressPattern'_unknownFields+        (\ x__ y__ -> x__ {_AddressPattern'_unknownFields = y__})+  defMessage+    = AddressPattern'_constructor+        {_AddressPattern'exactAddress = Data.ProtoLens.fieldDefault,+         _AddressPattern'paymentPart = Data.ProtoLens.fieldDefault,+         _AddressPattern'delegationPart = Data.ProtoLens.fieldDefault,+         _AddressPattern'_unknownFields = []}+  parseMessage+    = let+        loop ::+          AddressPattern+          -> Data.ProtoLens.Encoding.Bytes.Parser AddressPattern+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "exact_address"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"exactAddress") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "payment_part"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"paymentPart") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "delegation_part"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"delegationPart") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "AddressPattern"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v+                  = Lens.Family2.view (Data.ProtoLens.Field.field @"exactAddress") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let+                   _v+                     = Lens.Family2.view (Data.ProtoLens.Field.field @"paymentPart") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                ((Data.Monoid.<>)+                   (let+                      _v+                        = Lens.Family2.view+                            (Data.ProtoLens.Field.field @"delegationPart") _x+                    in+                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                          Data.Monoid.mempty+                      else+                          (Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                            ((\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                               _v))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData AddressPattern where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_AddressPattern'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_AddressPattern'exactAddress x__)+                (Control.DeepSeq.deepseq+                   (_AddressPattern'paymentPart x__)+                   (Control.DeepSeq.deepseq (_AddressPattern'delegationPart x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.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@ -}+data Asset+  = Asset'_constructor {_Asset'name :: !Data.ByteString.ByteString,+                        _Asset'outputCoin :: !Data.Word.Word64,+                        _Asset'mintCoin :: !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__}))+        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\ESC\n\+      \\tmint_coin\CAN\ETX \SOH(\ETXR\bmintCoin"+  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.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"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 = Data.ProtoLens.fieldDefault,+         _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.<>)+                   (let+                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"mintCoin") _x+                    in+                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                          Data.Monoid.mempty+                      else+                          (Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)+                            ((Prelude..)+                               Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+                   (Data.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.policyId' @:: Lens' AssetPattern Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.assetName' @:: Lens' AssetPattern Data.ByteString.ByteString@ -}+data AssetPattern+  = AssetPattern'_constructor {_AssetPattern'policyId :: !Data.ByteString.ByteString,+                               _AssetPattern'assetName :: !Data.ByteString.ByteString,+                               _AssetPattern'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show AssetPattern where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField AssetPattern "policyId" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AssetPattern'policyId+           (\ x__ y__ -> x__ {_AssetPattern'policyId = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField AssetPattern "assetName" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AssetPattern'assetName+           (\ x__ y__ -> x__ {_AssetPattern'assetName = y__}))+        Prelude.id+instance Data.ProtoLens.Message AssetPattern where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.AssetPattern"+  packedMessageDescriptor _+    = "\n\+      \\fAssetPattern\DC2\ESC\n\+      \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\+      \\n\+      \asset_name\CAN\STX \SOH(\fR\tassetName"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        policyId__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "policy_id"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"policyId")) ::+              Data.ProtoLens.FieldDescriptor AssetPattern+        assetName__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "asset_name"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"assetName")) ::+              Data.ProtoLens.FieldDescriptor AssetPattern+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, policyId__field_descriptor),+           (Data.ProtoLens.Tag 2, assetName__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _AssetPattern'_unknownFields+        (\ x__ y__ -> x__ {_AssetPattern'_unknownFields = y__})+  defMessage+    = AssetPattern'_constructor+        {_AssetPattern'policyId = Data.ProtoLens.fieldDefault,+         _AssetPattern'assetName = Data.ProtoLens.fieldDefault,+         _AssetPattern'_unknownFields = []}+  parseMessage+    = let+        loop ::+          AssetPattern -> Data.ProtoLens.Encoding.Bytes.Parser AssetPattern+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "policy_id"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"policyId") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "asset_name"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"assetName") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "AssetPattern"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"policyId") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let+                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"assetName") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData AssetPattern where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_AssetPattern'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_AssetPattern'policyId x__)+                (Control.DeepSeq.deepseq (_AssetPattern'assetName x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.metadata' @:: Lens' AuxData [Metadata]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'metadata' @:: Lens' AuxData (Data.Vector.Vector Metadata)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scripts' @:: Lens' AuxData [Script]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'scripts' @:: Lens' AuxData (Data.Vector.Vector Script)@ -}+data AuxData+  = AuxData'_constructor {_AuxData'metadata :: !(Data.Vector.Vector Metadata),+                          _AuxData'scripts :: !(Data.Vector.Vector Script),+                          _AuxData'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show AuxData where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField AuxData "metadata" [Metadata] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AuxData'metadata (\ x__ y__ -> x__ {_AuxData'metadata = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField AuxData "vec'metadata" (Data.Vector.Vector Metadata) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AuxData'metadata (\ x__ y__ -> x__ {_AuxData'metadata = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField AuxData "scripts" [Script] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AuxData'scripts (\ x__ y__ -> x__ {_AuxData'scripts = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField AuxData "vec'scripts" (Data.Vector.Vector Script) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _AuxData'scripts (\ x__ y__ -> x__ {_AuxData'scripts = y__}))+        Prelude.id+instance Data.ProtoLens.Message AuxData where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.AuxData"+  packedMessageDescriptor _+    = "\n\+      \\aAuxData\DC2=\n\+      \\bmetadata\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.cardano.MetadataR\bmetadata\DC29\n\+      \\ascripts\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ascripts"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        metadata__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "metadata"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Metadata)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"metadata")) ::+              Data.ProtoLens.FieldDescriptor AuxData+        scripts__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "scripts"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Script)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"scripts")) ::+              Data.ProtoLens.FieldDescriptor AuxData+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, metadata__field_descriptor),+           (Data.ProtoLens.Tag 2, scripts__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _AuxData'_unknownFields+        (\ x__ y__ -> x__ {_AuxData'_unknownFields = y__})+  defMessage+    = AuxData'_constructor+        {_AuxData'metadata = Data.Vector.Generic.empty,+         _AuxData'scripts = Data.Vector.Generic.empty,+         _AuxData'_unknownFields = []}+  parseMessage+    = let+        loop ::+          AuxData+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadata+             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script+                -> Data.ProtoLens.Encoding.Bytes.Parser AuxData+        loop x mutable'metadata mutable'scripts+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                              mutable'metadata)+                      frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                             mutable'scripts)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'metadata") frozen'metadata+                              (Lens.Family2.set+                                 (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x)))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "metadata"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'metadata y)+                                loop x v mutable'scripts+                        18+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "scripts"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'scripts y)+                                loop x mutable'metadata v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'metadata mutable'scripts+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                    Data.ProtoLens.Encoding.Growing.new+              mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                   Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'metadata mutable'scripts)+          "AuxData"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view+                   (Data.ProtoLens.Field.field @"vec'metadata") _x))+             ((Data.Monoid.<>)+                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                   (\ _v+                      -> (Data.Monoid.<>)+                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                           ((Prelude..)+                              (\ bs+                                 -> (Data.Monoid.<>)+                                      (Data.ProtoLens.Encoding.Bytes.putVarInt+                                         (Prelude.fromIntegral (Data.ByteString.length bs)))+                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                              Data.ProtoLens.encodeMessage _v))+                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'scripts") _x))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData AuxData where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_AuxData'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_AuxData'metadata x__)+                (Control.DeepSeq.deepseq (_AuxData'scripts x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' BigInt (Prelude.Maybe BigInt'BigInt)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'int' @:: Lens' BigInt (Prelude.Maybe Data.Int.Int64)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.int' @:: Lens' BigInt Data.Int.Int64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigUInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigUInt' @:: Lens' BigInt Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigNInt' @:: Lens' BigInt (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigNInt' @:: Lens' BigInt Data.ByteString.ByteString@ -}+data BigInt+  = BigInt'_constructor {_BigInt'bigInt :: !(Prelude.Maybe BigInt'BigInt),+                         _BigInt'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show BigInt where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data BigInt'BigInt+  = BigInt'Int !Data.Int.Int64 |+    BigInt'BigUInt !Data.ByteString.ByteString |+    BigInt'BigNInt !Data.ByteString.ByteString+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField BigInt "maybe'bigInt" (Prelude.Maybe BigInt'BigInt) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField BigInt "maybe'int" (Prelude.Maybe Data.Int.Int64) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap BigInt'Int y__))+instance Data.ProtoLens.Field.HasField BigInt "int" Data.Int.Int64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (BigInt'Int x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap BigInt'Int y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField BigInt "maybe'bigUInt" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__))+instance Data.ProtoLens.Field.HasField BigInt "bigUInt" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (BigInt'BigUInt x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap BigInt'BigUInt y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField BigInt "maybe'bigNInt" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__))+instance Data.ProtoLens.Field.HasField BigInt "bigNInt" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BigInt'bigInt (\ x__ y__ -> x__ {_BigInt'bigInt = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (BigInt'BigNInt x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap BigInt'BigNInt y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Message BigInt where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.BigInt"+  packedMessageDescriptor _+    = "\n\+      \\ACKBigInt\DC2\DC2\n\+      \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\FS\n\+      \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\+      \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\+      \\abig_int"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        int__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "int"+              (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'int")) ::+              Data.ProtoLens.FieldDescriptor BigInt+        bigUInt__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "big_u_int"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'bigUInt")) ::+              Data.ProtoLens.FieldDescriptor BigInt+        bigNInt__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "big_n_int"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'bigNInt")) ::+              Data.ProtoLens.FieldDescriptor BigInt+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, int__field_descriptor),+           (Data.ProtoLens.Tag 2, bigUInt__field_descriptor),+           (Data.ProtoLens.Tag 3, bigNInt__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _BigInt'_unknownFields+        (\ x__ y__ -> x__ {_BigInt'_unknownFields = y__})+  defMessage+    = BigInt'_constructor+        {_BigInt'bigInt = Prelude.Nothing, _BigInt'_unknownFields = []}+  parseMessage+    = let+        loop :: BigInt -> Data.ProtoLens.Encoding.Bytes.Parser BigInt+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "int"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "big_u_int"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigUInt") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "big_n_int"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigNInt") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "BigInt"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'bigInt") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just (BigInt'Int v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                       ((Prelude..)+                          Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v)+                (Prelude.Just (BigInt'BigUInt v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v)+                (Prelude.Just (BigInt'BigNInt v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData BigInt where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_BigInt'_unknownFields x__)+             (Control.DeepSeq.deepseq (_BigInt'bigInt x__) ())+instance Control.DeepSeq.NFData BigInt'BigInt where+  rnf (BigInt'Int x__) = Control.DeepSeq.rnf x__+  rnf (BigInt'BigUInt x__) = Control.DeepSeq.rnf x__+  rnf (BigInt'BigNInt x__) = Control.DeepSeq.rnf x__+_BigInt'Int ::+  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.Int.Int64+_BigInt'Int+  = Data.ProtoLens.Prism.prism'+      BigInt'Int+      (\ p__+         -> case p__ of+              (BigInt'Int p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_BigInt'BigUInt ::+  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString+_BigInt'BigUInt+  = Data.ProtoLens.Prism.prism'+      BigInt'BigUInt+      (\ p__+         -> case p__ of+              (BigInt'BigUInt p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_BigInt'BigNInt ::+  Data.ProtoLens.Prism.Prism' BigInt'BigInt Data.ByteString.ByteString+_BigInt'BigNInt+  = Data.ProtoLens.Prism.prism'+      BigInt'BigNInt+      (\ p__+         -> case p__ of+              (BigInt'BigNInt p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.header' @:: Lens' Block BlockHeader@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'header' @:: Lens' Block (Prelude.Maybe BlockHeader)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.body' @:: Lens' Block BlockBody@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'body' @:: Lens' Block (Prelude.Maybe BlockBody)@ -}+data Block+  = Block'_constructor {_Block'header :: !(Prelude.Maybe BlockHeader),+                        _Block'body :: !(Prelude.Maybe BlockBody),+                        _Block'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Block where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Block "header" BlockHeader where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Block'header (\ x__ y__ -> x__ {_Block'header = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Block "maybe'header" (Prelude.Maybe BlockHeader) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Block'header (\ x__ y__ -> x__ {_Block'header = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Block "body" BlockBody where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Block'body (\ x__ y__ -> x__ {_Block'body = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Block "maybe'body" (Prelude.Maybe BlockBody) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Block'body (\ x__ y__ -> x__ {_Block'body = y__}))+        Prelude.id+instance Data.ProtoLens.Message Block where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Block"+  packedMessageDescriptor _+    = "\n\+      \\ENQBlock\DC2<\n\+      \\ACKheader\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.cardano.BlockHeaderR\ACKheader\DC26\n\+      \\EOTbody\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.BlockBodyR\EOTbody"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        header__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "header"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor BlockHeader)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'header")) ::+              Data.ProtoLens.FieldDescriptor Block+        body__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "body"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor BlockBody)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'body")) ::+              Data.ProtoLens.FieldDescriptor Block+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, header__field_descriptor),+           (Data.ProtoLens.Tag 2, body__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Block'_unknownFields+        (\ x__ y__ -> x__ {_Block'_unknownFields = y__})+  defMessage+    = Block'_constructor+        {_Block'header = Prelude.Nothing, _Block'body = Prelude.Nothing,+         _Block'_unknownFields = []}+  parseMessage+    = let+        loop :: Block -> Data.ProtoLens.Encoding.Bytes.Parser Block+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "header"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "body"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Block"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'header") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'body") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Block where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Block'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Block'header x__) (Control.DeepSeq.deepseq (_Block'body x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.tx' @:: Lens' BlockBody [Tx]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'tx' @:: Lens' BlockBody (Data.Vector.Vector Tx)@ -}+data BlockBody+  = BlockBody'_constructor {_BlockBody'tx :: !(Data.Vector.Vector Tx),+                            _BlockBody'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show BlockBody where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField BlockBody "tx" [Tx] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BlockBody'tx (\ x__ y__ -> x__ {_BlockBody'tx = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField BlockBody "vec'tx" (Data.Vector.Vector Tx) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BlockBody'tx (\ x__ y__ -> x__ {_BlockBody'tx = y__}))+        Prelude.id+instance Data.ProtoLens.Message BlockBody where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.BlockBody"+  packedMessageDescriptor _+    = "\n\+      \\tBlockBody\DC2+\n\+      \\STXtx\CAN\SOH \ETX(\v2\ESC.utxorpc.v1alpha.cardano.TxR\STXtx"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        tx__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "tx"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Tx)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"tx")) ::+              Data.ProtoLens.FieldDescriptor BlockBody+      in Data.Map.fromList [(Data.ProtoLens.Tag 1, tx__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _BlockBody'_unknownFields+        (\ x__ y__ -> x__ {_BlockBody'_unknownFields = y__})+  defMessage+    = BlockBody'_constructor+        {_BlockBody'tx = Data.Vector.Generic.empty,+         _BlockBody'_unknownFields = []}+  parseMessage+    = let+        loop ::+          BlockBody+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Tx+             -> Data.ProtoLens.Encoding.Bytes.Parser BlockBody+        loop x mutable'tx+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                     (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tx)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'tx") frozen'tx x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "tx"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'tx y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'tx+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                              Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'tx)+          "BlockBody"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'tx") _x))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData BlockBody where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_BlockBody'_unknownFields x__)+             (Control.DeepSeq.deepseq (_BlockBody'tx x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.slot' @:: Lens' BlockHeader Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' BlockHeader Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.height' @:: Lens' BlockHeader Data.Word.Word64@ -}+data BlockHeader+  = BlockHeader'_constructor {_BlockHeader'slot :: !Data.Word.Word64,+                              _BlockHeader'hash :: !Data.ByteString.ByteString,+                              _BlockHeader'height :: !Data.Word.Word64,+                              _BlockHeader'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show BlockHeader where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField BlockHeader "slot" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BlockHeader'slot (\ x__ y__ -> x__ {_BlockHeader'slot = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField BlockHeader "hash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BlockHeader'hash (\ x__ y__ -> x__ {_BlockHeader'hash = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField BlockHeader "height" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _BlockHeader'height (\ x__ y__ -> x__ {_BlockHeader'height = y__}))+        Prelude.id+instance Data.ProtoLens.Message BlockHeader where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.BlockHeader"+  packedMessageDescriptor _+    = "\n\+      \\vBlockHeader\DC2\DC2\n\+      \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\+      \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\+      \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        slot__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "slot"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) ::+              Data.ProtoLens.FieldDescriptor BlockHeader+        hash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::+              Data.ProtoLens.FieldDescriptor BlockHeader+        height__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "height"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) ::+              Data.ProtoLens.FieldDescriptor BlockHeader+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, slot__field_descriptor),+           (Data.ProtoLens.Tag 2, hash__field_descriptor),+           (Data.ProtoLens.Tag 3, height__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _BlockHeader'_unknownFields+        (\ x__ y__ -> x__ {_BlockHeader'_unknownFields = y__})+  defMessage+    = BlockHeader'_constructor+        {_BlockHeader'slot = Data.ProtoLens.fieldDefault,+         _BlockHeader'hash = Data.ProtoLens.fieldDefault,+         _BlockHeader'height = Data.ProtoLens.fieldDefault,+         _BlockHeader'_unknownFields = []}+  parseMessage+    = let+        loop ::+          BlockHeader -> Data.ProtoLens.Encoding.Bytes.Parser BlockHeader+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "slot"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "hash"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)+                        24+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "height"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "BlockHeader"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+             ((Data.Monoid.<>)+                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                ((Data.Monoid.<>)+                   (let+                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"height") _x+                    in+                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                          Data.Monoid.mempty+                      else+                          (Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData BlockHeader where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_BlockHeader'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_BlockHeader'slot x__)+                (Control.DeepSeq.deepseq+                   (_BlockHeader'hash x__)+                   (Control.DeepSeq.deepseq (_BlockHeader'height x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' Certificate Redeemer@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Certificate (Prelude.Maybe Redeemer)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'certificate' @:: Lens' Certificate (Prelude.Maybe Certificate'Certificate)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeRegistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeRegistration' @:: Lens' Certificate StakeCredential@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeDeregistration' @:: Lens' Certificate (Prelude.Maybe StakeCredential)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeDeregistration' @:: Lens' Certificate StakeCredential@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeDelegation' @:: Lens' Certificate (Prelude.Maybe StakeDelegationCert)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeDelegation' @:: Lens' Certificate StakeDelegationCert@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolRegistration' @:: Lens' Certificate (Prelude.Maybe PoolRegistrationCert)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRegistration' @:: Lens' Certificate PoolRegistrationCert@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolRetirement' @:: Lens' Certificate (Prelude.Maybe PoolRetirementCert)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRetirement' @:: Lens' Certificate PoolRetirementCert@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'genesisKeyDelegation' @:: Lens' Certificate (Prelude.Maybe GenesisKeyDelegationCert)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.genesisKeyDelegation' @:: Lens' Certificate GenesisKeyDelegationCert@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mirCert' @:: Lens' Certificate (Prelude.Maybe MirCert)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mirCert' @:: Lens' Certificate MirCert@ -}+data Certificate+  = Certificate'_constructor {_Certificate'redeemer :: !(Prelude.Maybe Redeemer),+                              _Certificate'certificate :: !(Prelude.Maybe Certificate'Certificate),+                              _Certificate'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Certificate where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data Certificate'Certificate+  = Certificate'StakeRegistration !StakeCredential |+    Certificate'StakeDeregistration !StakeCredential |+    Certificate'StakeDelegation !StakeDelegationCert |+    Certificate'PoolRegistration !PoolRegistrationCert |+    Certificate'PoolRetirement !PoolRetirementCert |+    Certificate'GenesisKeyDelegation !GenesisKeyDelegationCert |+    Certificate'MirCert !MirCert+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField Certificate "redeemer" Redeemer where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'redeemer+           (\ x__ y__ -> x__ {_Certificate'redeemer = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Certificate "maybe'redeemer" (Prelude.Maybe Redeemer) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'redeemer+           (\ x__ y__ -> x__ {_Certificate'redeemer = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Certificate "maybe'certificate" (Prelude.Maybe Certificate'Certificate) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeRegistration" (Prelude.Maybe StakeCredential) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Certificate'StakeRegistration x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Certificate'StakeRegistration y__))+instance Data.ProtoLens.Field.HasField Certificate "stakeRegistration" StakeCredential where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Certificate'StakeRegistration x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Certificate'StakeRegistration y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDeregistration" (Prelude.Maybe StakeCredential) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Certificate'StakeDeregistration x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Certificate'StakeDeregistration y__))+instance Data.ProtoLens.Field.HasField Certificate "stakeDeregistration" StakeCredential where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Certificate'StakeDeregistration x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Certificate'StakeDeregistration y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Certificate "maybe'stakeDelegation" (Prelude.Maybe StakeDelegationCert) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Certificate'StakeDelegation x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Certificate'StakeDelegation y__))+instance Data.ProtoLens.Field.HasField Certificate "stakeDelegation" StakeDelegationCert where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Certificate'StakeDelegation x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Certificate'StakeDelegation y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRegistration" (Prelude.Maybe PoolRegistrationCert) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Certificate'PoolRegistration x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Certificate'PoolRegistration y__))+instance Data.ProtoLens.Field.HasField Certificate "poolRegistration" PoolRegistrationCert where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Certificate'PoolRegistration x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Certificate'PoolRegistration y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Certificate "maybe'poolRetirement" (Prelude.Maybe PoolRetirementCert) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Certificate'PoolRetirement x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Certificate'PoolRetirement y__))+instance Data.ProtoLens.Field.HasField Certificate "poolRetirement" PoolRetirementCert where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Certificate'PoolRetirement x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Certificate'PoolRetirement y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Certificate "maybe'genesisKeyDelegation" (Prelude.Maybe GenesisKeyDelegationCert) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Certificate'GenesisKeyDelegation x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Certificate'GenesisKeyDelegation y__))+instance Data.ProtoLens.Field.HasField Certificate "genesisKeyDelegation" GenesisKeyDelegationCert where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Certificate'GenesisKeyDelegation x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Certificate'GenesisKeyDelegation y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Certificate "maybe'mirCert" (Prelude.Maybe MirCert) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Certificate'MirCert x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Certificate'MirCert y__))+instance Data.ProtoLens.Field.HasField Certificate "mirCert" MirCert where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Certificate'certificate+           (\ x__ y__ -> x__ {_Certificate'certificate = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Certificate'MirCert x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Certificate'MirCert y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Message Certificate where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.Certificate"+  packedMessageDescriptor _+    = "\n\+      \\vCertificate\DC2Y\n\+      \\DC2stake_registration\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2]\n\+      \\DC4stake_deregistration\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2Y\n\+      \\DLEstake_delegation\CAN\ETX \SOH(\v2,.utxorpc.v1alpha.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2\\\n\+      \\DC1pool_registration\CAN\EOT \SOH(\v2-.utxorpc.v1alpha.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2V\n\+      \\SIpool_retirement\CAN\ENQ \SOH(\v2+.utxorpc.v1alpha.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2i\n\+      \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v21.utxorpc.v1alpha.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2=\n\+      \\bmir_cert\CAN\a \SOH(\v2 .utxorpc.v1alpha.cardano.MirCertH\NULR\amirCert\DC2=\n\+      \\bredeemer\CANd \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemerB\r\n\+      \\vcertificate"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        redeemer__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "redeemer"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Redeemer)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::+              Data.ProtoLens.FieldDescriptor Certificate+        stakeRegistration__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "stake_registration"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'stakeRegistration")) ::+              Data.ProtoLens.FieldDescriptor Certificate+        stakeDeregistration__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "stake_deregistration"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'stakeDeregistration")) ::+              Data.ProtoLens.FieldDescriptor Certificate+        stakeDelegation__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "stake_delegation"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor StakeDelegationCert)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'stakeDelegation")) ::+              Data.ProtoLens.FieldDescriptor Certificate+        poolRegistration__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pool_registration"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PoolRegistrationCert)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'poolRegistration")) ::+              Data.ProtoLens.FieldDescriptor Certificate+        poolRetirement__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pool_retirement"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PoolRetirementCert)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'poolRetirement")) ::+              Data.ProtoLens.FieldDescriptor Certificate+        genesisKeyDelegation__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "genesis_key_delegation"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor GenesisKeyDelegationCert)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'genesisKeyDelegation")) ::+              Data.ProtoLens.FieldDescriptor Certificate+        mirCert__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "mir_cert"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor MirCert)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'mirCert")) ::+              Data.ProtoLens.FieldDescriptor Certificate+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 100, redeemer__field_descriptor),+           (Data.ProtoLens.Tag 1, stakeRegistration__field_descriptor),+           (Data.ProtoLens.Tag 2, stakeDeregistration__field_descriptor),+           (Data.ProtoLens.Tag 3, stakeDelegation__field_descriptor),+           (Data.ProtoLens.Tag 4, poolRegistration__field_descriptor),+           (Data.ProtoLens.Tag 5, poolRetirement__field_descriptor),+           (Data.ProtoLens.Tag 6, genesisKeyDelegation__field_descriptor),+           (Data.ProtoLens.Tag 7, mirCert__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Certificate'_unknownFields+        (\ x__ y__ -> x__ {_Certificate'_unknownFields = y__})+  defMessage+    = Certificate'_constructor+        {_Certificate'redeemer = Prelude.Nothing,+         _Certificate'certificate = Prelude.Nothing,+         _Certificate'_unknownFields = []}+  parseMessage+    = let+        loop ::+          Certificate -> Data.ProtoLens.Encoding.Bytes.Parser Certificate+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        802+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "redeemer"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "stake_registration"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"stakeRegistration") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "stake_deregistration"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"stakeDeregistration") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "stake_delegation"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"stakeDelegation") y x)+                        34+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "pool_registration"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"poolRegistration") y x)+                        42+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "pool_retirement"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"poolRetirement") y x)+                        50+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "genesis_key_delegation"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"genesisKeyDelegation") y x)+                        58+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "mir_cert"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"mirCert") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Certificate"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 802)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view+                       (Data.ProtoLens.Field.field @"maybe'certificate") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just (Certificate'StakeRegistration v))+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage v)+                   (Prelude.Just (Certificate'StakeDeregistration v))+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage v)+                   (Prelude.Just (Certificate'StakeDelegation v))+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage v)+                   (Prelude.Just (Certificate'PoolRegistration v))+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage v)+                   (Prelude.Just (Certificate'PoolRetirement v))+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage v)+                   (Prelude.Just (Certificate'GenesisKeyDelegation v))+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage v)+                   (Prelude.Just (Certificate'MirCert v))+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 58)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Certificate where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Certificate'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Certificate'redeemer x__)+                (Control.DeepSeq.deepseq (_Certificate'certificate x__) ()))+instance Control.DeepSeq.NFData Certificate'Certificate where+  rnf (Certificate'StakeRegistration x__) = Control.DeepSeq.rnf x__+  rnf (Certificate'StakeDeregistration x__) = Control.DeepSeq.rnf x__+  rnf (Certificate'StakeDelegation x__) = Control.DeepSeq.rnf x__+  rnf (Certificate'PoolRegistration x__) = Control.DeepSeq.rnf x__+  rnf (Certificate'PoolRetirement x__) = Control.DeepSeq.rnf x__+  rnf (Certificate'GenesisKeyDelegation x__)+    = Control.DeepSeq.rnf x__+  rnf (Certificate'MirCert x__) = Control.DeepSeq.rnf x__+_Certificate'StakeRegistration ::+  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential+_Certificate'StakeRegistration+  = Data.ProtoLens.Prism.prism'+      Certificate'StakeRegistration+      (\ p__+         -> case p__ of+              (Certificate'StakeRegistration p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Certificate'StakeDeregistration ::+  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeCredential+_Certificate'StakeDeregistration+  = Data.ProtoLens.Prism.prism'+      Certificate'StakeDeregistration+      (\ p__+         -> case p__ of+              (Certificate'StakeDeregistration p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Certificate'StakeDelegation ::+  Data.ProtoLens.Prism.Prism' Certificate'Certificate StakeDelegationCert+_Certificate'StakeDelegation+  = Data.ProtoLens.Prism.prism'+      Certificate'StakeDelegation+      (\ p__+         -> case p__ of+              (Certificate'StakeDelegation p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Certificate'PoolRegistration ::+  Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRegistrationCert+_Certificate'PoolRegistration+  = Data.ProtoLens.Prism.prism'+      Certificate'PoolRegistration+      (\ p__+         -> case p__ of+              (Certificate'PoolRegistration p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Certificate'PoolRetirement ::+  Data.ProtoLens.Prism.Prism' Certificate'Certificate PoolRetirementCert+_Certificate'PoolRetirement+  = Data.ProtoLens.Prism.prism'+      Certificate'PoolRetirement+      (\ p__+         -> case p__ of+              (Certificate'PoolRetirement p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Certificate'GenesisKeyDelegation ::+  Data.ProtoLens.Prism.Prism' Certificate'Certificate GenesisKeyDelegationCert+_Certificate'GenesisKeyDelegation+  = Data.ProtoLens.Prism.prism'+      Certificate'GenesisKeyDelegation+      (\ p__+         -> case p__ of+              (Certificate'GenesisKeyDelegation p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Certificate'MirCert ::+  Data.ProtoLens.Prism.Prism' Certificate'Certificate MirCert+_Certificate'MirCert+  = Data.ProtoLens.Prism.prism'+      Certificate'MirCert+      (\ p__+         -> case p__ of+              (Certificate'MirCert p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateral' @:: Lens' Collateral [TxInput]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'collateral' @:: Lens' Collateral (Data.Vector.Vector TxInput)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateralReturn' @:: Lens' Collateral TxOutput@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'collateralReturn' @:: Lens' Collateral (Prelude.Maybe TxOutput)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.totalCollateral' @:: Lens' Collateral Data.Word.Word64@ -}+data Collateral+  = Collateral'_constructor {_Collateral'collateral :: !(Data.Vector.Vector TxInput),+                             _Collateral'collateralReturn :: !(Prelude.Maybe TxOutput),+                             _Collateral'totalCollateral :: !Data.Word.Word64,+                             _Collateral'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Collateral where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Collateral "collateral" [TxInput] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Collateral'collateral+           (\ x__ y__ -> x__ {_Collateral'collateral = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Collateral "vec'collateral" (Data.Vector.Vector TxInput) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Collateral'collateral+           (\ x__ y__ -> x__ {_Collateral'collateral = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Collateral "collateralReturn" TxOutput where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Collateral'collateralReturn+           (\ x__ y__ -> x__ {_Collateral'collateralReturn = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Collateral "maybe'collateralReturn" (Prelude.Maybe TxOutput) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Collateral'collateralReturn+           (\ x__ y__ -> x__ {_Collateral'collateralReturn = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Collateral "totalCollateral" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Collateral'totalCollateral+           (\ x__ y__ -> x__ {_Collateral'totalCollateral = y__}))+        Prelude.id+instance Data.ProtoLens.Message Collateral where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Collateral"+  packedMessageDescriptor _+    = "\n\+      \\n\+      \Collateral\DC2@\n\+      \\n\+      \collateral\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\n\+      \collateral\DC2N\n\+      \\DC1collateral_return\CAN\STX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\DLEcollateralReturn\DC2)\n\+      \\DLEtotal_collateral\CAN\ETX \SOH(\EOTR\SItotalCollateral"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        collateral__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "collateral"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxInput)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"collateral")) ::+              Data.ProtoLens.FieldDescriptor Collateral+        collateralReturn__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "collateral_return"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxOutput)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'collateralReturn")) ::+              Data.ProtoLens.FieldDescriptor Collateral+        totalCollateral__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "total_collateral"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"totalCollateral")) ::+              Data.ProtoLens.FieldDescriptor Collateral+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, collateral__field_descriptor),+           (Data.ProtoLens.Tag 2, collateralReturn__field_descriptor),+           (Data.ProtoLens.Tag 3, totalCollateral__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Collateral'_unknownFields+        (\ x__ y__ -> x__ {_Collateral'_unknownFields = y__})+  defMessage+    = Collateral'_constructor+        {_Collateral'collateral = Data.Vector.Generic.empty,+         _Collateral'collateralReturn = Prelude.Nothing,+         _Collateral'totalCollateral = Data.ProtoLens.fieldDefault,+         _Collateral'_unknownFields = []}+  parseMessage+    = let+        loop ::+          Collateral+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput+             -> Data.ProtoLens.Encoding.Bytes.Parser Collateral+        loop x mutable'collateral+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'collateral <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                                mutable'collateral)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'collateral") frozen'collateral+                              x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "collateral"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'collateral y)+                                loop x v+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "collateral_return"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"collateralReturn") y x)+                                  mutable'collateral+                        24+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "total_collateral"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"totalCollateral") y x)+                                  mutable'collateral+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'collateral+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'collateral <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                      Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'collateral)+          "Collateral"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view+                   (Data.ProtoLens.Field.field @"vec'collateral") _x))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view+                       (Data.ProtoLens.Field.field @"maybe'collateralReturn") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                ((Data.Monoid.<>)+                   (let+                      _v+                        = Lens.Family2.view+                            (Data.ProtoLens.Field.field @"totalCollateral") _x+                    in+                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                          Data.Monoid.mempty+                      else+                          (Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData Collateral where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Collateral'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Collateral'collateral x__)+                (Control.DeepSeq.deepseq+                   (_Collateral'collateralReturn x__)+                   (Control.DeepSeq.deepseq (_Collateral'totalCollateral x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.tag' @:: Lens' Constr Data.Word.Word32@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.anyConstructor' @:: Lens' Constr Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fields' @:: Lens' Constr [PlutusData]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'fields' @:: Lens' Constr (Data.Vector.Vector PlutusData)@ -}+data Constr+  = Constr'_constructor {_Constr'tag :: !Data.Word.Word32,+                         _Constr'anyConstructor :: !Data.Word.Word64,+                         _Constr'fields :: !(Data.Vector.Vector PlutusData),+                         _Constr'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Constr where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Constr "tag" Data.Word.Word32 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Constr'tag (\ x__ y__ -> x__ {_Constr'tag = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Constr "anyConstructor" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Constr'anyConstructor+           (\ x__ y__ -> x__ {_Constr'anyConstructor = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Constr "fields" [PlutusData] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Constr "vec'fields" (Data.Vector.Vector PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Constr'fields (\ x__ y__ -> x__ {_Constr'fields = y__}))+        Prelude.id+instance Data.ProtoLens.Message Constr where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Constr"+  packedMessageDescriptor _+    = "\n\+      \\ACKConstr\DC2\DLE\n\+      \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\+      \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2;\n\+      \\ACKfields\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ACKfields"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        tag__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "tag"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"tag")) ::+              Data.ProtoLens.FieldDescriptor Constr+        anyConstructor__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "any_constructor"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"anyConstructor")) ::+              Data.ProtoLens.FieldDescriptor Constr+        fields__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "fields"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusData)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"fields")) ::+              Data.ProtoLens.FieldDescriptor Constr+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, tag__field_descriptor),+           (Data.ProtoLens.Tag 2, anyConstructor__field_descriptor),+           (Data.ProtoLens.Tag 3, fields__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Constr'_unknownFields+        (\ x__ y__ -> x__ {_Constr'_unknownFields = y__})+  defMessage+    = Constr'_constructor+        {_Constr'tag = Data.ProtoLens.fieldDefault,+         _Constr'anyConstructor = Data.ProtoLens.fieldDefault,+         _Constr'fields = Data.Vector.Generic.empty,+         _Constr'_unknownFields = []}+  parseMessage+    = let+        loop ::+          Constr+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData+             -> Data.ProtoLens.Encoding.Bytes.Parser Constr+        loop x mutable'fields+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                            mutable'fields)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'fields") frozen'fields x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "tag"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"tag") y x)+                                  mutable'fields+                        16+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "any_constructor"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"anyConstructor") y x)+                                  mutable'fields+                        26+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "fields"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'fields y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'fields+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'fields <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                  Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'fields)+          "Constr"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"tag") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      ((Prelude..)+                         Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+             ((Data.Monoid.<>)+                (let+                   _v+                     = Lens.Family2.view+                         (Data.ProtoLens.Field.field @"anyConstructor") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+                ((Data.Monoid.<>)+                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                      (\ _v+                         -> (Data.Monoid.<>)+                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                              ((Prelude..)+                                 (\ bs+                                    -> (Data.Monoid.<>)+                                         (Data.ProtoLens.Encoding.Bytes.putVarInt+                                            (Prelude.fromIntegral (Data.ByteString.length bs)))+                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                 Data.ProtoLens.encodeMessage _v))+                      (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'fields") _x))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData Constr where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Constr'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Constr'tag x__)+                (Control.DeepSeq.deepseq+                   (_Constr'anyConstructor x__)+                   (Control.DeepSeq.deepseq (_Constr'fields x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.values' @:: Lens' CostModel [Data.Int.Int64]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'values' @:: Lens' CostModel (Data.Vector.Unboxed.Vector Data.Int.Int64)@ -}+data CostModel+  = CostModel'_constructor {_CostModel'values :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),+                            _CostModel'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show CostModel where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField CostModel "values" [Data.Int.Int64] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _CostModel'values (\ x__ y__ -> x__ {_CostModel'values = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField CostModel "vec'values" (Data.Vector.Unboxed.Vector Data.Int.Int64) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _CostModel'values (\ x__ y__ -> x__ {_CostModel'values = y__}))+        Prelude.id+instance Data.ProtoLens.Message CostModel where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.CostModel"+  packedMessageDescriptor _+    = "\n\+      \\tCostModel\DC2\SYN\n\+      \\ACKvalues\CAN\SOH \ETX(\ETXR\ACKvalues"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        values__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "values"+              (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"values")) ::+              Data.ProtoLens.FieldDescriptor CostModel+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, values__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _CostModel'_unknownFields+        (\ x__ y__ -> x__ {_CostModel'_unknownFields = y__})+  defMessage+    = CostModel'_constructor+        {_CostModel'values = Data.Vector.Generic.empty,+         _CostModel'_unknownFields = []}+  parseMessage+    = let+        loop ::+          CostModel+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64+             -> Data.ProtoLens.Encoding.Bytes.Parser CostModel+        loop x mutable'values+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                            mutable'values)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'values") frozen'values x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (Prelude.fmap+                                           Prelude.fromIntegral+                                           Data.ProtoLens.Encoding.Bytes.getVarInt)+                                        "values"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'values y)+                                loop x v+                        10+                          -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                        Data.ProtoLens.Encoding.Bytes.isolate+                                          (Prelude.fromIntegral len)+                                          ((let+                                              ploop qs+                                                = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd+                                                     if packedEnd then+                                                         Prelude.return qs+                                                     else+                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                                                    (Prelude.fmap+                                                                       Prelude.fromIntegral+                                                                       Data.ProtoLens.Encoding.Bytes.getVarInt)+                                                                    "values"+                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                                                     (Data.ProtoLens.Encoding.Growing.append+                                                                        qs q)+                                                            ploop qs'+                                            in ploop)+                                             mutable'values)+                                loop x y+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'values+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'values <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                  Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'values)+          "CostModel"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'values") _x+              in+                if Data.Vector.Generic.null p then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         (Data.ProtoLens.Encoding.Bytes.runBuilder+                            (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                               ((Prelude..)+                                  Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)+                               p))))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData CostModel where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_CostModel'_unknownFields x__)+             (Control.DeepSeq.deepseq (_CostModel'values x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' CostModels CostModel@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' CostModels (Prelude.Maybe CostModel)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' CostModels CostModel@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' CostModels (Prelude.Maybe CostModel)@ -}+data CostModels+  = CostModels'_constructor {_CostModels'plutusV1 :: !(Prelude.Maybe CostModel),+                             _CostModels'plutusV2 :: !(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.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"+  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+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, plutusV1__field_descriptor),+           (Data.ProtoLens.Tag 2, plutusV2__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'_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)+                        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.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__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' Datum Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.payload' @:: Lens' Datum PlutusData@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'payload' @:: Lens' Datum (Prelude.Maybe PlutusData)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.originalCbor' @:: Lens' Datum Data.ByteString.ByteString@ -}+data Datum+  = Datum'_constructor {_Datum'hash :: !Data.ByteString.ByteString,+                        _Datum'payload :: !(Prelude.Maybe PlutusData),+                        _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 "payload" PlutusData where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Datum'payload (\ x__ y__ -> x__ {_Datum'payload = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Datum "maybe'payload" (Prelude.Maybe PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Datum'payload (\ x__ y__ -> x__ {_Datum'payload = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Datum "originalCbor" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Datum'originalCbor (\ x__ y__ -> x__ {_Datum'originalCbor = y__}))+        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\+      \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\apayload\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+        payload__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "payload"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusData)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'payload")) ::+              Data.ProtoLens.FieldDescriptor Datum+        originalCbor__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "original_cbor"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.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 2, payload__field_descriptor),+           (Data.ProtoLens.Tag 3, originalCbor__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Datum'_unknownFields+        (\ x__ y__ -> x__ {_Datum'_unknownFields = y__})+  defMessage+    = Datum'_constructor+        {_Datum'hash = Data.ProtoLens.fieldDefault,+         _Datum'payload = Prelude.Nothing,+         _Datum'originalCbor = 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)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "payload"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "original_cbor"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"originalCbor") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Datum"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                ((Data.Monoid.<>)+                   (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'payload x__)+                   (Control.DeepSeq.deepseq (_Datum'originalCbor x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.msg' @:: Lens' EvalError Data.Text.Text@ -}+data EvalError+  = EvalError'_constructor {_EvalError'msg :: !Data.Text.Text,+                            _EvalError'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show EvalError where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField EvalError "msg" Data.Text.Text where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _EvalError'msg (\ x__ y__ -> x__ {_EvalError'msg = y__}))+        Prelude.id+instance Data.ProtoLens.Message EvalError where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.EvalError"+  packedMessageDescriptor _+    = "\n\+      \\tEvalError\DC2\DLE\n\+      \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        msg__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "msg"+              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) ::+              Data.ProtoLens.FieldDescriptor EvalError+      in+        Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _EvalError'_unknownFields+        (\ x__ y__ -> x__ {_EvalError'_unknownFields = y__})+  defMessage+    = EvalError'_constructor+        {_EvalError'msg = Data.ProtoLens.fieldDefault,+         _EvalError'_unknownFields = []}+  parseMessage+    = let+        loop :: EvalError -> Data.ProtoLens.Encoding.Bytes.Parser EvalError+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getText+                                             (Prelude.fromIntegral len))+                                       "msg"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "EvalError"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((Prelude..)+                         (\ bs+                            -> (Data.Monoid.<>)+                                 (Data.ProtoLens.Encoding.Bytes.putVarInt+                                    (Prelude.fromIntegral (Data.ByteString.length bs)))+                                 (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         Data.Text.Encoding.encodeUtf8 _v))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData EvalError where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_EvalError'_unknownFields x__)+             (Control.DeepSeq.deepseq (_EvalError'msg x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.msg' @:: Lens' EvalTrace Data.Text.Text@ -}+data EvalTrace+  = EvalTrace'_constructor {_EvalTrace'msg :: !Data.Text.Text,+                            _EvalTrace'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show EvalTrace where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField EvalTrace "msg" Data.Text.Text where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _EvalTrace'msg (\ x__ y__ -> x__ {_EvalTrace'msg = y__}))+        Prelude.id+instance Data.ProtoLens.Message EvalTrace where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.EvalTrace"+  packedMessageDescriptor _+    = "\n\+      \\tEvalTrace\DC2\DLE\n\+      \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        msg__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "msg"+              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"msg")) ::+              Data.ProtoLens.FieldDescriptor EvalTrace+      in+        Data.Map.fromList [(Data.ProtoLens.Tag 1, msg__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _EvalTrace'_unknownFields+        (\ x__ y__ -> x__ {_EvalTrace'_unknownFields = y__})+  defMessage+    = EvalTrace'_constructor+        {_EvalTrace'msg = Data.ProtoLens.fieldDefault,+         _EvalTrace'_unknownFields = []}+  parseMessage+    = let+        loop :: EvalTrace -> Data.ProtoLens.Encoding.Bytes.Parser EvalTrace+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getText+                                             (Prelude.fromIntegral len))+                                       "msg"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"msg") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "EvalTrace"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"msg") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((Prelude..)+                         (\ bs+                            -> (Data.Monoid.<>)+                                 (Data.ProtoLens.Encoding.Bytes.putVarInt+                                    (Prelude.fromIntegral (Data.ByteString.length bs)))+                                 (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         Data.Text.Encoding.encodeUtf8 _v))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData EvalTrace where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_EvalTrace'_unknownFields x__)+             (Control.DeepSeq.deepseq (_EvalTrace'msg x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.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.genesisHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.genesisDelegateHash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' GenesisKeyDelegationCert Data.ByteString.ByteString@ -}+data GenesisKeyDelegationCert+  = GenesisKeyDelegationCert'_constructor {_GenesisKeyDelegationCert'genesisHash :: !Data.ByteString.ByteString,+                                           _GenesisKeyDelegationCert'genesisDelegateHash :: !Data.ByteString.ByteString,+                                           _GenesisKeyDelegationCert'vrfKeyhash :: !Data.ByteString.ByteString,+                                           _GenesisKeyDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show GenesisKeyDelegationCert where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisHash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _GenesisKeyDelegationCert'genesisHash+           (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'genesisHash = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "genesisDelegateHash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _GenesisKeyDelegationCert'genesisDelegateHash+           (\ x__ y__+              -> x__ {_GenesisKeyDelegationCert'genesisDelegateHash = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField GenesisKeyDelegationCert "vrfKeyhash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _GenesisKeyDelegationCert'vrfKeyhash+           (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'vrfKeyhash = y__}))+        Prelude.id+instance Data.ProtoLens.Message GenesisKeyDelegationCert where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.GenesisKeyDelegationCert"+  packedMessageDescriptor _+    = "\n\+      \\CANGenesisKeyDelegationCert\DC2!\n\+      \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\+      \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\+      \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\+      \vrfKeyhash"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        genesisHash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "genesis_hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"genesisHash")) ::+              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert+        genesisDelegateHash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "genesis_delegate_hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"genesisDelegateHash")) ::+              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert+        vrfKeyhash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "vrf_keyhash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"vrfKeyhash")) ::+              Data.ProtoLens.FieldDescriptor GenesisKeyDelegationCert+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, genesisHash__field_descriptor),+           (Data.ProtoLens.Tag 2, genesisDelegateHash__field_descriptor),+           (Data.ProtoLens.Tag 3, vrfKeyhash__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _GenesisKeyDelegationCert'_unknownFields+        (\ x__ y__ -> x__ {_GenesisKeyDelegationCert'_unknownFields = y__})+  defMessage+    = GenesisKeyDelegationCert'_constructor+        {_GenesisKeyDelegationCert'genesisHash = Data.ProtoLens.fieldDefault,+         _GenesisKeyDelegationCert'genesisDelegateHash = Data.ProtoLens.fieldDefault,+         _GenesisKeyDelegationCert'vrfKeyhash = Data.ProtoLens.fieldDefault,+         _GenesisKeyDelegationCert'_unknownFields = []}+  parseMessage+    = let+        loop ::+          GenesisKeyDelegationCert+          -> Data.ProtoLens.Encoding.Bytes.Parser GenesisKeyDelegationCert+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "genesis_hash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"genesisHash") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "genesis_delegate_hash"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"genesisDelegateHash") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "vrf_keyhash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"vrfKeyhash") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "GenesisKeyDelegationCert"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v+                  = Lens.Family2.view (Data.ProtoLens.Field.field @"genesisHash") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let+                   _v+                     = Lens.Family2.view+                         (Data.ProtoLens.Field.field @"genesisDelegateHash") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                ((Data.Monoid.<>)+                   (let+                      _v+                        = Lens.Family2.view (Data.ProtoLens.Field.field @"vrfKeyhash") _x+                    in+                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                          Data.Monoid.mempty+                      else+                          (Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                            ((\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                               _v))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData GenesisKeyDelegationCert where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_GenesisKeyDelegationCert'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_GenesisKeyDelegationCert'genesisHash x__)+                (Control.DeepSeq.deepseq+                   (_GenesisKeyDelegationCert'genesisDelegateHash x__)+                   (Control.DeepSeq.deepseq+                      (_GenesisKeyDelegationCert'vrfKeyhash x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.label' @:: Lens' Metadata Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' Metadata Metadatum@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' Metadata (Prelude.Maybe Metadatum)@ -}+data Metadata+  = Metadata'_constructor {_Metadata'label :: !Data.Word.Word64,+                           _Metadata'value :: !(Prelude.Maybe Metadatum),+                           _Metadata'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Metadata where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Metadata "label" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadata'label (\ x__ y__ -> x__ {_Metadata'label = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Metadata "value" Metadatum where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadata'value (\ x__ y__ -> x__ {_Metadata'value = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Metadata "maybe'value" (Prelude.Maybe Metadatum) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadata'value (\ x__ y__ -> x__ {_Metadata'value = y__}))+        Prelude.id+instance Data.ProtoLens.Message Metadata where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Metadata"+  packedMessageDescriptor _+    = "\n\+      \\bMetadata\DC2\DC4\n\+      \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC28\n\+      \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        label__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "label"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"label")) ::+              Data.ProtoLens.FieldDescriptor Metadata+        value__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "value"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Metadatum)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'value")) ::+              Data.ProtoLens.FieldDescriptor Metadata+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, label__field_descriptor),+           (Data.ProtoLens.Tag 2, value__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Metadata'_unknownFields+        (\ x__ y__ -> x__ {_Metadata'_unknownFields = y__})+  defMessage+    = Metadata'_constructor+        {_Metadata'label = Data.ProtoLens.fieldDefault,+         _Metadata'value = Prelude.Nothing, _Metadata'_unknownFields = []}+  parseMessage+    = let+        loop :: Metadata -> Data.ProtoLens.Encoding.Bytes.Parser Metadata+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "label"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "value"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Metadata"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"label") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Metadata where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Metadata'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Metadata'label x__)+                (Control.DeepSeq.deepseq (_Metadata'value x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'metadatum' @:: Lens' Metadatum (Prelude.Maybe Metadatum'Metadatum)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'int' @:: Lens' Metadatum (Prelude.Maybe Data.Int.Int64)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.int' @:: Lens' Metadatum Data.Int.Int64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bytes' @:: Lens' Metadatum (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bytes' @:: Lens' Metadatum Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'text' @:: Lens' Metadatum (Prelude.Maybe Data.Text.Text)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.text' @:: Lens' Metadatum Data.Text.Text@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'array' @:: Lens' Metadatum (Prelude.Maybe MetadatumArray)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.array' @:: Lens' Metadatum MetadatumArray@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'map' @:: Lens' Metadatum (Prelude.Maybe MetadatumMap)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.map' @:: Lens' Metadatum MetadatumMap@ -}+data Metadatum+  = Metadatum'_constructor {_Metadatum'metadatum :: !(Prelude.Maybe Metadatum'Metadatum),+                            _Metadatum'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Metadatum where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data Metadatum'Metadatum+  = Metadatum'Int !Data.Int.Int64 |+    Metadatum'Bytes !Data.ByteString.ByteString |+    Metadatum'Text !Data.Text.Text |+    Metadatum'Array !MetadatumArray |+    Metadatum'Map !MetadatumMap+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField Metadatum "maybe'metadatum" (Prelude.Maybe Metadatum'Metadatum) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Metadatum "maybe'int" (Prelude.Maybe Data.Int.Int64) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Metadatum'Int x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Metadatum'Int y__))+instance Data.ProtoLens.Field.HasField Metadatum "int" Data.Int.Int64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Metadatum'Int x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Metadatum'Int y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField Metadatum "maybe'bytes" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Metadatum'Bytes x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Metadatum'Bytes y__))+instance Data.ProtoLens.Field.HasField Metadatum "bytes" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Metadatum'Bytes x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Metadatum'Bytes y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField Metadatum "maybe'text" (Prelude.Maybe Data.Text.Text) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Metadatum'Text x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Metadatum'Text y__))+instance Data.ProtoLens.Field.HasField Metadatum "text" Data.Text.Text where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Metadatum'Text x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Metadatum'Text y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField Metadatum "maybe'array" (Prelude.Maybe MetadatumArray) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Metadatum'Array x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Metadatum'Array y__))+instance Data.ProtoLens.Field.HasField Metadatum "array" MetadatumArray where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Metadatum'Array x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Metadatum'Array y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Metadatum "maybe'map" (Prelude.Maybe MetadatumMap) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Metadatum'Map x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Metadatum'Map y__))+instance Data.ProtoLens.Field.HasField Metadatum "map" MetadatumMap where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Metadatum'metadatum+           (\ x__ y__ -> x__ {_Metadatum'metadatum = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Metadatum'Map x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Metadatum'Map y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Message Metadatum where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Metadatum"+  packedMessageDescriptor _+    = "\n\+      \\tMetadatum\DC2\DC2\n\+      \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\+      \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\+      \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2?\n\+      \\ENQarray\CAN\EOT \SOH(\v2'.utxorpc.v1alpha.cardano.MetadatumArrayH\NULR\ENQarray\DC29\n\+      \\ETXmap\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.MetadatumMapH\NULR\ETXmapB\v\n\+      \\tmetadatum"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        int__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "int"+              (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'int")) ::+              Data.ProtoLens.FieldDescriptor Metadatum+        bytes__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "bytes"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'bytes")) ::+              Data.ProtoLens.FieldDescriptor Metadatum+        text__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "text"+              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'text")) ::+              Data.ProtoLens.FieldDescriptor Metadatum+        array__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "array"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor MetadatumArray)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'array")) ::+              Data.ProtoLens.FieldDescriptor Metadatum+        map__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "map"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor MetadatumMap)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'map")) ::+              Data.ProtoLens.FieldDescriptor Metadatum+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, int__field_descriptor),+           (Data.ProtoLens.Tag 2, bytes__field_descriptor),+           (Data.ProtoLens.Tag 3, text__field_descriptor),+           (Data.ProtoLens.Tag 4, array__field_descriptor),+           (Data.ProtoLens.Tag 5, map__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Metadatum'_unknownFields+        (\ x__ y__ -> x__ {_Metadatum'_unknownFields = y__})+  defMessage+    = Metadatum'_constructor+        {_Metadatum'metadatum = Prelude.Nothing,+         _Metadatum'_unknownFields = []}+  parseMessage+    = let+        loop :: Metadatum -> Data.ProtoLens.Encoding.Bytes.Parser Metadatum+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "int"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"int") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "bytes"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bytes") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getText+                                             (Prelude.fromIntegral len))+                                       "text"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"text") y x)+                        34+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "array"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x)+                        42+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "map"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Metadatum"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view+                    (Data.ProtoLens.Field.field @"maybe'metadatum") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just (Metadatum'Int v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                       ((Prelude..)+                          Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral v)+                (Prelude.Just (Metadatum'Bytes v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v)+                (Prelude.Just (Metadatum'Text v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.Text.Encoding.encodeUtf8 v)+                (Prelude.Just (Metadatum'Array v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (Metadatum'Map v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData Metadatum where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Metadatum'_unknownFields x__)+             (Control.DeepSeq.deepseq (_Metadatum'metadatum x__) ())+instance Control.DeepSeq.NFData Metadatum'Metadatum where+  rnf (Metadatum'Int x__) = Control.DeepSeq.rnf x__+  rnf (Metadatum'Bytes x__) = Control.DeepSeq.rnf x__+  rnf (Metadatum'Text x__) = Control.DeepSeq.rnf x__+  rnf (Metadatum'Array x__) = Control.DeepSeq.rnf x__+  rnf (Metadatum'Map x__) = Control.DeepSeq.rnf x__+_Metadatum'Int ::+  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Int.Int64+_Metadatum'Int+  = Data.ProtoLens.Prism.prism'+      Metadatum'Int+      (\ p__+         -> case p__ of+              (Metadatum'Int p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Metadatum'Bytes ::+  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.ByteString.ByteString+_Metadatum'Bytes+  = Data.ProtoLens.Prism.prism'+      Metadatum'Bytes+      (\ p__+         -> case p__ of+              (Metadatum'Bytes p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Metadatum'Text ::+  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum Data.Text.Text+_Metadatum'Text+  = Data.ProtoLens.Prism.prism'+      Metadatum'Text+      (\ p__+         -> case p__ of+              (Metadatum'Text p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Metadatum'Array ::+  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumArray+_Metadatum'Array+  = Data.ProtoLens.Prism.prism'+      Metadatum'Array+      (\ p__+         -> case p__ of+              (Metadatum'Array p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Metadatum'Map ::+  Data.ProtoLens.Prism.Prism' Metadatum'Metadatum MetadatumMap+_Metadatum'Map+  = Data.ProtoLens.Prism.prism'+      Metadatum'Map+      (\ p__+         -> case p__ of+              (Metadatum'Map p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' MetadatumArray [Metadatum]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' MetadatumArray (Data.Vector.Vector Metadatum)@ -}+data MetadatumArray+  = MetadatumArray'_constructor {_MetadatumArray'items :: !(Data.Vector.Vector Metadatum),+                                 _MetadatumArray'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show MetadatumArray where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField MetadatumArray "items" [Metadatum] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumArray'items+           (\ x__ y__ -> x__ {_MetadatumArray'items = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField MetadatumArray "vec'items" (Data.Vector.Vector Metadatum) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumArray'items+           (\ x__ y__ -> x__ {_MetadatumArray'items = y__}))+        Prelude.id+instance Data.ProtoLens.Message MetadatumArray where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.MetadatumArray"+  packedMessageDescriptor _+    = "\n\+      \\SOMetadatumArray\DC28\n\+      \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQitems"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        items__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "items"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Metadatum)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::+              Data.ProtoLens.FieldDescriptor MetadatumArray+      in+        Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _MetadatumArray'_unknownFields+        (\ x__ y__ -> x__ {_MetadatumArray'_unknownFields = y__})+  defMessage+    = MetadatumArray'_constructor+        {_MetadatumArray'items = Data.Vector.Generic.empty,+         _MetadatumArray'_unknownFields = []}+  parseMessage+    = let+        loop ::+          MetadatumArray+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Metadatum+             -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumArray+        loop x mutable'items+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "items"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'items+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                 Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'items)+          "MetadatumArray"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData MetadatumArray where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_MetadatumArray'_unknownFields x__)+             (Control.DeepSeq.deepseq (_MetadatumArray'items x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pairs' @:: Lens' MetadatumMap [MetadatumPair]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'pairs' @:: Lens' MetadatumMap (Data.Vector.Vector MetadatumPair)@ -}+data MetadatumMap+  = MetadatumMap'_constructor {_MetadatumMap'pairs :: !(Data.Vector.Vector MetadatumPair),+                               _MetadatumMap'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show MetadatumMap where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField MetadatumMap "pairs" [MetadatumPair] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumMap'pairs (\ x__ y__ -> x__ {_MetadatumMap'pairs = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField MetadatumMap "vec'pairs" (Data.Vector.Vector MetadatumPair) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumMap'pairs (\ x__ y__ -> x__ {_MetadatumMap'pairs = y__}))+        Prelude.id+instance Data.ProtoLens.Message MetadatumMap where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.MetadatumMap"+  packedMessageDescriptor _+    = "\n\+      \\fMetadatumMap\DC2<\n\+      \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.cardano.MetadatumPairR\ENQpairs"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        pairs__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pairs"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor MetadatumPair)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pairs")) ::+              Data.ProtoLens.FieldDescriptor MetadatumMap+      in+        Data.Map.fromList [(Data.ProtoLens.Tag 1, pairs__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _MetadatumMap'_unknownFields+        (\ x__ y__ -> x__ {_MetadatumMap'_unknownFields = y__})+  defMessage+    = MetadatumMap'_constructor+        {_MetadatumMap'pairs = Data.Vector.Generic.empty,+         _MetadatumMap'_unknownFields = []}+  parseMessage+    = let+        loop ::+          MetadatumMap+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetadatumPair+             -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumMap+        loop x mutable'pairs+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "pairs"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'pairs y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'pairs+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                 Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'pairs)+          "MetadatumMap"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pairs") _x))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData MetadatumMap where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_MetadatumMap'_unknownFields x__)+             (Control.DeepSeq.deepseq (_MetadatumMap'pairs x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.key' @:: Lens' MetadatumPair Metadatum@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'key' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' MetadatumPair Metadatum@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' MetadatumPair (Prelude.Maybe Metadatum)@ -}+data MetadatumPair+  = MetadatumPair'_constructor {_MetadatumPair'key :: !(Prelude.Maybe Metadatum),+                                _MetadatumPair'value :: !(Prelude.Maybe Metadatum),+                                _MetadatumPair'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show MetadatumPair where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField MetadatumPair "key" Metadatum where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumPair'key (\ x__ y__ -> x__ {_MetadatumPair'key = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'key" (Prelude.Maybe Metadatum) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumPair'key (\ x__ y__ -> x__ {_MetadatumPair'key = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField MetadatumPair "value" Metadatum where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumPair'value+           (\ x__ y__ -> x__ {_MetadatumPair'value = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField MetadatumPair "maybe'value" (Prelude.Maybe Metadatum) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MetadatumPair'value+           (\ x__ y__ -> x__ {_MetadatumPair'value = y__}))+        Prelude.id+instance Data.ProtoLens.Message MetadatumPair where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.MetadatumPair"+  packedMessageDescriptor _+    = "\n\+      \\rMetadatumPair\DC24\n\+      \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ETXkey\DC28\n\+      \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        key__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "key"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Metadatum)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'key")) ::+              Data.ProtoLens.FieldDescriptor MetadatumPair+        value__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "value"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Metadatum)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'value")) ::+              Data.ProtoLens.FieldDescriptor MetadatumPair+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, key__field_descriptor),+           (Data.ProtoLens.Tag 2, value__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _MetadatumPair'_unknownFields+        (\ x__ y__ -> x__ {_MetadatumPair'_unknownFields = y__})+  defMessage+    = MetadatumPair'_constructor+        {_MetadatumPair'key = Prelude.Nothing,+         _MetadatumPair'value = Prelude.Nothing,+         _MetadatumPair'_unknownFields = []}+  parseMessage+    = let+        loop ::+          MetadatumPair -> Data.ProtoLens.Encoding.Bytes.Parser MetadatumPair+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "key"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "value"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "MetadatumPair"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData MetadatumPair where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_MetadatumPair'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_MetadatumPair'key x__)+                (Control.DeepSeq.deepseq (_MetadatumPair'value x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.from' @:: Lens' MirCert MirSource@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.to' @:: Lens' MirCert [MirTarget]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'to' @:: Lens' MirCert (Data.Vector.Vector MirTarget)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.otherPot' @:: Lens' MirCert Data.Word.Word64@ -}+data MirCert+  = MirCert'_constructor {_MirCert'from :: !MirSource,+                          _MirCert'to :: !(Data.Vector.Vector MirTarget),+                          _MirCert'otherPot :: !Data.Word.Word64,+                          _MirCert'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show MirCert where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField MirCert "from" MirSource where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MirCert'from (\ x__ y__ -> x__ {_MirCert'from = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField MirCert "to" [MirTarget] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MirCert'to (\ x__ y__ -> x__ {_MirCert'to = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField MirCert "vec'to" (Data.Vector.Vector MirTarget) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MirCert'to (\ x__ y__ -> x__ {_MirCert'to = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField MirCert "otherPot" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MirCert'otherPot (\ x__ y__ -> x__ {_MirCert'otherPot = y__}))+        Prelude.id+instance Data.ProtoLens.Message MirCert where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.MirCert"+  packedMessageDescriptor _+    = "\n\+      \\aMirCert\DC26\n\+      \\EOTfrom\CAN\SOH \SOH(\SO2\".utxorpc.v1alpha.cardano.MirSourceR\EOTfrom\DC22\n\+      \\STXto\CAN\STX \ETX(\v2\".utxorpc.v1alpha.cardano.MirTargetR\STXto\DC2\ESC\n\+      \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        from__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "from"+              (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+                 Data.ProtoLens.FieldTypeDescriptor MirSource)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"from")) ::+              Data.ProtoLens.FieldDescriptor MirCert+        to__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "to"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor MirTarget)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"to")) ::+              Data.ProtoLens.FieldDescriptor MirCert+        otherPot__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "other_pot"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"otherPot")) ::+              Data.ProtoLens.FieldDescriptor MirCert+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, from__field_descriptor),+           (Data.ProtoLens.Tag 2, to__field_descriptor),+           (Data.ProtoLens.Tag 3, otherPot__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _MirCert'_unknownFields+        (\ x__ y__ -> x__ {_MirCert'_unknownFields = y__})+  defMessage+    = MirCert'_constructor+        {_MirCert'from = Data.ProtoLens.fieldDefault,+         _MirCert'to = Data.Vector.Generic.empty,+         _MirCert'otherPot = Data.ProtoLens.fieldDefault,+         _MirCert'_unknownFields = []}+  parseMessage+    = let+        loop ::+          MirCert+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MirTarget+             -> Data.ProtoLens.Encoding.Bytes.Parser MirCert+        loop x mutable'to+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'to <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                     (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'to)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'to") frozen'to x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.toEnum+                                          (Prelude.fmap+                                             Prelude.fromIntegral+                                             Data.ProtoLens.Encoding.Bytes.getVarInt))+                                       "from"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"from") y x)+                                  mutable'to+                        18+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "to"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'to y)+                                loop x v+                        24+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "other_pot"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"otherPot") y x)+                                  mutable'to+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'to+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'to <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                              Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'to)+          "MirCert"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"from") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      ((Prelude..)+                         ((Prelude..)+                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)+                         Prelude.fromEnum _v))+             ((Data.Monoid.<>)+                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                   (\ _v+                      -> (Data.Monoid.<>)+                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                           ((Prelude..)+                              (\ bs+                                 -> (Data.Monoid.<>)+                                      (Data.ProtoLens.Encoding.Bytes.putVarInt+                                         (Prelude.fromIntegral (Data.ByteString.length bs)))+                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                              Data.ProtoLens.encodeMessage _v))+                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'to") _x))+                ((Data.Monoid.<>)+                   (let+                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"otherPot") _x+                    in+                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                          Data.Monoid.mempty+                      else+                          (Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt 24)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData MirCert where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_MirCert'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_MirCert'from x__)+                (Control.DeepSeq.deepseq+                   (_MirCert'to x__)+                   (Control.DeepSeq.deepseq (_MirCert'otherPot x__) ())))+newtype MirSource'UnrecognizedValue+  = MirSource'UnrecognizedValue Data.Int.Int32+  deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show)+data MirSource+  = MIR_SOURCE_UNSPECIFIED |+    MIR_SOURCE_RESERVES |+    MIR_SOURCE_TREASURY |+    MirSource'Unrecognized !MirSource'UnrecognizedValue+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.MessageEnum MirSource where+  maybeToEnum 0 = Prelude.Just MIR_SOURCE_UNSPECIFIED+  maybeToEnum 1 = Prelude.Just MIR_SOURCE_RESERVES+  maybeToEnum 2 = Prelude.Just MIR_SOURCE_TREASURY+  maybeToEnum k+    = Prelude.Just+        (MirSource'Unrecognized+           (MirSource'UnrecognizedValue (Prelude.fromIntegral k)))+  showEnum MIR_SOURCE_UNSPECIFIED = "MIR_SOURCE_UNSPECIFIED"+  showEnum MIR_SOURCE_RESERVES = "MIR_SOURCE_RESERVES"+  showEnum MIR_SOURCE_TREASURY = "MIR_SOURCE_TREASURY"+  showEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue k))+    = Prelude.show k+  readEnum k+    | (Prelude.==) k "MIR_SOURCE_UNSPECIFIED"+    = Prelude.Just MIR_SOURCE_UNSPECIFIED+    | (Prelude.==) k "MIR_SOURCE_RESERVES"+    = Prelude.Just MIR_SOURCE_RESERVES+    | (Prelude.==) k "MIR_SOURCE_TREASURY"+    = Prelude.Just MIR_SOURCE_TREASURY+    | Prelude.otherwise+    = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded MirSource where+  minBound = MIR_SOURCE_UNSPECIFIED+  maxBound = MIR_SOURCE_TREASURY+instance Prelude.Enum MirSource where+  toEnum k__+    = Prelude.maybe+        (Prelude.error+           ((Prelude.++)+              "toEnum: unknown value for enum MirSource: " (Prelude.show k__)))+        Prelude.id (Data.ProtoLens.maybeToEnum k__)+  fromEnum MIR_SOURCE_UNSPECIFIED = 0+  fromEnum MIR_SOURCE_RESERVES = 1+  fromEnum MIR_SOURCE_TREASURY = 2+  fromEnum (MirSource'Unrecognized (MirSource'UnrecognizedValue k))+    = Prelude.fromIntegral k+  succ MIR_SOURCE_TREASURY+    = Prelude.error+        "MirSource.succ: bad argument MIR_SOURCE_TREASURY. This value would be out of bounds."+  succ MIR_SOURCE_UNSPECIFIED = MIR_SOURCE_RESERVES+  succ MIR_SOURCE_RESERVES = MIR_SOURCE_TREASURY+  succ (MirSource'Unrecognized _)+    = Prelude.error "MirSource.succ: bad argument: unrecognized value"+  pred MIR_SOURCE_UNSPECIFIED+    = Prelude.error+        "MirSource.pred: bad argument MIR_SOURCE_UNSPECIFIED. This value would be out of bounds."+  pred MIR_SOURCE_RESERVES = MIR_SOURCE_UNSPECIFIED+  pred MIR_SOURCE_TREASURY = MIR_SOURCE_RESERVES+  pred (MirSource'Unrecognized _)+    = Prelude.error "MirSource.pred: bad argument: unrecognized value"+  enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+  enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+  enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+  enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.ProtoLens.FieldDefault MirSource where+  fieldDefault = MIR_SOURCE_UNSPECIFIED+instance Control.DeepSeq.NFData MirSource where+  rnf x__ = Prelude.seq x__ ()+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeCredential' @:: Lens' MirTarget StakeCredential@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' MirTarget (Prelude.Maybe StakeCredential)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.deltaCoin' @:: Lens' MirTarget Data.Int.Int64@ -}+data MirTarget+  = MirTarget'_constructor {_MirTarget'stakeCredential :: !(Prelude.Maybe StakeCredential),+                            _MirTarget'deltaCoin :: !Data.Int.Int64,+                            _MirTarget'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show MirTarget where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField MirTarget "stakeCredential" StakeCredential where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MirTarget'stakeCredential+           (\ x__ y__ -> x__ {_MirTarget'stakeCredential = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField MirTarget "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MirTarget'stakeCredential+           (\ x__ y__ -> x__ {_MirTarget'stakeCredential = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField MirTarget "deltaCoin" Data.Int.Int64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _MirTarget'deltaCoin+           (\ x__ y__ -> x__ {_MirTarget'deltaCoin = y__}))+        Prelude.id+instance Data.ProtoLens.Message MirTarget where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.MirTarget"+  packedMessageDescriptor _+    = "\n\+      \\tMirTarget\DC2S\n\+      \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2\GS\n\+      \\n\+      \delta_coin\CAN\STX \SOH(\ETXR\tdeltaCoin"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        stakeCredential__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "stake_credential"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'stakeCredential")) ::+              Data.ProtoLens.FieldDescriptor MirTarget+        deltaCoin__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "delta_coin"+              (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"deltaCoin")) ::+              Data.ProtoLens.FieldDescriptor MirTarget+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor),+           (Data.ProtoLens.Tag 2, deltaCoin__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _MirTarget'_unknownFields+        (\ x__ y__ -> x__ {_MirTarget'_unknownFields = y__})+  defMessage+    = MirTarget'_constructor+        {_MirTarget'stakeCredential = Prelude.Nothing,+         _MirTarget'deltaCoin = Data.ProtoLens.fieldDefault,+         _MirTarget'_unknownFields = []}+  parseMessage+    = let+        loop :: MirTarget -> Data.ProtoLens.Encoding.Bytes.Parser MirTarget+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "stake_credential"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"stakeCredential") y x)+                        16+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "delta_coin"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"deltaCoin") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "MirTarget"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view+                    (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (let+                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"deltaCoin") _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 MirTarget where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_MirTarget'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_MirTarget'stakeCredential x__)+                (Control.DeepSeq.deepseq (_MirTarget'deltaCoin x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.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)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' Multiasset Redeemer@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Multiasset (Prelude.Maybe Redeemer)@ -}+data Multiasset+  = Multiasset'_constructor {_Multiasset'policyId :: !Data.ByteString.ByteString,+                             _Multiasset'assets :: !(Data.Vector.Vector Asset),+                             _Multiasset'redeemer :: !(Prelude.Maybe Redeemer),+                             _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.Field.HasField Multiasset "redeemer" Redeemer where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Multiasset'redeemer+           (\ x__ y__ -> x__ {_Multiasset'redeemer = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Multiasset "maybe'redeemer" (Prelude.Maybe Redeemer) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Multiasset'redeemer+           (\ x__ y__ -> x__ {_Multiasset'redeemer = 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\DC2=\n\+      \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer"+  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+        redeemer__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "redeemer"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Redeemer)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::+              Data.ProtoLens.FieldDescriptor Multiasset+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, policyId__field_descriptor),+           (Data.ProtoLens.Tag 2, assets__field_descriptor),+           (Data.ProtoLens.Tag 3, redeemer__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'redeemer = Prelude.Nothing,+         _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+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "redeemer"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)+                                  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)+          "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.Monoid.<>)+                   (case+                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x+                    of+                      Prelude.Nothing -> Data.Monoid.mempty+                      (Prelude.Just _v)+                        -> (Data.Monoid.<>)+                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                             ((Prelude..)+                                (\ bs+                                   -> (Data.Monoid.<>)+                                        (Data.ProtoLens.Encoding.Bytes.putVarInt+                                           (Prelude.fromIntegral (Data.ByteString.length bs)))+                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                Data.ProtoLens.encodeMessage _v))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData Multiasset where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Multiasset'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Multiasset'policyId x__)+                (Control.DeepSeq.deepseq+                   (_Multiasset'assets x__)+                   (Control.DeepSeq.deepseq (_Multiasset'redeemer x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'nativeScript' @:: Lens' NativeScript (Prelude.Maybe NativeScript'NativeScript)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptPubkey' @:: Lens' NativeScript (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptPubkey' @:: Lens' NativeScript Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAll' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAll' @:: Lens' NativeScript NativeScriptList@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptAny' @:: Lens' NativeScript (Prelude.Maybe NativeScriptList)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptAny' @:: Lens' NativeScript NativeScriptList@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptNOfK' @:: Lens' NativeScript (Prelude.Maybe ScriptNOfK)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptNOfK' @:: Lens' NativeScript ScriptNOfK@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidBefore' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidBefore' @:: Lens' NativeScript Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'invalidHereafter' @:: Lens' NativeScript (Prelude.Maybe Data.Word.Word64)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.invalidHereafter' @:: Lens' NativeScript Data.Word.Word64@ -}+data NativeScript+  = NativeScript'_constructor {_NativeScript'nativeScript :: !(Prelude.Maybe NativeScript'NativeScript),+                               _NativeScript'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show NativeScript where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data NativeScript'NativeScript+  = NativeScript'ScriptPubkey !Data.ByteString.ByteString |+    NativeScript'ScriptAll !NativeScriptList |+    NativeScript'ScriptAny !NativeScriptList |+    NativeScript'ScriptNOfK !ScriptNOfK |+    NativeScript'InvalidBefore !Data.Word.Word64 |+    NativeScript'InvalidHereafter !Data.Word.Word64+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField NativeScript "maybe'nativeScript" (Prelude.Maybe NativeScript'NativeScript) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptPubkey" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (NativeScript'ScriptPubkey x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkey y__))+instance Data.ProtoLens.Field.HasField NativeScript "scriptPubkey" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (NativeScript'ScriptPubkey x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap NativeScript'ScriptPubkey y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAll" (Prelude.Maybe NativeScriptList) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (NativeScript'ScriptAll x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__))+instance Data.ProtoLens.Field.HasField NativeScript "scriptAll" NativeScriptList where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (NativeScript'ScriptAll x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap NativeScript'ScriptAll y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptAny" (Prelude.Maybe NativeScriptList) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (NativeScript'ScriptAny x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__))+instance Data.ProtoLens.Field.HasField NativeScript "scriptAny" NativeScriptList where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (NativeScript'ScriptAny x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap NativeScript'ScriptAny y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField NativeScript "maybe'scriptNOfK" (Prelude.Maybe ScriptNOfK) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (NativeScript'ScriptNOfK x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__))+instance Data.ProtoLens.Field.HasField NativeScript "scriptNOfK" ScriptNOfK where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (NativeScript'ScriptNOfK x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap NativeScript'ScriptNOfK y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidBefore" (Prelude.Maybe Data.Word.Word64) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (NativeScript'InvalidBefore x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__))+instance Data.ProtoLens.Field.HasField NativeScript "invalidBefore" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (NativeScript'InvalidBefore x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap NativeScript'InvalidBefore y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField NativeScript "maybe'invalidHereafter" (Prelude.Maybe Data.Word.Word64) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (NativeScript'InvalidHereafter x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__))+instance Data.ProtoLens.Field.HasField NativeScript "invalidHereafter" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScript'nativeScript+           (\ x__ y__ -> x__ {_NativeScript'nativeScript = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (NativeScript'InvalidHereafter x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap NativeScript'InvalidHereafter y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Message NativeScript where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.NativeScript"+  packedMessageDescriptor _+    = "\n\+      \\fNativeScript\DC2%\n\+      \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\+      \\n\+      \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\+      \\n\+      \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\+      \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\+      \scriptNOfK\DC2'\n\+      \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\+      \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\+      \\rnative_script"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        scriptPubkey__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "script_pubkey"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'scriptPubkey")) ::+              Data.ProtoLens.FieldDescriptor NativeScript+        scriptAll__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "script_all"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor NativeScriptList)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'scriptAll")) ::+              Data.ProtoLens.FieldDescriptor NativeScript+        scriptAny__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "script_any"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor NativeScriptList)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'scriptAny")) ::+              Data.ProtoLens.FieldDescriptor NativeScript+        scriptNOfK__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "script_n_of_k"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor ScriptNOfK)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'scriptNOfK")) ::+              Data.ProtoLens.FieldDescriptor NativeScript+        invalidBefore__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "invalid_before"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'invalidBefore")) ::+              Data.ProtoLens.FieldDescriptor NativeScript+        invalidHereafter__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "invalid_hereafter"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'invalidHereafter")) ::+              Data.ProtoLens.FieldDescriptor NativeScript+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, scriptPubkey__field_descriptor),+           (Data.ProtoLens.Tag 2, scriptAll__field_descriptor),+           (Data.ProtoLens.Tag 3, scriptAny__field_descriptor),+           (Data.ProtoLens.Tag 4, scriptNOfK__field_descriptor),+           (Data.ProtoLens.Tag 5, invalidBefore__field_descriptor),+           (Data.ProtoLens.Tag 6, invalidHereafter__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _NativeScript'_unknownFields+        (\ x__ y__ -> x__ {_NativeScript'_unknownFields = y__})+  defMessage+    = NativeScript'_constructor+        {_NativeScript'nativeScript = Prelude.Nothing,+         _NativeScript'_unknownFields = []}+  parseMessage+    = let+        loop ::+          NativeScript -> Data.ProtoLens.Encoding.Bytes.Parser NativeScript+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "script_pubkey"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"scriptPubkey") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "script_all"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAll") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "script_any"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptAny") y x)+                        34+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "script_n_of_k"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptNOfK") y x)+                        40+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_before"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"invalidBefore") y x)+                        48+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "invalid_hereafter"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"invalidHereafter") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "NativeScript"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view+                    (Data.ProtoLens.Field.field @"maybe'nativeScript") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just (NativeScript'ScriptPubkey v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v)+                (Prelude.Just (NativeScript'ScriptAll v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (NativeScript'ScriptAny v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (NativeScript'ScriptNOfK v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (NativeScript'InvalidBefore v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 40)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt v)+                (Prelude.Just (NativeScript'InvalidHereafter v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 48)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt v))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData NativeScript where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_NativeScript'_unknownFields x__)+             (Control.DeepSeq.deepseq (_NativeScript'nativeScript x__) ())+instance Control.DeepSeq.NFData NativeScript'NativeScript where+  rnf (NativeScript'ScriptPubkey x__) = Control.DeepSeq.rnf x__+  rnf (NativeScript'ScriptAll x__) = Control.DeepSeq.rnf x__+  rnf (NativeScript'ScriptAny x__) = Control.DeepSeq.rnf x__+  rnf (NativeScript'ScriptNOfK x__) = Control.DeepSeq.rnf x__+  rnf (NativeScript'InvalidBefore x__) = Control.DeepSeq.rnf x__+  rnf (NativeScript'InvalidHereafter x__) = Control.DeepSeq.rnf x__+_NativeScript'ScriptPubkey ::+  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.ByteString.ByteString+_NativeScript'ScriptPubkey+  = Data.ProtoLens.Prism.prism'+      NativeScript'ScriptPubkey+      (\ p__+         -> case p__ of+              (NativeScript'ScriptPubkey p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_NativeScript'ScriptAll ::+  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList+_NativeScript'ScriptAll+  = Data.ProtoLens.Prism.prism'+      NativeScript'ScriptAll+      (\ p__+         -> case p__ of+              (NativeScript'ScriptAll p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_NativeScript'ScriptAny ::+  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript NativeScriptList+_NativeScript'ScriptAny+  = Data.ProtoLens.Prism.prism'+      NativeScript'ScriptAny+      (\ p__+         -> case p__ of+              (NativeScript'ScriptAny p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_NativeScript'ScriptNOfK ::+  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript ScriptNOfK+_NativeScript'ScriptNOfK+  = Data.ProtoLens.Prism.prism'+      NativeScript'ScriptNOfK+      (\ p__+         -> case p__ of+              (NativeScript'ScriptNOfK p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_NativeScript'InvalidBefore ::+  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64+_NativeScript'InvalidBefore+  = Data.ProtoLens.Prism.prism'+      NativeScript'InvalidBefore+      (\ p__+         -> case p__ of+              (NativeScript'InvalidBefore p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_NativeScript'InvalidHereafter ::+  Data.ProtoLens.Prism.Prism' NativeScript'NativeScript Data.Word.Word64+_NativeScript'InvalidHereafter+  = Data.ProtoLens.Prism.prism'+      NativeScript'InvalidHereafter+      (\ p__+         -> case p__ of+              (NativeScript'InvalidHereafter p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' NativeScriptList [NativeScript]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' NativeScriptList (Data.Vector.Vector NativeScript)@ -}+data NativeScriptList+  = NativeScriptList'_constructor {_NativeScriptList'items :: !(Data.Vector.Vector NativeScript),+                                   _NativeScriptList'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show NativeScriptList where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField NativeScriptList "items" [NativeScript] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScriptList'items+           (\ x__ y__ -> x__ {_NativeScriptList'items = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField NativeScriptList "vec'items" (Data.Vector.Vector NativeScript) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _NativeScriptList'items+           (\ x__ y__ -> x__ {_NativeScriptList'items = y__}))+        Prelude.id+instance Data.ProtoLens.Message NativeScriptList where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.NativeScriptList"+  packedMessageDescriptor _+    = "\n\+      \\DLENativeScriptList\DC2;\n\+      \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        items__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "items"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor NativeScript)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::+              Data.ProtoLens.FieldDescriptor NativeScriptList+      in+        Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _NativeScriptList'_unknownFields+        (\ x__ y__ -> x__ {_NativeScriptList'_unknownFields = y__})+  defMessage+    = NativeScriptList'_constructor+        {_NativeScriptList'items = Data.Vector.Generic.empty,+         _NativeScriptList'_unknownFields = []}+  parseMessage+    = let+        loop ::+          NativeScriptList+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript+             -> Data.ProtoLens.Encoding.Bytes.Parser NativeScriptList+        loop x mutable'items+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "items"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'items+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                 Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'items)+          "NativeScriptList"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData NativeScriptList where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_NativeScriptList'_unknownFields x__)+             (Control.DeepSeq.deepseq (_NativeScriptList'items x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coinsPerUtxoByte' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxTxSize' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeCoefficient' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minFeeConstant' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockBodySize' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxBlockHeaderSize' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeKeyDeposit' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolDeposit' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolRetirementEpochBound' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.desiredNumberOfPools' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolInfluence' @:: Lens' PParams RationalNumber@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolInfluence' @:: Lens' PParams (Prelude.Maybe RationalNumber)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.monetaryExpansion' @:: Lens' PParams RationalNumber@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'monetaryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.treasuryExpansion' @:: Lens' PParams RationalNumber@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'treasuryExpansion' @:: Lens' PParams (Prelude.Maybe RationalNumber)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.minPoolCost' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.protocolVersion' @:: Lens' PParams ProtocolVersion@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'protocolVersion' @:: Lens' PParams (Prelude.Maybe ProtocolVersion)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxValueSize' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateralPercentage' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxCollateralInputs' @:: Lens' PParams Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.costModels' @:: Lens' PParams CostModels@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'costModels' @:: Lens' PParams (Prelude.Maybe CostModels)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.prices' @:: Lens' PParams ExPrices@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'prices' @:: Lens' PParams (Prelude.Maybe ExPrices)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerTransaction' @:: Lens' PParams ExUnits@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerTransaction' @:: Lens' PParams (Prelude.Maybe ExUnits)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maxExecutionUnitsPerBlock' @:: Lens' PParams ExUnits@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'maxExecutionUnitsPerBlock' @:: Lens' PParams (Prelude.Maybe ExUnits)@ -}+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'_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.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"+  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+      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)]+  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'_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)+                        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.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__)+                                                                               ()))))))))))))))))))))))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusData' @:: Lens' PlutusData (Prelude.Maybe PlutusData'PlutusData)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'constr' @:: Lens' PlutusData (Prelude.Maybe Constr)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.constr' @:: Lens' PlutusData Constr@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'map' @:: Lens' PlutusData (Prelude.Maybe PlutusDataMap)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.map' @:: Lens' PlutusData PlutusDataMap@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'bigInt' @:: Lens' PlutusData (Prelude.Maybe BigInt)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.bigInt' @:: Lens' PlutusData BigInt@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'boundedBytes' @:: Lens' PlutusData (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.boundedBytes' @:: Lens' PlutusData Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'array' @:: Lens' PlutusData (Prelude.Maybe PlutusDataArray)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.array' @:: Lens' PlutusData PlutusDataArray@ -}+data PlutusData+  = PlutusData'_constructor {_PlutusData'plutusData :: !(Prelude.Maybe PlutusData'PlutusData),+                             _PlutusData'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show PlutusData where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data PlutusData'PlutusData+  = PlutusData'Constr !Constr |+    PlutusData'Map !PlutusDataMap |+    PlutusData'BigInt !BigInt |+    PlutusData'BoundedBytes !Data.ByteString.ByteString |+    PlutusData'Array !PlutusDataArray+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField PlutusData "maybe'plutusData" (Prelude.Maybe PlutusData'PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PlutusData "maybe'constr" (Prelude.Maybe Constr) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap PlutusData'Constr y__))+instance Data.ProtoLens.Field.HasField PlutusData "constr" Constr where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (PlutusData'Constr x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap PlutusData'Constr y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField PlutusData "maybe'map" (Prelude.Maybe PlutusDataMap) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap PlutusData'Map y__))+instance Data.ProtoLens.Field.HasField PlutusData "map" PlutusDataMap where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (PlutusData'Map x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap PlutusData'Map y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField PlutusData "maybe'bigInt" (Prelude.Maybe BigInt) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__))+instance Data.ProtoLens.Field.HasField PlutusData "bigInt" BigInt where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (PlutusData'BigInt x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap PlutusData'BigInt y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField PlutusData "maybe'boundedBytes" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (PlutusData'BoundedBytes x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__))+instance Data.ProtoLens.Field.HasField PlutusData "boundedBytes" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (PlutusData'BoundedBytes x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap PlutusData'BoundedBytes y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField PlutusData "maybe'array" (Prelude.Maybe PlutusDataArray) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap PlutusData'Array y__))+instance Data.ProtoLens.Field.HasField PlutusData "array" PlutusDataArray where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusData'plutusData+           (\ x__ y__ -> x__ {_PlutusData'plutusData = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (PlutusData'Array x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap PlutusData'Array y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Message PlutusData where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusData"+  packedMessageDescriptor _+    = "\n\+      \\n\+      \PlutusData\DC29\n\+      \\ACKconstr\CAN\STX \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\+      \\ETXmap\CAN\ETX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\+      \\abig_int\CAN\EOT \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\+      \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2@\n\+      \\ENQarray\CAN\ACK \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\+      \\vplutus_data"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        constr__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "constr"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Constr)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'constr")) ::+              Data.ProtoLens.FieldDescriptor PlutusData+        map__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "map"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusDataMap)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'map")) ::+              Data.ProtoLens.FieldDescriptor PlutusData+        bigInt__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "big_int"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor BigInt)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'bigInt")) ::+              Data.ProtoLens.FieldDescriptor PlutusData+        boundedBytes__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "bounded_bytes"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'boundedBytes")) ::+              Data.ProtoLens.FieldDescriptor PlutusData+        array__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "array"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusDataArray)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'array")) ::+              Data.ProtoLens.FieldDescriptor PlutusData+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 2, constr__field_descriptor),+           (Data.ProtoLens.Tag 3, map__field_descriptor),+           (Data.ProtoLens.Tag 4, bigInt__field_descriptor),+           (Data.ProtoLens.Tag 5, boundedBytes__field_descriptor),+           (Data.ProtoLens.Tag 6, array__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _PlutusData'_unknownFields+        (\ x__ y__ -> x__ {_PlutusData'_unknownFields = y__})+  defMessage+    = PlutusData'_constructor+        {_PlutusData'plutusData = Prelude.Nothing,+         _PlutusData'_unknownFields = []}+  parseMessage+    = let+        loop ::+          PlutusData -> Data.ProtoLens.Encoding.Bytes.Parser PlutusData+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "constr"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"constr") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "map"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"map") y x)+                        34+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "big_int"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"bigInt") y x)+                        42+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "bounded_bytes"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"boundedBytes") y x)+                        50+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "array"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"array") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "PlutusData"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view+                    (Data.ProtoLens.Field.field @"maybe'plutusData") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just (PlutusData'Constr v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (PlutusData'Map v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (PlutusData'BigInt v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (PlutusData'BoundedBytes v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v)+                (Prelude.Just (PlutusData'Array v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData PlutusData where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_PlutusData'_unknownFields x__)+             (Control.DeepSeq.deepseq (_PlutusData'plutusData x__) ())+instance Control.DeepSeq.NFData PlutusData'PlutusData where+  rnf (PlutusData'Constr x__) = Control.DeepSeq.rnf x__+  rnf (PlutusData'Map x__) = Control.DeepSeq.rnf x__+  rnf (PlutusData'BigInt x__) = Control.DeepSeq.rnf x__+  rnf (PlutusData'BoundedBytes x__) = Control.DeepSeq.rnf x__+  rnf (PlutusData'Array x__) = Control.DeepSeq.rnf x__+_PlutusData'Constr ::+  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Constr+_PlutusData'Constr+  = Data.ProtoLens.Prism.prism'+      PlutusData'Constr+      (\ p__+         -> case p__ of+              (PlutusData'Constr p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_PlutusData'Map ::+  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataMap+_PlutusData'Map+  = Data.ProtoLens.Prism.prism'+      PlutusData'Map+      (\ p__+         -> case p__ of+              (PlutusData'Map p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_PlutusData'BigInt ::+  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData BigInt+_PlutusData'BigInt+  = Data.ProtoLens.Prism.prism'+      PlutusData'BigInt+      (\ p__+         -> case p__ of+              (PlutusData'BigInt p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_PlutusData'BoundedBytes ::+  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData Data.ByteString.ByteString+_PlutusData'BoundedBytes+  = Data.ProtoLens.Prism.prism'+      PlutusData'BoundedBytes+      (\ p__+         -> case p__ of+              (PlutusData'BoundedBytes p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_PlutusData'Array ::+  Data.ProtoLens.Prism.Prism' PlutusData'PlutusData PlutusDataArray+_PlutusData'Array+  = Data.ProtoLens.Prism.prism'+      PlutusData'Array+      (\ p__+         -> case p__ of+              (PlutusData'Array p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.items' @:: Lens' PlutusDataArray [PlutusData]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'items' @:: Lens' PlutusDataArray (Data.Vector.Vector PlutusData)@ -}+data PlutusDataArray+  = PlutusDataArray'_constructor {_PlutusDataArray'items :: !(Data.Vector.Vector PlutusData),+                                  _PlutusDataArray'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show PlutusDataArray where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField PlutusDataArray "items" [PlutusData] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataArray'items+           (\ x__ y__ -> x__ {_PlutusDataArray'items = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField PlutusDataArray "vec'items" (Data.Vector.Vector PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataArray'items+           (\ x__ y__ -> x__ {_PlutusDataArray'items = y__}))+        Prelude.id+instance Data.ProtoLens.Message PlutusDataArray where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataArray"+  packedMessageDescriptor _+    = "\n\+      \\SIPlutusDataArray\DC29\n\+      \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        items__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "items"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusData)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::+              Data.ProtoLens.FieldDescriptor PlutusDataArray+      in+        Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _PlutusDataArray'_unknownFields+        (\ x__ y__ -> x__ {_PlutusDataArray'_unknownFields = y__})+  defMessage+    = PlutusDataArray'_constructor+        {_PlutusDataArray'items = Data.Vector.Generic.empty,+         _PlutusDataArray'_unknownFields = []}+  parseMessage+    = let+        loop ::+          PlutusDataArray+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData+             -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataArray+        loop x mutable'items+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'items") frozen'items x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "items"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'items y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'items+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                 Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'items)+          "PlutusDataArray"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData PlutusDataArray where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_PlutusDataArray'_unknownFields x__)+             (Control.DeepSeq.deepseq (_PlutusDataArray'items x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pairs' @:: Lens' PlutusDataMap [PlutusDataPair]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'pairs' @:: Lens' PlutusDataMap (Data.Vector.Vector PlutusDataPair)@ -}+data PlutusDataMap+  = PlutusDataMap'_constructor {_PlutusDataMap'pairs :: !(Data.Vector.Vector PlutusDataPair),+                                _PlutusDataMap'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show PlutusDataMap where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField PlutusDataMap "pairs" [PlutusDataPair] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataMap'pairs+           (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField PlutusDataMap "vec'pairs" (Data.Vector.Vector PlutusDataPair) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataMap'pairs+           (\ x__ y__ -> x__ {_PlutusDataMap'pairs = y__}))+        Prelude.id+instance Data.ProtoLens.Message PlutusDataMap where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataMap"+  packedMessageDescriptor _+    = "\n\+      \\rPlutusDataMap\DC2=\n\+      \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        pairs__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pairs"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusDataPair)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"pairs")) ::+              Data.ProtoLens.FieldDescriptor PlutusDataMap+      in+        Data.Map.fromList [(Data.ProtoLens.Tag 1, pairs__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _PlutusDataMap'_unknownFields+        (\ x__ y__ -> x__ {_PlutusDataMap'_unknownFields = y__})+  defMessage+    = PlutusDataMap'_constructor+        {_PlutusDataMap'pairs = Data.Vector.Generic.empty,+         _PlutusDataMap'_unknownFields = []}+  parseMessage+    = let+        loop ::+          PlutusDataMap+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusDataPair+             -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataMap+        loop x mutable'pairs+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'pairs)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'pairs") frozen'pairs x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "pairs"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'pairs y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'pairs+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'pairs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                 Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'pairs)+          "PlutusDataMap"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'pairs") _x))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData PlutusDataMap where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_PlutusDataMap'_unknownFields x__)+             (Control.DeepSeq.deepseq (_PlutusDataMap'pairs x__) ())+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.key' @:: Lens' PlutusDataPair PlutusData@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'key' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.value' @:: Lens' PlutusDataPair PlutusData@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'value' @:: Lens' PlutusDataPair (Prelude.Maybe PlutusData)@ -}+data PlutusDataPair+  = PlutusDataPair'_constructor {_PlutusDataPair'key :: !(Prelude.Maybe PlutusData),+                                 _PlutusDataPair'value :: !(Prelude.Maybe PlutusData),+                                 _PlutusDataPair'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show PlutusDataPair where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField PlutusDataPair "key" PlutusData where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'key" (Prelude.Maybe PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataPair'key (\ x__ y__ -> x__ {_PlutusDataPair'key = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PlutusDataPair "value" PlutusData where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataPair'value+           (\ x__ y__ -> x__ {_PlutusDataPair'value = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField PlutusDataPair "maybe'value" (Prelude.Maybe PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PlutusDataPair'value+           (\ x__ y__ -> x__ {_PlutusDataPair'value = y__}))+        Prelude.id+instance Data.ProtoLens.Message PlutusDataPair where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.PlutusDataPair"+  packedMessageDescriptor _+    = "\n\+      \\SOPlutusDataPair\DC25\n\+      \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\+      \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        key__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "key"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusData)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'key")) ::+              Data.ProtoLens.FieldDescriptor PlutusDataPair+        value__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "value"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusData)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'value")) ::+              Data.ProtoLens.FieldDescriptor PlutusDataPair+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, key__field_descriptor),+           (Data.ProtoLens.Tag 2, value__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _PlutusDataPair'_unknownFields+        (\ x__ y__ -> x__ {_PlutusDataPair'_unknownFields = y__})+  defMessage+    = PlutusDataPair'_constructor+        {_PlutusDataPair'key = Prelude.Nothing,+         _PlutusDataPair'value = Prelude.Nothing,+         _PlutusDataPair'_unknownFields = []}+  parseMessage+    = let+        loop ::+          PlutusDataPair+          -> Data.ProtoLens.Encoding.Bytes.Parser PlutusDataPair+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "key"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "value"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "PlutusDataPair"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'key") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData PlutusDataPair where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_PlutusDataPair'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_PlutusDataPair'key x__)+                (Control.DeepSeq.deepseq (_PlutusDataPair'value x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.url' @:: Lens' PoolMetadata Data.Text.Text@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' PoolMetadata Data.ByteString.ByteString@ -}+data PoolMetadata+  = PoolMetadata'_constructor {_PoolMetadata'url :: !Data.Text.Text,+                               _PoolMetadata'hash :: !Data.ByteString.ByteString,+                               _PoolMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show PoolMetadata where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField PoolMetadata "url" Data.Text.Text where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolMetadata'url (\ x__ y__ -> x__ {_PoolMetadata'url = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolMetadata "hash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolMetadata'hash (\ x__ y__ -> x__ {_PoolMetadata'hash = y__}))+        Prelude.id+instance Data.ProtoLens.Message PoolMetadata where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.PoolMetadata"+  packedMessageDescriptor _+    = "\n\+      \\fPoolMetadata\DC2\DLE\n\+      \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\+      \\EOThash\CAN\STX \SOH(\fR\EOThash"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        url__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "url"+              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"url")) ::+              Data.ProtoLens.FieldDescriptor PoolMetadata+        hash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::+              Data.ProtoLens.FieldDescriptor PoolMetadata+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, url__field_descriptor),+           (Data.ProtoLens.Tag 2, hash__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _PoolMetadata'_unknownFields+        (\ x__ y__ -> x__ {_PoolMetadata'_unknownFields = y__})+  defMessage+    = PoolMetadata'_constructor+        {_PoolMetadata'url = Data.ProtoLens.fieldDefault,+         _PoolMetadata'hash = Data.ProtoLens.fieldDefault,+         _PoolMetadata'_unknownFields = []}+  parseMessage+    = let+        loop ::+          PoolMetadata -> Data.ProtoLens.Encoding.Bytes.Parser PoolMetadata+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getText+                                             (Prelude.fromIntegral len))+                                       "url"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"url") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "hash"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "PoolMetadata"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"url") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((Prelude..)+                         (\ bs+                            -> (Data.Monoid.<>)+                                 (Data.ProtoLens.Encoding.Bytes.putVarInt+                                    (Prelude.fromIntegral (Data.ByteString.length bs)))+                                 (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         Data.Text.Encoding.encodeUtf8 _v))+             ((Data.Monoid.<>)+                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData PoolMetadata where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_PoolMetadata'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_PoolMetadata'url x__)+                (Control.DeepSeq.deepseq (_PoolMetadata'hash x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.operator' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vrfKeyhash' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.pledge' @:: Lens' PoolRegistrationCert Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.cost' @:: Lens' PoolRegistrationCert Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.margin' @:: Lens' PoolRegistrationCert RationalNumber@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'margin' @:: Lens' PoolRegistrationCert (Prelude.Maybe RationalNumber)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.rewardAccount' @:: Lens' PoolRegistrationCert Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolOwners' @:: Lens' PoolRegistrationCert [Data.ByteString.ByteString]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'poolOwners' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.relays' @:: Lens' PoolRegistrationCert [Relay]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'relays' @:: Lens' PoolRegistrationCert (Data.Vector.Vector Relay)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolMetadata' @:: Lens' PoolRegistrationCert PoolMetadata@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'poolMetadata' @:: Lens' PoolRegistrationCert (Prelude.Maybe PoolMetadata)@ -}+data PoolRegistrationCert+  = PoolRegistrationCert'_constructor {_PoolRegistrationCert'operator :: !Data.ByteString.ByteString,+                                       _PoolRegistrationCert'vrfKeyhash :: !Data.ByteString.ByteString,+                                       _PoolRegistrationCert'pledge :: !Data.Word.Word64,+                                       _PoolRegistrationCert'cost :: !Data.Word.Word64,+                                       _PoolRegistrationCert'margin :: !(Prelude.Maybe RationalNumber),+                                       _PoolRegistrationCert'rewardAccount :: !Data.ByteString.ByteString,+                                       _PoolRegistrationCert'poolOwners :: !(Data.Vector.Vector Data.ByteString.ByteString),+                                       _PoolRegistrationCert'relays :: !(Data.Vector.Vector Relay),+                                       _PoolRegistrationCert'poolMetadata :: !(Prelude.Maybe PoolMetadata),+                                       _PoolRegistrationCert'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show PoolRegistrationCert where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "operator" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'operator+           (\ x__ y__ -> x__ {_PoolRegistrationCert'operator = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vrfKeyhash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'vrfKeyhash+           (\ x__ y__ -> x__ {_PoolRegistrationCert'vrfKeyhash = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "pledge" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'pledge+           (\ x__ y__ -> x__ {_PoolRegistrationCert'pledge = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "cost" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'cost+           (\ x__ y__ -> x__ {_PoolRegistrationCert'cost = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "margin" RationalNumber where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'margin+           (\ x__ y__ -> x__ {_PoolRegistrationCert'margin = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'margin" (Prelude.Maybe RationalNumber) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'margin+           (\ x__ y__ -> x__ {_PoolRegistrationCert'margin = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "rewardAccount" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'rewardAccount+           (\ x__ y__ -> x__ {_PoolRegistrationCert'rewardAccount = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolOwners" [Data.ByteString.ByteString] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'poolOwners+           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolOwners = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'poolOwners" (Data.Vector.Vector Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'poolOwners+           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolOwners = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "relays" [Relay] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'relays+           (\ x__ y__ -> x__ {_PoolRegistrationCert'relays = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "vec'relays" (Data.Vector.Vector Relay) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'relays+           (\ x__ y__ -> x__ {_PoolRegistrationCert'relays = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "poolMetadata" PoolMetadata where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'poolMetadata+           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolMetadata = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField PoolRegistrationCert "maybe'poolMetadata" (Prelude.Maybe PoolMetadata) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRegistrationCert'poolMetadata+           (\ x__ y__ -> x__ {_PoolRegistrationCert'poolMetadata = y__}))+        Prelude.id+instance Data.ProtoLens.Message PoolRegistrationCert where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.PoolRegistrationCert"+  packedMessageDescriptor _+    = "\n\+      \\DC4PoolRegistrationCert\DC2\SUB\n\+      \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\+      \\vvrf_keyhash\CAN\STX \SOH(\fR\n\+      \vrfKeyhash\DC2\SYN\n\+      \\ACKpledge\CAN\ETX \SOH(\EOTR\ACKpledge\DC2\DC2\n\+      \\EOTcost\CAN\EOT \SOH(\EOTR\EOTcost\DC2?\n\+      \\ACKmargin\CAN\ENQ \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmargin\DC2%\n\+      \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\+      \\vpool_owners\CAN\a \ETX(\fR\n\+      \poolOwners\DC26\n\+      \\ACKrelays\CAN\b \ETX(\v2\RS.utxorpc.v1alpha.cardano.RelayR\ACKrelays\DC2J\n\+      \\rpool_metadata\CAN\t \SOH(\v2%.utxorpc.v1alpha.cardano.PoolMetadataR\fpoolMetadata"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        operator__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "operator"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"operator")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        vrfKeyhash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "vrf_keyhash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"vrfKeyhash")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        pledge__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pledge"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"pledge")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        cost__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "cost"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"cost")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        margin__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "margin"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor RationalNumber)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'margin")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        rewardAccount__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "reward_account"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"rewardAccount")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        poolOwners__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pool_owners"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"poolOwners")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        relays__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "relays"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Relay)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"relays")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+        poolMetadata__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pool_metadata"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PoolMetadata)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'poolMetadata")) ::+              Data.ProtoLens.FieldDescriptor PoolRegistrationCert+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, operator__field_descriptor),+           (Data.ProtoLens.Tag 2, vrfKeyhash__field_descriptor),+           (Data.ProtoLens.Tag 3, pledge__field_descriptor),+           (Data.ProtoLens.Tag 4, cost__field_descriptor),+           (Data.ProtoLens.Tag 5, margin__field_descriptor),+           (Data.ProtoLens.Tag 6, rewardAccount__field_descriptor),+           (Data.ProtoLens.Tag 7, poolOwners__field_descriptor),+           (Data.ProtoLens.Tag 8, relays__field_descriptor),+           (Data.ProtoLens.Tag 9, poolMetadata__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _PoolRegistrationCert'_unknownFields+        (\ x__ y__ -> x__ {_PoolRegistrationCert'_unknownFields = y__})+  defMessage+    = PoolRegistrationCert'_constructor+        {_PoolRegistrationCert'operator = Data.ProtoLens.fieldDefault,+         _PoolRegistrationCert'vrfKeyhash = Data.ProtoLens.fieldDefault,+         _PoolRegistrationCert'pledge = Data.ProtoLens.fieldDefault,+         _PoolRegistrationCert'cost = Data.ProtoLens.fieldDefault,+         _PoolRegistrationCert'margin = Prelude.Nothing,+         _PoolRegistrationCert'rewardAccount = Data.ProtoLens.fieldDefault,+         _PoolRegistrationCert'poolOwners = Data.Vector.Generic.empty,+         _PoolRegistrationCert'relays = Data.Vector.Generic.empty,+         _PoolRegistrationCert'poolMetadata = Prelude.Nothing,+         _PoolRegistrationCert'_unknownFields = []}+  parseMessage+    = let+        loop ::+          PoolRegistrationCert+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString+             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Relay+                -> Data.ProtoLens.Encoding.Bytes.Parser PoolRegistrationCert+        loop x mutable'poolOwners mutable'relays+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'poolOwners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                                mutable'poolOwners)+                      frozen'relays <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                            mutable'relays)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'poolOwners") frozen'poolOwners+                              (Lens.Family2.set+                                 (Data.ProtoLens.Field.field @"vec'relays") frozen'relays x)))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "operator"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"operator") y x)+                                  mutable'poolOwners mutable'relays+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "vrf_keyhash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"vrfKeyhash") y x)+                                  mutable'poolOwners mutable'relays+                        24+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "pledge"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"pledge") y x)+                                  mutable'poolOwners mutable'relays+                        32+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "cost"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"cost") y x)+                                  mutable'poolOwners mutable'relays+                        42+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "margin"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"margin") y x)+                                  mutable'poolOwners mutable'relays+                        50+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "reward_account"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"rewardAccount") y x)+                                  mutable'poolOwners mutable'relays+                        58+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.getBytes+                                              (Prelude.fromIntegral len))+                                        "pool_owners"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'poolOwners y)+                                loop x v mutable'relays+                        66+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "relays"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'relays y)+                                loop x mutable'poolOwners v+                        74+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "pool_metadata"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"poolMetadata") y x)+                                  mutable'poolOwners mutable'relays+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'poolOwners mutable'relays+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'poolOwners <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                      Data.ProtoLens.Encoding.Growing.new+              mutable'relays <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                  Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'poolOwners mutable'relays)+          "PoolRegistrationCert"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"operator") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let+                   _v+                     = Lens.Family2.view (Data.ProtoLens.Field.field @"vrfKeyhash") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                ((Data.Monoid.<>)+                   (let+                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"pledge") _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 @"cost") _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.<>)+                         (case+                              Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'margin") _x+                          of+                            Prelude.Nothing -> Data.Monoid.mempty+                            (Prelude.Just _v)+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+                                   ((Prelude..)+                                      (\ bs+                                         -> (Data.Monoid.<>)+                                              (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))+                                              (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                      Data.ProtoLens.encodeMessage _v))+                         ((Data.Monoid.<>)+                            (let+                               _v+                                 = Lens.Family2.view+                                     (Data.ProtoLens.Field.field @"rewardAccount") _x+                             in+                               if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                                   Data.Monoid.mempty+                               else+                                   (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+                                     ((\ bs+                                         -> (Data.Monoid.<>)+                                              (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))+                                              (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                        _v))+                            ((Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                                  (\ _v+                                     -> (Data.Monoid.<>)+                                          (Data.ProtoLens.Encoding.Bytes.putVarInt 58)+                                          ((\ bs+                                              -> (Data.Monoid.<>)+                                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                      (Prelude.fromIntegral+                                                         (Data.ByteString.length bs)))+                                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                             _v))+                                  (Lens.Family2.view+                                     (Data.ProtoLens.Field.field @"vec'poolOwners") _x))+                               ((Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                                     (\ _v+                                        -> (Data.Monoid.<>)+                                             (Data.ProtoLens.Encoding.Bytes.putVarInt 66)+                                             ((Prelude..)+                                                (\ bs+                                                   -> (Data.Monoid.<>)+                                                        (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                           (Prelude.fromIntegral+                                                              (Data.ByteString.length bs)))+                                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                                Data.ProtoLens.encodeMessage _v))+                                     (Lens.Family2.view+                                        (Data.ProtoLens.Field.field @"vec'relays") _x))+                                  ((Data.Monoid.<>)+                                     (case+                                          Lens.Family2.view+                                            (Data.ProtoLens.Field.field @"maybe'poolMetadata") _x+                                      of+                                        Prelude.Nothing -> Data.Monoid.mempty+                                        (Prelude.Just _v)+                                          -> (Data.Monoid.<>)+                                               (Data.ProtoLens.Encoding.Bytes.putVarInt 74)+                                               ((Prelude..)+                                                  (\ bs+                                                     -> (Data.Monoid.<>)+                                                          (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                             (Prelude.fromIntegral+                                                                (Data.ByteString.length bs)))+                                                          (Data.ProtoLens.Encoding.Bytes.putBytes+                                                             bs))+                                                  Data.ProtoLens.encodeMessage _v))+                                     (Data.ProtoLens.Encoding.Wire.buildFieldSet+                                        (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))))))+instance Control.DeepSeq.NFData PoolRegistrationCert where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_PoolRegistrationCert'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_PoolRegistrationCert'operator x__)+                (Control.DeepSeq.deepseq+                   (_PoolRegistrationCert'vrfKeyhash x__)+                   (Control.DeepSeq.deepseq+                      (_PoolRegistrationCert'pledge x__)+                      (Control.DeepSeq.deepseq+                         (_PoolRegistrationCert'cost x__)+                         (Control.DeepSeq.deepseq+                            (_PoolRegistrationCert'margin x__)+                            (Control.DeepSeq.deepseq+                               (_PoolRegistrationCert'rewardAccount x__)+                               (Control.DeepSeq.deepseq+                                  (_PoolRegistrationCert'poolOwners x__)+                                  (Control.DeepSeq.deepseq+                                     (_PoolRegistrationCert'relays x__)+                                     (Control.DeepSeq.deepseq+                                        (_PoolRegistrationCert'poolMetadata x__) ())))))))))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' PoolRetirementCert Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.epoch' @:: Lens' PoolRetirementCert Data.Word.Word64@ -}+data PoolRetirementCert+  = PoolRetirementCert'_constructor {_PoolRetirementCert'poolKeyhash :: !Data.ByteString.ByteString,+                                     _PoolRetirementCert'epoch :: !Data.Word.Word64,+                                     _PoolRetirementCert'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show PoolRetirementCert where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField PoolRetirementCert "poolKeyhash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRetirementCert'poolKeyhash+           (\ x__ y__ -> x__ {_PoolRetirementCert'poolKeyhash = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField PoolRetirementCert "epoch" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _PoolRetirementCert'epoch+           (\ x__ y__ -> x__ {_PoolRetirementCert'epoch = y__}))+        Prelude.id+instance Data.ProtoLens.Message PoolRetirementCert where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.PoolRetirementCert"+  packedMessageDescriptor _+    = "\n\+      \\DC2PoolRetirementCert\DC2!\n\+      \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\+      \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        poolKeyhash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pool_keyhash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"poolKeyhash")) ::+              Data.ProtoLens.FieldDescriptor PoolRetirementCert+        epoch__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "epoch"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"epoch")) ::+              Data.ProtoLens.FieldDescriptor PoolRetirementCert+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, poolKeyhash__field_descriptor),+           (Data.ProtoLens.Tag 2, epoch__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _PoolRetirementCert'_unknownFields+        (\ x__ y__ -> x__ {_PoolRetirementCert'_unknownFields = y__})+  defMessage+    = PoolRetirementCert'_constructor+        {_PoolRetirementCert'poolKeyhash = Data.ProtoLens.fieldDefault,+         _PoolRetirementCert'epoch = Data.ProtoLens.fieldDefault,+         _PoolRetirementCert'_unknownFields = []}+  parseMessage+    = let+        loop ::+          PoolRetirementCert+          -> Data.ProtoLens.Encoding.Bytes.Parser PoolRetirementCert+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "pool_keyhash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x)+                        16+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "epoch"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"epoch") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "PoolRetirementCert"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v+                  = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let+                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"epoch") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData PoolRetirementCert where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_PoolRetirementCert'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_PoolRetirementCert'poolKeyhash x__)+                (Control.DeepSeq.deepseq (_PoolRetirementCert'epoch x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.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.Int32@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.denominator' @:: Lens' RationalNumber Data.Word.Word32@ -}+data RationalNumber+  = RationalNumber'_constructor {_RationalNumber'numerator :: !Data.Int.Int32,+                                 _RationalNumber'denominator :: !Data.Word.Word32,+                                 _RationalNumber'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show RationalNumber where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField RationalNumber "numerator" Data.Int.Int32 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _RationalNumber'numerator+           (\ x__ y__ -> x__ {_RationalNumber'numerator = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField RationalNumber "denominator" Data.Word.Word32 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _RationalNumber'denominator+           (\ x__ y__ -> x__ {_RationalNumber'denominator = y__}))+        Prelude.id+instance Data.ProtoLens.Message RationalNumber where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.RationalNumber"+  packedMessageDescriptor _+    = "\n\+      \\SORationalNumber\DC2\FS\n\+      \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\+      \\vdenominator\CAN\STX \SOH(\rR\vdenominator"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        numerator__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "numerator"+              (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"numerator")) ::+              Data.ProtoLens.FieldDescriptor RationalNumber+        denominator__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "denominator"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"denominator")) ::+              Data.ProtoLens.FieldDescriptor RationalNumber+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, numerator__field_descriptor),+           (Data.ProtoLens.Tag 2, denominator__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _RationalNumber'_unknownFields+        (\ x__ y__ -> x__ {_RationalNumber'_unknownFields = y__})+  defMessage+    = RationalNumber'_constructor+        {_RationalNumber'numerator = Data.ProtoLens.fieldDefault,+         _RationalNumber'denominator = Data.ProtoLens.fieldDefault,+         _RationalNumber'_unknownFields = []}+  parseMessage+    = let+        loop ::+          RationalNumber+          -> Data.ProtoLens.Encoding.Bytes.Parser RationalNumber+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "numerator"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"numerator") y x)+                        16+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "denominator"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"denominator") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "RationalNumber"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"numerator") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      ((Prelude..)+                         Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+             ((Data.Monoid.<>)+                (let+                   _v+                     = Lens.Family2.view (Data.ProtoLens.Field.field @"denominator") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+                         ((Prelude..)+                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData RationalNumber where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_RationalNumber'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_RationalNumber'numerator x__)+                (Control.DeepSeq.deepseq (_RationalNumber'denominator x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.purpose' @:: Lens' Redeemer RedeemerPurpose@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.payload' @:: Lens' Redeemer PlutusData@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'payload' @:: Lens' Redeemer (Prelude.Maybe PlutusData)@ -}+data Redeemer+  = Redeemer'_constructor {_Redeemer'purpose :: !RedeemerPurpose,+                           _Redeemer'payload :: !(Prelude.Maybe PlutusData),+                           _Redeemer'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Redeemer where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Redeemer "purpose" RedeemerPurpose where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Redeemer'purpose (\ x__ y__ -> x__ {_Redeemer'purpose = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Redeemer "payload" PlutusData where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Redeemer'payload (\ x__ y__ -> x__ {_Redeemer'payload = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Redeemer "maybe'payload" (Prelude.Maybe PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Redeemer'payload (\ x__ y__ -> x__ {_Redeemer'payload = y__}))+        Prelude.id+instance Data.ProtoLens.Message Redeemer where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Redeemer"+  packedMessageDescriptor _+    = "\n\+      \\bRedeemer\DC2B\n\+      \\apurpose\CAN\SOH \SOH(\SO2(.utxorpc.v1alpha.cardano.RedeemerPurposeR\apurpose\DC2=\n\+      \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\apayload"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        purpose__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "purpose"+              (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+                 Data.ProtoLens.FieldTypeDescriptor RedeemerPurpose)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"purpose")) ::+              Data.ProtoLens.FieldDescriptor Redeemer+        payload__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "payload"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusData)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'payload")) ::+              Data.ProtoLens.FieldDescriptor Redeemer+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, purpose__field_descriptor),+           (Data.ProtoLens.Tag 2, payload__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Redeemer'_unknownFields+        (\ x__ y__ -> x__ {_Redeemer'_unknownFields = y__})+  defMessage+    = Redeemer'_constructor+        {_Redeemer'purpose = Data.ProtoLens.fieldDefault,+         _Redeemer'payload = Prelude.Nothing, _Redeemer'_unknownFields = []}+  parseMessage+    = let+        loop :: Redeemer -> Data.ProtoLens.Encoding.Bytes.Parser Redeemer+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.toEnum+                                          (Prelude.fmap+                                             Prelude.fromIntegral+                                             Data.ProtoLens.Encoding.Bytes.getVarInt))+                                       "purpose"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"purpose") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "payload"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Redeemer"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"purpose") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      ((Prelude..)+                         ((Prelude..)+                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral)+                         Prelude.fromEnum _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData Redeemer where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Redeemer'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Redeemer'purpose x__)+                (Control.DeepSeq.deepseq (_Redeemer'payload x__) ()))+newtype RedeemerPurpose'UnrecognizedValue+  = RedeemerPurpose'UnrecognizedValue Data.Int.Int32+  deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show)+data RedeemerPurpose+  = REDEEMER_PURPOSE_UNSPECIFIED |+    REDEEMER_PURPOSE_SPEND |+    REDEEMER_PURPOSE_MINT |+    REDEEMER_PURPOSE_CERT |+    REDEEMER_PURPOSE_REWARD |+    RedeemerPurpose'Unrecognized !RedeemerPurpose'UnrecognizedValue+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.MessageEnum RedeemerPurpose where+  maybeToEnum 0 = Prelude.Just REDEEMER_PURPOSE_UNSPECIFIED+  maybeToEnum 1 = Prelude.Just REDEEMER_PURPOSE_SPEND+  maybeToEnum 2 = Prelude.Just REDEEMER_PURPOSE_MINT+  maybeToEnum 3 = Prelude.Just REDEEMER_PURPOSE_CERT+  maybeToEnum 4 = Prelude.Just REDEEMER_PURPOSE_REWARD+  maybeToEnum k+    = Prelude.Just+        (RedeemerPurpose'Unrecognized+           (RedeemerPurpose'UnrecognizedValue (Prelude.fromIntegral k)))+  showEnum REDEEMER_PURPOSE_UNSPECIFIED+    = "REDEEMER_PURPOSE_UNSPECIFIED"+  showEnum REDEEMER_PURPOSE_SPEND = "REDEEMER_PURPOSE_SPEND"+  showEnum REDEEMER_PURPOSE_MINT = "REDEEMER_PURPOSE_MINT"+  showEnum REDEEMER_PURPOSE_CERT = "REDEEMER_PURPOSE_CERT"+  showEnum REDEEMER_PURPOSE_REWARD = "REDEEMER_PURPOSE_REWARD"+  showEnum+    (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue k))+    = Prelude.show k+  readEnum k+    | (Prelude.==) k "REDEEMER_PURPOSE_UNSPECIFIED"+    = Prelude.Just REDEEMER_PURPOSE_UNSPECIFIED+    | (Prelude.==) k "REDEEMER_PURPOSE_SPEND"+    = Prelude.Just REDEEMER_PURPOSE_SPEND+    | (Prelude.==) k "REDEEMER_PURPOSE_MINT"+    = Prelude.Just REDEEMER_PURPOSE_MINT+    | (Prelude.==) k "REDEEMER_PURPOSE_CERT"+    = Prelude.Just REDEEMER_PURPOSE_CERT+    | (Prelude.==) k "REDEEMER_PURPOSE_REWARD"+    = Prelude.Just REDEEMER_PURPOSE_REWARD+    | Prelude.otherwise+    = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded RedeemerPurpose where+  minBound = REDEEMER_PURPOSE_UNSPECIFIED+  maxBound = REDEEMER_PURPOSE_REWARD+instance Prelude.Enum RedeemerPurpose where+  toEnum k__+    = Prelude.maybe+        (Prelude.error+           ((Prelude.++)+              "toEnum: unknown value for enum RedeemerPurpose: "+              (Prelude.show k__)))+        Prelude.id (Data.ProtoLens.maybeToEnum k__)+  fromEnum REDEEMER_PURPOSE_UNSPECIFIED = 0+  fromEnum REDEEMER_PURPOSE_SPEND = 1+  fromEnum REDEEMER_PURPOSE_MINT = 2+  fromEnum REDEEMER_PURPOSE_CERT = 3+  fromEnum REDEEMER_PURPOSE_REWARD = 4+  fromEnum+    (RedeemerPurpose'Unrecognized (RedeemerPurpose'UnrecognizedValue k))+    = Prelude.fromIntegral k+  succ REDEEMER_PURPOSE_REWARD+    = Prelude.error+        "RedeemerPurpose.succ: bad argument REDEEMER_PURPOSE_REWARD. This value would be out of bounds."+  succ REDEEMER_PURPOSE_UNSPECIFIED = REDEEMER_PURPOSE_SPEND+  succ REDEEMER_PURPOSE_SPEND = REDEEMER_PURPOSE_MINT+  succ REDEEMER_PURPOSE_MINT = REDEEMER_PURPOSE_CERT+  succ REDEEMER_PURPOSE_CERT = REDEEMER_PURPOSE_REWARD+  succ (RedeemerPurpose'Unrecognized _)+    = Prelude.error+        "RedeemerPurpose.succ: bad argument: unrecognized value"+  pred REDEEMER_PURPOSE_UNSPECIFIED+    = Prelude.error+        "RedeemerPurpose.pred: bad argument REDEEMER_PURPOSE_UNSPECIFIED. This value would be out of bounds."+  pred REDEEMER_PURPOSE_SPEND = REDEEMER_PURPOSE_UNSPECIFIED+  pred REDEEMER_PURPOSE_MINT = REDEEMER_PURPOSE_SPEND+  pred REDEEMER_PURPOSE_CERT = REDEEMER_PURPOSE_MINT+  pred REDEEMER_PURPOSE_REWARD = REDEEMER_PURPOSE_CERT+  pred (RedeemerPurpose'Unrecognized _)+    = Prelude.error+        "RedeemerPurpose.pred: bad argument: unrecognized value"+  enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+  enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+  enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+  enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.ProtoLens.FieldDefault RedeemerPurpose where+  fieldDefault = REDEEMER_PURPOSE_UNSPECIFIED+instance Control.DeepSeq.NFData RedeemerPurpose where+  rnf x__ = Prelude.seq x__ ()+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ipV4' @:: Lens' Relay Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ipV6' @:: Lens' Relay Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.dnsName' @:: Lens' Relay Data.Text.Text@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.port' @:: Lens' Relay Data.Word.Word32@ -}+data Relay+  = Relay'_constructor {_Relay'ipV4 :: !Data.ByteString.ByteString,+                        _Relay'ipV6 :: !Data.ByteString.ByteString,+                        _Relay'dnsName :: !Data.Text.Text,+                        _Relay'port :: !Data.Word.Word32,+                        _Relay'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Relay where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Relay "ipV4" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Relay'ipV4 (\ x__ y__ -> x__ {_Relay'ipV4 = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Relay "ipV6" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Relay'ipV6 (\ x__ y__ -> x__ {_Relay'ipV6 = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Relay "dnsName" Data.Text.Text where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Relay'dnsName (\ x__ y__ -> x__ {_Relay'dnsName = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Relay "port" Data.Word.Word32 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Relay'port (\ x__ y__ -> x__ {_Relay'port = y__}))+        Prelude.id+instance Data.ProtoLens.Message Relay where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Relay"+  packedMessageDescriptor _+    = "\n\+      \\ENQRelay\DC2\DC3\n\+      \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\+      \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\+      \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\+      \\EOTport\CAN\EOT \SOH(\rR\EOTport"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        ipV4__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "ip_v4"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ipV4")) ::+              Data.ProtoLens.FieldDescriptor Relay+        ipV6__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "ip_v6"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ipV6")) ::+              Data.ProtoLens.FieldDescriptor Relay+        dnsName__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "dns_name"+              (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"dnsName")) ::+              Data.ProtoLens.FieldDescriptor Relay+        port__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "port"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"port")) ::+              Data.ProtoLens.FieldDescriptor Relay+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, ipV4__field_descriptor),+           (Data.ProtoLens.Tag 2, ipV6__field_descriptor),+           (Data.ProtoLens.Tag 3, dnsName__field_descriptor),+           (Data.ProtoLens.Tag 4, port__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Relay'_unknownFields+        (\ x__ y__ -> x__ {_Relay'_unknownFields = y__})+  defMessage+    = Relay'_constructor+        {_Relay'ipV4 = Data.ProtoLens.fieldDefault,+         _Relay'ipV6 = Data.ProtoLens.fieldDefault,+         _Relay'dnsName = Data.ProtoLens.fieldDefault,+         _Relay'port = Data.ProtoLens.fieldDefault,+         _Relay'_unknownFields = []}+  parseMessage+    = let+        loop :: Relay -> Data.ProtoLens.Encoding.Bytes.Parser Relay+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "ip_v4"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ipV4") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "ip_v6"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ipV6") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getText+                                             (Prelude.fromIntegral len))+                                       "dns_name"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"dnsName") y x)+                        32+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "port"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"port") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Relay"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ipV4") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ipV6") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                ((Data.Monoid.<>)+                   (let+                      _v = Lens.Family2.view (Data.ProtoLens.Field.field @"dnsName") _x+                    in+                      if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                          Data.Monoid.mempty+                      else+                          (Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                            ((Prelude..)+                               (\ bs+                                  -> (Data.Monoid.<>)+                                       (Data.ProtoLens.Encoding.Bytes.putVarInt+                                          (Prelude.fromIntegral (Data.ByteString.length bs)))+                                       (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                               Data.Text.Encoding.encodeUtf8 _v))+                   ((Data.Monoid.<>)+                      (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"port") _x+                       in+                         if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                             Data.Monoid.mempty+                         else+                             (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt 32)+                               ((Prelude..)+                                  Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+                      (Data.ProtoLens.Encoding.Wire.buildFieldSet+                         (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))+instance Control.DeepSeq.NFData Relay where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Relay'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Relay'ipV4 x__)+                (Control.DeepSeq.deepseq+                   (_Relay'ipV6 x__)+                   (Control.DeepSeq.deepseq+                      (_Relay'dnsName x__)+                      (Control.DeepSeq.deepseq (_Relay'port x__) ()))))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'script' @:: Lens' Script (Prelude.Maybe Script'Script)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'native' @:: Lens' Script (Prelude.Maybe NativeScript)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.native' @:: Lens' Script NativeScript@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV1' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV1' @:: Lens' Script Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'plutusV2' @:: Lens' Script (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusV2' @:: Lens' Script Data.ByteString.ByteString@ -}+data Script+  = Script'_constructor {_Script'script :: !(Prelude.Maybe Script'Script),+                         _Script'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Script where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data Script'Script+  = Script'Native !NativeScript |+    Script'PlutusV1 !Data.ByteString.ByteString |+    Script'PlutusV2 !Data.ByteString.ByteString+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField Script "maybe'script" (Prelude.Maybe Script'Script) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Script "maybe'native" (Prelude.Maybe NativeScript) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Script'Native y__))+instance Data.ProtoLens.Field.HasField Script "native" NativeScript where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Script'Native x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Script'Native y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))+instance Data.ProtoLens.Field.HasField Script "maybe'plutusV1" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__))+instance Data.ProtoLens.Field.HasField Script "plutusV1" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Script'PlutusV1 x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Script'PlutusV1 y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField Script "maybe'plutusV2" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__))+instance Data.ProtoLens.Field.HasField Script "plutusV2" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Script'script (\ x__ y__ -> x__ {_Script'script = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (Script'PlutusV2 x__val)) -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap Script'PlutusV2 y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Message Script where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Script"+  packedMessageDescriptor _+    = "\n\+      \\ACKScript\DC2?\n\+      \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\+      \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\+      \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2B\b\n\+      \\ACKscript"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        native__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "native"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor NativeScript)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'native")) ::+              Data.ProtoLens.FieldDescriptor Script+        plutusV1__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "plutus_v1"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'plutusV1")) ::+              Data.ProtoLens.FieldDescriptor Script+        plutusV2__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "plutus_v2"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'plutusV2")) ::+              Data.ProtoLens.FieldDescriptor Script+      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)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Script'_unknownFields+        (\ x__ y__ -> x__ {_Script'_unknownFields = y__})+  defMessage+    = Script'_constructor+        {_Script'script = Prelude.Nothing, _Script'_unknownFields = []}+  parseMessage+    = let+        loop :: Script -> Data.ProtoLens.Encoding.Bytes.Parser Script+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "native"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"native") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "plutus_v1"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV1") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "plutus_v2"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"plutusV2") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Script"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'script") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just (Script'Native v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage v)+                (Prelude.Just (Script'PlutusV1 v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v)+                (Prelude.Just (Script'PlutusV2 v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v))+             (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__+_Script'Native ::+  Data.ProtoLens.Prism.Prism' Script'Script NativeScript+_Script'Native+  = Data.ProtoLens.Prism.prism'+      Script'Native+      (\ p__+         -> case p__ of+              (Script'Native p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Script'PlutusV1 ::+  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString+_Script'PlutusV1+  = Data.ProtoLens.Prism.prism'+      Script'PlutusV1+      (\ p__+         -> case p__ of+              (Script'PlutusV1 p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_Script'PlutusV2 ::+  Data.ProtoLens.Prism.Prism' Script'Script Data.ByteString.ByteString+_Script'PlutusV2+  = Data.ProtoLens.Prism.prism'+      Script'PlutusV2+      (\ p__+         -> case p__ of+              (Script'PlutusV2 p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.k' @:: Lens' ScriptNOfK Data.Word.Word32@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scripts' @:: Lens' ScriptNOfK [NativeScript]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'scripts' @:: Lens' ScriptNOfK (Data.Vector.Vector NativeScript)@ -}+data ScriptNOfK+  = ScriptNOfK'_constructor {_ScriptNOfK'k :: !Data.Word.Word32,+                             _ScriptNOfK'scripts :: !(Data.Vector.Vector NativeScript),+                             _ScriptNOfK'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show ScriptNOfK where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField ScriptNOfK "k" Data.Word.Word32 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _ScriptNOfK'k (\ x__ y__ -> x__ {_ScriptNOfK'k = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField ScriptNOfK "scripts" [NativeScript] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField ScriptNOfK "vec'scripts" (Data.Vector.Vector NativeScript) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _ScriptNOfK'scripts (\ x__ y__ -> x__ {_ScriptNOfK'scripts = y__}))+        Prelude.id+instance Data.ProtoLens.Message ScriptNOfK where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.ScriptNOfK"+  packedMessageDescriptor _+    = "\n\+      \\n\+      \ScriptNOfK\DC2\f\n\+      \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\+      \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        k__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "k"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"k")) ::+              Data.ProtoLens.FieldDescriptor ScriptNOfK+        scripts__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "scripts"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor NativeScript)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"scripts")) ::+              Data.ProtoLens.FieldDescriptor ScriptNOfK+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, k__field_descriptor),+           (Data.ProtoLens.Tag 2, scripts__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _ScriptNOfK'_unknownFields+        (\ x__ y__ -> x__ {_ScriptNOfK'_unknownFields = y__})+  defMessage+    = ScriptNOfK'_constructor+        {_ScriptNOfK'k = Data.ProtoLens.fieldDefault,+         _ScriptNOfK'scripts = Data.Vector.Generic.empty,+         _ScriptNOfK'_unknownFields = []}+  parseMessage+    = let+        loop ::+          ScriptNOfK+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NativeScript+             -> Data.ProtoLens.Encoding.Bytes.Parser ScriptNOfK+        loop x mutable'scripts+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                             mutable'scripts)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'scripts") frozen'scripts x))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "k"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"k") y x)+                                  mutable'scripts+                        18+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "scripts"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'scripts y)+                                loop x v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'scripts+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'scripts <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                   Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'scripts)+          "ScriptNOfK"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"k") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      ((Prelude..)+                         Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+             ((Data.Monoid.<>)+                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                   (\ _v+                      -> (Data.Monoid.<>)+                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                           ((Prelude..)+                              (\ bs+                                 -> (Data.Monoid.<>)+                                      (Data.ProtoLens.Encoding.Bytes.putVarInt+                                         (Prelude.fromIntegral (Data.ByteString.length bs)))+                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                              Data.ProtoLens.encodeMessage _v))+                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'scripts") _x))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData ScriptNOfK where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_ScriptNOfK'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_ScriptNOfK'k x__)+                (Control.DeepSeq.deepseq (_ScriptNOfK'scripts x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeCredential (Prelude.Maybe StakeCredential'StakeCredential)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'addrKeyHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.addrKeyHash' @:: Lens' StakeCredential Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'scriptHash' @:: Lens' StakeCredential (Prelude.Maybe Data.ByteString.ByteString)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.scriptHash' @:: Lens' StakeCredential Data.ByteString.ByteString@ -}+data StakeCredential+  = StakeCredential'_constructor {_StakeCredential'stakeCredential :: !(Prelude.Maybe StakeCredential'StakeCredential),+                                  _StakeCredential'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show StakeCredential where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+data StakeCredential'StakeCredential+  = StakeCredential'AddrKeyHash !Data.ByteString.ByteString |+    StakeCredential'ScriptHash !Data.ByteString.ByteString+  deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance Data.ProtoLens.Field.HasField StakeCredential "maybe'stakeCredential" (Prelude.Maybe StakeCredential'StakeCredential) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeCredential'stakeCredential+           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField StakeCredential "maybe'addrKeyHash" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeCredential'stakeCredential+           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (StakeCredential'AddrKeyHash x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap StakeCredential'AddrKeyHash y__))+instance Data.ProtoLens.Field.HasField StakeCredential "addrKeyHash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeCredential'stakeCredential+           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (StakeCredential'AddrKeyHash x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap StakeCredential'AddrKeyHash y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Field.HasField StakeCredential "maybe'scriptHash" (Prelude.Maybe Data.ByteString.ByteString) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeCredential'stakeCredential+           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))+        (Lens.Family2.Unchecked.lens+           (\ x__+              -> case x__ of+                   (Prelude.Just (StakeCredential'ScriptHash x__val))+                     -> Prelude.Just x__val+                   _otherwise -> Prelude.Nothing)+           (\ _ y__ -> Prelude.fmap StakeCredential'ScriptHash y__))+instance Data.ProtoLens.Field.HasField StakeCredential "scriptHash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeCredential'stakeCredential+           (\ x__ y__ -> x__ {_StakeCredential'stakeCredential = y__}))+        ((Prelude..)+           (Lens.Family2.Unchecked.lens+              (\ x__+                 -> case x__ of+                      (Prelude.Just (StakeCredential'ScriptHash x__val))+                        -> Prelude.Just x__val+                      _otherwise -> Prelude.Nothing)+              (\ _ y__ -> Prelude.fmap StakeCredential'ScriptHash y__))+           (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.ProtoLens.Message StakeCredential where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.StakeCredential"+  packedMessageDescriptor _+    = "\n\+      \\SIStakeCredential\DC2$\n\+      \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\+      \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\+      \scriptHashB\DC2\n\+      \\DLEstake_credential"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        addrKeyHash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "addr_key_hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'addrKeyHash")) ::+              Data.ProtoLens.FieldDescriptor StakeCredential+        scriptHash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "script_hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'scriptHash")) ::+              Data.ProtoLens.FieldDescriptor StakeCredential+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, addrKeyHash__field_descriptor),+           (Data.ProtoLens.Tag 2, scriptHash__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _StakeCredential'_unknownFields+        (\ x__ y__ -> x__ {_StakeCredential'_unknownFields = y__})+  defMessage+    = StakeCredential'_constructor+        {_StakeCredential'stakeCredential = Prelude.Nothing,+         _StakeCredential'_unknownFields = []}+  parseMessage+    = let+        loop ::+          StakeCredential+          -> Data.ProtoLens.Encoding.Bytes.Parser StakeCredential+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "addr_key_hash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"addrKeyHash") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "script_hash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"scriptHash") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "StakeCredential"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view+                    (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just (StakeCredential'AddrKeyHash v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v)+                (Prelude.Just (StakeCredential'ScriptHash v))+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                       ((\ bs+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt+                                   (Prelude.fromIntegral (Data.ByteString.length bs)))+                                (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          v))+             (Data.ProtoLens.Encoding.Wire.buildFieldSet+                (Lens.Family2.view Data.ProtoLens.unknownFields _x))+instance Control.DeepSeq.NFData StakeCredential where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_StakeCredential'_unknownFields x__)+             (Control.DeepSeq.deepseq (_StakeCredential'stakeCredential x__) ())+instance Control.DeepSeq.NFData StakeCredential'StakeCredential where+  rnf (StakeCredential'AddrKeyHash x__) = Control.DeepSeq.rnf x__+  rnf (StakeCredential'ScriptHash x__) = Control.DeepSeq.rnf x__+_StakeCredential'AddrKeyHash ::+  Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString+_StakeCredential'AddrKeyHash+  = Data.ProtoLens.Prism.prism'+      StakeCredential'AddrKeyHash+      (\ p__+         -> case p__ of+              (StakeCredential'AddrKeyHash p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+_StakeCredential'ScriptHash ::+  Data.ProtoLens.Prism.Prism' StakeCredential'StakeCredential Data.ByteString.ByteString+_StakeCredential'ScriptHash+  = Data.ProtoLens.Prism.prism'+      StakeCredential'ScriptHash+      (\ p__+         -> case p__ of+              (StakeCredential'ScriptHash p__val) -> Prelude.Just p__val+              _otherwise -> Prelude.Nothing)+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.stakeCredential' @:: Lens' StakeDelegationCert StakeCredential@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'stakeCredential' @:: Lens' StakeDelegationCert (Prelude.Maybe StakeCredential)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.poolKeyhash' @:: Lens' StakeDelegationCert Data.ByteString.ByteString@ -}+data StakeDelegationCert+  = StakeDelegationCert'_constructor {_StakeDelegationCert'stakeCredential :: !(Prelude.Maybe StakeCredential),+                                      _StakeDelegationCert'poolKeyhash :: !Data.ByteString.ByteString,+                                      _StakeDelegationCert'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show StakeDelegationCert where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField StakeDelegationCert "stakeCredential" StakeCredential where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeDelegationCert'stakeCredential+           (\ x__ y__ -> x__ {_StakeDelegationCert'stakeCredential = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField StakeDelegationCert "maybe'stakeCredential" (Prelude.Maybe StakeCredential) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeDelegationCert'stakeCredential+           (\ x__ y__ -> x__ {_StakeDelegationCert'stakeCredential = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField StakeDelegationCert "poolKeyhash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _StakeDelegationCert'poolKeyhash+           (\ x__ y__ -> x__ {_StakeDelegationCert'poolKeyhash = y__}))+        Prelude.id+instance Data.ProtoLens.Message StakeDelegationCert where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.StakeDelegationCert"+  packedMessageDescriptor _+    = "\n\+      \\DC3StakeDelegationCert\DC2S\n\+      \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\+      \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        stakeCredential__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "stake_credential"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor StakeCredential)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'stakeCredential")) ::+              Data.ProtoLens.FieldDescriptor StakeDelegationCert+        poolKeyhash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "pool_keyhash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"poolKeyhash")) ::+              Data.ProtoLens.FieldDescriptor StakeDelegationCert+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, stakeCredential__field_descriptor),+           (Data.ProtoLens.Tag 2, poolKeyhash__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _StakeDelegationCert'_unknownFields+        (\ x__ y__ -> x__ {_StakeDelegationCert'_unknownFields = y__})+  defMessage+    = StakeDelegationCert'_constructor+        {_StakeDelegationCert'stakeCredential = Prelude.Nothing,+         _StakeDelegationCert'poolKeyhash = Data.ProtoLens.fieldDefault,+         _StakeDelegationCert'_unknownFields = []}+  parseMessage+    = let+        loop ::+          StakeDelegationCert+          -> Data.ProtoLens.Encoding.Bytes.Parser StakeDelegationCert+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "stake_credential"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"stakeCredential") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "pool_keyhash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"poolKeyhash") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "StakeDelegationCert"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view+                    (Data.ProtoLens.Field.field @"maybe'stakeCredential") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (let+                   _v+                     = Lens.Family2.view (Data.ProtoLens.Field.field @"poolKeyhash") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData StakeDelegationCert where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_StakeDelegationCert'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_StakeDelegationCert'stakeCredential x__)+                (Control.DeepSeq.deepseq+                   (_StakeDelegationCert'poolKeyhash x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.inputs' @:: Lens' Tx [TxInput]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'inputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputs' @:: Lens' Tx [TxOutput]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'outputs' @:: Lens' Tx (Data.Vector.Vector TxOutput)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.certificates' @:: Lens' Tx [Certificate]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'certificates' @:: Lens' Tx (Data.Vector.Vector Certificate)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.withdrawals' @:: Lens' Tx [Withdrawal]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'withdrawals' @:: Lens' Tx (Data.Vector.Vector Withdrawal)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mint' @:: Lens' Tx [Multiasset]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'mint' @:: Lens' Tx (Data.Vector.Vector Multiasset)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.referenceInputs' @:: Lens' Tx [TxInput]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'referenceInputs' @:: Lens' Tx (Data.Vector.Vector TxInput)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.witnesses' @:: Lens' Tx WitnessSet@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'witnesses' @:: Lens' Tx (Prelude.Maybe WitnessSet)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.collateral' @:: Lens' Tx Collateral@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'collateral' @:: Lens' Tx (Prelude.Maybe Collateral)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fee' @:: Lens' Tx Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.validity' @:: Lens' Tx TxValidity@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'validity' @:: Lens' Tx (Prelude.Maybe TxValidity)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.successful' @:: Lens' Tx Prelude.Bool@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.auxiliary' @:: Lens' Tx AuxData@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'auxiliary' @:: Lens' Tx (Prelude.Maybe AuxData)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hash' @:: Lens' Tx Data.ByteString.ByteString@ -}+data Tx+  = Tx'_constructor {_Tx'inputs :: !(Data.Vector.Vector TxInput),+                     _Tx'outputs :: !(Data.Vector.Vector TxOutput),+                     _Tx'certificates :: !(Data.Vector.Vector Certificate),+                     _Tx'withdrawals :: !(Data.Vector.Vector Withdrawal),+                     _Tx'mint :: !(Data.Vector.Vector Multiasset),+                     _Tx'referenceInputs :: !(Data.Vector.Vector TxInput),+                     _Tx'witnesses :: !(Prelude.Maybe WitnessSet),+                     _Tx'collateral :: !(Prelude.Maybe Collateral),+                     _Tx'fee :: !Data.Word.Word64,+                     _Tx'validity :: !(Prelude.Maybe TxValidity),+                     _Tx'successful :: !Prelude.Bool,+                     _Tx'auxiliary :: !(Prelude.Maybe AuxData),+                     _Tx'hash :: !Data.ByteString.ByteString,+                     _Tx'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Tx where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Tx "inputs" [TxInput] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'inputs (\ x__ y__ -> x__ {_Tx'inputs = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Tx "vec'inputs" (Data.Vector.Vector TxInput) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'inputs (\ x__ y__ -> x__ {_Tx'inputs = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "outputs" [TxOutput] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'outputs (\ x__ y__ -> x__ {_Tx'outputs = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Tx "vec'outputs" (Data.Vector.Vector TxOutput) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'outputs (\ x__ y__ -> x__ {_Tx'outputs = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "certificates" [Certificate] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'certificates (\ x__ y__ -> x__ {_Tx'certificates = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Tx "vec'certificates" (Data.Vector.Vector Certificate) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'certificates (\ x__ y__ -> x__ {_Tx'certificates = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "withdrawals" [Withdrawal] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'withdrawals (\ x__ y__ -> x__ {_Tx'withdrawals = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Tx "vec'withdrawals" (Data.Vector.Vector Withdrawal) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'withdrawals (\ x__ y__ -> x__ {_Tx'withdrawals = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "mint" [Multiasset] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'mint (\ x__ y__ -> x__ {_Tx'mint = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Tx "vec'mint" (Data.Vector.Vector Multiasset) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'mint (\ x__ y__ -> x__ {_Tx'mint = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "referenceInputs" [TxInput] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'referenceInputs (\ x__ y__ -> x__ {_Tx'referenceInputs = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField Tx "vec'referenceInputs" (Data.Vector.Vector TxInput) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'referenceInputs (\ x__ y__ -> x__ {_Tx'referenceInputs = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "witnesses" WitnessSet where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'witnesses (\ x__ y__ -> x__ {_Tx'witnesses = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Tx "maybe'witnesses" (Prelude.Maybe WitnessSet) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'witnesses (\ x__ y__ -> x__ {_Tx'witnesses = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "collateral" Collateral where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'collateral (\ x__ y__ -> x__ {_Tx'collateral = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Tx "maybe'collateral" (Prelude.Maybe Collateral) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'collateral (\ x__ y__ -> x__ {_Tx'collateral = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "fee" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'fee (\ x__ y__ -> x__ {_Tx'fee = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "validity" TxValidity where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'validity (\ x__ y__ -> x__ {_Tx'validity = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Tx "maybe'validity" (Prelude.Maybe TxValidity) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'validity (\ x__ y__ -> x__ {_Tx'validity = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "successful" Prelude.Bool where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'successful (\ x__ y__ -> x__ {_Tx'successful = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "auxiliary" AuxData where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'auxiliary (\ x__ y__ -> x__ {_Tx'auxiliary = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Tx "maybe'auxiliary" (Prelude.Maybe AuxData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'auxiliary (\ x__ y__ -> x__ {_Tx'auxiliary = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Tx "hash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Tx'hash (\ x__ y__ -> x__ {_Tx'hash = y__}))+        Prelude.id+instance Data.ProtoLens.Message Tx where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Tx"+  packedMessageDescriptor _+    = "\n\+      \\STXTx\DC28\n\+      \\ACKinputs\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\ACKinputs\DC2;\n\+      \\aoutputs\CAN\STX \ETX(\v2!.utxorpc.v1alpha.cardano.TxOutputR\aoutputs\DC2H\n\+      \\fcertificates\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.cardano.CertificateR\fcertificates\DC2E\n\+      \\vwithdrawals\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.cardano.WithdrawalR\vwithdrawals\DC27\n\+      \\EOTmint\CAN\ENQ \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\EOTmint\DC2K\n\+      \\DLEreference_inputs\CAN\ACK \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\SIreferenceInputs\DC2A\n\+      \\twitnesses\CAN\a \SOH(\v2#.utxorpc.v1alpha.cardano.WitnessSetR\twitnesses\DC2C\n\+      \\n\+      \collateral\CAN\b \SOH(\v2#.utxorpc.v1alpha.cardano.CollateralR\n\+      \collateral\DC2\DLE\n\+      \\ETXfee\CAN\t \SOH(\EOTR\ETXfee\DC2?\n\+      \\bvalidity\CAN\n\+      \ \SOH(\v2#.utxorpc.v1alpha.cardano.TxValidityR\bvalidity\DC2\RS\n\+      \\n\+      \successful\CAN\v \SOH(\bR\n\+      \successful\DC2>\n\+      \\tauxiliary\CAN\f \SOH(\v2 .utxorpc.v1alpha.cardano.AuxDataR\tauxiliary\DC2\DC2\n\+      \\EOThash\CAN\r \SOH(\fR\EOThash"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        inputs__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "inputs"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxInput)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"inputs")) ::+              Data.ProtoLens.FieldDescriptor Tx+        outputs__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "outputs"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxOutput)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"outputs")) ::+              Data.ProtoLens.FieldDescriptor Tx+        certificates__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "certificates"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Certificate)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"certificates")) ::+              Data.ProtoLens.FieldDescriptor Tx+        withdrawals__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "withdrawals"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Withdrawal)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"withdrawals")) ::+              Data.ProtoLens.FieldDescriptor Tx+        mint__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "mint"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Multiasset)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"mint")) ::+              Data.ProtoLens.FieldDescriptor Tx+        referenceInputs__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "reference_inputs"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxInput)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"referenceInputs")) ::+              Data.ProtoLens.FieldDescriptor Tx+        witnesses__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "witnesses"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor WitnessSet)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'witnesses")) ::+              Data.ProtoLens.FieldDescriptor Tx+        collateral__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "collateral"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Collateral)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'collateral")) ::+              Data.ProtoLens.FieldDescriptor Tx+        fee__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "fee"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fee")) ::+              Data.ProtoLens.FieldDescriptor Tx+        validity__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "validity"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxValidity)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'validity")) ::+              Data.ProtoLens.FieldDescriptor Tx+        successful__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "successful"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"successful")) ::+              Data.ProtoLens.FieldDescriptor Tx+        auxiliary__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "auxiliary"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor AuxData)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'auxiliary")) ::+              Data.ProtoLens.FieldDescriptor Tx+        hash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) ::+              Data.ProtoLens.FieldDescriptor Tx+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, inputs__field_descriptor),+           (Data.ProtoLens.Tag 2, outputs__field_descriptor),+           (Data.ProtoLens.Tag 3, certificates__field_descriptor),+           (Data.ProtoLens.Tag 4, withdrawals__field_descriptor),+           (Data.ProtoLens.Tag 5, mint__field_descriptor),+           (Data.ProtoLens.Tag 6, referenceInputs__field_descriptor),+           (Data.ProtoLens.Tag 7, witnesses__field_descriptor),+           (Data.ProtoLens.Tag 8, collateral__field_descriptor),+           (Data.ProtoLens.Tag 9, fee__field_descriptor),+           (Data.ProtoLens.Tag 10, validity__field_descriptor),+           (Data.ProtoLens.Tag 11, successful__field_descriptor),+           (Data.ProtoLens.Tag 12, auxiliary__field_descriptor),+           (Data.ProtoLens.Tag 13, hash__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Tx'_unknownFields (\ x__ y__ -> x__ {_Tx'_unknownFields = y__})+  defMessage+    = Tx'_constructor+        {_Tx'inputs = Data.Vector.Generic.empty,+         _Tx'outputs = Data.Vector.Generic.empty,+         _Tx'certificates = Data.Vector.Generic.empty,+         _Tx'withdrawals = Data.Vector.Generic.empty,+         _Tx'mint = Data.Vector.Generic.empty,+         _Tx'referenceInputs = Data.Vector.Generic.empty,+         _Tx'witnesses = Prelude.Nothing, _Tx'collateral = Prelude.Nothing,+         _Tx'fee = Data.ProtoLens.fieldDefault,+         _Tx'validity = Prelude.Nothing,+         _Tx'successful = Data.ProtoLens.fieldDefault,+         _Tx'auxiliary = Prelude.Nothing,+         _Tx'hash = Data.ProtoLens.fieldDefault, _Tx'_unknownFields = []}+  parseMessage+    = let+        loop ::+          Tx+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Certificate+             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput+                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Multiasset+                   -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxOutput+                      -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInput+                         -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Withdrawal+                            -> Data.ProtoLens.Encoding.Bytes.Parser Tx+        loop+          x+          mutable'certificates+          mutable'inputs+          mutable'mint+          mutable'outputs+          mutable'referenceInputs+          mutable'withdrawals+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'certificates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                               (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                                  mutable'certificates)+                      frozen'inputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                            mutable'inputs)+                      frozen'mint <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'mint)+                      frozen'outputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                             mutable'outputs)+                      frozen'referenceInputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                                  (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                                     mutable'referenceInputs)+                      frozen'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                              (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                                 mutable'withdrawals)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'certificates")+                              frozen'certificates+                              (Lens.Family2.set+                                 (Data.ProtoLens.Field.field @"vec'inputs") frozen'inputs+                                 (Lens.Family2.set+                                    (Data.ProtoLens.Field.field @"vec'mint") frozen'mint+                                    (Lens.Family2.set+                                       (Data.ProtoLens.Field.field @"vec'outputs") frozen'outputs+                                       (Lens.Family2.set+                                          (Data.ProtoLens.Field.field @"vec'referenceInputs")+                                          frozen'referenceInputs+                                          (Lens.Family2.set+                                             (Data.ProtoLens.Field.field @"vec'withdrawals")+                                             frozen'withdrawals x)))))))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "inputs"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'inputs y)+                                loop+                                  x mutable'certificates v mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        18+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "outputs"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'outputs y)+                                loop+                                  x mutable'certificates mutable'inputs mutable'mint v+                                  mutable'referenceInputs mutable'withdrawals+                        26+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "certificates"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append+                                          mutable'certificates y)+                                loop+                                  x v mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        34+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "withdrawals"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append+                                          mutable'withdrawals y)+                                loop+                                  x mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs v+                        42+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "mint"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'mint y)+                                loop+                                  x mutable'certificates mutable'inputs v mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        50+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "reference_inputs"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append+                                          mutable'referenceInputs y)+                                loop+                                  x mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  v mutable'withdrawals+                        58+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "witnesses"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"witnesses") y x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        66+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "collateral"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"collateral") y x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        72+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "fee"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        82+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "validity"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"validity") y x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        88+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "successful"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"successful") y x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        98+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "auxiliary"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"auxiliary") y x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        106+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "hash"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'certificates mutable'inputs mutable'mint mutable'outputs+                                  mutable'referenceInputs mutable'withdrawals+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'certificates <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                        Data.ProtoLens.Encoding.Growing.new+              mutable'inputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                  Data.ProtoLens.Encoding.Growing.new+              mutable'mint <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                Data.ProtoLens.Encoding.Growing.new+              mutable'outputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                   Data.ProtoLens.Encoding.Growing.new+              mutable'referenceInputs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                           Data.ProtoLens.Encoding.Growing.new+              mutable'withdrawals <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       Data.ProtoLens.Encoding.Growing.new+              loop+                Data.ProtoLens.defMessage mutable'certificates mutable'inputs+                mutable'mint mutable'outputs mutable'referenceInputs+                mutable'withdrawals)+          "Tx"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'inputs") _x))+             ((Data.Monoid.<>)+                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                   (\ _v+                      -> (Data.Monoid.<>)+                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                           ((Prelude..)+                              (\ bs+                                 -> (Data.Monoid.<>)+                                      (Data.ProtoLens.Encoding.Bytes.putVarInt+                                         (Prelude.fromIntegral (Data.ByteString.length bs)))+                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                              Data.ProtoLens.encodeMessage _v))+                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'outputs") _x))+                ((Data.Monoid.<>)+                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                      (\ _v+                         -> (Data.Monoid.<>)+                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                              ((Prelude..)+                                 (\ bs+                                    -> (Data.Monoid.<>)+                                         (Data.ProtoLens.Encoding.Bytes.putVarInt+                                            (Prelude.fromIntegral (Data.ByteString.length bs)))+                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                 Data.ProtoLens.encodeMessage _v))+                      (Lens.Family2.view+                         (Data.ProtoLens.Field.field @"vec'certificates") _x))+                   ((Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                         (\ _v+                            -> (Data.Monoid.<>)+                                 (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                                 ((Prelude..)+                                    (\ bs+                                       -> (Data.Monoid.<>)+                                            (Data.ProtoLens.Encoding.Bytes.putVarInt+                                               (Prelude.fromIntegral (Data.ByteString.length bs)))+                                            (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                    Data.ProtoLens.encodeMessage _v))+                         (Lens.Family2.view+                            (Data.ProtoLens.Field.field @"vec'withdrawals") _x))+                      ((Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                            (\ _v+                               -> (Data.Monoid.<>)+                                    (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+                                    ((Prelude..)+                                       (\ bs+                                          -> (Data.Monoid.<>)+                                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                  (Prelude.fromIntegral+                                                     (Data.ByteString.length bs)))+                                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                       Data.ProtoLens.encodeMessage _v))+                            (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'mint") _x))+                         ((Data.Monoid.<>)+                            (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                               (\ _v+                                  -> (Data.Monoid.<>)+                                       (Data.ProtoLens.Encoding.Bytes.putVarInt 50)+                                       ((Prelude..)+                                          (\ bs+                                             -> (Data.Monoid.<>)+                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                     (Prelude.fromIntegral+                                                        (Data.ByteString.length bs)))+                                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                          Data.ProtoLens.encodeMessage _v))+                               (Lens.Family2.view+                                  (Data.ProtoLens.Field.field @"vec'referenceInputs") _x))+                            ((Data.Monoid.<>)+                               (case+                                    Lens.Family2.view+                                      (Data.ProtoLens.Field.field @"maybe'witnesses") _x+                                of+                                  Prelude.Nothing -> Data.Monoid.mempty+                                  (Prelude.Just _v)+                                    -> (Data.Monoid.<>)+                                         (Data.ProtoLens.Encoding.Bytes.putVarInt 58)+                                         ((Prelude..)+                                            (\ bs+                                               -> (Data.Monoid.<>)+                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                       (Prelude.fromIntegral+                                                          (Data.ByteString.length bs)))+                                                    (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                            Data.ProtoLens.encodeMessage _v))+                               ((Data.Monoid.<>)+                                  (case+                                       Lens.Family2.view+                                         (Data.ProtoLens.Field.field @"maybe'collateral") _x+                                   of+                                     Prelude.Nothing -> Data.Monoid.mempty+                                     (Prelude.Just _v)+                                       -> (Data.Monoid.<>)+                                            (Data.ProtoLens.Encoding.Bytes.putVarInt 66)+                                            ((Prelude..)+                                               (\ bs+                                                  -> (Data.Monoid.<>)+                                                       (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                          (Prelude.fromIntegral+                                                             (Data.ByteString.length bs)))+                                                       (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                               Data.ProtoLens.encodeMessage _v))+                                  ((Data.Monoid.<>)+                                     (let+                                        _v+                                          = Lens.Family2.view (Data.ProtoLens.Field.field @"fee") _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.<>)+                                        (case+                                             Lens.Family2.view+                                               (Data.ProtoLens.Field.field @"maybe'validity") _x+                                         of+                                           Prelude.Nothing -> Data.Monoid.mempty+                                           (Prelude.Just _v)+                                             -> (Data.Monoid.<>)+                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt 82)+                                                  ((Prelude..)+                                                     (\ bs+                                                        -> (Data.Monoid.<>)+                                                             (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                                (Prelude.fromIntegral+                                                                   (Data.ByteString.length bs)))+                                                             (Data.ProtoLens.Encoding.Bytes.putBytes+                                                                bs))+                                                     Data.ProtoLens.encodeMessage _v))+                                        ((Data.Monoid.<>)+                                           (let+                                              _v+                                                = Lens.Family2.view+                                                    (Data.ProtoLens.Field.field @"successful") _x+                                            in+                                              if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                                                  Data.Monoid.mempty+                                              else+                                                  (Data.Monoid.<>)+                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt 88)+                                                    ((Prelude..)+                                                       Data.ProtoLens.Encoding.Bytes.putVarInt+                                                       (\ b -> if b then 1 else 0) _v))+                                           ((Data.Monoid.<>)+                                              (case+                                                   Lens.Family2.view+                                                     (Data.ProtoLens.Field.field @"maybe'auxiliary")+                                                     _x+                                               of+                                                 Prelude.Nothing -> Data.Monoid.mempty+                                                 (Prelude.Just _v)+                                                   -> (Data.Monoid.<>)+                                                        (Data.ProtoLens.Encoding.Bytes.putVarInt 98)+                                                        ((Prelude..)+                                                           (\ bs+                                                              -> (Data.Monoid.<>)+                                                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                                      (Prelude.fromIntegral+                                                                         (Data.ByteString.length+                                                                            bs)))+                                                                   (Data.ProtoLens.Encoding.Bytes.putBytes+                                                                      bs))+                                                           Data.ProtoLens.encodeMessage _v))+                                              ((Data.Monoid.<>)+                                                 (let+                                                    _v+                                                      = Lens.Family2.view+                                                          (Data.ProtoLens.Field.field @"hash") _x+                                                  in+                                                    if (Prelude.==)+                                                         _v Data.ProtoLens.fieldDefault then+                                                        Data.Monoid.mempty+                                                    else+                                                        (Data.Monoid.<>)+                                                          (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                             106)+                                                          ((\ bs+                                                              -> (Data.Monoid.<>)+                                                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                                      (Prelude.fromIntegral+                                                                         (Data.ByteString.length+                                                                            bs)))+                                                                   (Data.ProtoLens.Encoding.Bytes.putBytes+                                                                      bs))+                                                             _v))+                                                 (Data.ProtoLens.Encoding.Wire.buildFieldSet+                                                    (Lens.Family2.view+                                                       Data.ProtoLens.unknownFields _x))))))))))))))+instance Control.DeepSeq.NFData Tx where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Tx'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Tx'inputs x__)+                (Control.DeepSeq.deepseq+                   (_Tx'outputs x__)+                   (Control.DeepSeq.deepseq+                      (_Tx'certificates x__)+                      (Control.DeepSeq.deepseq+                         (_Tx'withdrawals x__)+                         (Control.DeepSeq.deepseq+                            (_Tx'mint x__)+                            (Control.DeepSeq.deepseq+                               (_Tx'referenceInputs x__)+                               (Control.DeepSeq.deepseq+                                  (_Tx'witnesses x__)+                                  (Control.DeepSeq.deepseq+                                     (_Tx'collateral x__)+                                     (Control.DeepSeq.deepseq+                                        (_Tx'fee x__)+                                        (Control.DeepSeq.deepseq+                                           (_Tx'validity x__)+                                           (Control.DeepSeq.deepseq+                                              (_Tx'successful x__)+                                              (Control.DeepSeq.deepseq+                                                 (_Tx'auxiliary x__)+                                                 (Control.DeepSeq.deepseq+                                                    (_Tx'hash x__) ())))))))))))))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.fee' @:: Lens' TxEval Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.exUnits' @:: Lens' TxEval ExUnits@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'exUnits' @:: Lens' TxEval (Prelude.Maybe ExUnits)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.errors' @:: Lens' TxEval [EvalError]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'errors' @:: Lens' TxEval (Data.Vector.Vector EvalError)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.traces' @:: Lens' TxEval [EvalTrace]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'traces' @:: Lens' TxEval (Data.Vector.Vector EvalTrace)@ -}+data TxEval+  = TxEval'_constructor {_TxEval'fee :: !Data.Word.Word64,+                         _TxEval'exUnits :: !(Prelude.Maybe ExUnits),+                         _TxEval'errors :: !(Data.Vector.Vector EvalError),+                         _TxEval'traces :: !(Data.Vector.Vector EvalTrace),+                         _TxEval'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show TxEval where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField TxEval "fee" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxEval'fee (\ x__ y__ -> x__ {_TxEval'fee = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxEval "exUnits" ExUnits where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxEval'exUnits (\ x__ y__ -> x__ {_TxEval'exUnits = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxEval "maybe'exUnits" (Prelude.Maybe ExUnits) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxEval'exUnits (\ x__ y__ -> x__ {_TxEval'exUnits = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxEval "errors" [EvalError] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxEval'errors (\ x__ y__ -> x__ {_TxEval'errors = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField TxEval "vec'errors" (Data.Vector.Vector EvalError) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxEval'errors (\ x__ y__ -> x__ {_TxEval'errors = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxEval "traces" [EvalTrace] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxEval'traces (\ x__ y__ -> x__ {_TxEval'traces = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField TxEval "vec'traces" (Data.Vector.Vector EvalTrace) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxEval'traces (\ x__ y__ -> x__ {_TxEval'traces = y__}))+        Prelude.id+instance Data.ProtoLens.Message TxEval where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxEval"+  packedMessageDescriptor _+    = "\n\+      \\ACKTxEval\DC2\DLE\n\+      \\ETXfee\CAN\SOH \SOH(\EOTR\ETXfee\DC2;\n\+      \\bex_units\CAN\STX \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\aexUnits\DC2:\n\+      \\ACKerrors\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.cardano.EvalErrorR\ACKerrors\DC2:\n\+      \\ACKtraces\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.cardano.EvalTraceR\ACKtraces"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        fee__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "fee"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"fee")) ::+              Data.ProtoLens.FieldDescriptor TxEval+        exUnits__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "ex_units"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor ExUnits)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'exUnits")) ::+              Data.ProtoLens.FieldDescriptor TxEval+        errors__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "errors"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor EvalError)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"errors")) ::+              Data.ProtoLens.FieldDescriptor TxEval+        traces__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "traces"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor EvalTrace)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"traces")) ::+              Data.ProtoLens.FieldDescriptor TxEval+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, fee__field_descriptor),+           (Data.ProtoLens.Tag 2, exUnits__field_descriptor),+           (Data.ProtoLens.Tag 3, errors__field_descriptor),+           (Data.ProtoLens.Tag 4, traces__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _TxEval'_unknownFields+        (\ x__ y__ -> x__ {_TxEval'_unknownFields = y__})+  defMessage+    = TxEval'_constructor+        {_TxEval'fee = Data.ProtoLens.fieldDefault,+         _TxEval'exUnits = Prelude.Nothing,+         _TxEval'errors = Data.Vector.Generic.empty,+         _TxEval'traces = Data.Vector.Generic.empty,+         _TxEval'_unknownFields = []}+  parseMessage+    = let+        loop ::+          TxEval+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalError+             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld EvalTrace+                -> Data.ProtoLens.Encoding.Bytes.Parser TxEval+        loop x mutable'errors mutable'traces+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                            mutable'errors)+                      frozen'traces <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                            mutable'traces)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'errors") frozen'errors+                              (Lens.Family2.set+                                 (Data.ProtoLens.Field.field @"vec'traces") frozen'traces x)))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "fee"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"fee") y x)+                                  mutable'errors mutable'traces+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "ex_units"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"exUnits") y x)+                                  mutable'errors mutable'traces+                        26+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "errors"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'errors y)+                                loop x v mutable'traces+                        34+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "traces"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'traces y)+                                loop x mutable'errors v+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'errors mutable'traces+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                  Data.ProtoLens.Encoding.Growing.new+              mutable'traces <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                  Data.ProtoLens.Encoding.Growing.new+              loop Data.ProtoLens.defMessage mutable'errors mutable'traces)+          "TxEval"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"fee") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'exUnits") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                ((Data.Monoid.<>)+                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                      (\ _v+                         -> (Data.Monoid.<>)+                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                              ((Prelude..)+                                 (\ bs+                                    -> (Data.Monoid.<>)+                                         (Data.ProtoLens.Encoding.Bytes.putVarInt+                                            (Prelude.fromIntegral (Data.ByteString.length bs)))+                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                 Data.ProtoLens.encodeMessage _v))+                      (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'errors") _x))+                   ((Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                         (\ _v+                            -> (Data.Monoid.<>)+                                 (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                                 ((Prelude..)+                                    (\ bs+                                       -> (Data.Monoid.<>)+                                            (Data.ProtoLens.Encoding.Bytes.putVarInt+                                               (Prelude.fromIntegral (Data.ByteString.length bs)))+                                            (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                    Data.ProtoLens.encodeMessage _v))+                         (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'traces") _x))+                      (Data.ProtoLens.Encoding.Wire.buildFieldSet+                         (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))+instance Control.DeepSeq.NFData TxEval where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_TxEval'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_TxEval'fee x__)+                (Control.DeepSeq.deepseq+                   (_TxEval'exUnits x__)+                   (Control.DeepSeq.deepseq+                      (_TxEval'errors x__)+                      (Control.DeepSeq.deepseq (_TxEval'traces x__) ()))))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.txHash' @:: Lens' TxInput Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.outputIndex' @:: Lens' TxInput Data.Word.Word32@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.asOutput' @:: Lens' TxInput TxOutput@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'asOutput' @:: Lens' TxInput (Prelude.Maybe TxOutput)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' TxInput Redeemer@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' TxInput (Prelude.Maybe Redeemer)@ -}+data TxInput+  = TxInput'_constructor {_TxInput'txHash :: !Data.ByteString.ByteString,+                          _TxInput'outputIndex :: !Data.Word.Word32,+                          _TxInput'asOutput :: !(Prelude.Maybe TxOutput),+                          _TxInput'redeemer :: !(Prelude.Maybe Redeemer),+                          _TxInput'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show TxInput where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField TxInput "txHash" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxInput'txHash (\ x__ y__ -> x__ {_TxInput'txHash = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxInput "outputIndex" Data.Word.Word32 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxInput'outputIndex+           (\ x__ y__ -> x__ {_TxInput'outputIndex = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxInput "asOutput" TxOutput where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxInput'asOutput (\ x__ y__ -> x__ {_TxInput'asOutput = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxInput "maybe'asOutput" (Prelude.Maybe TxOutput) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxInput'asOutput (\ x__ y__ -> x__ {_TxInput'asOutput = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxInput "redeemer" Redeemer where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxInput'redeemer (\ x__ y__ -> x__ {_TxInput'redeemer = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxInput "maybe'redeemer" (Prelude.Maybe Redeemer) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxInput'redeemer (\ x__ y__ -> x__ {_TxInput'redeemer = y__}))+        Prelude.id+instance Data.ProtoLens.Message TxInput where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxInput"+  packedMessageDescriptor _+    = "\n\+      \\aTxInput\DC2\ETB\n\+      \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\+      \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2>\n\+      \\tas_output\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\basOutput\DC2=\n\+      \\bredeemer\CAN\EOT \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        txHash__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "tx_hash"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"txHash")) ::+              Data.ProtoLens.FieldDescriptor TxInput+        outputIndex__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "output_index"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"outputIndex")) ::+              Data.ProtoLens.FieldDescriptor TxInput+        asOutput__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "as_output"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxOutput)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'asOutput")) ::+              Data.ProtoLens.FieldDescriptor TxInput+        redeemer__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "redeemer"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Redeemer)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::+              Data.ProtoLens.FieldDescriptor TxInput+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, txHash__field_descriptor),+           (Data.ProtoLens.Tag 2, outputIndex__field_descriptor),+           (Data.ProtoLens.Tag 3, asOutput__field_descriptor),+           (Data.ProtoLens.Tag 4, redeemer__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _TxInput'_unknownFields+        (\ x__ y__ -> x__ {_TxInput'_unknownFields = y__})+  defMessage+    = TxInput'_constructor+        {_TxInput'txHash = Data.ProtoLens.fieldDefault,+         _TxInput'outputIndex = Data.ProtoLens.fieldDefault,+         _TxInput'asOutput = Prelude.Nothing,+         _TxInput'redeemer = Prelude.Nothing, _TxInput'_unknownFields = []}+  parseMessage+    = let+        loop :: TxInput -> Data.ProtoLens.Encoding.Bytes.Parser TxInput+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "tx_hash"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txHash") y x)+                        16+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (Prelude.fmap+                                          Prelude.fromIntegral+                                          Data.ProtoLens.Encoding.Bytes.getVarInt)+                                       "output_index"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"outputIndex") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "as_output"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"asOutput") y x)+                        34+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "redeemer"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "TxInput"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"txHash") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let+                   _v+                     = Lens.Family2.view (Data.ProtoLens.Field.field @"outputIndex") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+                         ((Prelude..)+                            Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v))+                ((Data.Monoid.<>)+                   (case+                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'asOutput") _x+                    of+                      Prelude.Nothing -> Data.Monoid.mempty+                      (Prelude.Just _v)+                        -> (Data.Monoid.<>)+                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                             ((Prelude..)+                                (\ bs+                                   -> (Data.Monoid.<>)+                                        (Data.ProtoLens.Encoding.Bytes.putVarInt+                                           (Prelude.fromIntegral (Data.ByteString.length bs)))+                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                Data.ProtoLens.encodeMessage _v))+                   ((Data.Monoid.<>)+                      (case+                           Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x+                       of+                         Prelude.Nothing -> Data.Monoid.mempty+                         (Prelude.Just _v)+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                                ((Prelude..)+                                   (\ bs+                                      -> (Data.Monoid.<>)+                                           (Data.ProtoLens.Encoding.Bytes.putVarInt+                                              (Prelude.fromIntegral (Data.ByteString.length bs)))+                                           (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                   Data.ProtoLens.encodeMessage _v))+                      (Data.ProtoLens.Encoding.Wire.buildFieldSet+                         (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))+instance Control.DeepSeq.NFData TxInput where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_TxInput'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_TxInput'txHash x__)+                (Control.DeepSeq.deepseq+                   (_TxInput'outputIndex x__)+                   (Control.DeepSeq.deepseq+                      (_TxInput'asOutput x__)+                      (Control.DeepSeq.deepseq (_TxInput'redeemer x__) ()))))+{- | Fields :+     +         * 'Proto.Utxorpc.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.address' @:: Lens' TxOutputPattern AddressPattern@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'address' @:: Lens' TxOutputPattern (Prelude.Maybe AddressPattern)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.asset' @:: Lens' TxOutputPattern AssetPattern@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'asset' @:: Lens' TxOutputPattern (Prelude.Maybe AssetPattern)@ -}+data TxOutputPattern+  = TxOutputPattern'_constructor {_TxOutputPattern'address :: !(Prelude.Maybe AddressPattern),+                                  _TxOutputPattern'asset :: !(Prelude.Maybe AssetPattern),+                                  _TxOutputPattern'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show TxOutputPattern where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField TxOutputPattern "address" AddressPattern where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxOutputPattern'address+           (\ x__ y__ -> x__ {_TxOutputPattern'address = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'address" (Prelude.Maybe AddressPattern) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxOutputPattern'address+           (\ x__ y__ -> x__ {_TxOutputPattern'address = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxOutputPattern "asset" AssetPattern where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxOutputPattern'asset+           (\ x__ y__ -> x__ {_TxOutputPattern'asset = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxOutputPattern "maybe'asset" (Prelude.Maybe AssetPattern) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxOutputPattern'asset+           (\ x__ y__ -> x__ {_TxOutputPattern'asset = y__}))+        Prelude.id+instance Data.ProtoLens.Message TxOutputPattern where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.TxOutputPattern"+  packedMessageDescriptor _+    = "\n\+      \\SITxOutputPattern\DC2A\n\+      \\aaddress\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\aaddress\DC2;\n\+      \\ENQasset\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\ENQasset"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        address__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "address"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor AddressPattern)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'address")) ::+              Data.ProtoLens.FieldDescriptor TxOutputPattern+        asset__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "asset"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'asset")) ::+              Data.ProtoLens.FieldDescriptor TxOutputPattern+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, address__field_descriptor),+           (Data.ProtoLens.Tag 2, asset__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _TxOutputPattern'_unknownFields+        (\ x__ y__ -> x__ {_TxOutputPattern'_unknownFields = y__})+  defMessage+    = TxOutputPattern'_constructor+        {_TxOutputPattern'address = Prelude.Nothing,+         _TxOutputPattern'asset = Prelude.Nothing,+         _TxOutputPattern'_unknownFields = []}+  parseMessage+    = let+        loop ::+          TxOutputPattern+          -> Data.ProtoLens.Encoding.Bytes.Parser TxOutputPattern+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "address"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"address") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "asset"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"asset") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "TxOutputPattern"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'address") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'asset") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData TxOutputPattern where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_TxOutputPattern'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_TxOutputPattern'address x__)+                (Control.DeepSeq.deepseq (_TxOutputPattern'asset x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.consumes' @:: Lens' TxPattern TxOutputPattern@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'consumes' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.produces' @:: Lens' TxPattern TxOutputPattern@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'produces' @:: Lens' TxPattern (Prelude.Maybe TxOutputPattern)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.hasAddress' @:: Lens' TxPattern AddressPattern@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'hasAddress' @:: Lens' TxPattern (Prelude.Maybe AddressPattern)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.movesAsset' @:: Lens' TxPattern AssetPattern@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'movesAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.mintsAsset' @:: Lens' TxPattern AssetPattern@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'mintsAsset' @:: Lens' TxPattern (Prelude.Maybe AssetPattern)@ -}+data TxPattern+  = TxPattern'_constructor {_TxPattern'consumes :: !(Prelude.Maybe TxOutputPattern),+                            _TxPattern'produces :: !(Prelude.Maybe TxOutputPattern),+                            _TxPattern'hasAddress :: !(Prelude.Maybe AddressPattern),+                            _TxPattern'movesAsset :: !(Prelude.Maybe AssetPattern),+                            _TxPattern'mintsAsset :: !(Prelude.Maybe AssetPattern),+                            _TxPattern'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show TxPattern where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField TxPattern "consumes" TxOutputPattern where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'consumes (\ x__ y__ -> x__ {_TxPattern'consumes = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxPattern "maybe'consumes" (Prelude.Maybe TxOutputPattern) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'consumes (\ x__ y__ -> x__ {_TxPattern'consumes = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxPattern "produces" TxOutputPattern where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'produces (\ x__ y__ -> x__ {_TxPattern'produces = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxPattern "maybe'produces" (Prelude.Maybe TxOutputPattern) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'produces (\ x__ y__ -> x__ {_TxPattern'produces = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxPattern "hasAddress" AddressPattern where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'hasAddress+           (\ x__ y__ -> x__ {_TxPattern'hasAddress = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxPattern "maybe'hasAddress" (Prelude.Maybe AddressPattern) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'hasAddress+           (\ x__ y__ -> x__ {_TxPattern'hasAddress = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxPattern "movesAsset" AssetPattern where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'movesAsset+           (\ x__ y__ -> x__ {_TxPattern'movesAsset = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxPattern "maybe'movesAsset" (Prelude.Maybe AssetPattern) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'movesAsset+           (\ x__ y__ -> x__ {_TxPattern'movesAsset = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxPattern "mintsAsset" AssetPattern where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'mintsAsset+           (\ x__ y__ -> x__ {_TxPattern'mintsAsset = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField TxPattern "maybe'mintsAsset" (Prelude.Maybe AssetPattern) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxPattern'mintsAsset+           (\ x__ y__ -> x__ {_TxPattern'mintsAsset = y__}))+        Prelude.id+instance Data.ProtoLens.Message TxPattern where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxPattern"+  packedMessageDescriptor _+    = "\n\+      \\tTxPattern\DC2D\n\+      \\bconsumes\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bconsumes\DC2D\n\+      \\bproduces\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bproduces\DC2H\n\+      \\vhas_address\CAN\ETX \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\n\+      \hasAddress\DC2F\n\+      \\vmoves_asset\CAN\EOT \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\+      \movesAsset\DC2F\n\+      \\vmints_asset\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\+      \mintsAsset"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        consumes__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "consumes"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxOutputPattern)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'consumes")) ::+              Data.ProtoLens.FieldDescriptor TxPattern+        produces__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "produces"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor TxOutputPattern)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'produces")) ::+              Data.ProtoLens.FieldDescriptor TxPattern+        hasAddress__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "has_address"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor AddressPattern)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'hasAddress")) ::+              Data.ProtoLens.FieldDescriptor TxPattern+        movesAsset__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "moves_asset"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'movesAsset")) ::+              Data.ProtoLens.FieldDescriptor TxPattern+        mintsAsset__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "mints_asset"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor AssetPattern)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'mintsAsset")) ::+              Data.ProtoLens.FieldDescriptor TxPattern+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, consumes__field_descriptor),+           (Data.ProtoLens.Tag 2, produces__field_descriptor),+           (Data.ProtoLens.Tag 3, hasAddress__field_descriptor),+           (Data.ProtoLens.Tag 4, movesAsset__field_descriptor),+           (Data.ProtoLens.Tag 5, mintsAsset__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _TxPattern'_unknownFields+        (\ x__ y__ -> x__ {_TxPattern'_unknownFields = y__})+  defMessage+    = TxPattern'_constructor+        {_TxPattern'consumes = Prelude.Nothing,+         _TxPattern'produces = Prelude.Nothing,+         _TxPattern'hasAddress = Prelude.Nothing,+         _TxPattern'movesAsset = Prelude.Nothing,+         _TxPattern'mintsAsset = Prelude.Nothing,+         _TxPattern'_unknownFields = []}+  parseMessage+    = let+        loop :: TxPattern -> Data.ProtoLens.Encoding.Bytes.Parser TxPattern+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "consumes"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"consumes") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "produces"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"produces") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "has_address"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"hasAddress") y x)+                        34+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "moves_asset"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"movesAsset") y x)+                        42+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "mints_asset"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"mintsAsset") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "TxPattern"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (case+                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'consumes") _x+              of+                Prelude.Nothing -> Data.Monoid.mempty+                (Prelude.Just _v)+                  -> (Data.Monoid.<>)+                       (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                       ((Prelude..)+                          (\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                          Data.ProtoLens.encodeMessage _v))+             ((Data.Monoid.<>)+                (case+                     Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'produces") _x+                 of+                   Prelude.Nothing -> Data.Monoid.mempty+                   (Prelude.Just _v)+                     -> (Data.Monoid.<>)+                          (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                          ((Prelude..)+                             (\ bs+                                -> (Data.Monoid.<>)+                                     (Data.ProtoLens.Encoding.Bytes.putVarInt+                                        (Prelude.fromIntegral (Data.ByteString.length bs)))+                                     (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                             Data.ProtoLens.encodeMessage _v))+                ((Data.Monoid.<>)+                   (case+                        Lens.Family2.view+                          (Data.ProtoLens.Field.field @"maybe'hasAddress") _x+                    of+                      Prelude.Nothing -> Data.Monoid.mempty+                      (Prelude.Just _v)+                        -> (Data.Monoid.<>)+                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                             ((Prelude..)+                                (\ bs+                                   -> (Data.Monoid.<>)+                                        (Data.ProtoLens.Encoding.Bytes.putVarInt+                                           (Prelude.fromIntegral (Data.ByteString.length bs)))+                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                Data.ProtoLens.encodeMessage _v))+                   ((Data.Monoid.<>)+                      (case+                           Lens.Family2.view+                             (Data.ProtoLens.Field.field @"maybe'movesAsset") _x+                       of+                         Prelude.Nothing -> Data.Monoid.mempty+                         (Prelude.Just _v)+                           -> (Data.Monoid.<>)+                                (Data.ProtoLens.Encoding.Bytes.putVarInt 34)+                                ((Prelude..)+                                   (\ bs+                                      -> (Data.Monoid.<>)+                                           (Data.ProtoLens.Encoding.Bytes.putVarInt+                                              (Prelude.fromIntegral (Data.ByteString.length bs)))+                                           (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                   Data.ProtoLens.encodeMessage _v))+                      ((Data.Monoid.<>)+                         (case+                              Lens.Family2.view+                                (Data.ProtoLens.Field.field @"maybe'mintsAsset") _x+                          of+                            Prelude.Nothing -> Data.Monoid.mempty+                            (Prelude.Just _v)+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt 42)+                                   ((Prelude..)+                                      (\ bs+                                         -> (Data.Monoid.<>)+                                              (Data.ProtoLens.Encoding.Bytes.putVarInt+                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))+                                              (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                      Data.ProtoLens.encodeMessage _v))+                         (Data.ProtoLens.Encoding.Wire.buildFieldSet+                            (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))+instance Control.DeepSeq.NFData TxPattern where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_TxPattern'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_TxPattern'consumes x__)+                (Control.DeepSeq.deepseq+                   (_TxPattern'produces x__)+                   (Control.DeepSeq.deepseq+                      (_TxPattern'hasAddress x__)+                      (Control.DeepSeq.deepseq+                         (_TxPattern'movesAsset x__)+                         (Control.DeepSeq.deepseq (_TxPattern'mintsAsset x__) ())))))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.start' @:: Lens' TxValidity Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.ttl' @:: Lens' TxValidity Data.Word.Word64@ -}+data TxValidity+  = TxValidity'_constructor {_TxValidity'start :: !Data.Word.Word64,+                             _TxValidity'ttl :: !Data.Word.Word64,+                             _TxValidity'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show TxValidity where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField TxValidity "start" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxValidity'start (\ x__ y__ -> x__ {_TxValidity'start = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField TxValidity "ttl" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _TxValidity'ttl (\ x__ y__ -> x__ {_TxValidity'ttl = y__}))+        Prelude.id+instance Data.ProtoLens.Message TxValidity where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.TxValidity"+  packedMessageDescriptor _+    = "\n\+      \\n\+      \TxValidity\DC2\DC4\n\+      \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\+      \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        start__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "start"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"start")) ::+              Data.ProtoLens.FieldDescriptor TxValidity+        ttl__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "ttl"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"ttl")) ::+              Data.ProtoLens.FieldDescriptor TxValidity+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, start__field_descriptor),+           (Data.ProtoLens.Tag 2, ttl__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _TxValidity'_unknownFields+        (\ x__ y__ -> x__ {_TxValidity'_unknownFields = y__})+  defMessage+    = TxValidity'_constructor+        {_TxValidity'start = Data.ProtoLens.fieldDefault,+         _TxValidity'ttl = Data.ProtoLens.fieldDefault,+         _TxValidity'_unknownFields = []}+  parseMessage+    = let+        loop ::+          TxValidity -> Data.ProtoLens.Encoding.Bytes.Parser TxValidity+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        8 -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "start"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x)+                        16+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "ttl"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "TxValidity"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v = Lens.Family2.view (Data.ProtoLens.Field.field @"start") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 8)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+             ((Data.Monoid.<>)+                (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"ttl") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 16)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData TxValidity where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_TxValidity'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_TxValidity'start x__)+                (Control.DeepSeq.deepseq (_TxValidity'ttl x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vkey' @:: Lens' VKeyWitness Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.signature' @:: Lens' VKeyWitness Data.ByteString.ByteString@ -}+data VKeyWitness+  = VKeyWitness'_constructor {_VKeyWitness'vkey :: !Data.ByteString.ByteString,+                              _VKeyWitness'signature :: !Data.ByteString.ByteString,+                              _VKeyWitness'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show VKeyWitness where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField VKeyWitness "vkey" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _VKeyWitness'vkey (\ x__ y__ -> x__ {_VKeyWitness'vkey = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField VKeyWitness "signature" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _VKeyWitness'signature+           (\ x__ y__ -> x__ {_VKeyWitness'signature = y__}))+        Prelude.id+instance Data.ProtoLens.Message VKeyWitness where+  messageName _+    = Data.Text.pack "utxorpc.v1alpha.cardano.VKeyWitness"+  packedMessageDescriptor _+    = "\n\+      \\vVKeyWitness\DC2\DC2\n\+      \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\+      \\tsignature\CAN\STX \SOH(\fR\tsignature"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        vkey__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "vkey"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"vkey")) ::+              Data.ProtoLens.FieldDescriptor VKeyWitness+        signature__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "signature"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"signature")) ::+              Data.ProtoLens.FieldDescriptor VKeyWitness+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, vkey__field_descriptor),+           (Data.ProtoLens.Tag 2, signature__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _VKeyWitness'_unknownFields+        (\ x__ y__ -> x__ {_VKeyWitness'_unknownFields = y__})+  defMessage+    = VKeyWitness'_constructor+        {_VKeyWitness'vkey = Data.ProtoLens.fieldDefault,+         _VKeyWitness'signature = Data.ProtoLens.fieldDefault,+         _VKeyWitness'_unknownFields = []}+  parseMessage+    = let+        loop ::+          VKeyWitness -> Data.ProtoLens.Encoding.Bytes.Parser VKeyWitness+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "vkey"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"vkey") y x)+                        18+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "signature"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"signature") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "VKeyWitness"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"vkey") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (let+                   _v = Lens.Family2.view (Data.ProtoLens.Field.field @"signature") _x+                 in+                   if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                       Data.Monoid.mempty+                   else+                       (Data.Monoid.<>)+                         (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                         ((\ bs+                             -> (Data.Monoid.<>)+                                  (Data.ProtoLens.Encoding.Bytes.putVarInt+                                     (Prelude.fromIntegral (Data.ByteString.length bs)))+                                  (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                            _v))+                (Data.ProtoLens.Encoding.Wire.buildFieldSet+                   (Lens.Family2.view Data.ProtoLens.unknownFields _x)))+instance Control.DeepSeq.NFData VKeyWitness where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_VKeyWitness'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_VKeyWitness'vkey x__)+                (Control.DeepSeq.deepseq (_VKeyWitness'signature x__) ()))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.rewardAccount' @:: Lens' Withdrawal Data.ByteString.ByteString@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.coin' @:: Lens' Withdrawal Data.Word.Word64@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.redeemer' @:: Lens' Withdrawal Redeemer@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.maybe'redeemer' @:: Lens' Withdrawal (Prelude.Maybe Redeemer)@ -}+data Withdrawal+  = Withdrawal'_constructor {_Withdrawal'rewardAccount :: !Data.ByteString.ByteString,+                             _Withdrawal'coin :: !Data.Word.Word64,+                             _Withdrawal'redeemer :: !(Prelude.Maybe Redeemer),+                             _Withdrawal'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show Withdrawal where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField Withdrawal "rewardAccount" Data.ByteString.ByteString where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Withdrawal'rewardAccount+           (\ x__ y__ -> x__ {_Withdrawal'rewardAccount = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Withdrawal "coin" Data.Word.Word64 where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Withdrawal'coin (\ x__ y__ -> x__ {_Withdrawal'coin = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField Withdrawal "redeemer" Redeemer where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Withdrawal'redeemer+           (\ x__ y__ -> x__ {_Withdrawal'redeemer = y__}))+        (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)+instance Data.ProtoLens.Field.HasField Withdrawal "maybe'redeemer" (Prelude.Maybe Redeemer) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _Withdrawal'redeemer+           (\ x__ y__ -> x__ {_Withdrawal'redeemer = y__}))+        Prelude.id+instance Data.ProtoLens.Message Withdrawal where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.Withdrawal"+  packedMessageDescriptor _+    = "\n\+      \\n\+      \Withdrawal\DC2%\n\+      \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC2\DC2\n\+      \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2=\n\+      \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        rewardAccount__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "reward_account"+              (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional+                 (Data.ProtoLens.Field.field @"rewardAccount")) ::+              Data.ProtoLens.FieldDescriptor Withdrawal+        coin__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "coin"+              (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+              (Data.ProtoLens.PlainField+                 Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"coin")) ::+              Data.ProtoLens.FieldDescriptor Withdrawal+        redeemer__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "redeemer"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Redeemer)+              (Data.ProtoLens.OptionalField+                 (Data.ProtoLens.Field.field @"maybe'redeemer")) ::+              Data.ProtoLens.FieldDescriptor Withdrawal+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, rewardAccount__field_descriptor),+           (Data.ProtoLens.Tag 2, coin__field_descriptor),+           (Data.ProtoLens.Tag 3, redeemer__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _Withdrawal'_unknownFields+        (\ x__ y__ -> x__ {_Withdrawal'_unknownFields = y__})+  defMessage+    = Withdrawal'_constructor+        {_Withdrawal'rewardAccount = Data.ProtoLens.fieldDefault,+         _Withdrawal'coin = Data.ProtoLens.fieldDefault,+         _Withdrawal'redeemer = Prelude.Nothing,+         _Withdrawal'_unknownFields = []}+  parseMessage+    = let+        loop ::+          Withdrawal -> Data.ProtoLens.Encoding.Bytes.Parser Withdrawal+        loop x+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.getBytes+                                             (Prelude.fromIntegral len))+                                       "reward_account"+                                loop+                                  (Lens.Family2.set+                                     (Data.ProtoLens.Field.field @"rewardAccount") y x)+                        16+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       Data.ProtoLens.Encoding.Bytes.getVarInt "coin"+                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"coin") y x)+                        26+                          -> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                       (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                           Data.ProtoLens.Encoding.Bytes.isolate+                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)+                                       "redeemer"+                                loop+                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"redeemer") y x)+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do loop Data.ProtoLens.defMessage) "Withdrawal"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (let+                _v+                  = Lens.Family2.view+                      (Data.ProtoLens.Field.field @"rewardAccount") _x+              in+                if (Prelude.==) _v Data.ProtoLens.fieldDefault then+                    Data.Monoid.mempty+                else+                    (Data.Monoid.<>)+                      (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                      ((\ bs+                          -> (Data.Monoid.<>)+                               (Data.ProtoLens.Encoding.Bytes.putVarInt+                                  (Prelude.fromIntegral (Data.ByteString.length bs)))+                               (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                         _v))+             ((Data.Monoid.<>)+                (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.<>)+                   (case+                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'redeemer") _x+                    of+                      Prelude.Nothing -> Data.Monoid.mempty+                      (Prelude.Just _v)+                        -> (Data.Monoid.<>)+                             (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                             ((Prelude..)+                                (\ bs+                                   -> (Data.Monoid.<>)+                                        (Data.ProtoLens.Encoding.Bytes.putVarInt+                                           (Prelude.fromIntegral (Data.ByteString.length bs)))+                                        (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                Data.ProtoLens.encodeMessage _v))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData Withdrawal where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_Withdrawal'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_Withdrawal'rewardAccount x__)+                (Control.DeepSeq.deepseq+                   (_Withdrawal'coin x__)+                   (Control.DeepSeq.deepseq (_Withdrawal'redeemer x__) ())))+{- | Fields :+     +         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vkeywitness' @:: Lens' WitnessSet [VKeyWitness]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'vkeywitness' @:: Lens' WitnessSet (Data.Vector.Vector VKeyWitness)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.script' @:: Lens' WitnessSet [Script]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'script' @:: Lens' WitnessSet (Data.Vector.Vector Script)@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.plutusDatums' @:: Lens' WitnessSet [PlutusData]@+         * 'Proto.Utxorpc.V1alpha.Cardano.Cardano_Fields.vec'plutusDatums' @:: Lens' WitnessSet (Data.Vector.Vector PlutusData)@ -}+data WitnessSet+  = WitnessSet'_constructor {_WitnessSet'vkeywitness :: !(Data.Vector.Vector VKeyWitness),+                             _WitnessSet'script :: !(Data.Vector.Vector Script),+                             _WitnessSet'plutusDatums :: !(Data.Vector.Vector PlutusData),+                             _WitnessSet'_unknownFields :: !Data.ProtoLens.FieldSet}+  deriving stock (Prelude.Eq, Prelude.Ord)+instance Prelude.Show WitnessSet where+  showsPrec _ __x __s+    = Prelude.showChar+        '{'+        (Prelude.showString+           (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))+instance Data.ProtoLens.Field.HasField WitnessSet "vkeywitness" [VKeyWitness] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _WitnessSet'vkeywitness+           (\ x__ y__ -> x__ {_WitnessSet'vkeywitness = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField WitnessSet "vec'vkeywitness" (Data.Vector.Vector VKeyWitness) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _WitnessSet'vkeywitness+           (\ x__ y__ -> x__ {_WitnessSet'vkeywitness = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField WitnessSet "script" [Script] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _WitnessSet'script (\ x__ y__ -> x__ {_WitnessSet'script = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField WitnessSet "vec'script" (Data.Vector.Vector Script) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _WitnessSet'script (\ x__ y__ -> x__ {_WitnessSet'script = y__}))+        Prelude.id+instance Data.ProtoLens.Field.HasField WitnessSet "plutusDatums" [PlutusData] where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _WitnessSet'plutusDatums+           (\ x__ y__ -> x__ {_WitnessSet'plutusDatums = y__}))+        (Lens.Family2.Unchecked.lens+           Data.Vector.Generic.toList+           (\ _ y__ -> Data.Vector.Generic.fromList y__))+instance Data.ProtoLens.Field.HasField WitnessSet "vec'plutusDatums" (Data.Vector.Vector PlutusData) where+  fieldOf _+    = (Prelude..)+        (Lens.Family2.Unchecked.lens+           _WitnessSet'plutusDatums+           (\ x__ y__ -> x__ {_WitnessSet'plutusDatums = y__}))+        Prelude.id+instance Data.ProtoLens.Message WitnessSet where+  messageName _ = Data.Text.pack "utxorpc.v1alpha.cardano.WitnessSet"+  packedMessageDescriptor _+    = "\n\+      \\n\+      \WitnessSet\DC2F\n\+      \\vvkeywitness\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.cardano.VKeyWitnessR\vvkeywitness\DC27\n\+      \\ACKscript\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\DC2H\n\+      \\rplutus_datums\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\fplutusDatums"+  packedFileDescriptor _ = packedFileDescriptor+  fieldsByTag+    = let+        vkeywitness__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "vkeywitness"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor VKeyWitness)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"vkeywitness")) ::+              Data.ProtoLens.FieldDescriptor WitnessSet+        script__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "script"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor Script)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"script")) ::+              Data.ProtoLens.FieldDescriptor WitnessSet+        plutusDatums__field_descriptor+          = Data.ProtoLens.FieldDescriptor+              "plutus_datums"+              (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+                 Data.ProtoLens.FieldTypeDescriptor PlutusData)+              (Data.ProtoLens.RepeatedField+                 Data.ProtoLens.Unpacked+                 (Data.ProtoLens.Field.field @"plutusDatums")) ::+              Data.ProtoLens.FieldDescriptor WitnessSet+      in+        Data.Map.fromList+          [(Data.ProtoLens.Tag 1, vkeywitness__field_descriptor),+           (Data.ProtoLens.Tag 2, script__field_descriptor),+           (Data.ProtoLens.Tag 3, plutusDatums__field_descriptor)]+  unknownFields+    = Lens.Family2.Unchecked.lens+        _WitnessSet'_unknownFields+        (\ x__ y__ -> x__ {_WitnessSet'_unknownFields = y__})+  defMessage+    = WitnessSet'_constructor+        {_WitnessSet'vkeywitness = Data.Vector.Generic.empty,+         _WitnessSet'script = Data.Vector.Generic.empty,+         _WitnessSet'plutusDatums = Data.Vector.Generic.empty,+         _WitnessSet'_unknownFields = []}+  parseMessage+    = let+        loop ::+          WitnessSet+          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld PlutusData+             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Script+                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld VKeyWitness+                   -> Data.ProtoLens.Encoding.Bytes.Parser WitnessSet+        loop x mutable'plutusDatums mutable'script mutable'vkeywitness+          = do end <- Data.ProtoLens.Encoding.Bytes.atEnd+               if end then+                   do frozen'plutusDatums <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                               (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                                  mutable'plutusDatums)+                      frozen'script <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                            mutable'script)+                      frozen'vkeywitness <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                              (Data.ProtoLens.Encoding.Growing.unsafeFreeze+                                                 mutable'vkeywitness)+                      (let missing = []+                       in+                         if Prelude.null missing then+                             Prelude.return ()+                         else+                             Prelude.fail+                               ((Prelude.++)+                                  "Missing required fields: "+                                  (Prelude.show (missing :: [Prelude.String]))))+                      Prelude.return+                        (Lens.Family2.over+                           Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)+                           (Lens.Family2.set+                              (Data.ProtoLens.Field.field @"vec'plutusDatums")+                              frozen'plutusDatums+                              (Lens.Family2.set+                                 (Data.ProtoLens.Field.field @"vec'script") frozen'script+                                 (Lens.Family2.set+                                    (Data.ProtoLens.Field.field @"vec'vkeywitness")+                                    frozen'vkeywitness x))))+               else+                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt+                      case tag of+                        10+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "vkeywitness"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append+                                          mutable'vkeywitness y)+                                loop x mutable'plutusDatums mutable'script v+                        18+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "script"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append mutable'script y)+                                loop x mutable'plutusDatums v mutable'vkeywitness+                        26+                          -> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)+                                        (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt+                                            Data.ProtoLens.Encoding.Bytes.isolate+                                              (Prelude.fromIntegral len)+                                              Data.ProtoLens.parseMessage)+                                        "plutus_datums"+                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       (Data.ProtoLens.Encoding.Growing.append+                                          mutable'plutusDatums y)+                                loop x v mutable'script mutable'vkeywitness+                        wire+                          -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire+                                        wire+                                loop+                                  (Lens.Family2.over+                                     Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)+                                  mutable'plutusDatums mutable'script mutable'vkeywitness+      in+        (Data.ProtoLens.Encoding.Bytes.<?>)+          (do mutable'plutusDatums <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                        Data.ProtoLens.Encoding.Growing.new+              mutable'script <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                  Data.ProtoLens.Encoding.Growing.new+              mutable'vkeywitness <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO+                                       Data.ProtoLens.Encoding.Growing.new+              loop+                Data.ProtoLens.defMessage mutable'plutusDatums mutable'script+                mutable'vkeywitness)+          "WitnessSet"+  buildMessage+    = \ _x+        -> (Data.Monoid.<>)+             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                (\ _v+                   -> (Data.Monoid.<>)+                        (Data.ProtoLens.Encoding.Bytes.putVarInt 10)+                        ((Prelude..)+                           (\ bs+                              -> (Data.Monoid.<>)+                                   (Data.ProtoLens.Encoding.Bytes.putVarInt+                                      (Prelude.fromIntegral (Data.ByteString.length bs)))+                                   (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                           Data.ProtoLens.encodeMessage _v))+                (Lens.Family2.view+                   (Data.ProtoLens.Field.field @"vec'vkeywitness") _x))+             ((Data.Monoid.<>)+                (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                   (\ _v+                      -> (Data.Monoid.<>)+                           (Data.ProtoLens.Encoding.Bytes.putVarInt 18)+                           ((Prelude..)+                              (\ bs+                                 -> (Data.Monoid.<>)+                                      (Data.ProtoLens.Encoding.Bytes.putVarInt+                                         (Prelude.fromIntegral (Data.ByteString.length bs)))+                                      (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                              Data.ProtoLens.encodeMessage _v))+                   (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'script") _x))+                ((Data.Monoid.<>)+                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder+                      (\ _v+                         -> (Data.Monoid.<>)+                              (Data.ProtoLens.Encoding.Bytes.putVarInt 26)+                              ((Prelude..)+                                 (\ bs+                                    -> (Data.Monoid.<>)+                                         (Data.ProtoLens.Encoding.Bytes.putVarInt+                                            (Prelude.fromIntegral (Data.ByteString.length bs)))+                                         (Data.ProtoLens.Encoding.Bytes.putBytes bs))+                                 Data.ProtoLens.encodeMessage _v))+                      (Lens.Family2.view+                         (Data.ProtoLens.Field.field @"vec'plutusDatums") _x))+                   (Data.ProtoLens.Encoding.Wire.buildFieldSet+                      (Lens.Family2.view Data.ProtoLens.unknownFields _x))))+instance Control.DeepSeq.NFData WitnessSet where+  rnf+    = \ x__+        -> Control.DeepSeq.deepseq+             (_WitnessSet'_unknownFields x__)+             (Control.DeepSeq.deepseq+                (_WitnessSet'vkeywitness x__)+                (Control.DeepSeq.deepseq+                   (_WitnessSet'script x__)+                   (Control.DeepSeq.deepseq (_WitnessSet'plutusDatums x__) ())))+packedFileDescriptor :: Data.ByteString.ByteString+packedFileDescriptor+  = "\n\+    \%utxorpc/v1alpha/cardano/cardano.proto\DC2\ETButxorpc.v1alpha.cardano\"\141\SOH\n\+    \\bRedeemer\DC2B\n\+    \\apurpose\CAN\SOH \SOH(\SO2(.utxorpc.v1alpha.cardano.RedeemerPurposeR\apurpose\DC2=\n\+    \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\apayload\"\196\SOH\n\+    \\aTxInput\DC2\ETB\n\+    \\atx_hash\CAN\SOH \SOH(\fR\ACKtxHash\DC2!\n\+    \\foutput_index\CAN\STX \SOH(\rR\voutputIndex\DC2>\n\+    \\tas_output\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\basOutput\DC2=\n\+    \\bredeemer\CAN\EOT \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer\"\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\"\DEL\n\+    \\ENQDatum\DC2\DC2\n\+    \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2=\n\+    \\apayload\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\apayload\DC2#\n\+    \\roriginal_cbor\CAN\ETX \SOH(\fR\foriginalCbor\"Y\n\+    \\ENQAsset\DC2\DC2\n\+    \\EOTname\CAN\SOH \SOH(\fR\EOTname\DC2\US\n\+    \\voutput_coin\CAN\STX \SOH(\EOTR\n\+    \outputCoin\DC2\ESC\n\+    \\tmint_coin\CAN\ETX \SOH(\ETXR\bmintCoin\"\160\SOH\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\DC2=\n\+    \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer\"4\n\+    \\n\+    \TxValidity\DC2\DC4\n\+    \\ENQstart\CAN\SOH \SOH(\EOTR\ENQstart\DC2\DLE\n\+    \\ETXttl\CAN\STX \SOH(\EOTR\ETXttl\"\201\SOH\n\+    \\n\+    \Collateral\DC2@\n\+    \\n\+    \collateral\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\n\+    \collateral\DC2N\n\+    \\DC1collateral_return\CAN\STX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputR\DLEcollateralReturn\DC2)\n\+    \\DLEtotal_collateral\CAN\ETX \SOH(\EOTR\SItotalCollateral\"\134\SOH\n\+    \\n\+    \Withdrawal\DC2%\n\+    \\SOreward_account\CAN\SOH \SOH(\fR\rrewardAccount\DC2\DC2\n\+    \\EOTcoin\CAN\STX \SOH(\EOTR\EOTcoin\DC2=\n\+    \\bredeemer\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemer\"\215\SOH\n\+    \\n\+    \WitnessSet\DC2F\n\+    \\vvkeywitness\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.cardano.VKeyWitnessR\vvkeywitness\DC27\n\+    \\ACKscript\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ACKscript\DC2H\n\+    \\rplutus_datums\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\fplutusDatums\"\131\SOH\n\+    \\aAuxData\DC2=\n\+    \\bmetadata\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.cardano.MetadataR\bmetadata\DC29\n\+    \\ascripts\CAN\STX \ETX(\v2\US.utxorpc.v1alpha.cardano.ScriptR\ascripts\"\225\ENQ\n\+    \\STXTx\DC28\n\+    \\ACKinputs\CAN\SOH \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\ACKinputs\DC2;\n\+    \\aoutputs\CAN\STX \ETX(\v2!.utxorpc.v1alpha.cardano.TxOutputR\aoutputs\DC2H\n\+    \\fcertificates\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.cardano.CertificateR\fcertificates\DC2E\n\+    \\vwithdrawals\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.cardano.WithdrawalR\vwithdrawals\DC27\n\+    \\EOTmint\CAN\ENQ \ETX(\v2#.utxorpc.v1alpha.cardano.MultiassetR\EOTmint\DC2K\n\+    \\DLEreference_inputs\CAN\ACK \ETX(\v2 .utxorpc.v1alpha.cardano.TxInputR\SIreferenceInputs\DC2A\n\+    \\twitnesses\CAN\a \SOH(\v2#.utxorpc.v1alpha.cardano.WitnessSetR\twitnesses\DC2C\n\+    \\n\+    \collateral\CAN\b \SOH(\v2#.utxorpc.v1alpha.cardano.CollateralR\n\+    \collateral\DC2\DLE\n\+    \\ETXfee\CAN\t \SOH(\EOTR\ETXfee\DC2?\n\+    \\bvalidity\CAN\n\+    \ \SOH(\v2#.utxorpc.v1alpha.cardano.TxValidityR\bvalidity\DC2\RS\n\+    \\n\+    \successful\CAN\v \SOH(\bR\n\+    \successful\DC2>\n\+    \\tauxiliary\CAN\f \SOH(\v2 .utxorpc.v1alpha.cardano.AuxDataR\tauxiliary\DC2\DC2\n\+    \\EOThash\CAN\r \SOH(\fR\EOThash\"M\n\+    \\vBlockHeader\DC2\DC2\n\+    \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\+    \\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\+    \\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\"8\n\+    \\tBlockBody\DC2+\n\+    \\STXtx\CAN\SOH \ETX(\v2\ESC.utxorpc.v1alpha.cardano.TxR\STXtx\"}\n\+    \\ENQBlock\DC2<\n\+    \\ACKheader\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.cardano.BlockHeaderR\ACKheader\DC26\n\+    \\EOTbody\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.BlockBodyR\EOTbody\"?\n\+    \\vVKeyWitness\DC2\DC2\n\+    \\EOTvkey\CAN\SOH \SOH(\fR\EOTvkey\DC2\FS\n\+    \\tsignature\CAN\STX \SOH(\fR\tsignature\"\128\ETX\n\+    \\fNativeScript\DC2%\n\+    \\rscript_pubkey\CAN\SOH \SOH(\fH\NULR\fscriptPubkey\DC2J\n\+    \\n\+    \script_all\CAN\STX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAll\DC2J\n\+    \\n\+    \script_any\CAN\ETX \SOH(\v2).utxorpc.v1alpha.cardano.NativeScriptListH\NULR\tscriptAny\DC2H\n\+    \\rscript_n_of_k\CAN\EOT \SOH(\v2#.utxorpc.v1alpha.cardano.ScriptNOfKH\NULR\n\+    \scriptNOfK\DC2'\n\+    \\SOinvalid_before\CAN\ENQ \SOH(\EOTH\NULR\rinvalidBefore\DC2-\n\+    \\DC1invalid_hereafter\CAN\ACK \SOH(\EOTH\NULR\DLEinvalidHereafterB\SI\n\+    \\rnative_script\"O\n\+    \\DLENativeScriptList\DC2;\n\+    \\ENQitems\CAN\SOH \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ENQitems\"[\n\+    \\n\+    \ScriptNOfK\DC2\f\n\+    \\SOHk\CAN\SOH \SOH(\rR\SOHk\DC2?\n\+    \\ascripts\CAN\STX \ETX(\v2%.utxorpc.v1alpha.cardano.NativeScriptR\ascripts\"\128\SOH\n\+    \\ACKConstr\DC2\DLE\n\+    \\ETXtag\CAN\SOH \SOH(\rR\ETXtag\DC2'\n\+    \\SIany_constructor\CAN\STX \SOH(\EOTR\SOanyConstructor\DC2;\n\+    \\ACKfields\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ACKfields\"c\n\+    \\ACKBigInt\DC2\DC2\n\+    \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\FS\n\+    \\tbig_u_int\CAN\STX \SOH(\fH\NULR\abigUInt\DC2\FS\n\+    \\tbig_n_int\CAN\ETX \SOH(\fH\NULR\abigNIntB\t\n\+    \\abig_int\"\130\SOH\n\+    \\SOPlutusDataPair\DC25\n\+    \\ETXkey\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ETXkey\DC29\n\+    \\ENQvalue\CAN\STX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQvalue\"\183\STX\n\+    \\n\+    \PlutusData\DC29\n\+    \\ACKconstr\CAN\STX \SOH(\v2\US.utxorpc.v1alpha.cardano.ConstrH\NULR\ACKconstr\DC2:\n\+    \\ETXmap\CAN\ETX \SOH(\v2&.utxorpc.v1alpha.cardano.PlutusDataMapH\NULR\ETXmap\DC2:\n\+    \\abig_int\CAN\EOT \SOH(\v2\US.utxorpc.v1alpha.cardano.BigIntH\NULR\ACKbigInt\DC2%\n\+    \\rbounded_bytes\CAN\ENQ \SOH(\fH\NULR\fboundedBytes\DC2@\n\+    \\ENQarray\CAN\ACK \SOH(\v2(.utxorpc.v1alpha.cardano.PlutusDataArrayH\NULR\ENQarrayB\r\n\+    \\vplutus_data\"N\n\+    \\rPlutusDataMap\DC2=\n\+    \\ENQpairs\CAN\SOH \ETX(\v2'.utxorpc.v1alpha.cardano.PlutusDataPairR\ENQpairs\"L\n\+    \\SIPlutusDataArray\DC29\n\+    \\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.cardano.PlutusDataR\ENQitems\"\145\SOH\n\+    \\ACKScript\DC2?\n\+    \\ACKnative\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.cardano.NativeScriptH\NULR\ACKnative\DC2\GS\n\+    \\tplutus_v1\CAN\STX \SOH(\fH\NULR\bplutusV1\DC2\GS\n\+    \\tplutus_v2\CAN\ETX \SOH(\fH\NULR\bplutusV2B\b\n\+    \\ACKscript\"\214\SOH\n\+    \\tMetadatum\DC2\DC2\n\+    \\ETXint\CAN\SOH \SOH(\ETXH\NULR\ETXint\DC2\SYN\n\+    \\ENQbytes\CAN\STX \SOH(\fH\NULR\ENQbytes\DC2\DC4\n\+    \\EOTtext\CAN\ETX \SOH(\tH\NULR\EOTtext\DC2?\n\+    \\ENQarray\CAN\EOT \SOH(\v2'.utxorpc.v1alpha.cardano.MetadatumArrayH\NULR\ENQarray\DC29\n\+    \\ETXmap\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.MetadatumMapH\NULR\ETXmapB\v\n\+    \\tmetadatum\"J\n\+    \\SOMetadatumArray\DC28\n\+    \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQitems\"L\n\+    \\fMetadatumMap\DC2<\n\+    \\ENQpairs\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.cardano.MetadatumPairR\ENQpairs\"\DEL\n\+    \\rMetadatumPair\DC24\n\+    \\ETXkey\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ETXkey\DC28\n\+    \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue\"Z\n\+    \\bMetadata\DC2\DC4\n\+    \\ENQlabel\CAN\SOH \SOH(\EOTR\ENQlabel\DC28\n\+    \\ENQvalue\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.MetadatumR\ENQvalue\"n\n\+    \\SIStakeCredential\DC2$\n\+    \\raddr_key_hash\CAN\SOH \SOH(\fH\NULR\vaddrKeyHash\DC2!\n\+    \\vscript_hash\CAN\STX \SOH(\fH\NULR\n\+    \scriptHashB\DC2\n\+    \\DLEstake_credential\"P\n\+    \\SORationalNumber\DC2\FS\n\+    \\tnumerator\CAN\SOH \SOH(\ENQR\tnumerator\DC2 \n\+    \\vdenominator\CAN\STX \SOH(\rR\vdenominator\"`\n\+    \\ENQRelay\DC2\DC3\n\+    \\ENQip_v4\CAN\SOH \SOH(\fR\EOTipV4\DC2\DC3\n\+    \\ENQip_v6\CAN\STX \SOH(\fR\EOTipV6\DC2\EM\n\+    \\bdns_name\CAN\ETX \SOH(\tR\adnsName\DC2\DC2\n\+    \\EOTport\CAN\EOT \SOH(\rR\EOTport\"4\n\+    \\fPoolMetadata\DC2\DLE\n\+    \\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2\DC2\n\+    \\EOThash\CAN\STX \SOH(\fR\EOThash\"\208\ENQ\n\+    \\vCertificate\DC2Y\n\+    \\DC2stake_registration\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC1stakeRegistration\DC2]\n\+    \\DC4stake_deregistration\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialH\NULR\DC3stakeDeregistration\DC2Y\n\+    \\DLEstake_delegation\CAN\ETX \SOH(\v2,.utxorpc.v1alpha.cardano.StakeDelegationCertH\NULR\SIstakeDelegation\DC2\\\n\+    \\DC1pool_registration\CAN\EOT \SOH(\v2-.utxorpc.v1alpha.cardano.PoolRegistrationCertH\NULR\DLEpoolRegistration\DC2V\n\+    \\SIpool_retirement\CAN\ENQ \SOH(\v2+.utxorpc.v1alpha.cardano.PoolRetirementCertH\NULR\SOpoolRetirement\DC2i\n\+    \\SYNgenesis_key_delegation\CAN\ACK \SOH(\v21.utxorpc.v1alpha.cardano.GenesisKeyDelegationCertH\NULR\DC4genesisKeyDelegation\DC2=\n\+    \\bmir_cert\CAN\a \SOH(\v2 .utxorpc.v1alpha.cardano.MirCertH\NULR\amirCert\DC2=\n\+    \\bredeemer\CANd \SOH(\v2!.utxorpc.v1alpha.cardano.RedeemerR\bredeemerB\r\n\+    \\vcertificate\"\141\SOH\n\+    \\DC3StakeDelegationCert\DC2S\n\+    \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2!\n\+    \\fpool_keyhash\CAN\STX \SOH(\fR\vpoolKeyhash\"\140\ETX\n\+    \\DC4PoolRegistrationCert\DC2\SUB\n\+    \\boperator\CAN\SOH \SOH(\fR\boperator\DC2\US\n\+    \\vvrf_keyhash\CAN\STX \SOH(\fR\n\+    \vrfKeyhash\DC2\SYN\n\+    \\ACKpledge\CAN\ETX \SOH(\EOTR\ACKpledge\DC2\DC2\n\+    \\EOTcost\CAN\EOT \SOH(\EOTR\EOTcost\DC2?\n\+    \\ACKmargin\CAN\ENQ \SOH(\v2'.utxorpc.v1alpha.cardano.RationalNumberR\ACKmargin\DC2%\n\+    \\SOreward_account\CAN\ACK \SOH(\fR\rrewardAccount\DC2\US\n\+    \\vpool_owners\CAN\a \ETX(\fR\n\+    \poolOwners\DC26\n\+    \\ACKrelays\CAN\b \ETX(\v2\RS.utxorpc.v1alpha.cardano.RelayR\ACKrelays\DC2J\n\+    \\rpool_metadata\CAN\t \SOH(\v2%.utxorpc.v1alpha.cardano.PoolMetadataR\fpoolMetadata\"M\n\+    \\DC2PoolRetirementCert\DC2!\n\+    \\fpool_keyhash\CAN\SOH \SOH(\fR\vpoolKeyhash\DC2\DC4\n\+    \\ENQepoch\CAN\STX \SOH(\EOTR\ENQepoch\"\146\SOH\n\+    \\CANGenesisKeyDelegationCert\DC2!\n\+    \\fgenesis_hash\CAN\SOH \SOH(\fR\vgenesisHash\DC22\n\+    \\NAKgenesis_delegate_hash\CAN\STX \SOH(\fR\DC3genesisDelegateHash\DC2\US\n\+    \\vvrf_keyhash\CAN\ETX \SOH(\fR\n\+    \vrfKeyhash\"\DEL\n\+    \\tMirTarget\DC2S\n\+    \\DLEstake_credential\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.StakeCredentialR\SIstakeCredential\DC2\GS\n\+    \\n\+    \delta_coin\CAN\STX \SOH(\ETXR\tdeltaCoin\"\146\SOH\n\+    \\aMirCert\DC26\n\+    \\EOTfrom\CAN\SOH \SOH(\SO2\".utxorpc.v1alpha.cardano.MirSourceR\EOTfrom\DC22\n\+    \\STXto\CAN\STX \ETX(\v2\".utxorpc.v1alpha.cardano.MirTargetR\STXto\DC2\ESC\n\+    \\tother_pot\CAN\ETX \SOH(\EOTR\botherPot\"\129\SOH\n\+    \\SOAddressPattern\DC2#\n\+    \\rexact_address\CAN\SOH \SOH(\fR\fexactAddress\DC2!\n\+    \\fpayment_part\CAN\STX \SOH(\fR\vpaymentPart\DC2'\n\+    \\SIdelegation_part\CAN\ETX \SOH(\fR\SOdelegationPart\"J\n\+    \\fAssetPattern\DC2\ESC\n\+    \\tpolicy_id\CAN\SOH \SOH(\fR\bpolicyId\DC2\GS\n\+    \\n\+    \asset_name\CAN\STX \SOH(\fR\tassetName\"\145\SOH\n\+    \\SITxOutputPattern\DC2A\n\+    \\aaddress\CAN\SOH \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\aaddress\DC2;\n\+    \\ENQasset\CAN\STX \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\ENQasset\"\241\STX\n\+    \\tTxPattern\DC2D\n\+    \\bconsumes\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bconsumes\DC2D\n\+    \\bproduces\CAN\STX \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternR\bproduces\DC2H\n\+    \\vhas_address\CAN\ETX \SOH(\v2'.utxorpc.v1alpha.cardano.AddressPatternR\n\+    \hasAddress\DC2F\n\+    \\vmoves_asset\CAN\EOT \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\+    \movesAsset\DC2F\n\+    \\vmints_asset\CAN\ENQ \SOH(\v2%.utxorpc.v1alpha.cardano.AssetPatternR\n\+    \mintsAsset\"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\"\142\SOH\n\+    \\n\+    \CostModels\DC2?\n\+    \\tplutus_v1\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV1\DC2?\n\+    \\tplutus_v2\CAN\STX \SOH(\v2\".utxorpc.v1alpha.cardano.CostModelR\bplutusV2\"\182\n\+    \\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\"\GS\n\+    \\tEvalError\DC2\DLE\n\+    \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\GS\n\+    \\tEvalTrace\DC2\DLE\n\+    \\ETXmsg\CAN\SOH \SOH(\tR\ETXmsg\"\207\SOH\n\+    \\ACKTxEval\DC2\DLE\n\+    \\ETXfee\CAN\SOH \SOH(\EOTR\ETXfee\DC2;\n\+    \\bex_units\CAN\STX \SOH(\v2 .utxorpc.v1alpha.cardano.ExUnitsR\aexUnits\DC2:\n\+    \\ACKerrors\CAN\ETX \ETX(\v2\".utxorpc.v1alpha.cardano.EvalErrorR\ACKerrors\DC2:\n\+    \\ACKtraces\CAN\EOT \ETX(\v2\".utxorpc.v1alpha.cardano.EvalTraceR\ACKtraces*\162\SOH\n\+    \\SIRedeemerPurpose\DC2 \n\+    \\FSREDEEMER_PURPOSE_UNSPECIFIED\DLE\NUL\DC2\SUB\n\+    \\SYNREDEEMER_PURPOSE_SPEND\DLE\SOH\DC2\EM\n\+    \\NAKREDEEMER_PURPOSE_MINT\DLE\STX\DC2\EM\n\+    \\NAKREDEEMER_PURPOSE_CERT\DLE\ETX\DC2\ESC\n\+    \\ETBREDEEMER_PURPOSE_REWARD\DLE\EOT*Y\n\+    \\tMirSource\DC2\SUB\n\+    \\SYNMIR_SOURCE_UNSPECIFIED\DLE\NUL\DC2\ETB\n\+    \\DC3MIR_SOURCE_RESERVES\DLE\SOH\DC2\ETB\n\+    \\DC3MIR_SOURCE_TREASURY\DLE\STXB\224\SOH\n\+    \\ESCcom.utxorpc.v1alpha.cardanoB\fCardanoProtoP\SOHZ5github.com/utxorpc/go-codegen/utxorpc/v1alpha/cardano\162\STX\ETXUVC\170\STX\ETBUtxorpc.V1alpha.Cardano\202\STX\ETBUtxorpc\\V1alpha\\Cardano\226\STX#Utxorpc\\V1alpha\\Cardano\\GPBMetadata\234\STX\EMUtxorpc::V1alpha::CardanoJ\202\154\SOH\n\+    \\a\DC2\ENQ\NUL\NUL\168\ETX\SOH\n\+    \\b\n\+    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\+    \\b\n\+    \\SOH\STX\DC2\ETX\STX\NUL \n\+    \7\n\+    \\STX\ENQ\NUL\DC2\EOT\ENQ\NUL\v\SOH\SUB+ Purpose of the redeemer in a transaction.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\ENQ\NUL\SOH\DC2\ETX\ENQ\ENQ\DC4\n\+    \\v\n\+    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX\ACK\STX#\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX\ACK\STX\RS\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX\ACK!\"\n\+    \\v\n\+    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX\a\STX\GS\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX\a\STX\CAN\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX\a\ESC\FS\n\+    \\v\n\+    \\EOT\ENQ\NUL\STX\STX\DC2\ETX\b\STX\FS\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX\b\STX\ETB\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX\b\SUB\ESC\n\+    \\v\n\+    \\EOT\ENQ\NUL\STX\ETX\DC2\ETX\t\STX\FS\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX\t\STX\ETB\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX\t\SUB\ESC\n\+    \\v\n\+    \\EOT\ENQ\NUL\STX\EOT\DC2\ETX\n\+    \\STX\RS\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX\n\+    \\STX\EM\n\+    \\f\n\+    \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX\n\+    \\FS\GS\n\+    \7\n\+    \\STX\EOT\NUL\DC2\EOT\SO\NUL\DC1\SOH\SUB+ Redeemer information for a Plutus script.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\NUL\SOH\DC2\ETX\SO\b\DLE\n\+    \'\n\+    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\STX\RS\"\SUB Purpose of the redeemer.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\SI\STX\DC1\n\+    \\f\n\+    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\DC2\EM\n\+    \\f\n\+    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\FS\GS\n\+    \8\n\+    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DLE\STX\EM\"+ Plutus data associated with the redeemer.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\DLE\STX\f\n\+    \\f\n\+    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DLE\r\DC4\n\+    \\f\n\+    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DLE\ETB\CAN\n\+    \G\n\+    \\STX\EOT\SOH\DC2\EOT\DC4\NUL\EM\SOH\SUB; Represents a transaction input in the Cardano blockchain.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\SOH\SOH\DC2\ETX\DC4\b\SI\n\+    \0\n\+    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\NAK\STX\DC4\"# Hash of the previous transaction.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\NAK\STX\a\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\NAK\b\SI\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\NAK\DC2\DC3\n\+    \?\n\+    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\SYN\STX\SUB\"2 Index of the output in the previous transaction.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\SYN\STX\b\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\SYN\t\NAK\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\SYN\CAN\EM\n\+    \T\n\+    \\EOT\EOT\SOH\STX\STX\DC2\ETX\ETB\STX\EM\"G Content of the input represented as output of the related transaction\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\ETB\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\ETB\v\DC4\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\ETB\ETB\CAN\n\+    \.\n\+    \\EOT\EOT\SOH\STX\ETX\DC2\ETX\CAN\STX\CAN\"! Redeemer for the Plutus script.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX\CAN\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\CAN\v\DC3\n\+    \\f\n\+    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\CAN\SYN\ETB\n\+    \H\n\+    \\STX\EOT\STX\DC2\EOT\FS\NUL\"\SOH\SUB< Represents a transaction output in the Cardano blockchain.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\STX\SOH\DC2\ETX\FS\b\DLE\n\+    \,\n\+    \\EOT\EOT\STX\STX\NUL\DC2\ETX\GS\STX\DC4\"\US Address receiving the output.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\GS\STX\a\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\GS\b\SI\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\GS\DC2\DC3\n\+    \+\n\+    \\EOT\EOT\STX\STX\SOH\DC2\ETX\RS\STX\DC2\"\RS Amount of ADA in the output.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\RS\STX\b\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\RS\t\r\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\RS\DLE\DC1\n\+    \@\n\+    \\EOT\EOT\STX\STX\STX\DC2\ETX\US\STX!\"3 Additional native (non-ADA) assets in the output.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\STX\EOT\DC2\ETX\US\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\STX\ACK\DC2\ETX\US\v\NAK\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX\US\SYN\FS\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX\US\US \n\+    \6\n\+    \\EOT\EOT\STX\STX\ETX\DC2\ETX \STX\DC2\") Plutus data associated with the output.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETX \STX\a\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX \b\r\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX \DLE\DC1\n\+    \1\n\+    \\EOT\EOT\STX\STX\EOT\DC2\ETX!\STX\DC4\"$ Script associated with the output.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\EOT\ACK\DC2\ETX!\STX\b\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETX!\t\SI\n\+    \\f\n\+    \\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETX!\DC2\DC3\n\+    \\n\+    \\n\+    \\STX\EOT\ETX\DC2\EOT$\NUL(\SOH\n\+    \\n\+    \\n\+    \\ETX\EOT\ETX\SOH\DC2\ETX$\b\r\n\+    \2\n\+    \\EOT\EOT\ETX\STX\NUL\DC2\ETX%\STX\DC1\"% Hash of this datum as seen on-chain\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX%\STX\a\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX%\b\f\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX%\SI\DLE\n\+    \)\n\+    \\EOT\EOT\ETX\STX\SOH\DC2\ETX&\STX\EM\"\FS Parsed Plutus data payload\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX&\STX\f\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX&\r\DC4\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX&\ETB\CAN\n\+    \:\n\+    \\EOT\EOT\ETX\STX\STX\DC2\ETX'\STX\SUB\"- Original cbor-encoded data as seen on-chain\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX'\STX\a\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX'\b\NAK\n\+    \\f\n\+    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX'\CAN\EM\n\+    \B\n\+    \\STX\EOT\EOT\DC2\EOT+\NUL/\SOH\SUB6 Represents a custom asset in the Cardano blockchain.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\EOT\SOH\DC2\ETX+\b\r\n\+    \(\n\+    \\EOT\EOT\EOT\STX\NUL\DC2\ETX,\STX\DC1\"\ESC Name of the custom asset.\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\f\n\+    \\f\n\+    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX,\SI\DLE\n\+    \A\n\+    \\EOT\EOT\EOT\STX\SOH\DC2\ETX-\STX\EM\"4 Quantity of the custom asset in case of an output.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETX-\STX\b\n\+    \\f\n\+    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX-\t\DC4\n\+    \\f\n\+    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX-\ETB\CAN\n\+    \>\n\+    \\EOT\EOT\EOT\STX\STX\DC2\ETX.\STX\SYN\"1 Quantity of the custom asset in case of a mint.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\EOT\STX\STX\ENQ\DC2\ETX.\STX\a\n\+    \\f\n\+    \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETX.\b\DC1\n\+    \\f\n\+    \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX.\DC4\NAK\n\+    \G\n\+    \\STX\EOT\ENQ\DC2\EOT2\NUL6\SOH\SUB; Represents a multi-asset group in the Cardano blockchain.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\ENQ\SOH\DC2\ETX2\b\DC2\n\+    \5\n\+    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX3\STX\SYN\"( Policy ID governing the custom assets.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX3\STX\a\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX3\b\DC1\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX3\DC4\NAK\n\+    \%\n\+    \\EOT\EOT\ENQ\STX\SOH\DC2\ETX4\STX\FS\"\CAN List of custom assets.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\SOH\EOT\DC2\ETX4\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETX4\v\DLE\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETX4\DC1\ETB\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETX4\SUB\ESC\n\+    \.\n\+    \\EOT\EOT\ENQ\STX\STX\DC2\ETX5\STX\CAN\"! Redeemer for the Plutus script.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETX5\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETX5\v\DC3\n\+    \\f\n\+    \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETX5\SYN\ETB\n\+    \@\n\+    \\STX\EOT\ACK\DC2\EOT9\NUL<\SOH\SUB4 Represents the validity interval of a transaction.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\ACK\SOH\DC2\ETX9\b\DC2\n\+    \.\n\+    \\EOT\EOT\ACK\STX\NUL\DC2\ETX:\STX\DC3\"! Start of the validity interval.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX:\STX\b\n\+    \\f\n\+    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX:\t\SO\n\+    \\f\n\+    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX:\DC1\DC2\n\+    \@\n\+    \\EOT\EOT\ACK\STX\SOH\DC2\ETX;\STX\DC1\"3 End of the validity interval (TTL: Time to Live).\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX;\STX\b\n\+    \\f\n\+    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX;\t\f\n\+    \\f\n\+    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX;\SI\DLE\n\+    \F\n\+    \\STX\EOT\a\DC2\EOT?\NULC\SOH\SUB: Represents the collateral information for a transaction.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\a\SOH\DC2\ETX?\b\DC2\n\+    \5\n\+    \\EOT\EOT\a\STX\NUL\DC2\ETX@\STX\"\"( Collateral inputs for the transaction.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\a\STX\NUL\EOT\DC2\ETX@\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX@\v\DC2\n\+    \\f\n\+    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX@\DC3\GS\n\+    \\f\n\+    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX@ !\n\+    \;\n\+    \\EOT\EOT\a\STX\SOH\DC2\ETXA\STX!\". Collateral return in case of script failure.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETXA\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXA\v\FS\n\+    \\f\n\+    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXA\US \n\+    \*\n\+    \\EOT\EOT\a\STX\STX\DC2\ETXB\STX\RS\"\GS Total amount of collateral.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\a\STX\STX\ENQ\DC2\ETXB\STX\b\n\+    \\f\n\+    \\ENQ\EOT\a\STX\STX\SOH\DC2\ETXB\t\EM\n\+    \\f\n\+    \\ENQ\EOT\a\STX\STX\ETX\DC2\ETXB\FS\GS\n\+    \<\n\+    \\STX\EOT\b\DC2\EOTF\NULJ\SOH\SUB0 Represents a withdrawal from a reward account.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\b\SOH\DC2\ETXF\b\DC2\n\+    \-\n\+    \\EOT\EOT\b\STX\NUL\DC2\ETXG\STX\ESC\"  Address of the reward account.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXG\STX\a\n\+    \\f\n\+    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXG\b\SYN\n\+    \\f\n\+    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXG\EM\SUB\n\+    \'\n\+    \\EOT\EOT\b\STX\SOH\DC2\ETXH\STX\DC2\"\SUB Amount of ADA withdrawn.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETXH\STX\b\n\+    \\f\n\+    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXH\t\r\n\+    \\f\n\+    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXH\DLE\DC1\n\+    \.\n\+    \\EOT\EOT\b\STX\STX\DC2\ETXI\STX\CAN\"! Redeemer for the Plutus script.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\b\STX\STX\ACK\DC2\ETXI\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXI\v\DC3\n\+    \\f\n\+    \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXI\SYN\ETB\n\+    \G\n\+    \\STX\EOT\t\DC2\EOTM\NULQ\SOH\SUB; Represents a set of witnesses that validate a transaction\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\t\SOH\DC2\ETXM\b\DC2\n\+    \&\n\+    \\EOT\EOT\t\STX\NUL\DC2\ETXN\STX'\"\EM List of VKey witnesses.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXN\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXN\v\SYN\n\+    \\f\n\+    \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXN\ETB\"\n\+    \\f\n\+    \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXN%&\n\+    \\US\n\+    \\EOT\EOT\t\STX\SOH\DC2\ETXO\STX\GS\"\DC2 List of scripts.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\t\STX\SOH\EOT\DC2\ETXO\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXO\v\DC1\n\+    \\f\n\+    \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXO\DC2\CAN\n\+    \\f\n\+    \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXO\ESC\FS\n\+    \L\n\+    \\EOT\EOT\t\STX\STX\DC2\ETXP\STX(\"? List of Plutus data elements associated with the transaction.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\t\STX\STX\EOT\DC2\ETXP\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\t\STX\STX\ACK\DC2\ETXP\v\NAK\n\+    \\f\n\+    \\ENQ\EOT\t\STX\STX\SOH\DC2\ETXP\SYN#\n\+    \\f\n\+    \\ENQ\EOT\t\STX\STX\ETX\DC2\ETXP&'\n\+    \H\n\+    \\STX\EOT\n\+    \\DC2\EOTT\NULW\SOH\SUB< Auxiliary data not directly tied to the validation process\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\n\+    \\SOH\DC2\ETXT\b\SI\n\+    \3\n\+    \\EOT\EOT\n\+    \\STX\NUL\DC2\ETXU\STX!\"& List of auxiliary metadata elements.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\NUL\EOT\DC2\ETXU\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\NUL\ACK\DC2\ETXU\v\DC3\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\NUL\SOH\DC2\ETXU\DC4\FS\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\NUL\ETX\DC2\ETXU\US \n\+    \)\n\+    \\EOT\EOT\n\+    \\STX\SOH\DC2\ETXV\STX\RS\"\FS List of auxiliary scripts.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\SOH\EOT\DC2\ETXV\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\SOH\ACK\DC2\ETXV\v\DC1\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\SOH\SOH\DC2\ETXV\DC2\EM\n\+    \\f\n\+    \\ENQ\EOT\n\+    \\STX\SOH\ETX\DC2\ETXV\FS\GS\n\+    \A\n\+    \\STX\EOT\v\DC2\EOTZ\NULh\SOH\SUB5 Represents a transaction in the Cardano blockchain.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\v\SOH\DC2\ETXZ\b\n\+    \\n\+    \)\n\+    \\EOT\EOT\v\STX\NUL\DC2\ETX[\STX\RS\"\FS List of transaction inputs\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\NUL\EOT\DC2\ETX[\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETX[\v\DC2\n\+    \\f\n\+    \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETX[\DC3\EM\n\+    \\f\n\+    \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETX[\FS\GS\n\+    \*\n\+    \\EOT\EOT\v\STX\SOH\DC2\ETX\\\STX \"\GS List of transaction outputs\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\SOH\EOT\DC2\ETX\\\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETX\\\v\DC3\n\+    \\f\n\+    \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETX\\\DC4\ESC\n\+    \\f\n\+    \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETX\\\RS\US\n\+    \#\n\+    \\EOT\EOT\v\STX\STX\DC2\ETX]\STX(\"\SYN List of certificates\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\STX\EOT\DC2\ETX]\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\STX\ACK\DC2\ETX]\v\SYN\n\+    \\f\n\+    \\ENQ\EOT\v\STX\STX\SOH\DC2\ETX]\ETB#\n\+    \\f\n\+    \\ENQ\EOT\v\STX\STX\ETX\DC2\ETX]&'\n\+    \\"\n\+    \\EOT\EOT\v\STX\ETX\DC2\ETX^\STX&\"\NAK List of withdrawals\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ETX\EOT\DC2\ETX^\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ETX\ACK\DC2\ETX^\v\NAK\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ETX\SOH\DC2\ETX^\SYN!\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ETX\ETX\DC2\ETX^$%\n\+    \+\n\+    \\EOT\EOT\v\STX\EOT\DC2\ETX_\STX\US\"\RS List of minted custom assets\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\EOT\EOT\DC2\ETX_\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\EOT\ACK\DC2\ETX_\v\NAK\n\+    \\f\n\+    \\ENQ\EOT\v\STX\EOT\SOH\DC2\ETX_\SYN\SUB\n\+    \\f\n\+    \\ENQ\EOT\v\STX\EOT\ETX\DC2\ETX_\GS\RS\n\+    \'\n\+    \\EOT\EOT\v\STX\ENQ\DC2\ETX`\STX(\"\SUB List of reference inputs\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ENQ\EOT\DC2\ETX`\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ENQ\ACK\DC2\ETX`\v\DC2\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ENQ\SOH\DC2\ETX`\DC3#\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ENQ\ETX\DC2\ETX`&'\n\+    \5\n\+    \\EOT\EOT\v\STX\ACK\DC2\ETXa\STX\ESC\"( Witnesses that validte the transaction\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ACK\ACK\DC2\ETXa\STX\f\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ACK\SOH\DC2\ETXa\r\SYN\n\+    \\f\n\+    \\ENQ\EOT\v\STX\ACK\ETX\DC2\ETXa\EM\SUB\n\+    \?\n\+    \\EOT\EOT\v\STX\a\DC2\ETXb\STX\FS\"2 Collateral details in case of failed transaction\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\a\ACK\DC2\ETXb\STX\f\n\+    \\f\n\+    \\ENQ\EOT\v\STX\a\SOH\DC2\ETXb\r\ETB\n\+    \\f\n\+    \\ENQ\EOT\v\STX\a\ETX\DC2\ETXb\SUB\ESC\n\+    \%\n\+    \\EOT\EOT\v\STX\b\DC2\ETXc\STX\DC1\"\CAN Transaction fee in ADA\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\b\ENQ\DC2\ETXc\STX\b\n\+    \\f\n\+    \\ENQ\EOT\v\STX\b\SOH\DC2\ETXc\t\f\n\+    \\f\n\+    \\ENQ\EOT\v\STX\b\ETX\DC2\ETXc\SI\DLE\n\+    \3\n\+    \\EOT\EOT\v\STX\t\DC2\ETXd\STX\ESC\"& Validity interval of the transaction\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\t\ACK\DC2\ETXd\STX\f\n\+    \\f\n\+    \\ENQ\EOT\v\STX\t\SOH\DC2\ETXd\r\NAK\n\+    \\f\n\+    \\ENQ\EOT\v\STX\t\ETX\DC2\ETXd\CAN\SUB\n\+    \E\n\+    \\EOT\EOT\v\STX\n\+    \\DC2\ETXe\STX\ETB\"8 Flag indicating whether the transaction was successful\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\n\+    \\ENQ\DC2\ETXe\STX\ACK\n\+    \\f\n\+    \\ENQ\EOT\v\STX\n\+    \\SOH\DC2\ETXe\a\DC1\n\+    \\f\n\+    \\ENQ\EOT\v\STX\n\+    \\ETX\DC2\ETXe\DC4\SYN\n\+    \I\n\+    \\EOT\EOT\v\STX\v\DC2\ETXf\STX\EM\"< Auxiliary data not directly tied to the validation process\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\v\ACK\DC2\ETXf\STX\t\n\+    \\f\n\+    \\ENQ\EOT\v\STX\v\SOH\DC2\ETXf\n\+    \\DC3\n\+    \\f\n\+    \\ENQ\EOT\v\STX\v\ETX\DC2\ETXf\SYN\CAN\n\+    \E\n\+    \\EOT\EOT\v\STX\f\DC2\ETXg\STX\DC2\"8 Hash of the transaction that serves as main identifier\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\v\STX\f\ENQ\DC2\ETXg\STX\a\n\+    \\f\n\+    \\ENQ\EOT\v\STX\f\SOH\DC2\ETXg\b\f\n\+    \\f\n\+    \\ENQ\EOT\v\STX\f\ETX\DC2\ETXg\SI\DC1\n\+    \:\n\+    \\STX\EOT\f\DC2\EOTk\NULo\SOH\SUB. Contains the header information for a block.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\f\SOH\DC2\ETXk\b\DC3\n\+    \\ESC\n\+    \\EOT\EOT\f\STX\NUL\DC2\ETXl\STX\DC2\"\SO Slot number.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\f\STX\NUL\ENQ\DC2\ETXl\STX\b\n\+    \\f\n\+    \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXl\t\r\n\+    \\f\n\+    \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXl\DLE\DC1\n\+    \\SUB\n\+    \\EOT\EOT\f\STX\SOH\DC2\ETXm\STX\DC1\"\r Block hash.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\f\STX\SOH\ENQ\DC2\ETXm\STX\a\n\+    \\f\n\+    \\ENQ\EOT\f\STX\SOH\SOH\DC2\ETXm\b\f\n\+    \\f\n\+    \\ENQ\EOT\f\STX\SOH\ETX\DC2\ETXm\SI\DLE\n\+    \\FS\n\+    \\EOT\EOT\f\STX\STX\DC2\ETXn\STX\DC4\"\SI Block height.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\f\STX\STX\ENQ\DC2\ETXn\STX\b\n\+    \\f\n\+    \\ENQ\EOT\f\STX\STX\SOH\DC2\ETXn\t\SI\n\+    \\f\n\+    \\ENQ\EOT\f\STX\STX\ETX\DC2\ETXn\DC2\DC3\n\+    \8\n\+    \\STX\EOT\r\DC2\EOTr\NULt\SOH\SUB, Contains the transaction data for a block.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\r\SOH\DC2\ETXr\b\DC1\n\+    \$\n\+    \\EOT\EOT\r\STX\NUL\DC2\ETXs\STX\NAK\"\ETB List of transactions.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\r\STX\NUL\EOT\DC2\ETXs\STX\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXs\v\r\n\+    \\f\n\+    \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXs\SO\DLE\n\+    \\f\n\+    \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXs\DC3\DC4\n\+    \E\n\+    \\STX\EOT\SO\DC2\EOTw\NULz\SOH\SUB9 Represents a complete block, including header and body.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\SO\SOH\DC2\ETXw\b\r\n\+    \\FS\n\+    \\EOT\EOT\SO\STX\NUL\DC2\ETXx\STX\EM\"\SI Block header.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXx\STX\r\n\+    \\f\n\+    \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXx\SO\DC4\n\+    \\f\n\+    \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXx\ETB\CAN\n\+    \\SUB\n\+    \\EOT\EOT\SO\STX\SOH\DC2\ETXy\STX\NAK\"\r Block body.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SO\STX\SOH\ACK\DC2\ETXy\STX\v\n\+    \\f\n\+    \\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXy\f\DLE\n\+    \\f\n\+    \\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXy\DC3\DC4\n\+    \D\n\+    \\STX\EOT\SI\DC2\ENQ}\NUL\128\SOH\SOH\SUB7 Represents a VKey witness used to sign a transaction.\n\+    \\n\+    \\n\+    \\n\+    \\ETX\EOT\SI\SOH\DC2\ETX}\b\DC3\n\+    \ \n\+    \\EOT\EOT\SI\STX\NUL\DC2\ETX~\STX\DC1\"\DC3 Verification key.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\ETX~\STX\a\n\+    \\f\n\+    \\ENQ\EOT\SI\STX\NUL\SOH\DC2\ETX~\b\f\n\+    \\f\n\+    \\ENQ\EOT\SI\STX\NUL\ETX\DC2\ETX~\SI\DLE\n\+    \D\n\+    \\EOT\EOT\SI\STX\SOH\DC2\ETX\DEL\STX\SYN\"7 Signature generated using the associated private key.\n\+    \\n\+    \\f\n\+    \\ENQ\EOT\SI\STX\SOH\ENQ\DC2\ETX\DEL\STX\a\n\+    \\f\n\+    \\ENQ\EOT\SI\STX\SOH\SOH\DC2\ETX\DEL\b\DC1\n\+    \\f\n\+    \\ENQ\EOT\SI\STX\SOH\ETX\DC2\ETX\DEL\DC4\NAK\n\+    \6\n\+    \\STX\EOT\DLE\DC2\ACK\131\SOH\NUL\140\SOH\SOH\SUB( Represents a native script in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\DLE\SOH\DC2\EOT\131\SOH\b\DC4\n\+    \\SO\n\+    \\EOT\EOT\DLE\b\NUL\DC2\ACK\132\SOH\STX\139\SOH\ETX\n\+    \\r\n\+    \\ENQ\EOT\DLE\b\NUL\SOH\DC2\EOT\132\SOH\b\NAK\n\+    \4\n\+    \\EOT\EOT\DLE\STX\NUL\DC2\EOT\133\SOH\EOT\FS\"& Script based on an address key hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\NUL\ENQ\DC2\EOT\133\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\133\SOH\n\+    \\ETB\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\133\SOH\SUB\ESC\n\+    \H\n\+    \\EOT\EOT\DLE\STX\SOH\DC2\EOT\134\SOH\EOT$\": Script that requires all nested scripts to be satisfied.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\SOH\ACK\DC2\EOT\134\SOH\EOT\DC4\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\134\SOH\NAK\US\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\134\SOH\"#\n\+    \O\n\+    \\EOT\EOT\DLE\STX\STX\DC2\EOT\135\SOH\EOT$\"A Script that requires any of the nested scripts to be satisfied.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\STX\ACK\DC2\EOT\135\SOH\EOT\DC4\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\STX\SOH\DC2\EOT\135\SOH\NAK\US\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\STX\ETX\DC2\EOT\135\SOH\"#\n\+    \O\n\+    \\EOT\EOT\DLE\STX\ETX\DC2\EOT\136\SOH\EOT!\"A Script that requires k out of n nested scripts to be satisfied.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\ETX\ACK\DC2\EOT\136\SOH\EOT\SO\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\ETX\SOH\DC2\EOT\136\SOH\SI\FS\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\ETX\ETX\DC2\EOT\136\SOH\US \n\+    \?\n\+    \\EOT\EOT\DLE\STX\EOT\DC2\EOT\137\SOH\EOT\RS\"1 Slot number before which the script is invalid.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\EOT\ENQ\DC2\EOT\137\SOH\EOT\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\EOT\SOH\DC2\EOT\137\SOH\v\EM\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\EOT\ETX\DC2\EOT\137\SOH\FS\GS\n\+    \>\n\+    \\EOT\EOT\DLE\STX\ENQ\DC2\EOT\138\SOH\EOT!\"0 Slot number after which the script is invalid.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\ENQ\ENQ\DC2\EOT\138\SOH\EOT\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\ENQ\SOH\DC2\EOT\138\SOH\v\FS\n\+    \\r\n\+    \\ENQ\EOT\DLE\STX\ENQ\ETX\DC2\EOT\138\SOH\US \n\+    \4\n\+    \\STX\EOT\DC1\DC2\ACK\143\SOH\NUL\145\SOH\SOH\SUB& Represents a list of native scripts.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\DC1\SOH\DC2\EOT\143\SOH\b\CAN\n\+    \'\n\+    \\EOT\EOT\DC1\STX\NUL\DC2\EOT\144\SOH\STX\"\"\EM List of native scripts.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DC1\STX\NUL\EOT\DC2\EOT\144\SOH\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\144\SOH\v\ETB\n\+    \\r\n\+    \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\144\SOH\CAN\GS\n\+    \\r\n\+    \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\144\SOH !\n\+    \8\n\+    \\STX\EOT\DC2\DC2\ACK\148\SOH\NUL\151\SOH\SOH\SUB* Represents a \"k out of n\" native script.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\DC2\SOH\DC2\EOT\148\SOH\b\DC2\n\+    \9\n\+    \\EOT\EOT\DC2\STX\NUL\DC2\EOT\149\SOH\STX\SI\"+ The number of required satisfied scripts.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\149\SOH\STX\b\n\+    \\r\n\+    \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\149\SOH\t\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\149\SOH\r\SO\n\+    \'\n\+    \\EOT\EOT\DC2\STX\SOH\DC2\EOT\150\SOH\STX$\"\EM List of native scripts.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DC2\STX\SOH\EOT\DC2\EOT\150\SOH\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DC2\STX\SOH\ACK\DC2\EOT\150\SOH\v\ETB\n\+    \\r\n\+    \\ENQ\EOT\DC2\STX\SOH\SOH\DC2\EOT\150\SOH\CAN\US\n\+    \\r\n\+    \\ENQ\EOT\DC2\STX\SOH\ETX\DC2\EOT\150\SOH\"#\n\+    \D\n\+    \\STX\EOT\DC3\DC2\ACK\154\SOH\NUL\158\SOH\SOH\SUB6 Represents a constructor for Plutus data in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\DC3\SOH\DC2\EOT\154\SOH\b\SO\n\+    \\f\n\+    \\EOT\EOT\DC3\STX\NUL\DC2\EOT\155\SOH\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\155\SOH\STX\b\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\155\SOH\t\f\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\155\SOH\SI\DLE\n\+    \\f\n\+    \\EOT\EOT\DC3\STX\SOH\DC2\EOT\156\SOH\STX\GS\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\156\SOH\STX\b\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\156\SOH\t\CAN\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\156\SOH\ESC\FS\n\+    \\f\n\+    \\EOT\EOT\DC3\STX\STX\DC2\EOT\157\SOH\STX!\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\STX\EOT\DC2\EOT\157\SOH\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\STX\ACK\DC2\EOT\157\SOH\v\NAK\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\STX\SOH\DC2\EOT\157\SOH\SYN\FS\n\+    \\r\n\+    \\ENQ\EOT\DC3\STX\STX\ETX\DC2\EOT\157\SOH\US \n\+    \D\n\+    \\STX\EOT\DC4\DC2\ACK\161\SOH\NUL\167\SOH\SOH\SUB6 Represents a big integer for Plutus data in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\DC4\SOH\DC2\EOT\161\SOH\b\SO\n\+    \\SO\n\+    \\EOT\EOT\DC4\b\NUL\DC2\ACK\162\SOH\STX\166\SOH\ETX\n\+    \\r\n\+    \\ENQ\EOT\DC4\b\NUL\SOH\DC2\EOT\162\SOH\b\SI\n\+    \\f\n\+    \\EOT\EOT\DC4\STX\NUL\DC2\EOT\163\SOH\EOT\DC2\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\NUL\ENQ\DC2\EOT\163\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\163\SOH\n\+    \\r\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\163\SOH\DLE\DC1\n\+    \\f\n\+    \\EOT\EOT\DC4\STX\SOH\DC2\EOT\164\SOH\EOT\CAN\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\SOH\ENQ\DC2\EOT\164\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\164\SOH\n\+    \\DC3\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\164\SOH\SYN\ETB\n\+    \\f\n\+    \\EOT\EOT\DC4\STX\STX\DC2\EOT\165\SOH\EOT\CAN\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\STX\ENQ\DC2\EOT\165\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\STX\SOH\DC2\EOT\165\SOH\n\+    \\DC3\n\+    \\r\n\+    \\ENQ\EOT\DC4\STX\STX\ETX\DC2\EOT\165\SOH\SYN\ETB\n\+    \G\n\+    \\STX\EOT\NAK\DC2\ACK\170\SOH\NUL\173\SOH\SOH\SUB9 Represents a key-value pair for Plutus data in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\NAK\SOH\DC2\EOT\170\SOH\b\SYN\n\+    \ \n\+    \\EOT\EOT\NAK\STX\NUL\DC2\EOT\171\SOH\STX\NAK\"\DC2 Key of the pair.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\NAK\STX\NUL\ACK\DC2\EOT\171\SOH\STX\f\n\+    \\r\n\+    \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\171\SOH\r\DLE\n\+    \\r\n\+    \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\171\SOH\DC3\DC4\n\+    \\"\n\+    \\EOT\EOT\NAK\STX\SOH\DC2\EOT\172\SOH\STX\ETB\"\DC4 Value of the pair.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\NAK\STX\SOH\ACK\DC2\EOT\172\SOH\STX\f\n\+    \\r\n\+    \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\172\SOH\r\DC2\n\+    \\r\n\+    \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\172\SOH\NAK\SYN\n\+    \9\n\+    \\STX\EOT\SYN\DC2\ACK\176\SOH\NUL\184\SOH\SOH\SUB+ Represents a Plutus data item in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\SYN\SOH\DC2\EOT\176\SOH\b\DC2\n\+    \\SO\n\+    \\EOT\EOT\SYN\b\NUL\DC2\ACK\177\SOH\STX\183\SOH\ETX\n\+    \\r\n\+    \\ENQ\EOT\SYN\b\NUL\SOH\DC2\EOT\177\SOH\b\DC3\n\+    \\FS\n\+    \\EOT\EOT\SYN\STX\NUL\DC2\EOT\178\SOH\EOT\SYN\"\SO Constructor.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\NUL\ACK\DC2\EOT\178\SOH\EOT\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\178\SOH\v\DC1\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\178\SOH\DC4\NAK\n\+    \#\n\+    \\EOT\EOT\SYN\STX\SOH\DC2\EOT\179\SOH\EOT\SUB\"\NAK Map of Plutus data.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\SOH\ACK\DC2\EOT\179\SOH\EOT\DC1\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\SOH\SOH\DC2\EOT\179\SOH\DC2\NAK\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\SOH\ETX\DC2\EOT\179\SOH\CAN\EM\n\+    \\FS\n\+    \\EOT\EOT\SYN\STX\STX\DC2\EOT\180\SOH\EOT\ETB\"\SO Big integer.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\STX\ACK\DC2\EOT\180\SOH\EOT\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\STX\SOH\DC2\EOT\180\SOH\v\DC2\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\STX\ETX\DC2\EOT\180\SOH\NAK\SYN\n\+    \\RS\n\+    \\EOT\EOT\SYN\STX\ETX\DC2\EOT\181\SOH\EOT\FS\"\DLE Bounded bytes.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\ETX\ENQ\DC2\EOT\181\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\ETX\SOH\DC2\EOT\181\SOH\n\+    \\ETB\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\ETX\ETX\DC2\EOT\181\SOH\SUB\ESC\n\+    \%\n\+    \\EOT\EOT\SYN\STX\EOT\DC2\EOT\182\SOH\EOT\RS\"\ETB Array of Plutus data.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\EOT\ACK\DC2\EOT\182\SOH\EOT\DC3\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\EOT\SOH\DC2\EOT\182\SOH\DC4\EM\n\+    \\r\n\+    \\ENQ\EOT\SYN\STX\EOT\ETX\DC2\EOT\182\SOH\FS\GS\n\+    \;\n\+    \\STX\EOT\ETB\DC2\ACK\187\SOH\NUL\189\SOH\SOH\SUB- Represents a map of Plutus data in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\ETB\SOH\DC2\EOT\187\SOH\b\NAK\n\+    \(\n\+    \\EOT\EOT\ETB\STX\NUL\DC2\EOT\188\SOH\STX$\"\SUB List of key-value pairs.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\ETB\STX\NUL\EOT\DC2\EOT\188\SOH\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\ETB\STX\NUL\ACK\DC2\EOT\188\SOH\v\EM\n\+    \\r\n\+    \\ENQ\EOT\ETB\STX\NUL\SOH\DC2\EOT\188\SOH\SUB\US\n\+    \\r\n\+    \\ENQ\EOT\ETB\STX\NUL\ETX\DC2\EOT\188\SOH\"#\n\+    \>\n\+    \\STX\EOT\CAN\DC2\ACK\192\SOH\NUL\194\SOH\SOH\SUB0 Represents an array of Plutus data in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\CAN\SOH\DC2\EOT\192\SOH\b\ETB\n\+    \*\n\+    \\EOT\EOT\CAN\STX\NUL\DC2\EOT\193\SOH\STX \"\FS List of Plutus data items.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\CAN\STX\NUL\EOT\DC2\EOT\193\SOH\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\CAN\STX\NUL\ACK\DC2\EOT\193\SOH\v\NAK\n\+    \\r\n\+    \\ENQ\EOT\CAN\STX\NUL\SOH\DC2\EOT\193\SOH\SYN\ESC\n\+    \\r\n\+    \\ENQ\EOT\CAN\STX\NUL\ETX\DC2\EOT\193\SOH\RS\US\n\+    \/\n\+    \\STX\EOT\EM\DC2\ACK\197\SOH\NUL\203\SOH\SOH\SUB! Represents a script in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\EM\SOH\DC2\EOT\197\SOH\b\SO\n\+    \\SO\n\+    \\EOT\EOT\EM\b\NUL\DC2\ACK\198\SOH\STX\202\SOH\ETX\n\+    \\r\n\+    \\ENQ\EOT\EM\b\NUL\SOH\DC2\EOT\198\SOH\b\SO\n\+    \\RS\n\+    \\EOT\EOT\EM\STX\NUL\DC2\EOT\199\SOH\EOT\FS\"\DLE Native script.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\NUL\ACK\DC2\EOT\199\SOH\EOT\DLE\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\NUL\SOH\DC2\EOT\199\SOH\DC1\ETB\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\NUL\ETX\DC2\EOT\199\SOH\SUB\ESC\n\+    \!\n\+    \\EOT\EOT\EM\STX\SOH\DC2\EOT\200\SOH\EOT\CAN\"\DC3 Plutus V1 script.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\SOH\ENQ\DC2\EOT\200\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\SOH\SOH\DC2\EOT\200\SOH\n\+    \\DC3\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\SOH\ETX\DC2\EOT\200\SOH\SYN\ETB\n\+    \!\n\+    \\EOT\EOT\EM\STX\STX\DC2\EOT\201\SOH\EOT\CAN\"\DC3 Plutus V2 script.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\STX\ENQ\DC2\EOT\201\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\STX\SOH\DC2\EOT\201\SOH\n\+    \\DC3\n\+    \\r\n\+    \\ENQ\EOT\EM\STX\STX\ETX\DC2\EOT\201\SOH\SYN\ETB\n\+    \\f\n\+    \\STX\EOT\SUB\DC2\ACK\205\SOH\NUL\213\SOH\SOH\n\+    \\v\n\+    \\ETX\EOT\SUB\SOH\DC2\EOT\205\SOH\b\DC1\n\+    \\SO\n\+    \\EOT\EOT\SUB\b\NUL\DC2\ACK\206\SOH\STX\212\SOH\ETX\n\+    \\r\n\+    \\ENQ\EOT\SUB\b\NUL\SOH\DC2\EOT\206\SOH\b\DC1\n\+    \\f\n\+    \\EOT\EOT\SUB\STX\NUL\DC2\EOT\207\SOH\EOT\DC2\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\NUL\ENQ\DC2\EOT\207\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\NUL\SOH\DC2\EOT\207\SOH\n\+    \\r\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\NUL\ETX\DC2\EOT\207\SOH\DLE\DC1\n\+    \\f\n\+    \\EOT\EOT\SUB\STX\SOH\DC2\EOT\208\SOH\EOT\DC4\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\SOH\ENQ\DC2\EOT\208\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\SOH\SOH\DC2\EOT\208\SOH\n\+    \\SI\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\SOH\ETX\DC2\EOT\208\SOH\DC2\DC3\n\+    \\f\n\+    \\EOT\EOT\SUB\STX\STX\DC2\EOT\209\SOH\EOT\DC4\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\STX\ENQ\DC2\EOT\209\SOH\EOT\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\STX\SOH\DC2\EOT\209\SOH\v\SI\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\STX\ETX\DC2\EOT\209\SOH\DC2\DC3\n\+    \\f\n\+    \\EOT\EOT\SUB\STX\ETX\DC2\EOT\210\SOH\EOT\GS\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\ETX\ACK\DC2\EOT\210\SOH\EOT\DC2\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\ETX\SOH\DC2\EOT\210\SOH\DC3\CAN\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\ETX\ETX\DC2\EOT\210\SOH\ESC\FS\n\+    \\f\n\+    \\EOT\EOT\SUB\STX\EOT\DC2\EOT\211\SOH\EOT\EM\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\EOT\ACK\DC2\EOT\211\SOH\EOT\DLE\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\EOT\SOH\DC2\EOT\211\SOH\DC1\DC4\n\+    \\r\n\+    \\ENQ\EOT\SUB\STX\EOT\ETX\DC2\EOT\211\SOH\ETB\CAN\n\+    \\f\n\+    \\STX\EOT\ESC\DC2\ACK\215\SOH\NUL\217\SOH\SOH\n\+    \\v\n\+    \\ETX\EOT\ESC\SOH\DC2\EOT\215\SOH\b\SYN\n\+    \\f\n\+    \\EOT\EOT\ESC\STX\NUL\DC2\EOT\216\SOH\STX\US\n\+    \\r\n\+    \\ENQ\EOT\ESC\STX\NUL\EOT\DC2\EOT\216\SOH\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\ESC\STX\NUL\ACK\DC2\EOT\216\SOH\v\DC4\n\+    \\r\n\+    \\ENQ\EOT\ESC\STX\NUL\SOH\DC2\EOT\216\SOH\NAK\SUB\n\+    \\r\n\+    \\ENQ\EOT\ESC\STX\NUL\ETX\DC2\EOT\216\SOH\GS\RS\n\+    \\f\n\+    \\STX\EOT\FS\DC2\ACK\219\SOH\NUL\221\SOH\SOH\n\+    \\v\n\+    \\ETX\EOT\FS\SOH\DC2\EOT\219\SOH\b\DC4\n\+    \\f\n\+    \\EOT\EOT\FS\STX\NUL\DC2\EOT\220\SOH\STX#\n\+    \\r\n\+    \\ENQ\EOT\FS\STX\NUL\EOT\DC2\EOT\220\SOH\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\FS\STX\NUL\ACK\DC2\EOT\220\SOH\v\CAN\n\+    \\r\n\+    \\ENQ\EOT\FS\STX\NUL\SOH\DC2\EOT\220\SOH\EM\RS\n\+    \\r\n\+    \\ENQ\EOT\FS\STX\NUL\ETX\DC2\EOT\220\SOH!\"\n\+    \\f\n\+    \\STX\EOT\GS\DC2\ACK\223\SOH\NUL\226\SOH\SOH\n\+    \\v\n\+    \\ETX\EOT\GS\SOH\DC2\EOT\223\SOH\b\NAK\n\+    \\f\n\+    \\EOT\EOT\GS\STX\NUL\DC2\EOT\224\SOH\STX\DC4\n\+    \\r\n\+    \\ENQ\EOT\GS\STX\NUL\ACK\DC2\EOT\224\SOH\STX\v\n\+    \\r\n\+    \\ENQ\EOT\GS\STX\NUL\SOH\DC2\EOT\224\SOH\f\SI\n\+    \\r\n\+    \\ENQ\EOT\GS\STX\NUL\ETX\DC2\EOT\224\SOH\DC2\DC3\n\+    \\f\n\+    \\EOT\EOT\GS\STX\SOH\DC2\EOT\225\SOH\STX\SYN\n\+    \\r\n\+    \\ENQ\EOT\GS\STX\SOH\ACK\DC2\EOT\225\SOH\STX\v\n\+    \\r\n\+    \\ENQ\EOT\GS\STX\SOH\SOH\DC2\EOT\225\SOH\f\DC1\n\+    \\r\n\+    \\ENQ\EOT\GS\STX\SOH\ETX\DC2\EOT\225\SOH\DC4\NAK\n\+    \\f\n\+    \\STX\EOT\RS\DC2\ACK\228\SOH\NUL\231\SOH\SOH\n\+    \\v\n\+    \\ETX\EOT\RS\SOH\DC2\EOT\228\SOH\b\DLE\n\+    \\f\n\+    \\EOT\EOT\RS\STX\NUL\DC2\EOT\229\SOH\STX\DC3\n\+    \\r\n\+    \\ENQ\EOT\RS\STX\NUL\ENQ\DC2\EOT\229\SOH\STX\b\n\+    \\r\n\+    \\ENQ\EOT\RS\STX\NUL\SOH\DC2\EOT\229\SOH\t\SO\n\+    \\r\n\+    \\ENQ\EOT\RS\STX\NUL\ETX\DC2\EOT\229\SOH\DC1\DC2\n\+    \\f\n\+    \\EOT\EOT\RS\STX\SOH\DC2\EOT\230\SOH\STX\SYN\n\+    \\r\n\+    \\ENQ\EOT\RS\STX\SOH\ACK\DC2\EOT\230\SOH\STX\v\n\+    \\r\n\+    \\ENQ\EOT\RS\STX\SOH\SOH\DC2\EOT\230\SOH\f\DC1\n\+    \\r\n\+    \\ENQ\EOT\RS\STX\SOH\ETX\DC2\EOT\230\SOH\DC4\NAK\n\+    \9\n\+    \\STX\EOT\US\DC2\ACK\234\SOH\NUL\239\SOH\SOH\SUB+ Represents a stake credential in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\US\SOH\DC2\EOT\234\SOH\b\ETB\n\+    \\SO\n\+    \\EOT\EOT\US\b\NUL\DC2\ACK\235\SOH\STX\238\SOH\ETX\n\+    \\r\n\+    \\ENQ\EOT\US\b\NUL\SOH\DC2\EOT\235\SOH\b\CAN\n\+    \!\n\+    \\EOT\EOT\US\STX\NUL\DC2\EOT\236\SOH\EOT\FS\"\DC3 Address key hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\US\STX\NUL\ENQ\DC2\EOT\236\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\US\STX\NUL\SOH\DC2\EOT\236\SOH\n\+    \\ETB\n\+    \\r\n\+    \\ENQ\EOT\US\STX\NUL\ETX\DC2\EOT\236\SOH\SUB\ESC\n\+    \\FS\n\+    \\EOT\EOT\US\STX\SOH\DC2\EOT\237\SOH\EOT\SUB\"\SO Script hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT\US\STX\SOH\ENQ\DC2\EOT\237\SOH\EOT\t\n\+    \\r\n\+    \\ENQ\EOT\US\STX\SOH\SOH\DC2\EOT\237\SOH\n\+    \\NAK\n\+    \\r\n\+    \\ENQ\EOT\US\STX\SOH\ETX\DC2\EOT\237\SOH\CAN\EM\n\+    \;\n\+    \\STX\EOT \DC2\ACK\242\SOH\NUL\245\SOH\SOH\SUB- Represents a rational number as a fraction.\n\+    \\n\+    \\v\n\+    \\ETX\EOT \SOH\DC2\EOT\242\SOH\b\SYN\n\+    \\f\n\+    \\EOT\EOT \STX\NUL\DC2\EOT\243\SOH\STX\SYN\n\+    \\r\n\+    \\ENQ\EOT \STX\NUL\ENQ\DC2\EOT\243\SOH\STX\a\n\+    \\r\n\+    \\ENQ\EOT \STX\NUL\SOH\DC2\EOT\243\SOH\b\DC1\n\+    \\r\n\+    \\ENQ\EOT \STX\NUL\ETX\DC2\EOT\243\SOH\DC4\NAK\n\+    \\f\n\+    \\EOT\EOT \STX\SOH\DC2\EOT\244\SOH\STX\EM\n\+    \\r\n\+    \\ENQ\EOT \STX\SOH\ENQ\DC2\EOT\244\SOH\STX\b\n\+    \\r\n\+    \\ENQ\EOT \STX\SOH\SOH\DC2\EOT\244\SOH\t\DC4\n\+    \\r\n\+    \\ENQ\EOT \STX\SOH\ETX\DC2\EOT\244\SOH\ETB\CAN\n\+    \.\n\+    \\STX\EOT!\DC2\ACK\248\SOH\NUL\253\SOH\SOH\SUB  Represents a relay in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT!\SOH\DC2\EOT\248\SOH\b\r\n\+    \\f\n\+    \\EOT\EOT!\STX\NUL\DC2\EOT\249\SOH\STX\DC2\n\+    \\r\n\+    \\ENQ\EOT!\STX\NUL\ENQ\DC2\EOT\249\SOH\STX\a\n\+    \\r\n\+    \\ENQ\EOT!\STX\NUL\SOH\DC2\EOT\249\SOH\b\r\n\+    \\r\n\+    \\ENQ\EOT!\STX\NUL\ETX\DC2\EOT\249\SOH\DLE\DC1\n\+    \\f\n\+    \\EOT\EOT!\STX\SOH\DC2\EOT\250\SOH\STX\DC2\n\+    \\r\n\+    \\ENQ\EOT!\STX\SOH\ENQ\DC2\EOT\250\SOH\STX\a\n\+    \\r\n\+    \\ENQ\EOT!\STX\SOH\SOH\DC2\EOT\250\SOH\b\r\n\+    \\r\n\+    \\ENQ\EOT!\STX\SOH\ETX\DC2\EOT\250\SOH\DLE\DC1\n\+    \\f\n\+    \\EOT\EOT!\STX\STX\DC2\EOT\251\SOH\STX\SYN\n\+    \\r\n\+    \\ENQ\EOT!\STX\STX\ENQ\DC2\EOT\251\SOH\STX\b\n\+    \\r\n\+    \\ENQ\EOT!\STX\STX\SOH\DC2\EOT\251\SOH\t\DC1\n\+    \\r\n\+    \\ENQ\EOT!\STX\STX\ETX\DC2\EOT\251\SOH\DC4\NAK\n\+    \\f\n\+    \\EOT\EOT!\STX\ETX\DC2\EOT\252\SOH\STX\DC2\n\+    \\r\n\+    \\ENQ\EOT!\STX\ETX\ENQ\DC2\EOT\252\SOH\STX\b\n\+    \\r\n\+    \\ENQ\EOT!\STX\ETX\SOH\DC2\EOT\252\SOH\t\r\n\+    \\r\n\+    \\ENQ\EOT!\STX\ETX\ETX\DC2\EOT\252\SOH\DLE\DC1\n\+    \4\n\+    \\STX\EOT\"\DC2\ACK\128\STX\NUL\131\STX\SOH\SUB& Represents pool metadata in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT\"\SOH\DC2\EOT\128\STX\b\DC4\n\+    \\f\n\+    \\EOT\EOT\"\STX\NUL\DC2\EOT\129\STX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT\"\STX\NUL\ENQ\DC2\EOT\129\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT\"\STX\NUL\SOH\DC2\EOT\129\STX\t\f\n\+    \\r\n\+    \\ENQ\EOT\"\STX\NUL\ETX\DC2\EOT\129\STX\SI\DLE\n\+    \\f\n\+    \\EOT\EOT\"\STX\SOH\DC2\EOT\130\STX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT\"\STX\SOH\ENQ\DC2\EOT\130\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT\"\STX\SOH\SOH\DC2\EOT\130\STX\b\f\n\+    \\r\n\+    \\ENQ\EOT\"\STX\SOH\ETX\DC2\EOT\130\STX\SI\DLE\n\+    \4\n\+    \\STX\EOT#\DC2\ACK\134\STX\NUL\145\STX\SOH\SUB& Represents a certificate in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT#\SOH\DC2\EOT\134\STX\b\DC3\n\+    \\SO\n\+    \\EOT\EOT#\b\NUL\DC2\ACK\135\STX\STX\143\STX\ETX\n\+    \\r\n\+    \\ENQ\EOT#\b\NUL\SOH\DC2\EOT\135\STX\b\DC3\n\+    \/\n\+    \\EOT\EOT#\STX\NUL\DC2\EOT\136\STX\EOT+\"! Stake registration certificate.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\NUL\ACK\DC2\EOT\136\STX\EOT\DC3\n\+    \\r\n\+    \\ENQ\EOT#\STX\NUL\SOH\DC2\EOT\136\STX\DC4&\n\+    \\r\n\+    \\ENQ\EOT#\STX\NUL\ETX\DC2\EOT\136\STX)*\n\+    \1\n\+    \\EOT\EOT#\STX\SOH\DC2\EOT\137\STX\EOT-\"# Stake deregistration certificate.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\SOH\ACK\DC2\EOT\137\STX\EOT\DC3\n\+    \\r\n\+    \\ENQ\EOT#\STX\SOH\SOH\DC2\EOT\137\STX\DC4(\n\+    \\r\n\+    \\ENQ\EOT#\STX\SOH\ETX\DC2\EOT\137\STX+,\n\+    \-\n\+    \\EOT\EOT#\STX\STX\DC2\EOT\138\STX\EOT-\"\US Stake delegation certificate.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\STX\ACK\DC2\EOT\138\STX\EOT\ETB\n\+    \\r\n\+    \\ENQ\EOT#\STX\STX\SOH\DC2\EOT\138\STX\CAN(\n\+    \\r\n\+    \\ENQ\EOT#\STX\STX\ETX\DC2\EOT\138\STX+,\n\+    \.\n\+    \\EOT\EOT#\STX\ETX\DC2\EOT\139\STX\EOT/\"  Pool registration certificate.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\ETX\ACK\DC2\EOT\139\STX\EOT\CAN\n\+    \\r\n\+    \\ENQ\EOT#\STX\ETX\SOH\DC2\EOT\139\STX\EM*\n\+    \\r\n\+    \\ENQ\EOT#\STX\ETX\ETX\DC2\EOT\139\STX-.\n\+    \,\n\+    \\EOT\EOT#\STX\EOT\DC2\EOT\140\STX\EOT+\"\RS Pool retirement certificate.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\EOT\ACK\DC2\EOT\140\STX\EOT\SYN\n\+    \\r\n\+    \\ENQ\EOT#\STX\EOT\SOH\DC2\EOT\140\STX\ETB&\n\+    \\r\n\+    \\ENQ\EOT#\STX\EOT\ETX\DC2\EOT\140\STX)*\n\+    \3\n\+    \\EOT\EOT#\STX\ENQ\DC2\EOT\141\STX\EOT8\"% Genesis key delegation certificate.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\ENQ\ACK\DC2\EOT\141\STX\EOT\FS\n\+    \\r\n\+    \\ENQ\EOT#\STX\ENQ\SOH\DC2\EOT\141\STX\GS3\n\+    \\r\n\+    \\ENQ\EOT#\STX\ENQ\ETX\DC2\EOT\141\STX67\n\+    \7\n\+    \\EOT\EOT#\STX\ACK\DC2\EOT\142\STX\EOT\EM\") Move instantaneous rewards certificate.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\ACK\ACK\DC2\EOT\142\STX\EOT\v\n\+    \\r\n\+    \\ENQ\EOT#\STX\ACK\SOH\DC2\EOT\142\STX\f\DC4\n\+    \\r\n\+    \\ENQ\EOT#\STX\ACK\ETX\DC2\EOT\142\STX\ETB\CAN\n\+    \/\n\+    \\EOT\EOT#\STX\a\DC2\EOT\144\STX\STX\SUB\"! Redeemer for the Plutus script.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\a\ACK\DC2\EOT\144\STX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT#\STX\a\SOH\DC2\EOT\144\STX\v\DC3\n\+    \\r\n\+    \\ENQ\EOT#\STX\a\ETX\DC2\EOT\144\STX\SYN\EM\n\+    \E\n\+    \\STX\EOT$\DC2\ACK\148\STX\NUL\151\STX\SOH\SUB7 Represents a stake delegation certificate in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT$\SOH\DC2\EOT\148\STX\b\ESC\n\+    \!\n\+    \\EOT\EOT$\STX\NUL\DC2\EOT\149\STX\STX'\"\DC3 Stake credential.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT$\STX\NUL\ACK\DC2\EOT\149\STX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT$\STX\NUL\SOH\DC2\EOT\149\STX\DC2\"\n\+    \\r\n\+    \\ENQ\EOT$\STX\NUL\ETX\DC2\EOT\149\STX%&\n\+    \\RS\n\+    \\EOT\EOT$\STX\SOH\DC2\EOT\150\STX\STX\EM\"\DLE Pool key hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT$\STX\SOH\ENQ\DC2\EOT\150\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT$\STX\SOH\SOH\DC2\EOT\150\STX\b\DC4\n\+    \\r\n\+    \\ENQ\EOT$\STX\SOH\ETX\DC2\EOT\150\STX\ETB\CAN\n\+    \F\n\+    \\STX\EOT%\DC2\ACK\154\STX\NUL\164\STX\SOH\SUB8 Represents a pool registration certificate in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT%\SOH\DC2\EOT\154\STX\b\FS\n\+    \\"\n\+    \\EOT\EOT%\STX\NUL\DC2\EOT\155\STX\STX\NAK\"\DC4 Operator key hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\NUL\ENQ\DC2\EOT\155\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT%\STX\NUL\SOH\DC2\EOT\155\STX\b\DLE\n\+    \\r\n\+    \\ENQ\EOT%\STX\NUL\ETX\DC2\EOT\155\STX\DC3\DC4\n\+    \\GS\n\+    \\EOT\EOT%\STX\SOH\DC2\EOT\156\STX\STX\CAN\"\SI VRF key hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\SOH\ENQ\DC2\EOT\156\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT%\STX\SOH\SOH\DC2\EOT\156\STX\b\DC3\n\+    \\r\n\+    \\ENQ\EOT%\STX\SOH\ETX\DC2\EOT\156\STX\SYN\ETB\n\+    \\RS\n\+    \\EOT\EOT%\STX\STX\DC2\EOT\157\STX\STX\DC4\"\DLE Pledge amount.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\STX\ENQ\DC2\EOT\157\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT%\STX\STX\SOH\DC2\EOT\157\STX\t\SI\n\+    \\r\n\+    \\ENQ\EOT%\STX\STX\ETX\DC2\EOT\157\STX\DC2\DC3\n\+    \\SUB\n\+    \\EOT\EOT%\STX\ETX\DC2\EOT\158\STX\STX\DC2\"\f Pool cost.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\ETX\ENQ\DC2\EOT\158\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT%\STX\ETX\SOH\DC2\EOT\158\STX\t\r\n\+    \\r\n\+    \\ENQ\EOT%\STX\ETX\ETX\DC2\EOT\158\STX\DLE\DC1\n\+    \\FS\n\+    \\EOT\EOT%\STX\EOT\DC2\EOT\159\STX\STX\FS\"\SO Pool margin.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\EOT\ACK\DC2\EOT\159\STX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT%\STX\EOT\SOH\DC2\EOT\159\STX\DC1\ETB\n\+    \\r\n\+    \\ENQ\EOT%\STX\EOT\ETX\DC2\EOT\159\STX\SUB\ESC\n\+    \\US\n\+    \\EOT\EOT%\STX\ENQ\DC2\EOT\160\STX\STX\ESC\"\DC1 Reward account.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\ENQ\ENQ\DC2\EOT\160\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT%\STX\ENQ\SOH\DC2\EOT\160\STX\b\SYN\n\+    \\r\n\+    \\ENQ\EOT%\STX\ENQ\ETX\DC2\EOT\160\STX\EM\SUB\n\+    \.\n\+    \\EOT\EOT%\STX\ACK\DC2\EOT\161\STX\STX!\"  List of pool owner key hashes.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\ACK\EOT\DC2\EOT\161\STX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\ACK\ENQ\DC2\EOT\161\STX\v\DLE\n\+    \\r\n\+    \\ENQ\EOT%\STX\ACK\SOH\DC2\EOT\161\STX\DC1\FS\n\+    \\r\n\+    \\ENQ\EOT%\STX\ACK\ETX\DC2\EOT\161\STX\US \n\+    \\US\n\+    \\EOT\EOT%\STX\a\DC2\EOT\162\STX\STX\FS\"\DC1 List of relays.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\a\EOT\DC2\EOT\162\STX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\a\ACK\DC2\EOT\162\STX\v\DLE\n\+    \\r\n\+    \\ENQ\EOT%\STX\a\SOH\DC2\EOT\162\STX\DC1\ETB\n\+    \\r\n\+    \\ENQ\EOT%\STX\a\ETX\DC2\EOT\162\STX\SUB\ESC\n\+    \\RS\n\+    \\EOT\EOT%\STX\b\DC2\EOT\163\STX\STX!\"\DLE Pool metadata.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT%\STX\b\ACK\DC2\EOT\163\STX\STX\SO\n\+    \\r\n\+    \\ENQ\EOT%\STX\b\SOH\DC2\EOT\163\STX\SI\FS\n\+    \\r\n\+    \\ENQ\EOT%\STX\b\ETX\DC2\EOT\163\STX\US \n\+    \D\n\+    \\STX\EOT&\DC2\ACK\167\STX\NUL\170\STX\SOH\SUB6 Represents a pool retirement certificate in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT&\SOH\DC2\EOT\167\STX\b\SUB\n\+    \\RS\n\+    \\EOT\EOT&\STX\NUL\DC2\EOT\168\STX\STX\EM\"\DLE Pool key hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT&\STX\NUL\ENQ\DC2\EOT\168\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT&\STX\NUL\SOH\DC2\EOT\168\STX\b\DC4\n\+    \\r\n\+    \\ENQ\EOT&\STX\NUL\ETX\DC2\EOT\168\STX\ETB\CAN\n\+    \!\n\+    \\EOT\EOT&\STX\SOH\DC2\EOT\169\STX\STX\DC3\"\DC3 Retirement epoch.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT&\STX\SOH\ENQ\DC2\EOT\169\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT&\STX\SOH\SOH\DC2\EOT\169\STX\t\SO\n\+    \\r\n\+    \\ENQ\EOT&\STX\SOH\ETX\DC2\EOT\169\STX\DC1\DC2\n\+    \K\n\+    \\STX\EOT'\DC2\ACK\173\STX\NUL\177\STX\SOH\SUB= Represents a genesis key delegation certificate in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT'\SOH\DC2\EOT\173\STX\b \n\+    \\GS\n\+    \\EOT\EOT'\STX\NUL\DC2\EOT\174\STX\STX\EM\"\SI Genesis hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT'\STX\NUL\ENQ\DC2\EOT\174\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT'\STX\NUL\SOH\DC2\EOT\174\STX\b\DC4\n\+    \\r\n\+    \\ENQ\EOT'\STX\NUL\ETX\DC2\EOT\174\STX\ETB\CAN\n\+    \&\n\+    \\EOT\EOT'\STX\SOH\DC2\EOT\175\STX\STX\"\"\CAN Genesis delegate hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT'\STX\SOH\ENQ\DC2\EOT\175\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT'\STX\SOH\SOH\DC2\EOT\175\STX\b\GS\n\+    \\r\n\+    \\ENQ\EOT'\STX\SOH\ETX\DC2\EOT\175\STX !\n\+    \\GS\n\+    \\EOT\EOT'\STX\STX\DC2\EOT\176\STX\STX\CAN\"\SI VRF key hash.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT'\STX\STX\ENQ\DC2\EOT\176\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT'\STX\STX\SOH\DC2\EOT\176\STX\b\DC3\n\+    \\r\n\+    \\ENQ\EOT'\STX\STX\ETX\DC2\EOT\176\STX\SYN\ETB\n\+    \\f\n\+    \\STX\ENQ\SOH\DC2\ACK\179\STX\NUL\183\STX\SOH\n\+    \\v\n\+    \\ETX\ENQ\SOH\SOH\DC2\EOT\179\STX\ENQ\SO\n\+    \\f\n\+    \\EOT\ENQ\SOH\STX\NUL\DC2\EOT\180\STX\STX\GS\n\+    \\r\n\+    \\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\EOT\180\STX\STX\CAN\n\+    \\r\n\+    \\ENQ\ENQ\SOH\STX\NUL\STX\DC2\EOT\180\STX\ESC\FS\n\+    \\f\n\+    \\EOT\ENQ\SOH\STX\SOH\DC2\EOT\181\STX\STX\SUB\n\+    \\r\n\+    \\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\EOT\181\STX\STX\NAK\n\+    \\r\n\+    \\ENQ\ENQ\SOH\STX\SOH\STX\DC2\EOT\181\STX\CAN\EM\n\+    \\f\n\+    \\EOT\ENQ\SOH\STX\STX\DC2\EOT\182\STX\STX\SUB\n\+    \\r\n\+    \\ENQ\ENQ\SOH\STX\STX\SOH\DC2\EOT\182\STX\STX\NAK\n\+    \\r\n\+    \\ENQ\ENQ\SOH\STX\STX\STX\DC2\EOT\182\STX\CAN\EM\n\+    \\f\n\+    \\STX\EOT(\DC2\ACK\185\STX\NUL\188\STX\SOH\n\+    \\v\n\+    \\ETX\EOT(\SOH\DC2\EOT\185\STX\b\DC1\n\+    \\f\n\+    \\EOT\EOT(\STX\NUL\DC2\EOT\186\STX\STX'\n\+    \\r\n\+    \\ENQ\EOT(\STX\NUL\ACK\DC2\EOT\186\STX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT(\STX\NUL\SOH\DC2\EOT\186\STX\DC2\"\n\+    \\r\n\+    \\ENQ\EOT(\STX\NUL\ETX\DC2\EOT\186\STX%&\n\+    \\f\n\+    \\EOT\EOT(\STX\SOH\DC2\EOT\187\STX\STX\ETB\n\+    \\r\n\+    \\ENQ\EOT(\STX\SOH\ENQ\DC2\EOT\187\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT(\STX\SOH\SOH\DC2\EOT\187\STX\b\DC2\n\+    \\r\n\+    \\ENQ\EOT(\STX\SOH\ETX\DC2\EOT\187\STX\NAK\SYN\n\+    \N\n\+    \\STX\EOT)\DC2\ACK\191\STX\NUL\195\STX\SOH\SUB@ Represents a move instantaneous reward certificate in Cardano.\n\+    \\n\+    \\v\n\+    \\ETX\EOT)\SOH\DC2\EOT\191\STX\b\SI\n\+    \\f\n\+    \\EOT\EOT)\STX\NUL\DC2\EOT\192\STX\STX\NAK\n\+    \\r\n\+    \\ENQ\EOT)\STX\NUL\ACK\DC2\EOT\192\STX\STX\v\n\+    \\r\n\+    \\ENQ\EOT)\STX\NUL\SOH\DC2\EOT\192\STX\f\DLE\n\+    \\r\n\+    \\ENQ\EOT)\STX\NUL\ETX\DC2\EOT\192\STX\DC3\DC4\n\+    \\f\n\+    \\EOT\EOT)\STX\SOH\DC2\EOT\193\STX\STX\FS\n\+    \\r\n\+    \\ENQ\EOT)\STX\SOH\EOT\DC2\EOT\193\STX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT)\STX\SOH\ACK\DC2\EOT\193\STX\v\DC4\n\+    \\r\n\+    \\ENQ\EOT)\STX\SOH\SOH\DC2\EOT\193\STX\NAK\ETB\n\+    \\r\n\+    \\ENQ\EOT)\STX\SOH\ETX\DC2\EOT\193\STX\SUB\ESC\n\+    \\f\n\+    \\EOT\EOT)\STX\STX\DC2\EOT\194\STX\STX\ETB\n\+    \\r\n\+    \\ENQ\EOT)\STX\STX\ENQ\DC2\EOT\194\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT)\STX\STX\SOH\DC2\EOT\194\STX\t\DC2\n\+    \\r\n\+    \\ENQ\EOT)\STX\STX\ETX\DC2\EOT\194\STX\NAK\SYN\n\+    \}\n\+    \\STX\EOT*\DC2\ACK\201\STX\NUL\205\STX\SOH\SUBI Pattern of an address that can be used to evaluate matching predicates.\n\+    \2$ PATTERN MATCHING\n\+    \ ================\n\+    \\n\+    \\v\n\+    \\ETX\EOT*\SOH\DC2\EOT\201\STX\b\SYN\n\+    \B\n\+    \\EOT\EOT*\STX\NUL\DC2\EOT\202\STX\STX\SUB\"4 The address should match this exact address value.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT*\STX\NUL\ENQ\DC2\EOT\202\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT*\STX\NUL\SOH\DC2\EOT\202\STX\b\NAK\n\+    \\r\n\+    \\ENQ\EOT*\STX\NUL\ETX\DC2\EOT\202\STX\CAN\EM\n\+    \H\n\+    \\EOT\EOT*\STX\SOH\DC2\EOT\203\STX\STX\EM\": The payment part of the address should match this value.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT*\STX\SOH\ENQ\DC2\EOT\203\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT*\STX\SOH\SOH\DC2\EOT\203\STX\b\DC4\n\+    \\r\n\+    \\ENQ\EOT*\STX\SOH\ETX\DC2\EOT\203\STX\ETB\CAN\n\+    \K\n\+    \\EOT\EOT*\STX\STX\DC2\EOT\204\STX\STX\FS\"= The delegation part of the address should match this value.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT*\STX\STX\ENQ\DC2\EOT\204\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT*\STX\STX\SOH\DC2\EOT\204\STX\b\ETB\n\+    \\r\n\+    \\ENQ\EOT*\STX\STX\ETX\DC2\EOT\204\STX\SUB\ESC\n\+    \[\n\+    \\STX\EOT+\DC2\ACK\208\STX\NUL\211\STX\SOH\SUBM Pattern of a native asset that can be used to evaluate matching predicates.\n\+    \\n\+    \\v\n\+    \\ETX\EOT+\SOH\DC2\EOT\208\STX\b\DC4\n\+    \9\n\+    \\EOT\EOT+\STX\NUL\DC2\EOT\209\STX\STX\SYN\"+ The asset should belong to this policy id\n\+    \\n\+    \\r\n\+    \\ENQ\EOT+\STX\NUL\ENQ\DC2\EOT\209\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT+\STX\NUL\SOH\DC2\EOT\209\STX\b\DC1\n\+    \\r\n\+    \\ENQ\EOT+\STX\NUL\ETX\DC2\EOT\209\STX\DC4\NAK\n\+    \2\n\+    \\EOT\EOT+\STX\SOH\DC2\EOT\210\STX\STX\ETB\"$ The asset should present this name\n\+    \\n\+    \\r\n\+    \\ENQ\EOT+\STX\SOH\ENQ\DC2\EOT\210\STX\STX\a\n\+    \\r\n\+    \\ENQ\EOT+\STX\SOH\SOH\DC2\EOT\210\STX\b\DC2\n\+    \\r\n\+    \\ENQ\EOT+\STX\SOH\ETX\DC2\EOT\210\STX\NAK\SYN\n\+    \X\n\+    \\STX\EOT,\DC2\ACK\214\STX\NUL\217\STX\SOH\SUBJ Pattern of a tx output that can be used to evaluate matching predicates.\n\+    \\n\+    \\v\n\+    \\ETX\EOT,\SOH\DC2\EOT\214\STX\b\ETB\n\+    \K\n\+    \\EOT\EOT,\STX\NUL\DC2\EOT\215\STX\STX\GS\"= Match any address in the output that exhibits this pattern.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT,\STX\NUL\ACK\DC2\EOT\215\STX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT,\STX\NUL\SOH\DC2\EOT\215\STX\DC1\CAN\n\+    \\r\n\+    \\ENQ\EOT,\STX\NUL\ETX\DC2\EOT\215\STX\ESC\FS\n\+    \I\n\+    \\EOT\EOT,\STX\SOH\DC2\EOT\216\STX\STX\EM\"; Match any asset in the output that exhibits this pattern.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT,\STX\SOH\ACK\DC2\EOT\216\STX\STX\SO\n\+    \\r\n\+    \\ENQ\EOT,\STX\SOH\SOH\DC2\EOT\216\STX\SI\DC4\n\+    \\r\n\+    \\ENQ\EOT,\STX\SOH\ETX\DC2\EOT\216\STX\ETB\CAN\n\+    \Q\n\+    \\STX\EOT-\DC2\ACK\220\STX\NUL\226\STX\SOH\SUBC Pattern of a Tx that can be used to evaluate matching predicates.\n\+    \\n\+    \\v\n\+    \\ETX\EOT-\SOH\DC2\EOT\220\STX\b\DC1\n\+    \;\n\+    \\EOT\EOT-\STX\NUL\DC2\EOT\221\STX\STX\US\"- Match any input that exhibits this pattern.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT-\STX\NUL\ACK\DC2\EOT\221\STX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT-\STX\NUL\SOH\DC2\EOT\221\STX\DC2\SUB\n\+    \\r\n\+    \\ENQ\EOT-\STX\NUL\ETX\DC2\EOT\221\STX\GS\RS\n\+    \<\n\+    \\EOT\EOT-\STX\SOH\DC2\EOT\222\STX\STX\US\". Match any output that exhibits this pattern.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT-\STX\SOH\ACK\DC2\EOT\222\STX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT-\STX\SOH\SOH\DC2\EOT\222\STX\DC2\SUB\n\+    \\r\n\+    \\ENQ\EOT-\STX\SOH\ETX\DC2\EOT\222\STX\GS\RS\n\+    \`\n\+    \\EOT\EOT-\STX\STX\DC2\EOT\223\STX\STX!\"R Match any address (inputs, outputs, collateral, etc) that exhibits this pattern.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT-\STX\STX\ACK\DC2\EOT\223\STX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT-\STX\STX\SOH\DC2\EOT\223\STX\DC1\FS\n\+    \\r\n\+    \\ENQ\EOT-\STX\STX\ETX\DC2\EOT\223\STX\US \n\+    \;\n\+    \\EOT\EOT-\STX\ETX\DC2\EOT\224\STX\STX\US\"- Match any asset that exhibits this pattern.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT-\STX\ETX\ACK\DC2\EOT\224\STX\STX\SO\n\+    \\r\n\+    \\ENQ\EOT-\STX\ETX\SOH\DC2\EOT\224\STX\SI\SUB\n\+    \\r\n\+    \\ENQ\EOT-\STX\ETX\ETX\DC2\EOT\224\STX\GS\RS\n\+    \L\n\+    \\EOT\EOT-\STX\EOT\DC2\EOT\225\STX\STX\US\"> Match any tx that either mint or burn the the asset pattern.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT-\STX\EOT\ACK\DC2\EOT\225\STX\STX\SO\n\+    \\r\n\+    \\ENQ\EOT-\STX\EOT\SOH\DC2\EOT\225\STX\SI\SUB\n\+    \\r\n\+    \\ENQ\EOT-\STX\EOT\ETX\DC2\EOT\225\STX\GS\RS\n\+    \\RS\n\+    \\STX\EOT.\DC2\ACK\231\STX\NUL\234\STX\SOH2\DLE PARAMS\n\+    \ ======\n\+    \\n\+    \\v\n\+    \\ETX\EOT.\SOH\DC2\EOT\231\STX\b\SI\n\+    \\f\n\+    \\EOT\EOT.\STX\NUL\DC2\EOT\232\STX\STX\DC3\n\+    \\r\n\+    \\ENQ\EOT.\STX\NUL\ENQ\DC2\EOT\232\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT.\STX\NUL\SOH\DC2\EOT\232\STX\t\SO\n\+    \\r\n\+    \\ENQ\EOT.\STX\NUL\ETX\DC2\EOT\232\STX\DC1\DC2\n\+    \\f\n\+    \\EOT\EOT.\STX\SOH\DC2\EOT\233\STX\STX\DC4\n\+    \\r\n\+    \\ENQ\EOT.\STX\SOH\ENQ\DC2\EOT\233\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT.\STX\SOH\SOH\DC2\EOT\233\STX\t\SI\n\+    \\r\n\+    \\ENQ\EOT.\STX\SOH\ETX\DC2\EOT\233\STX\DC2\DC3\n\+    \\f\n\+    \\STX\EOT/\DC2\ACK\236\STX\NUL\239\STX\SOH\n\+    \\v\n\+    \\ETX\EOT/\SOH\DC2\EOT\236\STX\b\DLE\n\+    \\f\n\+    \\EOT\EOT/\STX\NUL\DC2\EOT\237\STX\STX\ESC\n\+    \\r\n\+    \\ENQ\EOT/\STX\NUL\ACK\DC2\EOT\237\STX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT/\STX\NUL\SOH\DC2\EOT\237\STX\DC1\SYN\n\+    \\r\n\+    \\ENQ\EOT/\STX\NUL\ETX\DC2\EOT\237\STX\EM\SUB\n\+    \\f\n\+    \\EOT\EOT/\STX\SOH\DC2\EOT\238\STX\STX\FS\n\+    \\r\n\+    \\ENQ\EOT/\STX\SOH\ACK\DC2\EOT\238\STX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT/\STX\SOH\SOH\DC2\EOT\238\STX\DC1\ETB\n\+    \\r\n\+    \\ENQ\EOT/\STX\SOH\ETX\DC2\EOT\238\STX\SUB\ESC\n\+    \\f\n\+    \\STX\EOT0\DC2\ACK\241\STX\NUL\244\STX\SOH\n\+    \\v\n\+    \\ETX\EOT0\SOH\DC2\EOT\241\STX\b\ETB\n\+    \\f\n\+    \\EOT\EOT0\STX\NUL\DC2\EOT\242\STX\STX\DC3\n\+    \\r\n\+    \\ENQ\EOT0\STX\NUL\ENQ\DC2\EOT\242\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT0\STX\NUL\SOH\DC2\EOT\242\STX\t\SO\n\+    \\r\n\+    \\ENQ\EOT0\STX\NUL\ETX\DC2\EOT\242\STX\DC1\DC2\n\+    \\f\n\+    \\EOT\EOT0\STX\SOH\DC2\EOT\243\STX\STX\DC3\n\+    \\r\n\+    \\ENQ\EOT0\STX\SOH\ENQ\DC2\EOT\243\STX\STX\b\n\+    \\r\n\+    \\ENQ\EOT0\STX\SOH\SOH\DC2\EOT\243\STX\t\SO\n\+    \\r\n\+    \\ENQ\EOT0\STX\SOH\ETX\DC2\EOT\243\STX\DC1\DC2\n\+    \\f\n\+    \\STX\EOT1\DC2\ACK\246\STX\NUL\248\STX\SOH\n\+    \\v\n\+    \\ETX\EOT1\SOH\DC2\EOT\246\STX\b\DC1\n\+    \\f\n\+    \\EOT\EOT1\STX\NUL\DC2\EOT\247\STX\STX\FS\n\+    \\r\n\+    \\ENQ\EOT1\STX\NUL\EOT\DC2\EOT\247\STX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT1\STX\NUL\ENQ\DC2\EOT\247\STX\v\DLE\n\+    \\r\n\+    \\ENQ\EOT1\STX\NUL\SOH\DC2\EOT\247\STX\DC1\ETB\n\+    \\r\n\+    \\ENQ\EOT1\STX\NUL\ETX\DC2\EOT\247\STX\SUB\ESC\n\+    \\f\n\+    \\STX\EOT2\DC2\ACK\250\STX\NUL\253\STX\SOH\n\+    \\v\n\+    \\ETX\EOT2\SOH\DC2\EOT\250\STX\b\DC2\n\+    \\f\n\+    \\EOT\EOT2\STX\NUL\DC2\EOT\251\STX\STX\SUB\n\+    \\r\n\+    \\ENQ\EOT2\STX\NUL\ACK\DC2\EOT\251\STX\STX\v\n\+    \\r\n\+    \\ENQ\EOT2\STX\NUL\SOH\DC2\EOT\251\STX\f\NAK\n\+    \\r\n\+    \\ENQ\EOT2\STX\NUL\ETX\DC2\EOT\251\STX\CAN\EM\n\+    \\f\n\+    \\EOT\EOT2\STX\SOH\DC2\EOT\252\STX\STX\SUB\n\+    \\r\n\+    \\ENQ\EOT2\STX\SOH\ACK\DC2\EOT\252\STX\STX\v\n\+    \\r\n\+    \\ENQ\EOT2\STX\SOH\SOH\DC2\EOT\252\STX\f\NAK\n\+    \\r\n\+    \\ENQ\EOT2\STX\SOH\ETX\DC2\EOT\252\STX\CAN\EM\n\+    \\f\n\+    \\STX\EOT3\DC2\ACK\255\STX\NUL\150\ETX\SOH\n\+    \\v\n\+    \\ETX\EOT3\SOH\DC2\EOT\255\STX\b\SI\n\+    \2\n\+    \\EOT\EOT3\STX\NUL\DC2\EOT\128\ETX\STX!\"$ The number of coins per UTXO byte.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\NUL\ENQ\DC2\EOT\128\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\NUL\SOH\DC2\EOT\128\ETX\t\FS\n\+    \\r\n\+    \\ENQ\EOT3\STX\NUL\ETX\DC2\EOT\128\ETX\US \n\+    \-\n\+    \\EOT\EOT3\STX\SOH\DC2\EOT\129\ETX\STX\EM\"\US The maximum transaction size.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\SOH\ENQ\DC2\EOT\129\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\SOH\SOH\DC2\EOT\129\ETX\t\DC4\n\+    \\r\n\+    \\ENQ\EOT3\STX\SOH\ETX\DC2\EOT\129\ETX\ETB\CAN\n\+    \,\n\+    \\EOT\EOT3\STX\STX\DC2\EOT\130\ETX\STX!\"\RS The minimum fee coefficient.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\STX\ENQ\DC2\EOT\130\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\STX\SOH\DC2\EOT\130\ETX\t\FS\n\+    \\r\n\+    \\ENQ\EOT3\STX\STX\ETX\DC2\EOT\130\ETX\US \n\+    \)\n\+    \\EOT\EOT3\STX\ETX\DC2\EOT\131\ETX\STX\RS\"\ESC The minimum fee constant.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\ETX\ENQ\DC2\EOT\131\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\ETX\SOH\DC2\EOT\131\ETX\t\EM\n\+    \\r\n\+    \\ENQ\EOT3\STX\ETX\ETX\DC2\EOT\131\ETX\FS\GS\n\+    \,\n\+    \\EOT\EOT3\STX\EOT\DC2\EOT\132\ETX\STX!\"\RS The maximum block body size.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\EOT\ENQ\DC2\EOT\132\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\EOT\SOH\DC2\EOT\132\ETX\t\FS\n\+    \\r\n\+    \\ENQ\EOT3\STX\EOT\ETX\DC2\EOT\132\ETX\US \n\+    \.\n\+    \\EOT\EOT3\STX\ENQ\DC2\EOT\133\ETX\STX#\"  The maximum block header size.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\ENQ\ENQ\DC2\EOT\133\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\ENQ\SOH\DC2\EOT\133\ETX\t\RS\n\+    \\r\n\+    \\ENQ\EOT3\STX\ENQ\ETX\DC2\EOT\133\ETX!\"\n\+    \&\n\+    \\EOT\EOT3\STX\ACK\DC2\EOT\134\ETX\STX\US\"\CAN The stake key deposit.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\ACK\ENQ\DC2\EOT\134\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\ACK\SOH\DC2\EOT\134\ETX\t\SUB\n\+    \\r\n\+    \\ENQ\EOT3\STX\ACK\ETX\DC2\EOT\134\ETX\GS\RS\n\+    \!\n\+    \\EOT\EOT3\STX\a\DC2\EOT\135\ETX\STX\SUB\"\DC3 The pool deposit.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\a\ENQ\DC2\EOT\135\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\a\SOH\DC2\EOT\135\ETX\t\NAK\n\+    \\r\n\+    \\ENQ\EOT3\STX\a\ETX\DC2\EOT\135\ETX\CAN\EM\n\+    \0\n\+    \\EOT\EOT3\STX\b\DC2\EOT\136\ETX\STX)\"\" The pool retirement epoch bound.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\b\ENQ\DC2\EOT\136\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\b\SOH\DC2\EOT\136\ETX\t$\n\+    \\r\n\+    \\ENQ\EOT3\STX\b\ETX\DC2\EOT\136\ETX'(\n\+    \,\n\+    \\EOT\EOT3\STX\t\DC2\EOT\137\ETX\STX&\"\RS The desired number of pools.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\t\ENQ\DC2\EOT\137\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\t\SOH\DC2\EOT\137\ETX\t \n\+    \\r\n\+    \\ENQ\EOT3\STX\t\ETX\DC2\EOT\137\ETX#%\n\+    \#\n\+    \\EOT\EOT3\STX\n\+    \\DC2\EOT\138\ETX\STX%\"\NAK The pool influence.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\n\+    \\ACK\DC2\EOT\138\ETX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT3\STX\n\+    \\SOH\DC2\EOT\138\ETX\DC1\US\n\+    \\r\n\+    \\ENQ\EOT3\STX\n\+    \\ETX\DC2\EOT\138\ETX\"$\n\+    \'\n\+    \\EOT\EOT3\STX\v\DC2\EOT\139\ETX\STX)\"\EM The monetary expansion.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\v\ACK\DC2\EOT\139\ETX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT3\STX\v\SOH\DC2\EOT\139\ETX\DC1#\n\+    \\r\n\+    \\ENQ\EOT3\STX\v\ETX\DC2\EOT\139\ETX&(\n\+    \'\n\+    \\EOT\EOT3\STX\f\DC2\EOT\140\ETX\STX)\"\EM The treasury expansion.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\f\ACK\DC2\EOT\140\ETX\STX\DLE\n\+    \\r\n\+    \\ENQ\EOT3\STX\f\SOH\DC2\EOT\140\ETX\DC1#\n\+    \\r\n\+    \\ENQ\EOT3\STX\f\ETX\DC2\EOT\140\ETX&(\n\+    \&\n\+    \\EOT\EOT3\STX\r\DC2\EOT\141\ETX\STX\FS\"\CAN The minimum pool cost.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\r\ENQ\DC2\EOT\141\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\r\SOH\DC2\EOT\141\ETX\t\SYN\n\+    \\r\n\+    \\ENQ\EOT3\STX\r\ETX\DC2\EOT\141\ETX\EM\ESC\n\+    \%\n\+    \\EOT\EOT3\STX\SO\DC2\EOT\142\ETX\STX(\"\ETB The protocol version.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\SO\ACK\DC2\EOT\142\ETX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT3\STX\SO\SOH\DC2\EOT\142\ETX\DC2\"\n\+    \\r\n\+    \\ENQ\EOT3\STX\SO\ETX\DC2\EOT\142\ETX%'\n\+    \'\n\+    \\EOT\EOT3\STX\SI\DC2\EOT\143\ETX\STX\GS\"\EM The maximum value size.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\SI\ENQ\DC2\EOT\143\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\SI\SOH\DC2\EOT\143\ETX\t\ETB\n\+    \\r\n\+    \\ENQ\EOT3\STX\SI\ETX\DC2\EOT\143\ETX\SUB\FS\n\+    \*\n\+    \\EOT\EOT3\STX\DLE\DC2\EOT\144\ETX\STX$\"\FS The collateral percentage.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\DLE\ENQ\DC2\EOT\144\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\DLE\SOH\DC2\EOT\144\ETX\t\RS\n\+    \\r\n\+    \\ENQ\EOT3\STX\DLE\ETX\DC2\EOT\144\ETX!#\n\+    \.\n\+    \\EOT\EOT3\STX\DC1\DC2\EOT\145\ETX\STX$\"  The maximum collateral inputs.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC1\ENQ\DC2\EOT\145\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC1\SOH\DC2\EOT\145\ETX\t\RS\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC1\ETX\DC2\EOT\145\ETX!#\n\+    \ \n\+    \\EOT\EOT3\STX\DC2\DC2\EOT\146\ETX\STX\RS\"\DC2 The cost models.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC2\ACK\DC2\EOT\146\ETX\STX\f\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC2\SOH\DC2\EOT\146\ETX\r\CAN\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC2\ETX\DC2\EOT\146\ETX\ESC\GS\n\+    \\ESC\n\+    \\EOT\EOT3\STX\DC3\DC2\EOT\147\ETX\STX\ETB\"\r The prices.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC3\ACK\DC2\EOT\147\ETX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC3\SOH\DC2\EOT\147\ETX\v\DC1\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC3\ETX\DC2\EOT\147\ETX\DC4\SYN\n\+    \<\n\+    \\EOT\EOT3\STX\DC4\DC2\EOT\148\ETX\STX3\". The maximum execution units per transaction.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC4\ACK\DC2\EOT\148\ETX\STX\t\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC4\SOH\DC2\EOT\148\ETX\n\+    \-\n\+    \\r\n\+    \\ENQ\EOT3\STX\DC4\ETX\DC2\EOT\148\ETX02\n\+    \6\n\+    \\EOT\EOT3\STX\NAK\DC2\EOT\149\ETX\STX-\"( The maximum execution units per block.\n\+    \\n\+    \\r\n\+    \\ENQ\EOT3\STX\NAK\ACK\DC2\EOT\149\ETX\STX\t\n\+    \\r\n\+    \\ENQ\EOT3\STX\NAK\SOH\DC2\EOT\149\ETX\n\+    \'\n\+    \\r\n\+    \\ENQ\EOT3\STX\NAK\ETX\DC2\EOT\149\ETX*,\n\+    \&\n\+    \\STX\EOT4\DC2\ACK\155\ETX\NUL\157\ETX\SOH2\CAN EVALUATION\n\+    \ ==========\n\+    \\n\+    \\v\n\+    \\ETX\EOT4\SOH\DC2\EOT\155\ETX\b\DC1\n\+    \\f\n\+    \\EOT\EOT4\STX\NUL\DC2\EOT\156\ETX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT4\STX\NUL\ENQ\DC2\EOT\156\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT4\STX\NUL\SOH\DC2\EOT\156\ETX\t\f\n\+    \\r\n\+    \\ENQ\EOT4\STX\NUL\ETX\DC2\EOT\156\ETX\SI\DLE\n\+    \\f\n\+    \\STX\EOT5\DC2\ACK\159\ETX\NUL\161\ETX\SOH\n\+    \\v\n\+    \\ETX\EOT5\SOH\DC2\EOT\159\ETX\b\DC1\n\+    \\f\n\+    \\EOT\EOT5\STX\NUL\DC2\EOT\160\ETX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT5\STX\NUL\ENQ\DC2\EOT\160\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT5\STX\NUL\SOH\DC2\EOT\160\ETX\t\f\n\+    \\r\n\+    \\ENQ\EOT5\STX\NUL\ETX\DC2\EOT\160\ETX\SI\DLE\n\+    \\f\n\+    \\STX\EOT6\DC2\ACK\163\ETX\NUL\168\ETX\SOH\n\+    \\v\n\+    \\ETX\EOT6\SOH\DC2\EOT\163\ETX\b\SO\n\+    \\f\n\+    \\EOT\EOT6\STX\NUL\DC2\EOT\164\ETX\STX\DC1\n\+    \\r\n\+    \\ENQ\EOT6\STX\NUL\ENQ\DC2\EOT\164\ETX\STX\b\n\+    \\r\n\+    \\ENQ\EOT6\STX\NUL\SOH\DC2\EOT\164\ETX\t\f\n\+    \\r\n\+    \\ENQ\EOT6\STX\NUL\ETX\DC2\EOT\164\ETX\SI\DLE\n\+    \\f\n\+    \\EOT\EOT6\STX\SOH\DC2\EOT\165\ETX\STX\ETB\n\+    \\r\n\+    \\ENQ\EOT6\STX\SOH\ACK\DC2\EOT\165\ETX\STX\t\n\+    \\r\n\+    \\ENQ\EOT6\STX\SOH\SOH\DC2\EOT\165\ETX\n\+    \\DC2\n\+    \\r\n\+    \\ENQ\EOT6\STX\SOH\ETX\DC2\EOT\165\ETX\NAK\SYN\n\+    \\f\n\+    \\EOT\EOT6\STX\STX\DC2\EOT\166\ETX\STX \n\+    \\r\n\+    \\ENQ\EOT6\STX\STX\EOT\DC2\EOT\166\ETX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT6\STX\STX\ACK\DC2\EOT\166\ETX\v\DC4\n\+    \\r\n\+    \\ENQ\EOT6\STX\STX\SOH\DC2\EOT\166\ETX\NAK\ESC\n\+    \\r\n\+    \\ENQ\EOT6\STX\STX\ETX\DC2\EOT\166\ETX\RS\US\n\+    \\f\n\+    \\EOT\EOT6\STX\ETX\DC2\EOT\167\ETX\STX \n\+    \\r\n\+    \\ENQ\EOT6\STX\ETX\EOT\DC2\EOT\167\ETX\STX\n\+    \\n\+    \\r\n\+    \\ENQ\EOT6\STX\ETX\ACK\DC2\EOT\167\ETX\v\DC4\n\+    \\r\n\+    \\ENQ\EOT6\STX\ETX\SOH\DC2\EOT\167\ETX\NAK\ESC\n\+    \\r\n\+    \\ENQ\EOT6\STX\ETX\ETX\DC2\EOT\167\ETX\RS\USb\ACKproto3"