{- This file was auto-generated from utxorpc/v1alpha/query/query.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Utxorpc.V1alpha.Query.Query (
        QueryService(..), 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
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.nativeBytes' @:: Lens' AnyChainDatum Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.key' @:: Lens' AnyChainDatum Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'parsedState' @:: Lens' AnyChainDatum (Prelude.Maybe AnyChainDatum'ParsedState)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainDatum (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.PlutusData)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyChainDatum Proto.Utxorpc.V1alpha.Cardano.Cardano.PlutusData@ -}
data AnyChainDatum
  = AnyChainDatum'_constructor {AnyChainDatum -> ByteString
_AnyChainDatum'nativeBytes :: !Data.ByteString.ByteString,
                                AnyChainDatum -> ByteString
_AnyChainDatum'key :: !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 "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 "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 "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!\n\
      \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC2\DLE\n\
      \\ETXkey\CAN\STX \SOH(\fR\ETXkey\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
        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
        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
        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
nativeBytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AnyChainDatum
key__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'nativeBytes :: ByteString
_AnyChainDatum'nativeBytes = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AnyChainDatum'key :: ByteString
_AnyChainDatum'key = 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
"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
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
"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
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 @"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
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 @"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
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'nativeBytes AnyChainDatum
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AnyChainDatum -> ByteString
_AnyChainDatum'key 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)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'params' @:: Lens' AnyChainParams (Prelude.Maybe AnyChainParams'Params)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyChainParams (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyChainParams Proto.Utxorpc.V1alpha.Cardano.Cardano.PParams@ -}
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)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.nativeBytes' @:: Lens' AnyUtxoData Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.txoRef' @:: Lens' AnyUtxoData TxoRef@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'txoRef' @:: Lens' AnyUtxoData (Prelude.Maybe TxoRef)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'parsedState' @:: Lens' AnyUtxoData (Prelude.Maybe AnyUtxoData'ParsedState)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyUtxoData (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyUtxoData Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutput@ -}
data AnyUtxoData
  = AnyUtxoData'_constructor {AnyUtxoData -> ByteString
_AnyUtxoData'nativeBytes :: !Data.ByteString.ByteString,
                              AnyUtxoData -> Maybe TxoRef
_AnyUtxoData'txoRef :: !(Prelude.Maybe TxoRef),
                              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 "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 "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 "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\DC2!\n\
      \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC26\n\
      \\atxo_ref\CAN\STX \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\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
        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
        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
        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
nativeBytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AnyUtxoData
txoRef__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'nativeBytes :: ByteString
_AnyUtxoData'nativeBytes = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AnyUtxoData'txoRef :: Maybe TxoRef
_AnyUtxoData'txoRef = Maybe TxoRef
forall a. Maybe a
Prelude.Nothing,
         _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 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
18
                          -> 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
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.<>)
             (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
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.<>)
                (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
18)
                          ((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.<>)
                   (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__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AnyUtxoData -> ByteString
_AnyUtxoData'nativeBytes AnyUtxoData
x__)
                (Maybe TxoRef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AnyUtxoData -> Maybe TxoRef
_AnyUtxoData'txoRef 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)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'utxoPattern' @:: Lens' AnyUtxoPattern (Prelude.Maybe AnyUtxoPattern'UtxoPattern)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'cardano' @:: Lens' AnyUtxoPattern (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.cardano' @:: Lens' AnyUtxoPattern Proto.Utxorpc.V1alpha.Cardano.Cardano.TxOutputPattern@ -}
data AnyUtxoPattern
  = AnyUtxoPattern'_constructor {AnyUtxoPattern -> 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)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.slot' @:: Lens' ChainPoint Data.Word.Word64@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.hash' @:: Lens' ChainPoint Data.ByteString.ByteString@ -}
data ChainPoint
  = ChainPoint'_constructor {ChainPoint -> 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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.keys' @:: Lens' ReadDataRequest [Data.ByteString.ByteString]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'keys' @:: Lens' ReadDataRequest (Data.Vector.Vector Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.fieldMask' @:: Lens' ReadDataRequest Proto.Google.Protobuf.FieldMask.FieldMask@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadDataRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.values' @:: Lens' ReadDataResponse [AnyChainDatum]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'values' @:: Lens' ReadDataResponse (Data.Vector.Vector AnyChainDatum)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' ReadDataResponse ChainPoint@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadDataResponse (Prelude.Maybe ChainPoint)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.fieldMask' @:: Lens' ReadParamsRequest Proto.Google.Protobuf.FieldMask.FieldMask@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadParamsRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -}
data ReadParamsRequest
  = ReadParamsRequest'_constructor {ReadParamsRequest -> 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__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.values' @:: Lens' ReadParamsResponse AnyChainParams@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'values' @:: Lens' ReadParamsResponse (Prelude.Maybe AnyChainParams)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' ReadParamsResponse ChainPoint@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadParamsResponse (Prelude.Maybe ChainPoint)@ -}
data ReadParamsResponse
  = ReadParamsResponse'_constructor {ReadParamsResponse -> 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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.keys' @:: Lens' ReadUtxosRequest [TxoRef]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'keys' @:: Lens' ReadUtxosRequest (Data.Vector.Vector TxoRef)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.fieldMask' @:: Lens' ReadUtxosRequest Proto.Google.Protobuf.FieldMask.FieldMask@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'fieldMask' @:: Lens' ReadUtxosRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.items' @:: Lens' ReadUtxosResponse [AnyUtxoData]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'items' @:: Lens' ReadUtxosResponse (Data.Vector.Vector AnyUtxoData)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' ReadUtxosResponse ChainPoint@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' ReadUtxosResponse (Prelude.Maybe ChainPoint)@ -}
data ReadUtxosResponse
  = ReadUtxosResponse'_constructor {ReadUtxosResponse -> 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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.predicate' @:: Lens' SearchUtxosRequest UtxoPredicate@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'predicate' @:: Lens' SearchUtxosRequest (Prelude.Maybe UtxoPredicate)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.fieldMask' @:: Lens' SearchUtxosRequest Proto.Google.Protobuf.FieldMask.FieldMask@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'fieldMask' @:: Lens' SearchUtxosRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.items' @:: Lens' SearchUtxosResponse [AnyUtxoData]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'items' @:: Lens' SearchUtxosResponse (Data.Vector.Vector AnyUtxoData)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.ledgerTip' @:: Lens' SearchUtxosResponse ChainPoint@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'ledgerTip' @:: Lens' SearchUtxosResponse (Prelude.Maybe ChainPoint)@ -}
data SearchUtxosResponse
  = SearchUtxosResponse'_constructor {SearchUtxosResponse -> 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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.hash' @:: Lens' TxoRef Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.index' @:: Lens' TxoRef Data.Word.Word32@ -}
data TxoRef
  = TxoRef'_constructor {TxoRef -> 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__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.match' @:: Lens' UtxoPredicate AnyUtxoPattern@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.maybe'match' @:: Lens' UtxoPredicate (Prelude.Maybe AnyUtxoPattern)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.not' @:: Lens' UtxoPredicate [UtxoPredicate]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'not' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.allOf' @:: Lens' UtxoPredicate [UtxoPredicate]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'allOf' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.anyOf' @:: Lens' UtxoPredicate [UtxoPredicate]@
         * 'Proto.Utxorpc.V1alpha.Query.Query_Fields.vec'anyOf' @:: Lens' UtxoPredicate (Data.Vector.Vector UtxoPredicate)@ -}
data UtxoPredicate
  = UtxoPredicate'_constructor {UtxoPredicate -> 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\DC2!\n\
    \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC26\n\
    \\atxo_ref\CAN\STX \SOH(\v2\GS.utxorpc.v1alpha.query.TxoRefR\ACKtxoRef\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!\n\
    \\fnative_bytes\CAN\SOH \SOH(\fR\vnativeBytes\DC2\DLE\n\
    \\ETXkey\CAN\STX \SOH(\fR\ETXkey\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\158%\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\
    \5\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETX8\STX\EM\"( Original bytes as defined by the chain\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETX8\STX\a\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX8\b\DC4\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX8\ETB\CAN\n\
    \0\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETX9\STX\NAK\"# Hash of the previous transaction.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ACK\DC2\ETX9\STX\b\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX9\t\DLE\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX9\DC3\DC4\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\
    \5\n\
    \\EOT\EOT\r\STX\NUL\DC2\ETX_\STX\EM\"( Original bytes as defined by the chain\n\
    \\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\DC4\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETX_\ETB\CAN\n\
    \\v\n\
    \\EOT\EOT\r\STX\SOH\DC2\ETX`\STX\DLE\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\v\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETX`\SO\SI\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"