{- This file was auto-generated from utxorpc/v1alpha/query/query.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-} {-# OPTIONS_GHC -Wno-unused-imports#-} {-# OPTIONS_GHC -Wno-duplicate-exports#-} {-# OPTIONS_GHC -Wno-dodgy-exports#-} module Proto.Utxorpc.V1alpha.Query.Query ( QueryService(..), AnyChainParams(), AnyChainParams'Params(..), _AnyChainParams'Cardano, AnyUtxoData(), AnyUtxoData'ParsedState(..), _AnyUtxoData'Cardano, AnyUtxoPattern(), AnyUtxoPattern'UtxoPattern(..), _AnyUtxoPattern'Cardano, ChainPoint(), ReadParamsRequest(), ReadParamsResponse(), ReadUtxosRequest(), ReadUtxosResponse(), SearchUtxosRequest(), SearchUtxosResponse(), TxoRef(), UtxoPredicate() ) where import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism import qualified Data.ProtoLens.Runtime.Prelude as Prelude import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8 import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Google.Protobuf.FieldMask import qualified Proto.Utxorpc.V1alpha.Cardano.Cardano {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'params' @:: Lens' AnyChainParams (Prelude.Maybe AnyChainParams'Params)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainParams (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.Params)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyChainParams Proto.Utxorpc.V1alpha.Cardano.Cardano.Params@ -} data AnyChainParams = AnyChainParams'_constructor {_AnyChainParams'params :: !(Prelude.Maybe AnyChainParams'Params), _AnyChainParams'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show AnyChainParams where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data AnyChainParams'Params = AnyChainParams'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.Params deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'params" (Prelude.Maybe AnyChainParams'Params) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyChainParams'params (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) Prelude.id instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.Params) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyChainParams'params (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (AnyChainParams'Cardano x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap AnyChainParams'Cardano y__)) instance Data.ProtoLens.Field.HasField AnyChainParams "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.Params where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyChainParams'params (\ x__ y__ -> x__ {_AnyChainParams'params = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (AnyChainParams'Cardano x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap AnyChainParams'Cardano y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message AnyChainParams where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.AnyChainParams" packedMessageDescriptor _ = "\n\ \\SOAnyChainParams\DC2;\n\ \\acardano\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.ParamsH\NULR\acardanoB\b\n\ \\ACKparams" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let cardano__field_descriptor = Data.ProtoLens.FieldDescriptor "cardano" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.Params) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'cardano")) :: Data.ProtoLens.FieldDescriptor AnyChainParams in Data.Map.fromList [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _AnyChainParams'_unknownFields (\ x__ y__ -> x__ {_AnyChainParams'_unknownFields = y__}) defMessage = AnyChainParams'_constructor {_AnyChainParams'params = Prelude.Nothing, _AnyChainParams'_unknownFields = []} parseMessage = let loop :: AnyChainParams -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainParams loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "cardano" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "AnyChainParams" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'params") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (AnyChainParams'Cardano v)) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData AnyChainParams where rnf = \ x__ -> Control.DeepSeq.deepseq (_AnyChainParams'_unknownFields x__) (Control.DeepSeq.deepseq (_AnyChainParams'params x__) ()) instance Control.DeepSeq.NFData AnyChainParams'Params where rnf (AnyChainParams'Cardano x__) = Control.DeepSeq.rnf x__ _AnyChainParams'Cardano :: Data.ProtoLens.Prism.Prism' AnyChainParams'Params Proto.Utxorpc.V1alpha.Cardano.Cardano.Params _AnyChainParams'Cardano = Data.ProtoLens.Prism.prism' AnyChainParams'Cardano (\ p__ -> case p__ of (AnyChainParams'Cardano p__val) -> Prelude.Just p__val) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.txoRef' @:: Lens' AnyUtxoData TxoRef@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'txoRef' @:: Lens' AnyUtxoData (Prelude.Maybe TxoRef)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.nativeBytes' @:: Lens' AnyUtxoData Data.ByteString.ByteString@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'parsedState' @:: Lens' AnyUtxoData (Prelude.Maybe AnyUtxoData'ParsedState)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyUtxoData (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyUtxoData Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput@ -} data AnyUtxoData = AnyUtxoData'_constructor {_AnyUtxoData'txoRef :: !(Prelude.Maybe TxoRef), _AnyUtxoData'nativeBytes :: !Data.ByteString.ByteString, _AnyUtxoData'parsedState :: !(Prelude.Maybe AnyUtxoData'ParsedState), _AnyUtxoData'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show AnyUtxoData where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data AnyUtxoData'ParsedState = AnyUtxoData'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField AnyUtxoData "txoRef" TxoRef where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoData'txoRef (\ x__ y__ -> x__ {_AnyUtxoData'txoRef = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'txoRef" (Prelude.Maybe TxoRef) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoData'txoRef (\ x__ y__ -> x__ {_AnyUtxoData'txoRef = y__})) Prelude.id instance Data.ProtoLens.Field.HasField AnyUtxoData "nativeBytes" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoData'nativeBytes (\ x__ y__ -> x__ {_AnyUtxoData'nativeBytes = y__})) Prelude.id instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'parsedState" (Prelude.Maybe AnyUtxoData'ParsedState) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoData'parsedState (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) Prelude.id instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoData'parsedState (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (AnyUtxoData'Cardano x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap AnyUtxoData'Cardano y__)) instance Data.ProtoLens.Field.HasField AnyUtxoData "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoData'parsedState (\ x__ y__ -> x__ {_AnyUtxoData'parsedState = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (AnyUtxoData'Cardano x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap AnyUtxoData'Cardano y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message AnyUtxoData where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.AnyUtxoData" packedMessageDescriptor _ = "\n\ \\vAnyUtxoData\DC26\n\ \\atxo_ref\CAN\SOH \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\DC2!\n\ \\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC2=\n\ \\acardano\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\SO\n\ \\fparsed_state" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let txoRef__field_descriptor = Data.ProtoLens.FieldDescriptor "txo_ref" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor TxoRef) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'txoRef")) :: Data.ProtoLens.FieldDescriptor AnyUtxoData nativeBytes__field_descriptor = Data.ProtoLens.FieldDescriptor "native_bytes" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"nativeBytes")) :: Data.ProtoLens.FieldDescriptor AnyUtxoData cardano__field_descriptor = Data.ProtoLens.FieldDescriptor "cardano" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'cardano")) :: Data.ProtoLens.FieldDescriptor AnyUtxoData in Data.Map.fromList [(Data.ProtoLens.Tag 1, txoRef__field_descriptor), (Data.ProtoLens.Tag 2, nativeBytes__field_descriptor), (Data.ProtoLens.Tag 3, cardano__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _AnyUtxoData'_unknownFields (\ x__ y__ -> x__ {_AnyUtxoData'_unknownFields = y__}) defMessage = AnyUtxoData'_constructor {_AnyUtxoData'txoRef = Prelude.Nothing, _AnyUtxoData'nativeBytes = Data.ProtoLens.fieldDefault, _AnyUtxoData'parsedState = Prelude.Nothing, _AnyUtxoData'_unknownFields = []} parseMessage = let loop :: AnyUtxoData -> Data.ProtoLens.Encoding.Bytes.Parser AnyUtxoData loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "txo_ref" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"txoRef") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "native_bytes" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nativeBytes") y x) 26 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "cardano" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "AnyUtxoData" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'txoRef") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 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 @"nativeBytes") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'parsedState") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (AnyUtxoData'Cardano v)) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) instance Control.DeepSeq.NFData AnyUtxoData where rnf = \ x__ -> Control.DeepSeq.deepseq (_AnyUtxoData'_unknownFields x__) (Control.DeepSeq.deepseq (_AnyUtxoData'txoRef x__) (Control.DeepSeq.deepseq (_AnyUtxoData'nativeBytes x__) (Control.DeepSeq.deepseq (_AnyUtxoData'parsedState x__) ()))) instance Control.DeepSeq.NFData AnyUtxoData'ParsedState where rnf (AnyUtxoData'Cardano x__) = Control.DeepSeq.rnf x__ _AnyUtxoData'Cardano :: Data.ProtoLens.Prism.Prism' AnyUtxoData'ParsedState Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput _AnyUtxoData'Cardano = Data.ProtoLens.Prism.prism' AnyUtxoData'Cardano (\ p__ -> case p__ of (AnyUtxoData'Cardano p__val) -> Prelude.Just p__val) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'utxoPattern' @:: Lens' AnyUtxoPattern (Prelude.Maybe AnyUtxoPattern'UtxoPattern)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyUtxoPattern (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyUtxoPattern Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern@ -} data AnyUtxoPattern = AnyUtxoPattern'_constructor {_AnyUtxoPattern'utxoPattern :: !(Prelude.Maybe AnyUtxoPattern'UtxoPattern), _AnyUtxoPattern'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show AnyUtxoPattern where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) data AnyUtxoPattern'UtxoPattern = AnyUtxoPattern'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) instance Data.ProtoLens.Field.HasField AnyUtxoPattern "maybe'utxoPattern" (Prelude.Maybe AnyUtxoPattern'UtxoPattern) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoPattern'utxoPattern (\ x__ y__ -> x__ {_AnyUtxoPattern'utxoPattern = y__})) Prelude.id instance Data.ProtoLens.Field.HasField AnyUtxoPattern "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoPattern'utxoPattern (\ x__ y__ -> x__ {_AnyUtxoPattern'utxoPattern = y__})) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (AnyUtxoPattern'Cardano x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap AnyUtxoPattern'Cardano y__)) instance Data.ProtoLens.Field.HasField AnyUtxoPattern "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _AnyUtxoPattern'utxoPattern (\ x__ y__ -> x__ {_AnyUtxoPattern'utxoPattern = y__})) ((Prelude..) (Lens.Family2.Unchecked.lens (\ x__ -> case x__ of (Prelude.Just (AnyUtxoPattern'Cardano x__val)) -> Prelude.Just x__val _otherwise -> Prelude.Nothing) (\ _ y__ -> Prelude.fmap AnyUtxoPattern'Cardano y__)) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message AnyUtxoPattern where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.AnyUtxoPattern" packedMessageDescriptor _ = "\n\ \\SOAnyUtxoPattern\DC2D\n\ \\acardano\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternH\NULR\acardanoB\SO\n\ \\futxo_pattern" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let cardano__field_descriptor = Data.ProtoLens.FieldDescriptor "cardano" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'cardano")) :: Data.ProtoLens.FieldDescriptor AnyUtxoPattern in Data.Map.fromList [(Data.ProtoLens.Tag 1, cardano__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _AnyUtxoPattern'_unknownFields (\ x__ y__ -> x__ {_AnyUtxoPattern'_unknownFields = y__}) defMessage = AnyUtxoPattern'_constructor {_AnyUtxoPattern'utxoPattern = Prelude.Nothing, _AnyUtxoPattern'_unknownFields = []} parseMessage = let loop :: AnyUtxoPattern -> Data.ProtoLens.Encoding.Bytes.Parser AnyUtxoPattern loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "cardano" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "AnyUtxoPattern" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'utxoPattern") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just (AnyUtxoPattern'Cardano v)) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData AnyUtxoPattern where rnf = \ x__ -> Control.DeepSeq.deepseq (_AnyUtxoPattern'_unknownFields x__) (Control.DeepSeq.deepseq (_AnyUtxoPattern'utxoPattern x__) ()) instance Control.DeepSeq.NFData AnyUtxoPattern'UtxoPattern where rnf (AnyUtxoPattern'Cardano x__) = Control.DeepSeq.rnf x__ _AnyUtxoPattern'Cardano :: Data.ProtoLens.Prism.Prism' AnyUtxoPattern'UtxoPattern Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern _AnyUtxoPattern'Cardano = Data.ProtoLens.Prism.prism' AnyUtxoPattern'Cardano (\ p__ -> case p__ of (AnyUtxoPattern'Cardano p__val) -> Prelude.Just p__val) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.slot' @:: Lens' ChainPoint Data.Word.Word64@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.hash' @:: Lens' ChainPoint Data.ByteString.ByteString@ -} data ChainPoint = ChainPoint'_constructor {_ChainPoint'slot :: !Data.Word.Word64, _ChainPoint'hash :: !Data.ByteString.ByteString, _ChainPoint'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ChainPoint where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ChainPoint "slot" Data.Word.Word64 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChainPoint'slot (\ x__ y__ -> x__ {_ChainPoint'slot = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ChainPoint "hash" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ChainPoint'hash (\ x__ y__ -> x__ {_ChainPoint'hash = y__})) Prelude.id instance Data.ProtoLens.Message ChainPoint where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.ChainPoint" packedMessageDescriptor _ = "\n\ \\n\ \ChainPoint\DC2\DC2\n\ \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ \\EOThash\CAN\STX \SOH(\fR\EOThash" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let slot__field_descriptor = Data.ProtoLens.FieldDescriptor "slot" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"slot")) :: Data.ProtoLens.FieldDescriptor ChainPoint hash__field_descriptor = Data.ProtoLens.FieldDescriptor "hash" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: Data.ProtoLens.FieldDescriptor ChainPoint in Data.Map.fromList [(Data.ProtoLens.Tag 1, slot__field_descriptor), (Data.ProtoLens.Tag 2, hash__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ChainPoint'_unknownFields (\ x__ y__ -> x__ {_ChainPoint'_unknownFields = y__}) defMessage = ChainPoint'_constructor {_ChainPoint'slot = Data.ProtoLens.fieldDefault, _ChainPoint'hash = Data.ProtoLens.fieldDefault, _ChainPoint'_unknownFields = []} parseMessage = let loop :: ChainPoint -> Data.ProtoLens.Encoding.Bytes.Parser ChainPoint loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) Data.ProtoLens.Encoding.Bytes.getVarInt "slot" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "ChainPoint" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"slot") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 8) (Data.ProtoLens.Encoding.Bytes.putVarInt _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData ChainPoint where rnf = \ x__ -> Control.DeepSeq.deepseq (_ChainPoint'_unknownFields x__) (Control.DeepSeq.deepseq (_ChainPoint'slot x__) (Control.DeepSeq.deepseq (_ChainPoint'hash x__) ())) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.fieldMask' @:: Lens' ReadParamsRequest Proto.Google.Protobuf.FieldMask.FieldMask@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadParamsRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -} data ReadParamsRequest = ReadParamsRequest'_constructor {_ReadParamsRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask), _ReadParamsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ReadParamsRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ReadParamsRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadParamsRequest'fieldMask (\ x__ y__ -> x__ {_ReadParamsRequest'fieldMask = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ReadParamsRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadParamsRequest'fieldMask (\ x__ y__ -> x__ {_ReadParamsRequest'fieldMask = y__})) Prelude.id instance Data.ProtoLens.Message ReadParamsRequest where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.ReadParamsRequest" packedMessageDescriptor _ = "\n\ \\DC1ReadParamsRequest\DC29\n\ \\n\ \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let fieldMask__field_descriptor = Data.ProtoLens.FieldDescriptor "field_mask" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'fieldMask")) :: Data.ProtoLens.FieldDescriptor ReadParamsRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, fieldMask__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ReadParamsRequest'_unknownFields (\ x__ y__ -> x__ {_ReadParamsRequest'_unknownFields = y__}) defMessage = ReadParamsRequest'_constructor {_ReadParamsRequest'fieldMask = Prelude.Nothing, _ReadParamsRequest'_unknownFields = []} parseMessage = let loop :: ReadParamsRequest -> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsRequest loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "field_mask" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "ReadParamsRequest" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'fieldMask") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ReadParamsRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ReadParamsRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ReadParamsRequest'fieldMask x__) ()) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.values' @:: Lens' ReadParamsResponse AnyChainParams@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'values' @:: Lens' ReadParamsResponse (Prelude.Maybe AnyChainParams)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' ReadParamsResponse ChainPoint@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadParamsResponse (Prelude.Maybe ChainPoint)@ -} data ReadParamsResponse = ReadParamsResponse'_constructor {_ReadParamsResponse'values :: !(Prelude.Maybe AnyChainParams), _ReadParamsResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), _ReadParamsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ReadParamsResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ReadParamsResponse "values" AnyChainParams where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadParamsResponse'values (\ x__ y__ -> x__ {_ReadParamsResponse'values = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'values" (Prelude.Maybe AnyChainParams) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadParamsResponse'values (\ x__ y__ -> x__ {_ReadParamsResponse'values = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ReadParamsResponse "ledgerTip" ChainPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadParamsResponse'ledgerTip (\ x__ y__ -> x__ {_ReadParamsResponse'ledgerTip = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadParamsResponse'ledgerTip (\ x__ y__ -> x__ {_ReadParamsResponse'ledgerTip = y__})) Prelude.id instance Data.ProtoLens.Message ReadParamsResponse where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.ReadParamsResponse" packedMessageDescriptor _ = "\n\ \\DC2ReadParamsResponse\DC2=\n\ \\ACKvalues\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyChainParamsR\ACKvalues\DC2@\n\ \\n\ \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let values__field_descriptor = Data.ProtoLens.FieldDescriptor "values" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor AnyChainParams) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'values")) :: Data.ProtoLens.FieldDescriptor ReadParamsResponse ledgerTip__field_descriptor = Data.ProtoLens.FieldDescriptor "ledger_tip" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChainPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: Data.ProtoLens.FieldDescriptor ReadParamsResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, values__field_descriptor), (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ReadParamsResponse'_unknownFields (\ x__ y__ -> x__ {_ReadParamsResponse'_unknownFields = y__}) defMessage = ReadParamsResponse'_constructor {_ReadParamsResponse'values = Prelude.Nothing, _ReadParamsResponse'ledgerTip = Prelude.Nothing, _ReadParamsResponse'_unknownFields = []} parseMessage = let loop :: ReadParamsResponse -> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsResponse loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "values" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"values") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "ledger_tip" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "ReadParamsResponse" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'values") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData ReadParamsResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ReadParamsResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ReadParamsResponse'values x__) (Control.DeepSeq.deepseq (_ReadParamsResponse'ledgerTip x__) ())) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.keys' @:: Lens' ReadUtxosRequest [TxoRef]@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'keys' @:: Lens' ReadUtxosRequest (Data.Vector.Vector TxoRef)@ -} data ReadUtxosRequest = ReadUtxosRequest'_constructor {_ReadUtxosRequest'keys :: !(Data.Vector.Vector TxoRef), _ReadUtxosRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ReadUtxosRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ReadUtxosRequest "keys" [TxoRef] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadUtxosRequest'keys (\ x__ y__ -> x__ {_ReadUtxosRequest'keys = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ReadUtxosRequest "vec'keys" (Data.Vector.Vector TxoRef) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadUtxosRequest'keys (\ x__ y__ -> x__ {_ReadUtxosRequest'keys = y__})) Prelude.id instance Data.ProtoLens.Message ReadUtxosRequest where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.ReadUtxosRequest" packedMessageDescriptor _ = "\n\ \\DLEReadUtxosRequest\DC21\n\ \\EOTkeys\CAN\SOH \ETX(\v2\GS.utxorpc.v1alpha.query.TxoRefR\EOTkeys" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let keys__field_descriptor = Data.ProtoLens.FieldDescriptor "keys" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor TxoRef) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"keys")) :: Data.ProtoLens.FieldDescriptor ReadUtxosRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, keys__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ReadUtxosRequest'_unknownFields (\ x__ y__ -> x__ {_ReadUtxosRequest'_unknownFields = y__}) defMessage = ReadUtxosRequest'_constructor {_ReadUtxosRequest'keys = Data.Vector.Generic.empty, _ReadUtxosRequest'_unknownFields = []} parseMessage = let loop :: ReadUtxosRequest -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxoRef -> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosRequest loop x mutable'keys = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'keys) (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'keys") frozen'keys x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "keys" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'keys y) loop x v wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'keys in (Data.ProtoLens.Encoding.Bytes.) (do mutable'keys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'keys) "ReadUtxosRequest" buildMessage = \ _x -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'keys") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData ReadUtxosRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_ReadUtxosRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_ReadUtxosRequest'keys x__) ()) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.items' @:: Lens' ReadUtxosResponse [AnyUtxoData]@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'items' @:: Lens' ReadUtxosResponse (Data.Vector.Vector AnyUtxoData)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' ReadUtxosResponse ChainPoint@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadUtxosResponse (Prelude.Maybe ChainPoint)@ -} data ReadUtxosResponse = ReadUtxosResponse'_constructor {_ReadUtxosResponse'items :: !(Data.Vector.Vector AnyUtxoData), _ReadUtxosResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), _ReadUtxosResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show ReadUtxosResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField ReadUtxosResponse "items" [AnyUtxoData] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadUtxosResponse'items (\ x__ y__ -> x__ {_ReadUtxosResponse'items = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField ReadUtxosResponse "vec'items" (Data.Vector.Vector AnyUtxoData) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadUtxosResponse'items (\ x__ y__ -> x__ {_ReadUtxosResponse'items = y__})) Prelude.id instance Data.ProtoLens.Field.HasField ReadUtxosResponse "ledgerTip" ChainPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadUtxosResponse'ledgerTip (\ x__ y__ -> x__ {_ReadUtxosResponse'ledgerTip = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField ReadUtxosResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _ReadUtxosResponse'ledgerTip (\ x__ y__ -> x__ {_ReadUtxosResponse'ledgerTip = y__})) Prelude.id instance Data.ProtoLens.Message ReadUtxosResponse where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.ReadUtxosResponse" packedMessageDescriptor _ = "\n\ \\DC1ReadUtxosResponse\DC28\n\ \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\ \\n\ \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let items__field_descriptor = Data.ProtoLens.FieldDescriptor "items" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor AnyUtxoData) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: Data.ProtoLens.FieldDescriptor ReadUtxosResponse ledgerTip__field_descriptor = Data.ProtoLens.FieldDescriptor "ledger_tip" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChainPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: Data.ProtoLens.FieldDescriptor ReadUtxosResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor), (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _ReadUtxosResponse'_unknownFields (\ x__ y__ -> x__ {_ReadUtxosResponse'_unknownFields = y__}) defMessage = ReadUtxosResponse'_constructor {_ReadUtxosResponse'items = Data.Vector.Generic.empty, _ReadUtxosResponse'ledgerTip = Prelude.Nothing, _ReadUtxosResponse'_unknownFields = []} parseMessage = let loop :: ReadUtxosResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyUtxoData -> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosResponse loop x mutable'items = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "items" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'items y) loop x v 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "ledger_tip" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) mutable'items wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'items in (Data.ProtoLens.Encoding.Bytes.) (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'items) "ReadUtxosResponse" buildMessage = \ _x -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData ReadUtxosResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_ReadUtxosResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_ReadUtxosResponse'items x__) (Control.DeepSeq.deepseq (_ReadUtxosResponse'ledgerTip x__) ())) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.predicate' @:: Lens' SearchUtxosRequest UtxoPredicate@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'predicate' @:: Lens' SearchUtxosRequest (Prelude.Maybe UtxoPredicate)@ -} data SearchUtxosRequest = SearchUtxosRequest'_constructor {_SearchUtxosRequest'predicate :: !(Prelude.Maybe UtxoPredicate), _SearchUtxosRequest'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SearchUtxosRequest where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SearchUtxosRequest "predicate" UtxoPredicate where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SearchUtxosRequest'predicate (\ x__ y__ -> x__ {_SearchUtxosRequest'predicate = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField SearchUtxosRequest "maybe'predicate" (Prelude.Maybe UtxoPredicate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SearchUtxosRequest'predicate (\ x__ y__ -> x__ {_SearchUtxosRequest'predicate = y__})) Prelude.id instance Data.ProtoLens.Message SearchUtxosRequest where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.SearchUtxosRequest" packedMessageDescriptor _ = "\n\ \\DC2SearchUtxosRequest\DC2B\n\ \\tpredicate\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\tpredicate" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let predicate__field_descriptor = Data.ProtoLens.FieldDescriptor "predicate" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'predicate")) :: Data.ProtoLens.FieldDescriptor SearchUtxosRequest in Data.Map.fromList [(Data.ProtoLens.Tag 1, predicate__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SearchUtxosRequest'_unknownFields (\ x__ y__ -> x__ {_SearchUtxosRequest'_unknownFields = y__}) defMessage = SearchUtxosRequest'_constructor {_SearchUtxosRequest'predicate = Prelude.Nothing, _SearchUtxosRequest'_unknownFields = []} parseMessage = let loop :: SearchUtxosRequest -> Data.ProtoLens.Encoding.Bytes.Parser SearchUtxosRequest loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "predicate" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"predicate") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "SearchUtxosRequest" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'predicate") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x)) instance Control.DeepSeq.NFData SearchUtxosRequest where rnf = \ x__ -> Control.DeepSeq.deepseq (_SearchUtxosRequest'_unknownFields x__) (Control.DeepSeq.deepseq (_SearchUtxosRequest'predicate x__) ()) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.items' @:: Lens' SearchUtxosResponse [AnyUtxoData]@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'items' @:: Lens' SearchUtxosResponse (Data.Vector.Vector AnyUtxoData)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' SearchUtxosResponse ChainPoint@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' SearchUtxosResponse (Prelude.Maybe ChainPoint)@ -} data SearchUtxosResponse = SearchUtxosResponse'_constructor {_SearchUtxosResponse'items :: !(Data.Vector.Vector AnyUtxoData), _SearchUtxosResponse'ledgerTip :: !(Prelude.Maybe ChainPoint), _SearchUtxosResponse'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show SearchUtxosResponse where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField SearchUtxosResponse "items" [AnyUtxoData] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SearchUtxosResponse'items (\ x__ y__ -> x__ {_SearchUtxosResponse'items = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField SearchUtxosResponse "vec'items" (Data.Vector.Vector AnyUtxoData) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SearchUtxosResponse'items (\ x__ y__ -> x__ {_SearchUtxosResponse'items = y__})) Prelude.id instance Data.ProtoLens.Field.HasField SearchUtxosResponse "ledgerTip" ChainPoint where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SearchUtxosResponse'ledgerTip (\ x__ y__ -> x__ {_SearchUtxosResponse'ledgerTip = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField SearchUtxosResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _SearchUtxosResponse'ledgerTip (\ x__ y__ -> x__ {_SearchUtxosResponse'ledgerTip = y__})) Prelude.id instance Data.ProtoLens.Message SearchUtxosResponse where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.SearchUtxosResponse" packedMessageDescriptor _ = "\n\ \\DC3SearchUtxosResponse\DC28\n\ \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\ \\n\ \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let items__field_descriptor = Data.ProtoLens.FieldDescriptor "items" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor AnyUtxoData) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) :: Data.ProtoLens.FieldDescriptor SearchUtxosResponse ledgerTip__field_descriptor = Data.ProtoLens.FieldDescriptor "ledger_tip" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor ChainPoint) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'ledgerTip")) :: Data.ProtoLens.FieldDescriptor SearchUtxosResponse in Data.Map.fromList [(Data.ProtoLens.Tag 1, items__field_descriptor), (Data.ProtoLens.Tag 2, ledgerTip__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _SearchUtxosResponse'_unknownFields (\ x__ y__ -> x__ {_SearchUtxosResponse'_unknownFields = y__}) defMessage = SearchUtxosResponse'_constructor {_SearchUtxosResponse'items = Data.Vector.Generic.empty, _SearchUtxosResponse'ledgerTip = Prelude.Nothing, _SearchUtxosResponse'_unknownFields = []} parseMessage = let loop :: SearchUtxosResponse -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyUtxoData -> Data.ProtoLens.Encoding.Bytes.Parser SearchUtxosResponse loop x mutable'items = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'items) (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'items") frozen'items x)) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "items" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'items y) loop x v 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "ledger_tip" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x) mutable'items wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'items in (Data.ProtoLens.Encoding.Bytes.) (do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'items) "SearchUtxosResponse" buildMessage = \ _x -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'items") _x)) ((Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ledgerTip") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData SearchUtxosResponse where rnf = \ x__ -> Control.DeepSeq.deepseq (_SearchUtxosResponse'_unknownFields x__) (Control.DeepSeq.deepseq (_SearchUtxosResponse'items x__) (Control.DeepSeq.deepseq (_SearchUtxosResponse'ledgerTip x__) ())) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.hash' @:: Lens' TxoRef Data.ByteString.ByteString@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.index' @:: Lens' TxoRef Data.Word.Word32@ -} data TxoRef = TxoRef'_constructor {_TxoRef'hash :: !Data.ByteString.ByteString, _TxoRef'index :: !Data.Word.Word32, _TxoRef'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show TxoRef where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField TxoRef "hash" Data.ByteString.ByteString where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _TxoRef'hash (\ x__ y__ -> x__ {_TxoRef'hash = y__})) Prelude.id instance Data.ProtoLens.Field.HasField TxoRef "index" Data.Word.Word32 where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _TxoRef'index (\ x__ y__ -> x__ {_TxoRef'index = y__})) Prelude.id instance Data.ProtoLens.Message TxoRef where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.TxoRef" packedMessageDescriptor _ = "\n\ \\ACKTxoRef\DC2\DC2\n\ \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\ \\ENQindex\CAN\STX \SOH(\rR\ENQindex" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let hash__field_descriptor = Data.ProtoLens.FieldDescriptor "hash" (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"hash")) :: Data.ProtoLens.FieldDescriptor TxoRef index__field_descriptor = Data.ProtoLens.FieldDescriptor "index" (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field :: Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32) (Data.ProtoLens.PlainField Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"index")) :: Data.ProtoLens.FieldDescriptor TxoRef in Data.Map.fromList [(Data.ProtoLens.Tag 1, hash__field_descriptor), (Data.ProtoLens.Tag 2, index__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _TxoRef'_unknownFields (\ x__ y__ -> x__ {_TxoRef'_unknownFields = y__}) defMessage = TxoRef'_constructor {_TxoRef'hash = Data.ProtoLens.fieldDefault, _TxoRef'index = Data.ProtoLens.fieldDefault, _TxoRef'_unknownFields = []} parseMessage = let loop :: TxoRef -> Data.ProtoLens.Encoding.Bytes.Parser TxoRef loop x = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.getBytes (Prelude.fromIntegral len)) "hash" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x) 16 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (Prelude.fmap Prelude.fromIntegral Data.ProtoLens.Encoding.Bytes.getVarInt) "index" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"index") y x) wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) in (Data.ProtoLens.Encoding.Bytes.) (do loop Data.ProtoLens.defMessage) "TxoRef" buildMessage = \ _x -> (Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hash") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) _v)) ((Data.Monoid.<>) (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"index") _x in if (Prelude.==) _v Data.ProtoLens.fieldDefault then Data.Monoid.mempty else (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 16) ((Prelude..) Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))) instance Control.DeepSeq.NFData TxoRef where rnf = \ x__ -> Control.DeepSeq.deepseq (_TxoRef'_unknownFields x__) (Control.DeepSeq.deepseq (_TxoRef'hash x__) (Control.DeepSeq.deepseq (_TxoRef'index x__) ())) {- | Fields : * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.match' @:: Lens' UtxoPredicate AnyUtxoPattern@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'match' @:: Lens' UtxoPredicate (Prelude.Maybe AnyUtxoPattern)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.not' @:: Lens' UtxoPredicate [UtxoPredicate]@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'not' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.allOf' @:: Lens' UtxoPredicate [UtxoPredicate]@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'allOf' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.anyOf' @:: Lens' UtxoPredicate [UtxoPredicate]@ * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'anyOf' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@ -} data UtxoPredicate = UtxoPredicate'_constructor {_UtxoPredicate'match :: !(Prelude.Maybe AnyUtxoPattern), _UtxoPredicate'not :: !(Data.Vector.Vector UtxoPredicate), _UtxoPredicate'allOf :: !(Data.Vector.Vector UtxoPredicate), _UtxoPredicate'anyOf :: !(Data.Vector.Vector UtxoPredicate), _UtxoPredicate'_unknownFields :: !Data.ProtoLens.FieldSet} deriving stock (Prelude.Eq, Prelude.Ord) instance Prelude.Show UtxoPredicate where showsPrec _ __x __s = Prelude.showChar '{' (Prelude.showString (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) instance Data.ProtoLens.Field.HasField UtxoPredicate "match" AnyUtxoPattern where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'match (\ x__ y__ -> x__ {_UtxoPredicate'match = y__})) (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) instance Data.ProtoLens.Field.HasField UtxoPredicate "maybe'match" (Prelude.Maybe AnyUtxoPattern) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'match (\ x__ y__ -> x__ {_UtxoPredicate'match = y__})) Prelude.id instance Data.ProtoLens.Field.HasField UtxoPredicate "not" [UtxoPredicate] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'not (\ x__ y__ -> x__ {_UtxoPredicate'not = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'not" (Data.Vector.Vector UtxoPredicate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'not (\ x__ y__ -> x__ {_UtxoPredicate'not = y__})) Prelude.id instance Data.ProtoLens.Field.HasField UtxoPredicate "allOf" [UtxoPredicate] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'allOf (\ x__ y__ -> x__ {_UtxoPredicate'allOf = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'allOf" (Data.Vector.Vector UtxoPredicate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'allOf (\ x__ y__ -> x__ {_UtxoPredicate'allOf = y__})) Prelude.id instance Data.ProtoLens.Field.HasField UtxoPredicate "anyOf" [UtxoPredicate] where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'anyOf (\ x__ y__ -> x__ {_UtxoPredicate'anyOf = y__})) (Lens.Family2.Unchecked.lens Data.Vector.Generic.toList (\ _ y__ -> Data.Vector.Generic.fromList y__)) instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'anyOf" (Data.Vector.Vector UtxoPredicate) where fieldOf _ = (Prelude..) (Lens.Family2.Unchecked.lens _UtxoPredicate'anyOf (\ x__ y__ -> x__ {_UtxoPredicate'anyOf = y__})) Prelude.id instance Data.ProtoLens.Message UtxoPredicate where messageName _ = Data.Text.pack "utxorpc.v1alpha.query.UtxoPredicate" packedMessageDescriptor _ = "\n\ \\rUtxoPredicate\DC2;\n\ \\ENQmatch\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyUtxoPatternR\ENQmatch\DC26\n\ \\ETXnot\CAN\STX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ETXnot\DC2;\n\ \\ACKall_of\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQallOf\DC2;\n\ \\ACKany_of\CAN\EOT \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQanyOf" packedFileDescriptor _ = packedFileDescriptor fieldsByTag = let match__field_descriptor = Data.ProtoLens.FieldDescriptor "match" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor AnyUtxoPattern) (Data.ProtoLens.OptionalField (Data.ProtoLens.Field.field @"maybe'match")) :: Data.ProtoLens.FieldDescriptor UtxoPredicate not__field_descriptor = Data.ProtoLens.FieldDescriptor "not" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"not")) :: Data.ProtoLens.FieldDescriptor UtxoPredicate allOf__field_descriptor = Data.ProtoLens.FieldDescriptor "all_of" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"allOf")) :: Data.ProtoLens.FieldDescriptor UtxoPredicate anyOf__field_descriptor = Data.ProtoLens.FieldDescriptor "any_of" (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor UtxoPredicate) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"anyOf")) :: Data.ProtoLens.FieldDescriptor UtxoPredicate in Data.Map.fromList [(Data.ProtoLens.Tag 1, match__field_descriptor), (Data.ProtoLens.Tag 2, not__field_descriptor), (Data.ProtoLens.Tag 3, allOf__field_descriptor), (Data.ProtoLens.Tag 4, anyOf__field_descriptor)] unknownFields = Lens.Family2.Unchecked.lens _UtxoPredicate'_unknownFields (\ x__ y__ -> x__ {_UtxoPredicate'_unknownFields = y__}) defMessage = UtxoPredicate'_constructor {_UtxoPredicate'match = Prelude.Nothing, _UtxoPredicate'not = Data.Vector.Generic.empty, _UtxoPredicate'allOf = Data.Vector.Generic.empty, _UtxoPredicate'anyOf = Data.Vector.Generic.empty, _UtxoPredicate'_unknownFields = []} parseMessage = let loop :: UtxoPredicate -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate -> Data.ProtoLens.Encoding.Bytes.Parser UtxoPredicate loop x mutable'allOf mutable'anyOf mutable'not = do end <- Data.ProtoLens.Encoding.Bytes.atEnd if end then do frozen'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'allOf) frozen'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'anyOf) frozen'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'not) (let missing = [] in if Prelude.null missing then Prelude.return () else Prelude.fail ((Prelude.++) "Missing required fields: " (Prelude.show (missing :: [Prelude.String])))) Prelude.return (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'allOf") frozen'allOf (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'anyOf") frozen'anyOf (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'not") frozen'not x)))) else do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "match" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"match") y x) mutable'allOf mutable'anyOf mutable'not 18 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "not" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'not y) loop x mutable'allOf mutable'anyOf v 26 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "all_of" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'allOf y) loop x v mutable'anyOf mutable'not 34 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt Data.ProtoLens.Encoding.Bytes.isolate (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) "any_of" v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO (Data.ProtoLens.Encoding.Growing.append mutable'anyOf y) loop x mutable'allOf v mutable'not wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire wire loop (Lens.Family2.over Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) mutable'allOf mutable'anyOf mutable'not in (Data.ProtoLens.Encoding.Bytes.) (do mutable'allOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'anyOf <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new mutable'not <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO Data.ProtoLens.Encoding.Growing.new loop Data.ProtoLens.defMessage mutable'allOf mutable'anyOf mutable'not) "UtxoPredicate" buildMessage = \ _x -> (Data.Monoid.<>) (case Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'match") _x of Prelude.Nothing -> Data.Monoid.mempty (Prelude.Just _v) -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 10) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 18) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'not") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 26) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'allOf") _x)) ((Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.foldMapBuilder (\ _v -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt 34) ((Prelude..) (\ bs -> (Data.Monoid.<>) (Data.ProtoLens.Encoding.Bytes.putVarInt (Prelude.fromIntegral (Data.ByteString.length bs))) (Data.ProtoLens.Encoding.Bytes.putBytes bs)) Data.ProtoLens.encodeMessage _v)) (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'anyOf") _x)) (Data.ProtoLens.Encoding.Wire.buildFieldSet (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) instance Control.DeepSeq.NFData UtxoPredicate where rnf = \ x__ -> Control.DeepSeq.deepseq (_UtxoPredicate'_unknownFields x__) (Control.DeepSeq.deepseq (_UtxoPredicate'match x__) (Control.DeepSeq.deepseq (_UtxoPredicate'not x__) (Control.DeepSeq.deepseq (_UtxoPredicate'allOf x__) (Control.DeepSeq.deepseq (_UtxoPredicate'anyOf x__) ())))) data QueryService = QueryService {} instance Data.ProtoLens.Service.Types.Service QueryService where type ServiceName QueryService = "QueryService" type ServicePackage QueryService = "utxorpc.v1alpha.query" type ServiceMethods QueryService = '["readParams", "readUtxos", "searchUtxos", "streamUtxos"] packedServiceDescriptor _ = "\n\ \\fQueryService\DC2a\n\ \\n\ \ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponse\DC2^\n\ \\tReadUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponse\DC2d\n\ \\vSearchUtxos\DC2).utxorpc.v1alpha.query.SearchUtxosRequest\SUB*.utxorpc.v1alpha.query.SearchUtxosResponse\DC2b\n\ \\vStreamUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponse0\SOH" instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readParams" where type MethodName QueryService "readParams" = "ReadParams" type MethodInput QueryService "readParams" = ReadParamsRequest type MethodOutput QueryService "readParams" = ReadParamsResponse type MethodStreamingType QueryService "readParams" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readUtxos" where type MethodName QueryService "readUtxos" = "ReadUtxos" type MethodInput QueryService "readUtxos" = ReadUtxosRequest type MethodOutput QueryService "readUtxos" = ReadUtxosResponse type MethodStreamingType QueryService "readUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "searchUtxos" where type MethodName QueryService "searchUtxos" = "SearchUtxos" type MethodInput QueryService "searchUtxos" = SearchUtxosRequest type MethodOutput QueryService "searchUtxos" = SearchUtxosResponse type MethodStreamingType QueryService "searchUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "streamUtxos" where type MethodName QueryService "streamUtxos" = "StreamUtxos" type MethodInput QueryService "streamUtxos" = ReadUtxosRequest type MethodOutput QueryService "streamUtxos" = ReadUtxosResponse type MethodStreamingType QueryService "streamUtxos" = 'Data.ProtoLens.Service.Types.ServerStreaming packedFileDescriptor :: Data.ByteString.ByteString packedFileDescriptor = "\n\ \!utxorpc/v1alpha/query/query.proto\DC2\NAKutxorpc.v1alpha.query\SUB google/protobuf/field_mask.proto\SUB%utxorpc/v1alpha/cardano/cardano.proto\"4\n\ \\n\ \ChainPoint\DC2\DC2\n\ \\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\ \\EOThash\CAN\STX \SOH(\fR\EOThash\"2\n\ \\ACKTxoRef\DC2\DC2\n\ \\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\ \\ENQindex\CAN\STX \SOH(\rR\ENQindex\"N\n\ \\DC1ReadParamsRequest\DC29\n\ \\n\ \field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"W\n\ \\SOAnyChainParams\DC2;\n\ \\acardano\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.ParamsH\NULR\acardanoB\b\n\ \\ACKparams\"\149\SOH\n\ \\DC2ReadParamsResponse\DC2=\n\ \\ACKvalues\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyChainParamsR\ACKvalues\DC2@\n\ \\n\ \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip\"f\n\ \\SOAnyUtxoPattern\DC2D\n\ \\acardano\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternH\NULR\acardanoB\SO\n\ \\futxo_pattern\"\254\SOH\n\ \\rUtxoPredicate\DC2;\n\ \\ENQmatch\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyUtxoPatternR\ENQmatch\DC26\n\ \\ETXnot\CAN\STX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ETXnot\DC2;\n\ \\ACKall_of\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQallOf\DC2;\n\ \\ACKany_of\CAN\EOT \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQanyOf\"\183\SOH\n\ \\vAnyUtxoData\DC26\n\ \\atxo_ref\CAN\SOH \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\DC2!\n\ \\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC2=\n\ \\acardano\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\SO\n\ \\fparsed_state\"E\n\ \\DLEReadUtxosRequest\DC21\n\ \\EOTkeys\CAN\SOH \ETX(\v2\GS.utxorpc.v1alpha.query.TxoRefR\EOTkeys\"\143\SOH\n\ \\DC1ReadUtxosResponse\DC28\n\ \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\ \\n\ \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip\"X\n\ \\DC2SearchUtxosRequest\DC2B\n\ \\tpredicate\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\tpredicate\"\145\SOH\n\ \\DC3SearchUtxosResponse\DC28\n\ \\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\ \\n\ \ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip2\155\ETX\n\ \\fQueryService\DC2a\n\ \\n\ \ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponse\DC2^\n\ \\tReadUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponse\DC2d\n\ \\vSearchUtxos\DC2).utxorpc.v1alpha.query.SearchUtxosRequest\SUB*.utxorpc.v1alpha.query.SearchUtxosResponse\DC2b\n\ \\vStreamUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponse0\SOHB\210\SOH\n\ \\EMcom.utxorpc.v1alpha.queryB\n\ \QueryProtoP\SOHZ3github.com/utxorpc/go-codegen/utxorpc/v1alpha/query\162\STX\ETXUVQ\170\STX\NAKUtxorpc.V1alpha.Query\202\STX\NAKUtxorpc\\V1alpha\\Query\226\STX!Utxorpc\\V1alpha\\Query\\GPBMetadata\234\STX\ETBUtxorpc::V1alpha::QueryJ\150\GS\n\ \\ACK\DC2\EOT\STX\NUL_\SOH\n\ \9\n\ \\SOH\f\DC2\ETX\STX\NUL\DC22// A consistent view of the state of the ledger\n\ \\n\ \\b\n\ \\SOH\STX\DC2\ETX\EOT\NUL\RS\n\ \\t\n\ \\STX\ETX\NUL\DC2\ETX\ACK\NUL*\n\ \\t\n\ \\STX\ETX\SOH\DC2\ETX\a\NUL/\n\ \<\n\ \\STX\EOT\NUL\DC2\EOT\n\ \\NUL\r\SOH\SUB0 Represents a specific point in the blockchain.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\NUL\SOH\DC2\ETX\n\ \\b\DC2\n\ \\ESC\n\ \\EOT\EOT\NUL\STX\NUL\DC2\ETX\v\STX\DC2\"\SO Slot number.\n\ \\n\ \\f\n\ \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\v\STX\b\n\ \\f\n\ \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\v\t\r\n\ \\f\n\ \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\v\DLE\DC1\n\ \\SUB\n\ \\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\DC1\"\r Block hash.\n\ \\n\ \\f\n\ \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\a\n\ \\f\n\ \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\b\f\n\ \\f\n\ \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\SI\DLE\n\ \<\n\ \\STX\EOT\SOH\DC2\EOT\DLE\NUL\DC3\SOH\SUB0 Represents a reference to a transaction output\n\ \\n\ \\n\ \\n\ \\ETX\EOT\SOH\SOH\DC2\ETX\DLE\b\SO\n\ \\ETB\n\ \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC1\STX\DC1\"\n\ \ Tx hash.\n\ \\n\ \\f\n\ \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\DC1\STX\a\n\ \\f\n\ \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC1\b\f\n\ \\f\n\ \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC1\SI\DLE\n\ \\FS\n\ \\EOT\EOT\SOH\STX\SOH\DC2\ETX\DC2\STX\DC3\"\SI Output index.\n\ \\n\ \\f\n\ \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\DC2\STX\b\n\ \\f\n\ \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\DC2\t\SO\n\ \\f\n\ \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\DC2\DC1\DC2\n\ \1\n\ \\STX\EOT\STX\DC2\EOT\SYN\NUL\CAN\SOH\SUB% Request to get the chain parameters\n\ \\n\ \\n\ \\n\ \\ETX\EOT\STX\SOH\DC2\ETX\SYN\b\EM\n\ \N\n\ \\EOT\EOT\STX\STX\NUL\DC2\ETX\ETB\STX+\"A Field mask to selectively return fields in the parsed response.\n\ \\n\ \\f\n\ \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\ETB\STX\ESC\n\ \\f\n\ \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\ETB\FS&\n\ \\f\n\ \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\ETB)*\n\ \U\n\ \\STX\EOT\ETX\DC2\EOT\ESC\NUL\US\SOH\SUBI An evenlope that holds parameter data from any of the compatible chains\n\ \\n\ \\n\ \\n\ \\ETX\EOT\ETX\SOH\DC2\ETX\ESC\b\SYN\n\ \\f\n\ \\EOT\EOT\ETX\b\NUL\DC2\EOT\FS\STX\RS\ETX\n\ \\f\n\ \\ENQ\EOT\ETX\b\NUL\SOH\DC2\ETX\FS\b\SO\n\ \!\n\ \\EOT\EOT\ETX\STX\NUL\DC2\ETX\GS\EOT/\"\DC4 Cardano parameters\n\ \\n\ \\f\n\ \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\GS\EOT\"\n\ \\f\n\ \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\GS#*\n\ \\f\n\ \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\GS-.\n\ \6\n\ \\STX\EOT\EOT\DC2\EOT\"\NUL%\SOH\SUB* Response containing the chain parameters\n\ \\n\ \\n\ \\n\ \\ETX\EOT\EOT\SOH\DC2\ETX\"\b\SUB\n\ \+\n\ \\EOT\EOT\EOT\STX\NUL\DC2\ETX#\STX\FS\"\RS The value of the parameters.\n\ \\n\ \\f\n\ \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX#\STX\DLE\n\ \\f\n\ \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX#\DC1\ETB\n\ \\f\n\ \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX#\SUB\ESC\n\ \J\n\ \\EOT\EOT\EOT\STX\SOH\DC2\ETX$\STX\FS\"= The chain point that represent the ledger current position.\n\ \\n\ \\f\n\ \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX$\STX\f\n\ \\f\n\ \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX$\r\ETB\n\ \\f\n\ \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX$\SUB\ESC\n\ \S\n\ \\STX\EOT\ENQ\DC2\EOT(\NUL,\SOH\SUBG An evenlope that holds an UTxO patterns from any of compatible chains\n\ \\n\ \\n\ \\n\ \\ETX\EOT\ENQ\SOH\DC2\ETX(\b\SYN\n\ \\f\n\ \\EOT\EOT\ENQ\b\NUL\DC2\EOT)\STX+\ETX\n\ \\f\n\ \\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX)\b\DC4\n\ \\v\n\ \\EOT\EOT\ENQ\STX\NUL\DC2\ETX*\EOT8\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX*\EOT+\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX*,3\n\ \\f\n\ \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX*67\n\ \_\n\ \\STX\EOT\ACK\DC2\EOT/\NUL4\SOH\SUBS Represents a simple utxo predicate that can composed to create more complext ones\n\ \\n\ \\n\ \\n\ \\ETX\EOT\ACK\SOH\DC2\ETX/\b\NAK\n\ \8\n\ \\EOT\EOT\ACK\STX\NUL\DC2\ETX0\STX\ESC\"+ Predicate is true if tx exhibits pattern.\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX0\STX\DLE\n\ \\f\n\ \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX0\DC1\SYN\n\ \\f\n\ \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX0\EM\SUB\n\ \?\n\ \\EOT\EOT\ACK\STX\SOH\DC2\ETX1\STX!\"2 Predicate is true if tx doesn't exhibit pattern.\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\SOH\EOT\DC2\ETX1\STX\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX1\v\CAN\n\ \\f\n\ \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX1\EM\FS\n\ \\f\n\ \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX1\US \n\ \F\n\ \\EOT\EOT\ACK\STX\STX\DC2\ETX2\STX$\"9 Predicate is true if utxo exhibits all of the patterns.\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\STX\EOT\DC2\ETX2\STX\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETX2\v\CAN\n\ \\f\n\ \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX2\EM\US\n\ \\f\n\ \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX2\"#\n\ \F\n\ \\EOT\EOT\ACK\STX\ETX\DC2\ETX3\STX$\"9 Predicate is true if utxo exhibits any of the patterns.\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\ETX\EOT\DC2\ETX3\STX\n\ \\n\ \\f\n\ \\ENQ\EOT\ACK\STX\ETX\ACK\DC2\ETX3\v\CAN\n\ \\f\n\ \\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETX3\EM\US\n\ \\f\n\ \\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETX3\"#\n\ \J\n\ \\STX\EOT\a\DC2\EOT7\NUL=\SOH\SUB> An evenlope that holds an UTxO from any of compatible chains\n\ \\n\ \\n\ \\n\ \\ETX\EOT\a\SOH\DC2\ETX7\b\DC3\n\ \0\n\ \\EOT\EOT\a\STX\NUL\DC2\ETX8\STX\NAK\"# Hash of the previous transaction.\n\ \\n\ \\f\n\ \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX8\STX\b\n\ \\f\n\ \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX8\t\DLE\n\ \\f\n\ \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX8\DC3\DC4\n\ \_\n\ \\EOT\EOT\a\STX\SOH\DC2\ETX9\STX\EM\"R An opaque bytestring corresponding to native representation in the source chain.\n\ \\n\ \\f\n\ \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETX9\STX\a\n\ \\f\n\ \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX9\b\DC4\n\ \\f\n\ \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX9\ETB\CAN\n\ \\f\n\ \\EOT\EOT\a\b\NUL\DC2\EOT:\STX<\ETX\n\ \\f\n\ \\ENQ\EOT\a\b\NUL\SOH\DC2\ETX:\b\DC4\n\ \\GS\n\ \\EOT\EOT\a\STX\STX\DC2\ETX;\EOT1\"\DLE A cardano UTxO\n\ \\n\ \\f\n\ \\ENQ\EOT\a\STX\STX\ACK\DC2\ETX;\EOT$\n\ \\f\n\ \\ENQ\EOT\a\STX\STX\SOH\DC2\ETX;%,\n\ \\f\n\ \\ENQ\EOT\a\STX\STX\ETX\DC2\ETX;/0\n\ \+\n\ \\STX\EOT\b\DC2\EOT@\NULB\SOH\SUB\US Request to get specific UTxOs\n\ \\n\ \\n\ \\n\ \\ETX\EOT\b\SOH\DC2\ETX@\b\CAN\n\ \\"\n\ \\EOT\EOT\b\STX\NUL\DC2\ETXA\STX\ESC\"\NAK List of keys UTxOs.\n\ \\n\ \\f\n\ \\ENQ\EOT\b\STX\NUL\EOT\DC2\ETXA\STX\n\ \\n\ \\f\n\ \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXA\v\DC1\n\ \\f\n\ \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXA\DC2\SYN\n\ \\f\n\ \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXA\EM\SUB\n\ \T\n\ \\STX\EOT\t\DC2\EOTE\NULH\SOH\SUBH Response containing the UTxOs associated with the requested addresses.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\t\SOH\DC2\ETXE\b\EM\n\ \\GS\n\ \\EOT\EOT\t\STX\NUL\DC2\ETXF\STX!\"\DLE List of UTxOs.\n\ \\n\ \\f\n\ \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXF\STX\n\ \\n\ \\f\n\ \\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXF\v\SYN\n\ \\f\n\ \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXF\ETB\FS\n\ \\f\n\ \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXF\US \n\ \J\n\ \\EOT\EOT\t\STX\SOH\DC2\ETXG\STX\FS\"= The chain point that represent the ledger current position.\n\ \\n\ \\f\n\ \\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXG\STX\f\n\ \\f\n\ \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXG\r\ETB\n\ \\f\n\ \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXG\SUB\ESC\n\ \;\n\ \\STX\EOT\n\ \\DC2\EOTK\NULM\SOH\SUB/ Reques to search for UTxO based on a pattern.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\n\ \\SOH\DC2\ETXK\b\SUB\n\ \)\n\ \\EOT\EOT\n\ \\STX\NUL\DC2\ETXL\STX\RS\"\FS Pattern to match UTxOs by.\n\ \\n\ \\f\n\ \\ENQ\EOT\n\ \\STX\NUL\ACK\DC2\ETXL\STX\SI\n\ \\f\n\ \\ENQ\EOT\n\ \\STX\NUL\SOH\DC2\ETXL\DLE\EM\n\ \\f\n\ \\ENQ\EOT\n\ \\STX\NUL\ETX\DC2\ETXL\FS\GS\n\ \O\n\ \\STX\EOT\v\DC2\EOTP\NULS\SOH\SUBC Response containing the UTxOs that match the requested addresses.\n\ \\n\ \\n\ \\n\ \\ETX\EOT\v\SOH\DC2\ETXP\b\ESC\n\ \\GS\n\ \\EOT\EOT\v\STX\NUL\DC2\ETXQ\STX!\"\DLE List of UTxOs.\n\ \\n\ \\f\n\ \\ENQ\EOT\v\STX\NUL\EOT\DC2\ETXQ\STX\n\ \\n\ \\f\n\ \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXQ\v\SYN\n\ \\f\n\ \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXQ\ETB\FS\n\ \\f\n\ \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXQ\US \n\ \J\n\ \\EOT\EOT\v\STX\SOH\DC2\ETXR\STX\FS\"= The chain point that represent the ledger current position.\n\ \\n\ \\f\n\ \\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXR\STX\f\n\ \\f\n\ \\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXR\r\ETB\n\ \\f\n\ \\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXR\SUB\ESC\n\ \E\n\ \\STX\ACK\NUL\DC2\EOTV\NUL_\SOH\SUB9 Service definition for querying the state of the chain.\n\ \\n\ \\n\ \\n\ \\ETX\ACK\NUL\SOH\DC2\ETXV\b\DC4\n\ \'\n\ \\EOT\ACK\NUL\STX\NUL\DC2\ETXW\STXA\"\SUB Get overall chain state.\n\ \\n\ \\f\n\ \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETXW\ACK\DLE\n\ \\f\n\ \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETXW\DC1\"\n\ \\f\n\ \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETXW-?\n\ \0\n\ \\EOT\ACK\NUL\STX\SOH\DC2\ETXX\STX>\"# Read specific UTxOs by reference.\n\ \\n\ \\f\n\ \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETXX\ACK\SI\n\ \\f\n\ \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETXX\DLE \n\ \\f\n\ \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETXX+<\n\ \2\n\ \\EOT\ACK\NUL\STX\STX\DC2\ETXY\STXD\"% Search for UTxO based on a pattern.\n\ \\n\ \\f\n\ \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETXY\ACK\DC1\n\ \\f\n\ \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETXY\DC2$\n\ \\f\n\ \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETXY/B\n\ \)\n\ \\EOT\ACK\NUL\STX\ETX\DC2\ETXZ\STXG\"\FS Stream all available utxos\n\ \\n\ \\f\n\ \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETXZ\ACK\DC1\n\ \\f\n\ \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETXZ\DC2\"\n\ \\f\n\ \\ENQ\ACK\NUL\STX\ETX\ACK\DC2\ETXZ-3\n\ \\f\n\ \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETXZ4Eb\ACKproto3"