utxorpc-0.0.3.0: Proto/Utxorpc/V1alpha/Build/Build.hs
{- This file was auto-generated from utxorpc/v1alpha/build/build.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.Build.Build (
LedgerStateService(..), AnyChainUtxo(), AnyChainUtxo'Chain(..),
_AnyChainUtxo'Cardano, ChainParam(), ChainPoint(),
GetChainParamRequest(), GetChainParamResponse(),
GetChainTipRequest(), GetChainTipResponse(),
GetUtxoByAddressRequest(), GetUtxoByAddressResponse(),
GetUtxoByRefRequest(), GetUtxoByRefResponse(), HoldUtxoRequest(),
HoldUtxoResponse(), UtxoRef()
) 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.Build.Build_Fields.maybe'chain' @:: Lens' AnyChainUtxo (Prelude.Maybe AnyChainUtxo'Chain)@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.maybe'cardano' @:: Lens' AnyChainUtxo (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput)@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.cardano' @:: Lens' AnyChainUtxo Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput@ -}
data AnyChainUtxo
= AnyChainUtxo'_constructor {_AnyChainUtxo'chain :: !(Prelude.Maybe AnyChainUtxo'Chain),
_AnyChainUtxo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show AnyChainUtxo where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
data AnyChainUtxo'Chain
= AnyChainUtxo'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput
deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainUtxo "maybe'chain" (Prelude.Maybe AnyChainUtxo'Chain) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainUtxo'chain (\ x__ y__ -> x__ {_AnyChainUtxo'chain = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainUtxo "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainUtxo'chain (\ x__ y__ -> x__ {_AnyChainUtxo'chain = y__}))
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainUtxo'Cardano x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainUtxo'Cardano y__))
instance Data.ProtoLens.Field.HasField AnyChainUtxo "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_AnyChainUtxo'chain (\ x__ y__ -> x__ {_AnyChainUtxo'chain = y__}))
((Prelude..)
(Lens.Family2.Unchecked.lens
(\ x__
-> case x__ of
(Prelude.Just (AnyChainUtxo'Cardano x__val)) -> Prelude.Just x__val
_otherwise -> Prelude.Nothing)
(\ _ y__ -> Prelude.fmap AnyChainUtxo'Cardano y__))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainUtxo where
messageName _ = Data.Text.pack "utxorpc.v1alpha.build.AnyChainUtxo"
packedMessageDescriptor _
= "\n\
\\fAnyChainUtxo\DC2=\n\
\\acardano\CAN\SOH \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\a\n\
\\ENQchain"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
cardano__field_descriptor
= Data.ProtoLens.FieldDescriptor
"cardano"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'cardano")) ::
Data.ProtoLens.FieldDescriptor AnyChainUtxo
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, cardano__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_AnyChainUtxo'_unknownFields
(\ x__ y__ -> x__ {_AnyChainUtxo'_unknownFields = y__})
defMessage
= AnyChainUtxo'_constructor
{_AnyChainUtxo'chain = Prelude.Nothing,
_AnyChainUtxo'_unknownFields = []}
parseMessage
= let
loop ::
AnyChainUtxo -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainUtxo
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) "AnyChainUtxo"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'chain") _x
of
Prelude.Nothing -> Data.Monoid.mempty
(Prelude.Just (AnyChainUtxo'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 AnyChainUtxo where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_AnyChainUtxo'_unknownFields x__)
(Control.DeepSeq.deepseq (_AnyChainUtxo'chain x__) ())
instance Control.DeepSeq.NFData AnyChainUtxo'Chain where
rnf (AnyChainUtxo'Cardano x__) = Control.DeepSeq.rnf x__
_AnyChainUtxo'Cardano ::
Data.ProtoLens.Prism.Prism' AnyChainUtxo'Chain Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput
_AnyChainUtxo'Cardano
= Data.ProtoLens.Prism.prism'
AnyChainUtxo'Cardano
(\ p__
-> case p__ of
(AnyChainUtxo'Cardano p__val) -> Prelude.Just p__val)
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.key' @:: Lens' ChainParam Data.Text.Text@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.value' @:: Lens' ChainParam Data.ByteString.ByteString@ -}
data ChainParam
= ChainParam'_constructor {_ChainParam'key :: !Data.Text.Text,
_ChainParam'value :: !Data.ByteString.ByteString,
_ChainParam'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show ChainParam where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField ChainParam "key" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChainParam'key (\ x__ y__ -> x__ {_ChainParam'key = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChainParam "value" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChainParam'value (\ x__ y__ -> x__ {_ChainParam'value = y__}))
Prelude.id
instance Data.ProtoLens.Message ChainParam where
messageName _ = Data.Text.pack "utxorpc.v1alpha.build.ChainParam"
packedMessageDescriptor _
= "\n\
\\n\
\ChainParam\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
key__field_descriptor
= Data.ProtoLens.FieldDescriptor
"key"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor ChainParam
value__field_descriptor
= Data.ProtoLens.FieldDescriptor
"value"
(Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor ChainParam
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, value__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_ChainParam'_unknownFields
(\ x__ y__ -> x__ {_ChainParam'_unknownFields = y__})
defMessage
= ChainParam'_constructor
{_ChainParam'key = Data.ProtoLens.fieldDefault,
_ChainParam'value = Data.ProtoLens.fieldDefault,
_ChainParam'_unknownFields = []}
parseMessage
= let
loop ::
ChainParam -> Data.ProtoLens.Encoding.Bytes.Parser ChainParam
loop x
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
18
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do loop Data.ProtoLens.defMessage) "ChainParam"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
((Data.Monoid.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ 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 ChainParam where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChainParam'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ChainParam'key x__)
(Control.DeepSeq.deepseq (_ChainParam'value x__) ()))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.slot' @:: Lens' ChainPoint Data.Word.Word64@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.height' @:: Lens' ChainPoint Data.Word.Word64@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.hash' @:: Lens' ChainPoint Data.ByteString.ByteString@ -}
data ChainPoint
= ChainPoint'_constructor {_ChainPoint'slot :: !Data.Word.Word64,
_ChainPoint'height :: !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 "height" Data.Word.Word64 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_ChainPoint'height (\ x__ y__ -> x__ {_ChainPoint'height = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField ChainPoint "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.build.ChainPoint"
packedMessageDescriptor _
= "\n\
\\n\
\ChainPoint\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\SYN\n\
\\ACKheight\CAN\STX \SOH(\EOTR\ACKheight\DC2\DC2\n\
\\EOThash\CAN\ETX \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
height__field_descriptor
= Data.ProtoLens.FieldDescriptor
"height"
(Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"height")) ::
Data.ProtoLens.FieldDescriptor ChainPoint
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, height__field_descriptor),
(Data.ProtoLens.Tag 3, 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'height = 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)
16
-> do y <- (Data.ProtoLens.Encoding.Bytes.<?>)
Data.ProtoLens.Encoding.Bytes.getVarInt "height"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x)
26
-> 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 @"height") _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 @"hash") _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 ChainPoint where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_ChainPoint'_unknownFields x__)
(Control.DeepSeq.deepseq
(_ChainPoint'slot x__)
(Control.DeepSeq.deepseq
(_ChainPoint'height x__)
(Control.DeepSeq.deepseq (_ChainPoint'hash x__) ())))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.param' @:: Lens' GetChainParamRequest [Data.Text.Text]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'param' @:: Lens' GetChainParamRequest (Data.Vector.Vector Data.Text.Text)@ -}
data GetChainParamRequest
= GetChainParamRequest'_constructor {_GetChainParamRequest'param :: !(Data.Vector.Vector Data.Text.Text),
_GetChainParamRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetChainParamRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField GetChainParamRequest "param" [Data.Text.Text] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetChainParamRequest'param
(\ x__ y__ -> x__ {_GetChainParamRequest'param = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetChainParamRequest "vec'param" (Data.Vector.Vector Data.Text.Text) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetChainParamRequest'param
(\ x__ y__ -> x__ {_GetChainParamRequest'param = y__}))
Prelude.id
instance Data.ProtoLens.Message GetChainParamRequest where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetChainParamRequest"
packedMessageDescriptor _
= "\n\
\\DC4GetChainParamRequest\DC2\DC4\n\
\\ENQparam\CAN\SOH \ETX(\tR\ENQparam"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
param__field_descriptor
= Data.ProtoLens.FieldDescriptor
"param"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"param")) ::
Data.ProtoLens.FieldDescriptor GetChainParamRequest
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, param__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetChainParamRequest'_unknownFields
(\ x__ y__ -> x__ {_GetChainParamRequest'_unknownFields = y__})
defMessage
= GetChainParamRequest'_constructor
{_GetChainParamRequest'param = Data.Vector.Generic.empty,
_GetChainParamRequest'_unknownFields = []}
parseMessage
= let
loop ::
GetChainParamRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser GetChainParamRequest
loop x mutable'param
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'param <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'param)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
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'param") frozen'param x))
else
do tag <- Data.ProtoLens.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))
"param"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'param 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'param
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'param <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'param)
"GetChainParamRequest"
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.Text.Encoding.encodeUtf8 _v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'param") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData GetChainParamRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetChainParamRequest'_unknownFields x__)
(Control.DeepSeq.deepseq (_GetChainParamRequest'param x__) ())
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.param' @:: Lens' GetChainParamResponse [ChainParam]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'param' @:: Lens' GetChainParamResponse (Data.Vector.Vector ChainParam)@ -}
data GetChainParamResponse
= GetChainParamResponse'_constructor {_GetChainParamResponse'param :: !(Data.Vector.Vector ChainParam),
_GetChainParamResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetChainParamResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField GetChainParamResponse "param" [ChainParam] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetChainParamResponse'param
(\ x__ y__ -> x__ {_GetChainParamResponse'param = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetChainParamResponse "vec'param" (Data.Vector.Vector ChainParam) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetChainParamResponse'param
(\ x__ y__ -> x__ {_GetChainParamResponse'param = y__}))
Prelude.id
instance Data.ProtoLens.Message GetChainParamResponse where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetChainParamResponse"
packedMessageDescriptor _
= "\n\
\\NAKGetChainParamResponse\DC27\n\
\\ENQparam\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.build.ChainParamR\ENQparam"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
param__field_descriptor
= Data.ProtoLens.FieldDescriptor
"param"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChainParam)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"param")) ::
Data.ProtoLens.FieldDescriptor GetChainParamResponse
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, param__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetChainParamResponse'_unknownFields
(\ x__ y__ -> x__ {_GetChainParamResponse'_unknownFields = y__})
defMessage
= GetChainParamResponse'_constructor
{_GetChainParamResponse'param = Data.Vector.Generic.empty,
_GetChainParamResponse'_unknownFields = []}
parseMessage
= let
loop ::
GetChainParamResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ChainParam
-> Data.ProtoLens.Encoding.Bytes.Parser GetChainParamResponse
loop x mutable'param
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'param <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'param)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
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'param") frozen'param x))
else
do tag <- Data.ProtoLens.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)
"param"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'param 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'param
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'param <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'param)
"GetChainParamResponse"
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'param") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData GetChainParamResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetChainParamResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_GetChainParamResponse'param x__) ())
{- | Fields :
-}
data GetChainTipRequest
= GetChainTipRequest'_constructor {_GetChainTipRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetChainTipRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Message GetChainTipRequest where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetChainTipRequest"
packedMessageDescriptor _
= "\n\
\\DC2GetChainTipRequest"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag = let in Data.Map.fromList []
unknownFields
= Lens.Family2.Unchecked.lens
_GetChainTipRequest'_unknownFields
(\ x__ y__ -> x__ {_GetChainTipRequest'_unknownFields = y__})
defMessage
= GetChainTipRequest'_constructor
{_GetChainTipRequest'_unknownFields = []}
parseMessage
= let
loop ::
GetChainTipRequest
-> Data.ProtoLens.Encoding.Bytes.Parser GetChainTipRequest
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) "GetChainTipRequest"
buildMessage
= \ _x
-> Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)
instance Control.DeepSeq.NFData GetChainTipRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetChainTipRequest'_unknownFields x__) ()
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.tip' @:: Lens' GetChainTipResponse ChainPoint@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.maybe'tip' @:: Lens' GetChainTipResponse (Prelude.Maybe ChainPoint)@ -}
data GetChainTipResponse
= GetChainTipResponse'_constructor {_GetChainTipResponse'tip :: !(Prelude.Maybe ChainPoint),
_GetChainTipResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetChainTipResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField GetChainTipResponse "tip" ChainPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetChainTipResponse'tip
(\ x__ y__ -> x__ {_GetChainTipResponse'tip = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField GetChainTipResponse "maybe'tip" (Prelude.Maybe ChainPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetChainTipResponse'tip
(\ x__ y__ -> x__ {_GetChainTipResponse'tip = y__}))
Prelude.id
instance Data.ProtoLens.Message GetChainTipResponse where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetChainTipResponse"
packedMessageDescriptor _
= "\n\
\\DC3GetChainTipResponse\DC23\n\
\\ETXtip\CAN\SOH \SOH(\v2!.utxorpc.v1alpha.build.ChainPointR\ETXtip"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
tip__field_descriptor
= Data.ProtoLens.FieldDescriptor
"tip"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChainPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'tip")) ::
Data.ProtoLens.FieldDescriptor GetChainTipResponse
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, tip__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetChainTipResponse'_unknownFields
(\ x__ y__ -> x__ {_GetChainTipResponse'_unknownFields = y__})
defMessage
= GetChainTipResponse'_constructor
{_GetChainTipResponse'tip = Prelude.Nothing,
_GetChainTipResponse'_unknownFields = []}
parseMessage
= let
loop ::
GetChainTipResponse
-> Data.ProtoLens.Encoding.Bytes.Parser GetChainTipResponse
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)
"tip"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"tip") 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) "GetChainTipResponse"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(case
Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'tip") _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 GetChainTipResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetChainTipResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_GetChainTipResponse'tip x__) ())
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.address' @:: Lens' GetUtxoByAddressRequest [Data.ByteString.ByteString]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'address' @:: Lens' GetUtxoByAddressRequest (Data.Vector.Vector Data.ByteString.ByteString)@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.acquirePoint' @:: Lens' GetUtxoByAddressRequest ChainPoint@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.maybe'acquirePoint' @:: Lens' GetUtxoByAddressRequest (Prelude.Maybe ChainPoint)@ -}
data GetUtxoByAddressRequest
= GetUtxoByAddressRequest'_constructor {_GetUtxoByAddressRequest'address :: !(Data.Vector.Vector Data.ByteString.ByteString),
_GetUtxoByAddressRequest'acquirePoint :: !(Prelude.Maybe ChainPoint),
_GetUtxoByAddressRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetUtxoByAddressRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField GetUtxoByAddressRequest "address" [Data.ByteString.ByteString] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByAddressRequest'address
(\ x__ y__ -> x__ {_GetUtxoByAddressRequest'address = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetUtxoByAddressRequest "vec'address" (Data.Vector.Vector Data.ByteString.ByteString) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByAddressRequest'address
(\ x__ y__ -> x__ {_GetUtxoByAddressRequest'address = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField GetUtxoByAddressRequest "acquirePoint" ChainPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByAddressRequest'acquirePoint
(\ x__ y__ -> x__ {_GetUtxoByAddressRequest'acquirePoint = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField GetUtxoByAddressRequest "maybe'acquirePoint" (Prelude.Maybe ChainPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByAddressRequest'acquirePoint
(\ x__ y__ -> x__ {_GetUtxoByAddressRequest'acquirePoint = y__}))
Prelude.id
instance Data.ProtoLens.Message GetUtxoByAddressRequest where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetUtxoByAddressRequest"
packedMessageDescriptor _
= "\n\
\\ETBGetUtxoByAddressRequest\DC2\CAN\n\
\\aaddress\CAN\SOH \ETX(\fR\aaddress\DC2F\n\
\\racquire_point\CAN\STX \SOH(\v2!.utxorpc.v1alpha.build.ChainPointR\facquirePoint"
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.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"address")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByAddressRequest
acquirePoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"acquire_point"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChainPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'acquirePoint")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByAddressRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, address__field_descriptor),
(Data.ProtoLens.Tag 2, acquirePoint__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetUtxoByAddressRequest'_unknownFields
(\ x__ y__ -> x__ {_GetUtxoByAddressRequest'_unknownFields = y__})
defMessage
= GetUtxoByAddressRequest'_constructor
{_GetUtxoByAddressRequest'address = Data.Vector.Generic.empty,
_GetUtxoByAddressRequest'acquirePoint = Prelude.Nothing,
_GetUtxoByAddressRequest'_unknownFields = []}
parseMessage
= let
loop ::
GetUtxoByAddressRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
-> Data.ProtoLens.Encoding.Bytes.Parser GetUtxoByAddressRequest
loop x mutable'address
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'address <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'address)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
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'address") frozen'address x))
else
do tag <- Data.ProtoLens.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"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'address 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)
"acquire_point"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"acquirePoint") y x)
mutable'address
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'address
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'address <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'address)
"GetUtxoByAddressRequest"
buildMessage
= \ _x
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
_v))
(Lens.Family2.view (Data.ProtoLens.Field.field @"vec'address") _x))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'acquirePoint") _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 GetUtxoByAddressRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetUtxoByAddressRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_GetUtxoByAddressRequest'address x__)
(Control.DeepSeq.deepseq
(_GetUtxoByAddressRequest'acquirePoint x__) ()))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.items' @:: Lens' GetUtxoByAddressResponse [AnyChainUtxo]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'items' @:: Lens' GetUtxoByAddressResponse (Data.Vector.Vector AnyChainUtxo)@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.nextToken' @:: Lens' GetUtxoByAddressResponse Data.Text.Text@ -}
data GetUtxoByAddressResponse
= GetUtxoByAddressResponse'_constructor {_GetUtxoByAddressResponse'items :: !(Data.Vector.Vector AnyChainUtxo),
_GetUtxoByAddressResponse'nextToken :: !Data.Text.Text,
_GetUtxoByAddressResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetUtxoByAddressResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField GetUtxoByAddressResponse "items" [AnyChainUtxo] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByAddressResponse'items
(\ x__ y__ -> x__ {_GetUtxoByAddressResponse'items = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetUtxoByAddressResponse "vec'items" (Data.Vector.Vector AnyChainUtxo) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByAddressResponse'items
(\ x__ y__ -> x__ {_GetUtxoByAddressResponse'items = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField GetUtxoByAddressResponse "nextToken" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByAddressResponse'nextToken
(\ x__ y__ -> x__ {_GetUtxoByAddressResponse'nextToken = y__}))
Prelude.id
instance Data.ProtoLens.Message GetUtxoByAddressResponse where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetUtxoByAddressResponse"
packedMessageDescriptor _
= "\n\
\\CANGetUtxoByAddressResponse\DC29\n\
\\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.build.AnyChainUtxoR\ENQitems\DC2\GS\n\
\\n\
\next_token\CAN\STX \SOH(\tR\tnextToken"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
items__field_descriptor
= Data.ProtoLens.FieldDescriptor
"items"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainUtxo)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByAddressResponse
nextToken__field_descriptor
= Data.ProtoLens.FieldDescriptor
"next_token"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"nextToken")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByAddressResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, items__field_descriptor),
(Data.ProtoLens.Tag 2, nextToken__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetUtxoByAddressResponse'_unknownFields
(\ x__ y__ -> x__ {_GetUtxoByAddressResponse'_unknownFields = y__})
defMessage
= GetUtxoByAddressResponse'_constructor
{_GetUtxoByAddressResponse'items = Data.Vector.Generic.empty,
_GetUtxoByAddressResponse'nextToken = Data.ProtoLens.fieldDefault,
_GetUtxoByAddressResponse'_unknownFields = []}
parseMessage
= let
loop ::
GetUtxoByAddressResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainUtxo
-> Data.ProtoLens.Encoding.Bytes.Parser GetUtxoByAddressResponse
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.getText
(Prelude.fromIntegral len))
"next_token"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"nextToken") y x)
mutable'items
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'items
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'items)
"GetUtxoByAddressResponse"
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.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"nextToken") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData GetUtxoByAddressResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetUtxoByAddressResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_GetUtxoByAddressResponse'items x__)
(Control.DeepSeq.deepseq
(_GetUtxoByAddressResponse'nextToken x__) ()))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.ref' @:: Lens' GetUtxoByRefRequest [UtxoRef]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'ref' @:: Lens' GetUtxoByRefRequest (Data.Vector.Vector UtxoRef)@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.acquirePoint' @:: Lens' GetUtxoByRefRequest ChainPoint@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.maybe'acquirePoint' @:: Lens' GetUtxoByRefRequest (Prelude.Maybe ChainPoint)@ -}
data GetUtxoByRefRequest
= GetUtxoByRefRequest'_constructor {_GetUtxoByRefRequest'ref :: !(Data.Vector.Vector UtxoRef),
_GetUtxoByRefRequest'acquirePoint :: !(Prelude.Maybe ChainPoint),
_GetUtxoByRefRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetUtxoByRefRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField GetUtxoByRefRequest "ref" [UtxoRef] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByRefRequest'ref
(\ x__ y__ -> x__ {_GetUtxoByRefRequest'ref = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetUtxoByRefRequest "vec'ref" (Data.Vector.Vector UtxoRef) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByRefRequest'ref
(\ x__ y__ -> x__ {_GetUtxoByRefRequest'ref = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField GetUtxoByRefRequest "acquirePoint" ChainPoint where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByRefRequest'acquirePoint
(\ x__ y__ -> x__ {_GetUtxoByRefRequest'acquirePoint = y__}))
(Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField GetUtxoByRefRequest "maybe'acquirePoint" (Prelude.Maybe ChainPoint) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByRefRequest'acquirePoint
(\ x__ y__ -> x__ {_GetUtxoByRefRequest'acquirePoint = y__}))
Prelude.id
instance Data.ProtoLens.Message GetUtxoByRefRequest where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetUtxoByRefRequest"
packedMessageDescriptor _
= "\n\
\\DC3GetUtxoByRefRequest\DC20\n\
\\ETXref\CAN\SOH \ETX(\v2\RS.utxorpc.v1alpha.build.UtxoRefR\ETXref\DC2F\n\
\\racquire_point\CAN\STX \SOH(\v2!.utxorpc.v1alpha.build.ChainPointR\facquirePoint"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
ref__field_descriptor
= Data.ProtoLens.FieldDescriptor
"ref"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UtxoRef)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"ref")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByRefRequest
acquirePoint__field_descriptor
= Data.ProtoLens.FieldDescriptor
"acquire_point"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChainPoint)
(Data.ProtoLens.OptionalField
(Data.ProtoLens.Field.field @"maybe'acquirePoint")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByRefRequest
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, ref__field_descriptor),
(Data.ProtoLens.Tag 2, acquirePoint__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetUtxoByRefRequest'_unknownFields
(\ x__ y__ -> x__ {_GetUtxoByRefRequest'_unknownFields = y__})
defMessage
= GetUtxoByRefRequest'_constructor
{_GetUtxoByRefRequest'ref = Data.Vector.Generic.empty,
_GetUtxoByRefRequest'acquirePoint = Prelude.Nothing,
_GetUtxoByRefRequest'_unknownFields = []}
parseMessage
= let
loop ::
GetUtxoByRefRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoRef
-> Data.ProtoLens.Encoding.Bytes.Parser GetUtxoByRefRequest
loop x mutable'ref
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'ref <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'ref)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'ref") frozen'ref x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
10
-> do !y <- (Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
"ref"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'ref 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)
"acquire_point"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"acquirePoint") y x)
mutable'ref
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'ref
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'ref <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'ref)
"GetUtxoByRefRequest"
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'ref") _x))
((Data.Monoid.<>)
(case
Lens.Family2.view
(Data.ProtoLens.Field.field @"maybe'acquirePoint") _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 GetUtxoByRefRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetUtxoByRefRequest'_unknownFields x__)
(Control.DeepSeq.deepseq
(_GetUtxoByRefRequest'ref x__)
(Control.DeepSeq.deepseq
(_GetUtxoByRefRequest'acquirePoint x__) ()))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.items' @:: Lens' GetUtxoByRefResponse [AnyChainUtxo]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'items' @:: Lens' GetUtxoByRefResponse (Data.Vector.Vector AnyChainUtxo)@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.nextToken' @:: Lens' GetUtxoByRefResponse Data.Text.Text@ -}
data GetUtxoByRefResponse
= GetUtxoByRefResponse'_constructor {_GetUtxoByRefResponse'items :: !(Data.Vector.Vector AnyChainUtxo),
_GetUtxoByRefResponse'nextToken :: !Data.Text.Text,
_GetUtxoByRefResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show GetUtxoByRefResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField GetUtxoByRefResponse "items" [AnyChainUtxo] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByRefResponse'items
(\ x__ y__ -> x__ {_GetUtxoByRefResponse'items = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField GetUtxoByRefResponse "vec'items" (Data.Vector.Vector AnyChainUtxo) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByRefResponse'items
(\ x__ y__ -> x__ {_GetUtxoByRefResponse'items = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField GetUtxoByRefResponse "nextToken" Data.Text.Text where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_GetUtxoByRefResponse'nextToken
(\ x__ y__ -> x__ {_GetUtxoByRefResponse'nextToken = y__}))
Prelude.id
instance Data.ProtoLens.Message GetUtxoByRefResponse where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.GetUtxoByRefResponse"
packedMessageDescriptor _
= "\n\
\\DC4GetUtxoByRefResponse\DC29\n\
\\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.build.AnyChainUtxoR\ENQitems\DC2\GS\n\
\\n\
\next_token\CAN\STX \SOH(\tR\tnextToken"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
items__field_descriptor
= Data.ProtoLens.FieldDescriptor
"items"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainUtxo)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"items")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByRefResponse
nextToken__field_descriptor
= Data.ProtoLens.FieldDescriptor
"next_token"
(Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField
Data.ProtoLens.Optional
(Data.ProtoLens.Field.field @"nextToken")) ::
Data.ProtoLens.FieldDescriptor GetUtxoByRefResponse
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, items__field_descriptor),
(Data.ProtoLens.Tag 2, nextToken__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_GetUtxoByRefResponse'_unknownFields
(\ x__ y__ -> x__ {_GetUtxoByRefResponse'_unknownFields = y__})
defMessage
= GetUtxoByRefResponse'_constructor
{_GetUtxoByRefResponse'items = Data.Vector.Generic.empty,
_GetUtxoByRefResponse'nextToken = Data.ProtoLens.fieldDefault,
_GetUtxoByRefResponse'_unknownFields = []}
parseMessage
= let
loop ::
GetUtxoByRefResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainUtxo
-> Data.ProtoLens.Encoding.Bytes.Parser GetUtxoByRefResponse
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.getText
(Prelude.fromIntegral len))
"next_token"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"nextToken") y x)
mutable'items
wire
-> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !t -> (:) y t) x)
mutable'items
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'items <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'items)
"GetUtxoByRefResponse"
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.<>)
(let
_v = Lens.Family2.view (Data.ProtoLens.Field.field @"nextToken") _x
in
if (Prelude.==) _v Data.ProtoLens.fieldDefault then
Data.Monoid.mempty
else
(Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((Prelude..)
(\ bs
-> (Data.Monoid.<>)
(Data.ProtoLens.Encoding.Bytes.putVarInt
(Prelude.fromIntegral (Data.ByteString.length bs)))
(Data.ProtoLens.Encoding.Bytes.putBytes bs))
Data.Text.Encoding.encodeUtf8 _v))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x)))
instance Control.DeepSeq.NFData GetUtxoByRefResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_GetUtxoByRefResponse'_unknownFields x__)
(Control.DeepSeq.deepseq
(_GetUtxoByRefResponse'items x__)
(Control.DeepSeq.deepseq (_GetUtxoByRefResponse'nextToken x__) ()))
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.refs' @:: Lens' HoldUtxoRequest [UtxoRef]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'refs' @:: Lens' HoldUtxoRequest (Data.Vector.Vector UtxoRef)@ -}
data HoldUtxoRequest
= HoldUtxoRequest'_constructor {_HoldUtxoRequest'refs :: !(Data.Vector.Vector UtxoRef),
_HoldUtxoRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show HoldUtxoRequest where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField HoldUtxoRequest "refs" [UtxoRef] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HoldUtxoRequest'refs
(\ x__ y__ -> x__ {_HoldUtxoRequest'refs = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField HoldUtxoRequest "vec'refs" (Data.Vector.Vector UtxoRef) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HoldUtxoRequest'refs
(\ x__ y__ -> x__ {_HoldUtxoRequest'refs = y__}))
Prelude.id
instance Data.ProtoLens.Message HoldUtxoRequest where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.HoldUtxoRequest"
packedMessageDescriptor _
= "\n\
\\SIHoldUtxoRequest\DC22\n\
\\EOTrefs\CAN\SOH \ETX(\v2\RS.utxorpc.v1alpha.build.UtxoRefR\EOTrefs"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
refs__field_descriptor
= Data.ProtoLens.FieldDescriptor
"refs"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UtxoRef)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"refs")) ::
Data.ProtoLens.FieldDescriptor HoldUtxoRequest
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, refs__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_HoldUtxoRequest'_unknownFields
(\ x__ y__ -> x__ {_HoldUtxoRequest'_unknownFields = y__})
defMessage
= HoldUtxoRequest'_constructor
{_HoldUtxoRequest'refs = Data.Vector.Generic.empty,
_HoldUtxoRequest'_unknownFields = []}
parseMessage
= let
loop ::
HoldUtxoRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoRef
-> Data.ProtoLens.Encoding.Bytes.Parser HoldUtxoRequest
loop x mutable'refs
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'refs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'refs)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
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'refs") frozen'refs x))
else
do tag <- Data.ProtoLens.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)
"refs"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'refs 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'refs
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'refs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'refs)
"HoldUtxoRequest"
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'refs") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData HoldUtxoRequest where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_HoldUtxoRequest'_unknownFields x__)
(Control.DeepSeq.deepseq (_HoldUtxoRequest'refs x__) ())
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.lost' @:: Lens' HoldUtxoResponse [UtxoRef]@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.vec'lost' @:: Lens' HoldUtxoResponse (Data.Vector.Vector UtxoRef)@ -}
data HoldUtxoResponse
= HoldUtxoResponse'_constructor {_HoldUtxoResponse'lost :: !(Data.Vector.Vector UtxoRef),
_HoldUtxoResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show HoldUtxoResponse where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField HoldUtxoResponse "lost" [UtxoRef] where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HoldUtxoResponse'lost
(\ x__ y__ -> x__ {_HoldUtxoResponse'lost = y__}))
(Lens.Family2.Unchecked.lens
Data.Vector.Generic.toList
(\ _ y__ -> Data.Vector.Generic.fromList y__))
instance Data.ProtoLens.Field.HasField HoldUtxoResponse "vec'lost" (Data.Vector.Vector UtxoRef) where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_HoldUtxoResponse'lost
(\ x__ y__ -> x__ {_HoldUtxoResponse'lost = y__}))
Prelude.id
instance Data.ProtoLens.Message HoldUtxoResponse where
messageName _
= Data.Text.pack "utxorpc.v1alpha.build.HoldUtxoResponse"
packedMessageDescriptor _
= "\n\
\\DLEHoldUtxoResponse\DC22\n\
\\EOTlost\CAN\SOH \ETX(\v2\RS.utxorpc.v1alpha.build.UtxoRefR\EOTlost"
packedFileDescriptor _ = packedFileDescriptor
fieldsByTag
= let
lost__field_descriptor
= Data.ProtoLens.FieldDescriptor
"lost"
(Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UtxoRef)
(Data.ProtoLens.RepeatedField
Data.ProtoLens.Unpacked (Data.ProtoLens.Field.field @"lost")) ::
Data.ProtoLens.FieldDescriptor HoldUtxoResponse
in
Data.Map.fromList [(Data.ProtoLens.Tag 1, lost__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_HoldUtxoResponse'_unknownFields
(\ x__ y__ -> x__ {_HoldUtxoResponse'_unknownFields = y__})
defMessage
= HoldUtxoResponse'_constructor
{_HoldUtxoResponse'lost = Data.Vector.Generic.empty,
_HoldUtxoResponse'_unknownFields = []}
parseMessage
= let
loop ::
HoldUtxoResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoRef
-> Data.ProtoLens.Encoding.Bytes.Parser HoldUtxoResponse
loop x mutable'lost
= do end <- Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'lost <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'lost)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
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'lost") frozen'lost x))
else
do tag <- Data.ProtoLens.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)
"lost"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'lost 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'lost
in
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'lost <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'lost)
"HoldUtxoResponse"
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'lost") _x))
(Data.ProtoLens.Encoding.Wire.buildFieldSet
(Lens.Family2.view Data.ProtoLens.unknownFields _x))
instance Control.DeepSeq.NFData HoldUtxoResponse where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_HoldUtxoResponse'_unknownFields x__)
(Control.DeepSeq.deepseq (_HoldUtxoResponse'lost x__) ())
{- | Fields :
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.hash' @:: Lens' UtxoRef Data.ByteString.ByteString@
* 'Proto.Utxorpc.V1alpha.Build.Build_Fields.index' @:: Lens' UtxoRef Data.Word.Word32@ -}
data UtxoRef
= UtxoRef'_constructor {_UtxoRef'hash :: !Data.ByteString.ByteString,
_UtxoRef'index :: !Data.Word.Word32,
_UtxoRef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Prelude.Eq, Prelude.Ord)
instance Prelude.Show UtxoRef where
showsPrec _ __x __s
= Prelude.showChar
'{'
(Prelude.showString
(Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s))
instance Data.ProtoLens.Field.HasField UtxoRef "hash" Data.ByteString.ByteString where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_UtxoRef'hash (\ x__ y__ -> x__ {_UtxoRef'hash = y__}))
Prelude.id
instance Data.ProtoLens.Field.HasField UtxoRef "index" Data.Word.Word32 where
fieldOf _
= (Prelude..)
(Lens.Family2.Unchecked.lens
_UtxoRef'index (\ x__ y__ -> x__ {_UtxoRef'index = y__}))
Prelude.id
instance Data.ProtoLens.Message UtxoRef where
messageName _ = Data.Text.pack "utxorpc.v1alpha.build.UtxoRef"
packedMessageDescriptor _
= "\n\
\\aUtxoRef\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 UtxoRef
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 UtxoRef
in
Data.Map.fromList
[(Data.ProtoLens.Tag 1, hash__field_descriptor),
(Data.ProtoLens.Tag 2, index__field_descriptor)]
unknownFields
= Lens.Family2.Unchecked.lens
_UtxoRef'_unknownFields
(\ x__ y__ -> x__ {_UtxoRef'_unknownFields = y__})
defMessage
= UtxoRef'_constructor
{_UtxoRef'hash = Data.ProtoLens.fieldDefault,
_UtxoRef'index = Data.ProtoLens.fieldDefault,
_UtxoRef'_unknownFields = []}
parseMessage
= let
loop :: UtxoRef -> Data.ProtoLens.Encoding.Bytes.Parser UtxoRef
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) "UtxoRef"
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 UtxoRef where
rnf
= \ x__
-> Control.DeepSeq.deepseq
(_UtxoRef'_unknownFields x__)
(Control.DeepSeq.deepseq
(_UtxoRef'hash x__)
(Control.DeepSeq.deepseq (_UtxoRef'index x__) ()))
data LedgerStateService = LedgerStateService {}
instance Data.ProtoLens.Service.Types.Service LedgerStateService where
type ServiceName LedgerStateService = "LedgerStateService"
type ServicePackage LedgerStateService = "utxorpc.v1alpha.build"
type ServiceMethods LedgerStateService = '["getChainParam",
"getChainTip",
"getUtxoByAddress",
"getUtxoByRef",
"holdUtxo"]
packedServiceDescriptor _
= "\n\
\\DC2LedgerStateService\DC2d\n\
\\vGetChainTip\DC2).utxorpc.v1alpha.build.GetChainTipRequest\SUB*.utxorpc.v1alpha.build.GetChainTipResponse\DC2j\n\
\\rGetChainParam\DC2+.utxorpc.v1alpha.build.GetChainParamRequest\SUB,.utxorpc.v1alpha.build.GetChainParamResponse\DC2s\n\
\\DLEGetUtxoByAddress\DC2..utxorpc.v1alpha.build.GetUtxoByAddressRequest\SUB/.utxorpc.v1alpha.build.GetUtxoByAddressResponse\DC2g\n\
\\fGetUtxoByRef\DC2*.utxorpc.v1alpha.build.GetUtxoByRefRequest\SUB+.utxorpc.v1alpha.build.GetUtxoByRefResponse\DC2]\n\
\\bHoldUtxo\DC2&.utxorpc.v1alpha.build.HoldUtxoRequest\SUB'.utxorpc.v1alpha.build.HoldUtxoResponse0\SOH"
instance Data.ProtoLens.Service.Types.HasMethodImpl LedgerStateService "getChainTip" where
type MethodName LedgerStateService "getChainTip" = "GetChainTip"
type MethodInput LedgerStateService "getChainTip" = GetChainTipRequest
type MethodOutput LedgerStateService "getChainTip" = GetChainTipResponse
type MethodStreamingType LedgerStateService "getChainTip" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl LedgerStateService "getChainParam" where
type MethodName LedgerStateService "getChainParam" = "GetChainParam"
type MethodInput LedgerStateService "getChainParam" = GetChainParamRequest
type MethodOutput LedgerStateService "getChainParam" = GetChainParamResponse
type MethodStreamingType LedgerStateService "getChainParam" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl LedgerStateService "getUtxoByAddress" where
type MethodName LedgerStateService "getUtxoByAddress" = "GetUtxoByAddress"
type MethodInput LedgerStateService "getUtxoByAddress" = GetUtxoByAddressRequest
type MethodOutput LedgerStateService "getUtxoByAddress" = GetUtxoByAddressResponse
type MethodStreamingType LedgerStateService "getUtxoByAddress" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl LedgerStateService "getUtxoByRef" where
type MethodName LedgerStateService "getUtxoByRef" = "GetUtxoByRef"
type MethodInput LedgerStateService "getUtxoByRef" = GetUtxoByRefRequest
type MethodOutput LedgerStateService "getUtxoByRef" = GetUtxoByRefResponse
type MethodStreamingType LedgerStateService "getUtxoByRef" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl LedgerStateService "holdUtxo" where
type MethodName LedgerStateService "holdUtxo" = "HoldUtxo"
type MethodInput LedgerStateService "holdUtxo" = HoldUtxoRequest
type MethodOutput LedgerStateService "holdUtxo" = HoldUtxoResponse
type MethodStreamingType LedgerStateService "holdUtxo" = 'Data.ProtoLens.Service.Types.ServerStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor
= "\n\
\!utxorpc/v1alpha/build/build.proto\DC2\NAKutxorpc.v1alpha.build\SUB google/protobuf/field_mask.proto\SUB%utxorpc/v1alpha/cardano/cardano.proto\"L\n\
\\n\
\ChainPoint\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\SYN\n\
\\ACKheight\CAN\STX \SOH(\EOTR\ACKheight\DC2\DC2\n\
\\EOThash\CAN\ETX \SOH(\fR\EOThash\"\DC4\n\
\\DC2GetChainTipRequest\"J\n\
\\DC3GetChainTipResponse\DC23\n\
\\ETXtip\CAN\SOH \SOH(\v2!.utxorpc.v1alpha.build.ChainPointR\ETXtip\",\n\
\\DC4GetChainParamRequest\DC2\DC4\n\
\\ENQparam\CAN\SOH \ETX(\tR\ENQparam\"4\n\
\\n\
\ChainParam\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue\"P\n\
\\NAKGetChainParamResponse\DC27\n\
\\ENQparam\CAN\SOH \ETX(\v2!.utxorpc.v1alpha.build.ChainParamR\ENQparam\"{\n\
\\ETBGetUtxoByAddressRequest\DC2\CAN\n\
\\aaddress\CAN\SOH \ETX(\fR\aaddress\DC2F\n\
\\racquire_point\CAN\STX \SOH(\v2!.utxorpc.v1alpha.build.ChainPointR\facquirePoint\"V\n\
\\fAnyChainUtxo\DC2=\n\
\\acardano\CAN\SOH \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\a\n\
\\ENQchain\"t\n\
\\CANGetUtxoByAddressResponse\DC29\n\
\\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.build.AnyChainUtxoR\ENQitems\DC2\GS\n\
\\n\
\next_token\CAN\STX \SOH(\tR\tnextToken\"3\n\
\\aUtxoRef\DC2\DC2\n\
\\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\
\\ENQindex\CAN\STX \SOH(\rR\ENQindex\"\143\SOH\n\
\\DC3GetUtxoByRefRequest\DC20\n\
\\ETXref\CAN\SOH \ETX(\v2\RS.utxorpc.v1alpha.build.UtxoRefR\ETXref\DC2F\n\
\\racquire_point\CAN\STX \SOH(\v2!.utxorpc.v1alpha.build.ChainPointR\facquirePoint\"p\n\
\\DC4GetUtxoByRefResponse\DC29\n\
\\ENQitems\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.build.AnyChainUtxoR\ENQitems\DC2\GS\n\
\\n\
\next_token\CAN\STX \SOH(\tR\tnextToken\"E\n\
\\SIHoldUtxoRequest\DC22\n\
\\EOTrefs\CAN\SOH \ETX(\v2\RS.utxorpc.v1alpha.build.UtxoRefR\EOTrefs\"F\n\
\\DLEHoldUtxoResponse\DC22\n\
\\EOTlost\CAN\SOH \ETX(\v2\RS.utxorpc.v1alpha.build.UtxoRefR\EOTlost2\163\EOT\n\
\\DC2LedgerStateService\DC2d\n\
\\vGetChainTip\DC2).utxorpc.v1alpha.build.GetChainTipRequest\SUB*.utxorpc.v1alpha.build.GetChainTipResponse\DC2j\n\
\\rGetChainParam\DC2+.utxorpc.v1alpha.build.GetChainParamRequest\SUB,.utxorpc.v1alpha.build.GetChainParamResponse\DC2s\n\
\\DLEGetUtxoByAddress\DC2..utxorpc.v1alpha.build.GetUtxoByAddressRequest\SUB/.utxorpc.v1alpha.build.GetUtxoByAddressResponse\DC2g\n\
\\fGetUtxoByRef\DC2*.utxorpc.v1alpha.build.GetUtxoByRefRequest\SUB+.utxorpc.v1alpha.build.GetUtxoByRefResponse\DC2]\n\
\\bHoldUtxo\DC2&.utxorpc.v1alpha.build.HoldUtxoRequest\SUB'.utxorpc.v1alpha.build.HoldUtxoResponse0\SOHB\211\SOH\n\
\\EMcom.utxorpc.v1alpha.buildB\n\
\BuildProtoP\SOHZ4github.com/utxorpc/go-sdk/spec/utxorpc/v1alpha/build\162\STX\ETXUVB\170\STX\NAKUtxorpc.V1alpha.Build\202\STX\NAKUtxorpc\\V1alpha\\Build\226\STX!Utxorpc\\V1alpha\\Build\\GPBMetadata\234\STX\ETBUtxorpc::V1alpha::BuildJ\202\ESC\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\SO\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\
\\FS\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\DC4\"\SI Block height.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\t\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\DC2\DC3\n\
\\SUB\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\r\STX\DC1\"\r Block hash.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\r\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\r\b\f\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\r\SI\DLE\n\
\2\n\
\\STX\EOT\SOH\DC2\ETX\DC1\NUL\GS\SUB' Request to get the current chain tip.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\DC1\b\SUB\n\
\8\n\
\\STX\EOT\STX\DC2\EOT\DC4\NUL\SYN\SOH\SUB, Response containing the current chain tip.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\DC4\b\ESC\n\
\!\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\NAK\STX\NAK\"\DC4 Current chain tip.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\NAK\STX\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\NAK\r\DLE\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\NAK\DC3\DC4\n\
\7\n\
\\STX\EOT\ETX\DC2\EOT\EM\NUL\ESC\SOH\SUB+ Request to get specific chain parameters.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\EM\b\FS\n\
\,\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\SUB\STX\FS\"\US List of requested parameters.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX\SUB\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\SUB\v\DC1\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\SUB\DC2\ETB\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\SUB\SUB\ESC\n\
\@\n\
\\STX\EOT\EOT\DC2\EOT\RS\NUL!\SOH\SUB4 Represents a key-value pair for a chain parameter.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX\RS\b\DC2\n\
\\GS\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX\US\STX\DC1\"\DLE Parameter key.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX\US\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX\US\t\f\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX\US\SI\DLE\n\
\\US\n\
\\EOT\EOT\EOT\STX\SOH\DC2\ETX \STX\DC2\"\DC2 Parameter value.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETX \STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX \b\r\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX \DLE\DC1\n\
\A\n\
\\STX\EOT\ENQ\DC2\EOT$\NUL&\SOH\SUB5 Response containing the requested chain parameters.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETX$\b\GS\n\
\2\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETX%\STX \"% List of requested chain parameters.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\EOT\DC2\ETX%\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX%\v\NAK\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX%\SYN\ESC\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX%\RS\US\n\
\A\n\
\\STX\EOT\ACK\DC2\EOT)\NUL,\SOH\SUB5 Request to get UTxOs by their associated addresses.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETX)\b\US\n\
\*\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETX*\STX\GS\"\GS List of addresses to query.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETX*\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX*\v\DLE\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX*\DC1\CAN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX*\ESC\FS\n\
\0\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETX+\STX\US\"# Point in the chain to query from.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX+\STX\f\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX+\r\SUB\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX+\GS\RS\n\
\J\n\
\\STX\EOT\a\DC2\EOT/\NUL3\SOH\SUB> An evenlope that holds an UTxO from any of compatible chains\n\
\\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETX/\b\DC4\n\
\\f\n\
\\EOT\EOT\a\b\NUL\DC2\EOT0\STX2\ETX\n\
\\f\n\
\\ENQ\EOT\a\b\NUL\SOH\DC2\ETX0\b\r\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETX1\EOT1\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX1\EOT$\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX1%,\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX1/0\n\
\T\n\
\\STX\EOT\b\DC2\EOT6\NUL9\SOH\SUBH Response containing the UTxOs associated with the requested addresses.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETX6\b \n\
\\GS\n\
\\EOT\EOT\b\STX\NUL\DC2\ETX7\STX\"\"\DLE List of UTxOs.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\EOT\DC2\ETX7\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX7\v\ETB\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX7\CAN\GS\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX7 !\n\
\$\n\
\\EOT\EOT\b\STX\SOH\DC2\ETX8\STX\CAN\"\ETB Token for pagination.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETX8\STX\b\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\ETX8\t\DC3\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\ETX8\SYN\ETB\n\
\/\n\
\\STX\EOT\t\DC2\EOT<\NUL?\SOH\SUB# Represents a reference to a UTxO.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\t\SOH\DC2\ETX<\b\SI\n\
\ \n\
\\EOT\EOT\t\STX\NUL\DC2\ETX=\STX\DC1\"\DC3 Transaction hash.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETX=\STX\a\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\ETX=\b\f\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\ETX=\SI\DLE\n\
\\FS\n\
\\EOT\EOT\t\STX\SOH\DC2\ETX>\STX\DC3\"\SI Output index.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETX>\STX\b\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\ETX>\t\SO\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\ETX>\DC1\DC2\n\
\7\n\
\\STX\EOT\n\
\\DC2\EOTB\NULE\SOH\SUB+ Request to get UTxOs by their references.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\n\
\\SOH\DC2\ETXB\b\ESC\n\
\0\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\ETXC\STX\ESC\"# List of UTxO references to query.\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\EOT\DC2\ETXC\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ACK\DC2\ETXC\v\DC2\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\ETXC\DC3\SYN\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\ETXC\EM\SUB\n\
\0\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\ETXD\STX\US\"# Point in the chain to query from.\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\ACK\DC2\ETXD\STX\f\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\ETXD\r\SUB\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\ETXD\GS\RS\n\
\U\n\
\\STX\EOT\v\DC2\EOTH\NULK\SOH\SUBI Response containing the UTxOs associated with the requested references.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\v\SOH\DC2\ETXH\b\FS\n\
\\GS\n\
\\EOT\EOT\v\STX\NUL\DC2\ETXI\STX\"\"\DLE List of UTxOs.\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\EOT\DC2\ETXI\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXI\v\ETB\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXI\CAN\GS\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXI !\n\
\$\n\
\\EOT\EOT\v\STX\SOH\DC2\ETXJ\STX\CAN\"\ETB Token for pagination.\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ENQ\DC2\ETXJ\STX\b\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXJ\t\DC3\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXJ\SYN\ETB\n\
\$\n\
\\STX\EOT\f\DC2\EOTN\NULP\SOH\SUB\CAN Request to hold UTxOs.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\f\SOH\DC2\ETXN\b\ETB\n\
\/\n\
\\EOT\EOT\f\STX\NUL\DC2\ETXO\STX\FS\"\" List of UTxO references to hold.\n\
\\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXO\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXO\v\DC2\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXO\DC3\ETB\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXO\SUB\ESC\n\
\?\n\
\\STX\EOT\r\DC2\EOTS\NULU\SOH\SUB3 Response containing information about lost UTxOs.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\r\SOH\DC2\ETXS\b\CAN\n\
\,\n\
\\EOT\EOT\r\STX\NUL\DC2\ETXT\STX\FS\"\US List of lost UTxO references.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\EOT\DC2\ETXT\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ACK\DC2\ETXT\v\DC2\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\ETXT\DC3\ETB\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\ETXT\SUB\ESC\n\
\F\n\
\\STX\ACK\NUL\DC2\EOTX\NUL^\SOH\SUB: Service definition for querying the state of the ledger.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETXX\b\SUB\n\
\)\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETXY\STXD\"\FS Get the current chain tip.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETXY\ACK\DC1\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETXY\DC2$\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETXY/B\n\
\-\n\
\\EOT\ACK\NUL\STX\SOH\DC2\ETXZ\STXJ\" Get specific chain parameters.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETXZ\ACK\DC3\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETXZ\DC4(\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETXZ3H\n\
\7\n\
\\EOT\ACK\NUL\STX\STX\DC2\ETX[\STXS\"* Get UTxOs by their associated addresses.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX[\ACK\SYN\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX[\ETB.\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX[9Q\n\
\-\n\
\\EOT\ACK\NUL\STX\ETX\DC2\ETX\\\STXG\" Get UTxOs by their references.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETX\\\ACK\DC2\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETX\\\DC3&\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETX\\1E\n\
\>\n\
\\EOT\ACK\NUL\STX\EOT\DC2\ETX]\STXB\"1 Hold UTxOs and receive updates about lost UTxOs\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETX]\ACK\SO\n\
\\f\n\
\\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETX]\SI\RS\n\
\\f\n\
\\ENQ\ACK\NUL\STX\EOT\ACK\DC2\ETX])/\n\
\\f\n\
\\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETX]0@b\ACKproto3"