{-# 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, ChainPoint(), ReadParamsRequest(),
ReadParamsResponse()
) 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
data AnyChainParams
= AnyChainParams'_constructor {AnyChainParams -> Maybe AnyChainParams'Params
_AnyChainParams'params :: !(Prelude.Maybe AnyChainParams'Params),
AnyChainParams -> FieldSet
_AnyChainParams'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (AnyChainParams -> AnyChainParams -> Bool
(AnyChainParams -> AnyChainParams -> Bool)
-> (AnyChainParams -> AnyChainParams -> Bool) -> Eq AnyChainParams
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainParams -> AnyChainParams -> Bool
== :: AnyChainParams -> AnyChainParams -> Bool
$c/= :: AnyChainParams -> AnyChainParams -> Bool
/= :: AnyChainParams -> AnyChainParams -> Bool
Prelude.Eq, Eq AnyChainParams
Eq AnyChainParams =>
(AnyChainParams -> AnyChainParams -> Ordering)
-> (AnyChainParams -> AnyChainParams -> Bool)
-> (AnyChainParams -> AnyChainParams -> Bool)
-> (AnyChainParams -> AnyChainParams -> Bool)
-> (AnyChainParams -> AnyChainParams -> Bool)
-> (AnyChainParams -> AnyChainParams -> AnyChainParams)
-> (AnyChainParams -> AnyChainParams -> AnyChainParams)
-> Ord AnyChainParams
AnyChainParams -> AnyChainParams -> Bool
AnyChainParams -> AnyChainParams -> Ordering
AnyChainParams -> AnyChainParams -> AnyChainParams
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: AnyChainParams -> AnyChainParams -> Ordering
compare :: AnyChainParams -> AnyChainParams -> Ordering
$c< :: AnyChainParams -> AnyChainParams -> Bool
< :: AnyChainParams -> AnyChainParams -> Bool
$c<= :: AnyChainParams -> AnyChainParams -> Bool
<= :: AnyChainParams -> AnyChainParams -> Bool
$c> :: AnyChainParams -> AnyChainParams -> Bool
> :: AnyChainParams -> AnyChainParams -> Bool
$c>= :: AnyChainParams -> AnyChainParams -> Bool
>= :: AnyChainParams -> AnyChainParams -> Bool
$cmax :: AnyChainParams -> AnyChainParams -> AnyChainParams
max :: AnyChainParams -> AnyChainParams -> AnyChainParams
$cmin :: AnyChainParams -> AnyChainParams -> AnyChainParams
min :: AnyChainParams -> AnyChainParams -> AnyChainParams
Prelude.Ord)
instance Prelude.Show AnyChainParams where
showsPrec :: Int -> AnyChainParams -> ShowS
showsPrec Int
_ AnyChainParams
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(AnyChainParams -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AnyChainParams
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data AnyChainParams'Params
= AnyChainParams'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams
deriving stock (Int -> AnyChainParams'Params -> ShowS
[AnyChainParams'Params] -> ShowS
AnyChainParams'Params -> String
(Int -> AnyChainParams'Params -> ShowS)
-> (AnyChainParams'Params -> String)
-> ([AnyChainParams'Params] -> ShowS)
-> Show AnyChainParams'Params
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnyChainParams'Params -> ShowS
showsPrec :: Int -> AnyChainParams'Params -> ShowS
$cshow :: AnyChainParams'Params -> String
show :: AnyChainParams'Params -> String
$cshowList :: [AnyChainParams'Params] -> ShowS
showList :: [AnyChainParams'Params] -> ShowS
Prelude.Show, AnyChainParams'Params -> AnyChainParams'Params -> Bool
(AnyChainParams'Params -> AnyChainParams'Params -> Bool)
-> (AnyChainParams'Params -> AnyChainParams'Params -> Bool)
-> Eq AnyChainParams'Params
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
== :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
$c/= :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
/= :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
Prelude.Eq, Eq AnyChainParams'Params
Eq AnyChainParams'Params =>
(AnyChainParams'Params -> AnyChainParams'Params -> Ordering)
-> (AnyChainParams'Params -> AnyChainParams'Params -> Bool)
-> (AnyChainParams'Params -> AnyChainParams'Params -> Bool)
-> (AnyChainParams'Params -> AnyChainParams'Params -> Bool)
-> (AnyChainParams'Params -> AnyChainParams'Params -> Bool)
-> (AnyChainParams'Params
-> AnyChainParams'Params -> AnyChainParams'Params)
-> (AnyChainParams'Params
-> AnyChainParams'Params -> AnyChainParams'Params)
-> Ord AnyChainParams'Params
AnyChainParams'Params -> AnyChainParams'Params -> Bool
AnyChainParams'Params -> AnyChainParams'Params -> Ordering
AnyChainParams'Params
-> AnyChainParams'Params -> AnyChainParams'Params
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: AnyChainParams'Params -> AnyChainParams'Params -> Ordering
compare :: AnyChainParams'Params -> AnyChainParams'Params -> Ordering
$c< :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
< :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
$c<= :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
<= :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
$c> :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
> :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
$c>= :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
>= :: AnyChainParams'Params -> AnyChainParams'Params -> Bool
$cmax :: AnyChainParams'Params
-> AnyChainParams'Params -> AnyChainParams'Params
max :: AnyChainParams'Params
-> AnyChainParams'Params -> AnyChainParams'Params
$cmin :: AnyChainParams'Params
-> AnyChainParams'Params -> AnyChainParams'Params
min :: AnyChainParams'Params
-> AnyChainParams'Params -> AnyChainParams'Params
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'params" (Prelude.Maybe AnyChainParams'Params) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'params"
-> (Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> AnyChainParams
-> f AnyChainParams
fieldOf Proxy# "maybe'params"
_
= ((Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> AnyChainParams -> f AnyChainParams)
-> ((Maybe AnyChainParams'Params
-> f (Maybe AnyChainParams'Params))
-> Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> (Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> AnyChainParams
-> f AnyChainParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainParams -> Maybe AnyChainParams'Params)
-> (AnyChainParams
-> Maybe AnyChainParams'Params -> AnyChainParams)
-> Lens
AnyChainParams
AnyChainParams
(Maybe AnyChainParams'Params)
(Maybe AnyChainParams'Params)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainParams -> Maybe AnyChainParams'Params
_AnyChainParams'params
(\ AnyChainParams
x__ Maybe AnyChainParams'Params
y__ -> AnyChainParams
x__ {_AnyChainParams'params = y__}))
(Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainParams "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cardano"
-> (Maybe PParams -> f (Maybe PParams))
-> AnyChainParams
-> f AnyChainParams
fieldOf Proxy# "maybe'cardano"
_
= ((Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> AnyChainParams -> f AnyChainParams)
-> ((Maybe PParams -> f (Maybe PParams))
-> Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> (Maybe PParams -> f (Maybe PParams))
-> AnyChainParams
-> f AnyChainParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainParams -> Maybe AnyChainParams'Params)
-> (AnyChainParams
-> Maybe AnyChainParams'Params -> AnyChainParams)
-> Lens
AnyChainParams
AnyChainParams
(Maybe AnyChainParams'Params)
(Maybe AnyChainParams'Params)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainParams -> Maybe AnyChainParams'Params
_AnyChainParams'params
(\ AnyChainParams
x__ Maybe AnyChainParams'Params
y__ -> AnyChainParams
x__ {_AnyChainParams'params = y__}))
((Maybe AnyChainParams'Params -> Maybe PParams)
-> (Maybe AnyChainParams'Params
-> Maybe PParams -> Maybe AnyChainParams'Params)
-> Lens
(Maybe AnyChainParams'Params)
(Maybe AnyChainParams'Params)
(Maybe PParams)
(Maybe PParams)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyChainParams'Params
x__
-> case Maybe AnyChainParams'Params
x__ of
(Prelude.Just (AnyChainParams'Cardano PParams
x__val))
-> PParams -> Maybe PParams
forall a. a -> Maybe a
Prelude.Just PParams
x__val
Maybe AnyChainParams'Params
_otherwise -> Maybe PParams
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyChainParams'Params
_ Maybe PParams
y__ -> (PParams -> AnyChainParams'Params)
-> Maybe PParams -> Maybe AnyChainParams'Params
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PParams -> AnyChainParams'Params
AnyChainParams'Cardano Maybe PParams
y__))
instance Data.ProtoLens.Field.HasField AnyChainParams "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cardano"
-> (PParams -> f PParams) -> AnyChainParams -> f AnyChainParams
fieldOf Proxy# "cardano"
_
= ((Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> AnyChainParams -> f AnyChainParams)
-> ((PParams -> f PParams)
-> Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> (PParams -> f PParams)
-> AnyChainParams
-> f AnyChainParams
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainParams -> Maybe AnyChainParams'Params)
-> (AnyChainParams
-> Maybe AnyChainParams'Params -> AnyChainParams)
-> Lens
AnyChainParams
AnyChainParams
(Maybe AnyChainParams'Params)
(Maybe AnyChainParams'Params)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainParams -> Maybe AnyChainParams'Params
_AnyChainParams'params
(\ AnyChainParams
x__ Maybe AnyChainParams'Params
y__ -> AnyChainParams
x__ {_AnyChainParams'params = y__}))
(((Maybe PParams -> f (Maybe PParams))
-> Maybe AnyChainParams'Params -> f (Maybe AnyChainParams'Params))
-> ((PParams -> f PParams) -> Maybe PParams -> f (Maybe PParams))
-> (PParams -> f PParams)
-> Maybe AnyChainParams'Params
-> f (Maybe AnyChainParams'Params)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe AnyChainParams'Params -> Maybe PParams)
-> (Maybe AnyChainParams'Params
-> Maybe PParams -> Maybe AnyChainParams'Params)
-> Lens
(Maybe AnyChainParams'Params)
(Maybe AnyChainParams'Params)
(Maybe PParams)
(Maybe PParams)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyChainParams'Params
x__
-> case Maybe AnyChainParams'Params
x__ of
(Prelude.Just (AnyChainParams'Cardano PParams
x__val))
-> PParams -> Maybe PParams
forall a. a -> Maybe a
Prelude.Just PParams
x__val
Maybe AnyChainParams'Params
_otherwise -> Maybe PParams
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyChainParams'Params
_ Maybe PParams
y__ -> (PParams -> AnyChainParams'Params)
-> Maybe PParams -> Maybe AnyChainParams'Params
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PParams -> AnyChainParams'Params
AnyChainParams'Cardano Maybe PParams
y__))
(PParams -> Lens' (Maybe PParams) PParams
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PParams
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainParams where
messageName :: Proxy AnyChainParams -> Text
messageName Proxy AnyChainParams
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.AnyChainParams"
packedMessageDescriptor :: Proxy AnyChainParams -> ByteString
packedMessageDescriptor Proxy AnyChainParams
_
= ByteString
"\n\
\\SOAnyChainParams\DC2<\n\
\\acardano\CAN\SOH \SOH(\v2 .utxorpc.v1alpha.cardano.PParamsH\NULR\acardanoB\b\n\
\\ACKparams"
packedFileDescriptor :: Proxy AnyChainParams -> ByteString
packedFileDescriptor Proxy AnyChainParams
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor AnyChainParams)
fieldsByTag
= let
cardano__field_descriptor :: FieldDescriptor AnyChainParams
cardano__field_descriptor
= String
-> FieldTypeDescriptor PParams
-> FieldAccessor AnyChainParams PParams
-> FieldDescriptor AnyChainParams
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cardano"
(MessageOrGroup -> FieldTypeDescriptor PParams
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams)
(Lens' AnyChainParams (Maybe PParams)
-> FieldAccessor AnyChainParams PParams
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'cardano")) ::
Data.ProtoLens.FieldDescriptor AnyChainParams
in
[(Tag, FieldDescriptor AnyChainParams)]
-> Map Tag (FieldDescriptor AnyChainParams)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AnyChainParams
cardano__field_descriptor)]
unknownFields :: Lens' AnyChainParams FieldSet
unknownFields
= (AnyChainParams -> FieldSet)
-> (AnyChainParams -> FieldSet -> AnyChainParams)
-> Lens' AnyChainParams FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainParams -> FieldSet
_AnyChainParams'_unknownFields
(\ AnyChainParams
x__ FieldSet
y__ -> AnyChainParams
x__ {_AnyChainParams'_unknownFields = y__})
defMessage :: AnyChainParams
defMessage
= AnyChainParams'_constructor
{_AnyChainParams'params :: Maybe AnyChainParams'Params
_AnyChainParams'params = Maybe AnyChainParams'Params
forall a. Maybe a
Prelude.Nothing,
_AnyChainParams'_unknownFields :: FieldSet
_AnyChainParams'_unknownFields = []}
parseMessage :: Parser AnyChainParams
parseMessage
= let
loop ::
AnyChainParams
-> Data.ProtoLens.Encoding.Bytes.Parser AnyChainParams
loop :: AnyChainParams -> Parser AnyChainParams
loop AnyChainParams
x
= do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser PParams -> String -> Parser PParams
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"cardano"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cardano") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser AnyChainParams -> String -> Parser AnyChainParams
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do AnyChainParams -> Parser AnyChainParams
loop AnyChainParams
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AnyChainParams"
buildMessage :: AnyChainParams -> Builder
buildMessage
= \ AnyChainParams
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe AnyChainParams'Params)
AnyChainParams
AnyChainParams
(Maybe AnyChainParams'Params)
(Maybe AnyChainParams'Params)
-> AnyChainParams -> Maybe AnyChainParams'Params
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'params") AnyChainParams
_x
of
Maybe AnyChainParams'Params
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (AnyChainParams'Cardano PParams
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (PParams -> ByteString) -> PParams -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
PParams -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PParams
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet AnyChainParams AnyChainParams FieldSet FieldSet
-> AnyChainParams -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AnyChainParams AnyChainParams FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainParams FieldSet
Data.ProtoLens.unknownFields AnyChainParams
_x))
instance Control.DeepSeq.NFData AnyChainParams where
rnf :: AnyChainParams -> ()
rnf
= \ AnyChainParams
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyChainParams -> FieldSet
_AnyChainParams'_unknownFields AnyChainParams
x__)
(Maybe AnyChainParams'Params -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AnyChainParams -> Maybe AnyChainParams'Params
_AnyChainParams'params AnyChainParams
x__) ())
instance Control.DeepSeq.NFData AnyChainParams'Params where
rnf :: AnyChainParams'Params -> ()
rnf (AnyChainParams'Cardano PParams
x__) = PParams -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PParams
x__
_AnyChainParams'Cardano ::
Data.ProtoLens.Prism.Prism' AnyChainParams'Params Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams
_AnyChainParams'Cardano :: Prism' AnyChainParams'Params PParams
_AnyChainParams'Cardano
= (PParams -> AnyChainParams'Params)
-> (AnyChainParams'Params -> Maybe PParams)
-> Prism' AnyChainParams'Params PParams
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
PParams -> AnyChainParams'Params
AnyChainParams'Cardano
(\ AnyChainParams'Params
p__
-> case AnyChainParams'Params
p__ of
(AnyChainParams'Cardano PParams
p__val) -> PParams -> Maybe PParams
forall a. a -> Maybe a
Prelude.Just PParams
p__val)
data ChainPoint
= ChainPoint'_constructor {ChainPoint -> Word64
_ChainPoint'slot :: !Data.Word.Word64,
ChainPoint -> ByteString
_ChainPoint'hash :: !Data.ByteString.ByteString,
ChainPoint -> Word64
_ChainPoint'height :: !Data.Word.Word64,
ChainPoint -> Word64
_ChainPoint'timestamp :: !Data.Word.Word64,
ChainPoint -> FieldSet
_ChainPoint'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ChainPoint -> ChainPoint -> Bool
(ChainPoint -> ChainPoint -> Bool)
-> (ChainPoint -> ChainPoint -> Bool) -> Eq ChainPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChainPoint -> ChainPoint -> Bool
== :: ChainPoint -> ChainPoint -> Bool
$c/= :: ChainPoint -> ChainPoint -> Bool
/= :: ChainPoint -> ChainPoint -> Bool
Prelude.Eq, Eq ChainPoint
Eq ChainPoint =>
(ChainPoint -> ChainPoint -> Ordering)
-> (ChainPoint -> ChainPoint -> Bool)
-> (ChainPoint -> ChainPoint -> Bool)
-> (ChainPoint -> ChainPoint -> Bool)
-> (ChainPoint -> ChainPoint -> Bool)
-> (ChainPoint -> ChainPoint -> ChainPoint)
-> (ChainPoint -> ChainPoint -> ChainPoint)
-> Ord ChainPoint
ChainPoint -> ChainPoint -> Bool
ChainPoint -> ChainPoint -> Ordering
ChainPoint -> ChainPoint -> ChainPoint
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ChainPoint -> ChainPoint -> Ordering
compare :: ChainPoint -> ChainPoint -> Ordering
$c< :: ChainPoint -> ChainPoint -> Bool
< :: ChainPoint -> ChainPoint -> Bool
$c<= :: ChainPoint -> ChainPoint -> Bool
<= :: ChainPoint -> ChainPoint -> Bool
$c> :: ChainPoint -> ChainPoint -> Bool
> :: ChainPoint -> ChainPoint -> Bool
$c>= :: ChainPoint -> ChainPoint -> Bool
>= :: ChainPoint -> ChainPoint -> Bool
$cmax :: ChainPoint -> ChainPoint -> ChainPoint
max :: ChainPoint -> ChainPoint -> ChainPoint
$cmin :: ChainPoint -> ChainPoint -> ChainPoint
min :: ChainPoint -> ChainPoint -> ChainPoint
Prelude.Ord)
instance Prelude.Show ChainPoint where
showsPrec :: Int -> ChainPoint -> ShowS
showsPrec Int
_ ChainPoint
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ChainPoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ChainPoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ChainPoint "slot" Data.Word.Word64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "slot" -> (Word64 -> f Word64) -> ChainPoint -> f ChainPoint
fieldOf Proxy# "slot"
_
= ((Word64 -> f Word64) -> ChainPoint -> f ChainPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ChainPoint
-> f ChainPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChainPoint -> Word64)
-> (ChainPoint -> Word64 -> ChainPoint)
-> Lens ChainPoint ChainPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChainPoint -> Word64
_ChainPoint'slot (\ ChainPoint
x__ Word64
y__ -> ChainPoint
x__ {_ChainPoint'slot = y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChainPoint "hash" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash"
-> (ByteString -> f ByteString) -> ChainPoint -> f ChainPoint
fieldOf Proxy# "hash"
_
= ((ByteString -> f ByteString) -> ChainPoint -> f ChainPoint)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ChainPoint
-> f ChainPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChainPoint -> ByteString)
-> (ChainPoint -> ByteString -> ChainPoint)
-> Lens ChainPoint ChainPoint ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChainPoint -> ByteString
_ChainPoint'hash (\ ChainPoint
x__ ByteString
y__ -> ChainPoint
x__ {_ChainPoint'hash = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChainPoint "height" Data.Word.Word64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "height"
-> (Word64 -> f Word64) -> ChainPoint -> f ChainPoint
fieldOf Proxy# "height"
_
= ((Word64 -> f Word64) -> ChainPoint -> f ChainPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ChainPoint
-> f ChainPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChainPoint -> Word64)
-> (ChainPoint -> Word64 -> ChainPoint)
-> Lens ChainPoint ChainPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChainPoint -> Word64
_ChainPoint'height (\ ChainPoint
x__ Word64
y__ -> ChainPoint
x__ {_ChainPoint'height = y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChainPoint "timestamp" Data.Word.Word64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timestamp"
-> (Word64 -> f Word64) -> ChainPoint -> f ChainPoint
fieldOf Proxy# "timestamp"
_
= ((Word64 -> f Word64) -> ChainPoint -> f ChainPoint)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ChainPoint
-> f ChainPoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChainPoint -> Word64)
-> (ChainPoint -> Word64 -> ChainPoint)
-> Lens ChainPoint ChainPoint Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChainPoint -> Word64
_ChainPoint'timestamp
(\ ChainPoint
x__ Word64
y__ -> ChainPoint
x__ {_ChainPoint'timestamp = y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ChainPoint where
messageName :: Proxy ChainPoint -> Text
messageName Proxy ChainPoint
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.ChainPoint"
packedMessageDescriptor :: Proxy ChainPoint -> ByteString
packedMessageDescriptor Proxy ChainPoint
_
= ByteString
"\n\
\\n\
\ChainPoint\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\
\\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\
\\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\DC2\FS\n\
\\ttimestamp\CAN\EOT \SOH(\EOTR\ttimestamp"
packedFileDescriptor :: Proxy ChainPoint -> ByteString
packedFileDescriptor Proxy ChainPoint
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ChainPoint)
fieldsByTag
= let
slot__field_descriptor :: FieldDescriptor ChainPoint
slot__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ChainPoint Word64
-> FieldDescriptor ChainPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"slot"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens ChainPoint ChainPoint Word64 Word64
-> FieldAccessor ChainPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot")) ::
Data.ProtoLens.FieldDescriptor ChainPoint
hash__field_descriptor :: FieldDescriptor ChainPoint
hash__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ChainPoint ByteString
-> FieldDescriptor ChainPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"hash"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens ChainPoint ChainPoint ByteString ByteString
-> FieldAccessor ChainPoint ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash")) ::
Data.ProtoLens.FieldDescriptor ChainPoint
height__field_descriptor :: FieldDescriptor ChainPoint
height__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ChainPoint Word64
-> FieldDescriptor ChainPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"height"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens ChainPoint ChainPoint Word64 Word64
-> FieldAccessor ChainPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"height")) ::
Data.ProtoLens.FieldDescriptor ChainPoint
timestamp__field_descriptor :: FieldDescriptor ChainPoint
timestamp__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor ChainPoint Word64
-> FieldDescriptor ChainPoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"timestamp"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens ChainPoint ChainPoint Word64 Word64
-> FieldAccessor ChainPoint Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timestamp")) ::
Data.ProtoLens.FieldDescriptor ChainPoint
in
[(Tag, FieldDescriptor ChainPoint)]
-> Map Tag (FieldDescriptor ChainPoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ChainPoint
slot__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ChainPoint
hash__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ChainPoint
height__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ChainPoint
timestamp__field_descriptor)]
unknownFields :: Lens' ChainPoint FieldSet
unknownFields
= (ChainPoint -> FieldSet)
-> (ChainPoint -> FieldSet -> ChainPoint)
-> Lens' ChainPoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChainPoint -> FieldSet
_ChainPoint'_unknownFields
(\ ChainPoint
x__ FieldSet
y__ -> ChainPoint
x__ {_ChainPoint'_unknownFields = y__})
defMessage :: ChainPoint
defMessage
= ChainPoint'_constructor
{_ChainPoint'slot :: Word64
_ChainPoint'slot = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChainPoint'hash :: ByteString
_ChainPoint'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChainPoint'height :: Word64
_ChainPoint'height = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChainPoint'timestamp :: Word64
_ChainPoint'timestamp = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChainPoint'_unknownFields :: FieldSet
_ChainPoint'_unknownFields = []}
parseMessage :: Parser ChainPoint
parseMessage
= let
loop ::
ChainPoint -> Data.ProtoLens.Encoding.Bytes.Parser ChainPoint
loop :: ChainPoint -> Parser ChainPoint
loop ChainPoint
x
= do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"slot"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"slot") y x)
Word64
18
-> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
String
"hash"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") y x)
Word64
24
-> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"height"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"height") y x)
Word64
32
-> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"timestamp"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"timestamp") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser ChainPoint -> String -> Parser ChainPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ChainPoint -> Parser ChainPoint
loop ChainPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ChainPoint"
buildMessage :: ChainPoint -> Builder
buildMessage
= \ ChainPoint
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Word64
_v = FoldLike Word64 ChainPoint ChainPoint Word64 Word64
-> ChainPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot") ChainPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: ByteString
_v = FoldLike ByteString ChainPoint ChainPoint ByteString ByteString
-> ChainPoint -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") ChainPoint
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v = FoldLike Word64 ChainPoint ChainPoint Word64 Word64
-> ChainPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"height") ChainPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word64
_v = FoldLike Word64 ChainPoint ChainPoint Word64 Word64
-> ChainPoint -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timestamp") ChainPoint
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet ChainPoint ChainPoint FieldSet FieldSet
-> ChainPoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ChainPoint ChainPoint FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ChainPoint FieldSet
Data.ProtoLens.unknownFields ChainPoint
_x)))))
instance Control.DeepSeq.NFData ChainPoint where
rnf :: ChainPoint -> ()
rnf
= \ ChainPoint
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChainPoint -> FieldSet
_ChainPoint'_unknownFields ChainPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChainPoint -> Word64
_ChainPoint'slot ChainPoint
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChainPoint -> ByteString
_ChainPoint'hash ChainPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChainPoint -> Word64
_ChainPoint'height ChainPoint
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ChainPoint -> Word64
_ChainPoint'timestamp ChainPoint
x__) ()))))
data ReadParamsRequest
= ReadParamsRequest'_constructor {ReadParamsRequest -> Maybe FieldMask
_ReadParamsRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask),
ReadParamsRequest -> FieldSet
_ReadParamsRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ReadParamsRequest -> ReadParamsRequest -> Bool
(ReadParamsRequest -> ReadParamsRequest -> Bool)
-> (ReadParamsRequest -> ReadParamsRequest -> Bool)
-> Eq ReadParamsRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadParamsRequest -> ReadParamsRequest -> Bool
== :: ReadParamsRequest -> ReadParamsRequest -> Bool
$c/= :: ReadParamsRequest -> ReadParamsRequest -> Bool
/= :: ReadParamsRequest -> ReadParamsRequest -> Bool
Prelude.Eq, Eq ReadParamsRequest
Eq ReadParamsRequest =>
(ReadParamsRequest -> ReadParamsRequest -> Ordering)
-> (ReadParamsRequest -> ReadParamsRequest -> Bool)
-> (ReadParamsRequest -> ReadParamsRequest -> Bool)
-> (ReadParamsRequest -> ReadParamsRequest -> Bool)
-> (ReadParamsRequest -> ReadParamsRequest -> Bool)
-> (ReadParamsRequest -> ReadParamsRequest -> ReadParamsRequest)
-> (ReadParamsRequest -> ReadParamsRequest -> ReadParamsRequest)
-> Ord ReadParamsRequest
ReadParamsRequest -> ReadParamsRequest -> Bool
ReadParamsRequest -> ReadParamsRequest -> Ordering
ReadParamsRequest -> ReadParamsRequest -> ReadParamsRequest
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ReadParamsRequest -> ReadParamsRequest -> Ordering
compare :: ReadParamsRequest -> ReadParamsRequest -> Ordering
$c< :: ReadParamsRequest -> ReadParamsRequest -> Bool
< :: ReadParamsRequest -> ReadParamsRequest -> Bool
$c<= :: ReadParamsRequest -> ReadParamsRequest -> Bool
<= :: ReadParamsRequest -> ReadParamsRequest -> Bool
$c> :: ReadParamsRequest -> ReadParamsRequest -> Bool
> :: ReadParamsRequest -> ReadParamsRequest -> Bool
$c>= :: ReadParamsRequest -> ReadParamsRequest -> Bool
>= :: ReadParamsRequest -> ReadParamsRequest -> Bool
$cmax :: ReadParamsRequest -> ReadParamsRequest -> ReadParamsRequest
max :: ReadParamsRequest -> ReadParamsRequest -> ReadParamsRequest
$cmin :: ReadParamsRequest -> ReadParamsRequest -> ReadParamsRequest
min :: ReadParamsRequest -> ReadParamsRequest -> ReadParamsRequest
Prelude.Ord)
instance Prelude.Show ReadParamsRequest where
showsPrec :: Int -> ReadParamsRequest -> ShowS
showsPrec Int
_ ReadParamsRequest
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ReadParamsRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadParamsRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadParamsRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fieldMask"
-> (FieldMask -> f FieldMask)
-> ReadParamsRequest
-> f ReadParamsRequest
fieldOf Proxy# "fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> ReadParamsRequest -> f ReadParamsRequest)
-> ((FieldMask -> f FieldMask)
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (FieldMask -> f FieldMask)
-> ReadParamsRequest
-> f ReadParamsRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadParamsRequest -> Maybe FieldMask)
-> (ReadParamsRequest -> Maybe FieldMask -> ReadParamsRequest)
-> Lens
ReadParamsRequest
ReadParamsRequest
(Maybe FieldMask)
(Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsRequest -> Maybe FieldMask
_ReadParamsRequest'fieldMask
(\ ReadParamsRequest
x__ Maybe FieldMask
y__ -> ReadParamsRequest
x__ {_ReadParamsRequest'fieldMask = y__}))
(FieldMask -> Lens' (Maybe FieldMask) FieldMask
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FieldMask
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ReadParamsRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fieldMask"
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> ReadParamsRequest
-> f ReadParamsRequest
fieldOf Proxy# "maybe'fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> ReadParamsRequest -> f ReadParamsRequest)
-> ((Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> ReadParamsRequest
-> f ReadParamsRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadParamsRequest -> Maybe FieldMask)
-> (ReadParamsRequest -> Maybe FieldMask -> ReadParamsRequest)
-> Lens
ReadParamsRequest
ReadParamsRequest
(Maybe FieldMask)
(Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsRequest -> Maybe FieldMask
_ReadParamsRequest'fieldMask
(\ ReadParamsRequest
x__ Maybe FieldMask
y__ -> ReadParamsRequest
x__ {_ReadParamsRequest'fieldMask = y__}))
(Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadParamsRequest where
messageName :: Proxy ReadParamsRequest -> Text
messageName Proxy ReadParamsRequest
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.ReadParamsRequest"
packedMessageDescriptor :: Proxy ReadParamsRequest -> ByteString
packedMessageDescriptor Proxy ReadParamsRequest
_
= ByteString
"\n\
\\DC1ReadParamsRequest\DC29\n\
\\n\
\field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask"
packedFileDescriptor :: Proxy ReadParamsRequest -> ByteString
packedFileDescriptor Proxy ReadParamsRequest
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ReadParamsRequest)
fieldsByTag
= let
fieldMask__field_descriptor :: FieldDescriptor ReadParamsRequest
fieldMask__field_descriptor
= String
-> FieldTypeDescriptor FieldMask
-> FieldAccessor ReadParamsRequest FieldMask
-> FieldDescriptor ReadParamsRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"field_mask"
(MessageOrGroup -> FieldTypeDescriptor FieldMask
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.FieldMask.FieldMask)
(Lens
ReadParamsRequest
ReadParamsRequest
(Maybe FieldMask)
(Maybe FieldMask)
-> FieldAccessor ReadParamsRequest FieldMask
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'fieldMask")) ::
Data.ProtoLens.FieldDescriptor ReadParamsRequest
in
[(Tag, FieldDescriptor ReadParamsRequest)]
-> Map Tag (FieldDescriptor ReadParamsRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadParamsRequest
fieldMask__field_descriptor)]
unknownFields :: Lens' ReadParamsRequest FieldSet
unknownFields
= (ReadParamsRequest -> FieldSet)
-> (ReadParamsRequest -> FieldSet -> ReadParamsRequest)
-> Lens' ReadParamsRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsRequest -> FieldSet
_ReadParamsRequest'_unknownFields
(\ ReadParamsRequest
x__ FieldSet
y__ -> ReadParamsRequest
x__ {_ReadParamsRequest'_unknownFields = y__})
defMessage :: ReadParamsRequest
defMessage
= ReadParamsRequest'_constructor
{_ReadParamsRequest'fieldMask :: Maybe FieldMask
_ReadParamsRequest'fieldMask = Maybe FieldMask
forall a. Maybe a
Prelude.Nothing,
_ReadParamsRequest'_unknownFields :: FieldSet
_ReadParamsRequest'_unknownFields = []}
parseMessage :: Parser ReadParamsRequest
parseMessage
= let
loop ::
ReadParamsRequest
-> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsRequest
loop :: ReadParamsRequest -> Parser ReadParamsRequest
loop ReadParamsRequest
x
= do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser FieldMask -> String -> Parser FieldMask
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"field_mask"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"fieldMask") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser ReadParamsRequest -> String -> Parser ReadParamsRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ReadParamsRequest -> Parser ReadParamsRequest
loop ReadParamsRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ReadParamsRequest"
buildMessage :: ReadParamsRequest -> Builder
buildMessage
= \ ReadParamsRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe FieldMask)
ReadParamsRequest
ReadParamsRequest
(Maybe FieldMask)
(Maybe FieldMask)
-> ReadParamsRequest -> Maybe FieldMask
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'fieldMask") ReadParamsRequest
_x
of
Maybe FieldMask
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just FieldMask
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (FieldMask -> ByteString) -> FieldMask -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
FieldMask -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage FieldMask
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet ReadParamsRequest ReadParamsRequest FieldSet FieldSet
-> ReadParamsRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ReadParamsRequest ReadParamsRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadParamsRequest FieldSet
Data.ProtoLens.unknownFields ReadParamsRequest
_x))
instance Control.DeepSeq.NFData ReadParamsRequest where
rnf :: ReadParamsRequest -> ()
rnf
= \ ReadParamsRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadParamsRequest -> FieldSet
_ReadParamsRequest'_unknownFields ReadParamsRequest
x__)
(Maybe FieldMask -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadParamsRequest -> Maybe FieldMask
_ReadParamsRequest'fieldMask ReadParamsRequest
x__) ())
data ReadParamsResponse
= ReadParamsResponse'_constructor {ReadParamsResponse -> Maybe AnyChainParams
_ReadParamsResponse'values :: !(Prelude.Maybe AnyChainParams),
ReadParamsResponse -> Maybe ChainPoint
_ReadParamsResponse'ledgerTip :: !(Prelude.Maybe ChainPoint),
ReadParamsResponse -> FieldSet
_ReadParamsResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ReadParamsResponse -> ReadParamsResponse -> Bool
(ReadParamsResponse -> ReadParamsResponse -> Bool)
-> (ReadParamsResponse -> ReadParamsResponse -> Bool)
-> Eq ReadParamsResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadParamsResponse -> ReadParamsResponse -> Bool
== :: ReadParamsResponse -> ReadParamsResponse -> Bool
$c/= :: ReadParamsResponse -> ReadParamsResponse -> Bool
/= :: ReadParamsResponse -> ReadParamsResponse -> Bool
Prelude.Eq, Eq ReadParamsResponse
Eq ReadParamsResponse =>
(ReadParamsResponse -> ReadParamsResponse -> Ordering)
-> (ReadParamsResponse -> ReadParamsResponse -> Bool)
-> (ReadParamsResponse -> ReadParamsResponse -> Bool)
-> (ReadParamsResponse -> ReadParamsResponse -> Bool)
-> (ReadParamsResponse -> ReadParamsResponse -> Bool)
-> (ReadParamsResponse -> ReadParamsResponse -> ReadParamsResponse)
-> (ReadParamsResponse -> ReadParamsResponse -> ReadParamsResponse)
-> Ord ReadParamsResponse
ReadParamsResponse -> ReadParamsResponse -> Bool
ReadParamsResponse -> ReadParamsResponse -> Ordering
ReadParamsResponse -> ReadParamsResponse -> ReadParamsResponse
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ReadParamsResponse -> ReadParamsResponse -> Ordering
compare :: ReadParamsResponse -> ReadParamsResponse -> Ordering
$c< :: ReadParamsResponse -> ReadParamsResponse -> Bool
< :: ReadParamsResponse -> ReadParamsResponse -> Bool
$c<= :: ReadParamsResponse -> ReadParamsResponse -> Bool
<= :: ReadParamsResponse -> ReadParamsResponse -> Bool
$c> :: ReadParamsResponse -> ReadParamsResponse -> Bool
> :: ReadParamsResponse -> ReadParamsResponse -> Bool
$c>= :: ReadParamsResponse -> ReadParamsResponse -> Bool
>= :: ReadParamsResponse -> ReadParamsResponse -> Bool
$cmax :: ReadParamsResponse -> ReadParamsResponse -> ReadParamsResponse
max :: ReadParamsResponse -> ReadParamsResponse -> ReadParamsResponse
$cmin :: ReadParamsResponse -> ReadParamsResponse -> ReadParamsResponse
min :: ReadParamsResponse -> ReadParamsResponse -> ReadParamsResponse
Prelude.Ord)
instance Prelude.Show ReadParamsResponse where
showsPrec :: Int -> ReadParamsResponse -> ShowS
showsPrec Int
_ ReadParamsResponse
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ReadParamsResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadParamsResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadParamsResponse "values" AnyChainParams where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "values"
-> (AnyChainParams -> f AnyChainParams)
-> ReadParamsResponse
-> f ReadParamsResponse
fieldOf Proxy# "values"
_
= ((Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> ReadParamsResponse -> f ReadParamsResponse)
-> ((AnyChainParams -> f AnyChainParams)
-> Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> (AnyChainParams -> f AnyChainParams)
-> ReadParamsResponse
-> f ReadParamsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadParamsResponse -> Maybe AnyChainParams)
-> (ReadParamsResponse
-> Maybe AnyChainParams -> ReadParamsResponse)
-> Lens
ReadParamsResponse
ReadParamsResponse
(Maybe AnyChainParams)
(Maybe AnyChainParams)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsResponse -> Maybe AnyChainParams
_ReadParamsResponse'values
(\ ReadParamsResponse
x__ Maybe AnyChainParams
y__ -> ReadParamsResponse
x__ {_ReadParamsResponse'values = y__}))
(AnyChainParams -> Lens' (Maybe AnyChainParams) AnyChainParams
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AnyChainParams
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'values" (Prelude.Maybe AnyChainParams) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'values"
-> (Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> ReadParamsResponse
-> f ReadParamsResponse
fieldOf Proxy# "maybe'values"
_
= ((Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> ReadParamsResponse -> f ReadParamsResponse)
-> ((Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> (Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> ReadParamsResponse
-> f ReadParamsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadParamsResponse -> Maybe AnyChainParams)
-> (ReadParamsResponse
-> Maybe AnyChainParams -> ReadParamsResponse)
-> Lens
ReadParamsResponse
ReadParamsResponse
(Maybe AnyChainParams)
(Maybe AnyChainParams)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsResponse -> Maybe AnyChainParams
_ReadParamsResponse'values
(\ ReadParamsResponse
x__ Maybe AnyChainParams
y__ -> ReadParamsResponse
x__ {_ReadParamsResponse'values = y__}))
(Maybe AnyChainParams -> f (Maybe AnyChainParams))
-> Maybe AnyChainParams -> f (Maybe AnyChainParams)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ReadParamsResponse "ledgerTip" ChainPoint where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ledgerTip"
-> (ChainPoint -> f ChainPoint)
-> ReadParamsResponse
-> f ReadParamsResponse
fieldOf Proxy# "ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadParamsResponse -> f ReadParamsResponse)
-> ((ChainPoint -> f ChainPoint)
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (ChainPoint -> f ChainPoint)
-> ReadParamsResponse
-> f ReadParamsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadParamsResponse -> Maybe ChainPoint)
-> (ReadParamsResponse -> Maybe ChainPoint -> ReadParamsResponse)
-> Lens
ReadParamsResponse
ReadParamsResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsResponse -> Maybe ChainPoint
_ReadParamsResponse'ledgerTip
(\ ReadParamsResponse
x__ Maybe ChainPoint
y__ -> ReadParamsResponse
x__ {_ReadParamsResponse'ledgerTip = y__}))
(ChainPoint -> Lens' (Maybe ChainPoint) ChainPoint
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ChainPoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ReadParamsResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ledgerTip"
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadParamsResponse
-> f ReadParamsResponse
fieldOf Proxy# "maybe'ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadParamsResponse -> f ReadParamsResponse)
-> ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadParamsResponse
-> f ReadParamsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadParamsResponse -> Maybe ChainPoint)
-> (ReadParamsResponse -> Maybe ChainPoint -> ReadParamsResponse)
-> Lens
ReadParamsResponse
ReadParamsResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsResponse -> Maybe ChainPoint
_ReadParamsResponse'ledgerTip
(\ ReadParamsResponse
x__ Maybe ChainPoint
y__ -> ReadParamsResponse
x__ {_ReadParamsResponse'ledgerTip = y__}))
(Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadParamsResponse where
messageName :: Proxy ReadParamsResponse -> Text
messageName Proxy ReadParamsResponse
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.ReadParamsResponse"
packedMessageDescriptor :: Proxy ReadParamsResponse -> ByteString
packedMessageDescriptor Proxy ReadParamsResponse
_
= ByteString
"\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 :: Proxy ReadParamsResponse -> ByteString
packedFileDescriptor Proxy ReadParamsResponse
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ReadParamsResponse)
fieldsByTag
= let
values__field_descriptor :: FieldDescriptor ReadParamsResponse
values__field_descriptor
= String
-> FieldTypeDescriptor AnyChainParams
-> FieldAccessor ReadParamsResponse AnyChainParams
-> FieldDescriptor ReadParamsResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"values"
(MessageOrGroup -> FieldTypeDescriptor AnyChainParams
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainParams)
(Lens
ReadParamsResponse
ReadParamsResponse
(Maybe AnyChainParams)
(Maybe AnyChainParams)
-> FieldAccessor ReadParamsResponse AnyChainParams
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'values")) ::
Data.ProtoLens.FieldDescriptor ReadParamsResponse
ledgerTip__field_descriptor :: FieldDescriptor ReadParamsResponse
ledgerTip__field_descriptor
= String
-> FieldTypeDescriptor ChainPoint
-> FieldAccessor ReadParamsResponse ChainPoint
-> FieldDescriptor ReadParamsResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"ledger_tip"
(MessageOrGroup -> FieldTypeDescriptor ChainPoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChainPoint)
(Lens
ReadParamsResponse
ReadParamsResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> FieldAccessor ReadParamsResponse ChainPoint
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ledgerTip")) ::
Data.ProtoLens.FieldDescriptor ReadParamsResponse
in
[(Tag, FieldDescriptor ReadParamsResponse)]
-> Map Tag (FieldDescriptor ReadParamsResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadParamsResponse
values__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ReadParamsResponse
ledgerTip__field_descriptor)]
unknownFields :: Lens' ReadParamsResponse FieldSet
unknownFields
= (ReadParamsResponse -> FieldSet)
-> (ReadParamsResponse -> FieldSet -> ReadParamsResponse)
-> Lens' ReadParamsResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadParamsResponse -> FieldSet
_ReadParamsResponse'_unknownFields
(\ ReadParamsResponse
x__ FieldSet
y__ -> ReadParamsResponse
x__ {_ReadParamsResponse'_unknownFields = y__})
defMessage :: ReadParamsResponse
defMessage
= ReadParamsResponse'_constructor
{_ReadParamsResponse'values :: Maybe AnyChainParams
_ReadParamsResponse'values = Maybe AnyChainParams
forall a. Maybe a
Prelude.Nothing,
_ReadParamsResponse'ledgerTip :: Maybe ChainPoint
_ReadParamsResponse'ledgerTip = Maybe ChainPoint
forall a. Maybe a
Prelude.Nothing,
_ReadParamsResponse'_unknownFields :: FieldSet
_ReadParamsResponse'_unknownFields = []}
parseMessage :: Parser ReadParamsResponse
parseMessage
= let
loop ::
ReadParamsResponse
-> Data.ProtoLens.Encoding.Bytes.Parser ReadParamsResponse
loop :: ReadParamsResponse -> Parser ReadParamsResponse
loop ReadParamsResponse
x
= do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser AnyChainParams -> String -> Parser AnyChainParams
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"values"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"values") y x)
Word64
18
-> do y <- Parser ChainPoint -> String -> Parser ChainPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"ledger_tip"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"ledgerTip") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser ReadParamsResponse -> String -> Parser ReadParamsResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ReadParamsResponse -> Parser ReadParamsResponse
loop ReadParamsResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ReadParamsResponse"
buildMessage :: ReadParamsResponse -> Builder
buildMessage
= \ ReadParamsResponse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe AnyChainParams)
ReadParamsResponse
ReadParamsResponse
(Maybe AnyChainParams)
(Maybe AnyChainParams)
-> ReadParamsResponse -> Maybe AnyChainParams
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'values") ReadParamsResponse
_x
of
Maybe AnyChainParams
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just AnyChainParams
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (AnyChainParams -> ByteString) -> AnyChainParams -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
AnyChainParams -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyChainParams
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ChainPoint)
ReadParamsResponse
ReadParamsResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> ReadParamsResponse -> Maybe ChainPoint
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ledgerTip") ReadParamsResponse
_x
of
Maybe ChainPoint
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ChainPoint
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (ChainPoint -> ByteString) -> ChainPoint -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ChainPoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ChainPoint
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet ReadParamsResponse ReadParamsResponse FieldSet FieldSet
-> ReadParamsResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ReadParamsResponse ReadParamsResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadParamsResponse FieldSet
Data.ProtoLens.unknownFields ReadParamsResponse
_x)))
instance Control.DeepSeq.NFData ReadParamsResponse where
rnf :: ReadParamsResponse -> ()
rnf
= \ ReadParamsResponse
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadParamsResponse -> FieldSet
_ReadParamsResponse'_unknownFields ReadParamsResponse
x__)
(Maybe AnyChainParams -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadParamsResponse -> Maybe AnyChainParams
_ReadParamsResponse'values ReadParamsResponse
x__)
(Maybe ChainPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadParamsResponse -> Maybe ChainPoint
_ReadParamsResponse'ledgerTip ReadParamsResponse
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"]
packedServiceDescriptor :: Proxy QueryService -> ByteString
packedServiceDescriptor Proxy QueryService
_
= ByteString
"\n\
\\fQueryService\DC2a\n\
\\n\
\ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponse"
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
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\!utxorpc/v1alpha/query/query.proto\DC2\NAKutxorpc.v1alpha.query\SUB google/protobuf/field_mask.proto\SUB%utxorpc/v1alpha/cardano/cardano.proto\"j\n\
\\n\
\ChainPoint\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\
\\EOThash\CAN\STX \SOH(\fR\EOThash\DC2\SYN\n\
\\ACKheight\CAN\ETX \SOH(\EOTR\ACKheight\DC2\FS\n\
\\ttimestamp\CAN\EOT \SOH(\EOTR\ttimestamp\"N\n\
\\DC1ReadParamsRequest\DC29\n\
\\n\
\field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"X\n\
\\SOAnyChainParams\DC2<\n\
\\acardano\CAN\SOH \SOH(\v2 .utxorpc.v1alpha.cardano.PParamsH\NULR\acardanoB\b\n\
\\ACKparams\"\149\SOH\n\
\\DC2ReadParamsResponse\DC2=\n\
\\ACKvalues\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyChainParamsR\ACKvalues\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip2q\n\
\\fQueryService\DC2a\n\
\\n\
\ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponseJ\139\n\
\\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\SI\SOH\SUB0 Represents a specific point in the blockchain.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\n\
\\b\DC2\n\
\\ESC\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\v\STX\DC2\"\SO Slot number.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\v\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\v\t\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\v\DLE\DC1\n\
\\SUB\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\DC1\"\r Block hash.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\b\f\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\SI\DLE\n\
\\FS\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\r\STX\DC4\"\SI Block height.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\r\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\r\t\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\r\DC2\DC3\n\
\!\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX\SO\STX\ETB\"\DC4 Block ms timestamp\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX\SO\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\SO\t\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\SO\NAK\SYN\n\
\1\n\
\\STX\EOT\SOH\DC2\EOT\DC2\NUL\DC4\SOH\SUB% Request to get the chain parameters\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\DC2\b\EM\n\
\N\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC3\STX+\"A Field mask to selectively return fields in the parsed response.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\DC3\STX\ESC\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC3\FS&\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC3)*\n\
\U\n\
\\STX\EOT\STX\DC2\EOT\ETB\NUL\ESC\SOH\SUBI An evenlope that holds parameter data from any of the compatible chains\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\ETB\b\SYN\n\
\\f\n\
\\EOT\EOT\STX\b\NUL\DC2\EOT\CAN\STX\SUB\ETX\n\
\\f\n\
\\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX\CAN\b\SO\n\
\!\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\EM\EOT0\"\DC4 Cardano parameters\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\EM\EOT#\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\EM$+\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\EM./\n\
\6\n\
\\STX\EOT\ETX\DC2\EOT\RS\NUL!\SOH\SUB* Response containing the chain parameters\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\RS\b\SUB\n\
\+\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\US\STX\FS\"\RS The value of the parameters.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\US\STX\DLE\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\US\DC1\ETB\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\US\SUB\ESC\n\
\J\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETX \STX\FS\"= The chain point that represent the ledger current position.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ACK\DC2\ETX \STX\f\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX \r\ETB\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX \SUB\ESC\n\
\E\n\
\\STX\ACK\NUL\DC2\EOT$\NUL&\SOH\SUB9 Service definition for querying the state of the chain.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETX$\b\DC4\n\
\'\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETX%\STXA\"\SUB Get overall chain state.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX%\ACK\DLE\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX%\DC1\"\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX%-?b\ACKproto3"