{-# 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(..), AnyChainDatum(), AnyChainDatum'ParsedState(..),
_AnyChainDatum'Cardano, AnyChainParams(),
AnyChainParams'Params(..), _AnyChainParams'Cardano, AnyUtxoData(),
AnyUtxoData'ParsedState(..), _AnyUtxoData'Cardano,
AnyUtxoPattern(), AnyUtxoPattern'UtxoPattern(..),
_AnyUtxoPattern'Cardano, ChainPoint(), ReadDataRequest(),
ReadDataResponse(), ReadParamsRequest(), ReadParamsResponse(),
ReadUtxosRequest(), ReadUtxosResponse(), SearchUtxosRequest(),
SearchUtxosResponse(), TxoRef(), UtxoPredicate()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.FieldMask
import qualified Proto.Utxorpc.V1alpha.Cardano.Cardano
data AnyChainDatum
= AnyChainDatum'_constructor {AnyChainDatum -> ByteString
_AnyChainDatum'key :: !Data.ByteString.ByteString,
AnyChainDatum -> ByteString
_AnyChainDatum'nativeBytes :: !Data.ByteString.ByteString,
AnyChainDatum -> Maybe AnyChainDatum'ParsedState
_AnyChainDatum'parsedState :: !(Prelude.Maybe AnyChainDatum'ParsedState),
AnyChainDatum -> FieldSet
_AnyChainDatum'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (AnyChainDatum -> AnyChainDatum -> Bool
(AnyChainDatum -> AnyChainDatum -> Bool)
-> (AnyChainDatum -> AnyChainDatum -> Bool) -> Eq AnyChainDatum
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainDatum -> AnyChainDatum -> Bool
== :: AnyChainDatum -> AnyChainDatum -> Bool
$c/= :: AnyChainDatum -> AnyChainDatum -> Bool
/= :: AnyChainDatum -> AnyChainDatum -> Bool
Prelude.Eq, Eq AnyChainDatum
Eq AnyChainDatum =>
(AnyChainDatum -> AnyChainDatum -> Ordering)
-> (AnyChainDatum -> AnyChainDatum -> Bool)
-> (AnyChainDatum -> AnyChainDatum -> Bool)
-> (AnyChainDatum -> AnyChainDatum -> Bool)
-> (AnyChainDatum -> AnyChainDatum -> Bool)
-> (AnyChainDatum -> AnyChainDatum -> AnyChainDatum)
-> (AnyChainDatum -> AnyChainDatum -> AnyChainDatum)
-> Ord AnyChainDatum
AnyChainDatum -> AnyChainDatum -> Bool
AnyChainDatum -> AnyChainDatum -> Ordering
AnyChainDatum -> AnyChainDatum -> AnyChainDatum
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 :: AnyChainDatum -> AnyChainDatum -> Ordering
compare :: AnyChainDatum -> AnyChainDatum -> Ordering
$c< :: AnyChainDatum -> AnyChainDatum -> Bool
< :: AnyChainDatum -> AnyChainDatum -> Bool
$c<= :: AnyChainDatum -> AnyChainDatum -> Bool
<= :: AnyChainDatum -> AnyChainDatum -> Bool
$c> :: AnyChainDatum -> AnyChainDatum -> Bool
> :: AnyChainDatum -> AnyChainDatum -> Bool
$c>= :: AnyChainDatum -> AnyChainDatum -> Bool
>= :: AnyChainDatum -> AnyChainDatum -> Bool
$cmax :: AnyChainDatum -> AnyChainDatum -> AnyChainDatum
max :: AnyChainDatum -> AnyChainDatum -> AnyChainDatum
$cmin :: AnyChainDatum -> AnyChainDatum -> AnyChainDatum
min :: AnyChainDatum -> AnyChainDatum -> AnyChainDatum
Prelude.Ord)
instance Prelude.Show AnyChainDatum where
showsPrec :: Int -> AnyChainDatum -> ShowS
showsPrec Int
_ AnyChainDatum
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(AnyChainDatum -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AnyChainDatum
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data AnyChainDatum'ParsedState
= AnyChainDatum'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.PlutusData
deriving stock (Int -> AnyChainDatum'ParsedState -> ShowS
[AnyChainDatum'ParsedState] -> ShowS
AnyChainDatum'ParsedState -> String
(Int -> AnyChainDatum'ParsedState -> ShowS)
-> (AnyChainDatum'ParsedState -> String)
-> ([AnyChainDatum'ParsedState] -> ShowS)
-> Show AnyChainDatum'ParsedState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnyChainDatum'ParsedState -> ShowS
showsPrec :: Int -> AnyChainDatum'ParsedState -> ShowS
$cshow :: AnyChainDatum'ParsedState -> String
show :: AnyChainDatum'ParsedState -> String
$cshowList :: [AnyChainDatum'ParsedState] -> ShowS
showList :: [AnyChainDatum'ParsedState] -> ShowS
Prelude.Show, AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
(AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool)
-> (AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool)
-> Eq AnyChainDatum'ParsedState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
== :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
$c/= :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
/= :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
Prelude.Eq, Eq AnyChainDatum'ParsedState
Eq AnyChainDatum'ParsedState =>
(AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> Ordering)
-> (AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool)
-> (AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool)
-> (AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool)
-> (AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool)
-> (AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState)
-> (AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState)
-> Ord AnyChainDatum'ParsedState
AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Ordering
AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState
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 :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Ordering
compare :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Ordering
$c< :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
< :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
$c<= :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
<= :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
$c> :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
> :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
$c>= :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
>= :: AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState -> Bool
$cmax :: AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState
max :: AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState
$cmin :: AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState
min :: AnyChainDatum'ParsedState
-> AnyChainDatum'ParsedState -> AnyChainDatum'ParsedState
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainDatum "key" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString) -> AnyChainDatum -> f AnyChainDatum
fieldOf Proxy# "key"
_
= ((ByteString -> f ByteString) -> AnyChainDatum -> f AnyChainDatum)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AnyChainDatum
-> f AnyChainDatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainDatum -> ByteString)
-> (AnyChainDatum -> ByteString -> AnyChainDatum)
-> Lens AnyChainDatum AnyChainDatum ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainDatum -> ByteString
_AnyChainDatum'key (\ AnyChainDatum
x__ ByteString
y__ -> AnyChainDatum
x__ {_AnyChainDatum'key = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainDatum "nativeBytes" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nativeBytes"
-> (ByteString -> f ByteString) -> AnyChainDatum -> f AnyChainDatum
fieldOf Proxy# "nativeBytes"
_
= ((ByteString -> f ByteString) -> AnyChainDatum -> f AnyChainDatum)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AnyChainDatum
-> f AnyChainDatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainDatum -> ByteString)
-> (AnyChainDatum -> ByteString -> AnyChainDatum)
-> Lens AnyChainDatum AnyChainDatum ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainDatum -> ByteString
_AnyChainDatum'nativeBytes
(\ AnyChainDatum
x__ ByteString
y__ -> AnyChainDatum
x__ {_AnyChainDatum'nativeBytes = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainDatum "maybe'parsedState" (Prelude.Maybe AnyChainDatum'ParsedState) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'parsedState"
-> (Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> AnyChainDatum
-> f AnyChainDatum
fieldOf Proxy# "maybe'parsedState"
_
= ((Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> AnyChainDatum -> f AnyChainDatum)
-> ((Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> (Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> AnyChainDatum
-> f AnyChainDatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainDatum -> Maybe AnyChainDatum'ParsedState)
-> (AnyChainDatum
-> Maybe AnyChainDatum'ParsedState -> AnyChainDatum)
-> Lens
AnyChainDatum
AnyChainDatum
(Maybe AnyChainDatum'ParsedState)
(Maybe AnyChainDatum'ParsedState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainDatum -> Maybe AnyChainDatum'ParsedState
_AnyChainDatum'parsedState
(\ AnyChainDatum
x__ Maybe AnyChainDatum'ParsedState
y__ -> AnyChainDatum
x__ {_AnyChainDatum'parsedState = y__}))
(Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainDatum "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.PlutusData) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cardano"
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> AnyChainDatum
-> f AnyChainDatum
fieldOf Proxy# "maybe'cardano"
_
= ((Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> AnyChainDatum -> f AnyChainDatum)
-> ((Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> (Maybe PlutusData -> f (Maybe PlutusData))
-> AnyChainDatum
-> f AnyChainDatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainDatum -> Maybe AnyChainDatum'ParsedState)
-> (AnyChainDatum
-> Maybe AnyChainDatum'ParsedState -> AnyChainDatum)
-> Lens
AnyChainDatum
AnyChainDatum
(Maybe AnyChainDatum'ParsedState)
(Maybe AnyChainDatum'ParsedState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainDatum -> Maybe AnyChainDatum'ParsedState
_AnyChainDatum'parsedState
(\ AnyChainDatum
x__ Maybe AnyChainDatum'ParsedState
y__ -> AnyChainDatum
x__ {_AnyChainDatum'parsedState = y__}))
((Maybe AnyChainDatum'ParsedState -> Maybe PlutusData)
-> (Maybe AnyChainDatum'ParsedState
-> Maybe PlutusData -> Maybe AnyChainDatum'ParsedState)
-> Lens
(Maybe AnyChainDatum'ParsedState)
(Maybe AnyChainDatum'ParsedState)
(Maybe PlutusData)
(Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyChainDatum'ParsedState
x__
-> case Maybe AnyChainDatum'ParsedState
x__ of
(Prelude.Just (AnyChainDatum'Cardano PlutusData
x__val))
-> PlutusData -> Maybe PlutusData
forall a. a -> Maybe a
Prelude.Just PlutusData
x__val
Maybe AnyChainDatum'ParsedState
_otherwise -> Maybe PlutusData
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyChainDatum'ParsedState
_ Maybe PlutusData
y__ -> (PlutusData -> AnyChainDatum'ParsedState)
-> Maybe PlutusData -> Maybe AnyChainDatum'ParsedState
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PlutusData -> AnyChainDatum'ParsedState
AnyChainDatum'Cardano Maybe PlutusData
y__))
instance Data.ProtoLens.Field.HasField AnyChainDatum "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.PlutusData where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cardano"
-> (PlutusData -> f PlutusData) -> AnyChainDatum -> f AnyChainDatum
fieldOf Proxy# "cardano"
_
= ((Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> AnyChainDatum -> f AnyChainDatum)
-> ((PlutusData -> f PlutusData)
-> Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> (PlutusData -> f PlutusData)
-> AnyChainDatum
-> f AnyChainDatum
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyChainDatum -> Maybe AnyChainDatum'ParsedState)
-> (AnyChainDatum
-> Maybe AnyChainDatum'ParsedState -> AnyChainDatum)
-> Lens
AnyChainDatum
AnyChainDatum
(Maybe AnyChainDatum'ParsedState)
(Maybe AnyChainDatum'ParsedState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainDatum -> Maybe AnyChainDatum'ParsedState
_AnyChainDatum'parsedState
(\ AnyChainDatum
x__ Maybe AnyChainDatum'ParsedState
y__ -> AnyChainDatum
x__ {_AnyChainDatum'parsedState = y__}))
(((Maybe PlutusData -> f (Maybe PlutusData))
-> Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState))
-> ((PlutusData -> f PlutusData)
-> Maybe PlutusData -> f (Maybe PlutusData))
-> (PlutusData -> f PlutusData)
-> Maybe AnyChainDatum'ParsedState
-> f (Maybe AnyChainDatum'ParsedState)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe AnyChainDatum'ParsedState -> Maybe PlutusData)
-> (Maybe AnyChainDatum'ParsedState
-> Maybe PlutusData -> Maybe AnyChainDatum'ParsedState)
-> Lens
(Maybe AnyChainDatum'ParsedState)
(Maybe AnyChainDatum'ParsedState)
(Maybe PlutusData)
(Maybe PlutusData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyChainDatum'ParsedState
x__
-> case Maybe AnyChainDatum'ParsedState
x__ of
(Prelude.Just (AnyChainDatum'Cardano PlutusData
x__val))
-> PlutusData -> Maybe PlutusData
forall a. a -> Maybe a
Prelude.Just PlutusData
x__val
Maybe AnyChainDatum'ParsedState
_otherwise -> Maybe PlutusData
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyChainDatum'ParsedState
_ Maybe PlutusData
y__ -> (PlutusData -> AnyChainDatum'ParsedState)
-> Maybe PlutusData -> Maybe AnyChainDatum'ParsedState
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PlutusData -> AnyChainDatum'ParsedState
AnyChainDatum'Cardano Maybe PlutusData
y__))
(PlutusData -> Lens' (Maybe PlutusData) PlutusData
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PlutusData
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainDatum where
messageName :: Proxy AnyChainDatum -> Text
messageName Proxy AnyChainDatum
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.AnyChainDatum"
packedMessageDescriptor :: Proxy AnyChainDatum -> ByteString
packedMessageDescriptor Proxy AnyChainDatum
_
= ByteString
"\n\
\\rAnyChainDatum\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2!\n\
\\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC2?\n\
\\acardano\CAN\ETX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataH\NULR\acardanoB\SO\n\
\\fparsed_state"
packedFileDescriptor :: Proxy AnyChainDatum -> ByteString
packedFileDescriptor Proxy AnyChainDatum
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor AnyChainDatum)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor AnyChainDatum
key__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AnyChainDatum ByteString
-> FieldDescriptor AnyChainDatum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(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 AnyChainDatum AnyChainDatum ByteString ByteString
-> FieldAccessor AnyChainDatum 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 @"key")) ::
Data.ProtoLens.FieldDescriptor AnyChainDatum
nativeBytes__field_descriptor :: FieldDescriptor AnyChainDatum
nativeBytes__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AnyChainDatum ByteString
-> FieldDescriptor AnyChainDatum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"native_bytes"
(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 AnyChainDatum AnyChainDatum ByteString ByteString
-> FieldAccessor AnyChainDatum 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 @"nativeBytes")) ::
Data.ProtoLens.FieldDescriptor AnyChainDatum
cardano__field_descriptor :: FieldDescriptor AnyChainDatum
cardano__field_descriptor
= String
-> FieldTypeDescriptor PlutusData
-> FieldAccessor AnyChainDatum PlutusData
-> FieldDescriptor AnyChainDatum
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cardano"
(MessageOrGroup -> FieldTypeDescriptor PlutusData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.PlutusData)
(Lens' AnyChainDatum (Maybe PlutusData)
-> FieldAccessor AnyChainDatum PlutusData
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 AnyChainDatum
in
[(Tag, FieldDescriptor AnyChainDatum)]
-> Map Tag (FieldDescriptor AnyChainDatum)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AnyChainDatum
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AnyChainDatum
nativeBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AnyChainDatum
cardano__field_descriptor)]
unknownFields :: Lens' AnyChainDatum FieldSet
unknownFields
= (AnyChainDatum -> FieldSet)
-> (AnyChainDatum -> FieldSet -> AnyChainDatum)
-> Lens' AnyChainDatum FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyChainDatum -> FieldSet
_AnyChainDatum'_unknownFields
(\ AnyChainDatum
x__ FieldSet
y__ -> AnyChainDatum
x__ {_AnyChainDatum'_unknownFields = y__})
defMessage :: AnyChainDatum
defMessage
= AnyChainDatum'_constructor
{_AnyChainDatum'key :: ByteString
_AnyChainDatum'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AnyChainDatum'nativeBytes :: ByteString
_AnyChainDatum'nativeBytes = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AnyChainDatum'parsedState :: Maybe AnyChainDatum'ParsedState
_AnyChainDatum'parsedState = Maybe AnyChainDatum'ParsedState
forall a. Maybe a
Prelude.Nothing,
_AnyChainDatum'_unknownFields :: FieldSet
_AnyChainDatum'_unknownFields = []}
parseMessage :: Parser AnyChainDatum
parseMessage
= let
loop ::
AnyChainDatum -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainDatum
loop :: AnyChainDatum -> Parser AnyChainDatum
loop AnyChainDatum
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
AnyChainDatum -> Parser AnyChainDatum
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter AnyChainDatum AnyChainDatum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainDatum -> AnyChainDatum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyChainDatum FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainDatum FieldSet
Setter AnyChainDatum AnyChainDatum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AnyChainDatum
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"key"
AnyChainDatum -> Parser AnyChainDatum
loop (Setter AnyChainDatum AnyChainDatum ByteString ByteString
-> ByteString -> AnyChainDatum -> AnyChainDatum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ByteString
y AnyChainDatum
x)
Word64
18
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"native_bytes"
AnyChainDatum -> Parser AnyChainDatum
loop
(Setter AnyChainDatum AnyChainDatum ByteString ByteString
-> ByteString -> AnyChainDatum -> AnyChainDatum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nativeBytes") ByteString
y AnyChainDatum
x)
Word64
26
-> do PlutusData
y <- Parser PlutusData -> String -> Parser PlutusData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser PlutusData -> Parser PlutusData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlutusData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"cardano"
AnyChainDatum -> Parser AnyChainDatum
loop (Setter AnyChainDatum AnyChainDatum PlutusData PlutusData
-> PlutusData -> AnyChainDatum -> AnyChainDatum
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cardano") PlutusData
y AnyChainDatum
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
AnyChainDatum -> Parser AnyChainDatum
loop
(Setter AnyChainDatum AnyChainDatum FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainDatum -> AnyChainDatum
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyChainDatum FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainDatum FieldSet
Setter AnyChainDatum AnyChainDatum FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AnyChainDatum
x)
in
Parser AnyChainDatum -> String -> Parser AnyChainDatum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do AnyChainDatum -> Parser AnyChainDatum
loop AnyChainDatum
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AnyChainDatum"
buildMessage :: AnyChainDatum -> Builder
buildMessage
= \ AnyChainDatum
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: ByteString
_v = FoldLike
ByteString AnyChainDatum AnyChainDatum ByteString ByteString
-> AnyChainDatum -> 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 @"key") AnyChainDatum
_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
10)
((\ 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 :: ByteString
_v
= FoldLike
ByteString AnyChainDatum AnyChainDatum ByteString ByteString
-> AnyChainDatum -> 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 @"nativeBytes") AnyChainDatum
_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.<>)
(case
FoldLike
(Maybe AnyChainDatum'ParsedState)
AnyChainDatum
AnyChainDatum
(Maybe AnyChainDatum'ParsedState)
(Maybe AnyChainDatum'ParsedState)
-> AnyChainDatum -> Maybe AnyChainDatum'ParsedState
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'parsedState") AnyChainDatum
_x
of
Maybe AnyChainDatum'ParsedState
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (AnyChainDatum'Cardano PlutusData
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (PlutusData -> ByteString) -> PlutusData -> 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))
PlutusData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PlutusData
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet AnyChainDatum AnyChainDatum FieldSet FieldSet
-> AnyChainDatum -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AnyChainDatum AnyChainDatum FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainDatum FieldSet
Data.ProtoLens.unknownFields AnyChainDatum
_x))))
instance Control.DeepSeq.NFData AnyChainDatum where
rnf :: AnyChainDatum -> ()
rnf
= \ AnyChainDatum
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyChainDatum -> FieldSet
_AnyChainDatum'_unknownFields AnyChainDatum
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyChainDatum -> ByteString
_AnyChainDatum'key AnyChainDatum
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyChainDatum -> ByteString
_AnyChainDatum'nativeBytes AnyChainDatum
x__)
(Maybe AnyChainDatum'ParsedState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AnyChainDatum -> Maybe AnyChainDatum'ParsedState
_AnyChainDatum'parsedState AnyChainDatum
x__) ())))
instance Control.DeepSeq.NFData AnyChainDatum'ParsedState where
rnf :: AnyChainDatum'ParsedState -> ()
rnf (AnyChainDatum'Cardano PlutusData
x__) = PlutusData -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PlutusData
x__
_AnyChainDatum'Cardano ::
Data.ProtoLens.Prism.Prism' AnyChainDatum'ParsedState Proto.Utxorpc.V1alpha.Cardano.Cardano.PlutusData
_AnyChainDatum'Cardano :: Prism' AnyChainDatum'ParsedState PlutusData
_AnyChainDatum'Cardano
= (PlutusData -> AnyChainDatum'ParsedState)
-> (AnyChainDatum'ParsedState -> Maybe PlutusData)
-> Prism' AnyChainDatum'ParsedState PlutusData
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
PlutusData -> AnyChainDatum'ParsedState
AnyChainDatum'Cardano
(\ AnyChainDatum'ParsedState
p__
-> case AnyChainDatum'ParsedState
p__ of
(AnyChainDatum'Cardano PlutusData
p__val) -> PlutusData -> Maybe PlutusData
forall a. a -> Maybe a
Prelude.Just PlutusData
p__val)
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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
AnyChainParams -> Parser AnyChainParams
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter AnyChainParams AnyChainParams FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainParams -> AnyChainParams
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyChainParams FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainParams FieldSet
Setter AnyChainParams AnyChainParams FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AnyChainParams
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do PParams
y <- Parser PParams -> String -> Parser PParams
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser PParams -> Parser PParams
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PParams
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"cardano"
AnyChainParams -> Parser AnyChainParams
loop (Setter AnyChainParams AnyChainParams PParams PParams
-> PParams -> AnyChainParams -> AnyChainParams
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cardano") PParams
y AnyChainParams
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
AnyChainParams -> Parser AnyChainParams
loop
(Setter AnyChainParams AnyChainParams FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainParams -> AnyChainParams
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyChainParams FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainParams FieldSet
Setter AnyChainParams AnyChainParams FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AnyChainParams
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 AnyUtxoData
= AnyUtxoData'_constructor {AnyUtxoData -> Maybe TxoRef
_AnyUtxoData'txoRef :: !(Prelude.Maybe TxoRef),
AnyUtxoData -> ByteString
_AnyUtxoData'nativeBytes :: !Data.ByteString.ByteString,
AnyUtxoData -> Maybe AnyUtxoData'ParsedState
_AnyUtxoData'parsedState :: !(Prelude.Maybe AnyUtxoData'ParsedState),
AnyUtxoData -> FieldSet
_AnyUtxoData'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (AnyUtxoData -> AnyUtxoData -> Bool
(AnyUtxoData -> AnyUtxoData -> Bool)
-> (AnyUtxoData -> AnyUtxoData -> Bool) -> Eq AnyUtxoData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyUtxoData -> AnyUtxoData -> Bool
== :: AnyUtxoData -> AnyUtxoData -> Bool
$c/= :: AnyUtxoData -> AnyUtxoData -> Bool
/= :: AnyUtxoData -> AnyUtxoData -> Bool
Prelude.Eq, Eq AnyUtxoData
Eq AnyUtxoData =>
(AnyUtxoData -> AnyUtxoData -> Ordering)
-> (AnyUtxoData -> AnyUtxoData -> Bool)
-> (AnyUtxoData -> AnyUtxoData -> Bool)
-> (AnyUtxoData -> AnyUtxoData -> Bool)
-> (AnyUtxoData -> AnyUtxoData -> Bool)
-> (AnyUtxoData -> AnyUtxoData -> AnyUtxoData)
-> (AnyUtxoData -> AnyUtxoData -> AnyUtxoData)
-> Ord AnyUtxoData
AnyUtxoData -> AnyUtxoData -> Bool
AnyUtxoData -> AnyUtxoData -> Ordering
AnyUtxoData -> AnyUtxoData -> AnyUtxoData
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 :: AnyUtxoData -> AnyUtxoData -> Ordering
compare :: AnyUtxoData -> AnyUtxoData -> Ordering
$c< :: AnyUtxoData -> AnyUtxoData -> Bool
< :: AnyUtxoData -> AnyUtxoData -> Bool
$c<= :: AnyUtxoData -> AnyUtxoData -> Bool
<= :: AnyUtxoData -> AnyUtxoData -> Bool
$c> :: AnyUtxoData -> AnyUtxoData -> Bool
> :: AnyUtxoData -> AnyUtxoData -> Bool
$c>= :: AnyUtxoData -> AnyUtxoData -> Bool
>= :: AnyUtxoData -> AnyUtxoData -> Bool
$cmax :: AnyUtxoData -> AnyUtxoData -> AnyUtxoData
max :: AnyUtxoData -> AnyUtxoData -> AnyUtxoData
$cmin :: AnyUtxoData -> AnyUtxoData -> AnyUtxoData
min :: AnyUtxoData -> AnyUtxoData -> AnyUtxoData
Prelude.Ord)
instance Prelude.Show AnyUtxoData where
showsPrec :: Int -> AnyUtxoData -> ShowS
showsPrec Int
_ AnyUtxoData
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(AnyUtxoData -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AnyUtxoData
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data AnyUtxoData'ParsedState
= AnyUtxoData'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput
deriving stock (Int -> AnyUtxoData'ParsedState -> ShowS
[AnyUtxoData'ParsedState] -> ShowS
AnyUtxoData'ParsedState -> String
(Int -> AnyUtxoData'ParsedState -> ShowS)
-> (AnyUtxoData'ParsedState -> String)
-> ([AnyUtxoData'ParsedState] -> ShowS)
-> Show AnyUtxoData'ParsedState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnyUtxoData'ParsedState -> ShowS
showsPrec :: Int -> AnyUtxoData'ParsedState -> ShowS
$cshow :: AnyUtxoData'ParsedState -> String
show :: AnyUtxoData'ParsedState -> String
$cshowList :: [AnyUtxoData'ParsedState] -> ShowS
showList :: [AnyUtxoData'ParsedState] -> ShowS
Prelude.Show, AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
(AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool)
-> (AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool)
-> Eq AnyUtxoData'ParsedState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
== :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
$c/= :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
/= :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
Prelude.Eq, Eq AnyUtxoData'ParsedState
Eq AnyUtxoData'ParsedState =>
(AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Ordering)
-> (AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool)
-> (AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool)
-> (AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool)
-> (AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool)
-> (AnyUtxoData'ParsedState
-> AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState)
-> (AnyUtxoData'ParsedState
-> AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState)
-> Ord AnyUtxoData'ParsedState
AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Ordering
AnyUtxoData'ParsedState
-> AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState
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 :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Ordering
compare :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Ordering
$c< :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
< :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
$c<= :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
<= :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
$c> :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
> :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
$c>= :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
>= :: AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState -> Bool
$cmax :: AnyUtxoData'ParsedState
-> AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState
max :: AnyUtxoData'ParsedState
-> AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState
$cmin :: AnyUtxoData'ParsedState
-> AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState
min :: AnyUtxoData'ParsedState
-> AnyUtxoData'ParsedState -> AnyUtxoData'ParsedState
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyUtxoData "txoRef" TxoRef where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "txoRef"
-> (TxoRef -> f TxoRef) -> AnyUtxoData -> f AnyUtxoData
fieldOf Proxy# "txoRef"
_
= ((Maybe TxoRef -> f (Maybe TxoRef))
-> AnyUtxoData -> f AnyUtxoData)
-> ((TxoRef -> f TxoRef) -> Maybe TxoRef -> f (Maybe TxoRef))
-> (TxoRef -> f TxoRef)
-> AnyUtxoData
-> f AnyUtxoData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoData -> Maybe TxoRef)
-> (AnyUtxoData -> Maybe TxoRef -> AnyUtxoData)
-> Lens AnyUtxoData AnyUtxoData (Maybe TxoRef) (Maybe TxoRef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoData -> Maybe TxoRef
_AnyUtxoData'txoRef (\ AnyUtxoData
x__ Maybe TxoRef
y__ -> AnyUtxoData
x__ {_AnyUtxoData'txoRef = y__}))
(TxoRef -> Lens' (Maybe TxoRef) TxoRef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxoRef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'txoRef" (Prelude.Maybe TxoRef) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'txoRef"
-> (Maybe TxoRef -> f (Maybe TxoRef))
-> AnyUtxoData
-> f AnyUtxoData
fieldOf Proxy# "maybe'txoRef"
_
= ((Maybe TxoRef -> f (Maybe TxoRef))
-> AnyUtxoData -> f AnyUtxoData)
-> ((Maybe TxoRef -> f (Maybe TxoRef))
-> Maybe TxoRef -> f (Maybe TxoRef))
-> (Maybe TxoRef -> f (Maybe TxoRef))
-> AnyUtxoData
-> f AnyUtxoData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoData -> Maybe TxoRef)
-> (AnyUtxoData -> Maybe TxoRef -> AnyUtxoData)
-> Lens AnyUtxoData AnyUtxoData (Maybe TxoRef) (Maybe TxoRef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoData -> Maybe TxoRef
_AnyUtxoData'txoRef (\ AnyUtxoData
x__ Maybe TxoRef
y__ -> AnyUtxoData
x__ {_AnyUtxoData'txoRef = y__}))
(Maybe TxoRef -> f (Maybe TxoRef))
-> Maybe TxoRef -> f (Maybe TxoRef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyUtxoData "nativeBytes" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nativeBytes"
-> (ByteString -> f ByteString) -> AnyUtxoData -> f AnyUtxoData
fieldOf Proxy# "nativeBytes"
_
= ((ByteString -> f ByteString) -> AnyUtxoData -> f AnyUtxoData)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AnyUtxoData
-> f AnyUtxoData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoData -> ByteString)
-> (AnyUtxoData -> ByteString -> AnyUtxoData)
-> Lens AnyUtxoData AnyUtxoData ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoData -> ByteString
_AnyUtxoData'nativeBytes
(\ AnyUtxoData
x__ ByteString
y__ -> AnyUtxoData
x__ {_AnyUtxoData'nativeBytes = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'parsedState" (Prelude.Maybe AnyUtxoData'ParsedState) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'parsedState"
-> (Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> AnyUtxoData
-> f AnyUtxoData
fieldOf Proxy# "maybe'parsedState"
_
= ((Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> AnyUtxoData -> f AnyUtxoData)
-> ((Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> (Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> AnyUtxoData
-> f AnyUtxoData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoData -> Maybe AnyUtxoData'ParsedState)
-> (AnyUtxoData -> Maybe AnyUtxoData'ParsedState -> AnyUtxoData)
-> Lens
AnyUtxoData
AnyUtxoData
(Maybe AnyUtxoData'ParsedState)
(Maybe AnyUtxoData'ParsedState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoData -> Maybe AnyUtxoData'ParsedState
_AnyUtxoData'parsedState
(\ AnyUtxoData
x__ Maybe AnyUtxoData'ParsedState
y__ -> AnyUtxoData
x__ {_AnyUtxoData'parsedState = y__}))
(Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyUtxoData "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cardano"
-> (Maybe TxOutput -> f (Maybe TxOutput))
-> AnyUtxoData
-> f AnyUtxoData
fieldOf Proxy# "maybe'cardano"
_
= ((Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> AnyUtxoData -> f AnyUtxoData)
-> ((Maybe TxOutput -> f (Maybe TxOutput))
-> Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> (Maybe TxOutput -> f (Maybe TxOutput))
-> AnyUtxoData
-> f AnyUtxoData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoData -> Maybe AnyUtxoData'ParsedState)
-> (AnyUtxoData -> Maybe AnyUtxoData'ParsedState -> AnyUtxoData)
-> Lens
AnyUtxoData
AnyUtxoData
(Maybe AnyUtxoData'ParsedState)
(Maybe AnyUtxoData'ParsedState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoData -> Maybe AnyUtxoData'ParsedState
_AnyUtxoData'parsedState
(\ AnyUtxoData
x__ Maybe AnyUtxoData'ParsedState
y__ -> AnyUtxoData
x__ {_AnyUtxoData'parsedState = y__}))
((Maybe AnyUtxoData'ParsedState -> Maybe TxOutput)
-> (Maybe AnyUtxoData'ParsedState
-> Maybe TxOutput -> Maybe AnyUtxoData'ParsedState)
-> Lens
(Maybe AnyUtxoData'ParsedState)
(Maybe AnyUtxoData'ParsedState)
(Maybe TxOutput)
(Maybe TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyUtxoData'ParsedState
x__
-> case Maybe AnyUtxoData'ParsedState
x__ of
(Prelude.Just (AnyUtxoData'Cardano TxOutput
x__val)) -> TxOutput -> Maybe TxOutput
forall a. a -> Maybe a
Prelude.Just TxOutput
x__val
Maybe AnyUtxoData'ParsedState
_otherwise -> Maybe TxOutput
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyUtxoData'ParsedState
_ Maybe TxOutput
y__ -> (TxOutput -> AnyUtxoData'ParsedState)
-> Maybe TxOutput -> Maybe AnyUtxoData'ParsedState
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxOutput -> AnyUtxoData'ParsedState
AnyUtxoData'Cardano Maybe TxOutput
y__))
instance Data.ProtoLens.Field.HasField AnyUtxoData "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cardano"
-> (TxOutput -> f TxOutput) -> AnyUtxoData -> f AnyUtxoData
fieldOf Proxy# "cardano"
_
= ((Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> AnyUtxoData -> f AnyUtxoData)
-> ((TxOutput -> f TxOutput)
-> Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> (TxOutput -> f TxOutput)
-> AnyUtxoData
-> f AnyUtxoData
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoData -> Maybe AnyUtxoData'ParsedState)
-> (AnyUtxoData -> Maybe AnyUtxoData'ParsedState -> AnyUtxoData)
-> Lens
AnyUtxoData
AnyUtxoData
(Maybe AnyUtxoData'ParsedState)
(Maybe AnyUtxoData'ParsedState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoData -> Maybe AnyUtxoData'ParsedState
_AnyUtxoData'parsedState
(\ AnyUtxoData
x__ Maybe AnyUtxoData'ParsedState
y__ -> AnyUtxoData
x__ {_AnyUtxoData'parsedState = y__}))
(((Maybe TxOutput -> f (Maybe TxOutput))
-> Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState))
-> ((TxOutput -> f TxOutput)
-> Maybe TxOutput -> f (Maybe TxOutput))
-> (TxOutput -> f TxOutput)
-> Maybe AnyUtxoData'ParsedState
-> f (Maybe AnyUtxoData'ParsedState)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe AnyUtxoData'ParsedState -> Maybe TxOutput)
-> (Maybe AnyUtxoData'ParsedState
-> Maybe TxOutput -> Maybe AnyUtxoData'ParsedState)
-> Lens
(Maybe AnyUtxoData'ParsedState)
(Maybe AnyUtxoData'ParsedState)
(Maybe TxOutput)
(Maybe TxOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyUtxoData'ParsedState
x__
-> case Maybe AnyUtxoData'ParsedState
x__ of
(Prelude.Just (AnyUtxoData'Cardano TxOutput
x__val)) -> TxOutput -> Maybe TxOutput
forall a. a -> Maybe a
Prelude.Just TxOutput
x__val
Maybe AnyUtxoData'ParsedState
_otherwise -> Maybe TxOutput
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyUtxoData'ParsedState
_ Maybe TxOutput
y__ -> (TxOutput -> AnyUtxoData'ParsedState)
-> Maybe TxOutput -> Maybe AnyUtxoData'ParsedState
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxOutput -> AnyUtxoData'ParsedState
AnyUtxoData'Cardano Maybe TxOutput
y__))
(TxOutput -> Lens' (Maybe TxOutput) TxOutput
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxOutput
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyUtxoData where
messageName :: Proxy AnyUtxoData -> Text
messageName Proxy AnyUtxoData
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.AnyUtxoData"
packedMessageDescriptor :: Proxy AnyUtxoData -> ByteString
packedMessageDescriptor Proxy AnyUtxoData
_
= ByteString
"\n\
\\vAnyUtxoData\DC26\n\
\\atxo_ref\CAN\SOH \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\DC2!\n\
\\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC2=\n\
\\acardano\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\SO\n\
\\fparsed_state"
packedFileDescriptor :: Proxy AnyUtxoData -> ByteString
packedFileDescriptor Proxy AnyUtxoData
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor AnyUtxoData)
fieldsByTag
= let
txoRef__field_descriptor :: FieldDescriptor AnyUtxoData
txoRef__field_descriptor
= String
-> FieldTypeDescriptor TxoRef
-> FieldAccessor AnyUtxoData TxoRef
-> FieldDescriptor AnyUtxoData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"txo_ref"
(MessageOrGroup -> FieldTypeDescriptor TxoRef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TxoRef)
(Lens AnyUtxoData AnyUtxoData (Maybe TxoRef) (Maybe TxoRef)
-> FieldAccessor AnyUtxoData TxoRef
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'txoRef")) ::
Data.ProtoLens.FieldDescriptor AnyUtxoData
nativeBytes__field_descriptor :: FieldDescriptor AnyUtxoData
nativeBytes__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AnyUtxoData ByteString
-> FieldDescriptor AnyUtxoData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"native_bytes"
(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 AnyUtxoData AnyUtxoData ByteString ByteString
-> FieldAccessor AnyUtxoData 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 @"nativeBytes")) ::
Data.ProtoLens.FieldDescriptor AnyUtxoData
cardano__field_descriptor :: FieldDescriptor AnyUtxoData
cardano__field_descriptor
= String
-> FieldTypeDescriptor TxOutput
-> FieldAccessor AnyUtxoData TxOutput
-> FieldDescriptor AnyUtxoData
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cardano"
(MessageOrGroup -> FieldTypeDescriptor TxOutput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput)
(Lens' AnyUtxoData (Maybe TxOutput)
-> FieldAccessor AnyUtxoData TxOutput
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 AnyUtxoData
in
[(Tag, FieldDescriptor AnyUtxoData)]
-> Map Tag (FieldDescriptor AnyUtxoData)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AnyUtxoData
txoRef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AnyUtxoData
nativeBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AnyUtxoData
cardano__field_descriptor)]
unknownFields :: Lens' AnyUtxoData FieldSet
unknownFields
= (AnyUtxoData -> FieldSet)
-> (AnyUtxoData -> FieldSet -> AnyUtxoData)
-> Lens' AnyUtxoData FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoData -> FieldSet
_AnyUtxoData'_unknownFields
(\ AnyUtxoData
x__ FieldSet
y__ -> AnyUtxoData
x__ {_AnyUtxoData'_unknownFields = y__})
defMessage :: AnyUtxoData
defMessage
= AnyUtxoData'_constructor
{_AnyUtxoData'txoRef :: Maybe TxoRef
_AnyUtxoData'txoRef = Maybe TxoRef
forall a. Maybe a
Prelude.Nothing,
_AnyUtxoData'nativeBytes :: ByteString
_AnyUtxoData'nativeBytes = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AnyUtxoData'parsedState :: Maybe AnyUtxoData'ParsedState
_AnyUtxoData'parsedState = Maybe AnyUtxoData'ParsedState
forall a. Maybe a
Prelude.Nothing,
_AnyUtxoData'_unknownFields :: FieldSet
_AnyUtxoData'_unknownFields = []}
parseMessage :: Parser AnyUtxoData
parseMessage
= let
loop ::
AnyUtxoData -> Data.ProtoLens.Encoding.Bytes.Parser AnyUtxoData
loop :: AnyUtxoData -> Parser AnyUtxoData
loop AnyUtxoData
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
AnyUtxoData -> Parser AnyUtxoData
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter AnyUtxoData AnyUtxoData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyUtxoData -> AnyUtxoData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyUtxoData FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyUtxoData FieldSet
Setter AnyUtxoData AnyUtxoData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AnyUtxoData
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do TxoRef
y <- Parser TxoRef -> String -> Parser TxoRef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TxoRef -> Parser TxoRef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxoRef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"txo_ref"
AnyUtxoData -> Parser AnyUtxoData
loop (Setter AnyUtxoData AnyUtxoData TxoRef TxoRef
-> TxoRef -> AnyUtxoData -> AnyUtxoData
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"txoRef") TxoRef
y AnyUtxoData
x)
Word64
18
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"native_bytes"
AnyUtxoData -> Parser AnyUtxoData
loop
(Setter AnyUtxoData AnyUtxoData ByteString ByteString
-> ByteString -> AnyUtxoData -> AnyUtxoData
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nativeBytes") ByteString
y AnyUtxoData
x)
Word64
26
-> do TxOutput
y <- Parser TxOutput -> String -> Parser TxOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TxOutput -> Parser TxOutput
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxOutput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"cardano"
AnyUtxoData -> Parser AnyUtxoData
loop (Setter AnyUtxoData AnyUtxoData TxOutput TxOutput
-> TxOutput -> AnyUtxoData -> AnyUtxoData
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cardano") TxOutput
y AnyUtxoData
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
AnyUtxoData -> Parser AnyUtxoData
loop
(Setter AnyUtxoData AnyUtxoData FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyUtxoData -> AnyUtxoData
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyUtxoData FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyUtxoData FieldSet
Setter AnyUtxoData AnyUtxoData FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AnyUtxoData
x)
in
Parser AnyUtxoData -> String -> Parser AnyUtxoData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do AnyUtxoData -> Parser AnyUtxoData
loop AnyUtxoData
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AnyUtxoData"
buildMessage :: AnyUtxoData -> Builder
buildMessage
= \ AnyUtxoData
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TxoRef)
AnyUtxoData
AnyUtxoData
(Maybe TxoRef)
(Maybe TxoRef)
-> AnyUtxoData -> Maybe TxoRef
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'txoRef") AnyUtxoData
_x
of
Maybe TxoRef
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TxoRef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (TxoRef -> ByteString) -> TxoRef -> 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))
TxoRef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxoRef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v
= FoldLike ByteString AnyUtxoData AnyUtxoData ByteString ByteString
-> AnyUtxoData -> 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 @"nativeBytes") AnyUtxoData
_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.<>)
(case
FoldLike
(Maybe AnyUtxoData'ParsedState)
AnyUtxoData
AnyUtxoData
(Maybe AnyUtxoData'ParsedState)
(Maybe AnyUtxoData'ParsedState)
-> AnyUtxoData -> Maybe AnyUtxoData'ParsedState
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'parsedState") AnyUtxoData
_x
of
Maybe AnyUtxoData'ParsedState
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (AnyUtxoData'Cardano TxOutput
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (TxOutput -> ByteString) -> TxOutput -> 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))
TxOutput -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxOutput
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet AnyUtxoData AnyUtxoData FieldSet FieldSet
-> AnyUtxoData -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AnyUtxoData AnyUtxoData FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyUtxoData FieldSet
Data.ProtoLens.unknownFields AnyUtxoData
_x))))
instance Control.DeepSeq.NFData AnyUtxoData where
rnf :: AnyUtxoData -> ()
rnf
= \ AnyUtxoData
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyUtxoData -> FieldSet
_AnyUtxoData'_unknownFields AnyUtxoData
x__)
(Maybe TxoRef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyUtxoData -> Maybe TxoRef
_AnyUtxoData'txoRef AnyUtxoData
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyUtxoData -> ByteString
_AnyUtxoData'nativeBytes AnyUtxoData
x__)
(Maybe AnyUtxoData'ParsedState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AnyUtxoData -> Maybe AnyUtxoData'ParsedState
_AnyUtxoData'parsedState AnyUtxoData
x__) ())))
instance Control.DeepSeq.NFData AnyUtxoData'ParsedState where
rnf :: AnyUtxoData'ParsedState -> ()
rnf (AnyUtxoData'Cardano TxOutput
x__) = TxOutput -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TxOutput
x__
_AnyUtxoData'Cardano ::
Data.ProtoLens.Prism.Prism' AnyUtxoData'ParsedState Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput
_AnyUtxoData'Cardano :: Prism' AnyUtxoData'ParsedState TxOutput
_AnyUtxoData'Cardano
= (TxOutput -> AnyUtxoData'ParsedState)
-> (AnyUtxoData'ParsedState -> Maybe TxOutput)
-> Prism' AnyUtxoData'ParsedState TxOutput
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TxOutput -> AnyUtxoData'ParsedState
AnyUtxoData'Cardano
(\ AnyUtxoData'ParsedState
p__
-> case AnyUtxoData'ParsedState
p__ of (AnyUtxoData'Cardano TxOutput
p__val) -> TxOutput -> Maybe TxOutput
forall a. a -> Maybe a
Prelude.Just TxOutput
p__val)
data AnyUtxoPattern
= AnyUtxoPattern'_constructor {AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern
_AnyUtxoPattern'utxoPattern :: !(Prelude.Maybe AnyUtxoPattern'UtxoPattern),
AnyUtxoPattern -> FieldSet
_AnyUtxoPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (AnyUtxoPattern -> AnyUtxoPattern -> Bool
(AnyUtxoPattern -> AnyUtxoPattern -> Bool)
-> (AnyUtxoPattern -> AnyUtxoPattern -> Bool) -> Eq AnyUtxoPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
== :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
$c/= :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
/= :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
Prelude.Eq, Eq AnyUtxoPattern
Eq AnyUtxoPattern =>
(AnyUtxoPattern -> AnyUtxoPattern -> Ordering)
-> (AnyUtxoPattern -> AnyUtxoPattern -> Bool)
-> (AnyUtxoPattern -> AnyUtxoPattern -> Bool)
-> (AnyUtxoPattern -> AnyUtxoPattern -> Bool)
-> (AnyUtxoPattern -> AnyUtxoPattern -> Bool)
-> (AnyUtxoPattern -> AnyUtxoPattern -> AnyUtxoPattern)
-> (AnyUtxoPattern -> AnyUtxoPattern -> AnyUtxoPattern)
-> Ord AnyUtxoPattern
AnyUtxoPattern -> AnyUtxoPattern -> Bool
AnyUtxoPattern -> AnyUtxoPattern -> Ordering
AnyUtxoPattern -> AnyUtxoPattern -> AnyUtxoPattern
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 :: AnyUtxoPattern -> AnyUtxoPattern -> Ordering
compare :: AnyUtxoPattern -> AnyUtxoPattern -> Ordering
$c< :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
< :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
$c<= :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
<= :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
$c> :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
> :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
$c>= :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
>= :: AnyUtxoPattern -> AnyUtxoPattern -> Bool
$cmax :: AnyUtxoPattern -> AnyUtxoPattern -> AnyUtxoPattern
max :: AnyUtxoPattern -> AnyUtxoPattern -> AnyUtxoPattern
$cmin :: AnyUtxoPattern -> AnyUtxoPattern -> AnyUtxoPattern
min :: AnyUtxoPattern -> AnyUtxoPattern -> AnyUtxoPattern
Prelude.Ord)
instance Prelude.Show AnyUtxoPattern where
showsPrec :: Int -> AnyUtxoPattern -> ShowS
showsPrec Int
_ AnyUtxoPattern
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(AnyUtxoPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AnyUtxoPattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data AnyUtxoPattern'UtxoPattern
= AnyUtxoPattern'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern
deriving stock (Int -> AnyUtxoPattern'UtxoPattern -> ShowS
[AnyUtxoPattern'UtxoPattern] -> ShowS
AnyUtxoPattern'UtxoPattern -> String
(Int -> AnyUtxoPattern'UtxoPattern -> ShowS)
-> (AnyUtxoPattern'UtxoPattern -> String)
-> ([AnyUtxoPattern'UtxoPattern] -> ShowS)
-> Show AnyUtxoPattern'UtxoPattern
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnyUtxoPattern'UtxoPattern -> ShowS
showsPrec :: Int -> AnyUtxoPattern'UtxoPattern -> ShowS
$cshow :: AnyUtxoPattern'UtxoPattern -> String
show :: AnyUtxoPattern'UtxoPattern -> String
$cshowList :: [AnyUtxoPattern'UtxoPattern] -> ShowS
showList :: [AnyUtxoPattern'UtxoPattern] -> ShowS
Prelude.Show, AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
(AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool)
-> (AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Bool)
-> Eq AnyUtxoPattern'UtxoPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
== :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
$c/= :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
/= :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
Prelude.Eq, Eq AnyUtxoPattern'UtxoPattern
Eq AnyUtxoPattern'UtxoPattern =>
(AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Ordering)
-> (AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Bool)
-> (AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Bool)
-> (AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Bool)
-> (AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Bool)
-> (AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern)
-> (AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern)
-> Ord AnyUtxoPattern'UtxoPattern
AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Ordering
AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern
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 :: AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Ordering
compare :: AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> Ordering
$c< :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
< :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
$c<= :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
<= :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
$c> :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
> :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
$c>= :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
>= :: AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern -> Bool
$cmax :: AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern
max :: AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern
$cmin :: AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern
min :: AnyUtxoPattern'UtxoPattern
-> AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern'UtxoPattern
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyUtxoPattern "maybe'utxoPattern" (Prelude.Maybe AnyUtxoPattern'UtxoPattern) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'utxoPattern"
-> (Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> AnyUtxoPattern
-> f AnyUtxoPattern
fieldOf Proxy# "maybe'utxoPattern"
_
= ((Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> AnyUtxoPattern -> f AnyUtxoPattern)
-> ((Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> (Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> AnyUtxoPattern
-> f AnyUtxoPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern)
-> (AnyUtxoPattern
-> Maybe AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern)
-> Lens
AnyUtxoPattern
AnyUtxoPattern
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe AnyUtxoPattern'UtxoPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern
_AnyUtxoPattern'utxoPattern
(\ AnyUtxoPattern
x__ Maybe AnyUtxoPattern'UtxoPattern
y__ -> AnyUtxoPattern
x__ {_AnyUtxoPattern'utxoPattern = y__}))
(Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyUtxoPattern "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cardano"
-> (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> AnyUtxoPattern
-> f AnyUtxoPattern
fieldOf Proxy# "maybe'cardano"
_
= ((Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> AnyUtxoPattern -> f AnyUtxoPattern)
-> ((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> (Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> AnyUtxoPattern
-> f AnyUtxoPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern)
-> (AnyUtxoPattern
-> Maybe AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern)
-> Lens
AnyUtxoPattern
AnyUtxoPattern
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe AnyUtxoPattern'UtxoPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern
_AnyUtxoPattern'utxoPattern
(\ AnyUtxoPattern
x__ Maybe AnyUtxoPattern'UtxoPattern
y__ -> AnyUtxoPattern
x__ {_AnyUtxoPattern'utxoPattern = y__}))
((Maybe AnyUtxoPattern'UtxoPattern -> Maybe TxOutputPattern)
-> (Maybe AnyUtxoPattern'UtxoPattern
-> Maybe TxOutputPattern -> Maybe AnyUtxoPattern'UtxoPattern)
-> Lens
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe TxOutputPattern)
(Maybe TxOutputPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyUtxoPattern'UtxoPattern
x__
-> case Maybe AnyUtxoPattern'UtxoPattern
x__ of
(Prelude.Just (AnyUtxoPattern'Cardano TxOutputPattern
x__val))
-> TxOutputPattern -> Maybe TxOutputPattern
forall a. a -> Maybe a
Prelude.Just TxOutputPattern
x__val
Maybe AnyUtxoPattern'UtxoPattern
_otherwise -> Maybe TxOutputPattern
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyUtxoPattern'UtxoPattern
_ Maybe TxOutputPattern
y__ -> (TxOutputPattern -> AnyUtxoPattern'UtxoPattern)
-> Maybe TxOutputPattern -> Maybe AnyUtxoPattern'UtxoPattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxOutputPattern -> AnyUtxoPattern'UtxoPattern
AnyUtxoPattern'Cardano Maybe TxOutputPattern
y__))
instance Data.ProtoLens.Field.HasField AnyUtxoPattern "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cardano"
-> (TxOutputPattern -> f TxOutputPattern)
-> AnyUtxoPattern
-> f AnyUtxoPattern
fieldOf Proxy# "cardano"
_
= ((Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> AnyUtxoPattern -> f AnyUtxoPattern)
-> ((TxOutputPattern -> f TxOutputPattern)
-> Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> (TxOutputPattern -> f TxOutputPattern)
-> AnyUtxoPattern
-> f AnyUtxoPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern)
-> (AnyUtxoPattern
-> Maybe AnyUtxoPattern'UtxoPattern -> AnyUtxoPattern)
-> Lens
AnyUtxoPattern
AnyUtxoPattern
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe AnyUtxoPattern'UtxoPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern
_AnyUtxoPattern'utxoPattern
(\ AnyUtxoPattern
x__ Maybe AnyUtxoPattern'UtxoPattern
y__ -> AnyUtxoPattern
x__ {_AnyUtxoPattern'utxoPattern = y__}))
(((Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern))
-> ((TxOutputPattern -> f TxOutputPattern)
-> Maybe TxOutputPattern -> f (Maybe TxOutputPattern))
-> (TxOutputPattern -> f TxOutputPattern)
-> Maybe AnyUtxoPattern'UtxoPattern
-> f (Maybe AnyUtxoPattern'UtxoPattern)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe AnyUtxoPattern'UtxoPattern -> Maybe TxOutputPattern)
-> (Maybe AnyUtxoPattern'UtxoPattern
-> Maybe TxOutputPattern -> Maybe AnyUtxoPattern'UtxoPattern)
-> Lens
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe TxOutputPattern)
(Maybe TxOutputPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe AnyUtxoPattern'UtxoPattern
x__
-> case Maybe AnyUtxoPattern'UtxoPattern
x__ of
(Prelude.Just (AnyUtxoPattern'Cardano TxOutputPattern
x__val))
-> TxOutputPattern -> Maybe TxOutputPattern
forall a. a -> Maybe a
Prelude.Just TxOutputPattern
x__val
Maybe AnyUtxoPattern'UtxoPattern
_otherwise -> Maybe TxOutputPattern
forall a. Maybe a
Prelude.Nothing)
(\ Maybe AnyUtxoPattern'UtxoPattern
_ Maybe TxOutputPattern
y__ -> (TxOutputPattern -> AnyUtxoPattern'UtxoPattern)
-> Maybe TxOutputPattern -> Maybe AnyUtxoPattern'UtxoPattern
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxOutputPattern -> AnyUtxoPattern'UtxoPattern
AnyUtxoPattern'Cardano Maybe TxOutputPattern
y__))
(TxOutputPattern -> Lens' (Maybe TxOutputPattern) TxOutputPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxOutputPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyUtxoPattern where
messageName :: Proxy AnyUtxoPattern -> Text
messageName Proxy AnyUtxoPattern
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.AnyUtxoPattern"
packedMessageDescriptor :: Proxy AnyUtxoPattern -> ByteString
packedMessageDescriptor Proxy AnyUtxoPattern
_
= ByteString
"\n\
\\SOAnyUtxoPattern\DC2D\n\
\\acardano\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternH\NULR\acardanoB\SO\n\
\\futxo_pattern"
packedFileDescriptor :: Proxy AnyUtxoPattern -> ByteString
packedFileDescriptor Proxy AnyUtxoPattern
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor AnyUtxoPattern)
fieldsByTag
= let
cardano__field_descriptor :: FieldDescriptor AnyUtxoPattern
cardano__field_descriptor
= String
-> FieldTypeDescriptor TxOutputPattern
-> FieldAccessor AnyUtxoPattern TxOutputPattern
-> FieldDescriptor AnyUtxoPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cardano"
(MessageOrGroup -> FieldTypeDescriptor TxOutputPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern)
(Lens' AnyUtxoPattern (Maybe TxOutputPattern)
-> FieldAccessor AnyUtxoPattern TxOutputPattern
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 AnyUtxoPattern
in
[(Tag, FieldDescriptor AnyUtxoPattern)]
-> Map Tag (FieldDescriptor AnyUtxoPattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AnyUtxoPattern
cardano__field_descriptor)]
unknownFields :: Lens' AnyUtxoPattern FieldSet
unknownFields
= (AnyUtxoPattern -> FieldSet)
-> (AnyUtxoPattern -> FieldSet -> AnyUtxoPattern)
-> Lens' AnyUtxoPattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AnyUtxoPattern -> FieldSet
_AnyUtxoPattern'_unknownFields
(\ AnyUtxoPattern
x__ FieldSet
y__ -> AnyUtxoPattern
x__ {_AnyUtxoPattern'_unknownFields = y__})
defMessage :: AnyUtxoPattern
defMessage
= AnyUtxoPattern'_constructor
{_AnyUtxoPattern'utxoPattern :: Maybe AnyUtxoPattern'UtxoPattern
_AnyUtxoPattern'utxoPattern = Maybe AnyUtxoPattern'UtxoPattern
forall a. Maybe a
Prelude.Nothing,
_AnyUtxoPattern'_unknownFields :: FieldSet
_AnyUtxoPattern'_unknownFields = []}
parseMessage :: Parser AnyUtxoPattern
parseMessage
= let
loop ::
AnyUtxoPattern
-> Data.ProtoLens.Encoding.Bytes.Parser AnyUtxoPattern
loop :: AnyUtxoPattern -> Parser AnyUtxoPattern
loop AnyUtxoPattern
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
AnyUtxoPattern -> Parser AnyUtxoPattern
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter AnyUtxoPattern AnyUtxoPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyUtxoPattern -> AnyUtxoPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyUtxoPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyUtxoPattern FieldSet
Setter AnyUtxoPattern AnyUtxoPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AnyUtxoPattern
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do TxOutputPattern
y <- Parser TxOutputPattern -> String -> Parser TxOutputPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TxOutputPattern -> Parser TxOutputPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TxOutputPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"cardano"
AnyUtxoPattern -> Parser AnyUtxoPattern
loop (Setter
AnyUtxoPattern AnyUtxoPattern TxOutputPattern TxOutputPattern
-> TxOutputPattern -> AnyUtxoPattern -> AnyUtxoPattern
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cardano") TxOutputPattern
y AnyUtxoPattern
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
AnyUtxoPattern -> Parser AnyUtxoPattern
loop
(Setter AnyUtxoPattern AnyUtxoPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyUtxoPattern -> AnyUtxoPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f AnyUtxoPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyUtxoPattern FieldSet
Setter AnyUtxoPattern AnyUtxoPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AnyUtxoPattern
x)
in
Parser AnyUtxoPattern -> String -> Parser AnyUtxoPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do AnyUtxoPattern -> Parser AnyUtxoPattern
loop AnyUtxoPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AnyUtxoPattern"
buildMessage :: AnyUtxoPattern -> Builder
buildMessage
= \ AnyUtxoPattern
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe AnyUtxoPattern'UtxoPattern)
AnyUtxoPattern
AnyUtxoPattern
(Maybe AnyUtxoPattern'UtxoPattern)
(Maybe AnyUtxoPattern'UtxoPattern)
-> AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern
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'utxoPattern") AnyUtxoPattern
_x
of
Maybe AnyUtxoPattern'UtxoPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (AnyUtxoPattern'Cardano TxOutputPattern
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (TxOutputPattern -> ByteString) -> TxOutputPattern -> 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))
TxOutputPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxOutputPattern
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet AnyUtxoPattern AnyUtxoPattern FieldSet FieldSet
-> AnyUtxoPattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AnyUtxoPattern AnyUtxoPattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyUtxoPattern FieldSet
Data.ProtoLens.unknownFields AnyUtxoPattern
_x))
instance Control.DeepSeq.NFData AnyUtxoPattern where
rnf :: AnyUtxoPattern -> ()
rnf
= \ AnyUtxoPattern
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AnyUtxoPattern -> FieldSet
_AnyUtxoPattern'_unknownFields AnyUtxoPattern
x__)
(Maybe AnyUtxoPattern'UtxoPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AnyUtxoPattern -> Maybe AnyUtxoPattern'UtxoPattern
_AnyUtxoPattern'utxoPattern AnyUtxoPattern
x__) ())
instance Control.DeepSeq.NFData AnyUtxoPattern'UtxoPattern where
rnf :: AnyUtxoPattern'UtxoPattern -> ()
rnf (AnyUtxoPattern'Cardano TxOutputPattern
x__) = TxOutputPattern -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TxOutputPattern
x__
_AnyUtxoPattern'Cardano ::
Data.ProtoLens.Prism.Prism' AnyUtxoPattern'UtxoPattern Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern
_AnyUtxoPattern'Cardano :: Prism' AnyUtxoPattern'UtxoPattern TxOutputPattern
_AnyUtxoPattern'Cardano
= (TxOutputPattern -> AnyUtxoPattern'UtxoPattern)
-> (AnyUtxoPattern'UtxoPattern -> Maybe TxOutputPattern)
-> Prism' AnyUtxoPattern'UtxoPattern TxOutputPattern
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TxOutputPattern -> AnyUtxoPattern'UtxoPattern
AnyUtxoPattern'Cardano
(\ AnyUtxoPattern'UtxoPattern
p__
-> case AnyUtxoPattern'UtxoPattern
p__ of
(AnyUtxoPattern'Cardano TxOutputPattern
p__val) -> TxOutputPattern -> Maybe TxOutputPattern
forall a. a -> Maybe a
Prelude.Just TxOutputPattern
p__val)
data ChainPoint
= ChainPoint'_constructor {ChainPoint -> Word64
_ChainPoint'slot :: !Data.Word.Word64,
ChainPoint -> ByteString
_ChainPoint'hash :: !Data.ByteString.ByteString,
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.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"
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
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)]
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'_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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ChainPoint -> Parser ChainPoint
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ChainPoint ChainPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ChainPoint -> ChainPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ChainPoint FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ChainPoint FieldSet
Setter ChainPoint ChainPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ChainPoint
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
8 -> do Word64
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"
ChainPoint -> Parser ChainPoint
loop (Setter ChainPoint ChainPoint Word64 Word64
-> Word64 -> ChainPoint -> ChainPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot") Word64
y ChainPoint
x)
Word64
18
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"hash"
ChainPoint -> Parser ChainPoint
loop (Setter ChainPoint ChainPoint ByteString ByteString
-> ByteString -> ChainPoint -> ChainPoint
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") ByteString
y ChainPoint
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ChainPoint -> Parser ChainPoint
loop
(Setter ChainPoint ChainPoint FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ChainPoint -> ChainPoint
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ChainPoint FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ChainPoint FieldSet
Setter ChainPoint ChainPoint FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ChainPoint
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))
(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__) ()))
data ReadDataRequest
= ReadDataRequest'_constructor {ReadDataRequest -> Vector ByteString
_ReadDataRequest'keys :: !(Data.Vector.Vector Data.ByteString.ByteString),
ReadDataRequest -> Maybe FieldMask
_ReadDataRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask),
ReadDataRequest -> FieldSet
_ReadDataRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ReadDataRequest -> ReadDataRequest -> Bool
(ReadDataRequest -> ReadDataRequest -> Bool)
-> (ReadDataRequest -> ReadDataRequest -> Bool)
-> Eq ReadDataRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadDataRequest -> ReadDataRequest -> Bool
== :: ReadDataRequest -> ReadDataRequest -> Bool
$c/= :: ReadDataRequest -> ReadDataRequest -> Bool
/= :: ReadDataRequest -> ReadDataRequest -> Bool
Prelude.Eq, Eq ReadDataRequest
Eq ReadDataRequest =>
(ReadDataRequest -> ReadDataRequest -> Ordering)
-> (ReadDataRequest -> ReadDataRequest -> Bool)
-> (ReadDataRequest -> ReadDataRequest -> Bool)
-> (ReadDataRequest -> ReadDataRequest -> Bool)
-> (ReadDataRequest -> ReadDataRequest -> Bool)
-> (ReadDataRequest -> ReadDataRequest -> ReadDataRequest)
-> (ReadDataRequest -> ReadDataRequest -> ReadDataRequest)
-> Ord ReadDataRequest
ReadDataRequest -> ReadDataRequest -> Bool
ReadDataRequest -> ReadDataRequest -> Ordering
ReadDataRequest -> ReadDataRequest -> ReadDataRequest
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 :: ReadDataRequest -> ReadDataRequest -> Ordering
compare :: ReadDataRequest -> ReadDataRequest -> Ordering
$c< :: ReadDataRequest -> ReadDataRequest -> Bool
< :: ReadDataRequest -> ReadDataRequest -> Bool
$c<= :: ReadDataRequest -> ReadDataRequest -> Bool
<= :: ReadDataRequest -> ReadDataRequest -> Bool
$c> :: ReadDataRequest -> ReadDataRequest -> Bool
> :: ReadDataRequest -> ReadDataRequest -> Bool
$c>= :: ReadDataRequest -> ReadDataRequest -> Bool
>= :: ReadDataRequest -> ReadDataRequest -> Bool
$cmax :: ReadDataRequest -> ReadDataRequest -> ReadDataRequest
max :: ReadDataRequest -> ReadDataRequest -> ReadDataRequest
$cmin :: ReadDataRequest -> ReadDataRequest -> ReadDataRequest
min :: ReadDataRequest -> ReadDataRequest -> ReadDataRequest
Prelude.Ord)
instance Prelude.Show ReadDataRequest where
showsPrec :: Int -> ReadDataRequest -> ShowS
showsPrec Int
_ ReadDataRequest
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ReadDataRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadDataRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadDataRequest "keys" [Data.ByteString.ByteString] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "keys"
-> ([ByteString] -> f [ByteString])
-> ReadDataRequest
-> f ReadDataRequest
fieldOf Proxy# "keys"
_
= ((Vector ByteString -> f (Vector ByteString))
-> ReadDataRequest -> f ReadDataRequest)
-> (([ByteString] -> f [ByteString])
-> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> ReadDataRequest
-> f ReadDataRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataRequest -> Vector ByteString)
-> (ReadDataRequest -> Vector ByteString -> ReadDataRequest)
-> Lens
ReadDataRequest
ReadDataRequest
(Vector ByteString)
(Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataRequest -> Vector ByteString
_ReadDataRequest'keys
(\ ReadDataRequest
x__ Vector ByteString
y__ -> ReadDataRequest
x__ {_ReadDataRequest'keys = y__}))
((Vector ByteString -> [ByteString])
-> (Vector ByteString -> [ByteString] -> Vector ByteString)
-> Lens
(Vector ByteString) (Vector ByteString) [ByteString] [ByteString]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ByteString -> [ByteString]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector ByteString
_ [ByteString]
y__ -> [ByteString] -> Vector ByteString
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ByteString]
y__))
instance Data.ProtoLens.Field.HasField ReadDataRequest "vec'keys" (Data.Vector.Vector Data.ByteString.ByteString) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'keys"
-> (Vector ByteString -> f (Vector ByteString))
-> ReadDataRequest
-> f ReadDataRequest
fieldOf Proxy# "vec'keys"
_
= ((Vector ByteString -> f (Vector ByteString))
-> ReadDataRequest -> f ReadDataRequest)
-> ((Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> ReadDataRequest
-> f ReadDataRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataRequest -> Vector ByteString)
-> (ReadDataRequest -> Vector ByteString -> ReadDataRequest)
-> Lens
ReadDataRequest
ReadDataRequest
(Vector ByteString)
(Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataRequest -> Vector ByteString
_ReadDataRequest'keys
(\ ReadDataRequest
x__ Vector ByteString
y__ -> ReadDataRequest
x__ {_ReadDataRequest'keys = y__}))
(Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ReadDataRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fieldMask"
-> (FieldMask -> f FieldMask)
-> ReadDataRequest
-> f ReadDataRequest
fieldOf Proxy# "fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> ReadDataRequest -> f ReadDataRequest)
-> ((FieldMask -> f FieldMask)
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (FieldMask -> f FieldMask)
-> ReadDataRequest
-> f ReadDataRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataRequest -> Maybe FieldMask)
-> (ReadDataRequest -> Maybe FieldMask -> ReadDataRequest)
-> Lens
ReadDataRequest ReadDataRequest (Maybe FieldMask) (Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataRequest -> Maybe FieldMask
_ReadDataRequest'fieldMask
(\ ReadDataRequest
x__ Maybe FieldMask
y__ -> ReadDataRequest
x__ {_ReadDataRequest'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 ReadDataRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fieldMask"
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> ReadDataRequest
-> f ReadDataRequest
fieldOf Proxy# "maybe'fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> ReadDataRequest -> f ReadDataRequest)
-> ((Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> ReadDataRequest
-> f ReadDataRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataRequest -> Maybe FieldMask)
-> (ReadDataRequest -> Maybe FieldMask -> ReadDataRequest)
-> Lens
ReadDataRequest ReadDataRequest (Maybe FieldMask) (Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataRequest -> Maybe FieldMask
_ReadDataRequest'fieldMask
(\ ReadDataRequest
x__ Maybe FieldMask
y__ -> ReadDataRequest
x__ {_ReadDataRequest'fieldMask = y__}))
(Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadDataRequest where
messageName :: Proxy ReadDataRequest -> Text
messageName Proxy ReadDataRequest
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.ReadDataRequest"
packedMessageDescriptor :: Proxy ReadDataRequest -> ByteString
packedMessageDescriptor Proxy ReadDataRequest
_
= ByteString
"\n\
\\SIReadDataRequest\DC2\DC2\n\
\\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask"
packedFileDescriptor :: Proxy ReadDataRequest -> ByteString
packedFileDescriptor Proxy ReadDataRequest
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ReadDataRequest)
fieldsByTag
= let
keys__field_descriptor :: FieldDescriptor ReadDataRequest
keys__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ReadDataRequest ByteString
-> FieldDescriptor ReadDataRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"keys"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Packing
-> Lens' ReadDataRequest [ByteString]
-> FieldAccessor ReadDataRequest ByteString
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"keys")) ::
Data.ProtoLens.FieldDescriptor ReadDataRequest
fieldMask__field_descriptor :: FieldDescriptor ReadDataRequest
fieldMask__field_descriptor
= String
-> FieldTypeDescriptor FieldMask
-> FieldAccessor ReadDataRequest FieldMask
-> FieldDescriptor ReadDataRequest
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
ReadDataRequest ReadDataRequest (Maybe FieldMask) (Maybe FieldMask)
-> FieldAccessor ReadDataRequest 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 ReadDataRequest
in
[(Tag, FieldDescriptor ReadDataRequest)]
-> Map Tag (FieldDescriptor ReadDataRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadDataRequest
keys__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ReadDataRequest
fieldMask__field_descriptor)]
unknownFields :: Lens' ReadDataRequest FieldSet
unknownFields
= (ReadDataRequest -> FieldSet)
-> (ReadDataRequest -> FieldSet -> ReadDataRequest)
-> Lens' ReadDataRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataRequest -> FieldSet
_ReadDataRequest'_unknownFields
(\ ReadDataRequest
x__ FieldSet
y__ -> ReadDataRequest
x__ {_ReadDataRequest'_unknownFields = y__})
defMessage :: ReadDataRequest
defMessage
= ReadDataRequest'_constructor
{_ReadDataRequest'keys :: Vector ByteString
_ReadDataRequest'keys = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ReadDataRequest'fieldMask :: Maybe FieldMask
_ReadDataRequest'fieldMask = Maybe FieldMask
forall a. Maybe a
Prelude.Nothing,
_ReadDataRequest'_unknownFields :: FieldSet
_ReadDataRequest'_unknownFields = []}
parseMessage :: Parser ReadDataRequest
parseMessage
= let
loop ::
ReadDataRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
-> Data.ProtoLens.Encoding.Bytes.Parser ReadDataRequest
loop :: ReadDataRequest
-> Growing Vector RealWorld ByteString -> Parser ReadDataRequest
loop ReadDataRequest
x Growing Vector RealWorld ByteString
mutable'keys
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector ByteString
frozen'keys <- IO (Vector ByteString) -> Parser (Vector ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ByteString -> IO (Vector ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld ByteString
Growing Vector (PrimState IO) ByteString
mutable'keys)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ReadDataRequest -> Parser ReadDataRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ReadDataRequest ReadDataRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadDataRequest -> ReadDataRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadDataRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadDataRequest FieldSet
Setter ReadDataRequest ReadDataRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ReadDataRequest
ReadDataRequest
(Vector ByteString)
(Vector ByteString)
-> Vector ByteString -> ReadDataRequest -> ReadDataRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'keys") Vector ByteString
frozen'keys ReadDataRequest
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"keys"
Growing Vector RealWorld ByteString
v <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ByteString
-> ByteString -> IO (Growing Vector (PrimState IO) ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld ByteString
Growing Vector (PrimState IO) ByteString
mutable'keys ByteString
y)
ReadDataRequest
-> Growing Vector RealWorld ByteString -> Parser ReadDataRequest
loop ReadDataRequest
x Growing Vector RealWorld ByteString
v
Word64
18
-> do FieldMask
y <- Parser FieldMask -> String -> Parser FieldMask
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser FieldMask -> Parser FieldMask
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FieldMask
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"field_mask"
ReadDataRequest
-> Growing Vector RealWorld ByteString -> Parser ReadDataRequest
loop
(Setter ReadDataRequest ReadDataRequest FieldMask FieldMask
-> FieldMask -> ReadDataRequest -> ReadDataRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fieldMask") FieldMask
y ReadDataRequest
x)
Growing Vector RealWorld ByteString
mutable'keys
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ReadDataRequest
-> Growing Vector RealWorld ByteString -> Parser ReadDataRequest
loop
(Setter ReadDataRequest ReadDataRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadDataRequest -> ReadDataRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadDataRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadDataRequest FieldSet
Setter ReadDataRequest ReadDataRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadDataRequest
x)
Growing Vector RealWorld ByteString
mutable'keys
in
Parser ReadDataRequest -> String -> Parser ReadDataRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld ByteString
mutable'keys <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld ByteString)
IO (Growing Vector (PrimState IO) ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ReadDataRequest
-> Growing Vector RealWorld ByteString -> Parser ReadDataRequest
loop ReadDataRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ByteString
mutable'keys)
String
"ReadDataRequest"
buildMessage :: ReadDataRequest -> Builder
buildMessage
= \ ReadDataRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((ByteString -> Builder) -> Vector ByteString -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ ByteString
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((\ 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))
(FoldLike
(Vector ByteString)
ReadDataRequest
ReadDataRequest
(Vector ByteString)
(Vector ByteString)
-> ReadDataRequest -> Vector 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 @"vec'keys") ReadDataRequest
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe FieldMask)
ReadDataRequest
ReadDataRequest
(Maybe FieldMask)
(Maybe FieldMask)
-> ReadDataRequest -> 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") ReadDataRequest
_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
18)
((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 ReadDataRequest ReadDataRequest FieldSet FieldSet
-> ReadDataRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ReadDataRequest ReadDataRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadDataRequest FieldSet
Data.ProtoLens.unknownFields ReadDataRequest
_x)))
instance Control.DeepSeq.NFData ReadDataRequest where
rnf :: ReadDataRequest -> ()
rnf
= \ ReadDataRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadDataRequest -> FieldSet
_ReadDataRequest'_unknownFields ReadDataRequest
x__)
(Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadDataRequest -> Vector ByteString
_ReadDataRequest'keys ReadDataRequest
x__)
(Maybe FieldMask -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadDataRequest -> Maybe FieldMask
_ReadDataRequest'fieldMask ReadDataRequest
x__) ()))
data ReadDataResponse
= ReadDataResponse'_constructor {ReadDataResponse -> Vector AnyChainDatum
_ReadDataResponse'values :: !(Data.Vector.Vector AnyChainDatum),
ReadDataResponse -> Maybe ChainPoint
_ReadDataResponse'ledgerTip :: !(Prelude.Maybe ChainPoint),
ReadDataResponse -> FieldSet
_ReadDataResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ReadDataResponse -> ReadDataResponse -> Bool
(ReadDataResponse -> ReadDataResponse -> Bool)
-> (ReadDataResponse -> ReadDataResponse -> Bool)
-> Eq ReadDataResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadDataResponse -> ReadDataResponse -> Bool
== :: ReadDataResponse -> ReadDataResponse -> Bool
$c/= :: ReadDataResponse -> ReadDataResponse -> Bool
/= :: ReadDataResponse -> ReadDataResponse -> Bool
Prelude.Eq, Eq ReadDataResponse
Eq ReadDataResponse =>
(ReadDataResponse -> ReadDataResponse -> Ordering)
-> (ReadDataResponse -> ReadDataResponse -> Bool)
-> (ReadDataResponse -> ReadDataResponse -> Bool)
-> (ReadDataResponse -> ReadDataResponse -> Bool)
-> (ReadDataResponse -> ReadDataResponse -> Bool)
-> (ReadDataResponse -> ReadDataResponse -> ReadDataResponse)
-> (ReadDataResponse -> ReadDataResponse -> ReadDataResponse)
-> Ord ReadDataResponse
ReadDataResponse -> ReadDataResponse -> Bool
ReadDataResponse -> ReadDataResponse -> Ordering
ReadDataResponse -> ReadDataResponse -> ReadDataResponse
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 :: ReadDataResponse -> ReadDataResponse -> Ordering
compare :: ReadDataResponse -> ReadDataResponse -> Ordering
$c< :: ReadDataResponse -> ReadDataResponse -> Bool
< :: ReadDataResponse -> ReadDataResponse -> Bool
$c<= :: ReadDataResponse -> ReadDataResponse -> Bool
<= :: ReadDataResponse -> ReadDataResponse -> Bool
$c> :: ReadDataResponse -> ReadDataResponse -> Bool
> :: ReadDataResponse -> ReadDataResponse -> Bool
$c>= :: ReadDataResponse -> ReadDataResponse -> Bool
>= :: ReadDataResponse -> ReadDataResponse -> Bool
$cmax :: ReadDataResponse -> ReadDataResponse -> ReadDataResponse
max :: ReadDataResponse -> ReadDataResponse -> ReadDataResponse
$cmin :: ReadDataResponse -> ReadDataResponse -> ReadDataResponse
min :: ReadDataResponse -> ReadDataResponse -> ReadDataResponse
Prelude.Ord)
instance Prelude.Show ReadDataResponse where
showsPrec :: Int -> ReadDataResponse -> ShowS
showsPrec Int
_ ReadDataResponse
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ReadDataResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadDataResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadDataResponse "values" [AnyChainDatum] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "values"
-> ([AnyChainDatum] -> f [AnyChainDatum])
-> ReadDataResponse
-> f ReadDataResponse
fieldOf Proxy# "values"
_
= ((Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> ReadDataResponse -> f ReadDataResponse)
-> (([AnyChainDatum] -> f [AnyChainDatum])
-> Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> ([AnyChainDatum] -> f [AnyChainDatum])
-> ReadDataResponse
-> f ReadDataResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataResponse -> Vector AnyChainDatum)
-> (ReadDataResponse -> Vector AnyChainDatum -> ReadDataResponse)
-> Lens
ReadDataResponse
ReadDataResponse
(Vector AnyChainDatum)
(Vector AnyChainDatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataResponse -> Vector AnyChainDatum
_ReadDataResponse'values
(\ ReadDataResponse
x__ Vector AnyChainDatum
y__ -> ReadDataResponse
x__ {_ReadDataResponse'values = y__}))
((Vector AnyChainDatum -> [AnyChainDatum])
-> (Vector AnyChainDatum
-> [AnyChainDatum] -> Vector AnyChainDatum)
-> Lens
(Vector AnyChainDatum)
(Vector AnyChainDatum)
[AnyChainDatum]
[AnyChainDatum]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector AnyChainDatum -> [AnyChainDatum]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector AnyChainDatum
_ [AnyChainDatum]
y__ -> [AnyChainDatum] -> Vector AnyChainDatum
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AnyChainDatum]
y__))
instance Data.ProtoLens.Field.HasField ReadDataResponse "vec'values" (Data.Vector.Vector AnyChainDatum) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'values"
-> (Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> ReadDataResponse
-> f ReadDataResponse
fieldOf Proxy# "vec'values"
_
= ((Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> ReadDataResponse -> f ReadDataResponse)
-> ((Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> (Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> ReadDataResponse
-> f ReadDataResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataResponse -> Vector AnyChainDatum)
-> (ReadDataResponse -> Vector AnyChainDatum -> ReadDataResponse)
-> Lens
ReadDataResponse
ReadDataResponse
(Vector AnyChainDatum)
(Vector AnyChainDatum)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataResponse -> Vector AnyChainDatum
_ReadDataResponse'values
(\ ReadDataResponse
x__ Vector AnyChainDatum
y__ -> ReadDataResponse
x__ {_ReadDataResponse'values = y__}))
(Vector AnyChainDatum -> f (Vector AnyChainDatum))
-> Vector AnyChainDatum -> f (Vector AnyChainDatum)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ReadDataResponse "ledgerTip" ChainPoint where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ledgerTip"
-> (ChainPoint -> f ChainPoint)
-> ReadDataResponse
-> f ReadDataResponse
fieldOf Proxy# "ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadDataResponse -> f ReadDataResponse)
-> ((ChainPoint -> f ChainPoint)
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (ChainPoint -> f ChainPoint)
-> ReadDataResponse
-> f ReadDataResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataResponse -> Maybe ChainPoint)
-> (ReadDataResponse -> Maybe ChainPoint -> ReadDataResponse)
-> Lens
ReadDataResponse
ReadDataResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataResponse -> Maybe ChainPoint
_ReadDataResponse'ledgerTip
(\ ReadDataResponse
x__ Maybe ChainPoint
y__ -> ReadDataResponse
x__ {_ReadDataResponse'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 ReadDataResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ledgerTip"
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadDataResponse
-> f ReadDataResponse
fieldOf Proxy# "maybe'ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadDataResponse -> f ReadDataResponse)
-> ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadDataResponse
-> f ReadDataResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadDataResponse -> Maybe ChainPoint)
-> (ReadDataResponse -> Maybe ChainPoint -> ReadDataResponse)
-> Lens
ReadDataResponse
ReadDataResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataResponse -> Maybe ChainPoint
_ReadDataResponse'ledgerTip
(\ ReadDataResponse
x__ Maybe ChainPoint
y__ -> ReadDataResponse
x__ {_ReadDataResponse'ledgerTip = y__}))
(Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadDataResponse where
messageName :: Proxy ReadDataResponse -> Text
messageName Proxy ReadDataResponse
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.ReadDataResponse"
packedMessageDescriptor :: Proxy ReadDataResponse -> ByteString
packedMessageDescriptor Proxy ReadDataResponse
_
= ByteString
"\n\
\\DLEReadDataResponse\DC2<\n\
\\ACKvalues\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.query.AnyChainDatumR\ACKvalues\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip"
packedFileDescriptor :: Proxy ReadDataResponse -> ByteString
packedFileDescriptor Proxy ReadDataResponse
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ReadDataResponse)
fieldsByTag
= let
values__field_descriptor :: FieldDescriptor ReadDataResponse
values__field_descriptor
= String
-> FieldTypeDescriptor AnyChainDatum
-> FieldAccessor ReadDataResponse AnyChainDatum
-> FieldDescriptor ReadDataResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"values"
(MessageOrGroup -> FieldTypeDescriptor AnyChainDatum
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyChainDatum)
(Packing
-> Lens' ReadDataResponse [AnyChainDatum]
-> FieldAccessor ReadDataResponse AnyChainDatum
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values")) ::
Data.ProtoLens.FieldDescriptor ReadDataResponse
ledgerTip__field_descriptor :: FieldDescriptor ReadDataResponse
ledgerTip__field_descriptor
= String
-> FieldTypeDescriptor ChainPoint
-> FieldAccessor ReadDataResponse ChainPoint
-> FieldDescriptor ReadDataResponse
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
ReadDataResponse
ReadDataResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> FieldAccessor ReadDataResponse 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 ReadDataResponse
in
[(Tag, FieldDescriptor ReadDataResponse)]
-> Map Tag (FieldDescriptor ReadDataResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadDataResponse
values__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ReadDataResponse
ledgerTip__field_descriptor)]
unknownFields :: Lens' ReadDataResponse FieldSet
unknownFields
= (ReadDataResponse -> FieldSet)
-> (ReadDataResponse -> FieldSet -> ReadDataResponse)
-> Lens' ReadDataResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadDataResponse -> FieldSet
_ReadDataResponse'_unknownFields
(\ ReadDataResponse
x__ FieldSet
y__ -> ReadDataResponse
x__ {_ReadDataResponse'_unknownFields = y__})
defMessage :: ReadDataResponse
defMessage
= ReadDataResponse'_constructor
{_ReadDataResponse'values :: Vector AnyChainDatum
_ReadDataResponse'values = Vector AnyChainDatum
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ReadDataResponse'ledgerTip :: Maybe ChainPoint
_ReadDataResponse'ledgerTip = Maybe ChainPoint
forall a. Maybe a
Prelude.Nothing,
_ReadDataResponse'_unknownFields :: FieldSet
_ReadDataResponse'_unknownFields = []}
parseMessage :: Parser ReadDataResponse
parseMessage
= let
loop ::
ReadDataResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainDatum
-> Data.ProtoLens.Encoding.Bytes.Parser ReadDataResponse
loop :: ReadDataResponse
-> Growing Vector RealWorld AnyChainDatum
-> Parser ReadDataResponse
loop ReadDataResponse
x Growing Vector RealWorld AnyChainDatum
mutable'values
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector AnyChainDatum
frozen'values <- IO (Vector AnyChainDatum) -> Parser (Vector AnyChainDatum)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AnyChainDatum
-> IO (Vector AnyChainDatum)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld AnyChainDatum
Growing Vector (PrimState IO) AnyChainDatum
mutable'values)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ReadDataResponse -> Parser ReadDataResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ReadDataResponse ReadDataResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadDataResponse -> ReadDataResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadDataResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadDataResponse FieldSet
Setter ReadDataResponse ReadDataResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ReadDataResponse
ReadDataResponse
(Vector AnyChainDatum)
(Vector AnyChainDatum)
-> Vector AnyChainDatum -> ReadDataResponse -> ReadDataResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'values") Vector AnyChainDatum
frozen'values ReadDataResponse
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !AnyChainDatum
y <- Parser AnyChainDatum -> String -> Parser AnyChainDatum
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AnyChainDatum -> Parser AnyChainDatum
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser AnyChainDatum
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"values"
Growing Vector RealWorld AnyChainDatum
v <- IO (Growing Vector RealWorld AnyChainDatum)
-> Parser (Growing Vector RealWorld AnyChainDatum)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AnyChainDatum
-> AnyChainDatum
-> IO (Growing Vector (PrimState IO) AnyChainDatum)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld AnyChainDatum
Growing Vector (PrimState IO) AnyChainDatum
mutable'values AnyChainDatum
y)
ReadDataResponse
-> Growing Vector RealWorld AnyChainDatum
-> Parser ReadDataResponse
loop ReadDataResponse
x Growing Vector RealWorld AnyChainDatum
v
Word64
18
-> do ChainPoint
y <- Parser ChainPoint -> String -> Parser ChainPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ChainPoint -> Parser ChainPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ChainPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"ledger_tip"
ReadDataResponse
-> Growing Vector RealWorld AnyChainDatum
-> Parser ReadDataResponse
loop
(Setter ReadDataResponse ReadDataResponse ChainPoint ChainPoint
-> ChainPoint -> ReadDataResponse -> ReadDataResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ledgerTip") ChainPoint
y ReadDataResponse
x)
Growing Vector RealWorld AnyChainDatum
mutable'values
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ReadDataResponse
-> Growing Vector RealWorld AnyChainDatum
-> Parser ReadDataResponse
loop
(Setter ReadDataResponse ReadDataResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadDataResponse -> ReadDataResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadDataResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadDataResponse FieldSet
Setter ReadDataResponse ReadDataResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadDataResponse
x)
Growing Vector RealWorld AnyChainDatum
mutable'values
in
Parser ReadDataResponse -> String -> Parser ReadDataResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld AnyChainDatum
mutable'values <- IO (Growing Vector RealWorld AnyChainDatum)
-> Parser (Growing Vector RealWorld AnyChainDatum)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld AnyChainDatum)
IO (Growing Vector (PrimState IO) AnyChainDatum)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ReadDataResponse
-> Growing Vector RealWorld AnyChainDatum
-> Parser ReadDataResponse
loop ReadDataResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AnyChainDatum
mutable'values)
String
"ReadDataResponse"
buildMessage :: ReadDataResponse -> Builder
buildMessage
= \ ReadDataResponse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((AnyChainDatum -> Builder) -> Vector AnyChainDatum -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ AnyChainDatum
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (AnyChainDatum -> ByteString) -> AnyChainDatum -> 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))
AnyChainDatum -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyChainDatum
_v))
(FoldLike
(Vector AnyChainDatum)
ReadDataResponse
ReadDataResponse
(Vector AnyChainDatum)
(Vector AnyChainDatum)
-> ReadDataResponse -> Vector AnyChainDatum
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 @"vec'values") ReadDataResponse
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ChainPoint)
ReadDataResponse
ReadDataResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> ReadDataResponse -> 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") ReadDataResponse
_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 ReadDataResponse ReadDataResponse FieldSet FieldSet
-> ReadDataResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ReadDataResponse ReadDataResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadDataResponse FieldSet
Data.ProtoLens.unknownFields ReadDataResponse
_x)))
instance Control.DeepSeq.NFData ReadDataResponse where
rnf :: ReadDataResponse -> ()
rnf
= \ ReadDataResponse
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadDataResponse -> FieldSet
_ReadDataResponse'_unknownFields ReadDataResponse
x__)
(Vector AnyChainDatum -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadDataResponse -> Vector AnyChainDatum
_ReadDataResponse'values ReadDataResponse
x__)
(Maybe ChainPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadDataResponse -> Maybe ChainPoint
_ReadDataResponse'ledgerTip ReadDataResponse
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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ReadParamsRequest -> Parser ReadParamsRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ReadParamsRequest ReadParamsRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadParamsRequest -> ReadParamsRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadParamsRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadParamsRequest FieldSet
Setter ReadParamsRequest ReadParamsRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ReadParamsRequest
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do FieldMask
y <- Parser FieldMask -> String -> Parser FieldMask
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser FieldMask -> Parser FieldMask
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FieldMask
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"field_mask"
ReadParamsRequest -> Parser ReadParamsRequest
loop
(Setter ReadParamsRequest ReadParamsRequest FieldMask FieldMask
-> FieldMask -> ReadParamsRequest -> ReadParamsRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fieldMask") FieldMask
y ReadParamsRequest
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ReadParamsRequest -> Parser ReadParamsRequest
loop
(Setter ReadParamsRequest ReadParamsRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadParamsRequest -> ReadParamsRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadParamsRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadParamsRequest FieldSet
Setter ReadParamsRequest ReadParamsRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadParamsRequest
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 Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ReadParamsResponse -> Parser ReadParamsResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ReadParamsResponse ReadParamsResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ReadParamsResponse
-> ReadParamsResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadParamsResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadParamsResponse FieldSet
Setter ReadParamsResponse ReadParamsResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ReadParamsResponse
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do AnyChainParams
y <- Parser AnyChainParams -> String -> Parser AnyChainParams
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AnyChainParams -> Parser AnyChainParams
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AnyChainParams
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"values"
ReadParamsResponse -> Parser ReadParamsResponse
loop (Setter
ReadParamsResponse ReadParamsResponse AnyChainParams AnyChainParams
-> AnyChainParams -> ReadParamsResponse -> ReadParamsResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"values") AnyChainParams
y ReadParamsResponse
x)
Word64
18
-> do ChainPoint
y <- Parser ChainPoint -> String -> Parser ChainPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ChainPoint -> Parser ChainPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ChainPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"ledger_tip"
ReadParamsResponse -> Parser ReadParamsResponse
loop
(Setter ReadParamsResponse ReadParamsResponse ChainPoint ChainPoint
-> ChainPoint -> ReadParamsResponse -> ReadParamsResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ledgerTip") ChainPoint
y ReadParamsResponse
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ReadParamsResponse -> Parser ReadParamsResponse
loop
(Setter ReadParamsResponse ReadParamsResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ReadParamsResponse
-> ReadParamsResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadParamsResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadParamsResponse FieldSet
Setter ReadParamsResponse ReadParamsResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadParamsResponse
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 ReadUtxosRequest
= ReadUtxosRequest'_constructor {ReadUtxosRequest -> Vector TxoRef
_ReadUtxosRequest'keys :: !(Data.Vector.Vector TxoRef),
ReadUtxosRequest -> Maybe FieldMask
_ReadUtxosRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask),
ReadUtxosRequest -> FieldSet
_ReadUtxosRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ReadUtxosRequest -> ReadUtxosRequest -> Bool
(ReadUtxosRequest -> ReadUtxosRequest -> Bool)
-> (ReadUtxosRequest -> ReadUtxosRequest -> Bool)
-> Eq ReadUtxosRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
== :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
$c/= :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
/= :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
Prelude.Eq, Eq ReadUtxosRequest
Eq ReadUtxosRequest =>
(ReadUtxosRequest -> ReadUtxosRequest -> Ordering)
-> (ReadUtxosRequest -> ReadUtxosRequest -> Bool)
-> (ReadUtxosRequest -> ReadUtxosRequest -> Bool)
-> (ReadUtxosRequest -> ReadUtxosRequest -> Bool)
-> (ReadUtxosRequest -> ReadUtxosRequest -> Bool)
-> (ReadUtxosRequest -> ReadUtxosRequest -> ReadUtxosRequest)
-> (ReadUtxosRequest -> ReadUtxosRequest -> ReadUtxosRequest)
-> Ord ReadUtxosRequest
ReadUtxosRequest -> ReadUtxosRequest -> Bool
ReadUtxosRequest -> ReadUtxosRequest -> Ordering
ReadUtxosRequest -> ReadUtxosRequest -> ReadUtxosRequest
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 :: ReadUtxosRequest -> ReadUtxosRequest -> Ordering
compare :: ReadUtxosRequest -> ReadUtxosRequest -> Ordering
$c< :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
< :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
$c<= :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
<= :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
$c> :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
> :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
$c>= :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
>= :: ReadUtxosRequest -> ReadUtxosRequest -> Bool
$cmax :: ReadUtxosRequest -> ReadUtxosRequest -> ReadUtxosRequest
max :: ReadUtxosRequest -> ReadUtxosRequest -> ReadUtxosRequest
$cmin :: ReadUtxosRequest -> ReadUtxosRequest -> ReadUtxosRequest
min :: ReadUtxosRequest -> ReadUtxosRequest -> ReadUtxosRequest
Prelude.Ord)
instance Prelude.Show ReadUtxosRequest where
showsPrec :: Int -> ReadUtxosRequest -> ShowS
showsPrec Int
_ ReadUtxosRequest
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ReadUtxosRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadUtxosRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadUtxosRequest "keys" [TxoRef] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "keys"
-> ([TxoRef] -> f [TxoRef])
-> ReadUtxosRequest
-> f ReadUtxosRequest
fieldOf Proxy# "keys"
_
= ((Vector TxoRef -> f (Vector TxoRef))
-> ReadUtxosRequest -> f ReadUtxosRequest)
-> (([TxoRef] -> f [TxoRef]) -> Vector TxoRef -> f (Vector TxoRef))
-> ([TxoRef] -> f [TxoRef])
-> ReadUtxosRequest
-> f ReadUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosRequest -> Vector TxoRef)
-> (ReadUtxosRequest -> Vector TxoRef -> ReadUtxosRequest)
-> Lens
ReadUtxosRequest ReadUtxosRequest (Vector TxoRef) (Vector TxoRef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosRequest -> Vector TxoRef
_ReadUtxosRequest'keys
(\ ReadUtxosRequest
x__ Vector TxoRef
y__ -> ReadUtxosRequest
x__ {_ReadUtxosRequest'keys = y__}))
((Vector TxoRef -> [TxoRef])
-> (Vector TxoRef -> [TxoRef] -> Vector TxoRef)
-> Lens (Vector TxoRef) (Vector TxoRef) [TxoRef] [TxoRef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TxoRef -> [TxoRef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector TxoRef
_ [TxoRef]
y__ -> [TxoRef] -> Vector TxoRef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxoRef]
y__))
instance Data.ProtoLens.Field.HasField ReadUtxosRequest "vec'keys" (Data.Vector.Vector TxoRef) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'keys"
-> (Vector TxoRef -> f (Vector TxoRef))
-> ReadUtxosRequest
-> f ReadUtxosRequest
fieldOf Proxy# "vec'keys"
_
= ((Vector TxoRef -> f (Vector TxoRef))
-> ReadUtxosRequest -> f ReadUtxosRequest)
-> ((Vector TxoRef -> f (Vector TxoRef))
-> Vector TxoRef -> f (Vector TxoRef))
-> (Vector TxoRef -> f (Vector TxoRef))
-> ReadUtxosRequest
-> f ReadUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosRequest -> Vector TxoRef)
-> (ReadUtxosRequest -> Vector TxoRef -> ReadUtxosRequest)
-> Lens
ReadUtxosRequest ReadUtxosRequest (Vector TxoRef) (Vector TxoRef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosRequest -> Vector TxoRef
_ReadUtxosRequest'keys
(\ ReadUtxosRequest
x__ Vector TxoRef
y__ -> ReadUtxosRequest
x__ {_ReadUtxosRequest'keys = y__}))
(Vector TxoRef -> f (Vector TxoRef))
-> Vector TxoRef -> f (Vector TxoRef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ReadUtxosRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fieldMask"
-> (FieldMask -> f FieldMask)
-> ReadUtxosRequest
-> f ReadUtxosRequest
fieldOf Proxy# "fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> ReadUtxosRequest -> f ReadUtxosRequest)
-> ((FieldMask -> f FieldMask)
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (FieldMask -> f FieldMask)
-> ReadUtxosRequest
-> f ReadUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosRequest -> Maybe FieldMask)
-> (ReadUtxosRequest -> Maybe FieldMask -> ReadUtxosRequest)
-> Lens
ReadUtxosRequest
ReadUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosRequest -> Maybe FieldMask
_ReadUtxosRequest'fieldMask
(\ ReadUtxosRequest
x__ Maybe FieldMask
y__ -> ReadUtxosRequest
x__ {_ReadUtxosRequest'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 ReadUtxosRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fieldMask"
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> ReadUtxosRequest
-> f ReadUtxosRequest
fieldOf Proxy# "maybe'fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> ReadUtxosRequest -> f ReadUtxosRequest)
-> ((Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> ReadUtxosRequest
-> f ReadUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosRequest -> Maybe FieldMask)
-> (ReadUtxosRequest -> Maybe FieldMask -> ReadUtxosRequest)
-> Lens
ReadUtxosRequest
ReadUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosRequest -> Maybe FieldMask
_ReadUtxosRequest'fieldMask
(\ ReadUtxosRequest
x__ Maybe FieldMask
y__ -> ReadUtxosRequest
x__ {_ReadUtxosRequest'fieldMask = y__}))
(Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadUtxosRequest where
messageName :: Proxy ReadUtxosRequest -> Text
messageName Proxy ReadUtxosRequest
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.ReadUtxosRequest"
packedMessageDescriptor :: Proxy ReadUtxosRequest -> ByteString
packedMessageDescriptor Proxy ReadUtxosRequest
_
= ByteString
"\n\
\\DLEReadUtxosRequest\DC21\n\
\\EOTkeys\CAN\SOH \ETX(\v2\GS.utxorpc.v1alpha.query.TxoRefR\EOTkeys\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask"
packedFileDescriptor :: Proxy ReadUtxosRequest -> ByteString
packedFileDescriptor Proxy ReadUtxosRequest
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ReadUtxosRequest)
fieldsByTag
= let
keys__field_descriptor :: FieldDescriptor ReadUtxosRequest
keys__field_descriptor
= String
-> FieldTypeDescriptor TxoRef
-> FieldAccessor ReadUtxosRequest TxoRef
-> FieldDescriptor ReadUtxosRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"keys"
(MessageOrGroup -> FieldTypeDescriptor TxoRef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TxoRef)
(Packing
-> Lens' ReadUtxosRequest [TxoRef]
-> FieldAccessor ReadUtxosRequest TxoRef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"keys")) ::
Data.ProtoLens.FieldDescriptor ReadUtxosRequest
fieldMask__field_descriptor :: FieldDescriptor ReadUtxosRequest
fieldMask__field_descriptor
= String
-> FieldTypeDescriptor FieldMask
-> FieldAccessor ReadUtxosRequest FieldMask
-> FieldDescriptor ReadUtxosRequest
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
ReadUtxosRequest
ReadUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
-> FieldAccessor ReadUtxosRequest 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 ReadUtxosRequest
in
[(Tag, FieldDescriptor ReadUtxosRequest)]
-> Map Tag (FieldDescriptor ReadUtxosRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadUtxosRequest
keys__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ReadUtxosRequest
fieldMask__field_descriptor)]
unknownFields :: Lens' ReadUtxosRequest FieldSet
unknownFields
= (ReadUtxosRequest -> FieldSet)
-> (ReadUtxosRequest -> FieldSet -> ReadUtxosRequest)
-> Lens' ReadUtxosRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosRequest -> FieldSet
_ReadUtxosRequest'_unknownFields
(\ ReadUtxosRequest
x__ FieldSet
y__ -> ReadUtxosRequest
x__ {_ReadUtxosRequest'_unknownFields = y__})
defMessage :: ReadUtxosRequest
defMessage
= ReadUtxosRequest'_constructor
{_ReadUtxosRequest'keys :: Vector TxoRef
_ReadUtxosRequest'keys = Vector TxoRef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ReadUtxosRequest'fieldMask :: Maybe FieldMask
_ReadUtxosRequest'fieldMask = Maybe FieldMask
forall a. Maybe a
Prelude.Nothing,
_ReadUtxosRequest'_unknownFields :: FieldSet
_ReadUtxosRequest'_unknownFields = []}
parseMessage :: Parser ReadUtxosRequest
parseMessage
= let
loop ::
ReadUtxosRequest
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxoRef
-> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosRequest
loop :: ReadUtxosRequest
-> Growing Vector RealWorld TxoRef -> Parser ReadUtxosRequest
loop ReadUtxosRequest
x Growing Vector RealWorld TxoRef
mutable'keys
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector TxoRef
frozen'keys <- IO (Vector TxoRef) -> Parser (Vector TxoRef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TxoRef -> IO (Vector TxoRef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld TxoRef
Growing Vector (PrimState IO) TxoRef
mutable'keys)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ReadUtxosRequest -> Parser ReadUtxosRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ReadUtxosRequest ReadUtxosRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadUtxosRequest -> ReadUtxosRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadUtxosRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadUtxosRequest FieldSet
Setter ReadUtxosRequest ReadUtxosRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ReadUtxosRequest ReadUtxosRequest (Vector TxoRef) (Vector TxoRef)
-> Vector TxoRef -> ReadUtxosRequest -> ReadUtxosRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'keys") Vector TxoRef
frozen'keys ReadUtxosRequest
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !TxoRef
y <- Parser TxoRef -> String -> Parser TxoRef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TxoRef -> Parser TxoRef
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser TxoRef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"keys"
Growing Vector RealWorld TxoRef
v <- IO (Growing Vector RealWorld TxoRef)
-> Parser (Growing Vector RealWorld TxoRef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TxoRef
-> TxoRef -> IO (Growing Vector (PrimState IO) TxoRef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld TxoRef
Growing Vector (PrimState IO) TxoRef
mutable'keys TxoRef
y)
ReadUtxosRequest
-> Growing Vector RealWorld TxoRef -> Parser ReadUtxosRequest
loop ReadUtxosRequest
x Growing Vector RealWorld TxoRef
v
Word64
18
-> do FieldMask
y <- Parser FieldMask -> String -> Parser FieldMask
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser FieldMask -> Parser FieldMask
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FieldMask
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"field_mask"
ReadUtxosRequest
-> Growing Vector RealWorld TxoRef -> Parser ReadUtxosRequest
loop
(Setter ReadUtxosRequest ReadUtxosRequest FieldMask FieldMask
-> FieldMask -> ReadUtxosRequest -> ReadUtxosRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fieldMask") FieldMask
y ReadUtxosRequest
x)
Growing Vector RealWorld TxoRef
mutable'keys
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ReadUtxosRequest
-> Growing Vector RealWorld TxoRef -> Parser ReadUtxosRequest
loop
(Setter ReadUtxosRequest ReadUtxosRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadUtxosRequest -> ReadUtxosRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadUtxosRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadUtxosRequest FieldSet
Setter ReadUtxosRequest ReadUtxosRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadUtxosRequest
x)
Growing Vector RealWorld TxoRef
mutable'keys
in
Parser ReadUtxosRequest -> String -> Parser ReadUtxosRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld TxoRef
mutable'keys <- IO (Growing Vector RealWorld TxoRef)
-> Parser (Growing Vector RealWorld TxoRef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TxoRef)
IO (Growing Vector (PrimState IO) TxoRef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ReadUtxosRequest
-> Growing Vector RealWorld TxoRef -> Parser ReadUtxosRequest
loop ReadUtxosRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld TxoRef
mutable'keys)
String
"ReadUtxosRequest"
buildMessage :: ReadUtxosRequest -> Builder
buildMessage
= \ ReadUtxosRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TxoRef -> Builder) -> Vector TxoRef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ TxoRef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (TxoRef -> ByteString) -> TxoRef -> 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))
TxoRef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxoRef
_v))
(FoldLike
(Vector TxoRef)
ReadUtxosRequest
ReadUtxosRequest
(Vector TxoRef)
(Vector TxoRef)
-> ReadUtxosRequest -> Vector TxoRef
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 @"vec'keys") ReadUtxosRequest
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe FieldMask)
ReadUtxosRequest
ReadUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
-> ReadUtxosRequest -> 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") ReadUtxosRequest
_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
18)
((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 ReadUtxosRequest ReadUtxosRequest FieldSet FieldSet
-> ReadUtxosRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ReadUtxosRequest ReadUtxosRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadUtxosRequest FieldSet
Data.ProtoLens.unknownFields ReadUtxosRequest
_x)))
instance Control.DeepSeq.NFData ReadUtxosRequest where
rnf :: ReadUtxosRequest -> ()
rnf
= \ ReadUtxosRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadUtxosRequest -> FieldSet
_ReadUtxosRequest'_unknownFields ReadUtxosRequest
x__)
(Vector TxoRef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadUtxosRequest -> Vector TxoRef
_ReadUtxosRequest'keys ReadUtxosRequest
x__)
(Maybe FieldMask -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadUtxosRequest -> Maybe FieldMask
_ReadUtxosRequest'fieldMask ReadUtxosRequest
x__) ()))
data ReadUtxosResponse
= ReadUtxosResponse'_constructor {ReadUtxosResponse -> Vector AnyUtxoData
_ReadUtxosResponse'items :: !(Data.Vector.Vector AnyUtxoData),
ReadUtxosResponse -> Maybe ChainPoint
_ReadUtxosResponse'ledgerTip :: !(Prelude.Maybe ChainPoint),
ReadUtxosResponse -> FieldSet
_ReadUtxosResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ReadUtxosResponse -> ReadUtxosResponse -> Bool
(ReadUtxosResponse -> ReadUtxosResponse -> Bool)
-> (ReadUtxosResponse -> ReadUtxosResponse -> Bool)
-> Eq ReadUtxosResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
== :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
$c/= :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
/= :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
Prelude.Eq, Eq ReadUtxosResponse
Eq ReadUtxosResponse =>
(ReadUtxosResponse -> ReadUtxosResponse -> Ordering)
-> (ReadUtxosResponse -> ReadUtxosResponse -> Bool)
-> (ReadUtxosResponse -> ReadUtxosResponse -> Bool)
-> (ReadUtxosResponse -> ReadUtxosResponse -> Bool)
-> (ReadUtxosResponse -> ReadUtxosResponse -> Bool)
-> (ReadUtxosResponse -> ReadUtxosResponse -> ReadUtxosResponse)
-> (ReadUtxosResponse -> ReadUtxosResponse -> ReadUtxosResponse)
-> Ord ReadUtxosResponse
ReadUtxosResponse -> ReadUtxosResponse -> Bool
ReadUtxosResponse -> ReadUtxosResponse -> Ordering
ReadUtxosResponse -> ReadUtxosResponse -> ReadUtxosResponse
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 :: ReadUtxosResponse -> ReadUtxosResponse -> Ordering
compare :: ReadUtxosResponse -> ReadUtxosResponse -> Ordering
$c< :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
< :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
$c<= :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
<= :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
$c> :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
> :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
$c>= :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
>= :: ReadUtxosResponse -> ReadUtxosResponse -> Bool
$cmax :: ReadUtxosResponse -> ReadUtxosResponse -> ReadUtxosResponse
max :: ReadUtxosResponse -> ReadUtxosResponse -> ReadUtxosResponse
$cmin :: ReadUtxosResponse -> ReadUtxosResponse -> ReadUtxosResponse
min :: ReadUtxosResponse -> ReadUtxosResponse -> ReadUtxosResponse
Prelude.Ord)
instance Prelude.Show ReadUtxosResponse where
showsPrec :: Int -> ReadUtxosResponse -> ShowS
showsPrec Int
_ ReadUtxosResponse
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ReadUtxosResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadUtxosResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadUtxosResponse "items" [AnyUtxoData] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "items"
-> ([AnyUtxoData] -> f [AnyUtxoData])
-> ReadUtxosResponse
-> f ReadUtxosResponse
fieldOf Proxy# "items"
_
= ((Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> ReadUtxosResponse -> f ReadUtxosResponse)
-> (([AnyUtxoData] -> f [AnyUtxoData])
-> Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> ([AnyUtxoData] -> f [AnyUtxoData])
-> ReadUtxosResponse
-> f ReadUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosResponse -> Vector AnyUtxoData)
-> (ReadUtxosResponse -> Vector AnyUtxoData -> ReadUtxosResponse)
-> Lens
ReadUtxosResponse
ReadUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosResponse -> Vector AnyUtxoData
_ReadUtxosResponse'items
(\ ReadUtxosResponse
x__ Vector AnyUtxoData
y__ -> ReadUtxosResponse
x__ {_ReadUtxosResponse'items = y__}))
((Vector AnyUtxoData -> [AnyUtxoData])
-> (Vector AnyUtxoData -> [AnyUtxoData] -> Vector AnyUtxoData)
-> Lens
(Vector AnyUtxoData)
(Vector AnyUtxoData)
[AnyUtxoData]
[AnyUtxoData]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector AnyUtxoData -> [AnyUtxoData]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector AnyUtxoData
_ [AnyUtxoData]
y__ -> [AnyUtxoData] -> Vector AnyUtxoData
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AnyUtxoData]
y__))
instance Data.ProtoLens.Field.HasField ReadUtxosResponse "vec'items" (Data.Vector.Vector AnyUtxoData) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'items"
-> (Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> ReadUtxosResponse
-> f ReadUtxosResponse
fieldOf Proxy# "vec'items"
_
= ((Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> ReadUtxosResponse -> f ReadUtxosResponse)
-> ((Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> (Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> ReadUtxosResponse
-> f ReadUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosResponse -> Vector AnyUtxoData)
-> (ReadUtxosResponse -> Vector AnyUtxoData -> ReadUtxosResponse)
-> Lens
ReadUtxosResponse
ReadUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosResponse -> Vector AnyUtxoData
_ReadUtxosResponse'items
(\ ReadUtxosResponse
x__ Vector AnyUtxoData
y__ -> ReadUtxosResponse
x__ {_ReadUtxosResponse'items = y__}))
(Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> Vector AnyUtxoData -> f (Vector AnyUtxoData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ReadUtxosResponse "ledgerTip" ChainPoint where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ledgerTip"
-> (ChainPoint -> f ChainPoint)
-> ReadUtxosResponse
-> f ReadUtxosResponse
fieldOf Proxy# "ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadUtxosResponse -> f ReadUtxosResponse)
-> ((ChainPoint -> f ChainPoint)
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (ChainPoint -> f ChainPoint)
-> ReadUtxosResponse
-> f ReadUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosResponse -> Maybe ChainPoint)
-> (ReadUtxosResponse -> Maybe ChainPoint -> ReadUtxosResponse)
-> Lens
ReadUtxosResponse
ReadUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosResponse -> Maybe ChainPoint
_ReadUtxosResponse'ledgerTip
(\ ReadUtxosResponse
x__ Maybe ChainPoint
y__ -> ReadUtxosResponse
x__ {_ReadUtxosResponse'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 ReadUtxosResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ledgerTip"
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadUtxosResponse
-> f ReadUtxosResponse
fieldOf Proxy# "maybe'ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadUtxosResponse -> f ReadUtxosResponse)
-> ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> ReadUtxosResponse
-> f ReadUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ReadUtxosResponse -> Maybe ChainPoint)
-> (ReadUtxosResponse -> Maybe ChainPoint -> ReadUtxosResponse)
-> Lens
ReadUtxosResponse
ReadUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosResponse -> Maybe ChainPoint
_ReadUtxosResponse'ledgerTip
(\ ReadUtxosResponse
x__ Maybe ChainPoint
y__ -> ReadUtxosResponse
x__ {_ReadUtxosResponse'ledgerTip = y__}))
(Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadUtxosResponse where
messageName :: Proxy ReadUtxosResponse -> Text
messageName Proxy ReadUtxosResponse
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.ReadUtxosResponse"
packedMessageDescriptor :: Proxy ReadUtxosResponse -> ByteString
packedMessageDescriptor Proxy ReadUtxosResponse
_
= ByteString
"\n\
\\DC1ReadUtxosResponse\DC28\n\
\\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip"
packedFileDescriptor :: Proxy ReadUtxosResponse -> ByteString
packedFileDescriptor Proxy ReadUtxosResponse
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ReadUtxosResponse)
fieldsByTag
= let
items__field_descriptor :: FieldDescriptor ReadUtxosResponse
items__field_descriptor
= String
-> FieldTypeDescriptor AnyUtxoData
-> FieldAccessor ReadUtxosResponse AnyUtxoData
-> FieldDescriptor ReadUtxosResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"items"
(MessageOrGroup -> FieldTypeDescriptor AnyUtxoData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyUtxoData)
(Packing
-> Lens' ReadUtxosResponse [AnyUtxoData]
-> FieldAccessor ReadUtxosResponse AnyUtxoData
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"items")) ::
Data.ProtoLens.FieldDescriptor ReadUtxosResponse
ledgerTip__field_descriptor :: FieldDescriptor ReadUtxosResponse
ledgerTip__field_descriptor
= String
-> FieldTypeDescriptor ChainPoint
-> FieldAccessor ReadUtxosResponse ChainPoint
-> FieldDescriptor ReadUtxosResponse
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
ReadUtxosResponse
ReadUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> FieldAccessor ReadUtxosResponse 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 ReadUtxosResponse
in
[(Tag, FieldDescriptor ReadUtxosResponse)]
-> Map Tag (FieldDescriptor ReadUtxosResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadUtxosResponse
items__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ReadUtxosResponse
ledgerTip__field_descriptor)]
unknownFields :: Lens' ReadUtxosResponse FieldSet
unknownFields
= (ReadUtxosResponse -> FieldSet)
-> (ReadUtxosResponse -> FieldSet -> ReadUtxosResponse)
-> Lens' ReadUtxosResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ReadUtxosResponse -> FieldSet
_ReadUtxosResponse'_unknownFields
(\ ReadUtxosResponse
x__ FieldSet
y__ -> ReadUtxosResponse
x__ {_ReadUtxosResponse'_unknownFields = y__})
defMessage :: ReadUtxosResponse
defMessage
= ReadUtxosResponse'_constructor
{_ReadUtxosResponse'items :: Vector AnyUtxoData
_ReadUtxosResponse'items = Vector AnyUtxoData
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ReadUtxosResponse'ledgerTip :: Maybe ChainPoint
_ReadUtxosResponse'ledgerTip = Maybe ChainPoint
forall a. Maybe a
Prelude.Nothing,
_ReadUtxosResponse'_unknownFields :: FieldSet
_ReadUtxosResponse'_unknownFields = []}
parseMessage :: Parser ReadUtxosResponse
parseMessage
= let
loop ::
ReadUtxosResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyUtxoData
-> Data.ProtoLens.Encoding.Bytes.Parser ReadUtxosResponse
loop :: ReadUtxosResponse
-> Growing Vector RealWorld AnyUtxoData -> Parser ReadUtxosResponse
loop ReadUtxosResponse
x Growing Vector RealWorld AnyUtxoData
mutable'items
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector AnyUtxoData
frozen'items <- IO (Vector AnyUtxoData) -> Parser (Vector AnyUtxoData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AnyUtxoData
-> IO (Vector AnyUtxoData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld AnyUtxoData
Growing Vector (PrimState IO) AnyUtxoData
mutable'items)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ReadUtxosResponse -> Parser ReadUtxosResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter ReadUtxosResponse ReadUtxosResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadUtxosResponse -> ReadUtxosResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadUtxosResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadUtxosResponse FieldSet
Setter ReadUtxosResponse ReadUtxosResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
ReadUtxosResponse
ReadUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
-> Vector AnyUtxoData -> ReadUtxosResponse -> ReadUtxosResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'items") Vector AnyUtxoData
frozen'items ReadUtxosResponse
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !AnyUtxoData
y <- Parser AnyUtxoData -> String -> Parser AnyUtxoData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AnyUtxoData -> Parser AnyUtxoData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser AnyUtxoData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"items"
Growing Vector RealWorld AnyUtxoData
v <- IO (Growing Vector RealWorld AnyUtxoData)
-> Parser (Growing Vector RealWorld AnyUtxoData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AnyUtxoData
-> AnyUtxoData -> IO (Growing Vector (PrimState IO) AnyUtxoData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld AnyUtxoData
Growing Vector (PrimState IO) AnyUtxoData
mutable'items AnyUtxoData
y)
ReadUtxosResponse
-> Growing Vector RealWorld AnyUtxoData -> Parser ReadUtxosResponse
loop ReadUtxosResponse
x Growing Vector RealWorld AnyUtxoData
v
Word64
18
-> do ChainPoint
y <- Parser ChainPoint -> String -> Parser ChainPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ChainPoint -> Parser ChainPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ChainPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"ledger_tip"
ReadUtxosResponse
-> Growing Vector RealWorld AnyUtxoData -> Parser ReadUtxosResponse
loop
(Setter ReadUtxosResponse ReadUtxosResponse ChainPoint ChainPoint
-> ChainPoint -> ReadUtxosResponse -> ReadUtxosResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ledgerTip") ChainPoint
y ReadUtxosResponse
x)
Growing Vector RealWorld AnyUtxoData
mutable'items
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ReadUtxosResponse
-> Growing Vector RealWorld AnyUtxoData -> Parser ReadUtxosResponse
loop
(Setter ReadUtxosResponse ReadUtxosResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ReadUtxosResponse -> ReadUtxosResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f ReadUtxosResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadUtxosResponse FieldSet
Setter ReadUtxosResponse ReadUtxosResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadUtxosResponse
x)
Growing Vector RealWorld AnyUtxoData
mutable'items
in
Parser ReadUtxosResponse -> String -> Parser ReadUtxosResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld AnyUtxoData
mutable'items <- IO (Growing Vector RealWorld AnyUtxoData)
-> Parser (Growing Vector RealWorld AnyUtxoData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld AnyUtxoData)
IO (Growing Vector (PrimState IO) AnyUtxoData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
ReadUtxosResponse
-> Growing Vector RealWorld AnyUtxoData -> Parser ReadUtxosResponse
loop ReadUtxosResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AnyUtxoData
mutable'items)
String
"ReadUtxosResponse"
buildMessage :: ReadUtxosResponse -> Builder
buildMessage
= \ ReadUtxosResponse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((AnyUtxoData -> Builder) -> Vector AnyUtxoData -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ AnyUtxoData
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (AnyUtxoData -> ByteString) -> AnyUtxoData -> 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))
AnyUtxoData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyUtxoData
_v))
(FoldLike
(Vector AnyUtxoData)
ReadUtxosResponse
ReadUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
-> ReadUtxosResponse -> Vector AnyUtxoData
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 @"vec'items") ReadUtxosResponse
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ChainPoint)
ReadUtxosResponse
ReadUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> ReadUtxosResponse -> 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") ReadUtxosResponse
_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 ReadUtxosResponse ReadUtxosResponse FieldSet FieldSet
-> ReadUtxosResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ReadUtxosResponse ReadUtxosResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadUtxosResponse FieldSet
Data.ProtoLens.unknownFields ReadUtxosResponse
_x)))
instance Control.DeepSeq.NFData ReadUtxosResponse where
rnf :: ReadUtxosResponse -> ()
rnf
= \ ReadUtxosResponse
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadUtxosResponse -> FieldSet
_ReadUtxosResponse'_unknownFields ReadUtxosResponse
x__)
(Vector AnyUtxoData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ReadUtxosResponse -> Vector AnyUtxoData
_ReadUtxosResponse'items ReadUtxosResponse
x__)
(Maybe ChainPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadUtxosResponse -> Maybe ChainPoint
_ReadUtxosResponse'ledgerTip ReadUtxosResponse
x__) ()))
data SearchUtxosRequest
= SearchUtxosRequest'_constructor {SearchUtxosRequest -> Maybe UtxoPredicate
_SearchUtxosRequest'predicate :: !(Prelude.Maybe UtxoPredicate),
SearchUtxosRequest -> Maybe FieldMask
_SearchUtxosRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask),
SearchUtxosRequest -> FieldSet
_SearchUtxosRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SearchUtxosRequest -> SearchUtxosRequest -> Bool
(SearchUtxosRequest -> SearchUtxosRequest -> Bool)
-> (SearchUtxosRequest -> SearchUtxosRequest -> Bool)
-> Eq SearchUtxosRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
== :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
$c/= :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
/= :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
Prelude.Eq, Eq SearchUtxosRequest
Eq SearchUtxosRequest =>
(SearchUtxosRequest -> SearchUtxosRequest -> Ordering)
-> (SearchUtxosRequest -> SearchUtxosRequest -> Bool)
-> (SearchUtxosRequest -> SearchUtxosRequest -> Bool)
-> (SearchUtxosRequest -> SearchUtxosRequest -> Bool)
-> (SearchUtxosRequest -> SearchUtxosRequest -> Bool)
-> (SearchUtxosRequest -> SearchUtxosRequest -> SearchUtxosRequest)
-> (SearchUtxosRequest -> SearchUtxosRequest -> SearchUtxosRequest)
-> Ord SearchUtxosRequest
SearchUtxosRequest -> SearchUtxosRequest -> Bool
SearchUtxosRequest -> SearchUtxosRequest -> Ordering
SearchUtxosRequest -> SearchUtxosRequest -> SearchUtxosRequest
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 :: SearchUtxosRequest -> SearchUtxosRequest -> Ordering
compare :: SearchUtxosRequest -> SearchUtxosRequest -> Ordering
$c< :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
< :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
$c<= :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
<= :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
$c> :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
> :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
$c>= :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
>= :: SearchUtxosRequest -> SearchUtxosRequest -> Bool
$cmax :: SearchUtxosRequest -> SearchUtxosRequest -> SearchUtxosRequest
max :: SearchUtxosRequest -> SearchUtxosRequest -> SearchUtxosRequest
$cmin :: SearchUtxosRequest -> SearchUtxosRequest -> SearchUtxosRequest
min :: SearchUtxosRequest -> SearchUtxosRequest -> SearchUtxosRequest
Prelude.Ord)
instance Prelude.Show SearchUtxosRequest where
showsPrec :: Int -> SearchUtxosRequest -> ShowS
showsPrec Int
_ SearchUtxosRequest
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SearchUtxosRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SearchUtxosRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SearchUtxosRequest "predicate" UtxoPredicate where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "predicate"
-> (UtxoPredicate -> f UtxoPredicate)
-> SearchUtxosRequest
-> f SearchUtxosRequest
fieldOf Proxy# "predicate"
_
= ((Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> SearchUtxosRequest -> f SearchUtxosRequest)
-> ((UtxoPredicate -> f UtxoPredicate)
-> Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> (UtxoPredicate -> f UtxoPredicate)
-> SearchUtxosRequest
-> f SearchUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosRequest -> Maybe UtxoPredicate)
-> (SearchUtxosRequest
-> Maybe UtxoPredicate -> SearchUtxosRequest)
-> Lens
SearchUtxosRequest
SearchUtxosRequest
(Maybe UtxoPredicate)
(Maybe UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosRequest -> Maybe UtxoPredicate
_SearchUtxosRequest'predicate
(\ SearchUtxosRequest
x__ Maybe UtxoPredicate
y__ -> SearchUtxosRequest
x__ {_SearchUtxosRequest'predicate = y__}))
(UtxoPredicate -> Lens' (Maybe UtxoPredicate) UtxoPredicate
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UtxoPredicate
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SearchUtxosRequest "maybe'predicate" (Prelude.Maybe UtxoPredicate) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'predicate"
-> (Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> SearchUtxosRequest
-> f SearchUtxosRequest
fieldOf Proxy# "maybe'predicate"
_
= ((Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> SearchUtxosRequest -> f SearchUtxosRequest)
-> ((Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> (Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> SearchUtxosRequest
-> f SearchUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosRequest -> Maybe UtxoPredicate)
-> (SearchUtxosRequest
-> Maybe UtxoPredicate -> SearchUtxosRequest)
-> Lens
SearchUtxosRequest
SearchUtxosRequest
(Maybe UtxoPredicate)
(Maybe UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosRequest -> Maybe UtxoPredicate
_SearchUtxosRequest'predicate
(\ SearchUtxosRequest
x__ Maybe UtxoPredicate
y__ -> SearchUtxosRequest
x__ {_SearchUtxosRequest'predicate = y__}))
(Maybe UtxoPredicate -> f (Maybe UtxoPredicate))
-> Maybe UtxoPredicate -> f (Maybe UtxoPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SearchUtxosRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fieldMask"
-> (FieldMask -> f FieldMask)
-> SearchUtxosRequest
-> f SearchUtxosRequest
fieldOf Proxy# "fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> SearchUtxosRequest -> f SearchUtxosRequest)
-> ((FieldMask -> f FieldMask)
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (FieldMask -> f FieldMask)
-> SearchUtxosRequest
-> f SearchUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosRequest -> Maybe FieldMask)
-> (SearchUtxosRequest -> Maybe FieldMask -> SearchUtxosRequest)
-> Lens
SearchUtxosRequest
SearchUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosRequest -> Maybe FieldMask
_SearchUtxosRequest'fieldMask
(\ SearchUtxosRequest
x__ Maybe FieldMask
y__ -> SearchUtxosRequest
x__ {_SearchUtxosRequest'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 SearchUtxosRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fieldMask"
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> SearchUtxosRequest
-> f SearchUtxosRequest
fieldOf Proxy# "maybe'fieldMask"
_
= ((Maybe FieldMask -> f (Maybe FieldMask))
-> SearchUtxosRequest -> f SearchUtxosRequest)
-> ((Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask))
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> SearchUtxosRequest
-> f SearchUtxosRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosRequest -> Maybe FieldMask)
-> (SearchUtxosRequest -> Maybe FieldMask -> SearchUtxosRequest)
-> Lens
SearchUtxosRequest
SearchUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosRequest -> Maybe FieldMask
_SearchUtxosRequest'fieldMask
(\ SearchUtxosRequest
x__ Maybe FieldMask
y__ -> SearchUtxosRequest
x__ {_SearchUtxosRequest'fieldMask = y__}))
(Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SearchUtxosRequest where
messageName :: Proxy SearchUtxosRequest -> Text
messageName Proxy SearchUtxosRequest
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.SearchUtxosRequest"
packedMessageDescriptor :: Proxy SearchUtxosRequest -> ByteString
packedMessageDescriptor Proxy SearchUtxosRequest
_
= ByteString
"\n\
\\DC2SearchUtxosRequest\DC2B\n\
\\tpredicate\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\tpredicate\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask"
packedFileDescriptor :: Proxy SearchUtxosRequest -> ByteString
packedFileDescriptor Proxy SearchUtxosRequest
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SearchUtxosRequest)
fieldsByTag
= let
predicate__field_descriptor :: FieldDescriptor SearchUtxosRequest
predicate__field_descriptor
= String
-> FieldTypeDescriptor UtxoPredicate
-> FieldAccessor SearchUtxosRequest UtxoPredicate
-> FieldDescriptor SearchUtxosRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"predicate"
(MessageOrGroup -> FieldTypeDescriptor UtxoPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UtxoPredicate)
(Lens
SearchUtxosRequest
SearchUtxosRequest
(Maybe UtxoPredicate)
(Maybe UtxoPredicate)
-> FieldAccessor SearchUtxosRequest UtxoPredicate
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'predicate")) ::
Data.ProtoLens.FieldDescriptor SearchUtxosRequest
fieldMask__field_descriptor :: FieldDescriptor SearchUtxosRequest
fieldMask__field_descriptor
= String
-> FieldTypeDescriptor FieldMask
-> FieldAccessor SearchUtxosRequest FieldMask
-> FieldDescriptor SearchUtxosRequest
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
SearchUtxosRequest
SearchUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
-> FieldAccessor SearchUtxosRequest 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 SearchUtxosRequest
in
[(Tag, FieldDescriptor SearchUtxosRequest)]
-> Map Tag (FieldDescriptor SearchUtxosRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SearchUtxosRequest
predicate__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SearchUtxosRequest
fieldMask__field_descriptor)]
unknownFields :: Lens' SearchUtxosRequest FieldSet
unknownFields
= (SearchUtxosRequest -> FieldSet)
-> (SearchUtxosRequest -> FieldSet -> SearchUtxosRequest)
-> Lens' SearchUtxosRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosRequest -> FieldSet
_SearchUtxosRequest'_unknownFields
(\ SearchUtxosRequest
x__ FieldSet
y__ -> SearchUtxosRequest
x__ {_SearchUtxosRequest'_unknownFields = y__})
defMessage :: SearchUtxosRequest
defMessage
= SearchUtxosRequest'_constructor
{_SearchUtxosRequest'predicate :: Maybe UtxoPredicate
_SearchUtxosRequest'predicate = Maybe UtxoPredicate
forall a. Maybe a
Prelude.Nothing,
_SearchUtxosRequest'fieldMask :: Maybe FieldMask
_SearchUtxosRequest'fieldMask = Maybe FieldMask
forall a. Maybe a
Prelude.Nothing,
_SearchUtxosRequest'_unknownFields :: FieldSet
_SearchUtxosRequest'_unknownFields = []}
parseMessage :: Parser SearchUtxosRequest
parseMessage
= let
loop ::
SearchUtxosRequest
-> Data.ProtoLens.Encoding.Bytes.Parser SearchUtxosRequest
loop :: SearchUtxosRequest -> Parser SearchUtxosRequest
loop SearchUtxosRequest
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
SearchUtxosRequest -> Parser SearchUtxosRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SearchUtxosRequest SearchUtxosRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SearchUtxosRequest
-> SearchUtxosRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f SearchUtxosRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchUtxosRequest FieldSet
Setter SearchUtxosRequest SearchUtxosRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SearchUtxosRequest
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do UtxoPredicate
y <- Parser UtxoPredicate -> String -> Parser UtxoPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser UtxoPredicate -> Parser UtxoPredicate
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser UtxoPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"predicate"
SearchUtxosRequest -> Parser SearchUtxosRequest
loop
(Setter
SearchUtxosRequest SearchUtxosRequest UtxoPredicate UtxoPredicate
-> UtxoPredicate -> SearchUtxosRequest -> SearchUtxosRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"predicate") UtxoPredicate
y SearchUtxosRequest
x)
Word64
18
-> do FieldMask
y <- Parser FieldMask -> String -> Parser FieldMask
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser FieldMask -> Parser FieldMask
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FieldMask
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"field_mask"
SearchUtxosRequest -> Parser SearchUtxosRequest
loop
(Setter SearchUtxosRequest SearchUtxosRequest FieldMask FieldMask
-> FieldMask -> SearchUtxosRequest -> SearchUtxosRequest
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fieldMask") FieldMask
y SearchUtxosRequest
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SearchUtxosRequest -> Parser SearchUtxosRequest
loop
(Setter SearchUtxosRequest SearchUtxosRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SearchUtxosRequest
-> SearchUtxosRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f SearchUtxosRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchUtxosRequest FieldSet
Setter SearchUtxosRequest SearchUtxosRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SearchUtxosRequest
x)
in
Parser SearchUtxosRequest -> String -> Parser SearchUtxosRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SearchUtxosRequest -> Parser SearchUtxosRequest
loop SearchUtxosRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SearchUtxosRequest"
buildMessage :: SearchUtxosRequest -> Builder
buildMessage
= \ SearchUtxosRequest
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe UtxoPredicate)
SearchUtxosRequest
SearchUtxosRequest
(Maybe UtxoPredicate)
(Maybe UtxoPredicate)
-> SearchUtxosRequest -> Maybe UtxoPredicate
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'predicate") SearchUtxosRequest
_x
of
Maybe UtxoPredicate
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just UtxoPredicate
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (UtxoPredicate -> ByteString) -> UtxoPredicate -> 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))
UtxoPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UtxoPredicate
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe FieldMask)
SearchUtxosRequest
SearchUtxosRequest
(Maybe FieldMask)
(Maybe FieldMask)
-> SearchUtxosRequest -> 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") SearchUtxosRequest
_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
18)
((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 SearchUtxosRequest SearchUtxosRequest FieldSet FieldSet
-> SearchUtxosRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet SearchUtxosRequest SearchUtxosRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchUtxosRequest FieldSet
Data.ProtoLens.unknownFields SearchUtxosRequest
_x)))
instance Control.DeepSeq.NFData SearchUtxosRequest where
rnf :: SearchUtxosRequest -> ()
rnf
= \ SearchUtxosRequest
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchUtxosRequest -> FieldSet
_SearchUtxosRequest'_unknownFields SearchUtxosRequest
x__)
(Maybe UtxoPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchUtxosRequest -> Maybe UtxoPredicate
_SearchUtxosRequest'predicate SearchUtxosRequest
x__)
(Maybe FieldMask -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SearchUtxosRequest -> Maybe FieldMask
_SearchUtxosRequest'fieldMask SearchUtxosRequest
x__) ()))
data SearchUtxosResponse
= SearchUtxosResponse'_constructor {SearchUtxosResponse -> Vector AnyUtxoData
_SearchUtxosResponse'items :: !(Data.Vector.Vector AnyUtxoData),
SearchUtxosResponse -> Maybe ChainPoint
_SearchUtxosResponse'ledgerTip :: !(Prelude.Maybe ChainPoint),
SearchUtxosResponse -> FieldSet
_SearchUtxosResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SearchUtxosResponse -> SearchUtxosResponse -> Bool
(SearchUtxosResponse -> SearchUtxosResponse -> Bool)
-> (SearchUtxosResponse -> SearchUtxosResponse -> Bool)
-> Eq SearchUtxosResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
== :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
$c/= :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
/= :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
Prelude.Eq, Eq SearchUtxosResponse
Eq SearchUtxosResponse =>
(SearchUtxosResponse -> SearchUtxosResponse -> Ordering)
-> (SearchUtxosResponse -> SearchUtxosResponse -> Bool)
-> (SearchUtxosResponse -> SearchUtxosResponse -> Bool)
-> (SearchUtxosResponse -> SearchUtxosResponse -> Bool)
-> (SearchUtxosResponse -> SearchUtxosResponse -> Bool)
-> (SearchUtxosResponse
-> SearchUtxosResponse -> SearchUtxosResponse)
-> (SearchUtxosResponse
-> SearchUtxosResponse -> SearchUtxosResponse)
-> Ord SearchUtxosResponse
SearchUtxosResponse -> SearchUtxosResponse -> Bool
SearchUtxosResponse -> SearchUtxosResponse -> Ordering
SearchUtxosResponse -> SearchUtxosResponse -> SearchUtxosResponse
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 :: SearchUtxosResponse -> SearchUtxosResponse -> Ordering
compare :: SearchUtxosResponse -> SearchUtxosResponse -> Ordering
$c< :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
< :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
$c<= :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
<= :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
$c> :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
> :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
$c>= :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
>= :: SearchUtxosResponse -> SearchUtxosResponse -> Bool
$cmax :: SearchUtxosResponse -> SearchUtxosResponse -> SearchUtxosResponse
max :: SearchUtxosResponse -> SearchUtxosResponse -> SearchUtxosResponse
$cmin :: SearchUtxosResponse -> SearchUtxosResponse -> SearchUtxosResponse
min :: SearchUtxosResponse -> SearchUtxosResponse -> SearchUtxosResponse
Prelude.Ord)
instance Prelude.Show SearchUtxosResponse where
showsPrec :: Int -> SearchUtxosResponse -> ShowS
showsPrec Int
_ SearchUtxosResponse
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SearchUtxosResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SearchUtxosResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SearchUtxosResponse "items" [AnyUtxoData] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "items"
-> ([AnyUtxoData] -> f [AnyUtxoData])
-> SearchUtxosResponse
-> f SearchUtxosResponse
fieldOf Proxy# "items"
_
= ((Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> SearchUtxosResponse -> f SearchUtxosResponse)
-> (([AnyUtxoData] -> f [AnyUtxoData])
-> Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> ([AnyUtxoData] -> f [AnyUtxoData])
-> SearchUtxosResponse
-> f SearchUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosResponse -> Vector AnyUtxoData)
-> (SearchUtxosResponse
-> Vector AnyUtxoData -> SearchUtxosResponse)
-> Lens
SearchUtxosResponse
SearchUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosResponse -> Vector AnyUtxoData
_SearchUtxosResponse'items
(\ SearchUtxosResponse
x__ Vector AnyUtxoData
y__ -> SearchUtxosResponse
x__ {_SearchUtxosResponse'items = y__}))
((Vector AnyUtxoData -> [AnyUtxoData])
-> (Vector AnyUtxoData -> [AnyUtxoData] -> Vector AnyUtxoData)
-> Lens
(Vector AnyUtxoData)
(Vector AnyUtxoData)
[AnyUtxoData]
[AnyUtxoData]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector AnyUtxoData -> [AnyUtxoData]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector AnyUtxoData
_ [AnyUtxoData]
y__ -> [AnyUtxoData] -> Vector AnyUtxoData
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AnyUtxoData]
y__))
instance Data.ProtoLens.Field.HasField SearchUtxosResponse "vec'items" (Data.Vector.Vector AnyUtxoData) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'items"
-> (Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> SearchUtxosResponse
-> f SearchUtxosResponse
fieldOf Proxy# "vec'items"
_
= ((Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> SearchUtxosResponse -> f SearchUtxosResponse)
-> ((Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> (Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> SearchUtxosResponse
-> f SearchUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosResponse -> Vector AnyUtxoData)
-> (SearchUtxosResponse
-> Vector AnyUtxoData -> SearchUtxosResponse)
-> Lens
SearchUtxosResponse
SearchUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosResponse -> Vector AnyUtxoData
_SearchUtxosResponse'items
(\ SearchUtxosResponse
x__ Vector AnyUtxoData
y__ -> SearchUtxosResponse
x__ {_SearchUtxosResponse'items = y__}))
(Vector AnyUtxoData -> f (Vector AnyUtxoData))
-> Vector AnyUtxoData -> f (Vector AnyUtxoData)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SearchUtxosResponse "ledgerTip" ChainPoint where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ledgerTip"
-> (ChainPoint -> f ChainPoint)
-> SearchUtxosResponse
-> f SearchUtxosResponse
fieldOf Proxy# "ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> SearchUtxosResponse -> f SearchUtxosResponse)
-> ((ChainPoint -> f ChainPoint)
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (ChainPoint -> f ChainPoint)
-> SearchUtxosResponse
-> f SearchUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosResponse -> Maybe ChainPoint)
-> (SearchUtxosResponse -> Maybe ChainPoint -> SearchUtxosResponse)
-> Lens
SearchUtxosResponse
SearchUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosResponse -> Maybe ChainPoint
_SearchUtxosResponse'ledgerTip
(\ SearchUtxosResponse
x__ Maybe ChainPoint
y__ -> SearchUtxosResponse
x__ {_SearchUtxosResponse'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 SearchUtxosResponse "maybe'ledgerTip" (Prelude.Maybe ChainPoint) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ledgerTip"
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> SearchUtxosResponse
-> f SearchUtxosResponse
fieldOf Proxy# "maybe'ledgerTip"
_
= ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> SearchUtxosResponse -> f SearchUtxosResponse)
-> ((Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint))
-> (Maybe ChainPoint -> f (Maybe ChainPoint))
-> SearchUtxosResponse
-> f SearchUtxosResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchUtxosResponse -> Maybe ChainPoint)
-> (SearchUtxosResponse -> Maybe ChainPoint -> SearchUtxosResponse)
-> Lens
SearchUtxosResponse
SearchUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosResponse -> Maybe ChainPoint
_SearchUtxosResponse'ledgerTip
(\ SearchUtxosResponse
x__ Maybe ChainPoint
y__ -> SearchUtxosResponse
x__ {_SearchUtxosResponse'ledgerTip = y__}))
(Maybe ChainPoint -> f (Maybe ChainPoint))
-> Maybe ChainPoint -> f (Maybe ChainPoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SearchUtxosResponse where
messageName :: Proxy SearchUtxosResponse -> Text
messageName Proxy SearchUtxosResponse
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.SearchUtxosResponse"
packedMessageDescriptor :: Proxy SearchUtxosResponse -> ByteString
packedMessageDescriptor Proxy SearchUtxosResponse
_
= ByteString
"\n\
\\DC3SearchUtxosResponse\DC28\n\
\\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip"
packedFileDescriptor :: Proxy SearchUtxosResponse -> ByteString
packedFileDescriptor Proxy SearchUtxosResponse
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SearchUtxosResponse)
fieldsByTag
= let
items__field_descriptor :: FieldDescriptor SearchUtxosResponse
items__field_descriptor
= String
-> FieldTypeDescriptor AnyUtxoData
-> FieldAccessor SearchUtxosResponse AnyUtxoData
-> FieldDescriptor SearchUtxosResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"items"
(MessageOrGroup -> FieldTypeDescriptor AnyUtxoData
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyUtxoData)
(Packing
-> Lens' SearchUtxosResponse [AnyUtxoData]
-> FieldAccessor SearchUtxosResponse AnyUtxoData
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"items")) ::
Data.ProtoLens.FieldDescriptor SearchUtxosResponse
ledgerTip__field_descriptor :: FieldDescriptor SearchUtxosResponse
ledgerTip__field_descriptor
= String
-> FieldTypeDescriptor ChainPoint
-> FieldAccessor SearchUtxosResponse ChainPoint
-> FieldDescriptor SearchUtxosResponse
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
SearchUtxosResponse
SearchUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> FieldAccessor SearchUtxosResponse 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 SearchUtxosResponse
in
[(Tag, FieldDescriptor SearchUtxosResponse)]
-> Map Tag (FieldDescriptor SearchUtxosResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SearchUtxosResponse
items__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SearchUtxosResponse
ledgerTip__field_descriptor)]
unknownFields :: Lens' SearchUtxosResponse FieldSet
unknownFields
= (SearchUtxosResponse -> FieldSet)
-> (SearchUtxosResponse -> FieldSet -> SearchUtxosResponse)
-> Lens' SearchUtxosResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchUtxosResponse -> FieldSet
_SearchUtxosResponse'_unknownFields
(\ SearchUtxosResponse
x__ FieldSet
y__ -> SearchUtxosResponse
x__ {_SearchUtxosResponse'_unknownFields = y__})
defMessage :: SearchUtxosResponse
defMessage
= SearchUtxosResponse'_constructor
{_SearchUtxosResponse'items :: Vector AnyUtxoData
_SearchUtxosResponse'items = Vector AnyUtxoData
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SearchUtxosResponse'ledgerTip :: Maybe ChainPoint
_SearchUtxosResponse'ledgerTip = Maybe ChainPoint
forall a. Maybe a
Prelude.Nothing,
_SearchUtxosResponse'_unknownFields :: FieldSet
_SearchUtxosResponse'_unknownFields = []}
parseMessage :: Parser SearchUtxosResponse
parseMessage
= let
loop ::
SearchUtxosResponse
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyUtxoData
-> Data.ProtoLens.Encoding.Bytes.Parser SearchUtxosResponse
loop :: SearchUtxosResponse
-> Growing Vector RealWorld AnyUtxoData
-> Parser SearchUtxosResponse
loop SearchUtxosResponse
x Growing Vector RealWorld AnyUtxoData
mutable'items
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector AnyUtxoData
frozen'items <- IO (Vector AnyUtxoData) -> Parser (Vector AnyUtxoData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AnyUtxoData
-> IO (Vector AnyUtxoData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld AnyUtxoData
Growing Vector (PrimState IO) AnyUtxoData
mutable'items)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
SearchUtxosResponse -> Parser SearchUtxosResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SearchUtxosResponse SearchUtxosResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SearchUtxosResponse
-> SearchUtxosResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f SearchUtxosResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchUtxosResponse FieldSet
Setter SearchUtxosResponse SearchUtxosResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
SearchUtxosResponse
SearchUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
-> Vector AnyUtxoData -> SearchUtxosResponse -> SearchUtxosResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'items") Vector AnyUtxoData
frozen'items SearchUtxosResponse
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do !AnyUtxoData
y <- Parser AnyUtxoData -> String -> Parser AnyUtxoData
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AnyUtxoData -> Parser AnyUtxoData
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser AnyUtxoData
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"items"
Growing Vector RealWorld AnyUtxoData
v <- IO (Growing Vector RealWorld AnyUtxoData)
-> Parser (Growing Vector RealWorld AnyUtxoData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AnyUtxoData
-> AnyUtxoData -> IO (Growing Vector (PrimState IO) AnyUtxoData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld AnyUtxoData
Growing Vector (PrimState IO) AnyUtxoData
mutable'items AnyUtxoData
y)
SearchUtxosResponse
-> Growing Vector RealWorld AnyUtxoData
-> Parser SearchUtxosResponse
loop SearchUtxosResponse
x Growing Vector RealWorld AnyUtxoData
v
Word64
18
-> do ChainPoint
y <- Parser ChainPoint -> String -> Parser ChainPoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ChainPoint -> Parser ChainPoint
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ChainPoint
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"ledger_tip"
SearchUtxosResponse
-> Growing Vector RealWorld AnyUtxoData
-> Parser SearchUtxosResponse
loop
(Setter
SearchUtxosResponse SearchUtxosResponse ChainPoint ChainPoint
-> ChainPoint -> SearchUtxosResponse -> SearchUtxosResponse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ledgerTip") ChainPoint
y SearchUtxosResponse
x)
Growing Vector RealWorld AnyUtxoData
mutable'items
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SearchUtxosResponse
-> Growing Vector RealWorld AnyUtxoData
-> Parser SearchUtxosResponse
loop
(Setter SearchUtxosResponse SearchUtxosResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SearchUtxosResponse
-> SearchUtxosResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f SearchUtxosResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchUtxosResponse FieldSet
Setter SearchUtxosResponse SearchUtxosResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SearchUtxosResponse
x)
Growing Vector RealWorld AnyUtxoData
mutable'items
in
Parser SearchUtxosResponse -> String -> Parser SearchUtxosResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld AnyUtxoData
mutable'items <- IO (Growing Vector RealWorld AnyUtxoData)
-> Parser (Growing Vector RealWorld AnyUtxoData)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld AnyUtxoData)
IO (Growing Vector (PrimState IO) AnyUtxoData)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
SearchUtxosResponse
-> Growing Vector RealWorld AnyUtxoData
-> Parser SearchUtxosResponse
loop SearchUtxosResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AnyUtxoData
mutable'items)
String
"SearchUtxosResponse"
buildMessage :: SearchUtxosResponse -> Builder
buildMessage
= \ SearchUtxosResponse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((AnyUtxoData -> Builder) -> Vector AnyUtxoData -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ AnyUtxoData
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (AnyUtxoData -> ByteString) -> AnyUtxoData -> 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))
AnyUtxoData -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyUtxoData
_v))
(FoldLike
(Vector AnyUtxoData)
SearchUtxosResponse
SearchUtxosResponse
(Vector AnyUtxoData)
(Vector AnyUtxoData)
-> SearchUtxosResponse -> Vector AnyUtxoData
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 @"vec'items") SearchUtxosResponse
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ChainPoint)
SearchUtxosResponse
SearchUtxosResponse
(Maybe ChainPoint)
(Maybe ChainPoint)
-> SearchUtxosResponse -> 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") SearchUtxosResponse
_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 SearchUtxosResponse SearchUtxosResponse FieldSet FieldSet
-> SearchUtxosResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet SearchUtxosResponse SearchUtxosResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchUtxosResponse FieldSet
Data.ProtoLens.unknownFields SearchUtxosResponse
_x)))
instance Control.DeepSeq.NFData SearchUtxosResponse where
rnf :: SearchUtxosResponse -> ()
rnf
= \ SearchUtxosResponse
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchUtxosResponse -> FieldSet
_SearchUtxosResponse'_unknownFields SearchUtxosResponse
x__)
(Vector AnyUtxoData -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchUtxosResponse -> Vector AnyUtxoData
_SearchUtxosResponse'items SearchUtxosResponse
x__)
(Maybe ChainPoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SearchUtxosResponse -> Maybe ChainPoint
_SearchUtxosResponse'ledgerTip SearchUtxosResponse
x__) ()))
data TxoRef
= TxoRef'_constructor {TxoRef -> ByteString
_TxoRef'hash :: !Data.ByteString.ByteString,
TxoRef -> Word32
_TxoRef'index :: !Data.Word.Word32,
TxoRef -> FieldSet
_TxoRef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TxoRef -> TxoRef -> Bool
(TxoRef -> TxoRef -> Bool)
-> (TxoRef -> TxoRef -> Bool) -> Eq TxoRef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxoRef -> TxoRef -> Bool
== :: TxoRef -> TxoRef -> Bool
$c/= :: TxoRef -> TxoRef -> Bool
/= :: TxoRef -> TxoRef -> Bool
Prelude.Eq, Eq TxoRef
Eq TxoRef =>
(TxoRef -> TxoRef -> Ordering)
-> (TxoRef -> TxoRef -> Bool)
-> (TxoRef -> TxoRef -> Bool)
-> (TxoRef -> TxoRef -> Bool)
-> (TxoRef -> TxoRef -> Bool)
-> (TxoRef -> TxoRef -> TxoRef)
-> (TxoRef -> TxoRef -> TxoRef)
-> Ord TxoRef
TxoRef -> TxoRef -> Bool
TxoRef -> TxoRef -> Ordering
TxoRef -> TxoRef -> TxoRef
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 :: TxoRef -> TxoRef -> Ordering
compare :: TxoRef -> TxoRef -> Ordering
$c< :: TxoRef -> TxoRef -> Bool
< :: TxoRef -> TxoRef -> Bool
$c<= :: TxoRef -> TxoRef -> Bool
<= :: TxoRef -> TxoRef -> Bool
$c> :: TxoRef -> TxoRef -> Bool
> :: TxoRef -> TxoRef -> Bool
$c>= :: TxoRef -> TxoRef -> Bool
>= :: TxoRef -> TxoRef -> Bool
$cmax :: TxoRef -> TxoRef -> TxoRef
max :: TxoRef -> TxoRef -> TxoRef
$cmin :: TxoRef -> TxoRef -> TxoRef
min :: TxoRef -> TxoRef -> TxoRef
Prelude.Ord)
instance Prelude.Show TxoRef where
showsPrec :: Int -> TxoRef -> ShowS
showsPrec Int
_ TxoRef
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TxoRef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxoRef
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxoRef "hash" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash" -> (ByteString -> f ByteString) -> TxoRef -> f TxoRef
fieldOf Proxy# "hash"
_
= ((ByteString -> f ByteString) -> TxoRef -> f TxoRef)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> TxoRef
-> f TxoRef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TxoRef -> ByteString)
-> (TxoRef -> ByteString -> TxoRef)
-> Lens TxoRef TxoRef ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxoRef -> ByteString
_TxoRef'hash (\ TxoRef
x__ ByteString
y__ -> TxoRef
x__ {_TxoRef'hash = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxoRef "index" Data.Word.Word32 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "index" -> (Word32 -> f Word32) -> TxoRef -> f TxoRef
fieldOf Proxy# "index"
_
= ((Word32 -> f Word32) -> TxoRef -> f TxoRef)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> TxoRef
-> f TxoRef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TxoRef -> Word32)
-> (TxoRef -> Word32 -> TxoRef) -> Lens TxoRef TxoRef Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxoRef -> Word32
_TxoRef'index (\ TxoRef
x__ Word32
y__ -> TxoRef
x__ {_TxoRef'index = y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxoRef where
messageName :: Proxy TxoRef -> Text
messageName Proxy TxoRef
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.TxoRef"
packedMessageDescriptor :: Proxy TxoRef -> ByteString
packedMessageDescriptor Proxy TxoRef
_
= ByteString
"\n\
\\ACKTxoRef\DC2\DC2\n\
\\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\
\\ENQindex\CAN\STX \SOH(\rR\ENQindex"
packedFileDescriptor :: Proxy TxoRef -> ByteString
packedFileDescriptor Proxy TxoRef
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TxoRef)
fieldsByTag
= let
hash__field_descriptor :: FieldDescriptor TxoRef
hash__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TxoRef ByteString
-> FieldDescriptor TxoRef
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 TxoRef TxoRef ByteString ByteString
-> FieldAccessor TxoRef 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 TxoRef
index__field_descriptor :: FieldDescriptor TxoRef
index__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor TxoRef Word32
-> FieldDescriptor TxoRef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"index"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens TxoRef TxoRef Word32 Word32 -> FieldAccessor TxoRef Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
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 @"index")) ::
Data.ProtoLens.FieldDescriptor TxoRef
in
[(Tag, FieldDescriptor TxoRef)] -> Map Tag (FieldDescriptor TxoRef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxoRef
hash__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxoRef
index__field_descriptor)]
unknownFields :: Lens' TxoRef FieldSet
unknownFields
= (TxoRef -> FieldSet)
-> (TxoRef -> FieldSet -> TxoRef) -> Lens' TxoRef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxoRef -> FieldSet
_TxoRef'_unknownFields
(\ TxoRef
x__ FieldSet
y__ -> TxoRef
x__ {_TxoRef'_unknownFields = y__})
defMessage :: TxoRef
defMessage
= TxoRef'_constructor
{_TxoRef'hash :: ByteString
_TxoRef'hash = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TxoRef'index :: Word32
_TxoRef'index = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TxoRef'_unknownFields :: FieldSet
_TxoRef'_unknownFields = []}
parseMessage :: Parser TxoRef
parseMessage
= let
loop :: TxoRef -> Data.ProtoLens.Encoding.Bytes.Parser TxoRef
loop :: TxoRef -> Parser TxoRef
loop TxoRef
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
TxoRef -> Parser TxoRef
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter TxoRef TxoRef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxoRef -> TxoRef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f TxoRef FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxoRef FieldSet
Setter TxoRef TxoRef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TxoRef
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
String
"hash"
TxoRef -> Parser TxoRef
loop (Setter TxoRef TxoRef ByteString ByteString
-> ByteString -> TxoRef -> TxoRef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") ByteString
y TxoRef
x)
Word64
16
-> do Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"index"
TxoRef -> Parser TxoRef
loop (Setter TxoRef TxoRef Word32 Word32 -> Word32 -> TxoRef -> TxoRef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"index") Word32
y TxoRef
x)
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TxoRef -> Parser TxoRef
loop
(Setter TxoRef TxoRef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxoRef -> TxoRef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f TxoRef FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxoRef FieldSet
Setter TxoRef TxoRef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxoRef
x)
in
Parser TxoRef -> String -> Parser TxoRef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TxoRef -> Parser TxoRef
loop TxoRef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TxoRef"
buildMessage :: TxoRef -> Builder
buildMessage
= \ TxoRef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: ByteString
_v = FoldLike ByteString TxoRef TxoRef ByteString ByteString
-> TxoRef -> 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") TxoRef
_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
10)
((\ 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 :: Word32
_v = FoldLike Word32 TxoRef TxoRef Word32 Word32 -> TxoRef -> Word32
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 @"index") TxoRef
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
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
16)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet TxoRef TxoRef FieldSet FieldSet
-> TxoRef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxoRef TxoRef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxoRef FieldSet
Data.ProtoLens.unknownFields TxoRef
_x)))
instance Control.DeepSeq.NFData TxoRef where
rnf :: TxoRef -> ()
rnf
= \ TxoRef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TxoRef -> FieldSet
_TxoRef'_unknownFields TxoRef
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TxoRef -> ByteString
_TxoRef'hash TxoRef
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxoRef -> Word32
_TxoRef'index TxoRef
x__) ()))
data UtxoPredicate
= UtxoPredicate'_constructor {UtxoPredicate -> Maybe AnyUtxoPattern
_UtxoPredicate'match :: !(Prelude.Maybe AnyUtxoPattern),
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'not :: !(Data.Vector.Vector UtxoPredicate),
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'allOf :: !(Data.Vector.Vector UtxoPredicate),
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'anyOf :: !(Data.Vector.Vector UtxoPredicate),
UtxoPredicate -> FieldSet
_UtxoPredicate'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (UtxoPredicate -> UtxoPredicate -> Bool
(UtxoPredicate -> UtxoPredicate -> Bool)
-> (UtxoPredicate -> UtxoPredicate -> Bool) -> Eq UtxoPredicate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UtxoPredicate -> UtxoPredicate -> Bool
== :: UtxoPredicate -> UtxoPredicate -> Bool
$c/= :: UtxoPredicate -> UtxoPredicate -> Bool
/= :: UtxoPredicate -> UtxoPredicate -> Bool
Prelude.Eq, Eq UtxoPredicate
Eq UtxoPredicate =>
(UtxoPredicate -> UtxoPredicate -> Ordering)
-> (UtxoPredicate -> UtxoPredicate -> Bool)
-> (UtxoPredicate -> UtxoPredicate -> Bool)
-> (UtxoPredicate -> UtxoPredicate -> Bool)
-> (UtxoPredicate -> UtxoPredicate -> Bool)
-> (UtxoPredicate -> UtxoPredicate -> UtxoPredicate)
-> (UtxoPredicate -> UtxoPredicate -> UtxoPredicate)
-> Ord UtxoPredicate
UtxoPredicate -> UtxoPredicate -> Bool
UtxoPredicate -> UtxoPredicate -> Ordering
UtxoPredicate -> UtxoPredicate -> UtxoPredicate
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 :: UtxoPredicate -> UtxoPredicate -> Ordering
compare :: UtxoPredicate -> UtxoPredicate -> Ordering
$c< :: UtxoPredicate -> UtxoPredicate -> Bool
< :: UtxoPredicate -> UtxoPredicate -> Bool
$c<= :: UtxoPredicate -> UtxoPredicate -> Bool
<= :: UtxoPredicate -> UtxoPredicate -> Bool
$c> :: UtxoPredicate -> UtxoPredicate -> Bool
> :: UtxoPredicate -> UtxoPredicate -> Bool
$c>= :: UtxoPredicate -> UtxoPredicate -> Bool
>= :: UtxoPredicate -> UtxoPredicate -> Bool
$cmax :: UtxoPredicate -> UtxoPredicate -> UtxoPredicate
max :: UtxoPredicate -> UtxoPredicate -> UtxoPredicate
$cmin :: UtxoPredicate -> UtxoPredicate -> UtxoPredicate
min :: UtxoPredicate -> UtxoPredicate -> UtxoPredicate
Prelude.Ord)
instance Prelude.Show UtxoPredicate where
showsPrec :: Int -> UtxoPredicate -> ShowS
showsPrec Int
_ UtxoPredicate
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(UtxoPredicate -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UtxoPredicate
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UtxoPredicate "match" AnyUtxoPattern where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "match"
-> (AnyUtxoPattern -> f AnyUtxoPattern)
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "match"
_
= ((Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> UtxoPredicate -> f UtxoPredicate)
-> ((AnyUtxoPattern -> f AnyUtxoPattern)
-> Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> (AnyUtxoPattern -> f AnyUtxoPattern)
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Maybe AnyUtxoPattern)
-> (UtxoPredicate -> Maybe AnyUtxoPattern -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Maybe AnyUtxoPattern)
(Maybe AnyUtxoPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Maybe AnyUtxoPattern
_UtxoPredicate'match
(\ UtxoPredicate
x__ Maybe AnyUtxoPattern
y__ -> UtxoPredicate
x__ {_UtxoPredicate'match = y__}))
(AnyUtxoPattern -> Lens' (Maybe AnyUtxoPattern) AnyUtxoPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AnyUtxoPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField UtxoPredicate "maybe'match" (Prelude.Maybe AnyUtxoPattern) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'match"
-> (Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "maybe'match"
_
= ((Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> UtxoPredicate -> f UtxoPredicate)
-> ((Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> (Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Maybe AnyUtxoPattern)
-> (UtxoPredicate -> Maybe AnyUtxoPattern -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Maybe AnyUtxoPattern)
(Maybe AnyUtxoPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Maybe AnyUtxoPattern
_UtxoPredicate'match
(\ UtxoPredicate
x__ Maybe AnyUtxoPattern
y__ -> UtxoPredicate
x__ {_UtxoPredicate'match = y__}))
(Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern))
-> Maybe AnyUtxoPattern -> f (Maybe AnyUtxoPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UtxoPredicate "not" [UtxoPredicate] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "not"
-> ([UtxoPredicate] -> f [UtxoPredicate])
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "not"
_
= ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate -> f UtxoPredicate)
-> (([UtxoPredicate] -> f [UtxoPredicate])
-> Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> ([UtxoPredicate] -> f [UtxoPredicate])
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Vector UtxoPredicate)
-> (UtxoPredicate -> Vector UtxoPredicate -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'not (\ UtxoPredicate
x__ Vector UtxoPredicate
y__ -> UtxoPredicate
x__ {_UtxoPredicate'not = y__}))
((Vector UtxoPredicate -> [UtxoPredicate])
-> (Vector UtxoPredicate
-> [UtxoPredicate] -> Vector UtxoPredicate)
-> Lens
(Vector UtxoPredicate)
(Vector UtxoPredicate)
[UtxoPredicate]
[UtxoPredicate]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector UtxoPredicate -> [UtxoPredicate]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector UtxoPredicate
_ [UtxoPredicate]
y__ -> [UtxoPredicate] -> Vector UtxoPredicate
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UtxoPredicate]
y__))
instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'not" (Data.Vector.Vector UtxoPredicate) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'not"
-> (Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "vec'not"
_
= ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate -> f UtxoPredicate)
-> ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> (Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Vector UtxoPredicate)
-> (UtxoPredicate -> Vector UtxoPredicate -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'not (\ UtxoPredicate
x__ Vector UtxoPredicate
y__ -> UtxoPredicate
x__ {_UtxoPredicate'not = y__}))
(Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> Vector UtxoPredicate -> f (Vector UtxoPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UtxoPredicate "allOf" [UtxoPredicate] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "allOf"
-> ([UtxoPredicate] -> f [UtxoPredicate])
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "allOf"
_
= ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate -> f UtxoPredicate)
-> (([UtxoPredicate] -> f [UtxoPredicate])
-> Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> ([UtxoPredicate] -> f [UtxoPredicate])
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Vector UtxoPredicate)
-> (UtxoPredicate -> Vector UtxoPredicate -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'allOf
(\ UtxoPredicate
x__ Vector UtxoPredicate
y__ -> UtxoPredicate
x__ {_UtxoPredicate'allOf = y__}))
((Vector UtxoPredicate -> [UtxoPredicate])
-> (Vector UtxoPredicate
-> [UtxoPredicate] -> Vector UtxoPredicate)
-> Lens
(Vector UtxoPredicate)
(Vector UtxoPredicate)
[UtxoPredicate]
[UtxoPredicate]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector UtxoPredicate -> [UtxoPredicate]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector UtxoPredicate
_ [UtxoPredicate]
y__ -> [UtxoPredicate] -> Vector UtxoPredicate
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UtxoPredicate]
y__))
instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'allOf" (Data.Vector.Vector UtxoPredicate) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'allOf"
-> (Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "vec'allOf"
_
= ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate -> f UtxoPredicate)
-> ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> (Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Vector UtxoPredicate)
-> (UtxoPredicate -> Vector UtxoPredicate -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'allOf
(\ UtxoPredicate
x__ Vector UtxoPredicate
y__ -> UtxoPredicate
x__ {_UtxoPredicate'allOf = y__}))
(Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> Vector UtxoPredicate -> f (Vector UtxoPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UtxoPredicate "anyOf" [UtxoPredicate] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "anyOf"
-> ([UtxoPredicate] -> f [UtxoPredicate])
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "anyOf"
_
= ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate -> f UtxoPredicate)
-> (([UtxoPredicate] -> f [UtxoPredicate])
-> Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> ([UtxoPredicate] -> f [UtxoPredicate])
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Vector UtxoPredicate)
-> (UtxoPredicate -> Vector UtxoPredicate -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'anyOf
(\ UtxoPredicate
x__ Vector UtxoPredicate
y__ -> UtxoPredicate
x__ {_UtxoPredicate'anyOf = y__}))
((Vector UtxoPredicate -> [UtxoPredicate])
-> (Vector UtxoPredicate
-> [UtxoPredicate] -> Vector UtxoPredicate)
-> Lens
(Vector UtxoPredicate)
(Vector UtxoPredicate)
[UtxoPredicate]
[UtxoPredicate]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector UtxoPredicate -> [UtxoPredicate]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector UtxoPredicate
_ [UtxoPredicate]
y__ -> [UtxoPredicate] -> Vector UtxoPredicate
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UtxoPredicate]
y__))
instance Data.ProtoLens.Field.HasField UtxoPredicate "vec'anyOf" (Data.Vector.Vector UtxoPredicate) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'anyOf"
-> (Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate
-> f UtxoPredicate
fieldOf Proxy# "vec'anyOf"
_
= ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate -> f UtxoPredicate)
-> ((Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> (Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> UtxoPredicate
-> f UtxoPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UtxoPredicate -> Vector UtxoPredicate)
-> (UtxoPredicate -> Vector UtxoPredicate -> UtxoPredicate)
-> Lens
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'anyOf
(\ UtxoPredicate
x__ Vector UtxoPredicate
y__ -> UtxoPredicate
x__ {_UtxoPredicate'anyOf = y__}))
(Vector UtxoPredicate -> f (Vector UtxoPredicate))
-> Vector UtxoPredicate -> f (Vector UtxoPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UtxoPredicate where
messageName :: Proxy UtxoPredicate -> Text
messageName Proxy UtxoPredicate
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.query.UtxoPredicate"
packedMessageDescriptor :: Proxy UtxoPredicate -> ByteString
packedMessageDescriptor Proxy UtxoPredicate
_
= ByteString
"\n\
\\rUtxoPredicate\DC2;\n\
\\ENQmatch\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyUtxoPatternR\ENQmatch\DC26\n\
\\ETXnot\CAN\STX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ETXnot\DC2;\n\
\\ACKall_of\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQallOf\DC2;\n\
\\ACKany_of\CAN\EOT \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQanyOf"
packedFileDescriptor :: Proxy UtxoPredicate -> ByteString
packedFileDescriptor Proxy UtxoPredicate
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor UtxoPredicate)
fieldsByTag
= let
match__field_descriptor :: FieldDescriptor UtxoPredicate
match__field_descriptor
= String
-> FieldTypeDescriptor AnyUtxoPattern
-> FieldAccessor UtxoPredicate AnyUtxoPattern
-> FieldDescriptor UtxoPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"match"
(MessageOrGroup -> FieldTypeDescriptor AnyUtxoPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AnyUtxoPattern)
(Lens
UtxoPredicate
UtxoPredicate
(Maybe AnyUtxoPattern)
(Maybe AnyUtxoPattern)
-> FieldAccessor UtxoPredicate AnyUtxoPattern
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'match")) ::
Data.ProtoLens.FieldDescriptor UtxoPredicate
not__field_descriptor :: FieldDescriptor UtxoPredicate
not__field_descriptor
= String
-> FieldTypeDescriptor UtxoPredicate
-> FieldAccessor UtxoPredicate UtxoPredicate
-> FieldDescriptor UtxoPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"not"
(MessageOrGroup -> FieldTypeDescriptor UtxoPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UtxoPredicate)
(Packing
-> Lens' UtxoPredicate [UtxoPredicate]
-> FieldAccessor UtxoPredicate UtxoPredicate
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"not")) ::
Data.ProtoLens.FieldDescriptor UtxoPredicate
allOf__field_descriptor :: FieldDescriptor UtxoPredicate
allOf__field_descriptor
= String
-> FieldTypeDescriptor UtxoPredicate
-> FieldAccessor UtxoPredicate UtxoPredicate
-> FieldDescriptor UtxoPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"all_of"
(MessageOrGroup -> FieldTypeDescriptor UtxoPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UtxoPredicate)
(Packing
-> Lens' UtxoPredicate [UtxoPredicate]
-> FieldAccessor UtxoPredicate UtxoPredicate
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allOf")) ::
Data.ProtoLens.FieldDescriptor UtxoPredicate
anyOf__field_descriptor :: FieldDescriptor UtxoPredicate
anyOf__field_descriptor
= String
-> FieldTypeDescriptor UtxoPredicate
-> FieldAccessor UtxoPredicate UtxoPredicate
-> FieldDescriptor UtxoPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"any_of"
(MessageOrGroup -> FieldTypeDescriptor UtxoPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UtxoPredicate)
(Packing
-> Lens' UtxoPredicate [UtxoPredicate]
-> FieldAccessor UtxoPredicate UtxoPredicate
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"anyOf")) ::
Data.ProtoLens.FieldDescriptor UtxoPredicate
in
[(Tag, FieldDescriptor UtxoPredicate)]
-> Map Tag (FieldDescriptor UtxoPredicate)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UtxoPredicate
match__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor UtxoPredicate
not__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor UtxoPredicate
allOf__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor UtxoPredicate
anyOf__field_descriptor)]
unknownFields :: Lens' UtxoPredicate FieldSet
unknownFields
= (UtxoPredicate -> FieldSet)
-> (UtxoPredicate -> FieldSet -> UtxoPredicate)
-> Lens' UtxoPredicate FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UtxoPredicate -> FieldSet
_UtxoPredicate'_unknownFields
(\ UtxoPredicate
x__ FieldSet
y__ -> UtxoPredicate
x__ {_UtxoPredicate'_unknownFields = y__})
defMessage :: UtxoPredicate
defMessage
= UtxoPredicate'_constructor
{_UtxoPredicate'match :: Maybe AnyUtxoPattern
_UtxoPredicate'match = Maybe AnyUtxoPattern
forall a. Maybe a
Prelude.Nothing,
_UtxoPredicate'not :: Vector UtxoPredicate
_UtxoPredicate'not = Vector UtxoPredicate
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_UtxoPredicate'allOf :: Vector UtxoPredicate
_UtxoPredicate'allOf = Vector UtxoPredicate
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_UtxoPredicate'anyOf :: Vector UtxoPredicate
_UtxoPredicate'anyOf = Vector UtxoPredicate
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_UtxoPredicate'_unknownFields :: FieldSet
_UtxoPredicate'_unknownFields = []}
parseMessage :: Parser UtxoPredicate
parseMessage
= let
loop ::
UtxoPredicate
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld UtxoPredicate
-> Data.ProtoLens.Encoding.Bytes.Parser UtxoPredicate
loop :: UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Parser UtxoPredicate
loop UtxoPredicate
x Growing Vector RealWorld UtxoPredicate
mutable'allOf Growing Vector RealWorld UtxoPredicate
mutable'anyOf Growing Vector RealWorld UtxoPredicate
mutable'not
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector UtxoPredicate
frozen'allOf <- IO (Vector UtxoPredicate) -> Parser (Vector UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) UtxoPredicate
-> IO (Vector UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld UtxoPredicate
Growing Vector (PrimState IO) UtxoPredicate
mutable'allOf)
Vector UtxoPredicate
frozen'anyOf <- IO (Vector UtxoPredicate) -> Parser (Vector UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) UtxoPredicate
-> IO (Vector UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld UtxoPredicate
Growing Vector (PrimState IO) UtxoPredicate
mutable'anyOf)
Vector UtxoPredicate
frozen'not <- IO (Vector UtxoPredicate) -> Parser (Vector UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) UtxoPredicate
-> IO (Vector UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld UtxoPredicate
Growing Vector (PrimState IO) UtxoPredicate
mutable'not)
(let missing :: [a]
missing = []
in
if [Any] -> Bool
forall a. [a] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall a. String -> Parser a
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
UtxoPredicate -> Parser UtxoPredicate
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter UtxoPredicate UtxoPredicate FieldSet FieldSet
-> (FieldSet -> FieldSet) -> UtxoPredicate -> UtxoPredicate
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f UtxoPredicate FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UtxoPredicate FieldSet
Setter UtxoPredicate UtxoPredicate FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
-> Vector UtxoPredicate -> UtxoPredicate -> UtxoPredicate
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'allOf") Vector UtxoPredicate
frozen'allOf
(Setter
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
-> Vector UtxoPredicate -> UtxoPredicate -> UtxoPredicate
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'anyOf") Vector UtxoPredicate
frozen'anyOf
(Setter
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
-> Vector UtxoPredicate -> UtxoPredicate -> UtxoPredicate
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'not") Vector UtxoPredicate
frozen'not UtxoPredicate
x))))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
Word64
10
-> do AnyUtxoPattern
y <- Parser AnyUtxoPattern -> String -> Parser AnyUtxoPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AnyUtxoPattern -> Parser AnyUtxoPattern
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser AnyUtxoPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"match"
UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Parser UtxoPredicate
loop
(Setter UtxoPredicate UtxoPredicate AnyUtxoPattern AnyUtxoPattern
-> AnyUtxoPattern -> UtxoPredicate -> UtxoPredicate
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"match") AnyUtxoPattern
y UtxoPredicate
x)
Growing Vector RealWorld UtxoPredicate
mutable'allOf Growing Vector RealWorld UtxoPredicate
mutable'anyOf Growing Vector RealWorld UtxoPredicate
mutable'not
Word64
18
-> do !UtxoPredicate
y <- Parser UtxoPredicate -> String -> Parser UtxoPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser UtxoPredicate -> Parser UtxoPredicate
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser UtxoPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"not"
Growing Vector RealWorld UtxoPredicate
v <- IO (Growing Vector RealWorld UtxoPredicate)
-> Parser (Growing Vector RealWorld UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) UtxoPredicate
-> UtxoPredicate
-> IO (Growing Vector (PrimState IO) UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld UtxoPredicate
Growing Vector (PrimState IO) UtxoPredicate
mutable'not UtxoPredicate
y)
UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Parser UtxoPredicate
loop UtxoPredicate
x Growing Vector RealWorld UtxoPredicate
mutable'allOf Growing Vector RealWorld UtxoPredicate
mutable'anyOf Growing Vector RealWorld UtxoPredicate
v
Word64
26
-> do !UtxoPredicate
y <- Parser UtxoPredicate -> String -> Parser UtxoPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser UtxoPredicate -> Parser UtxoPredicate
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser UtxoPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"all_of"
Growing Vector RealWorld UtxoPredicate
v <- IO (Growing Vector RealWorld UtxoPredicate)
-> Parser (Growing Vector RealWorld UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) UtxoPredicate
-> UtxoPredicate
-> IO (Growing Vector (PrimState IO) UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld UtxoPredicate
Growing Vector (PrimState IO) UtxoPredicate
mutable'allOf UtxoPredicate
y)
UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Parser UtxoPredicate
loop UtxoPredicate
x Growing Vector RealWorld UtxoPredicate
v Growing Vector RealWorld UtxoPredicate
mutable'anyOf Growing Vector RealWorld UtxoPredicate
mutable'not
Word64
34
-> do !UtxoPredicate
y <- Parser UtxoPredicate -> String -> Parser UtxoPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser UtxoPredicate -> Parser UtxoPredicate
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Parser UtxoPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
String
"any_of"
Growing Vector RealWorld UtxoPredicate
v <- IO (Growing Vector RealWorld UtxoPredicate)
-> Parser (Growing Vector RealWorld UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) UtxoPredicate
-> UtxoPredicate
-> IO (Growing Vector (PrimState IO) UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld UtxoPredicate
Growing Vector (PrimState IO) UtxoPredicate
mutable'anyOf UtxoPredicate
y)
UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Parser UtxoPredicate
loop UtxoPredicate
x Growing Vector RealWorld UtxoPredicate
mutable'allOf Growing Vector RealWorld UtxoPredicate
v Growing Vector RealWorld UtxoPredicate
mutable'not
Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Parser UtxoPredicate
loop
(Setter UtxoPredicate UtxoPredicate FieldSet FieldSet
-> (FieldSet -> FieldSet) -> UtxoPredicate -> UtxoPredicate
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
LensLike' f UtxoPredicate FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UtxoPredicate FieldSet
Setter UtxoPredicate UtxoPredicate FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) UtxoPredicate
x)
Growing Vector RealWorld UtxoPredicate
mutable'allOf Growing Vector RealWorld UtxoPredicate
mutable'anyOf Growing Vector RealWorld UtxoPredicate
mutable'not
in
Parser UtxoPredicate -> String -> Parser UtxoPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld UtxoPredicate
mutable'allOf <- IO (Growing Vector RealWorld UtxoPredicate)
-> Parser (Growing Vector RealWorld UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld UtxoPredicate)
IO (Growing Vector (PrimState IO) UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld UtxoPredicate
mutable'anyOf <- IO (Growing Vector RealWorld UtxoPredicate)
-> Parser (Growing Vector RealWorld UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld UtxoPredicate)
IO (Growing Vector (PrimState IO) UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld UtxoPredicate
mutable'not <- IO (Growing Vector RealWorld UtxoPredicate)
-> Parser (Growing Vector RealWorld UtxoPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld UtxoPredicate)
IO (Growing Vector (PrimState IO) UtxoPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Growing Vector RealWorld UtxoPredicate
-> Parser UtxoPredicate
loop
UtxoPredicate
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UtxoPredicate
mutable'allOf Growing Vector RealWorld UtxoPredicate
mutable'anyOf Growing Vector RealWorld UtxoPredicate
mutable'not)
String
"UtxoPredicate"
buildMessage :: UtxoPredicate -> Builder
buildMessage
= \ UtxoPredicate
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe AnyUtxoPattern)
UtxoPredicate
UtxoPredicate
(Maybe AnyUtxoPattern)
(Maybe AnyUtxoPattern)
-> UtxoPredicate -> Maybe AnyUtxoPattern
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'match") UtxoPredicate
_x
of
Maybe AnyUtxoPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just AnyUtxoPattern
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (AnyUtxoPattern -> ByteString) -> AnyUtxoPattern -> 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))
AnyUtxoPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyUtxoPattern
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((UtxoPredicate -> Builder) -> Vector UtxoPredicate -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ UtxoPredicate
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (UtxoPredicate -> ByteString) -> UtxoPredicate -> 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))
UtxoPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UtxoPredicate
_v))
(FoldLike
(Vector UtxoPredicate)
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
-> UtxoPredicate -> Vector UtxoPredicate
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 @"vec'not") UtxoPredicate
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((UtxoPredicate -> Builder) -> Vector UtxoPredicate -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ UtxoPredicate
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (UtxoPredicate -> ByteString) -> UtxoPredicate -> 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))
UtxoPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UtxoPredicate
_v))
(FoldLike
(Vector UtxoPredicate)
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
-> UtxoPredicate -> Vector UtxoPredicate
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 @"vec'allOf") UtxoPredicate
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((UtxoPredicate -> Builder) -> Vector UtxoPredicate -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ UtxoPredicate
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (UtxoPredicate -> ByteString) -> UtxoPredicate -> 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))
UtxoPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UtxoPredicate
_v))
(FoldLike
(Vector UtxoPredicate)
UtxoPredicate
UtxoPredicate
(Vector UtxoPredicate)
(Vector UtxoPredicate)
-> UtxoPredicate -> Vector UtxoPredicate
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 @"vec'anyOf") UtxoPredicate
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet UtxoPredicate UtxoPredicate FieldSet FieldSet
-> UtxoPredicate -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet UtxoPredicate UtxoPredicate FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UtxoPredicate FieldSet
Data.ProtoLens.unknownFields UtxoPredicate
_x)))))
instance Control.DeepSeq.NFData UtxoPredicate where
rnf :: UtxoPredicate -> ()
rnf
= \ UtxoPredicate
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(UtxoPredicate -> FieldSet
_UtxoPredicate'_unknownFields UtxoPredicate
x__)
(Maybe AnyUtxoPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(UtxoPredicate -> Maybe AnyUtxoPattern
_UtxoPredicate'match UtxoPredicate
x__)
(Vector UtxoPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'not UtxoPredicate
x__)
(Vector UtxoPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'allOf UtxoPredicate
x__)
(Vector UtxoPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (UtxoPredicate -> Vector UtxoPredicate
_UtxoPredicate'anyOf UtxoPredicate
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 = '["readData",
"readParams",
"readUtxos",
"searchUtxos"]
packedServiceDescriptor :: Proxy QueryService -> ByteString
packedServiceDescriptor Proxy QueryService
_
= ByteString
"\n\
\\fQueryService\DC2a\n\
\\n\
\ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponse\DC2^\n\
\\tReadUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponse\DC2d\n\
\\vSearchUtxos\DC2).utxorpc.v1alpha.query.SearchUtxosRequest\SUB*.utxorpc.v1alpha.query.SearchUtxosResponse\DC2[\n\
\\bReadData\DC2&.utxorpc.v1alpha.query.ReadDataRequest\SUB'.utxorpc.v1alpha.query.ReadDataResponse"
instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readParams" where
type MethodName QueryService "readParams" = "ReadParams"
type MethodInput QueryService "readParams" = ReadParamsRequest
type MethodOutput QueryService "readParams" = ReadParamsResponse
type MethodStreamingType QueryService "readParams" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readUtxos" where
type MethodName QueryService "readUtxos" = "ReadUtxos"
type MethodInput QueryService "readUtxos" = ReadUtxosRequest
type MethodOutput QueryService "readUtxos" = ReadUtxosResponse
type MethodStreamingType QueryService "readUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "searchUtxos" where
type MethodName QueryService "searchUtxos" = "SearchUtxos"
type MethodInput QueryService "searchUtxos" = SearchUtxosRequest
type MethodOutput QueryService "searchUtxos" = SearchUtxosResponse
type MethodStreamingType QueryService "searchUtxos" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl QueryService "readData" where
type MethodName QueryService "readData" = "ReadData"
type MethodInput QueryService "readData" = ReadDataRequest
type MethodOutput QueryService "readData" = ReadDataResponse
type MethodStreamingType QueryService "readData" = '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\"4\n\
\\n\
\ChainPoint\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\EOTR\EOTslot\DC2\DC2\n\
\\EOThash\CAN\STX \SOH(\fR\EOThash\"2\n\
\\ACKTxoRef\DC2\DC2\n\
\\EOThash\CAN\SOH \SOH(\fR\EOThash\DC2\DC4\n\
\\ENQindex\CAN\STX \SOH(\rR\ENQindex\"N\n\
\\DC1ReadParamsRequest\DC29\n\
\\n\
\field_mask\CAN\SOH \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"X\n\
\\SOAnyChainParams\DC2<\n\
\\acardano\CAN\SOH \SOH(\v2 .utxorpc.v1alpha.cardano.PParamsH\NULR\acardanoB\b\n\
\\ACKparams\"\149\SOH\n\
\\DC2ReadParamsResponse\DC2=\n\
\\ACKvalues\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyChainParamsR\ACKvalues\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip\"f\n\
\\SOAnyUtxoPattern\DC2D\n\
\\acardano\CAN\SOH \SOH(\v2(.utxorpc.v1alpha.cardano.TxOutputPatternH\NULR\acardanoB\SO\n\
\\futxo_pattern\"\254\SOH\n\
\\rUtxoPredicate\DC2;\n\
\\ENQmatch\CAN\SOH \SOH(\v2%.utxorpc.v1alpha.query.AnyUtxoPatternR\ENQmatch\DC26\n\
\\ETXnot\CAN\STX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ETXnot\DC2;\n\
\\ACKall_of\CAN\ETX \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQallOf\DC2;\n\
\\ACKany_of\CAN\EOT \ETX(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\ENQanyOf\"\183\SOH\n\
\\vAnyUtxoData\DC26\n\
\\atxo_ref\CAN\SOH \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\DC2!\n\
\\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC2=\n\
\\acardano\CAN\ETX \SOH(\v2!.utxorpc.v1alpha.cardano.TxOutputH\NULR\acardanoB\SO\n\
\\fparsed_state\"\128\SOH\n\
\\DLEReadUtxosRequest\DC21\n\
\\EOTkeys\CAN\SOH \ETX(\v2\GS.utxorpc.v1alpha.query.TxoRefR\EOTkeys\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"\143\SOH\n\
\\DC1ReadUtxosResponse\DC28\n\
\\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip\"\147\SOH\n\
\\DC2SearchUtxosRequest\DC2B\n\
\\tpredicate\CAN\SOH \SOH(\v2$.utxorpc.v1alpha.query.UtxoPredicateR\tpredicate\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"\145\SOH\n\
\\DC3SearchUtxosResponse\DC28\n\
\\ENQitems\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.query.AnyUtxoDataR\ENQitems\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip\"`\n\
\\SIReadDataRequest\DC2\DC2\n\
\\EOTkeys\CAN\SOH \ETX(\fR\EOTkeys\DC29\n\
\\n\
\field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"\149\SOH\n\
\\rAnyChainDatum\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2!\n\
\\fnative_bytes\CAN\STX \SOH(\fR\vnativeBytes\DC2?\n\
\\acardano\CAN\ETX \SOH(\v2#.utxorpc.v1alpha.cardano.PlutusDataH\NULR\acardanoB\SO\n\
\\fparsed_state\"\146\SOH\n\
\\DLEReadDataResponse\DC2<\n\
\\ACKvalues\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.query.AnyChainDatumR\ACKvalues\DC2@\n\
\\n\
\ledger_tip\CAN\STX \SOH(\v2!.utxorpc.v1alpha.query.ChainPointR\tledgerTip2\148\ETX\n\
\\fQueryService\DC2a\n\
\\n\
\ReadParams\DC2(.utxorpc.v1alpha.query.ReadParamsRequest\SUB).utxorpc.v1alpha.query.ReadParamsResponse\DC2^\n\
\\tReadUtxos\DC2'.utxorpc.v1alpha.query.ReadUtxosRequest\SUB(.utxorpc.v1alpha.query.ReadUtxosResponse\DC2d\n\
\\vSearchUtxos\DC2).utxorpc.v1alpha.query.SearchUtxosRequest\SUB*.utxorpc.v1alpha.query.SearchUtxosResponse\DC2[\n\
\\bReadData\DC2&.utxorpc.v1alpha.query.ReadDataRequest\SUB'.utxorpc.v1alpha.query.ReadDataResponseB\210\SOH\n\
\\EMcom.utxorpc.v1alpha.queryB\n\
\QueryProtoP\SOHZ3github.com/utxorpc/go-codegen/utxorpc/v1alpha/query\162\STX\ETXUVQ\170\STX\NAKUtxorpc.V1alpha.Query\202\STX\NAKUtxorpc\\V1alpha\\Query\226\STX!Utxorpc\\V1alpha\\Query\\GPBMetadata\234\STX\ETBUtxorpc::V1alpha::QueryJ\242%\n\
\\ACK\DC2\EOT\STX\NULw\SOH\n\
\9\n\
\\SOH\f\DC2\ETX\STX\NUL\DC22// A consistent view of the state of the ledger\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\EOT\NUL\RS\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\ACK\NUL*\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\a\NUL/\n\
\<\n\
\\STX\EOT\NUL\DC2\EOT\n\
\\NUL\r\SOH\SUB0 Represents a specific point in the blockchain.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\n\
\\b\DC2\n\
\\ESC\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\v\STX\DC2\"\SO Slot number.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\v\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\v\t\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\v\DLE\DC1\n\
\\SUB\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\f\STX\DC1\"\r Block hash.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\f\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\f\b\f\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\f\SI\DLE\n\
\<\n\
\\STX\EOT\SOH\DC2\EOT\DLE\NUL\DC3\SOH\SUB0 Represents a reference to a transaction output\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\DLE\b\SO\n\
\\ETB\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC1\STX\DC1\"\n\
\ Tx hash.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\DC1\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC1\b\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC1\SI\DLE\n\
\\FS\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\DC2\STX\DC3\"\SI Output index.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\DC2\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\DC2\t\SO\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\DC2\DC1\DC2\n\
\1\n\
\\STX\EOT\STX\DC2\EOT\SYN\NUL\CAN\SOH\SUB% Request to get the chain parameters\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\SYN\b\EM\n\
\N\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\ETB\STX+\"A Field mask to selectively return fields in the parsed response.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\ETB\STX\ESC\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\ETB\FS&\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\ETB)*\n\
\U\n\
\\STX\EOT\ETX\DC2\EOT\ESC\NUL\US\SOH\SUBI An evenlope that holds parameter data from any of the compatible chains\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\ESC\b\SYN\n\
\\f\n\
\\EOT\EOT\ETX\b\NUL\DC2\EOT\FS\STX\RS\ETX\n\
\\f\n\
\\ENQ\EOT\ETX\b\NUL\SOH\DC2\ETX\FS\b\SO\n\
\!\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\GS\EOT0\"\DC4 Cardano parameters\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\GS\EOT#\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\GS$+\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\GS./\n\
\6\n\
\\STX\EOT\EOT\DC2\EOT\"\NUL%\SOH\SUB* Response containing the chain parameters\n\
\\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX\"\b\SUB\n\
\+\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX#\STX\FS\"\RS The value of the parameters.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX#\STX\DLE\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX#\DC1\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX#\SUB\ESC\n\
\J\n\
\\EOT\EOT\EOT\STX\SOH\DC2\ETX$\STX\FS\"= The chain point that represent the ledger current position.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETX$\STX\f\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX$\r\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX$\SUB\ESC\n\
\S\n\
\\STX\EOT\ENQ\DC2\EOT(\NUL,\SOH\SUBG An evenlope that holds an UTxO patterns from any of compatible chains\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETX(\b\SYN\n\
\\f\n\
\\EOT\EOT\ENQ\b\NUL\DC2\EOT)\STX+\ETX\n\
\\f\n\
\\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETX)\b\DC4\n\
\\v\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETX*\EOT8\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETX*\EOT+\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX*,3\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX*67\n\
\^\n\
\\STX\EOT\ACK\DC2\EOT/\NUL4\SOH\SUBR Represents a simple utxo predicate that can composed to create more complex ones\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETX/\b\NAK\n\
\8\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETX0\STX\ESC\"+ Predicate is true if tx exhibits pattern.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX0\STX\DLE\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX0\DC1\SYN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX0\EM\SUB\n\
\?\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETX1\STX!\"2 Predicate is true if tx doesn't exhibit pattern.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\EOT\DC2\ETX1\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX1\v\CAN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX1\EM\FS\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX1\US \n\
\F\n\
\\EOT\EOT\ACK\STX\STX\DC2\ETX2\STX$\"9 Predicate is true if utxo exhibits all of the patterns.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\EOT\DC2\ETX2\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ACK\DC2\ETX2\v\CAN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX2\EM\US\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX2\"#\n\
\F\n\
\\EOT\EOT\ACK\STX\ETX\DC2\ETX3\STX$\"9 Predicate is true if utxo exhibits any of the patterns.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\EOT\DC2\ETX3\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\ACK\DC2\ETX3\v\CAN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETX3\EM\US\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETX3\"#\n\
\J\n\
\\STX\EOT\a\DC2\EOT7\NUL=\SOH\SUB> An evenlope that holds an UTxO from any of compatible chains\n\
\\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETX7\b\DC3\n\
\0\n\
\\EOT\EOT\a\STX\NUL\DC2\ETX8\STX\NAK\"# Hash of the previous transaction.\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX8\STX\b\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX8\t\DLE\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX8\DC3\DC4\n\
\_\n\
\\EOT\EOT\a\STX\SOH\DC2\ETX9\STX\EM\"R An opaque bytestring corresponding to native representation in the source chain.\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETX9\STX\a\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX9\b\DC4\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX9\ETB\CAN\n\
\\f\n\
\\EOT\EOT\a\b\NUL\DC2\EOT:\STX<\ETX\n\
\\f\n\
\\ENQ\EOT\a\b\NUL\SOH\DC2\ETX:\b\DC4\n\
\\GS\n\
\\EOT\EOT\a\STX\STX\DC2\ETX;\EOT1\"\DLE A cardano UTxO\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ACK\DC2\ETX;\EOT$\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\SOH\DC2\ETX;%,\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ETX\DC2\ETX;/0\n\
\+\n\
\\STX\EOT\b\DC2\EOT@\NULC\SOH\SUB\US Request to get specific UTxOs\n\
\\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETX@\b\CAN\n\
\\"\n\
\\EOT\EOT\b\STX\NUL\DC2\ETXA\STX\ESC\"\NAK List of keys UTxOs.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\EOT\DC2\ETXA\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\ETXA\v\DC1\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXA\DC2\SYN\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXA\EM\SUB\n\
\7\n\
\\EOT\EOT\b\STX\SOH\DC2\ETXB\STX+\"* Field mask to selectively return fields.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ACK\DC2\ETXB\STX\ESC\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXB\FS&\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXB)*\n\
\T\n\
\\STX\EOT\t\DC2\EOTF\NULI\SOH\SUBH Response containing the UTxOs associated with the requested addresses.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\t\SOH\DC2\ETXF\b\EM\n\
\\GS\n\
\\EOT\EOT\t\STX\NUL\DC2\ETXG\STX!\"\DLE List of UTxOs.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXG\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXG\v\SYN\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXG\ETB\FS\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXG\US \n\
\J\n\
\\EOT\EOT\t\STX\SOH\DC2\ETXH\STX\FS\"= The chain point that represent the ledger current position.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ACK\DC2\ETXH\STX\f\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXH\r\ETB\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXH\SUB\ESC\n\
\;\n\
\\STX\EOT\n\
\\DC2\EOTL\NULO\SOH\SUB/ Reques to search for UTxO based on a pattern.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\n\
\\SOH\DC2\ETXL\b\SUB\n\
\)\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\ETXM\STX\RS\"\FS Pattern to match UTxOs by.\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ACK\DC2\ETXM\STX\SI\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\ETXM\DLE\EM\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\ETXM\FS\GS\n\
\7\n\
\\EOT\EOT\n\
\\STX\SOH\DC2\ETXN\STX+\"* Field mask to selectively return fields.\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\ACK\DC2\ETXN\STX\ESC\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\SOH\DC2\ETXN\FS&\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\SOH\ETX\DC2\ETXN)*\n\
\O\n\
\\STX\EOT\v\DC2\EOTR\NULU\SOH\SUBC Response containing the UTxOs that match the requested addresses.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\v\SOH\DC2\ETXR\b\ESC\n\
\\GS\n\
\\EOT\EOT\v\STX\NUL\DC2\ETXS\STX!\"\DLE List of UTxOs.\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\EOT\DC2\ETXS\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXS\v\SYN\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXS\ETB\FS\n\
\\f\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXS\US \n\
\J\n\
\\EOT\EOT\v\STX\SOH\DC2\ETXT\STX\FS\"= The chain point that represent the ledger current position.\n\
\\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ACK\DC2\ETXT\STX\f\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\ETXT\r\ETB\n\
\\f\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\ETXT\SUB\ESC\n\
\9\n\
\\STX\EOT\f\DC2\EOTX\NUL[\SOH\SUB- Request to get data (as in plural of datum)\n\
\\n\
\\n\
\\n\
\\ETX\EOT\f\SOH\DC2\ETXX\b\ETB\n\
\\v\n\
\\EOT\EOT\f\STX\NUL\DC2\ETXY\STX\SUB\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\EOT\DC2\ETXY\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ENQ\DC2\ETXY\v\DLE\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXY\DC1\NAK\n\
\\f\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXY\CAN\EM\n\
\G\n\
\\EOT\EOT\f\STX\SOH\DC2\ETXZ\STX+\": Field mask to selectively return fields in the response.\n\
\\n\
\\f\n\
\\ENQ\EOT\f\STX\SOH\ACK\DC2\ETXZ\STX\ESC\n\
\\f\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\ETXZ\FS&\n\
\\f\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\ETXZ)*\n\
\M\n\
\\STX\EOT\r\DC2\EOT^\NULd\SOH\SUBA An evenlope that holds a datum for any of the compatible chains\n\
\\n\
\\n\
\\n\
\\ETX\EOT\r\SOH\DC2\ETX^\b\NAK\n\
\\v\n\
\\EOT\EOT\r\STX\NUL\DC2\ETX_\STX\DLE\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ENQ\DC2\ETX_\STX\a\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\ETX_\b\v\n\
\\f\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\ETX_\SO\SI\n\
\_\n\
\\EOT\EOT\r\STX\SOH\DC2\ETX`\STX\EM\"R An opaque bytestring corresponding to native representation in the source chain.\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\SOH\ENQ\DC2\ETX`\STX\a\n\
\\f\n\
\\ENQ\EOT\r\STX\SOH\SOH\DC2\ETX`\b\DC4\n\
\\f\n\
\\ENQ\EOT\r\STX\SOH\ETX\DC2\ETX`\ETB\CAN\n\
\\f\n\
\\EOT\EOT\r\b\NUL\DC2\EOTa\STXc\ETX\n\
\\f\n\
\\ENQ\EOT\r\b\NUL\SOH\DC2\ETXa\b\DC4\n\
\\GS\n\
\\EOT\EOT\r\STX\STX\DC2\ETXb\EOT3\"\DLE A cardano UTxO\n\
\\n\
\\f\n\
\\ENQ\EOT\r\STX\STX\ACK\DC2\ETXb\EOT&\n\
\\f\n\
\\ENQ\EOT\r\STX\STX\SOH\DC2\ETXb'.\n\
\\f\n\
\\ENQ\EOT\r\STX\STX\ETX\DC2\ETXb12\n\
\>\n\
\\STX\EOT\SO\DC2\EOTg\NULj\SOH\SUB2 Response containing data (as in plural of datum)\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SO\SOH\DC2\ETXg\b\CAN\n\
\'\n\
\\EOT\EOT\SO\STX\NUL\DC2\ETXh\STX$\"\SUB The value of each datum.\n\
\\n\
\\f\n\
\\ENQ\EOT\SO\STX\NUL\EOT\DC2\ETXh\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXh\v\CAN\n\
\\f\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXh\EM\US\n\
\\f\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXh\"#\n\
\J\n\
\\EOT\EOT\SO\STX\SOH\DC2\ETXi\STX\FS\"= The chain point that represent the ledger current position.\n\
\\n\
\\f\n\
\\ENQ\EOT\SO\STX\SOH\ACK\DC2\ETXi\STX\f\n\
\\f\n\
\\ENQ\EOT\SO\STX\SOH\SOH\DC2\ETXi\r\ETB\n\
\\f\n\
\\ENQ\EOT\SO\STX\SOH\ETX\DC2\ETXi\SUB\ESC\n\
\E\n\
\\STX\ACK\NUL\DC2\EOTm\NULw\SOH\SUB9 Service definition for querying the state of the chain.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETXm\b\DC4\n\
\'\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETXn\STXA\"\SUB Get overall chain state.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETXn\ACK\DLE\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETXn\DC1\"\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETXn-?\n\
\0\n\
\\EOT\ACK\NUL\STX\SOH\DC2\ETXo\STX>\"# Read specific UTxOs by reference.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETXo\ACK\SI\n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETXo\DLE \n\
\\f\n\
\\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETXo+<\n\
\2\n\
\\EOT\ACK\NUL\STX\STX\DC2\ETXp\STXD\"% Search for UTxO based on a pattern.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETXp\ACK\DC1\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\STX\DC2\ETXp\DC2$\n\
\\f\n\
\\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETXp/B\n\
\*\n\
\\EOT\ACK\NUL\STX\ETX\DC2\ETXq\STX;\"\GS Read specific datum by hash\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETXq\ACK\SO\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETXq\SI\RS\n\
\\f\n\
\\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETXq)9b\ACKproto3"