{- This file was auto-generated from utxorpc/v1alpha/submit/submit.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.Submit.Submit (
        SubmitService(..), AnyChainEval(), AnyChainEval'Chain(..),
        _AnyChainEval'Cardano, AnyChainTx(), AnyChainTx'Type(..),
        _AnyChainTx'Raw, AnyChainTxPattern(), AnyChainTxPattern'Chain(..),
        _AnyChainTxPattern'Cardano, EvalTxRequest(), EvalTxResponse(),
        ReadMempoolRequest(), ReadMempoolResponse(), Stage(..), Stage(),
        Stage'UnrecognizedValue, SubmitTxRequest(), SubmitTxResponse(),
        TxInMempool(), TxPredicate(), WaitForTxRequest(),
        WaitForTxResponse(), WatchMempoolRequest(), WatchMempoolResponse()
    ) 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.Submit.Submit_Fields.maybe'chain' @:: Lens' AnyChainEval (Prelude.Maybe AnyChainEval'Chain)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'cardano' @:: Lens' AnyChainEval (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxEval)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.cardano' @:: Lens' AnyChainEval Proto.Utxorpc.V1alpha.Cardano.Cardano.TxEval@ -}
data AnyChainEval
  = AnyChainEval'_constructor {AnyChainEval -> Maybe AnyChainEval'Chain
_AnyChainEval'chain :: !(Prelude.Maybe AnyChainEval'Chain),
                               AnyChainEval -> FieldSet
_AnyChainEval'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AnyChainEval -> AnyChainEval -> Bool
(AnyChainEval -> AnyChainEval -> Bool)
-> (AnyChainEval -> AnyChainEval -> Bool) -> Eq AnyChainEval
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainEval -> AnyChainEval -> Bool
== :: AnyChainEval -> AnyChainEval -> Bool
$c/= :: AnyChainEval -> AnyChainEval -> Bool
/= :: AnyChainEval -> AnyChainEval -> Bool
Prelude.Eq, Eq AnyChainEval
Eq AnyChainEval =>
(AnyChainEval -> AnyChainEval -> Ordering)
-> (AnyChainEval -> AnyChainEval -> Bool)
-> (AnyChainEval -> AnyChainEval -> Bool)
-> (AnyChainEval -> AnyChainEval -> Bool)
-> (AnyChainEval -> AnyChainEval -> Bool)
-> (AnyChainEval -> AnyChainEval -> AnyChainEval)
-> (AnyChainEval -> AnyChainEval -> AnyChainEval)
-> Ord AnyChainEval
AnyChainEval -> AnyChainEval -> Bool
AnyChainEval -> AnyChainEval -> Ordering
AnyChainEval -> AnyChainEval -> AnyChainEval
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 :: AnyChainEval -> AnyChainEval -> Ordering
compare :: AnyChainEval -> AnyChainEval -> Ordering
$c< :: AnyChainEval -> AnyChainEval -> Bool
< :: AnyChainEval -> AnyChainEval -> Bool
$c<= :: AnyChainEval -> AnyChainEval -> Bool
<= :: AnyChainEval -> AnyChainEval -> Bool
$c> :: AnyChainEval -> AnyChainEval -> Bool
> :: AnyChainEval -> AnyChainEval -> Bool
$c>= :: AnyChainEval -> AnyChainEval -> Bool
>= :: AnyChainEval -> AnyChainEval -> Bool
$cmax :: AnyChainEval -> AnyChainEval -> AnyChainEval
max :: AnyChainEval -> AnyChainEval -> AnyChainEval
$cmin :: AnyChainEval -> AnyChainEval -> AnyChainEval
min :: AnyChainEval -> AnyChainEval -> AnyChainEval
Prelude.Ord)
instance Prelude.Show AnyChainEval where
  showsPrec :: Int -> AnyChainEval -> ShowS
showsPrec Int
_ AnyChainEval
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AnyChainEval -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AnyChainEval
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data AnyChainEval'Chain
  = AnyChainEval'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxEval
  deriving stock (Int -> AnyChainEval'Chain -> ShowS
[AnyChainEval'Chain] -> ShowS
AnyChainEval'Chain -> String
(Int -> AnyChainEval'Chain -> ShowS)
-> (AnyChainEval'Chain -> String)
-> ([AnyChainEval'Chain] -> ShowS)
-> Show AnyChainEval'Chain
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnyChainEval'Chain -> ShowS
showsPrec :: Int -> AnyChainEval'Chain -> ShowS
$cshow :: AnyChainEval'Chain -> String
show :: AnyChainEval'Chain -> String
$cshowList :: [AnyChainEval'Chain] -> ShowS
showList :: [AnyChainEval'Chain] -> ShowS
Prelude.Show, AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
(AnyChainEval'Chain -> AnyChainEval'Chain -> Bool)
-> (AnyChainEval'Chain -> AnyChainEval'Chain -> Bool)
-> Eq AnyChainEval'Chain
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
== :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
$c/= :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
/= :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
Prelude.Eq, Eq AnyChainEval'Chain
Eq AnyChainEval'Chain =>
(AnyChainEval'Chain -> AnyChainEval'Chain -> Ordering)
-> (AnyChainEval'Chain -> AnyChainEval'Chain -> Bool)
-> (AnyChainEval'Chain -> AnyChainEval'Chain -> Bool)
-> (AnyChainEval'Chain -> AnyChainEval'Chain -> Bool)
-> (AnyChainEval'Chain -> AnyChainEval'Chain -> Bool)
-> (AnyChainEval'Chain -> AnyChainEval'Chain -> AnyChainEval'Chain)
-> (AnyChainEval'Chain -> AnyChainEval'Chain -> AnyChainEval'Chain)
-> Ord AnyChainEval'Chain
AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
AnyChainEval'Chain -> AnyChainEval'Chain -> Ordering
AnyChainEval'Chain -> AnyChainEval'Chain -> AnyChainEval'Chain
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 :: AnyChainEval'Chain -> AnyChainEval'Chain -> Ordering
compare :: AnyChainEval'Chain -> AnyChainEval'Chain -> Ordering
$c< :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
< :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
$c<= :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
<= :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
$c> :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
> :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
$c>= :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
>= :: AnyChainEval'Chain -> AnyChainEval'Chain -> Bool
$cmax :: AnyChainEval'Chain -> AnyChainEval'Chain -> AnyChainEval'Chain
max :: AnyChainEval'Chain -> AnyChainEval'Chain -> AnyChainEval'Chain
$cmin :: AnyChainEval'Chain -> AnyChainEval'Chain -> AnyChainEval'Chain
min :: AnyChainEval'Chain -> AnyChainEval'Chain -> AnyChainEval'Chain
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainEval "maybe'chain" (Prelude.Maybe AnyChainEval'Chain) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'chain"
-> (Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
-> AnyChainEval
-> f AnyChainEval
fieldOf Proxy# "maybe'chain"
_
    = ((Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
 -> AnyChainEval -> f AnyChainEval)
-> ((Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
    -> Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
-> (Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
-> AnyChainEval
-> f AnyChainEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainEval -> Maybe AnyChainEval'Chain)
-> (AnyChainEval -> Maybe AnyChainEval'Chain -> AnyChainEval)
-> Lens
     AnyChainEval
     AnyChainEval
     (Maybe AnyChainEval'Chain)
     (Maybe AnyChainEval'Chain)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainEval -> Maybe AnyChainEval'Chain
_AnyChainEval'chain (\ AnyChainEval
x__ Maybe AnyChainEval'Chain
y__ -> AnyChainEval
x__ {_AnyChainEval'chain = y__}))
        (Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
-> Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainEval "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxEval) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cardano"
-> (Maybe TxEval -> f (Maybe TxEval))
-> AnyChainEval
-> f AnyChainEval
fieldOf Proxy# "maybe'cardano"
_
    = ((Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
 -> AnyChainEval -> f AnyChainEval)
-> ((Maybe TxEval -> f (Maybe TxEval))
    -> Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
-> (Maybe TxEval -> f (Maybe TxEval))
-> AnyChainEval
-> f AnyChainEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainEval -> Maybe AnyChainEval'Chain)
-> (AnyChainEval -> Maybe AnyChainEval'Chain -> AnyChainEval)
-> Lens
     AnyChainEval
     AnyChainEval
     (Maybe AnyChainEval'Chain)
     (Maybe AnyChainEval'Chain)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainEval -> Maybe AnyChainEval'Chain
_AnyChainEval'chain (\ AnyChainEval
x__ Maybe AnyChainEval'Chain
y__ -> AnyChainEval
x__ {_AnyChainEval'chain = y__}))
        ((Maybe AnyChainEval'Chain -> Maybe TxEval)
-> (Maybe AnyChainEval'Chain
    -> Maybe TxEval -> Maybe AnyChainEval'Chain)
-> Lens
     (Maybe AnyChainEval'Chain)
     (Maybe AnyChainEval'Chain)
     (Maybe TxEval)
     (Maybe TxEval)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe AnyChainEval'Chain
x__
              -> case Maybe AnyChainEval'Chain
x__ of
                   (Prelude.Just (AnyChainEval'Cardano TxEval
x__val)) -> TxEval -> Maybe TxEval
forall a. a -> Maybe a
Prelude.Just TxEval
x__val
                   Maybe AnyChainEval'Chain
_otherwise -> Maybe TxEval
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe AnyChainEval'Chain
_ Maybe TxEval
y__ -> (TxEval -> AnyChainEval'Chain)
-> Maybe TxEval -> Maybe AnyChainEval'Chain
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxEval -> AnyChainEval'Chain
AnyChainEval'Cardano Maybe TxEval
y__))
instance Data.ProtoLens.Field.HasField AnyChainEval "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxEval where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cardano"
-> (TxEval -> f TxEval) -> AnyChainEval -> f AnyChainEval
fieldOf Proxy# "cardano"
_
    = ((Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
 -> AnyChainEval -> f AnyChainEval)
-> ((TxEval -> f TxEval)
    -> Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
-> (TxEval -> f TxEval)
-> AnyChainEval
-> f AnyChainEval
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainEval -> Maybe AnyChainEval'Chain)
-> (AnyChainEval -> Maybe AnyChainEval'Chain -> AnyChainEval)
-> Lens
     AnyChainEval
     AnyChainEval
     (Maybe AnyChainEval'Chain)
     (Maybe AnyChainEval'Chain)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainEval -> Maybe AnyChainEval'Chain
_AnyChainEval'chain (\ AnyChainEval
x__ Maybe AnyChainEval'Chain
y__ -> AnyChainEval
x__ {_AnyChainEval'chain = y__}))
        (((Maybe TxEval -> f (Maybe TxEval))
 -> Maybe AnyChainEval'Chain -> f (Maybe AnyChainEval'Chain))
-> ((TxEval -> f TxEval) -> Maybe TxEval -> f (Maybe TxEval))
-> (TxEval -> f TxEval)
-> Maybe AnyChainEval'Chain
-> f (Maybe AnyChainEval'Chain)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AnyChainEval'Chain -> Maybe TxEval)
-> (Maybe AnyChainEval'Chain
    -> Maybe TxEval -> Maybe AnyChainEval'Chain)
-> Lens
     (Maybe AnyChainEval'Chain)
     (Maybe AnyChainEval'Chain)
     (Maybe TxEval)
     (Maybe TxEval)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe AnyChainEval'Chain
x__
                 -> case Maybe AnyChainEval'Chain
x__ of
                      (Prelude.Just (AnyChainEval'Cardano TxEval
x__val)) -> TxEval -> Maybe TxEval
forall a. a -> Maybe a
Prelude.Just TxEval
x__val
                      Maybe AnyChainEval'Chain
_otherwise -> Maybe TxEval
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe AnyChainEval'Chain
_ Maybe TxEval
y__ -> (TxEval -> AnyChainEval'Chain)
-> Maybe TxEval -> Maybe AnyChainEval'Chain
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxEval -> AnyChainEval'Chain
AnyChainEval'Cardano Maybe TxEval
y__))
           (TxEval -> Lens' (Maybe TxEval) TxEval
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxEval
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainEval where
  messageName :: Proxy AnyChainEval -> Text
messageName Proxy AnyChainEval
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.AnyChainEval"
  packedMessageDescriptor :: Proxy AnyChainEval -> ByteString
packedMessageDescriptor Proxy AnyChainEval
_
    = ByteString
"\n\
      \\fAnyChainEval\DC2;\n\
      \\acardano\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.TxEvalH\NULR\acardanoB\a\n\
      \\ENQchain"
  packedFileDescriptor :: Proxy AnyChainEval -> ByteString
packedFileDescriptor Proxy AnyChainEval
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AnyChainEval)
fieldsByTag
    = let
        cardano__field_descriptor :: FieldDescriptor AnyChainEval
cardano__field_descriptor
          = String
-> FieldTypeDescriptor TxEval
-> FieldAccessor AnyChainEval TxEval
-> FieldDescriptor AnyChainEval
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cardano"
              (MessageOrGroup -> FieldTypeDescriptor TxEval
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxEval)
              (Lens' AnyChainEval (Maybe TxEval)
-> FieldAccessor AnyChainEval TxEval
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 AnyChainEval
      in
        [(Tag, FieldDescriptor AnyChainEval)]
-> Map Tag (FieldDescriptor AnyChainEval)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AnyChainEval
cardano__field_descriptor)]
  unknownFields :: Lens' AnyChainEval FieldSet
unknownFields
    = (AnyChainEval -> FieldSet)
-> (AnyChainEval -> FieldSet -> AnyChainEval)
-> Lens' AnyChainEval FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AnyChainEval -> FieldSet
_AnyChainEval'_unknownFields
        (\ AnyChainEval
x__ FieldSet
y__ -> AnyChainEval
x__ {_AnyChainEval'_unknownFields = y__})
  defMessage :: AnyChainEval
defMessage
    = AnyChainEval'_constructor
        {_AnyChainEval'chain :: Maybe AnyChainEval'Chain
_AnyChainEval'chain = Maybe AnyChainEval'Chain
forall a. Maybe a
Prelude.Nothing,
         _AnyChainEval'_unknownFields :: FieldSet
_AnyChainEval'_unknownFields = []}
  parseMessage :: Parser AnyChainEval
parseMessage
    = let
        loop ::
          AnyChainEval -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainEval
        loop :: AnyChainEval -> Parser AnyChainEval
loop AnyChainEval
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]))))
                      AnyChainEval -> Parser AnyChainEval
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AnyChainEval AnyChainEval FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainEval -> AnyChainEval
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f AnyChainEval FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainEval FieldSet
Setter AnyChainEval AnyChainEval FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AnyChainEval
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do TxEval
y <- Parser TxEval -> String -> Parser TxEval
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxEval -> Parser TxEval
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 TxEval
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"cardano"
                                AnyChainEval -> Parser AnyChainEval
loop (Setter AnyChainEval AnyChainEval TxEval TxEval
-> TxEval -> AnyChainEval -> AnyChainEval
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") TxEval
y AnyChainEval
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AnyChainEval -> Parser AnyChainEval
loop
                                  (Setter AnyChainEval AnyChainEval FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainEval -> AnyChainEval
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f AnyChainEval FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainEval FieldSet
Setter AnyChainEval AnyChainEval FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AnyChainEval
x)
      in
        Parser AnyChainEval -> String -> Parser AnyChainEval
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AnyChainEval -> Parser AnyChainEval
loop AnyChainEval
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AnyChainEval"
  buildMessage :: AnyChainEval -> Builder
buildMessage
    = \ AnyChainEval
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe AnyChainEval'Chain)
  AnyChainEval
  AnyChainEval
  (Maybe AnyChainEval'Chain)
  (Maybe AnyChainEval'Chain)
-> AnyChainEval -> Maybe AnyChainEval'Chain
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'chain") AnyChainEval
_x
              of
                Maybe AnyChainEval'Chain
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (AnyChainEval'Cardano TxEval
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (TxEval -> ByteString) -> TxEval -> 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))
                          TxEval -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxEval
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet AnyChainEval AnyChainEval FieldSet FieldSet
-> AnyChainEval -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AnyChainEval AnyChainEval FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainEval FieldSet
Data.ProtoLens.unknownFields AnyChainEval
_x))
instance Control.DeepSeq.NFData AnyChainEval where
  rnf :: AnyChainEval -> ()
rnf
    = \ AnyChainEval
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AnyChainEval -> FieldSet
_AnyChainEval'_unknownFields AnyChainEval
x__)
             (Maybe AnyChainEval'Chain -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AnyChainEval -> Maybe AnyChainEval'Chain
_AnyChainEval'chain AnyChainEval
x__) ())
instance Control.DeepSeq.NFData AnyChainEval'Chain where
  rnf :: AnyChainEval'Chain -> ()
rnf (AnyChainEval'Cardano TxEval
x__) = TxEval -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TxEval
x__
_AnyChainEval'Cardano ::
  Data.ProtoLens.Prism.Prism' AnyChainEval'Chain Proto.Utxorpc.V1alpha.Cardano.Cardano.TxEval
_AnyChainEval'Cardano :: Prism' AnyChainEval'Chain TxEval
_AnyChainEval'Cardano
  = (TxEval -> AnyChainEval'Chain)
-> (AnyChainEval'Chain -> Maybe TxEval)
-> Prism' AnyChainEval'Chain TxEval
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TxEval -> AnyChainEval'Chain
AnyChainEval'Cardano
      (\ AnyChainEval'Chain
p__
         -> case AnyChainEval'Chain
p__ of
              (AnyChainEval'Cardano TxEval
p__val) -> TxEval -> Maybe TxEval
forall a. a -> Maybe a
Prelude.Just TxEval
p__val)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'type'' @:: Lens' AnyChainTx (Prelude.Maybe AnyChainTx'Type)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'raw' @:: Lens' AnyChainTx (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.raw' @:: Lens' AnyChainTx Data.ByteString.ByteString@ -}
data AnyChainTx
  = AnyChainTx'_constructor {AnyChainTx -> Maybe AnyChainTx'Type
_AnyChainTx'type' :: !(Prelude.Maybe AnyChainTx'Type),
                             AnyChainTx -> FieldSet
_AnyChainTx'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AnyChainTx -> AnyChainTx -> Bool
(AnyChainTx -> AnyChainTx -> Bool)
-> (AnyChainTx -> AnyChainTx -> Bool) -> Eq AnyChainTx
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainTx -> AnyChainTx -> Bool
== :: AnyChainTx -> AnyChainTx -> Bool
$c/= :: AnyChainTx -> AnyChainTx -> Bool
/= :: AnyChainTx -> AnyChainTx -> Bool
Prelude.Eq, Eq AnyChainTx
Eq AnyChainTx =>
(AnyChainTx -> AnyChainTx -> Ordering)
-> (AnyChainTx -> AnyChainTx -> Bool)
-> (AnyChainTx -> AnyChainTx -> Bool)
-> (AnyChainTx -> AnyChainTx -> Bool)
-> (AnyChainTx -> AnyChainTx -> Bool)
-> (AnyChainTx -> AnyChainTx -> AnyChainTx)
-> (AnyChainTx -> AnyChainTx -> AnyChainTx)
-> Ord AnyChainTx
AnyChainTx -> AnyChainTx -> Bool
AnyChainTx -> AnyChainTx -> Ordering
AnyChainTx -> AnyChainTx -> AnyChainTx
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 :: AnyChainTx -> AnyChainTx -> Ordering
compare :: AnyChainTx -> AnyChainTx -> Ordering
$c< :: AnyChainTx -> AnyChainTx -> Bool
< :: AnyChainTx -> AnyChainTx -> Bool
$c<= :: AnyChainTx -> AnyChainTx -> Bool
<= :: AnyChainTx -> AnyChainTx -> Bool
$c> :: AnyChainTx -> AnyChainTx -> Bool
> :: AnyChainTx -> AnyChainTx -> Bool
$c>= :: AnyChainTx -> AnyChainTx -> Bool
>= :: AnyChainTx -> AnyChainTx -> Bool
$cmax :: AnyChainTx -> AnyChainTx -> AnyChainTx
max :: AnyChainTx -> AnyChainTx -> AnyChainTx
$cmin :: AnyChainTx -> AnyChainTx -> AnyChainTx
min :: AnyChainTx -> AnyChainTx -> AnyChainTx
Prelude.Ord)
instance Prelude.Show AnyChainTx where
  showsPrec :: Int -> AnyChainTx -> ShowS
showsPrec Int
_ AnyChainTx
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AnyChainTx -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AnyChainTx
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data AnyChainTx'Type
  = AnyChainTx'Raw !Data.ByteString.ByteString
  deriving stock (Int -> AnyChainTx'Type -> ShowS
[AnyChainTx'Type] -> ShowS
AnyChainTx'Type -> String
(Int -> AnyChainTx'Type -> ShowS)
-> (AnyChainTx'Type -> String)
-> ([AnyChainTx'Type] -> ShowS)
-> Show AnyChainTx'Type
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnyChainTx'Type -> ShowS
showsPrec :: Int -> AnyChainTx'Type -> ShowS
$cshow :: AnyChainTx'Type -> String
show :: AnyChainTx'Type -> String
$cshowList :: [AnyChainTx'Type] -> ShowS
showList :: [AnyChainTx'Type] -> ShowS
Prelude.Show, AnyChainTx'Type -> AnyChainTx'Type -> Bool
(AnyChainTx'Type -> AnyChainTx'Type -> Bool)
-> (AnyChainTx'Type -> AnyChainTx'Type -> Bool)
-> Eq AnyChainTx'Type
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
== :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
$c/= :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
/= :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
Prelude.Eq, Eq AnyChainTx'Type
Eq AnyChainTx'Type =>
(AnyChainTx'Type -> AnyChainTx'Type -> Ordering)
-> (AnyChainTx'Type -> AnyChainTx'Type -> Bool)
-> (AnyChainTx'Type -> AnyChainTx'Type -> Bool)
-> (AnyChainTx'Type -> AnyChainTx'Type -> Bool)
-> (AnyChainTx'Type -> AnyChainTx'Type -> Bool)
-> (AnyChainTx'Type -> AnyChainTx'Type -> AnyChainTx'Type)
-> (AnyChainTx'Type -> AnyChainTx'Type -> AnyChainTx'Type)
-> Ord AnyChainTx'Type
AnyChainTx'Type -> AnyChainTx'Type -> Bool
AnyChainTx'Type -> AnyChainTx'Type -> Ordering
AnyChainTx'Type -> AnyChainTx'Type -> AnyChainTx'Type
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 :: AnyChainTx'Type -> AnyChainTx'Type -> Ordering
compare :: AnyChainTx'Type -> AnyChainTx'Type -> Ordering
$c< :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
< :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
$c<= :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
<= :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
$c> :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
> :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
$c>= :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
>= :: AnyChainTx'Type -> AnyChainTx'Type -> Bool
$cmax :: AnyChainTx'Type -> AnyChainTx'Type -> AnyChainTx'Type
max :: AnyChainTx'Type -> AnyChainTx'Type -> AnyChainTx'Type
$cmin :: AnyChainTx'Type -> AnyChainTx'Type -> AnyChainTx'Type
min :: AnyChainTx'Type -> AnyChainTx'Type -> AnyChainTx'Type
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'type'" (Prelude.Maybe AnyChainTx'Type) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'type'"
-> (Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
-> AnyChainTx
-> f AnyChainTx
fieldOf Proxy# "maybe'type'"
_
    = ((Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
 -> AnyChainTx -> f AnyChainTx)
-> ((Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
    -> Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
-> (Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
-> AnyChainTx
-> f AnyChainTx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainTx -> Maybe AnyChainTx'Type)
-> (AnyChainTx -> Maybe AnyChainTx'Type -> AnyChainTx)
-> Lens
     AnyChainTx
     AnyChainTx
     (Maybe AnyChainTx'Type)
     (Maybe AnyChainTx'Type)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainTx -> Maybe AnyChainTx'Type
_AnyChainTx'type' (\ AnyChainTx
x__ Maybe AnyChainTx'Type
y__ -> AnyChainTx
x__ {_AnyChainTx'type' = y__}))
        (Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
-> Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainTx "maybe'raw" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'raw"
-> (Maybe ByteString -> f (Maybe ByteString))
-> AnyChainTx
-> f AnyChainTx
fieldOf Proxy# "maybe'raw"
_
    = ((Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
 -> AnyChainTx -> f AnyChainTx)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
-> (Maybe ByteString -> f (Maybe ByteString))
-> AnyChainTx
-> f AnyChainTx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainTx -> Maybe AnyChainTx'Type)
-> (AnyChainTx -> Maybe AnyChainTx'Type -> AnyChainTx)
-> Lens
     AnyChainTx
     AnyChainTx
     (Maybe AnyChainTx'Type)
     (Maybe AnyChainTx'Type)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainTx -> Maybe AnyChainTx'Type
_AnyChainTx'type' (\ AnyChainTx
x__ Maybe AnyChainTx'Type
y__ -> AnyChainTx
x__ {_AnyChainTx'type' = y__}))
        ((Maybe AnyChainTx'Type -> Maybe ByteString)
-> (Maybe AnyChainTx'Type
    -> Maybe ByteString -> Maybe AnyChainTx'Type)
-> Lens
     (Maybe AnyChainTx'Type)
     (Maybe AnyChainTx'Type)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe AnyChainTx'Type
x__
              -> case Maybe AnyChainTx'Type
x__ of
                   (Prelude.Just (AnyChainTx'Raw ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe AnyChainTx'Type
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe AnyChainTx'Type
_ Maybe ByteString
y__ -> (ByteString -> AnyChainTx'Type)
-> Maybe ByteString -> Maybe AnyChainTx'Type
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> AnyChainTx'Type
AnyChainTx'Raw Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField AnyChainTx "raw" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "raw"
-> (ByteString -> f ByteString) -> AnyChainTx -> f AnyChainTx
fieldOf Proxy# "raw"
_
    = ((Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
 -> AnyChainTx -> f AnyChainTx)
-> ((ByteString -> f ByteString)
    -> Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
-> (ByteString -> f ByteString)
-> AnyChainTx
-> f AnyChainTx
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainTx -> Maybe AnyChainTx'Type)
-> (AnyChainTx -> Maybe AnyChainTx'Type -> AnyChainTx)
-> Lens
     AnyChainTx
     AnyChainTx
     (Maybe AnyChainTx'Type)
     (Maybe AnyChainTx'Type)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainTx -> Maybe AnyChainTx'Type
_AnyChainTx'type' (\ AnyChainTx
x__ Maybe AnyChainTx'Type
y__ -> AnyChainTx
x__ {_AnyChainTx'type' = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe AnyChainTx'Type -> f (Maybe AnyChainTx'Type))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe AnyChainTx'Type
-> f (Maybe AnyChainTx'Type)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AnyChainTx'Type -> Maybe ByteString)
-> (Maybe AnyChainTx'Type
    -> Maybe ByteString -> Maybe AnyChainTx'Type)
-> Lens
     (Maybe AnyChainTx'Type)
     (Maybe AnyChainTx'Type)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe AnyChainTx'Type
x__
                 -> case Maybe AnyChainTx'Type
x__ of
                      (Prelude.Just (AnyChainTx'Raw ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe AnyChainTx'Type
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe AnyChainTx'Type
_ Maybe ByteString
y__ -> (ByteString -> AnyChainTx'Type)
-> Maybe ByteString -> Maybe AnyChainTx'Type
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> AnyChainTx'Type
AnyChainTx'Raw Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message AnyChainTx where
  messageName :: Proxy AnyChainTx -> Text
messageName Proxy AnyChainTx
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.AnyChainTx"
  packedMessageDescriptor :: Proxy AnyChainTx -> ByteString
packedMessageDescriptor Proxy AnyChainTx
_
    = ByteString
"\n\
      \\n\
      \AnyChainTx\DC2\DC2\n\
      \\ETXraw\CAN\SOH \SOH(\fH\NULR\ETXrawB\ACK\n\
      \\EOTtype"
  packedFileDescriptor :: Proxy AnyChainTx -> ByteString
packedFileDescriptor Proxy AnyChainTx
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AnyChainTx)
fieldsByTag
    = let
        raw__field_descriptor :: FieldDescriptor AnyChainTx
raw__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AnyChainTx ByteString
-> FieldDescriptor AnyChainTx
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"raw"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens' AnyChainTx (Maybe ByteString)
-> FieldAccessor AnyChainTx ByteString
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'raw")) ::
              Data.ProtoLens.FieldDescriptor AnyChainTx
      in
        [(Tag, FieldDescriptor AnyChainTx)]
-> Map Tag (FieldDescriptor AnyChainTx)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AnyChainTx
raw__field_descriptor)]
  unknownFields :: Lens' AnyChainTx FieldSet
unknownFields
    = (AnyChainTx -> FieldSet)
-> (AnyChainTx -> FieldSet -> AnyChainTx)
-> Lens' AnyChainTx FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AnyChainTx -> FieldSet
_AnyChainTx'_unknownFields
        (\ AnyChainTx
x__ FieldSet
y__ -> AnyChainTx
x__ {_AnyChainTx'_unknownFields = y__})
  defMessage :: AnyChainTx
defMessage
    = AnyChainTx'_constructor
        {_AnyChainTx'type' :: Maybe AnyChainTx'Type
_AnyChainTx'type' = Maybe AnyChainTx'Type
forall a. Maybe a
Prelude.Nothing,
         _AnyChainTx'_unknownFields :: FieldSet
_AnyChainTx'_unknownFields = []}
  parseMessage :: Parser AnyChainTx
parseMessage
    = let
        loop ::
          AnyChainTx -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTx
        loop :: AnyChainTx -> Parser AnyChainTx
loop AnyChainTx
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]))))
                      AnyChainTx -> Parser AnyChainTx
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AnyChainTx AnyChainTx FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainTx -> AnyChainTx
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f AnyChainTx FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainTx FieldSet
Setter AnyChainTx AnyChainTx FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AnyChainTx
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
"raw"
                                AnyChainTx -> Parser AnyChainTx
loop (Setter AnyChainTx AnyChainTx ByteString ByteString
-> ByteString -> AnyChainTx -> AnyChainTx
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 @"raw") ByteString
y AnyChainTx
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AnyChainTx -> Parser AnyChainTx
loop
                                  (Setter AnyChainTx AnyChainTx FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainTx -> AnyChainTx
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f AnyChainTx FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainTx FieldSet
Setter AnyChainTx AnyChainTx FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AnyChainTx
x)
      in
        Parser AnyChainTx -> String -> Parser AnyChainTx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AnyChainTx -> Parser AnyChainTx
loop AnyChainTx
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AnyChainTx"
  buildMessage :: AnyChainTx -> Builder
buildMessage
    = \ AnyChainTx
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe AnyChainTx'Type)
  AnyChainTx
  AnyChainTx
  (Maybe AnyChainTx'Type)
  (Maybe AnyChainTx'Type)
-> AnyChainTx -> Maybe AnyChainTx'Type
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'type'") AnyChainTx
_x
              of
                Maybe AnyChainTx'Type
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (AnyChainTx'Raw 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))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet AnyChainTx AnyChainTx FieldSet FieldSet
-> AnyChainTx -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AnyChainTx AnyChainTx FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainTx FieldSet
Data.ProtoLens.unknownFields AnyChainTx
_x))
instance Control.DeepSeq.NFData AnyChainTx where
  rnf :: AnyChainTx -> ()
rnf
    = \ AnyChainTx
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AnyChainTx -> FieldSet
_AnyChainTx'_unknownFields AnyChainTx
x__)
             (Maybe AnyChainTx'Type -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AnyChainTx -> Maybe AnyChainTx'Type
_AnyChainTx'type' AnyChainTx
x__) ())
instance Control.DeepSeq.NFData AnyChainTx'Type where
  rnf :: AnyChainTx'Type -> ()
rnf (AnyChainTx'Raw ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
_AnyChainTx'Raw ::
  Data.ProtoLens.Prism.Prism' AnyChainTx'Type Data.ByteString.ByteString
_AnyChainTx'Raw :: Prism' AnyChainTx'Type ByteString
_AnyChainTx'Raw
  = (ByteString -> AnyChainTx'Type)
-> (AnyChainTx'Type -> Maybe ByteString)
-> Prism' AnyChainTx'Type ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> AnyChainTx'Type
AnyChainTx'Raw
      (\ AnyChainTx'Type
p__
         -> case AnyChainTx'Type
p__ of (AnyChainTx'Raw ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'chain' @:: Lens' AnyChainTxPattern (Prelude.Maybe AnyChainTxPattern'Chain)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'cardano' @:: Lens' AnyChainTxPattern (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.cardano' @:: Lens' AnyChainTxPattern Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern@ -}
data AnyChainTxPattern
  = AnyChainTxPattern'_constructor {AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain
_AnyChainTxPattern'chain :: !(Prelude.Maybe AnyChainTxPattern'Chain),
                                    AnyChainTxPattern -> FieldSet
_AnyChainTxPattern'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AnyChainTxPattern -> AnyChainTxPattern -> Bool
(AnyChainTxPattern -> AnyChainTxPattern -> Bool)
-> (AnyChainTxPattern -> AnyChainTxPattern -> Bool)
-> Eq AnyChainTxPattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
== :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
$c/= :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
/= :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
Prelude.Eq, Eq AnyChainTxPattern
Eq AnyChainTxPattern =>
(AnyChainTxPattern -> AnyChainTxPattern -> Ordering)
-> (AnyChainTxPattern -> AnyChainTxPattern -> Bool)
-> (AnyChainTxPattern -> AnyChainTxPattern -> Bool)
-> (AnyChainTxPattern -> AnyChainTxPattern -> Bool)
-> (AnyChainTxPattern -> AnyChainTxPattern -> Bool)
-> (AnyChainTxPattern -> AnyChainTxPattern -> AnyChainTxPattern)
-> (AnyChainTxPattern -> AnyChainTxPattern -> AnyChainTxPattern)
-> Ord AnyChainTxPattern
AnyChainTxPattern -> AnyChainTxPattern -> Bool
AnyChainTxPattern -> AnyChainTxPattern -> Ordering
AnyChainTxPattern -> AnyChainTxPattern -> AnyChainTxPattern
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 :: AnyChainTxPattern -> AnyChainTxPattern -> Ordering
compare :: AnyChainTxPattern -> AnyChainTxPattern -> Ordering
$c< :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
< :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
$c<= :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
<= :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
$c> :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
> :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
$c>= :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
>= :: AnyChainTxPattern -> AnyChainTxPattern -> Bool
$cmax :: AnyChainTxPattern -> AnyChainTxPattern -> AnyChainTxPattern
max :: AnyChainTxPattern -> AnyChainTxPattern -> AnyChainTxPattern
$cmin :: AnyChainTxPattern -> AnyChainTxPattern -> AnyChainTxPattern
min :: AnyChainTxPattern -> AnyChainTxPattern -> AnyChainTxPattern
Prelude.Ord)
instance Prelude.Show AnyChainTxPattern where
  showsPrec :: Int -> AnyChainTxPattern -> ShowS
showsPrec Int
_ AnyChainTxPattern
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AnyChainTxPattern -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AnyChainTxPattern
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data AnyChainTxPattern'Chain
  = AnyChainTxPattern'Cardano !Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern
  deriving stock (Int -> AnyChainTxPattern'Chain -> ShowS
[AnyChainTxPattern'Chain] -> ShowS
AnyChainTxPattern'Chain -> String
(Int -> AnyChainTxPattern'Chain -> ShowS)
-> (AnyChainTxPattern'Chain -> String)
-> ([AnyChainTxPattern'Chain] -> ShowS)
-> Show AnyChainTxPattern'Chain
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnyChainTxPattern'Chain -> ShowS
showsPrec :: Int -> AnyChainTxPattern'Chain -> ShowS
$cshow :: AnyChainTxPattern'Chain -> String
show :: AnyChainTxPattern'Chain -> String
$cshowList :: [AnyChainTxPattern'Chain] -> ShowS
showList :: [AnyChainTxPattern'Chain] -> ShowS
Prelude.Show, AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
(AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool)
-> (AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool)
-> Eq AnyChainTxPattern'Chain
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
== :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
$c/= :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
/= :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
Prelude.Eq, Eq AnyChainTxPattern'Chain
Eq AnyChainTxPattern'Chain =>
(AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Ordering)
-> (AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool)
-> (AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool)
-> (AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool)
-> (AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool)
-> (AnyChainTxPattern'Chain
    -> AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain)
-> (AnyChainTxPattern'Chain
    -> AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain)
-> Ord AnyChainTxPattern'Chain
AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Ordering
AnyChainTxPattern'Chain
-> AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain
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 :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Ordering
compare :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Ordering
$c< :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
< :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
$c<= :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
<= :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
$c> :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
> :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
$c>= :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
>= :: AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain -> Bool
$cmax :: AnyChainTxPattern'Chain
-> AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain
max :: AnyChainTxPattern'Chain
-> AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain
$cmin :: AnyChainTxPattern'Chain
-> AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain
min :: AnyChainTxPattern'Chain
-> AnyChainTxPattern'Chain -> AnyChainTxPattern'Chain
Prelude.Ord)
instance Data.ProtoLens.Field.HasField AnyChainTxPattern "maybe'chain" (Prelude.Maybe AnyChainTxPattern'Chain) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'chain"
-> (Maybe AnyChainTxPattern'Chain
    -> f (Maybe AnyChainTxPattern'Chain))
-> AnyChainTxPattern
-> f AnyChainTxPattern
fieldOf Proxy# "maybe'chain"
_
    = ((Maybe AnyChainTxPattern'Chain
  -> f (Maybe AnyChainTxPattern'Chain))
 -> AnyChainTxPattern -> f AnyChainTxPattern)
-> ((Maybe AnyChainTxPattern'Chain
     -> f (Maybe AnyChainTxPattern'Chain))
    -> Maybe AnyChainTxPattern'Chain
    -> f (Maybe AnyChainTxPattern'Chain))
-> (Maybe AnyChainTxPattern'Chain
    -> f (Maybe AnyChainTxPattern'Chain))
-> AnyChainTxPattern
-> f AnyChainTxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain)
-> (AnyChainTxPattern
    -> Maybe AnyChainTxPattern'Chain -> AnyChainTxPattern)
-> Lens
     AnyChainTxPattern
     AnyChainTxPattern
     (Maybe AnyChainTxPattern'Chain)
     (Maybe AnyChainTxPattern'Chain)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain
_AnyChainTxPattern'chain
           (\ AnyChainTxPattern
x__ Maybe AnyChainTxPattern'Chain
y__ -> AnyChainTxPattern
x__ {_AnyChainTxPattern'chain = y__}))
        (Maybe AnyChainTxPattern'Chain
 -> f (Maybe AnyChainTxPattern'Chain))
-> Maybe AnyChainTxPattern'Chain
-> f (Maybe AnyChainTxPattern'Chain)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AnyChainTxPattern "maybe'cardano" (Prelude.Maybe Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cardano"
-> (Maybe TxPattern -> f (Maybe TxPattern))
-> AnyChainTxPattern
-> f AnyChainTxPattern
fieldOf Proxy# "maybe'cardano"
_
    = ((Maybe AnyChainTxPattern'Chain
  -> f (Maybe AnyChainTxPattern'Chain))
 -> AnyChainTxPattern -> f AnyChainTxPattern)
-> ((Maybe TxPattern -> f (Maybe TxPattern))
    -> Maybe AnyChainTxPattern'Chain
    -> f (Maybe AnyChainTxPattern'Chain))
-> (Maybe TxPattern -> f (Maybe TxPattern))
-> AnyChainTxPattern
-> f AnyChainTxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain)
-> (AnyChainTxPattern
    -> Maybe AnyChainTxPattern'Chain -> AnyChainTxPattern)
-> Lens
     AnyChainTxPattern
     AnyChainTxPattern
     (Maybe AnyChainTxPattern'Chain)
     (Maybe AnyChainTxPattern'Chain)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain
_AnyChainTxPattern'chain
           (\ AnyChainTxPattern
x__ Maybe AnyChainTxPattern'Chain
y__ -> AnyChainTxPattern
x__ {_AnyChainTxPattern'chain = y__}))
        ((Maybe AnyChainTxPattern'Chain -> Maybe TxPattern)
-> (Maybe AnyChainTxPattern'Chain
    -> Maybe TxPattern -> Maybe AnyChainTxPattern'Chain)
-> Lens
     (Maybe AnyChainTxPattern'Chain)
     (Maybe AnyChainTxPattern'Chain)
     (Maybe TxPattern)
     (Maybe TxPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe AnyChainTxPattern'Chain
x__
              -> case Maybe AnyChainTxPattern'Chain
x__ of
                   (Prelude.Just (AnyChainTxPattern'Cardano TxPattern
x__val))
                     -> TxPattern -> Maybe TxPattern
forall a. a -> Maybe a
Prelude.Just TxPattern
x__val
                   Maybe AnyChainTxPattern'Chain
_otherwise -> Maybe TxPattern
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe AnyChainTxPattern'Chain
_ Maybe TxPattern
y__ -> (TxPattern -> AnyChainTxPattern'Chain)
-> Maybe TxPattern -> Maybe AnyChainTxPattern'Chain
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxPattern -> AnyChainTxPattern'Chain
AnyChainTxPattern'Cardano Maybe TxPattern
y__))
instance Data.ProtoLens.Field.HasField AnyChainTxPattern "cardano" Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cardano"
-> (TxPattern -> f TxPattern)
-> AnyChainTxPattern
-> f AnyChainTxPattern
fieldOf Proxy# "cardano"
_
    = ((Maybe AnyChainTxPattern'Chain
  -> f (Maybe AnyChainTxPattern'Chain))
 -> AnyChainTxPattern -> f AnyChainTxPattern)
-> ((TxPattern -> f TxPattern)
    -> Maybe AnyChainTxPattern'Chain
    -> f (Maybe AnyChainTxPattern'Chain))
-> (TxPattern -> f TxPattern)
-> AnyChainTxPattern
-> f AnyChainTxPattern
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain)
-> (AnyChainTxPattern
    -> Maybe AnyChainTxPattern'Chain -> AnyChainTxPattern)
-> Lens
     AnyChainTxPattern
     AnyChainTxPattern
     (Maybe AnyChainTxPattern'Chain)
     (Maybe AnyChainTxPattern'Chain)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain
_AnyChainTxPattern'chain
           (\ AnyChainTxPattern
x__ Maybe AnyChainTxPattern'Chain
y__ -> AnyChainTxPattern
x__ {_AnyChainTxPattern'chain = y__}))
        (((Maybe TxPattern -> f (Maybe TxPattern))
 -> Maybe AnyChainTxPattern'Chain
 -> f (Maybe AnyChainTxPattern'Chain))
-> ((TxPattern -> f TxPattern)
    -> Maybe TxPattern -> f (Maybe TxPattern))
-> (TxPattern -> f TxPattern)
-> Maybe AnyChainTxPattern'Chain
-> f (Maybe AnyChainTxPattern'Chain)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe AnyChainTxPattern'Chain -> Maybe TxPattern)
-> (Maybe AnyChainTxPattern'Chain
    -> Maybe TxPattern -> Maybe AnyChainTxPattern'Chain)
-> Lens
     (Maybe AnyChainTxPattern'Chain)
     (Maybe AnyChainTxPattern'Chain)
     (Maybe TxPattern)
     (Maybe TxPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe AnyChainTxPattern'Chain
x__
                 -> case Maybe AnyChainTxPattern'Chain
x__ of
                      (Prelude.Just (AnyChainTxPattern'Cardano TxPattern
x__val))
                        -> TxPattern -> Maybe TxPattern
forall a. a -> Maybe a
Prelude.Just TxPattern
x__val
                      Maybe AnyChainTxPattern'Chain
_otherwise -> Maybe TxPattern
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe AnyChainTxPattern'Chain
_ Maybe TxPattern
y__ -> (TxPattern -> AnyChainTxPattern'Chain)
-> Maybe TxPattern -> Maybe AnyChainTxPattern'Chain
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxPattern -> AnyChainTxPattern'Chain
AnyChainTxPattern'Cardano Maybe TxPattern
y__))
           (TxPattern -> Lens' (Maybe TxPattern) TxPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message AnyChainTxPattern where
  messageName :: Proxy AnyChainTxPattern -> Text
messageName Proxy AnyChainTxPattern
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.AnyChainTxPattern"
  packedMessageDescriptor :: Proxy AnyChainTxPattern -> ByteString
packedMessageDescriptor Proxy AnyChainTxPattern
_
    = ByteString
"\n\
      \\DC1AnyChainTxPattern\DC2>\n\
      \\acardano\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.TxPatternH\NULR\acardanoB\a\n\
      \\ENQchain"
  packedFileDescriptor :: Proxy AnyChainTxPattern -> ByteString
packedFileDescriptor Proxy AnyChainTxPattern
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AnyChainTxPattern)
fieldsByTag
    = let
        cardano__field_descriptor :: FieldDescriptor AnyChainTxPattern
cardano__field_descriptor
          = String
-> FieldTypeDescriptor TxPattern
-> FieldAccessor AnyChainTxPattern TxPattern
-> FieldDescriptor AnyChainTxPattern
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cardano"
              (MessageOrGroup -> FieldTypeDescriptor TxPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern)
              (Lens' AnyChainTxPattern (Maybe TxPattern)
-> FieldAccessor AnyChainTxPattern TxPattern
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 AnyChainTxPattern
      in
        [(Tag, FieldDescriptor AnyChainTxPattern)]
-> Map Tag (FieldDescriptor AnyChainTxPattern)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AnyChainTxPattern
cardano__field_descriptor)]
  unknownFields :: Lens' AnyChainTxPattern FieldSet
unknownFields
    = (AnyChainTxPattern -> FieldSet)
-> (AnyChainTxPattern -> FieldSet -> AnyChainTxPattern)
-> Lens' AnyChainTxPattern FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AnyChainTxPattern -> FieldSet
_AnyChainTxPattern'_unknownFields
        (\ AnyChainTxPattern
x__ FieldSet
y__ -> AnyChainTxPattern
x__ {_AnyChainTxPattern'_unknownFields = y__})
  defMessage :: AnyChainTxPattern
defMessage
    = AnyChainTxPattern'_constructor
        {_AnyChainTxPattern'chain :: Maybe AnyChainTxPattern'Chain
_AnyChainTxPattern'chain = Maybe AnyChainTxPattern'Chain
forall a. Maybe a
Prelude.Nothing,
         _AnyChainTxPattern'_unknownFields :: FieldSet
_AnyChainTxPattern'_unknownFields = []}
  parseMessage :: Parser AnyChainTxPattern
parseMessage
    = let
        loop ::
          AnyChainTxPattern
          -> Data.ProtoLens.Encoding.Bytes.Parser AnyChainTxPattern
        loop :: AnyChainTxPattern -> Parser AnyChainTxPattern
loop AnyChainTxPattern
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]))))
                      AnyChainTxPattern -> Parser AnyChainTxPattern
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AnyChainTxPattern AnyChainTxPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainTxPattern -> AnyChainTxPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f AnyChainTxPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainTxPattern FieldSet
Setter AnyChainTxPattern AnyChainTxPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AnyChainTxPattern
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do TxPattern
y <- Parser TxPattern -> String -> Parser TxPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxPattern -> Parser TxPattern
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 TxPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"cardano"
                                AnyChainTxPattern -> Parser AnyChainTxPattern
loop (Setter AnyChainTxPattern AnyChainTxPattern TxPattern TxPattern
-> TxPattern -> AnyChainTxPattern -> AnyChainTxPattern
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") TxPattern
y AnyChainTxPattern
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AnyChainTxPattern -> Parser AnyChainTxPattern
loop
                                  (Setter AnyChainTxPattern AnyChainTxPattern FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AnyChainTxPattern -> AnyChainTxPattern
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f AnyChainTxPattern FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainTxPattern FieldSet
Setter AnyChainTxPattern AnyChainTxPattern FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AnyChainTxPattern
x)
      in
        Parser AnyChainTxPattern -> String -> Parser AnyChainTxPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AnyChainTxPattern -> Parser AnyChainTxPattern
loop AnyChainTxPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AnyChainTxPattern"
  buildMessage :: AnyChainTxPattern -> Builder
buildMessage
    = \ AnyChainTxPattern
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe AnyChainTxPattern'Chain)
  AnyChainTxPattern
  AnyChainTxPattern
  (Maybe AnyChainTxPattern'Chain)
  (Maybe AnyChainTxPattern'Chain)
-> AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain
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'chain") AnyChainTxPattern
_x
              of
                Maybe AnyChainTxPattern'Chain
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (AnyChainTxPattern'Cardano TxPattern
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (TxPattern -> ByteString) -> TxPattern -> 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))
                          TxPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxPattern
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AnyChainTxPattern AnyChainTxPattern FieldSet FieldSet
-> AnyChainTxPattern -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AnyChainTxPattern AnyChainTxPattern FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AnyChainTxPattern FieldSet
Data.ProtoLens.unknownFields AnyChainTxPattern
_x))
instance Control.DeepSeq.NFData AnyChainTxPattern where
  rnf :: AnyChainTxPattern -> ()
rnf
    = \ AnyChainTxPattern
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AnyChainTxPattern -> FieldSet
_AnyChainTxPattern'_unknownFields AnyChainTxPattern
x__)
             (Maybe AnyChainTxPattern'Chain -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AnyChainTxPattern -> Maybe AnyChainTxPattern'Chain
_AnyChainTxPattern'chain AnyChainTxPattern
x__) ())
instance Control.DeepSeq.NFData AnyChainTxPattern'Chain where
  rnf :: AnyChainTxPattern'Chain -> ()
rnf (AnyChainTxPattern'Cardano TxPattern
x__) = TxPattern -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TxPattern
x__
_AnyChainTxPattern'Cardano ::
  Data.ProtoLens.Prism.Prism' AnyChainTxPattern'Chain Proto.Utxorpc.V1alpha.Cardano.Cardano.TxPattern
_AnyChainTxPattern'Cardano :: Prism' AnyChainTxPattern'Chain TxPattern
_AnyChainTxPattern'Cardano
  = (TxPattern -> AnyChainTxPattern'Chain)
-> (AnyChainTxPattern'Chain -> Maybe TxPattern)
-> Prism' AnyChainTxPattern'Chain TxPattern
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TxPattern -> AnyChainTxPattern'Chain
AnyChainTxPattern'Cardano
      (\ AnyChainTxPattern'Chain
p__
         -> case AnyChainTxPattern'Chain
p__ of
              (AnyChainTxPattern'Cardano TxPattern
p__val) -> TxPattern -> Maybe TxPattern
forall a. a -> Maybe a
Prelude.Just TxPattern
p__val)
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.tx' @:: Lens' EvalTxRequest [AnyChainTx]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'tx' @:: Lens' EvalTxRequest (Data.Vector.Vector AnyChainTx)@ -}
data EvalTxRequest
  = EvalTxRequest'_constructor {EvalTxRequest -> Vector AnyChainTx
_EvalTxRequest'tx :: !(Data.Vector.Vector AnyChainTx),
                                EvalTxRequest -> FieldSet
_EvalTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EvalTxRequest -> EvalTxRequest -> Bool
(EvalTxRequest -> EvalTxRequest -> Bool)
-> (EvalTxRequest -> EvalTxRequest -> Bool) -> Eq EvalTxRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EvalTxRequest -> EvalTxRequest -> Bool
== :: EvalTxRequest -> EvalTxRequest -> Bool
$c/= :: EvalTxRequest -> EvalTxRequest -> Bool
/= :: EvalTxRequest -> EvalTxRequest -> Bool
Prelude.Eq, Eq EvalTxRequest
Eq EvalTxRequest =>
(EvalTxRequest -> EvalTxRequest -> Ordering)
-> (EvalTxRequest -> EvalTxRequest -> Bool)
-> (EvalTxRequest -> EvalTxRequest -> Bool)
-> (EvalTxRequest -> EvalTxRequest -> Bool)
-> (EvalTxRequest -> EvalTxRequest -> Bool)
-> (EvalTxRequest -> EvalTxRequest -> EvalTxRequest)
-> (EvalTxRequest -> EvalTxRequest -> EvalTxRequest)
-> Ord EvalTxRequest
EvalTxRequest -> EvalTxRequest -> Bool
EvalTxRequest -> EvalTxRequest -> Ordering
EvalTxRequest -> EvalTxRequest -> EvalTxRequest
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 :: EvalTxRequest -> EvalTxRequest -> Ordering
compare :: EvalTxRequest -> EvalTxRequest -> Ordering
$c< :: EvalTxRequest -> EvalTxRequest -> Bool
< :: EvalTxRequest -> EvalTxRequest -> Bool
$c<= :: EvalTxRequest -> EvalTxRequest -> Bool
<= :: EvalTxRequest -> EvalTxRequest -> Bool
$c> :: EvalTxRequest -> EvalTxRequest -> Bool
> :: EvalTxRequest -> EvalTxRequest -> Bool
$c>= :: EvalTxRequest -> EvalTxRequest -> Bool
>= :: EvalTxRequest -> EvalTxRequest -> Bool
$cmax :: EvalTxRequest -> EvalTxRequest -> EvalTxRequest
max :: EvalTxRequest -> EvalTxRequest -> EvalTxRequest
$cmin :: EvalTxRequest -> EvalTxRequest -> EvalTxRequest
min :: EvalTxRequest -> EvalTxRequest -> EvalTxRequest
Prelude.Ord)
instance Prelude.Show EvalTxRequest where
  showsPrec :: Int -> EvalTxRequest -> ShowS
showsPrec Int
_ EvalTxRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EvalTxRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EvalTxRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EvalTxRequest "tx" [AnyChainTx] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "tx"
-> ([AnyChainTx] -> f [AnyChainTx])
-> EvalTxRequest
-> f EvalTxRequest
fieldOf Proxy# "tx"
_
    = ((Vector AnyChainTx -> f (Vector AnyChainTx))
 -> EvalTxRequest -> f EvalTxRequest)
-> (([AnyChainTx] -> f [AnyChainTx])
    -> Vector AnyChainTx -> f (Vector AnyChainTx))
-> ([AnyChainTx] -> f [AnyChainTx])
-> EvalTxRequest
-> f EvalTxRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EvalTxRequest -> Vector AnyChainTx)
-> (EvalTxRequest -> Vector AnyChainTx -> EvalTxRequest)
-> Lens
     EvalTxRequest EvalTxRequest (Vector AnyChainTx) (Vector AnyChainTx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EvalTxRequest -> Vector AnyChainTx
_EvalTxRequest'tx (\ EvalTxRequest
x__ Vector AnyChainTx
y__ -> EvalTxRequest
x__ {_EvalTxRequest'tx = y__}))
        ((Vector AnyChainTx -> [AnyChainTx])
-> (Vector AnyChainTx -> [AnyChainTx] -> Vector AnyChainTx)
-> Lens
     (Vector AnyChainTx) (Vector AnyChainTx) [AnyChainTx] [AnyChainTx]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector AnyChainTx -> [AnyChainTx]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector AnyChainTx
_ [AnyChainTx]
y__ -> [AnyChainTx] -> Vector AnyChainTx
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AnyChainTx]
y__))
instance Data.ProtoLens.Field.HasField EvalTxRequest "vec'tx" (Data.Vector.Vector AnyChainTx) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'tx"
-> (Vector AnyChainTx -> f (Vector AnyChainTx))
-> EvalTxRequest
-> f EvalTxRequest
fieldOf Proxy# "vec'tx"
_
    = ((Vector AnyChainTx -> f (Vector AnyChainTx))
 -> EvalTxRequest -> f EvalTxRequest)
-> ((Vector AnyChainTx -> f (Vector AnyChainTx))
    -> Vector AnyChainTx -> f (Vector AnyChainTx))
-> (Vector AnyChainTx -> f (Vector AnyChainTx))
-> EvalTxRequest
-> f EvalTxRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EvalTxRequest -> Vector AnyChainTx)
-> (EvalTxRequest -> Vector AnyChainTx -> EvalTxRequest)
-> Lens
     EvalTxRequest EvalTxRequest (Vector AnyChainTx) (Vector AnyChainTx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EvalTxRequest -> Vector AnyChainTx
_EvalTxRequest'tx (\ EvalTxRequest
x__ Vector AnyChainTx
y__ -> EvalTxRequest
x__ {_EvalTxRequest'tx = y__}))
        (Vector AnyChainTx -> f (Vector AnyChainTx))
-> Vector AnyChainTx -> f (Vector AnyChainTx)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EvalTxRequest where
  messageName :: Proxy EvalTxRequest -> Text
messageName Proxy EvalTxRequest
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.EvalTxRequest"
  packedMessageDescriptor :: Proxy EvalTxRequest -> ByteString
packedMessageDescriptor Proxy EvalTxRequest
_
    = ByteString
"\n\
      \\rEvalTxRequest\DC22\n\
      \\STXtx\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx"
  packedFileDescriptor :: Proxy EvalTxRequest -> ByteString
packedFileDescriptor Proxy EvalTxRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EvalTxRequest)
fieldsByTag
    = let
        tx__field_descriptor :: FieldDescriptor EvalTxRequest
tx__field_descriptor
          = String
-> FieldTypeDescriptor AnyChainTx
-> FieldAccessor EvalTxRequest AnyChainTx
-> FieldDescriptor EvalTxRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx"
              (MessageOrGroup -> FieldTypeDescriptor AnyChainTx
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AnyChainTx)
              (Packing
-> Lens' EvalTxRequest [AnyChainTx]
-> FieldAccessor EvalTxRequest AnyChainTx
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 @"tx")) ::
              Data.ProtoLens.FieldDescriptor EvalTxRequest
      in [(Tag, FieldDescriptor EvalTxRequest)]
-> Map Tag (FieldDescriptor EvalTxRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EvalTxRequest
tx__field_descriptor)]
  unknownFields :: Lens' EvalTxRequest FieldSet
unknownFields
    = (EvalTxRequest -> FieldSet)
-> (EvalTxRequest -> FieldSet -> EvalTxRequest)
-> Lens' EvalTxRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EvalTxRequest -> FieldSet
_EvalTxRequest'_unknownFields
        (\ EvalTxRequest
x__ FieldSet
y__ -> EvalTxRequest
x__ {_EvalTxRequest'_unknownFields = y__})
  defMessage :: EvalTxRequest
defMessage
    = EvalTxRequest'_constructor
        {_EvalTxRequest'tx :: Vector AnyChainTx
_EvalTxRequest'tx = Vector AnyChainTx
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EvalTxRequest'_unknownFields :: FieldSet
_EvalTxRequest'_unknownFields = []}
  parseMessage :: Parser EvalTxRequest
parseMessage
    = let
        loop ::
          EvalTxRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainTx
             -> Data.ProtoLens.Encoding.Bytes.Parser EvalTxRequest
        loop :: EvalTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser EvalTxRequest
loop EvalTxRequest
x Growing Vector RealWorld AnyChainTx
mutable'tx
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector AnyChainTx
frozen'tx <- IO (Vector AnyChainTx) -> Parser (Vector AnyChainTx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     (Growing Vector (PrimState IO) AnyChainTx -> IO (Vector AnyChainTx)
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 AnyChainTx
Growing Vector (PrimState IO) AnyChainTx
mutable'tx)
                      (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]))))
                      EvalTxRequest -> Parser EvalTxRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EvalTxRequest EvalTxRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalTxRequest -> EvalTxRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f EvalTxRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTxRequest FieldSet
Setter EvalTxRequest EvalTxRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  EvalTxRequest EvalTxRequest (Vector AnyChainTx) (Vector AnyChainTx)
-> Vector AnyChainTx -> EvalTxRequest -> EvalTxRequest
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'tx") Vector AnyChainTx
frozen'tx EvalTxRequest
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !AnyChainTx
y <- Parser AnyChainTx -> String -> Parser AnyChainTx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser AnyChainTx -> Parser AnyChainTx
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 AnyChainTx
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"tx"
                                Growing Vector RealWorld AnyChainTx
v <- IO (Growing Vector RealWorld AnyChainTx)
-> Parser (Growing Vector RealWorld AnyChainTx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) AnyChainTx
-> AnyChainTx -> IO (Growing Vector (PrimState IO) AnyChainTx)
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 AnyChainTx
Growing Vector (PrimState IO) AnyChainTx
mutable'tx AnyChainTx
y)
                                EvalTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser EvalTxRequest
loop EvalTxRequest
x Growing Vector RealWorld AnyChainTx
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EvalTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser EvalTxRequest
loop
                                  (Setter EvalTxRequest EvalTxRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalTxRequest -> EvalTxRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f EvalTxRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTxRequest FieldSet
Setter EvalTxRequest EvalTxRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EvalTxRequest
x)
                                  Growing Vector RealWorld AnyChainTx
mutable'tx
      in
        Parser EvalTxRequest -> String -> Parser EvalTxRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld AnyChainTx
mutable'tx <- IO (Growing Vector RealWorld AnyChainTx)
-> Parser (Growing Vector RealWorld AnyChainTx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                              IO (Growing Vector RealWorld AnyChainTx)
IO (Growing Vector (PrimState IO) AnyChainTx)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              EvalTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser EvalTxRequest
loop EvalTxRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AnyChainTx
mutable'tx)
          String
"EvalTxRequest"
  buildMessage :: EvalTxRequest -> Builder
buildMessage
    = \ EvalTxRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((AnyChainTx -> Builder) -> Vector AnyChainTx -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ AnyChainTx
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (AnyChainTx -> ByteString) -> AnyChainTx -> 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))
                           AnyChainTx -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyChainTx
_v))
                (FoldLike
  (Vector AnyChainTx)
  EvalTxRequest
  EvalTxRequest
  (Vector AnyChainTx)
  (Vector AnyChainTx)
-> EvalTxRequest -> Vector AnyChainTx
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'tx") EvalTxRequest
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet EvalTxRequest EvalTxRequest FieldSet FieldSet
-> EvalTxRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EvalTxRequest EvalTxRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTxRequest FieldSet
Data.ProtoLens.unknownFields EvalTxRequest
_x))
instance Control.DeepSeq.NFData EvalTxRequest where
  rnf :: EvalTxRequest -> ()
rnf
    = \ EvalTxRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EvalTxRequest -> FieldSet
_EvalTxRequest'_unknownFields EvalTxRequest
x__)
             (Vector AnyChainTx -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EvalTxRequest -> Vector AnyChainTx
_EvalTxRequest'tx EvalTxRequest
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.report' @:: Lens' EvalTxResponse [AnyChainEval]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'report' @:: Lens' EvalTxResponse (Data.Vector.Vector AnyChainEval)@ -}
data EvalTxResponse
  = EvalTxResponse'_constructor {EvalTxResponse -> Vector AnyChainEval
_EvalTxResponse'report :: !(Data.Vector.Vector AnyChainEval),
                                 EvalTxResponse -> FieldSet
_EvalTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EvalTxResponse -> EvalTxResponse -> Bool
(EvalTxResponse -> EvalTxResponse -> Bool)
-> (EvalTxResponse -> EvalTxResponse -> Bool) -> Eq EvalTxResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EvalTxResponse -> EvalTxResponse -> Bool
== :: EvalTxResponse -> EvalTxResponse -> Bool
$c/= :: EvalTxResponse -> EvalTxResponse -> Bool
/= :: EvalTxResponse -> EvalTxResponse -> Bool
Prelude.Eq, Eq EvalTxResponse
Eq EvalTxResponse =>
(EvalTxResponse -> EvalTxResponse -> Ordering)
-> (EvalTxResponse -> EvalTxResponse -> Bool)
-> (EvalTxResponse -> EvalTxResponse -> Bool)
-> (EvalTxResponse -> EvalTxResponse -> Bool)
-> (EvalTxResponse -> EvalTxResponse -> Bool)
-> (EvalTxResponse -> EvalTxResponse -> EvalTxResponse)
-> (EvalTxResponse -> EvalTxResponse -> EvalTxResponse)
-> Ord EvalTxResponse
EvalTxResponse -> EvalTxResponse -> Bool
EvalTxResponse -> EvalTxResponse -> Ordering
EvalTxResponse -> EvalTxResponse -> EvalTxResponse
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 :: EvalTxResponse -> EvalTxResponse -> Ordering
compare :: EvalTxResponse -> EvalTxResponse -> Ordering
$c< :: EvalTxResponse -> EvalTxResponse -> Bool
< :: EvalTxResponse -> EvalTxResponse -> Bool
$c<= :: EvalTxResponse -> EvalTxResponse -> Bool
<= :: EvalTxResponse -> EvalTxResponse -> Bool
$c> :: EvalTxResponse -> EvalTxResponse -> Bool
> :: EvalTxResponse -> EvalTxResponse -> Bool
$c>= :: EvalTxResponse -> EvalTxResponse -> Bool
>= :: EvalTxResponse -> EvalTxResponse -> Bool
$cmax :: EvalTxResponse -> EvalTxResponse -> EvalTxResponse
max :: EvalTxResponse -> EvalTxResponse -> EvalTxResponse
$cmin :: EvalTxResponse -> EvalTxResponse -> EvalTxResponse
min :: EvalTxResponse -> EvalTxResponse -> EvalTxResponse
Prelude.Ord)
instance Prelude.Show EvalTxResponse where
  showsPrec :: Int -> EvalTxResponse -> ShowS
showsPrec Int
_ EvalTxResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (EvalTxResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EvalTxResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField EvalTxResponse "report" [AnyChainEval] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "report"
-> ([AnyChainEval] -> f [AnyChainEval])
-> EvalTxResponse
-> f EvalTxResponse
fieldOf Proxy# "report"
_
    = ((Vector AnyChainEval -> f (Vector AnyChainEval))
 -> EvalTxResponse -> f EvalTxResponse)
-> (([AnyChainEval] -> f [AnyChainEval])
    -> Vector AnyChainEval -> f (Vector AnyChainEval))
-> ([AnyChainEval] -> f [AnyChainEval])
-> EvalTxResponse
-> f EvalTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EvalTxResponse -> Vector AnyChainEval)
-> (EvalTxResponse -> Vector AnyChainEval -> EvalTxResponse)
-> Lens
     EvalTxResponse
     EvalTxResponse
     (Vector AnyChainEval)
     (Vector AnyChainEval)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EvalTxResponse -> Vector AnyChainEval
_EvalTxResponse'report
           (\ EvalTxResponse
x__ Vector AnyChainEval
y__ -> EvalTxResponse
x__ {_EvalTxResponse'report = y__}))
        ((Vector AnyChainEval -> [AnyChainEval])
-> (Vector AnyChainEval -> [AnyChainEval] -> Vector AnyChainEval)
-> Lens
     (Vector AnyChainEval)
     (Vector AnyChainEval)
     [AnyChainEval]
     [AnyChainEval]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector AnyChainEval -> [AnyChainEval]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector AnyChainEval
_ [AnyChainEval]
y__ -> [AnyChainEval] -> Vector AnyChainEval
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AnyChainEval]
y__))
instance Data.ProtoLens.Field.HasField EvalTxResponse "vec'report" (Data.Vector.Vector AnyChainEval) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'report"
-> (Vector AnyChainEval -> f (Vector AnyChainEval))
-> EvalTxResponse
-> f EvalTxResponse
fieldOf Proxy# "vec'report"
_
    = ((Vector AnyChainEval -> f (Vector AnyChainEval))
 -> EvalTxResponse -> f EvalTxResponse)
-> ((Vector AnyChainEval -> f (Vector AnyChainEval))
    -> Vector AnyChainEval -> f (Vector AnyChainEval))
-> (Vector AnyChainEval -> f (Vector AnyChainEval))
-> EvalTxResponse
-> f EvalTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EvalTxResponse -> Vector AnyChainEval)
-> (EvalTxResponse -> Vector AnyChainEval -> EvalTxResponse)
-> Lens
     EvalTxResponse
     EvalTxResponse
     (Vector AnyChainEval)
     (Vector AnyChainEval)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EvalTxResponse -> Vector AnyChainEval
_EvalTxResponse'report
           (\ EvalTxResponse
x__ Vector AnyChainEval
y__ -> EvalTxResponse
x__ {_EvalTxResponse'report = y__}))
        (Vector AnyChainEval -> f (Vector AnyChainEval))
-> Vector AnyChainEval -> f (Vector AnyChainEval)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EvalTxResponse where
  messageName :: Proxy EvalTxResponse -> Text
messageName Proxy EvalTxResponse
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.EvalTxResponse"
  packedMessageDescriptor :: Proxy EvalTxResponse -> ByteString
packedMessageDescriptor Proxy EvalTxResponse
_
    = ByteString
"\n\
      \\SOEvalTxResponse\DC2<\n\
      \\ACKreport\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.submit.AnyChainEvalR\ACKreport"
  packedFileDescriptor :: Proxy EvalTxResponse -> ByteString
packedFileDescriptor Proxy EvalTxResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EvalTxResponse)
fieldsByTag
    = let
        report__field_descriptor :: FieldDescriptor EvalTxResponse
report__field_descriptor
          = String
-> FieldTypeDescriptor AnyChainEval
-> FieldAccessor EvalTxResponse AnyChainEval
-> FieldDescriptor EvalTxResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"report"
              (MessageOrGroup -> FieldTypeDescriptor AnyChainEval
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AnyChainEval)
              (Packing
-> Lens' EvalTxResponse [AnyChainEval]
-> FieldAccessor EvalTxResponse AnyChainEval
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 @"report")) ::
              Data.ProtoLens.FieldDescriptor EvalTxResponse
      in
        [(Tag, FieldDescriptor EvalTxResponse)]
-> Map Tag (FieldDescriptor EvalTxResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor EvalTxResponse
report__field_descriptor)]
  unknownFields :: Lens' EvalTxResponse FieldSet
unknownFields
    = (EvalTxResponse -> FieldSet)
-> (EvalTxResponse -> FieldSet -> EvalTxResponse)
-> Lens' EvalTxResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EvalTxResponse -> FieldSet
_EvalTxResponse'_unknownFields
        (\ EvalTxResponse
x__ FieldSet
y__ -> EvalTxResponse
x__ {_EvalTxResponse'_unknownFields = y__})
  defMessage :: EvalTxResponse
defMessage
    = EvalTxResponse'_constructor
        {_EvalTxResponse'report :: Vector AnyChainEval
_EvalTxResponse'report = Vector AnyChainEval
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EvalTxResponse'_unknownFields :: FieldSet
_EvalTxResponse'_unknownFields = []}
  parseMessage :: Parser EvalTxResponse
parseMessage
    = let
        loop ::
          EvalTxResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainEval
             -> Data.ProtoLens.Encoding.Bytes.Parser EvalTxResponse
        loop :: EvalTxResponse
-> Growing Vector RealWorld AnyChainEval -> Parser EvalTxResponse
loop EvalTxResponse
x Growing Vector RealWorld AnyChainEval
mutable'report
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector AnyChainEval
frozen'report <- IO (Vector AnyChainEval) -> Parser (Vector AnyChainEval)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) AnyChainEval
-> IO (Vector AnyChainEval)
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 AnyChainEval
Growing Vector (PrimState IO) AnyChainEval
mutable'report)
                      (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]))))
                      EvalTxResponse -> Parser EvalTxResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EvalTxResponse EvalTxResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalTxResponse -> EvalTxResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f EvalTxResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTxResponse FieldSet
Setter EvalTxResponse EvalTxResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  EvalTxResponse
  EvalTxResponse
  (Vector AnyChainEval)
  (Vector AnyChainEval)
-> Vector AnyChainEval -> EvalTxResponse -> EvalTxResponse
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'report") Vector AnyChainEval
frozen'report EvalTxResponse
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !AnyChainEval
y <- Parser AnyChainEval -> String -> Parser AnyChainEval
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser AnyChainEval -> Parser AnyChainEval
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 AnyChainEval
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"report"
                                Growing Vector RealWorld AnyChainEval
v <- IO (Growing Vector RealWorld AnyChainEval)
-> Parser (Growing Vector RealWorld AnyChainEval)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) AnyChainEval
-> AnyChainEval -> IO (Growing Vector (PrimState IO) AnyChainEval)
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 AnyChainEval
Growing Vector (PrimState IO) AnyChainEval
mutable'report AnyChainEval
y)
                                EvalTxResponse
-> Growing Vector RealWorld AnyChainEval -> Parser EvalTxResponse
loop EvalTxResponse
x Growing Vector RealWorld AnyChainEval
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EvalTxResponse
-> Growing Vector RealWorld AnyChainEval -> Parser EvalTxResponse
loop
                                  (Setter EvalTxResponse EvalTxResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EvalTxResponse -> EvalTxResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f EvalTxResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTxResponse FieldSet
Setter EvalTxResponse EvalTxResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EvalTxResponse
x)
                                  Growing Vector RealWorld AnyChainEval
mutable'report
      in
        Parser EvalTxResponse -> String -> Parser EvalTxResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld AnyChainEval
mutable'report <- IO (Growing Vector RealWorld AnyChainEval)
-> Parser (Growing Vector RealWorld AnyChainEval)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld AnyChainEval)
IO (Growing Vector (PrimState IO) AnyChainEval)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              EvalTxResponse
-> Growing Vector RealWorld AnyChainEval -> Parser EvalTxResponse
loop EvalTxResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AnyChainEval
mutable'report)
          String
"EvalTxResponse"
  buildMessage :: EvalTxResponse -> Builder
buildMessage
    = \ EvalTxResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((AnyChainEval -> Builder) -> Vector AnyChainEval -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ AnyChainEval
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (AnyChainEval -> ByteString) -> AnyChainEval -> 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))
                           AnyChainEval -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyChainEval
_v))
                (FoldLike
  (Vector AnyChainEval)
  EvalTxResponse
  EvalTxResponse
  (Vector AnyChainEval)
  (Vector AnyChainEval)
-> EvalTxResponse -> Vector AnyChainEval
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'report") EvalTxResponse
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet EvalTxResponse EvalTxResponse FieldSet FieldSet
-> EvalTxResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EvalTxResponse EvalTxResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' EvalTxResponse FieldSet
Data.ProtoLens.unknownFields EvalTxResponse
_x))
instance Control.DeepSeq.NFData EvalTxResponse where
  rnf :: EvalTxResponse -> ()
rnf
    = \ EvalTxResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EvalTxResponse -> FieldSet
_EvalTxResponse'_unknownFields EvalTxResponse
x__)
             (Vector AnyChainEval -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EvalTxResponse -> Vector AnyChainEval
_EvalTxResponse'report EvalTxResponse
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.tx' @:: Lens' ReadMempoolRequest [TxInMempool]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'tx' @:: Lens' ReadMempoolRequest (Data.Vector.Vector TxInMempool)@ -}
data ReadMempoolRequest
  = ReadMempoolRequest'_constructor {ReadMempoolRequest -> Vector TxInMempool
_ReadMempoolRequest'tx :: !(Data.Vector.Vector TxInMempool),
                                     ReadMempoolRequest -> FieldSet
_ReadMempoolRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ReadMempoolRequest -> ReadMempoolRequest -> Bool
(ReadMempoolRequest -> ReadMempoolRequest -> Bool)
-> (ReadMempoolRequest -> ReadMempoolRequest -> Bool)
-> Eq ReadMempoolRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
== :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
$c/= :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
/= :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
Prelude.Eq, Eq ReadMempoolRequest
Eq ReadMempoolRequest =>
(ReadMempoolRequest -> ReadMempoolRequest -> Ordering)
-> (ReadMempoolRequest -> ReadMempoolRequest -> Bool)
-> (ReadMempoolRequest -> ReadMempoolRequest -> Bool)
-> (ReadMempoolRequest -> ReadMempoolRequest -> Bool)
-> (ReadMempoolRequest -> ReadMempoolRequest -> Bool)
-> (ReadMempoolRequest -> ReadMempoolRequest -> ReadMempoolRequest)
-> (ReadMempoolRequest -> ReadMempoolRequest -> ReadMempoolRequest)
-> Ord ReadMempoolRequest
ReadMempoolRequest -> ReadMempoolRequest -> Bool
ReadMempoolRequest -> ReadMempoolRequest -> Ordering
ReadMempoolRequest -> ReadMempoolRequest -> ReadMempoolRequest
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 :: ReadMempoolRequest -> ReadMempoolRequest -> Ordering
compare :: ReadMempoolRequest -> ReadMempoolRequest -> Ordering
$c< :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
< :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
$c<= :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
<= :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
$c> :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
> :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
$c>= :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
>= :: ReadMempoolRequest -> ReadMempoolRequest -> Bool
$cmax :: ReadMempoolRequest -> ReadMempoolRequest -> ReadMempoolRequest
max :: ReadMempoolRequest -> ReadMempoolRequest -> ReadMempoolRequest
$cmin :: ReadMempoolRequest -> ReadMempoolRequest -> ReadMempoolRequest
min :: ReadMempoolRequest -> ReadMempoolRequest -> ReadMempoolRequest
Prelude.Ord)
instance Prelude.Show ReadMempoolRequest where
  showsPrec :: Int -> ReadMempoolRequest -> ShowS
showsPrec Int
_ ReadMempoolRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ReadMempoolRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadMempoolRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadMempoolRequest "tx" [TxInMempool] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "tx"
-> ([TxInMempool] -> f [TxInMempool])
-> ReadMempoolRequest
-> f ReadMempoolRequest
fieldOf Proxy# "tx"
_
    = ((Vector TxInMempool -> f (Vector TxInMempool))
 -> ReadMempoolRequest -> f ReadMempoolRequest)
-> (([TxInMempool] -> f [TxInMempool])
    -> Vector TxInMempool -> f (Vector TxInMempool))
-> ([TxInMempool] -> f [TxInMempool])
-> ReadMempoolRequest
-> f ReadMempoolRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ReadMempoolRequest -> Vector TxInMempool)
-> (ReadMempoolRequest -> Vector TxInMempool -> ReadMempoolRequest)
-> Lens
     ReadMempoolRequest
     ReadMempoolRequest
     (Vector TxInMempool)
     (Vector TxInMempool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ReadMempoolRequest -> Vector TxInMempool
_ReadMempoolRequest'tx
           (\ ReadMempoolRequest
x__ Vector TxInMempool
y__ -> ReadMempoolRequest
x__ {_ReadMempoolRequest'tx = y__}))
        ((Vector TxInMempool -> [TxInMempool])
-> (Vector TxInMempool -> [TxInMempool] -> Vector TxInMempool)
-> Lens
     (Vector TxInMempool)
     (Vector TxInMempool)
     [TxInMempool]
     [TxInMempool]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TxInMempool -> [TxInMempool]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector TxInMempool
_ [TxInMempool]
y__ -> [TxInMempool] -> Vector TxInMempool
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxInMempool]
y__))
instance Data.ProtoLens.Field.HasField ReadMempoolRequest "vec'tx" (Data.Vector.Vector TxInMempool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'tx"
-> (Vector TxInMempool -> f (Vector TxInMempool))
-> ReadMempoolRequest
-> f ReadMempoolRequest
fieldOf Proxy# "vec'tx"
_
    = ((Vector TxInMempool -> f (Vector TxInMempool))
 -> ReadMempoolRequest -> f ReadMempoolRequest)
-> ((Vector TxInMempool -> f (Vector TxInMempool))
    -> Vector TxInMempool -> f (Vector TxInMempool))
-> (Vector TxInMempool -> f (Vector TxInMempool))
-> ReadMempoolRequest
-> f ReadMempoolRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ReadMempoolRequest -> Vector TxInMempool)
-> (ReadMempoolRequest -> Vector TxInMempool -> ReadMempoolRequest)
-> Lens
     ReadMempoolRequest
     ReadMempoolRequest
     (Vector TxInMempool)
     (Vector TxInMempool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ReadMempoolRequest -> Vector TxInMempool
_ReadMempoolRequest'tx
           (\ ReadMempoolRequest
x__ Vector TxInMempool
y__ -> ReadMempoolRequest
x__ {_ReadMempoolRequest'tx = y__}))
        (Vector TxInMempool -> f (Vector TxInMempool))
-> Vector TxInMempool -> f (Vector TxInMempool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadMempoolRequest where
  messageName :: Proxy ReadMempoolRequest -> Text
messageName Proxy ReadMempoolRequest
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.ReadMempoolRequest"
  packedMessageDescriptor :: Proxy ReadMempoolRequest -> ByteString
packedMessageDescriptor Proxy ReadMempoolRequest
_
    = ByteString
"\n\
      \\DC2ReadMempoolRequest\DC23\n\
      \\STXtx\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.submit.TxInMempoolR\STXtx"
  packedFileDescriptor :: Proxy ReadMempoolRequest -> ByteString
packedFileDescriptor Proxy ReadMempoolRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ReadMempoolRequest)
fieldsByTag
    = let
        tx__field_descriptor :: FieldDescriptor ReadMempoolRequest
tx__field_descriptor
          = String
-> FieldTypeDescriptor TxInMempool
-> FieldAccessor ReadMempoolRequest TxInMempool
-> FieldDescriptor ReadMempoolRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx"
              (MessageOrGroup -> FieldTypeDescriptor TxInMempool
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxInMempool)
              (Packing
-> Lens' ReadMempoolRequest [TxInMempool]
-> FieldAccessor ReadMempoolRequest TxInMempool
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 @"tx")) ::
              Data.ProtoLens.FieldDescriptor ReadMempoolRequest
      in [(Tag, FieldDescriptor ReadMempoolRequest)]
-> Map Tag (FieldDescriptor ReadMempoolRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadMempoolRequest
tx__field_descriptor)]
  unknownFields :: Lens' ReadMempoolRequest FieldSet
unknownFields
    = (ReadMempoolRequest -> FieldSet)
-> (ReadMempoolRequest -> FieldSet -> ReadMempoolRequest)
-> Lens' ReadMempoolRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ReadMempoolRequest -> FieldSet
_ReadMempoolRequest'_unknownFields
        (\ ReadMempoolRequest
x__ FieldSet
y__ -> ReadMempoolRequest
x__ {_ReadMempoolRequest'_unknownFields = y__})
  defMessage :: ReadMempoolRequest
defMessage
    = ReadMempoolRequest'_constructor
        {_ReadMempoolRequest'tx :: Vector TxInMempool
_ReadMempoolRequest'tx = Vector TxInMempool
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ReadMempoolRequest'_unknownFields :: FieldSet
_ReadMempoolRequest'_unknownFields = []}
  parseMessage :: Parser ReadMempoolRequest
parseMessage
    = let
        loop ::
          ReadMempoolRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxInMempool
             -> Data.ProtoLens.Encoding.Bytes.Parser ReadMempoolRequest
        loop :: ReadMempoolRequest
-> Growing Vector RealWorld TxInMempool
-> Parser ReadMempoolRequest
loop ReadMempoolRequest
x Growing Vector RealWorld TxInMempool
mutable'tx
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector TxInMempool
frozen'tx <- IO (Vector TxInMempool) -> Parser (Vector TxInMempool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     (Growing Vector (PrimState IO) TxInMempool
-> IO (Vector TxInMempool)
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 TxInMempool
Growing Vector (PrimState IO) TxInMempool
mutable'tx)
                      (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]))))
                      ReadMempoolRequest -> Parser ReadMempoolRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ReadMempoolRequest ReadMempoolRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ReadMempoolRequest
-> ReadMempoolRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ReadMempoolRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadMempoolRequest FieldSet
Setter ReadMempoolRequest ReadMempoolRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ReadMempoolRequest
  ReadMempoolRequest
  (Vector TxInMempool)
  (Vector TxInMempool)
-> Vector TxInMempool -> ReadMempoolRequest -> ReadMempoolRequest
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'tx") Vector TxInMempool
frozen'tx ReadMempoolRequest
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !TxInMempool
y <- Parser TxInMempool -> String -> Parser TxInMempool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxInMempool -> Parser TxInMempool
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 TxInMempool
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"tx"
                                Growing Vector RealWorld TxInMempool
v <- IO (Growing Vector RealWorld TxInMempool)
-> Parser (Growing Vector RealWorld TxInMempool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxInMempool
-> TxInMempool -> IO (Growing Vector (PrimState IO) TxInMempool)
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 TxInMempool
Growing Vector (PrimState IO) TxInMempool
mutable'tx TxInMempool
y)
                                ReadMempoolRequest
-> Growing Vector RealWorld TxInMempool
-> Parser ReadMempoolRequest
loop ReadMempoolRequest
x Growing Vector RealWorld TxInMempool
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ReadMempoolRequest
-> Growing Vector RealWorld TxInMempool
-> Parser ReadMempoolRequest
loop
                                  (Setter ReadMempoolRequest ReadMempoolRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ReadMempoolRequest
-> ReadMempoolRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ReadMempoolRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadMempoolRequest FieldSet
Setter ReadMempoolRequest ReadMempoolRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadMempoolRequest
x)
                                  Growing Vector RealWorld TxInMempool
mutable'tx
      in
        Parser ReadMempoolRequest -> String -> Parser ReadMempoolRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld TxInMempool
mutable'tx <- IO (Growing Vector RealWorld TxInMempool)
-> Parser (Growing Vector RealWorld TxInMempool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                              IO (Growing Vector RealWorld TxInMempool)
IO (Growing Vector (PrimState IO) TxInMempool)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ReadMempoolRequest
-> Growing Vector RealWorld TxInMempool
-> Parser ReadMempoolRequest
loop ReadMempoolRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld TxInMempool
mutable'tx)
          String
"ReadMempoolRequest"
  buildMessage :: ReadMempoolRequest -> Builder
buildMessage
    = \ ReadMempoolRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((TxInMempool -> Builder) -> Vector TxInMempool -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ TxInMempool
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (TxInMempool -> ByteString) -> TxInMempool -> 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))
                           TxInMempool -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxInMempool
_v))
                (FoldLike
  (Vector TxInMempool)
  ReadMempoolRequest
  ReadMempoolRequest
  (Vector TxInMempool)
  (Vector TxInMempool)
-> ReadMempoolRequest -> Vector TxInMempool
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'tx") ReadMempoolRequest
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet ReadMempoolRequest ReadMempoolRequest FieldSet FieldSet
-> ReadMempoolRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ReadMempoolRequest ReadMempoolRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadMempoolRequest FieldSet
Data.ProtoLens.unknownFields ReadMempoolRequest
_x))
instance Control.DeepSeq.NFData ReadMempoolRequest where
  rnf :: ReadMempoolRequest -> ()
rnf
    = \ ReadMempoolRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ReadMempoolRequest -> FieldSet
_ReadMempoolRequest'_unknownFields ReadMempoolRequest
x__)
             (Vector TxInMempool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadMempoolRequest -> Vector TxInMempool
_ReadMempoolRequest'tx ReadMempoolRequest
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.stage' @:: Lens' ReadMempoolResponse [Stage]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'stage' @:: Lens' ReadMempoolResponse (Data.Vector.Vector Stage)@ -}
data ReadMempoolResponse
  = ReadMempoolResponse'_constructor {ReadMempoolResponse -> Vector Stage
_ReadMempoolResponse'stage :: !(Data.Vector.Vector Stage),
                                      ReadMempoolResponse -> FieldSet
_ReadMempoolResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ReadMempoolResponse -> ReadMempoolResponse -> Bool
(ReadMempoolResponse -> ReadMempoolResponse -> Bool)
-> (ReadMempoolResponse -> ReadMempoolResponse -> Bool)
-> Eq ReadMempoolResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
== :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
$c/= :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
/= :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
Prelude.Eq, Eq ReadMempoolResponse
Eq ReadMempoolResponse =>
(ReadMempoolResponse -> ReadMempoolResponse -> Ordering)
-> (ReadMempoolResponse -> ReadMempoolResponse -> Bool)
-> (ReadMempoolResponse -> ReadMempoolResponse -> Bool)
-> (ReadMempoolResponse -> ReadMempoolResponse -> Bool)
-> (ReadMempoolResponse -> ReadMempoolResponse -> Bool)
-> (ReadMempoolResponse
    -> ReadMempoolResponse -> ReadMempoolResponse)
-> (ReadMempoolResponse
    -> ReadMempoolResponse -> ReadMempoolResponse)
-> Ord ReadMempoolResponse
ReadMempoolResponse -> ReadMempoolResponse -> Bool
ReadMempoolResponse -> ReadMempoolResponse -> Ordering
ReadMempoolResponse -> ReadMempoolResponse -> ReadMempoolResponse
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 :: ReadMempoolResponse -> ReadMempoolResponse -> Ordering
compare :: ReadMempoolResponse -> ReadMempoolResponse -> Ordering
$c< :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
< :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
$c<= :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
<= :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
$c> :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
> :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
$c>= :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
>= :: ReadMempoolResponse -> ReadMempoolResponse -> Bool
$cmax :: ReadMempoolResponse -> ReadMempoolResponse -> ReadMempoolResponse
max :: ReadMempoolResponse -> ReadMempoolResponse -> ReadMempoolResponse
$cmin :: ReadMempoolResponse -> ReadMempoolResponse -> ReadMempoolResponse
min :: ReadMempoolResponse -> ReadMempoolResponse -> ReadMempoolResponse
Prelude.Ord)
instance Prelude.Show ReadMempoolResponse where
  showsPrec :: Int -> ReadMempoolResponse -> ShowS
showsPrec Int
_ ReadMempoolResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ReadMempoolResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ReadMempoolResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ReadMempoolResponse "stage" [Stage] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stage"
-> ([Stage] -> f [Stage])
-> ReadMempoolResponse
-> f ReadMempoolResponse
fieldOf Proxy# "stage"
_
    = ((Vector Stage -> f (Vector Stage))
 -> ReadMempoolResponse -> f ReadMempoolResponse)
-> (([Stage] -> f [Stage]) -> Vector Stage -> f (Vector Stage))
-> ([Stage] -> f [Stage])
-> ReadMempoolResponse
-> f ReadMempoolResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ReadMempoolResponse -> Vector Stage)
-> (ReadMempoolResponse -> Vector Stage -> ReadMempoolResponse)
-> Lens
     ReadMempoolResponse
     ReadMempoolResponse
     (Vector Stage)
     (Vector Stage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ReadMempoolResponse -> Vector Stage
_ReadMempoolResponse'stage
           (\ ReadMempoolResponse
x__ Vector Stage
y__ -> ReadMempoolResponse
x__ {_ReadMempoolResponse'stage = y__}))
        ((Vector Stage -> [Stage])
-> (Vector Stage -> [Stage] -> Vector Stage)
-> Lens (Vector Stage) (Vector Stage) [Stage] [Stage]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Stage -> [Stage]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Stage
_ [Stage]
y__ -> [Stage] -> Vector Stage
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Stage]
y__))
instance Data.ProtoLens.Field.HasField ReadMempoolResponse "vec'stage" (Data.Vector.Vector Stage) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'stage"
-> (Vector Stage -> f (Vector Stage))
-> ReadMempoolResponse
-> f ReadMempoolResponse
fieldOf Proxy# "vec'stage"
_
    = ((Vector Stage -> f (Vector Stage))
 -> ReadMempoolResponse -> f ReadMempoolResponse)
-> ((Vector Stage -> f (Vector Stage))
    -> Vector Stage -> f (Vector Stage))
-> (Vector Stage -> f (Vector Stage))
-> ReadMempoolResponse
-> f ReadMempoolResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ReadMempoolResponse -> Vector Stage)
-> (ReadMempoolResponse -> Vector Stage -> ReadMempoolResponse)
-> Lens
     ReadMempoolResponse
     ReadMempoolResponse
     (Vector Stage)
     (Vector Stage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ReadMempoolResponse -> Vector Stage
_ReadMempoolResponse'stage
           (\ ReadMempoolResponse
x__ Vector Stage
y__ -> ReadMempoolResponse
x__ {_ReadMempoolResponse'stage = y__}))
        (Vector Stage -> f (Vector Stage))
-> Vector Stage -> f (Vector Stage)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ReadMempoolResponse where
  messageName :: Proxy ReadMempoolResponse -> Text
messageName Proxy ReadMempoolResponse
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.ReadMempoolResponse"
  packedMessageDescriptor :: Proxy ReadMempoolResponse -> ByteString
packedMessageDescriptor Proxy ReadMempoolResponse
_
    = ByteString
"\n\
      \\DC3ReadMempoolResponse\DC23\n\
      \\ENQstage\CAN\SOH \ETX(\SO2\GS.utxorpc.v1alpha.submit.StageR\ENQstage"
  packedFileDescriptor :: Proxy ReadMempoolResponse -> ByteString
packedFileDescriptor Proxy ReadMempoolResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ReadMempoolResponse)
fieldsByTag
    = let
        stage__field_descriptor :: FieldDescriptor ReadMempoolResponse
stage__field_descriptor
          = String
-> FieldTypeDescriptor Stage
-> FieldAccessor ReadMempoolResponse Stage
-> FieldDescriptor ReadMempoolResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stage"
              (ScalarField Stage -> FieldTypeDescriptor Stage
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Stage
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Stage)
              (Packing
-> Lens' ReadMempoolResponse [Stage]
-> FieldAccessor ReadMempoolResponse Stage
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stage")) ::
              Data.ProtoLens.FieldDescriptor ReadMempoolResponse
      in
        [(Tag, FieldDescriptor ReadMempoolResponse)]
-> Map Tag (FieldDescriptor ReadMempoolResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ReadMempoolResponse
stage__field_descriptor)]
  unknownFields :: Lens' ReadMempoolResponse FieldSet
unknownFields
    = (ReadMempoolResponse -> FieldSet)
-> (ReadMempoolResponse -> FieldSet -> ReadMempoolResponse)
-> Lens' ReadMempoolResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ReadMempoolResponse -> FieldSet
_ReadMempoolResponse'_unknownFields
        (\ ReadMempoolResponse
x__ FieldSet
y__ -> ReadMempoolResponse
x__ {_ReadMempoolResponse'_unknownFields = y__})
  defMessage :: ReadMempoolResponse
defMessage
    = ReadMempoolResponse'_constructor
        {_ReadMempoolResponse'stage :: Vector Stage
_ReadMempoolResponse'stage = Vector Stage
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ReadMempoolResponse'_unknownFields :: FieldSet
_ReadMempoolResponse'_unknownFields = []}
  parseMessage :: Parser ReadMempoolResponse
parseMessage
    = let
        loop ::
          ReadMempoolResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Stage
             -> Data.ProtoLens.Encoding.Bytes.Parser ReadMempoolResponse
        loop :: ReadMempoolResponse
-> Growing Vector RealWorld Stage -> Parser ReadMempoolResponse
loop ReadMempoolResponse
x Growing Vector RealWorld Stage
mutable'stage
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Stage
frozen'stage <- IO (Vector Stage) -> Parser (Vector Stage)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) Stage -> IO (Vector Stage)
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 Stage
Growing Vector (PrimState IO) Stage
mutable'stage)
                      (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]))))
                      ReadMempoolResponse -> Parser ReadMempoolResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ReadMempoolResponse ReadMempoolResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ReadMempoolResponse
-> ReadMempoolResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f ReadMempoolResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadMempoolResponse FieldSet
Setter ReadMempoolResponse ReadMempoolResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ReadMempoolResponse
  ReadMempoolResponse
  (Vector Stage)
  (Vector Stage)
-> Vector Stage -> ReadMempoolResponse -> ReadMempoolResponse
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'stage") Vector Stage
frozen'stage ReadMempoolResponse
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
8 -> do !Stage
y <- Parser Stage -> String -> Parser Stage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Int -> Stage) -> Parser Int -> Parser Stage
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Int -> Stage
forall a. Enum a => Int -> a
Prelude.toEnum
                                           ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                              Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                              Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                        String
"stage"
                                Growing Vector RealWorld Stage
v <- IO (Growing Vector RealWorld Stage)
-> Parser (Growing Vector RealWorld Stage)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Stage
-> Stage -> IO (Growing Vector (PrimState IO) Stage)
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 Stage
Growing Vector (PrimState IO) Stage
mutable'stage Stage
y)
                                ReadMempoolResponse
-> Growing Vector RealWorld Stage -> Parser ReadMempoolResponse
loop ReadMempoolResponse
x Growing Vector RealWorld Stage
v
                        Word64
10
                          -> do Growing Vector RealWorld Stage
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Stage)
-> Parser (Growing Vector RealWorld Stage)
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)
                                          ((let
                                              ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
                                                     else
                                                         do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Int -> a) -> Parser Int -> Parser a
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Int -> a
forall a. Enum a => Int -> a
Prelude.toEnum
                                                                       ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                          Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                                                    String
"stage"
                                                            Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
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 v RealWorld a
Growing v (PrimState IO) a
qs a
q)
                                                            Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
                                            in Growing Vector RealWorld Stage
-> Parser (Growing Vector RealWorld Stage)
forall {a} {v :: * -> *}.
(Enum a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld Stage
mutable'stage)
                                ReadMempoolResponse
-> Growing Vector RealWorld Stage -> Parser ReadMempoolResponse
loop ReadMempoolResponse
x Growing Vector RealWorld Stage
y
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ReadMempoolResponse
-> Growing Vector RealWorld Stage -> Parser ReadMempoolResponse
loop
                                  (Setter ReadMempoolResponse ReadMempoolResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ReadMempoolResponse
-> ReadMempoolResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f ReadMempoolResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadMempoolResponse FieldSet
Setter ReadMempoolResponse ReadMempoolResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ReadMempoolResponse
x)
                                  Growing Vector RealWorld Stage
mutable'stage
      in
        Parser ReadMempoolResponse -> String -> Parser ReadMempoolResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Stage
mutable'stage <- IO (Growing Vector RealWorld Stage)
-> Parser (Growing Vector RealWorld Stage)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Stage)
IO (Growing Vector (PrimState IO) Stage)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ReadMempoolResponse
-> Growing Vector RealWorld Stage -> Parser ReadMempoolResponse
loop ReadMempoolResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Stage
mutable'stage)
          String
"ReadMempoolResponse"
  buildMessage :: ReadMempoolResponse -> Builder
buildMessage
    = \ ReadMempoolResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Stage
p = FoldLike
  (Vector Stage)
  ReadMempoolResponse
  ReadMempoolResponse
  (Vector Stage)
  (Vector Stage)
-> ReadMempoolResponse -> Vector Stage
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'stage") ReadMempoolResponse
_x
              in
                if Vector Stage -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Stage
p 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))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Stage -> Builder) -> Vector Stage -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Int -> Builder) -> (Stage -> Int) -> Stage -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                  Stage -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum)
                               Vector Stage
p))))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet ReadMempoolResponse ReadMempoolResponse FieldSet FieldSet
-> ReadMempoolResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ReadMempoolResponse ReadMempoolResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ReadMempoolResponse FieldSet
Data.ProtoLens.unknownFields ReadMempoolResponse
_x))
instance Control.DeepSeq.NFData ReadMempoolResponse where
  rnf :: ReadMempoolResponse -> ()
rnf
    = \ ReadMempoolResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ReadMempoolResponse -> FieldSet
_ReadMempoolResponse'_unknownFields ReadMempoolResponse
x__)
             (Vector Stage -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ReadMempoolResponse -> Vector Stage
_ReadMempoolResponse'stage ReadMempoolResponse
x__) ())
newtype Stage'UnrecognizedValue
  = Stage'UnrecognizedValue Data.Int.Int32
  deriving stock (Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
(Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool)
-> (Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool)
-> Eq Stage'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
== :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
$c/= :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
/= :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
Prelude.Eq, Eq Stage'UnrecognizedValue
Eq Stage'UnrecognizedValue =>
(Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Ordering)
-> (Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool)
-> (Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool)
-> (Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool)
-> (Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool)
-> (Stage'UnrecognizedValue
    -> Stage'UnrecognizedValue -> Stage'UnrecognizedValue)
-> (Stage'UnrecognizedValue
    -> Stage'UnrecognizedValue -> Stage'UnrecognizedValue)
-> Ord Stage'UnrecognizedValue
Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Ordering
Stage'UnrecognizedValue
-> Stage'UnrecognizedValue -> Stage'UnrecognizedValue
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 :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Ordering
compare :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Ordering
$c< :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
< :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
$c<= :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
<= :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
$c> :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
> :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
$c>= :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
>= :: Stage'UnrecognizedValue -> Stage'UnrecognizedValue -> Bool
$cmax :: Stage'UnrecognizedValue
-> Stage'UnrecognizedValue -> Stage'UnrecognizedValue
max :: Stage'UnrecognizedValue
-> Stage'UnrecognizedValue -> Stage'UnrecognizedValue
$cmin :: Stage'UnrecognizedValue
-> Stage'UnrecognizedValue -> Stage'UnrecognizedValue
min :: Stage'UnrecognizedValue
-> Stage'UnrecognizedValue -> Stage'UnrecognizedValue
Prelude.Ord, Int -> Stage'UnrecognizedValue -> ShowS
[Stage'UnrecognizedValue] -> ShowS
Stage'UnrecognizedValue -> String
(Int -> Stage'UnrecognizedValue -> ShowS)
-> (Stage'UnrecognizedValue -> String)
-> ([Stage'UnrecognizedValue] -> ShowS)
-> Show Stage'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Stage'UnrecognizedValue -> ShowS
showsPrec :: Int -> Stage'UnrecognizedValue -> ShowS
$cshow :: Stage'UnrecognizedValue -> String
show :: Stage'UnrecognizedValue -> String
$cshowList :: [Stage'UnrecognizedValue] -> ShowS
showList :: [Stage'UnrecognizedValue] -> ShowS
Prelude.Show)
data Stage
  = STAGE_UNSPECIFIED |
    STAGE_ACKNOWLEDGED |
    STAGE_MEMPOOL |
    STAGE_NETWORK |
    STAGE_CONFIRMED |
    Stage'Unrecognized !Stage'UnrecognizedValue
  deriving stock (Int -> Stage -> ShowS
[Stage] -> ShowS
Stage -> String
(Int -> Stage -> ShowS)
-> (Stage -> String) -> ([Stage] -> ShowS) -> Show Stage
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Stage -> ShowS
showsPrec :: Int -> Stage -> ShowS
$cshow :: Stage -> String
show :: Stage -> String
$cshowList :: [Stage] -> ShowS
showList :: [Stage] -> ShowS
Prelude.Show, Stage -> Stage -> Bool
(Stage -> Stage -> Bool) -> (Stage -> Stage -> Bool) -> Eq Stage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Stage -> Stage -> Bool
== :: Stage -> Stage -> Bool
$c/= :: Stage -> Stage -> Bool
/= :: Stage -> Stage -> Bool
Prelude.Eq, Eq Stage
Eq Stage =>
(Stage -> Stage -> Ordering)
-> (Stage -> Stage -> Bool)
-> (Stage -> Stage -> Bool)
-> (Stage -> Stage -> Bool)
-> (Stage -> Stage -> Bool)
-> (Stage -> Stage -> Stage)
-> (Stage -> Stage -> Stage)
-> Ord Stage
Stage -> Stage -> Bool
Stage -> Stage -> Ordering
Stage -> Stage -> Stage
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 :: Stage -> Stage -> Ordering
compare :: Stage -> Stage -> Ordering
$c< :: Stage -> Stage -> Bool
< :: Stage -> Stage -> Bool
$c<= :: Stage -> Stage -> Bool
<= :: Stage -> Stage -> Bool
$c> :: Stage -> Stage -> Bool
> :: Stage -> Stage -> Bool
$c>= :: Stage -> Stage -> Bool
>= :: Stage -> Stage -> Bool
$cmax :: Stage -> Stage -> Stage
max :: Stage -> Stage -> Stage
$cmin :: Stage -> Stage -> Stage
min :: Stage -> Stage -> Stage
Prelude.Ord)
instance Data.ProtoLens.MessageEnum Stage where
  maybeToEnum :: Int -> Maybe Stage
maybeToEnum Int
0 = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_UNSPECIFIED
  maybeToEnum Int
1 = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_ACKNOWLEDGED
  maybeToEnum Int
2 = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_MEMPOOL
  maybeToEnum Int
3 = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_NETWORK
  maybeToEnum Int
4 = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_CONFIRMED
  maybeToEnum Int
k
    = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just
        (Stage'UnrecognizedValue -> Stage
Stage'Unrecognized
           (Int32 -> Stage'UnrecognizedValue
Stage'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: Stage -> String
showEnum Stage
STAGE_UNSPECIFIED = String
"STAGE_UNSPECIFIED"
  showEnum Stage
STAGE_ACKNOWLEDGED = String
"STAGE_ACKNOWLEDGED"
  showEnum Stage
STAGE_MEMPOOL = String
"STAGE_MEMPOOL"
  showEnum Stage
STAGE_NETWORK = String
"STAGE_NETWORK"
  showEnum Stage
STAGE_CONFIRMED = String
"STAGE_CONFIRMED"
  showEnum (Stage'Unrecognized (Stage'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe Stage
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"STAGE_UNSPECIFIED"
    = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_UNSPECIFIED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"STAGE_ACKNOWLEDGED"
    = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_ACKNOWLEDGED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"STAGE_MEMPOOL" = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_MEMPOOL
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"STAGE_NETWORK" = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_NETWORK
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"STAGE_CONFIRMED" = Stage -> Maybe Stage
forall a. a -> Maybe a
Prelude.Just Stage
STAGE_CONFIRMED
    | Bool
Prelude.otherwise
    = Maybe Int -> (Int -> Maybe Stage) -> Maybe Stage
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe Stage
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Stage where
  minBound :: Stage
minBound = Stage
STAGE_UNSPECIFIED
  maxBound :: Stage
maxBound = Stage
STAGE_CONFIRMED
instance Prelude.Enum Stage where
  toEnum :: Int -> Stage
toEnum Int
k__
    = Stage -> (Stage -> Stage) -> Maybe Stage -> Stage
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> Stage
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum Stage: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        Stage -> Stage
forall a. a -> a
Prelude.id (Int -> Maybe Stage
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: Stage -> Int
fromEnum Stage
STAGE_UNSPECIFIED = Int
0
  fromEnum Stage
STAGE_ACKNOWLEDGED = Int
1
  fromEnum Stage
STAGE_MEMPOOL = Int
2
  fromEnum Stage
STAGE_NETWORK = Int
3
  fromEnum Stage
STAGE_CONFIRMED = Int
4
  fromEnum (Stage'Unrecognized (Stage'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: Stage -> Stage
succ Stage
STAGE_CONFIRMED
    = String -> Stage
forall a. HasCallStack => String -> a
Prelude.error
        String
"Stage.succ: bad argument STAGE_CONFIRMED. This value would be out of bounds."
  succ Stage
STAGE_UNSPECIFIED = Stage
STAGE_ACKNOWLEDGED
  succ Stage
STAGE_ACKNOWLEDGED = Stage
STAGE_MEMPOOL
  succ Stage
STAGE_MEMPOOL = Stage
STAGE_NETWORK
  succ Stage
STAGE_NETWORK = Stage
STAGE_CONFIRMED
  succ (Stage'Unrecognized Stage'UnrecognizedValue
_)
    = String -> Stage
forall a. HasCallStack => String -> a
Prelude.error String
"Stage.succ: bad argument: unrecognized value"
  pred :: Stage -> Stage
pred Stage
STAGE_UNSPECIFIED
    = String -> Stage
forall a. HasCallStack => String -> a
Prelude.error
        String
"Stage.pred: bad argument STAGE_UNSPECIFIED. This value would be out of bounds."
  pred Stage
STAGE_ACKNOWLEDGED = Stage
STAGE_UNSPECIFIED
  pred Stage
STAGE_MEMPOOL = Stage
STAGE_ACKNOWLEDGED
  pred Stage
STAGE_NETWORK = Stage
STAGE_MEMPOOL
  pred Stage
STAGE_CONFIRMED = Stage
STAGE_NETWORK
  pred (Stage'Unrecognized Stage'UnrecognizedValue
_)
    = String -> Stage
forall a. HasCallStack => String -> a
Prelude.error String
"Stage.pred: bad argument: unrecognized value"
  enumFrom :: Stage -> [Stage]
enumFrom = Stage -> [Stage]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: Stage -> Stage -> [Stage]
enumFromTo = Stage -> Stage -> [Stage]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: Stage -> Stage -> [Stage]
enumFromThen = Stage -> Stage -> [Stage]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: Stage -> Stage -> Stage -> [Stage]
enumFromThenTo = Stage -> Stage -> Stage -> [Stage]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Stage where
  fieldDefault :: Stage
fieldDefault = Stage
STAGE_UNSPECIFIED
instance Control.DeepSeq.NFData Stage where
  rnf :: Stage -> ()
rnf Stage
x__ = Stage -> () -> ()
forall a b. a -> b -> b
Prelude.seq Stage
x__ ()
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.tx' @:: Lens' SubmitTxRequest [AnyChainTx]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'tx' @:: Lens' SubmitTxRequest (Data.Vector.Vector AnyChainTx)@ -}
data SubmitTxRequest
  = SubmitTxRequest'_constructor {SubmitTxRequest -> Vector AnyChainTx
_SubmitTxRequest'tx :: !(Data.Vector.Vector AnyChainTx),
                                  SubmitTxRequest -> FieldSet
_SubmitTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SubmitTxRequest -> SubmitTxRequest -> Bool
(SubmitTxRequest -> SubmitTxRequest -> Bool)
-> (SubmitTxRequest -> SubmitTxRequest -> Bool)
-> Eq SubmitTxRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SubmitTxRequest -> SubmitTxRequest -> Bool
== :: SubmitTxRequest -> SubmitTxRequest -> Bool
$c/= :: SubmitTxRequest -> SubmitTxRequest -> Bool
/= :: SubmitTxRequest -> SubmitTxRequest -> Bool
Prelude.Eq, Eq SubmitTxRequest
Eq SubmitTxRequest =>
(SubmitTxRequest -> SubmitTxRequest -> Ordering)
-> (SubmitTxRequest -> SubmitTxRequest -> Bool)
-> (SubmitTxRequest -> SubmitTxRequest -> Bool)
-> (SubmitTxRequest -> SubmitTxRequest -> Bool)
-> (SubmitTxRequest -> SubmitTxRequest -> Bool)
-> (SubmitTxRequest -> SubmitTxRequest -> SubmitTxRequest)
-> (SubmitTxRequest -> SubmitTxRequest -> SubmitTxRequest)
-> Ord SubmitTxRequest
SubmitTxRequest -> SubmitTxRequest -> Bool
SubmitTxRequest -> SubmitTxRequest -> Ordering
SubmitTxRequest -> SubmitTxRequest -> SubmitTxRequest
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 :: SubmitTxRequest -> SubmitTxRequest -> Ordering
compare :: SubmitTxRequest -> SubmitTxRequest -> Ordering
$c< :: SubmitTxRequest -> SubmitTxRequest -> Bool
< :: SubmitTxRequest -> SubmitTxRequest -> Bool
$c<= :: SubmitTxRequest -> SubmitTxRequest -> Bool
<= :: SubmitTxRequest -> SubmitTxRequest -> Bool
$c> :: SubmitTxRequest -> SubmitTxRequest -> Bool
> :: SubmitTxRequest -> SubmitTxRequest -> Bool
$c>= :: SubmitTxRequest -> SubmitTxRequest -> Bool
>= :: SubmitTxRequest -> SubmitTxRequest -> Bool
$cmax :: SubmitTxRequest -> SubmitTxRequest -> SubmitTxRequest
max :: SubmitTxRequest -> SubmitTxRequest -> SubmitTxRequest
$cmin :: SubmitTxRequest -> SubmitTxRequest -> SubmitTxRequest
min :: SubmitTxRequest -> SubmitTxRequest -> SubmitTxRequest
Prelude.Ord)
instance Prelude.Show SubmitTxRequest where
  showsPrec :: Int -> SubmitTxRequest -> ShowS
showsPrec Int
_ SubmitTxRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SubmitTxRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SubmitTxRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SubmitTxRequest "tx" [AnyChainTx] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "tx"
-> ([AnyChainTx] -> f [AnyChainTx])
-> SubmitTxRequest
-> f SubmitTxRequest
fieldOf Proxy# "tx"
_
    = ((Vector AnyChainTx -> f (Vector AnyChainTx))
 -> SubmitTxRequest -> f SubmitTxRequest)
-> (([AnyChainTx] -> f [AnyChainTx])
    -> Vector AnyChainTx -> f (Vector AnyChainTx))
-> ([AnyChainTx] -> f [AnyChainTx])
-> SubmitTxRequest
-> f SubmitTxRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SubmitTxRequest -> Vector AnyChainTx)
-> (SubmitTxRequest -> Vector AnyChainTx -> SubmitTxRequest)
-> Lens
     SubmitTxRequest
     SubmitTxRequest
     (Vector AnyChainTx)
     (Vector AnyChainTx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SubmitTxRequest -> Vector AnyChainTx
_SubmitTxRequest'tx (\ SubmitTxRequest
x__ Vector AnyChainTx
y__ -> SubmitTxRequest
x__ {_SubmitTxRequest'tx = y__}))
        ((Vector AnyChainTx -> [AnyChainTx])
-> (Vector AnyChainTx -> [AnyChainTx] -> Vector AnyChainTx)
-> Lens
     (Vector AnyChainTx) (Vector AnyChainTx) [AnyChainTx] [AnyChainTx]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector AnyChainTx -> [AnyChainTx]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector AnyChainTx
_ [AnyChainTx]
y__ -> [AnyChainTx] -> Vector AnyChainTx
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AnyChainTx]
y__))
instance Data.ProtoLens.Field.HasField SubmitTxRequest "vec'tx" (Data.Vector.Vector AnyChainTx) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'tx"
-> (Vector AnyChainTx -> f (Vector AnyChainTx))
-> SubmitTxRequest
-> f SubmitTxRequest
fieldOf Proxy# "vec'tx"
_
    = ((Vector AnyChainTx -> f (Vector AnyChainTx))
 -> SubmitTxRequest -> f SubmitTxRequest)
-> ((Vector AnyChainTx -> f (Vector AnyChainTx))
    -> Vector AnyChainTx -> f (Vector AnyChainTx))
-> (Vector AnyChainTx -> f (Vector AnyChainTx))
-> SubmitTxRequest
-> f SubmitTxRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SubmitTxRequest -> Vector AnyChainTx)
-> (SubmitTxRequest -> Vector AnyChainTx -> SubmitTxRequest)
-> Lens
     SubmitTxRequest
     SubmitTxRequest
     (Vector AnyChainTx)
     (Vector AnyChainTx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SubmitTxRequest -> Vector AnyChainTx
_SubmitTxRequest'tx (\ SubmitTxRequest
x__ Vector AnyChainTx
y__ -> SubmitTxRequest
x__ {_SubmitTxRequest'tx = y__}))
        (Vector AnyChainTx -> f (Vector AnyChainTx))
-> Vector AnyChainTx -> f (Vector AnyChainTx)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SubmitTxRequest where
  messageName :: Proxy SubmitTxRequest -> Text
messageName Proxy SubmitTxRequest
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.SubmitTxRequest"
  packedMessageDescriptor :: Proxy SubmitTxRequest -> ByteString
packedMessageDescriptor Proxy SubmitTxRequest
_
    = ByteString
"\n\
      \\SISubmitTxRequest\DC22\n\
      \\STXtx\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx"
  packedFileDescriptor :: Proxy SubmitTxRequest -> ByteString
packedFileDescriptor Proxy SubmitTxRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SubmitTxRequest)
fieldsByTag
    = let
        tx__field_descriptor :: FieldDescriptor SubmitTxRequest
tx__field_descriptor
          = String
-> FieldTypeDescriptor AnyChainTx
-> FieldAccessor SubmitTxRequest AnyChainTx
-> FieldDescriptor SubmitTxRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx"
              (MessageOrGroup -> FieldTypeDescriptor AnyChainTx
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AnyChainTx)
              (Packing
-> Lens' SubmitTxRequest [AnyChainTx]
-> FieldAccessor SubmitTxRequest AnyChainTx
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 @"tx")) ::
              Data.ProtoLens.FieldDescriptor SubmitTxRequest
      in [(Tag, FieldDescriptor SubmitTxRequest)]
-> Map Tag (FieldDescriptor SubmitTxRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SubmitTxRequest
tx__field_descriptor)]
  unknownFields :: Lens' SubmitTxRequest FieldSet
unknownFields
    = (SubmitTxRequest -> FieldSet)
-> (SubmitTxRequest -> FieldSet -> SubmitTxRequest)
-> Lens' SubmitTxRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SubmitTxRequest -> FieldSet
_SubmitTxRequest'_unknownFields
        (\ SubmitTxRequest
x__ FieldSet
y__ -> SubmitTxRequest
x__ {_SubmitTxRequest'_unknownFields = y__})
  defMessage :: SubmitTxRequest
defMessage
    = SubmitTxRequest'_constructor
        {_SubmitTxRequest'tx :: Vector AnyChainTx
_SubmitTxRequest'tx = Vector AnyChainTx
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _SubmitTxRequest'_unknownFields :: FieldSet
_SubmitTxRequest'_unknownFields = []}
  parseMessage :: Parser SubmitTxRequest
parseMessage
    = let
        loop ::
          SubmitTxRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AnyChainTx
             -> Data.ProtoLens.Encoding.Bytes.Parser SubmitTxRequest
        loop :: SubmitTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser SubmitTxRequest
loop SubmitTxRequest
x Growing Vector RealWorld AnyChainTx
mutable'tx
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector AnyChainTx
frozen'tx <- IO (Vector AnyChainTx) -> Parser (Vector AnyChainTx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     (Growing Vector (PrimState IO) AnyChainTx -> IO (Vector AnyChainTx)
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 AnyChainTx
Growing Vector (PrimState IO) AnyChainTx
mutable'tx)
                      (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]))))
                      SubmitTxRequest -> Parser SubmitTxRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter SubmitTxRequest SubmitTxRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SubmitTxRequest -> SubmitTxRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f SubmitTxRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SubmitTxRequest FieldSet
Setter SubmitTxRequest SubmitTxRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  SubmitTxRequest
  SubmitTxRequest
  (Vector AnyChainTx)
  (Vector AnyChainTx)
-> Vector AnyChainTx -> SubmitTxRequest -> SubmitTxRequest
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'tx") Vector AnyChainTx
frozen'tx SubmitTxRequest
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do !AnyChainTx
y <- Parser AnyChainTx -> String -> Parser AnyChainTx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser AnyChainTx -> Parser AnyChainTx
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 AnyChainTx
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"tx"
                                Growing Vector RealWorld AnyChainTx
v <- IO (Growing Vector RealWorld AnyChainTx)
-> Parser (Growing Vector RealWorld AnyChainTx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) AnyChainTx
-> AnyChainTx -> IO (Growing Vector (PrimState IO) AnyChainTx)
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 AnyChainTx
Growing Vector (PrimState IO) AnyChainTx
mutable'tx AnyChainTx
y)
                                SubmitTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser SubmitTxRequest
loop SubmitTxRequest
x Growing Vector RealWorld AnyChainTx
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                SubmitTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser SubmitTxRequest
loop
                                  (Setter SubmitTxRequest SubmitTxRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SubmitTxRequest -> SubmitTxRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f SubmitTxRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SubmitTxRequest FieldSet
Setter SubmitTxRequest SubmitTxRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SubmitTxRequest
x)
                                  Growing Vector RealWorld AnyChainTx
mutable'tx
      in
        Parser SubmitTxRequest -> String -> Parser SubmitTxRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld AnyChainTx
mutable'tx <- IO (Growing Vector RealWorld AnyChainTx)
-> Parser (Growing Vector RealWorld AnyChainTx)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                              IO (Growing Vector RealWorld AnyChainTx)
IO (Growing Vector (PrimState IO) AnyChainTx)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              SubmitTxRequest
-> Growing Vector RealWorld AnyChainTx -> Parser SubmitTxRequest
loop SubmitTxRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AnyChainTx
mutable'tx)
          String
"SubmitTxRequest"
  buildMessage :: SubmitTxRequest -> Builder
buildMessage
    = \ SubmitTxRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((AnyChainTx -> Builder) -> Vector AnyChainTx -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ AnyChainTx
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (AnyChainTx -> ByteString) -> AnyChainTx -> 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))
                           AnyChainTx -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyChainTx
_v))
                (FoldLike
  (Vector AnyChainTx)
  SubmitTxRequest
  SubmitTxRequest
  (Vector AnyChainTx)
  (Vector AnyChainTx)
-> SubmitTxRequest -> Vector AnyChainTx
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'tx") SubmitTxRequest
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet SubmitTxRequest SubmitTxRequest FieldSet FieldSet
-> SubmitTxRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SubmitTxRequest SubmitTxRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SubmitTxRequest FieldSet
Data.ProtoLens.unknownFields SubmitTxRequest
_x))
instance Control.DeepSeq.NFData SubmitTxRequest where
  rnf :: SubmitTxRequest -> ()
rnf
    = \ SubmitTxRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SubmitTxRequest -> FieldSet
_SubmitTxRequest'_unknownFields SubmitTxRequest
x__)
             (Vector AnyChainTx -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SubmitTxRequest -> Vector AnyChainTx
_SubmitTxRequest'tx SubmitTxRequest
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.ref' @:: Lens' SubmitTxResponse [Data.ByteString.ByteString]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'ref' @:: Lens' SubmitTxResponse (Data.Vector.Vector Data.ByteString.ByteString)@ -}
data SubmitTxResponse
  = SubmitTxResponse'_constructor {SubmitTxResponse -> Vector ByteString
_SubmitTxResponse'ref :: !(Data.Vector.Vector Data.ByteString.ByteString),
                                   SubmitTxResponse -> FieldSet
_SubmitTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SubmitTxResponse -> SubmitTxResponse -> Bool
(SubmitTxResponse -> SubmitTxResponse -> Bool)
-> (SubmitTxResponse -> SubmitTxResponse -> Bool)
-> Eq SubmitTxResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SubmitTxResponse -> SubmitTxResponse -> Bool
== :: SubmitTxResponse -> SubmitTxResponse -> Bool
$c/= :: SubmitTxResponse -> SubmitTxResponse -> Bool
/= :: SubmitTxResponse -> SubmitTxResponse -> Bool
Prelude.Eq, Eq SubmitTxResponse
Eq SubmitTxResponse =>
(SubmitTxResponse -> SubmitTxResponse -> Ordering)
-> (SubmitTxResponse -> SubmitTxResponse -> Bool)
-> (SubmitTxResponse -> SubmitTxResponse -> Bool)
-> (SubmitTxResponse -> SubmitTxResponse -> Bool)
-> (SubmitTxResponse -> SubmitTxResponse -> Bool)
-> (SubmitTxResponse -> SubmitTxResponse -> SubmitTxResponse)
-> (SubmitTxResponse -> SubmitTxResponse -> SubmitTxResponse)
-> Ord SubmitTxResponse
SubmitTxResponse -> SubmitTxResponse -> Bool
SubmitTxResponse -> SubmitTxResponse -> Ordering
SubmitTxResponse -> SubmitTxResponse -> SubmitTxResponse
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 :: SubmitTxResponse -> SubmitTxResponse -> Ordering
compare :: SubmitTxResponse -> SubmitTxResponse -> Ordering
$c< :: SubmitTxResponse -> SubmitTxResponse -> Bool
< :: SubmitTxResponse -> SubmitTxResponse -> Bool
$c<= :: SubmitTxResponse -> SubmitTxResponse -> Bool
<= :: SubmitTxResponse -> SubmitTxResponse -> Bool
$c> :: SubmitTxResponse -> SubmitTxResponse -> Bool
> :: SubmitTxResponse -> SubmitTxResponse -> Bool
$c>= :: SubmitTxResponse -> SubmitTxResponse -> Bool
>= :: SubmitTxResponse -> SubmitTxResponse -> Bool
$cmax :: SubmitTxResponse -> SubmitTxResponse -> SubmitTxResponse
max :: SubmitTxResponse -> SubmitTxResponse -> SubmitTxResponse
$cmin :: SubmitTxResponse -> SubmitTxResponse -> SubmitTxResponse
min :: SubmitTxResponse -> SubmitTxResponse -> SubmitTxResponse
Prelude.Ord)
instance Prelude.Show SubmitTxResponse where
  showsPrec :: Int -> SubmitTxResponse -> ShowS
showsPrec Int
_ SubmitTxResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SubmitTxResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SubmitTxResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SubmitTxResponse "ref" [Data.ByteString.ByteString] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ref"
-> ([ByteString] -> f [ByteString])
-> SubmitTxResponse
-> f SubmitTxResponse
fieldOf Proxy# "ref"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> SubmitTxResponse -> f SubmitTxResponse)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> SubmitTxResponse
-> f SubmitTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SubmitTxResponse -> Vector ByteString)
-> (SubmitTxResponse -> Vector ByteString -> SubmitTxResponse)
-> Lens
     SubmitTxResponse
     SubmitTxResponse
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SubmitTxResponse -> Vector ByteString
_SubmitTxResponse'ref
           (\ SubmitTxResponse
x__ Vector ByteString
y__ -> SubmitTxResponse
x__ {_SubmitTxResponse'ref = 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 SubmitTxResponse "vec'ref" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'ref"
-> (Vector ByteString -> f (Vector ByteString))
-> SubmitTxResponse
-> f SubmitTxResponse
fieldOf Proxy# "vec'ref"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> SubmitTxResponse -> f SubmitTxResponse)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> SubmitTxResponse
-> f SubmitTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SubmitTxResponse -> Vector ByteString)
-> (SubmitTxResponse -> Vector ByteString -> SubmitTxResponse)
-> Lens
     SubmitTxResponse
     SubmitTxResponse
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SubmitTxResponse -> Vector ByteString
_SubmitTxResponse'ref
           (\ SubmitTxResponse
x__ Vector ByteString
y__ -> SubmitTxResponse
x__ {_SubmitTxResponse'ref = y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SubmitTxResponse where
  messageName :: Proxy SubmitTxResponse -> Text
messageName Proxy SubmitTxResponse
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.SubmitTxResponse"
  packedMessageDescriptor :: Proxy SubmitTxResponse -> ByteString
packedMessageDescriptor Proxy SubmitTxResponse
_
    = ByteString
"\n\
      \\DLESubmitTxResponse\DC2\DLE\n\
      \\ETXref\CAN\SOH \ETX(\fR\ETXref"
  packedFileDescriptor :: Proxy SubmitTxResponse -> ByteString
packedFileDescriptor Proxy SubmitTxResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SubmitTxResponse)
fieldsByTag
    = let
        ref__field_descriptor :: FieldDescriptor SubmitTxResponse
ref__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor SubmitTxResponse ByteString
-> FieldDescriptor SubmitTxResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ref"
              (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' SubmitTxResponse [ByteString]
-> FieldAccessor SubmitTxResponse 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 @"ref")) ::
              Data.ProtoLens.FieldDescriptor SubmitTxResponse
      in
        [(Tag, FieldDescriptor SubmitTxResponse)]
-> Map Tag (FieldDescriptor SubmitTxResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SubmitTxResponse
ref__field_descriptor)]
  unknownFields :: Lens' SubmitTxResponse FieldSet
unknownFields
    = (SubmitTxResponse -> FieldSet)
-> (SubmitTxResponse -> FieldSet -> SubmitTxResponse)
-> Lens' SubmitTxResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SubmitTxResponse -> FieldSet
_SubmitTxResponse'_unknownFields
        (\ SubmitTxResponse
x__ FieldSet
y__ -> SubmitTxResponse
x__ {_SubmitTxResponse'_unknownFields = y__})
  defMessage :: SubmitTxResponse
defMessage
    = SubmitTxResponse'_constructor
        {_SubmitTxResponse'ref :: Vector ByteString
_SubmitTxResponse'ref = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _SubmitTxResponse'_unknownFields :: FieldSet
_SubmitTxResponse'_unknownFields = []}
  parseMessage :: Parser SubmitTxResponse
parseMessage
    = let
        loop ::
          SubmitTxResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
             -> Data.ProtoLens.Encoding.Bytes.Parser SubmitTxResponse
        loop :: SubmitTxResponse
-> Growing Vector RealWorld ByteString -> Parser SubmitTxResponse
loop SubmitTxResponse
x Growing Vector RealWorld ByteString
mutable'ref
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ByteString
frozen'ref <- 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'ref)
                      (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]))))
                      SubmitTxResponse -> Parser SubmitTxResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter SubmitTxResponse SubmitTxResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SubmitTxResponse -> SubmitTxResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f SubmitTxResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SubmitTxResponse FieldSet
Setter SubmitTxResponse SubmitTxResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  SubmitTxResponse
  SubmitTxResponse
  (Vector ByteString)
  (Vector ByteString)
-> Vector ByteString -> SubmitTxResponse -> SubmitTxResponse
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'ref") Vector ByteString
frozen'ref SubmitTxResponse
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
"ref"
                                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'ref ByteString
y)
                                SubmitTxResponse
-> Growing Vector RealWorld ByteString -> Parser SubmitTxResponse
loop SubmitTxResponse
x Growing Vector RealWorld ByteString
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                SubmitTxResponse
-> Growing Vector RealWorld ByteString -> Parser SubmitTxResponse
loop
                                  (Setter SubmitTxResponse SubmitTxResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SubmitTxResponse -> SubmitTxResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f SubmitTxResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SubmitTxResponse FieldSet
Setter SubmitTxResponse SubmitTxResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SubmitTxResponse
x)
                                  Growing Vector RealWorld ByteString
mutable'ref
      in
        Parser SubmitTxResponse -> String -> Parser SubmitTxResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ByteString
mutable'ref <- 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
              SubmitTxResponse
-> Growing Vector RealWorld ByteString -> Parser SubmitTxResponse
loop SubmitTxResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ByteString
mutable'ref)
          String
"SubmitTxResponse"
  buildMessage :: SubmitTxResponse -> Builder
buildMessage
    = \ SubmitTxResponse
_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)
  SubmitTxResponse
  SubmitTxResponse
  (Vector ByteString)
  (Vector ByteString)
-> SubmitTxResponse -> 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'ref") SubmitTxResponse
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet SubmitTxResponse SubmitTxResponse FieldSet FieldSet
-> SubmitTxResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet SubmitTxResponse SubmitTxResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SubmitTxResponse FieldSet
Data.ProtoLens.unknownFields SubmitTxResponse
_x))
instance Control.DeepSeq.NFData SubmitTxResponse where
  rnf :: SubmitTxResponse -> ()
rnf
    = \ SubmitTxResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SubmitTxResponse -> FieldSet
_SubmitTxResponse'_unknownFields SubmitTxResponse
x__)
             (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SubmitTxResponse -> Vector ByteString
_SubmitTxResponse'ref SubmitTxResponse
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.tx' @:: Lens' TxInMempool AnyChainTx@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'tx' @:: Lens' TxInMempool (Prelude.Maybe AnyChainTx)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.stage' @:: Lens' TxInMempool Stage@ -}
data TxInMempool
  = TxInMempool'_constructor {TxInMempool -> Maybe AnyChainTx
_TxInMempool'tx :: !(Prelude.Maybe AnyChainTx),
                              TxInMempool -> Stage
_TxInMempool'stage :: !Stage,
                              TxInMempool -> FieldSet
_TxInMempool'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxInMempool -> TxInMempool -> Bool
(TxInMempool -> TxInMempool -> Bool)
-> (TxInMempool -> TxInMempool -> Bool) -> Eq TxInMempool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxInMempool -> TxInMempool -> Bool
== :: TxInMempool -> TxInMempool -> Bool
$c/= :: TxInMempool -> TxInMempool -> Bool
/= :: TxInMempool -> TxInMempool -> Bool
Prelude.Eq, Eq TxInMempool
Eq TxInMempool =>
(TxInMempool -> TxInMempool -> Ordering)
-> (TxInMempool -> TxInMempool -> Bool)
-> (TxInMempool -> TxInMempool -> Bool)
-> (TxInMempool -> TxInMempool -> Bool)
-> (TxInMempool -> TxInMempool -> Bool)
-> (TxInMempool -> TxInMempool -> TxInMempool)
-> (TxInMempool -> TxInMempool -> TxInMempool)
-> Ord TxInMempool
TxInMempool -> TxInMempool -> Bool
TxInMempool -> TxInMempool -> Ordering
TxInMempool -> TxInMempool -> TxInMempool
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 :: TxInMempool -> TxInMempool -> Ordering
compare :: TxInMempool -> TxInMempool -> Ordering
$c< :: TxInMempool -> TxInMempool -> Bool
< :: TxInMempool -> TxInMempool -> Bool
$c<= :: TxInMempool -> TxInMempool -> Bool
<= :: TxInMempool -> TxInMempool -> Bool
$c> :: TxInMempool -> TxInMempool -> Bool
> :: TxInMempool -> TxInMempool -> Bool
$c>= :: TxInMempool -> TxInMempool -> Bool
>= :: TxInMempool -> TxInMempool -> Bool
$cmax :: TxInMempool -> TxInMempool -> TxInMempool
max :: TxInMempool -> TxInMempool -> TxInMempool
$cmin :: TxInMempool -> TxInMempool -> TxInMempool
min :: TxInMempool -> TxInMempool -> TxInMempool
Prelude.Ord)
instance Prelude.Show TxInMempool where
  showsPrec :: Int -> TxInMempool -> ShowS
showsPrec Int
_ TxInMempool
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxInMempool -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxInMempool
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxInMempool "tx" AnyChainTx where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "tx"
-> (AnyChainTx -> f AnyChainTx) -> TxInMempool -> f TxInMempool
fieldOf Proxy# "tx"
_
    = ((Maybe AnyChainTx -> f (Maybe AnyChainTx))
 -> TxInMempool -> f TxInMempool)
-> ((AnyChainTx -> f AnyChainTx)
    -> Maybe AnyChainTx -> f (Maybe AnyChainTx))
-> (AnyChainTx -> f AnyChainTx)
-> TxInMempool
-> f TxInMempool
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInMempool -> Maybe AnyChainTx)
-> (TxInMempool -> Maybe AnyChainTx -> TxInMempool)
-> Lens
     TxInMempool TxInMempool (Maybe AnyChainTx) (Maybe AnyChainTx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInMempool -> Maybe AnyChainTx
_TxInMempool'tx (\ TxInMempool
x__ Maybe AnyChainTx
y__ -> TxInMempool
x__ {_TxInMempool'tx = y__}))
        (AnyChainTx -> Lens' (Maybe AnyChainTx) AnyChainTx
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AnyChainTx
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxInMempool "maybe'tx" (Prelude.Maybe AnyChainTx) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'tx"
-> (Maybe AnyChainTx -> f (Maybe AnyChainTx))
-> TxInMempool
-> f TxInMempool
fieldOf Proxy# "maybe'tx"
_
    = ((Maybe AnyChainTx -> f (Maybe AnyChainTx))
 -> TxInMempool -> f TxInMempool)
-> ((Maybe AnyChainTx -> f (Maybe AnyChainTx))
    -> Maybe AnyChainTx -> f (Maybe AnyChainTx))
-> (Maybe AnyChainTx -> f (Maybe AnyChainTx))
-> TxInMempool
-> f TxInMempool
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInMempool -> Maybe AnyChainTx)
-> (TxInMempool -> Maybe AnyChainTx -> TxInMempool)
-> Lens
     TxInMempool TxInMempool (Maybe AnyChainTx) (Maybe AnyChainTx)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInMempool -> Maybe AnyChainTx
_TxInMempool'tx (\ TxInMempool
x__ Maybe AnyChainTx
y__ -> TxInMempool
x__ {_TxInMempool'tx = y__}))
        (Maybe AnyChainTx -> f (Maybe AnyChainTx))
-> Maybe AnyChainTx -> f (Maybe AnyChainTx)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxInMempool "stage" Stage where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stage"
-> (Stage -> f Stage) -> TxInMempool -> f TxInMempool
fieldOf Proxy# "stage"
_
    = ((Stage -> f Stage) -> TxInMempool -> f TxInMempool)
-> ((Stage -> f Stage) -> Stage -> f Stage)
-> (Stage -> f Stage)
-> TxInMempool
-> f TxInMempool
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxInMempool -> Stage)
-> (TxInMempool -> Stage -> TxInMempool)
-> Lens TxInMempool TxInMempool Stage Stage
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxInMempool -> Stage
_TxInMempool'stage (\ TxInMempool
x__ Stage
y__ -> TxInMempool
x__ {_TxInMempool'stage = y__}))
        (Stage -> f Stage) -> Stage -> f Stage
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxInMempool where
  messageName :: Proxy TxInMempool -> Text
messageName Proxy TxInMempool
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.TxInMempool"
  packedMessageDescriptor :: Proxy TxInMempool -> ByteString
packedMessageDescriptor Proxy TxInMempool
_
    = ByteString
"\n\
      \\vTxInMempool\DC22\n\
      \\STXtx\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx\DC23\n\
      \\ENQstage\CAN\STX \SOH(\SO2\GS.utxorpc.v1alpha.submit.StageR\ENQstage"
  packedFileDescriptor :: Proxy TxInMempool -> ByteString
packedFileDescriptor Proxy TxInMempool
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxInMempool)
fieldsByTag
    = let
        tx__field_descriptor :: FieldDescriptor TxInMempool
tx__field_descriptor
          = String
-> FieldTypeDescriptor AnyChainTx
-> FieldAccessor TxInMempool AnyChainTx
-> FieldDescriptor TxInMempool
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx"
              (MessageOrGroup -> FieldTypeDescriptor AnyChainTx
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AnyChainTx)
              (Lens TxInMempool TxInMempool (Maybe AnyChainTx) (Maybe AnyChainTx)
-> FieldAccessor TxInMempool AnyChainTx
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'tx")) ::
              Data.ProtoLens.FieldDescriptor TxInMempool
        stage__field_descriptor :: FieldDescriptor TxInMempool
stage__field_descriptor
          = String
-> FieldTypeDescriptor Stage
-> FieldAccessor TxInMempool Stage
-> FieldDescriptor TxInMempool
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stage"
              (ScalarField Stage -> FieldTypeDescriptor Stage
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Stage
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Stage)
              (WireDefault Stage
-> Lens TxInMempool TxInMempool Stage Stage
-> FieldAccessor TxInMempool Stage
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Stage
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 @"stage")) ::
              Data.ProtoLens.FieldDescriptor TxInMempool
      in
        [(Tag, FieldDescriptor TxInMempool)]
-> Map Tag (FieldDescriptor TxInMempool)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxInMempool
tx__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxInMempool
stage__field_descriptor)]
  unknownFields :: Lens' TxInMempool FieldSet
unknownFields
    = (TxInMempool -> FieldSet)
-> (TxInMempool -> FieldSet -> TxInMempool)
-> Lens' TxInMempool FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxInMempool -> FieldSet
_TxInMempool'_unknownFields
        (\ TxInMempool
x__ FieldSet
y__ -> TxInMempool
x__ {_TxInMempool'_unknownFields = y__})
  defMessage :: TxInMempool
defMessage
    = TxInMempool'_constructor
        {_TxInMempool'tx :: Maybe AnyChainTx
_TxInMempool'tx = Maybe AnyChainTx
forall a. Maybe a
Prelude.Nothing,
         _TxInMempool'stage :: Stage
_TxInMempool'stage = Stage
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxInMempool'_unknownFields :: FieldSet
_TxInMempool'_unknownFields = []}
  parseMessage :: Parser TxInMempool
parseMessage
    = let
        loop ::
          TxInMempool -> Data.ProtoLens.Encoding.Bytes.Parser TxInMempool
        loop :: TxInMempool -> Parser TxInMempool
loop TxInMempool
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]))))
                      TxInMempool -> Parser TxInMempool
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxInMempool TxInMempool FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxInMempool -> TxInMempool
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxInMempool FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxInMempool FieldSet
Setter TxInMempool TxInMempool FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TxInMempool
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do AnyChainTx
y <- Parser AnyChainTx -> String -> Parser AnyChainTx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AnyChainTx -> Parser AnyChainTx
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 AnyChainTx
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"tx"
                                TxInMempool -> Parser TxInMempool
loop (Setter TxInMempool TxInMempool AnyChainTx AnyChainTx
-> AnyChainTx -> TxInMempool -> TxInMempool
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 @"tx") AnyChainTx
y TxInMempool
x)
                        Word64
16
                          -> do Stage
y <- Parser Stage -> String -> Parser Stage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Stage) -> Parser Int -> Parser Stage
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Stage
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"stage"
                                TxInMempool -> Parser TxInMempool
loop (Setter TxInMempool TxInMempool Stage Stage
-> Stage -> TxInMempool -> TxInMempool
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 @"stage") Stage
y TxInMempool
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxInMempool -> Parser TxInMempool
loop
                                  (Setter TxInMempool TxInMempool FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxInMempool -> TxInMempool
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxInMempool FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxInMempool FieldSet
Setter TxInMempool TxInMempool FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxInMempool
x)
      in
        Parser TxInMempool -> String -> Parser TxInMempool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TxInMempool -> Parser TxInMempool
loop TxInMempool
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TxInMempool"
  buildMessage :: TxInMempool -> Builder
buildMessage
    = \ TxInMempool
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe AnyChainTx)
  TxInMempool
  TxInMempool
  (Maybe AnyChainTx)
  (Maybe AnyChainTx)
-> TxInMempool -> Maybe AnyChainTx
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'tx") TxInMempool
_x
              of
                Maybe AnyChainTx
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just AnyChainTx
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (AnyChainTx -> ByteString) -> AnyChainTx -> 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))
                          AnyChainTx -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyChainTx
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Stage
_v = FoldLike Stage TxInMempool TxInMempool Stage Stage
-> TxInMempool -> Stage
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 @"stage") TxInMempool
_x
                 in
                   if Stage -> Stage -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Stage
_v Stage
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)
                         ((Int -> Builder) -> (Stage -> Int) -> Stage -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                            Stage -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Stage
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet TxInMempool TxInMempool FieldSet FieldSet
-> TxInMempool -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxInMempool TxInMempool FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxInMempool FieldSet
Data.ProtoLens.unknownFields TxInMempool
_x)))
instance Control.DeepSeq.NFData TxInMempool where
  rnf :: TxInMempool -> ()
rnf
    = \ TxInMempool
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxInMempool -> FieldSet
_TxInMempool'_unknownFields TxInMempool
x__)
             (Maybe AnyChainTx -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxInMempool -> Maybe AnyChainTx
_TxInMempool'tx TxInMempool
x__)
                (Stage -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxInMempool -> Stage
_TxInMempool'stage TxInMempool
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.match' @:: Lens' TxPredicate AnyChainTxPattern@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'match' @:: Lens' TxPredicate (Prelude.Maybe AnyChainTxPattern)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.not' @:: Lens' TxPredicate [TxPredicate]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'not' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.allOf' @:: Lens' TxPredicate [TxPredicate]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'allOf' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.anyOf' @:: Lens' TxPredicate [TxPredicate]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'anyOf' @:: Lens' TxPredicate (Data.Vector.Vector TxPredicate)@ -}
data TxPredicate
  = TxPredicate'_constructor {TxPredicate -> Maybe AnyChainTxPattern
_TxPredicate'match :: !(Prelude.Maybe AnyChainTxPattern),
                              TxPredicate -> Vector TxPredicate
_TxPredicate'not :: !(Data.Vector.Vector TxPredicate),
                              TxPredicate -> Vector TxPredicate
_TxPredicate'allOf :: !(Data.Vector.Vector TxPredicate),
                              TxPredicate -> Vector TxPredicate
_TxPredicate'anyOf :: !(Data.Vector.Vector TxPredicate),
                              TxPredicate -> FieldSet
_TxPredicate'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxPredicate -> TxPredicate -> Bool
(TxPredicate -> TxPredicate -> Bool)
-> (TxPredicate -> TxPredicate -> Bool) -> Eq TxPredicate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxPredicate -> TxPredicate -> Bool
== :: TxPredicate -> TxPredicate -> Bool
$c/= :: TxPredicate -> TxPredicate -> Bool
/= :: TxPredicate -> TxPredicate -> Bool
Prelude.Eq, Eq TxPredicate
Eq TxPredicate =>
(TxPredicate -> TxPredicate -> Ordering)
-> (TxPredicate -> TxPredicate -> Bool)
-> (TxPredicate -> TxPredicate -> Bool)
-> (TxPredicate -> TxPredicate -> Bool)
-> (TxPredicate -> TxPredicate -> Bool)
-> (TxPredicate -> TxPredicate -> TxPredicate)
-> (TxPredicate -> TxPredicate -> TxPredicate)
-> Ord TxPredicate
TxPredicate -> TxPredicate -> Bool
TxPredicate -> TxPredicate -> Ordering
TxPredicate -> TxPredicate -> TxPredicate
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 :: TxPredicate -> TxPredicate -> Ordering
compare :: TxPredicate -> TxPredicate -> Ordering
$c< :: TxPredicate -> TxPredicate -> Bool
< :: TxPredicate -> TxPredicate -> Bool
$c<= :: TxPredicate -> TxPredicate -> Bool
<= :: TxPredicate -> TxPredicate -> Bool
$c> :: TxPredicate -> TxPredicate -> Bool
> :: TxPredicate -> TxPredicate -> Bool
$c>= :: TxPredicate -> TxPredicate -> Bool
>= :: TxPredicate -> TxPredicate -> Bool
$cmax :: TxPredicate -> TxPredicate -> TxPredicate
max :: TxPredicate -> TxPredicate -> TxPredicate
$cmin :: TxPredicate -> TxPredicate -> TxPredicate
min :: TxPredicate -> TxPredicate -> TxPredicate
Prelude.Ord)
instance Prelude.Show TxPredicate where
  showsPrec :: Int -> TxPredicate -> ShowS
showsPrec Int
_ TxPredicate
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxPredicate -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxPredicate
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxPredicate "match" AnyChainTxPattern where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "match"
-> (AnyChainTxPattern -> f AnyChainTxPattern)
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "match"
_
    = ((Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
 -> TxPredicate -> f TxPredicate)
-> ((AnyChainTxPattern -> f AnyChainTxPattern)
    -> Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
-> (AnyChainTxPattern -> f AnyChainTxPattern)
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Maybe AnyChainTxPattern)
-> (TxPredicate -> Maybe AnyChainTxPattern -> TxPredicate)
-> Lens
     TxPredicate
     TxPredicate
     (Maybe AnyChainTxPattern)
     (Maybe AnyChainTxPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Maybe AnyChainTxPattern
_TxPredicate'match (\ TxPredicate
x__ Maybe AnyChainTxPattern
y__ -> TxPredicate
x__ {_TxPredicate'match = y__}))
        (AnyChainTxPattern
-> Lens' (Maybe AnyChainTxPattern) AnyChainTxPattern
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens AnyChainTxPattern
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxPredicate "maybe'match" (Prelude.Maybe AnyChainTxPattern) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'match"
-> (Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "maybe'match"
_
    = ((Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
 -> TxPredicate -> f TxPredicate)
-> ((Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
    -> Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
-> (Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Maybe AnyChainTxPattern)
-> (TxPredicate -> Maybe AnyChainTxPattern -> TxPredicate)
-> Lens
     TxPredicate
     TxPredicate
     (Maybe AnyChainTxPattern)
     (Maybe AnyChainTxPattern)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Maybe AnyChainTxPattern
_TxPredicate'match (\ TxPredicate
x__ Maybe AnyChainTxPattern
y__ -> TxPredicate
x__ {_TxPredicate'match = y__}))
        (Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern))
-> Maybe AnyChainTxPattern -> f (Maybe AnyChainTxPattern)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxPredicate "not" [TxPredicate] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "not"
-> ([TxPredicate] -> f [TxPredicate])
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "not"
_
    = ((Vector TxPredicate -> f (Vector TxPredicate))
 -> TxPredicate -> f TxPredicate)
-> (([TxPredicate] -> f [TxPredicate])
    -> Vector TxPredicate -> f (Vector TxPredicate))
-> ([TxPredicate] -> f [TxPredicate])
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Vector TxPredicate)
-> (TxPredicate -> Vector TxPredicate -> TxPredicate)
-> Lens
     TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Vector TxPredicate
_TxPredicate'not (\ TxPredicate
x__ Vector TxPredicate
y__ -> TxPredicate
x__ {_TxPredicate'not = y__}))
        ((Vector TxPredicate -> [TxPredicate])
-> (Vector TxPredicate -> [TxPredicate] -> Vector TxPredicate)
-> Lens
     (Vector TxPredicate)
     (Vector TxPredicate)
     [TxPredicate]
     [TxPredicate]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TxPredicate -> [TxPredicate]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector TxPredicate
_ [TxPredicate]
y__ -> [TxPredicate] -> Vector TxPredicate
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxPredicate]
y__))
instance Data.ProtoLens.Field.HasField TxPredicate "vec'not" (Data.Vector.Vector TxPredicate) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'not"
-> (Vector TxPredicate -> f (Vector TxPredicate))
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "vec'not"
_
    = ((Vector TxPredicate -> f (Vector TxPredicate))
 -> TxPredicate -> f TxPredicate)
-> ((Vector TxPredicate -> f (Vector TxPredicate))
    -> Vector TxPredicate -> f (Vector TxPredicate))
-> (Vector TxPredicate -> f (Vector TxPredicate))
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Vector TxPredicate)
-> (TxPredicate -> Vector TxPredicate -> TxPredicate)
-> Lens
     TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Vector TxPredicate
_TxPredicate'not (\ TxPredicate
x__ Vector TxPredicate
y__ -> TxPredicate
x__ {_TxPredicate'not = y__}))
        (Vector TxPredicate -> f (Vector TxPredicate))
-> Vector TxPredicate -> f (Vector TxPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxPredicate "allOf" [TxPredicate] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "allOf"
-> ([TxPredicate] -> f [TxPredicate])
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "allOf"
_
    = ((Vector TxPredicate -> f (Vector TxPredicate))
 -> TxPredicate -> f TxPredicate)
-> (([TxPredicate] -> f [TxPredicate])
    -> Vector TxPredicate -> f (Vector TxPredicate))
-> ([TxPredicate] -> f [TxPredicate])
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Vector TxPredicate)
-> (TxPredicate -> Vector TxPredicate -> TxPredicate)
-> Lens
     TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Vector TxPredicate
_TxPredicate'allOf (\ TxPredicate
x__ Vector TxPredicate
y__ -> TxPredicate
x__ {_TxPredicate'allOf = y__}))
        ((Vector TxPredicate -> [TxPredicate])
-> (Vector TxPredicate -> [TxPredicate] -> Vector TxPredicate)
-> Lens
     (Vector TxPredicate)
     (Vector TxPredicate)
     [TxPredicate]
     [TxPredicate]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TxPredicate -> [TxPredicate]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector TxPredicate
_ [TxPredicate]
y__ -> [TxPredicate] -> Vector TxPredicate
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxPredicate]
y__))
instance Data.ProtoLens.Field.HasField TxPredicate "vec'allOf" (Data.Vector.Vector TxPredicate) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'allOf"
-> (Vector TxPredicate -> f (Vector TxPredicate))
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "vec'allOf"
_
    = ((Vector TxPredicate -> f (Vector TxPredicate))
 -> TxPredicate -> f TxPredicate)
-> ((Vector TxPredicate -> f (Vector TxPredicate))
    -> Vector TxPredicate -> f (Vector TxPredicate))
-> (Vector TxPredicate -> f (Vector TxPredicate))
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Vector TxPredicate)
-> (TxPredicate -> Vector TxPredicate -> TxPredicate)
-> Lens
     TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Vector TxPredicate
_TxPredicate'allOf (\ TxPredicate
x__ Vector TxPredicate
y__ -> TxPredicate
x__ {_TxPredicate'allOf = y__}))
        (Vector TxPredicate -> f (Vector TxPredicate))
-> Vector TxPredicate -> f (Vector TxPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxPredicate "anyOf" [TxPredicate] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "anyOf"
-> ([TxPredicate] -> f [TxPredicate])
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "anyOf"
_
    = ((Vector TxPredicate -> f (Vector TxPredicate))
 -> TxPredicate -> f TxPredicate)
-> (([TxPredicate] -> f [TxPredicate])
    -> Vector TxPredicate -> f (Vector TxPredicate))
-> ([TxPredicate] -> f [TxPredicate])
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Vector TxPredicate)
-> (TxPredicate -> Vector TxPredicate -> TxPredicate)
-> Lens
     TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Vector TxPredicate
_TxPredicate'anyOf (\ TxPredicate
x__ Vector TxPredicate
y__ -> TxPredicate
x__ {_TxPredicate'anyOf = y__}))
        ((Vector TxPredicate -> [TxPredicate])
-> (Vector TxPredicate -> [TxPredicate] -> Vector TxPredicate)
-> Lens
     (Vector TxPredicate)
     (Vector TxPredicate)
     [TxPredicate]
     [TxPredicate]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector TxPredicate -> [TxPredicate]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector TxPredicate
_ [TxPredicate]
y__ -> [TxPredicate] -> Vector TxPredicate
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxPredicate]
y__))
instance Data.ProtoLens.Field.HasField TxPredicate "vec'anyOf" (Data.Vector.Vector TxPredicate) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'anyOf"
-> (Vector TxPredicate -> f (Vector TxPredicate))
-> TxPredicate
-> f TxPredicate
fieldOf Proxy# "vec'anyOf"
_
    = ((Vector TxPredicate -> f (Vector TxPredicate))
 -> TxPredicate -> f TxPredicate)
-> ((Vector TxPredicate -> f (Vector TxPredicate))
    -> Vector TxPredicate -> f (Vector TxPredicate))
-> (Vector TxPredicate -> f (Vector TxPredicate))
-> TxPredicate
-> f TxPredicate
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxPredicate -> Vector TxPredicate)
-> (TxPredicate -> Vector TxPredicate -> TxPredicate)
-> Lens
     TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxPredicate -> Vector TxPredicate
_TxPredicate'anyOf (\ TxPredicate
x__ Vector TxPredicate
y__ -> TxPredicate
x__ {_TxPredicate'anyOf = y__}))
        (Vector TxPredicate -> f (Vector TxPredicate))
-> Vector TxPredicate -> f (Vector TxPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxPredicate where
  messageName :: Proxy TxPredicate -> Text
messageName Proxy TxPredicate
_ = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.TxPredicate"
  packedMessageDescriptor :: Proxy TxPredicate -> ByteString
packedMessageDescriptor Proxy TxPredicate
_
    = ByteString
"\n\
      \\vTxPredicate\DC2?\n\
      \\ENQmatch\CAN\SOH \SOH(\v2).utxorpc.v1alpha.submit.AnyChainTxPatternR\ENQmatch\DC25\n\
      \\ETXnot\CAN\STX \ETX(\v2#.utxorpc.v1alpha.submit.TxPredicateR\ETXnot\DC2:\n\
      \\ACKall_of\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.submit.TxPredicateR\ENQallOf\DC2:\n\
      \\ACKany_of\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.submit.TxPredicateR\ENQanyOf"
  packedFileDescriptor :: Proxy TxPredicate -> ByteString
packedFileDescriptor Proxy TxPredicate
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxPredicate)
fieldsByTag
    = let
        match__field_descriptor :: FieldDescriptor TxPredicate
match__field_descriptor
          = String
-> FieldTypeDescriptor AnyChainTxPattern
-> FieldAccessor TxPredicate AnyChainTxPattern
-> FieldDescriptor TxPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"match"
              (MessageOrGroup -> FieldTypeDescriptor AnyChainTxPattern
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AnyChainTxPattern)
              (Lens
  TxPredicate
  TxPredicate
  (Maybe AnyChainTxPattern)
  (Maybe AnyChainTxPattern)
-> FieldAccessor TxPredicate AnyChainTxPattern
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 TxPredicate
        not__field_descriptor :: FieldDescriptor TxPredicate
not__field_descriptor
          = String
-> FieldTypeDescriptor TxPredicate
-> FieldAccessor TxPredicate TxPredicate
-> FieldDescriptor TxPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"not"
              (MessageOrGroup -> FieldTypeDescriptor TxPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxPredicate)
              (Packing
-> Lens' TxPredicate [TxPredicate]
-> FieldAccessor TxPredicate TxPredicate
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 TxPredicate
        allOf__field_descriptor :: FieldDescriptor TxPredicate
allOf__field_descriptor
          = String
-> FieldTypeDescriptor TxPredicate
-> FieldAccessor TxPredicate TxPredicate
-> FieldDescriptor TxPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"all_of"
              (MessageOrGroup -> FieldTypeDescriptor TxPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxPredicate)
              (Packing
-> Lens' TxPredicate [TxPredicate]
-> FieldAccessor TxPredicate TxPredicate
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 TxPredicate
        anyOf__field_descriptor :: FieldDescriptor TxPredicate
anyOf__field_descriptor
          = String
-> FieldTypeDescriptor TxPredicate
-> FieldAccessor TxPredicate TxPredicate
-> FieldDescriptor TxPredicate
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"any_of"
              (MessageOrGroup -> FieldTypeDescriptor TxPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxPredicate)
              (Packing
-> Lens' TxPredicate [TxPredicate]
-> FieldAccessor TxPredicate TxPredicate
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 TxPredicate
      in
        [(Tag, FieldDescriptor TxPredicate)]
-> Map Tag (FieldDescriptor TxPredicate)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxPredicate
match__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxPredicate
not__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TxPredicate
allOf__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor TxPredicate
anyOf__field_descriptor)]
  unknownFields :: Lens' TxPredicate FieldSet
unknownFields
    = (TxPredicate -> FieldSet)
-> (TxPredicate -> FieldSet -> TxPredicate)
-> Lens' TxPredicate FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxPredicate -> FieldSet
_TxPredicate'_unknownFields
        (\ TxPredicate
x__ FieldSet
y__ -> TxPredicate
x__ {_TxPredicate'_unknownFields = y__})
  defMessage :: TxPredicate
defMessage
    = TxPredicate'_constructor
        {_TxPredicate'match :: Maybe AnyChainTxPattern
_TxPredicate'match = Maybe AnyChainTxPattern
forall a. Maybe a
Prelude.Nothing,
         _TxPredicate'not :: Vector TxPredicate
_TxPredicate'not = Vector TxPredicate
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxPredicate'allOf :: Vector TxPredicate
_TxPredicate'allOf = Vector TxPredicate
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxPredicate'anyOf :: Vector TxPredicate
_TxPredicate'anyOf = Vector TxPredicate
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxPredicate'_unknownFields :: FieldSet
_TxPredicate'_unknownFields = []}
  parseMessage :: Parser TxPredicate
parseMessage
    = let
        loop ::
          TxPredicate
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate
                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TxPredicate
                   -> Data.ProtoLens.Encoding.Bytes.Parser TxPredicate
        loop :: TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Parser TxPredicate
loop TxPredicate
x Growing Vector RealWorld TxPredicate
mutable'allOf Growing Vector RealWorld TxPredicate
mutable'anyOf Growing Vector RealWorld TxPredicate
mutable'not
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector TxPredicate
frozen'allOf <- IO (Vector TxPredicate) -> Parser (Vector TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) TxPredicate
-> IO (Vector TxPredicate)
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 TxPredicate
Growing Vector (PrimState IO) TxPredicate
mutable'allOf)
                      Vector TxPredicate
frozen'anyOf <- IO (Vector TxPredicate) -> Parser (Vector TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) TxPredicate
-> IO (Vector TxPredicate)
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 TxPredicate
Growing Vector (PrimState IO) TxPredicate
mutable'anyOf)
                      Vector TxPredicate
frozen'not <- IO (Vector TxPredicate) -> Parser (Vector TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      (Growing Vector (PrimState IO) TxPredicate
-> IO (Vector TxPredicate)
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 TxPredicate
Growing Vector (PrimState IO) TxPredicate
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]))))
                      TxPredicate -> Parser TxPredicate
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TxPredicate TxPredicate FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxPredicate -> TxPredicate
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f TxPredicate FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxPredicate FieldSet
Setter TxPredicate TxPredicate FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
-> Vector TxPredicate -> TxPredicate -> TxPredicate
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 TxPredicate
frozen'allOf
                              (Setter
  TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
-> Vector TxPredicate -> TxPredicate -> TxPredicate
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 TxPredicate
frozen'anyOf
                                 (Setter
  TxPredicate TxPredicate (Vector TxPredicate) (Vector TxPredicate)
-> Vector TxPredicate -> TxPredicate -> TxPredicate
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 TxPredicate
frozen'not TxPredicate
x))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do AnyChainTxPattern
y <- Parser AnyChainTxPattern -> String -> Parser AnyChainTxPattern
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser AnyChainTxPattern -> Parser AnyChainTxPattern
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 AnyChainTxPattern
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"match"
                                TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Parser TxPredicate
loop
                                  (Setter TxPredicate TxPredicate AnyChainTxPattern AnyChainTxPattern
-> AnyChainTxPattern -> TxPredicate -> TxPredicate
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") AnyChainTxPattern
y TxPredicate
x)
                                  Growing Vector RealWorld TxPredicate
mutable'allOf Growing Vector RealWorld TxPredicate
mutable'anyOf Growing Vector RealWorld TxPredicate
mutable'not
                        Word64
18
                          -> do !TxPredicate
y <- Parser TxPredicate -> String -> Parser TxPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxPredicate -> Parser TxPredicate
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 TxPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"not"
                                Growing Vector RealWorld TxPredicate
v <- IO (Growing Vector RealWorld TxPredicate)
-> Parser (Growing Vector RealWorld TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxPredicate
-> TxPredicate -> IO (Growing Vector (PrimState IO) TxPredicate)
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 TxPredicate
Growing Vector (PrimState IO) TxPredicate
mutable'not TxPredicate
y)
                                TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Parser TxPredicate
loop TxPredicate
x Growing Vector RealWorld TxPredicate
mutable'allOf Growing Vector RealWorld TxPredicate
mutable'anyOf Growing Vector RealWorld TxPredicate
v
                        Word64
26
                          -> do !TxPredicate
y <- Parser TxPredicate -> String -> Parser TxPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxPredicate -> Parser TxPredicate
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 TxPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"all_of"
                                Growing Vector RealWorld TxPredicate
v <- IO (Growing Vector RealWorld TxPredicate)
-> Parser (Growing Vector RealWorld TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxPredicate
-> TxPredicate -> IO (Growing Vector (PrimState IO) TxPredicate)
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 TxPredicate
Growing Vector (PrimState IO) TxPredicate
mutable'allOf TxPredicate
y)
                                TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Parser TxPredicate
loop TxPredicate
x Growing Vector RealWorld TxPredicate
v Growing Vector RealWorld TxPredicate
mutable'anyOf Growing Vector RealWorld TxPredicate
mutable'not
                        Word64
34
                          -> do !TxPredicate
y <- Parser TxPredicate -> String -> Parser TxPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser TxPredicate -> Parser TxPredicate
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 TxPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        String
"any_of"
                                Growing Vector RealWorld TxPredicate
v <- IO (Growing Vector RealWorld TxPredicate)
-> Parser (Growing Vector RealWorld TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) TxPredicate
-> TxPredicate -> IO (Growing Vector (PrimState IO) TxPredicate)
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 TxPredicate
Growing Vector (PrimState IO) TxPredicate
mutable'anyOf TxPredicate
y)
                                TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Parser TxPredicate
loop TxPredicate
x Growing Vector RealWorld TxPredicate
mutable'allOf Growing Vector RealWorld TxPredicate
v Growing Vector RealWorld TxPredicate
mutable'not
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Parser TxPredicate
loop
                                  (Setter TxPredicate TxPredicate FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TxPredicate -> TxPredicate
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f TxPredicate FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxPredicate FieldSet
Setter TxPredicate TxPredicate FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TxPredicate
x)
                                  Growing Vector RealWorld TxPredicate
mutable'allOf Growing Vector RealWorld TxPredicate
mutable'anyOf Growing Vector RealWorld TxPredicate
mutable'not
      in
        Parser TxPredicate -> String -> Parser TxPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld TxPredicate
mutable'allOf <- IO (Growing Vector RealWorld TxPredicate)
-> Parser (Growing Vector RealWorld TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld TxPredicate)
IO (Growing Vector (PrimState IO) TxPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld TxPredicate
mutable'anyOf <- IO (Growing Vector RealWorld TxPredicate)
-> Parser (Growing Vector RealWorld TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld TxPredicate)
IO (Growing Vector (PrimState IO) TxPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld TxPredicate
mutable'not <- IO (Growing Vector RealWorld TxPredicate)
-> Parser (Growing Vector RealWorld TxPredicate)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                               IO (Growing Vector RealWorld TxPredicate)
IO (Growing Vector (PrimState IO) TxPredicate)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Growing Vector RealWorld TxPredicate
-> Parser TxPredicate
loop
                TxPredicate
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld TxPredicate
mutable'allOf Growing Vector RealWorld TxPredicate
mutable'anyOf Growing Vector RealWorld TxPredicate
mutable'not)
          String
"TxPredicate"
  buildMessage :: TxPredicate -> Builder
buildMessage
    = \ TxPredicate
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe AnyChainTxPattern)
  TxPredicate
  TxPredicate
  (Maybe AnyChainTxPattern)
  (Maybe AnyChainTxPattern)
-> TxPredicate -> Maybe AnyChainTxPattern
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") TxPredicate
_x
              of
                Maybe AnyChainTxPattern
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just AnyChainTxPattern
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (AnyChainTxPattern -> ByteString)
-> AnyChainTxPattern
-> 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))
                          AnyChainTxPattern -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AnyChainTxPattern
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((TxPredicate -> Builder) -> Vector TxPredicate -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ TxPredicate
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (TxPredicate -> ByteString) -> TxPredicate -> 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))
                              TxPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxPredicate
_v))
                   (FoldLike
  (Vector TxPredicate)
  TxPredicate
  TxPredicate
  (Vector TxPredicate)
  (Vector TxPredicate)
-> TxPredicate -> Vector TxPredicate
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") TxPredicate
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((TxPredicate -> Builder) -> Vector TxPredicate -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ TxPredicate
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (TxPredicate -> ByteString) -> TxPredicate -> 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))
                                 TxPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxPredicate
_v))
                      (FoldLike
  (Vector TxPredicate)
  TxPredicate
  TxPredicate
  (Vector TxPredicate)
  (Vector TxPredicate)
-> TxPredicate -> Vector TxPredicate
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") TxPredicate
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((TxPredicate -> Builder) -> Vector TxPredicate -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ TxPredicate
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                 ((ByteString -> Builder)
-> (TxPredicate -> ByteString) -> TxPredicate -> 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))
                                    TxPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxPredicate
_v))
                         (FoldLike
  (Vector TxPredicate)
  TxPredicate
  TxPredicate
  (Vector TxPredicate)
  (Vector TxPredicate)
-> TxPredicate -> Vector TxPredicate
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") TxPredicate
_x))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet TxPredicate TxPredicate FieldSet FieldSet
-> TxPredicate -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxPredicate TxPredicate FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxPredicate FieldSet
Data.ProtoLens.unknownFields TxPredicate
_x)))))
instance Control.DeepSeq.NFData TxPredicate where
  rnf :: TxPredicate -> ()
rnf
    = \ TxPredicate
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxPredicate -> FieldSet
_TxPredicate'_unknownFields TxPredicate
x__)
             (Maybe AnyChainTxPattern -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxPredicate -> Maybe AnyChainTxPattern
_TxPredicate'match TxPredicate
x__)
                (Vector TxPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TxPredicate -> Vector TxPredicate
_TxPredicate'not TxPredicate
x__)
                   (Vector TxPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (TxPredicate -> Vector TxPredicate
_TxPredicate'allOf TxPredicate
x__)
                      (Vector TxPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxPredicate -> Vector TxPredicate
_TxPredicate'anyOf TxPredicate
x__) ()))))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.ref' @:: Lens' WaitForTxRequest [Data.ByteString.ByteString]@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.vec'ref' @:: Lens' WaitForTxRequest (Data.Vector.Vector Data.ByteString.ByteString)@ -}
data WaitForTxRequest
  = WaitForTxRequest'_constructor {WaitForTxRequest -> Vector ByteString
_WaitForTxRequest'ref :: !(Data.Vector.Vector Data.ByteString.ByteString),
                                   WaitForTxRequest -> FieldSet
_WaitForTxRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WaitForTxRequest -> WaitForTxRequest -> Bool
(WaitForTxRequest -> WaitForTxRequest -> Bool)
-> (WaitForTxRequest -> WaitForTxRequest -> Bool)
-> Eq WaitForTxRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WaitForTxRequest -> WaitForTxRequest -> Bool
== :: WaitForTxRequest -> WaitForTxRequest -> Bool
$c/= :: WaitForTxRequest -> WaitForTxRequest -> Bool
/= :: WaitForTxRequest -> WaitForTxRequest -> Bool
Prelude.Eq, Eq WaitForTxRequest
Eq WaitForTxRequest =>
(WaitForTxRequest -> WaitForTxRequest -> Ordering)
-> (WaitForTxRequest -> WaitForTxRequest -> Bool)
-> (WaitForTxRequest -> WaitForTxRequest -> Bool)
-> (WaitForTxRequest -> WaitForTxRequest -> Bool)
-> (WaitForTxRequest -> WaitForTxRequest -> Bool)
-> (WaitForTxRequest -> WaitForTxRequest -> WaitForTxRequest)
-> (WaitForTxRequest -> WaitForTxRequest -> WaitForTxRequest)
-> Ord WaitForTxRequest
WaitForTxRequest -> WaitForTxRequest -> Bool
WaitForTxRequest -> WaitForTxRequest -> Ordering
WaitForTxRequest -> WaitForTxRequest -> WaitForTxRequest
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 :: WaitForTxRequest -> WaitForTxRequest -> Ordering
compare :: WaitForTxRequest -> WaitForTxRequest -> Ordering
$c< :: WaitForTxRequest -> WaitForTxRequest -> Bool
< :: WaitForTxRequest -> WaitForTxRequest -> Bool
$c<= :: WaitForTxRequest -> WaitForTxRequest -> Bool
<= :: WaitForTxRequest -> WaitForTxRequest -> Bool
$c> :: WaitForTxRequest -> WaitForTxRequest -> Bool
> :: WaitForTxRequest -> WaitForTxRequest -> Bool
$c>= :: WaitForTxRequest -> WaitForTxRequest -> Bool
>= :: WaitForTxRequest -> WaitForTxRequest -> Bool
$cmax :: WaitForTxRequest -> WaitForTxRequest -> WaitForTxRequest
max :: WaitForTxRequest -> WaitForTxRequest -> WaitForTxRequest
$cmin :: WaitForTxRequest -> WaitForTxRequest -> WaitForTxRequest
min :: WaitForTxRequest -> WaitForTxRequest -> WaitForTxRequest
Prelude.Ord)
instance Prelude.Show WaitForTxRequest where
  showsPrec :: Int -> WaitForTxRequest -> ShowS
showsPrec Int
_ WaitForTxRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WaitForTxRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WaitForTxRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WaitForTxRequest "ref" [Data.ByteString.ByteString] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ref"
-> ([ByteString] -> f [ByteString])
-> WaitForTxRequest
-> f WaitForTxRequest
fieldOf Proxy# "ref"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> WaitForTxRequest -> f WaitForTxRequest)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> WaitForTxRequest
-> f WaitForTxRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WaitForTxRequest -> Vector ByteString)
-> (WaitForTxRequest -> Vector ByteString -> WaitForTxRequest)
-> Lens
     WaitForTxRequest
     WaitForTxRequest
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WaitForTxRequest -> Vector ByteString
_WaitForTxRequest'ref
           (\ WaitForTxRequest
x__ Vector ByteString
y__ -> WaitForTxRequest
x__ {_WaitForTxRequest'ref = 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 WaitForTxRequest "vec'ref" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'ref"
-> (Vector ByteString -> f (Vector ByteString))
-> WaitForTxRequest
-> f WaitForTxRequest
fieldOf Proxy# "vec'ref"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> WaitForTxRequest -> f WaitForTxRequest)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> WaitForTxRequest
-> f WaitForTxRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WaitForTxRequest -> Vector ByteString)
-> (WaitForTxRequest -> Vector ByteString -> WaitForTxRequest)
-> Lens
     WaitForTxRequest
     WaitForTxRequest
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WaitForTxRequest -> Vector ByteString
_WaitForTxRequest'ref
           (\ WaitForTxRequest
x__ Vector ByteString
y__ -> WaitForTxRequest
x__ {_WaitForTxRequest'ref = y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WaitForTxRequest where
  messageName :: Proxy WaitForTxRequest -> Text
messageName Proxy WaitForTxRequest
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.WaitForTxRequest"
  packedMessageDescriptor :: Proxy WaitForTxRequest -> ByteString
packedMessageDescriptor Proxy WaitForTxRequest
_
    = ByteString
"\n\
      \\DLEWaitForTxRequest\DC2\DLE\n\
      \\ETXref\CAN\SOH \ETX(\fR\ETXref"
  packedFileDescriptor :: Proxy WaitForTxRequest -> ByteString
packedFileDescriptor Proxy WaitForTxRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WaitForTxRequest)
fieldsByTag
    = let
        ref__field_descriptor :: FieldDescriptor WaitForTxRequest
ref__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor WaitForTxRequest ByteString
-> FieldDescriptor WaitForTxRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ref"
              (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' WaitForTxRequest [ByteString]
-> FieldAccessor WaitForTxRequest 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 @"ref")) ::
              Data.ProtoLens.FieldDescriptor WaitForTxRequest
      in
        [(Tag, FieldDescriptor WaitForTxRequest)]
-> Map Tag (FieldDescriptor WaitForTxRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WaitForTxRequest
ref__field_descriptor)]
  unknownFields :: Lens' WaitForTxRequest FieldSet
unknownFields
    = (WaitForTxRequest -> FieldSet)
-> (WaitForTxRequest -> FieldSet -> WaitForTxRequest)
-> Lens' WaitForTxRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WaitForTxRequest -> FieldSet
_WaitForTxRequest'_unknownFields
        (\ WaitForTxRequest
x__ FieldSet
y__ -> WaitForTxRequest
x__ {_WaitForTxRequest'_unknownFields = y__})
  defMessage :: WaitForTxRequest
defMessage
    = WaitForTxRequest'_constructor
        {_WaitForTxRequest'ref :: Vector ByteString
_WaitForTxRequest'ref = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _WaitForTxRequest'_unknownFields :: FieldSet
_WaitForTxRequest'_unknownFields = []}
  parseMessage :: Parser WaitForTxRequest
parseMessage
    = let
        loop ::
          WaitForTxRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
             -> Data.ProtoLens.Encoding.Bytes.Parser WaitForTxRequest
        loop :: WaitForTxRequest
-> Growing Vector RealWorld ByteString -> Parser WaitForTxRequest
loop WaitForTxRequest
x Growing Vector RealWorld ByteString
mutable'ref
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector ByteString
frozen'ref <- 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'ref)
                      (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]))))
                      WaitForTxRequest -> Parser WaitForTxRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter WaitForTxRequest WaitForTxRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WaitForTxRequest -> WaitForTxRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f WaitForTxRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WaitForTxRequest FieldSet
Setter WaitForTxRequest WaitForTxRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  WaitForTxRequest
  WaitForTxRequest
  (Vector ByteString)
  (Vector ByteString)
-> Vector ByteString -> WaitForTxRequest -> WaitForTxRequest
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'ref") Vector ByteString
frozen'ref WaitForTxRequest
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
"ref"
                                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'ref ByteString
y)
                                WaitForTxRequest
-> Growing Vector RealWorld ByteString -> Parser WaitForTxRequest
loop WaitForTxRequest
x Growing Vector RealWorld ByteString
v
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                WaitForTxRequest
-> Growing Vector RealWorld ByteString -> Parser WaitForTxRequest
loop
                                  (Setter WaitForTxRequest WaitForTxRequest FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WaitForTxRequest -> WaitForTxRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f WaitForTxRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WaitForTxRequest FieldSet
Setter WaitForTxRequest WaitForTxRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WaitForTxRequest
x)
                                  Growing Vector RealWorld ByteString
mutable'ref
      in
        Parser WaitForTxRequest -> String -> Parser WaitForTxRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld ByteString
mutable'ref <- 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
              WaitForTxRequest
-> Growing Vector RealWorld ByteString -> Parser WaitForTxRequest
loop WaitForTxRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ByteString
mutable'ref)
          String
"WaitForTxRequest"
  buildMessage :: WaitForTxRequest -> Builder
buildMessage
    = \ WaitForTxRequest
_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)
  WaitForTxRequest
  WaitForTxRequest
  (Vector ByteString)
  (Vector ByteString)
-> WaitForTxRequest -> 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'ref") WaitForTxRequest
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet WaitForTxRequest WaitForTxRequest FieldSet FieldSet
-> WaitForTxRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WaitForTxRequest WaitForTxRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WaitForTxRequest FieldSet
Data.ProtoLens.unknownFields WaitForTxRequest
_x))
instance Control.DeepSeq.NFData WaitForTxRequest where
  rnf :: WaitForTxRequest -> ()
rnf
    = \ WaitForTxRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WaitForTxRequest -> FieldSet
_WaitForTxRequest'_unknownFields WaitForTxRequest
x__)
             (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WaitForTxRequest -> Vector ByteString
_WaitForTxRequest'ref WaitForTxRequest
x__) ())
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.ref' @:: Lens' WaitForTxResponse Data.ByteString.ByteString@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.stage' @:: Lens' WaitForTxResponse Stage@ -}
data WaitForTxResponse
  = WaitForTxResponse'_constructor {WaitForTxResponse -> ByteString
_WaitForTxResponse'ref :: !Data.ByteString.ByteString,
                                    WaitForTxResponse -> Stage
_WaitForTxResponse'stage :: !Stage,
                                    WaitForTxResponse -> FieldSet
_WaitForTxResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WaitForTxResponse -> WaitForTxResponse -> Bool
(WaitForTxResponse -> WaitForTxResponse -> Bool)
-> (WaitForTxResponse -> WaitForTxResponse -> Bool)
-> Eq WaitForTxResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WaitForTxResponse -> WaitForTxResponse -> Bool
== :: WaitForTxResponse -> WaitForTxResponse -> Bool
$c/= :: WaitForTxResponse -> WaitForTxResponse -> Bool
/= :: WaitForTxResponse -> WaitForTxResponse -> Bool
Prelude.Eq, Eq WaitForTxResponse
Eq WaitForTxResponse =>
(WaitForTxResponse -> WaitForTxResponse -> Ordering)
-> (WaitForTxResponse -> WaitForTxResponse -> Bool)
-> (WaitForTxResponse -> WaitForTxResponse -> Bool)
-> (WaitForTxResponse -> WaitForTxResponse -> Bool)
-> (WaitForTxResponse -> WaitForTxResponse -> Bool)
-> (WaitForTxResponse -> WaitForTxResponse -> WaitForTxResponse)
-> (WaitForTxResponse -> WaitForTxResponse -> WaitForTxResponse)
-> Ord WaitForTxResponse
WaitForTxResponse -> WaitForTxResponse -> Bool
WaitForTxResponse -> WaitForTxResponse -> Ordering
WaitForTxResponse -> WaitForTxResponse -> WaitForTxResponse
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 :: WaitForTxResponse -> WaitForTxResponse -> Ordering
compare :: WaitForTxResponse -> WaitForTxResponse -> Ordering
$c< :: WaitForTxResponse -> WaitForTxResponse -> Bool
< :: WaitForTxResponse -> WaitForTxResponse -> Bool
$c<= :: WaitForTxResponse -> WaitForTxResponse -> Bool
<= :: WaitForTxResponse -> WaitForTxResponse -> Bool
$c> :: WaitForTxResponse -> WaitForTxResponse -> Bool
> :: WaitForTxResponse -> WaitForTxResponse -> Bool
$c>= :: WaitForTxResponse -> WaitForTxResponse -> Bool
>= :: WaitForTxResponse -> WaitForTxResponse -> Bool
$cmax :: WaitForTxResponse -> WaitForTxResponse -> WaitForTxResponse
max :: WaitForTxResponse -> WaitForTxResponse -> WaitForTxResponse
$cmin :: WaitForTxResponse -> WaitForTxResponse -> WaitForTxResponse
min :: WaitForTxResponse -> WaitForTxResponse -> WaitForTxResponse
Prelude.Ord)
instance Prelude.Show WaitForTxResponse where
  showsPrec :: Int -> WaitForTxResponse -> ShowS
showsPrec Int
_ WaitForTxResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WaitForTxResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WaitForTxResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WaitForTxResponse "ref" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ref"
-> (ByteString -> f ByteString)
-> WaitForTxResponse
-> f WaitForTxResponse
fieldOf Proxy# "ref"
_
    = ((ByteString -> f ByteString)
 -> WaitForTxResponse -> f WaitForTxResponse)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> WaitForTxResponse
-> f WaitForTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WaitForTxResponse -> ByteString)
-> (WaitForTxResponse -> ByteString -> WaitForTxResponse)
-> Lens WaitForTxResponse WaitForTxResponse ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WaitForTxResponse -> ByteString
_WaitForTxResponse'ref
           (\ WaitForTxResponse
x__ ByteString
y__ -> WaitForTxResponse
x__ {_WaitForTxResponse'ref = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WaitForTxResponse "stage" Stage where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stage"
-> (Stage -> f Stage) -> WaitForTxResponse -> f WaitForTxResponse
fieldOf Proxy# "stage"
_
    = ((Stage -> f Stage) -> WaitForTxResponse -> f WaitForTxResponse)
-> ((Stage -> f Stage) -> Stage -> f Stage)
-> (Stage -> f Stage)
-> WaitForTxResponse
-> f WaitForTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WaitForTxResponse -> Stage)
-> (WaitForTxResponse -> Stage -> WaitForTxResponse)
-> Lens WaitForTxResponse WaitForTxResponse Stage Stage
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WaitForTxResponse -> Stage
_WaitForTxResponse'stage
           (\ WaitForTxResponse
x__ Stage
y__ -> WaitForTxResponse
x__ {_WaitForTxResponse'stage = y__}))
        (Stage -> f Stage) -> Stage -> f Stage
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WaitForTxResponse where
  messageName :: Proxy WaitForTxResponse -> Text
messageName Proxy WaitForTxResponse
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.WaitForTxResponse"
  packedMessageDescriptor :: Proxy WaitForTxResponse -> ByteString
packedMessageDescriptor Proxy WaitForTxResponse
_
    = ByteString
"\n\
      \\DC1WaitForTxResponse\DC2\DLE\n\
      \\ETXref\CAN\SOH \SOH(\fR\ETXref\DC23\n\
      \\ENQstage\CAN\STX \SOH(\SO2\GS.utxorpc.v1alpha.submit.StageR\ENQstage"
  packedFileDescriptor :: Proxy WaitForTxResponse -> ByteString
packedFileDescriptor Proxy WaitForTxResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WaitForTxResponse)
fieldsByTag
    = let
        ref__field_descriptor :: FieldDescriptor WaitForTxResponse
ref__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor WaitForTxResponse ByteString
-> FieldDescriptor WaitForTxResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ref"
              (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 WaitForTxResponse WaitForTxResponse ByteString ByteString
-> FieldAccessor WaitForTxResponse 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 @"ref")) ::
              Data.ProtoLens.FieldDescriptor WaitForTxResponse
        stage__field_descriptor :: FieldDescriptor WaitForTxResponse
stage__field_descriptor
          = String
-> FieldTypeDescriptor Stage
-> FieldAccessor WaitForTxResponse Stage
-> FieldDescriptor WaitForTxResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"stage"
              (ScalarField Stage -> FieldTypeDescriptor Stage
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Stage
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Stage)
              (WireDefault Stage
-> Lens WaitForTxResponse WaitForTxResponse Stage Stage
-> FieldAccessor WaitForTxResponse Stage
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Stage
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 @"stage")) ::
              Data.ProtoLens.FieldDescriptor WaitForTxResponse
      in
        [(Tag, FieldDescriptor WaitForTxResponse)]
-> Map Tag (FieldDescriptor WaitForTxResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WaitForTxResponse
ref__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WaitForTxResponse
stage__field_descriptor)]
  unknownFields :: Lens' WaitForTxResponse FieldSet
unknownFields
    = (WaitForTxResponse -> FieldSet)
-> (WaitForTxResponse -> FieldSet -> WaitForTxResponse)
-> Lens' WaitForTxResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WaitForTxResponse -> FieldSet
_WaitForTxResponse'_unknownFields
        (\ WaitForTxResponse
x__ FieldSet
y__ -> WaitForTxResponse
x__ {_WaitForTxResponse'_unknownFields = y__})
  defMessage :: WaitForTxResponse
defMessage
    = WaitForTxResponse'_constructor
        {_WaitForTxResponse'ref :: ByteString
_WaitForTxResponse'ref = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WaitForTxResponse'stage :: Stage
_WaitForTxResponse'stage = Stage
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WaitForTxResponse'_unknownFields :: FieldSet
_WaitForTxResponse'_unknownFields = []}
  parseMessage :: Parser WaitForTxResponse
parseMessage
    = let
        loop ::
          WaitForTxResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser WaitForTxResponse
        loop :: WaitForTxResponse -> Parser WaitForTxResponse
loop WaitForTxResponse
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]))))
                      WaitForTxResponse -> Parser WaitForTxResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter WaitForTxResponse WaitForTxResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WaitForTxResponse -> WaitForTxResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f WaitForTxResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WaitForTxResponse FieldSet
Setter WaitForTxResponse WaitForTxResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) WaitForTxResponse
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
"ref"
                                WaitForTxResponse -> Parser WaitForTxResponse
loop (Setter WaitForTxResponse WaitForTxResponse ByteString ByteString
-> ByteString -> WaitForTxResponse -> WaitForTxResponse
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 @"ref") ByteString
y WaitForTxResponse
x)
                        Word64
16
                          -> do Stage
y <- Parser Stage -> String -> Parser Stage
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Stage) -> Parser Int -> Parser Stage
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Stage
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       String
"stage"
                                WaitForTxResponse -> Parser WaitForTxResponse
loop (Setter WaitForTxResponse WaitForTxResponse Stage Stage
-> Stage -> WaitForTxResponse -> WaitForTxResponse
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 @"stage") Stage
y WaitForTxResponse
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                WaitForTxResponse -> Parser WaitForTxResponse
loop
                                  (Setter WaitForTxResponse WaitForTxResponse FieldSet FieldSet
-> (FieldSet -> FieldSet) -> WaitForTxResponse -> WaitForTxResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f WaitForTxResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WaitForTxResponse FieldSet
Setter WaitForTxResponse WaitForTxResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WaitForTxResponse
x)
      in
        Parser WaitForTxResponse -> String -> Parser WaitForTxResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WaitForTxResponse -> Parser WaitForTxResponse
loop WaitForTxResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WaitForTxResponse"
  buildMessage :: WaitForTxResponse -> Builder
buildMessage
    = \ WaitForTxResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike
  ByteString
  WaitForTxResponse
  WaitForTxResponse
  ByteString
  ByteString
-> WaitForTxResponse -> 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 @"ref") WaitForTxResponse
_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 :: Stage
_v = FoldLike Stage WaitForTxResponse WaitForTxResponse Stage Stage
-> WaitForTxResponse -> Stage
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 @"stage") WaitForTxResponse
_x
                 in
                   if Stage -> Stage -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Stage
_v Stage
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)
                         ((Int -> Builder) -> (Stage -> Int) -> Stage -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                            Stage -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Stage
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet WaitForTxResponse WaitForTxResponse FieldSet FieldSet
-> WaitForTxResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WaitForTxResponse WaitForTxResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WaitForTxResponse FieldSet
Data.ProtoLens.unknownFields WaitForTxResponse
_x)))
instance Control.DeepSeq.NFData WaitForTxResponse where
  rnf :: WaitForTxResponse -> ()
rnf
    = \ WaitForTxResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WaitForTxResponse -> FieldSet
_WaitForTxResponse'_unknownFields WaitForTxResponse
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WaitForTxResponse -> ByteString
_WaitForTxResponse'ref WaitForTxResponse
x__)
                (Stage -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WaitForTxResponse -> Stage
_WaitForTxResponse'stage WaitForTxResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.predicate' @:: Lens' WatchMempoolRequest TxPredicate@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'predicate' @:: Lens' WatchMempoolRequest (Prelude.Maybe TxPredicate)@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.fieldMask' @:: Lens' WatchMempoolRequest Proto.Google.Protobuf.FieldMask.FieldMask@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'fieldMask' @:: Lens' WatchMempoolRequest (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask)@ -}
data WatchMempoolRequest
  = WatchMempoolRequest'_constructor {WatchMempoolRequest -> Maybe TxPredicate
_WatchMempoolRequest'predicate :: !(Prelude.Maybe TxPredicate),
                                      WatchMempoolRequest -> Maybe FieldMask
_WatchMempoolRequest'fieldMask :: !(Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask),
                                      WatchMempoolRequest -> FieldSet
_WatchMempoolRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WatchMempoolRequest -> WatchMempoolRequest -> Bool
(WatchMempoolRequest -> WatchMempoolRequest -> Bool)
-> (WatchMempoolRequest -> WatchMempoolRequest -> Bool)
-> Eq WatchMempoolRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
== :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
$c/= :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
/= :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
Prelude.Eq, Eq WatchMempoolRequest
Eq WatchMempoolRequest =>
(WatchMempoolRequest -> WatchMempoolRequest -> Ordering)
-> (WatchMempoolRequest -> WatchMempoolRequest -> Bool)
-> (WatchMempoolRequest -> WatchMempoolRequest -> Bool)
-> (WatchMempoolRequest -> WatchMempoolRequest -> Bool)
-> (WatchMempoolRequest -> WatchMempoolRequest -> Bool)
-> (WatchMempoolRequest
    -> WatchMempoolRequest -> WatchMempoolRequest)
-> (WatchMempoolRequest
    -> WatchMempoolRequest -> WatchMempoolRequest)
-> Ord WatchMempoolRequest
WatchMempoolRequest -> WatchMempoolRequest -> Bool
WatchMempoolRequest -> WatchMempoolRequest -> Ordering
WatchMempoolRequest -> WatchMempoolRequest -> WatchMempoolRequest
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 :: WatchMempoolRequest -> WatchMempoolRequest -> Ordering
compare :: WatchMempoolRequest -> WatchMempoolRequest -> Ordering
$c< :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
< :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
$c<= :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
<= :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
$c> :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
> :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
$c>= :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
>= :: WatchMempoolRequest -> WatchMempoolRequest -> Bool
$cmax :: WatchMempoolRequest -> WatchMempoolRequest -> WatchMempoolRequest
max :: WatchMempoolRequest -> WatchMempoolRequest -> WatchMempoolRequest
$cmin :: WatchMempoolRequest -> WatchMempoolRequest -> WatchMempoolRequest
min :: WatchMempoolRequest -> WatchMempoolRequest -> WatchMempoolRequest
Prelude.Ord)
instance Prelude.Show WatchMempoolRequest where
  showsPrec :: Int -> WatchMempoolRequest -> ShowS
showsPrec Int
_ WatchMempoolRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WatchMempoolRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchMempoolRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WatchMempoolRequest "predicate" TxPredicate where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "predicate"
-> (TxPredicate -> f TxPredicate)
-> WatchMempoolRequest
-> f WatchMempoolRequest
fieldOf Proxy# "predicate"
_
    = ((Maybe TxPredicate -> f (Maybe TxPredicate))
 -> WatchMempoolRequest -> f WatchMempoolRequest)
-> ((TxPredicate -> f TxPredicate)
    -> Maybe TxPredicate -> f (Maybe TxPredicate))
-> (TxPredicate -> f TxPredicate)
-> WatchMempoolRequest
-> f WatchMempoolRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchMempoolRequest -> Maybe TxPredicate)
-> (WatchMempoolRequest
    -> Maybe TxPredicate -> WatchMempoolRequest)
-> Lens
     WatchMempoolRequest
     WatchMempoolRequest
     (Maybe TxPredicate)
     (Maybe TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchMempoolRequest -> Maybe TxPredicate
_WatchMempoolRequest'predicate
           (\ WatchMempoolRequest
x__ Maybe TxPredicate
y__ -> WatchMempoolRequest
x__ {_WatchMempoolRequest'predicate = y__}))
        (TxPredicate -> Lens' (Maybe TxPredicate) TxPredicate
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxPredicate
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WatchMempoolRequest "maybe'predicate" (Prelude.Maybe TxPredicate) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'predicate"
-> (Maybe TxPredicate -> f (Maybe TxPredicate))
-> WatchMempoolRequest
-> f WatchMempoolRequest
fieldOf Proxy# "maybe'predicate"
_
    = ((Maybe TxPredicate -> f (Maybe TxPredicate))
 -> WatchMempoolRequest -> f WatchMempoolRequest)
-> ((Maybe TxPredicate -> f (Maybe TxPredicate))
    -> Maybe TxPredicate -> f (Maybe TxPredicate))
-> (Maybe TxPredicate -> f (Maybe TxPredicate))
-> WatchMempoolRequest
-> f WatchMempoolRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchMempoolRequest -> Maybe TxPredicate)
-> (WatchMempoolRequest
    -> Maybe TxPredicate -> WatchMempoolRequest)
-> Lens
     WatchMempoolRequest
     WatchMempoolRequest
     (Maybe TxPredicate)
     (Maybe TxPredicate)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchMempoolRequest -> Maybe TxPredicate
_WatchMempoolRequest'predicate
           (\ WatchMempoolRequest
x__ Maybe TxPredicate
y__ -> WatchMempoolRequest
x__ {_WatchMempoolRequest'predicate = y__}))
        (Maybe TxPredicate -> f (Maybe TxPredicate))
-> Maybe TxPredicate -> f (Maybe TxPredicate)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchMempoolRequest "fieldMask" Proto.Google.Protobuf.FieldMask.FieldMask where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fieldMask"
-> (FieldMask -> f FieldMask)
-> WatchMempoolRequest
-> f WatchMempoolRequest
fieldOf Proxy# "fieldMask"
_
    = ((Maybe FieldMask -> f (Maybe FieldMask))
 -> WatchMempoolRequest -> f WatchMempoolRequest)
-> ((FieldMask -> f FieldMask)
    -> Maybe FieldMask -> f (Maybe FieldMask))
-> (FieldMask -> f FieldMask)
-> WatchMempoolRequest
-> f WatchMempoolRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchMempoolRequest -> Maybe FieldMask)
-> (WatchMempoolRequest -> Maybe FieldMask -> WatchMempoolRequest)
-> Lens
     WatchMempoolRequest
     WatchMempoolRequest
     (Maybe FieldMask)
     (Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchMempoolRequest -> Maybe FieldMask
_WatchMempoolRequest'fieldMask
           (\ WatchMempoolRequest
x__ Maybe FieldMask
y__ -> WatchMempoolRequest
x__ {_WatchMempoolRequest'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 WatchMempoolRequest "maybe'fieldMask" (Prelude.Maybe Proto.Google.Protobuf.FieldMask.FieldMask) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fieldMask"
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> WatchMempoolRequest
-> f WatchMempoolRequest
fieldOf Proxy# "maybe'fieldMask"
_
    = ((Maybe FieldMask -> f (Maybe FieldMask))
 -> WatchMempoolRequest -> f WatchMempoolRequest)
-> ((Maybe FieldMask -> f (Maybe FieldMask))
    -> Maybe FieldMask -> f (Maybe FieldMask))
-> (Maybe FieldMask -> f (Maybe FieldMask))
-> WatchMempoolRequest
-> f WatchMempoolRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchMempoolRequest -> Maybe FieldMask)
-> (WatchMempoolRequest -> Maybe FieldMask -> WatchMempoolRequest)
-> Lens
     WatchMempoolRequest
     WatchMempoolRequest
     (Maybe FieldMask)
     (Maybe FieldMask)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchMempoolRequest -> Maybe FieldMask
_WatchMempoolRequest'fieldMask
           (\ WatchMempoolRequest
x__ Maybe FieldMask
y__ -> WatchMempoolRequest
x__ {_WatchMempoolRequest'fieldMask = y__}))
        (Maybe FieldMask -> f (Maybe FieldMask))
-> Maybe FieldMask -> f (Maybe FieldMask)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WatchMempoolRequest where
  messageName :: Proxy WatchMempoolRequest -> Text
messageName Proxy WatchMempoolRequest
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.WatchMempoolRequest"
  packedMessageDescriptor :: Proxy WatchMempoolRequest -> ByteString
packedMessageDescriptor Proxy WatchMempoolRequest
_
    = ByteString
"\n\
      \\DC3WatchMempoolRequest\DC2A\n\
      \\tpredicate\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.submit.TxPredicateR\tpredicate\DC29\n\
      \\n\
      \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask"
  packedFileDescriptor :: Proxy WatchMempoolRequest -> ByteString
packedFileDescriptor Proxy WatchMempoolRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WatchMempoolRequest)
fieldsByTag
    = let
        predicate__field_descriptor :: FieldDescriptor WatchMempoolRequest
predicate__field_descriptor
          = String
-> FieldTypeDescriptor TxPredicate
-> FieldAccessor WatchMempoolRequest TxPredicate
-> FieldDescriptor WatchMempoolRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"predicate"
              (MessageOrGroup -> FieldTypeDescriptor TxPredicate
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxPredicate)
              (Lens
  WatchMempoolRequest
  WatchMempoolRequest
  (Maybe TxPredicate)
  (Maybe TxPredicate)
-> FieldAccessor WatchMempoolRequest TxPredicate
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 WatchMempoolRequest
        fieldMask__field_descriptor :: FieldDescriptor WatchMempoolRequest
fieldMask__field_descriptor
          = String
-> FieldTypeDescriptor FieldMask
-> FieldAccessor WatchMempoolRequest FieldMask
-> FieldDescriptor WatchMempoolRequest
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
  WatchMempoolRequest
  WatchMempoolRequest
  (Maybe FieldMask)
  (Maybe FieldMask)
-> FieldAccessor WatchMempoolRequest 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 WatchMempoolRequest
      in
        [(Tag, FieldDescriptor WatchMempoolRequest)]
-> Map Tag (FieldDescriptor WatchMempoolRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WatchMempoolRequest
predicate__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WatchMempoolRequest
fieldMask__field_descriptor)]
  unknownFields :: Lens' WatchMempoolRequest FieldSet
unknownFields
    = (WatchMempoolRequest -> FieldSet)
-> (WatchMempoolRequest -> FieldSet -> WatchMempoolRequest)
-> Lens' WatchMempoolRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WatchMempoolRequest -> FieldSet
_WatchMempoolRequest'_unknownFields
        (\ WatchMempoolRequest
x__ FieldSet
y__ -> WatchMempoolRequest
x__ {_WatchMempoolRequest'_unknownFields = y__})
  defMessage :: WatchMempoolRequest
defMessage
    = WatchMempoolRequest'_constructor
        {_WatchMempoolRequest'predicate :: Maybe TxPredicate
_WatchMempoolRequest'predicate = Maybe TxPredicate
forall a. Maybe a
Prelude.Nothing,
         _WatchMempoolRequest'fieldMask :: Maybe FieldMask
_WatchMempoolRequest'fieldMask = Maybe FieldMask
forall a. Maybe a
Prelude.Nothing,
         _WatchMempoolRequest'_unknownFields :: FieldSet
_WatchMempoolRequest'_unknownFields = []}
  parseMessage :: Parser WatchMempoolRequest
parseMessage
    = let
        loop ::
          WatchMempoolRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser WatchMempoolRequest
        loop :: WatchMempoolRequest -> Parser WatchMempoolRequest
loop WatchMempoolRequest
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]))))
                      WatchMempoolRequest -> Parser WatchMempoolRequest
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter WatchMempoolRequest WatchMempoolRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WatchMempoolRequest
-> WatchMempoolRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f WatchMempoolRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchMempoolRequest FieldSet
Setter WatchMempoolRequest WatchMempoolRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) WatchMempoolRequest
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do TxPredicate
y <- Parser TxPredicate -> String -> Parser TxPredicate
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxPredicate -> Parser TxPredicate
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 TxPredicate
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"predicate"
                                WatchMempoolRequest -> Parser WatchMempoolRequest
loop
                                  (Setter
  WatchMempoolRequest WatchMempoolRequest TxPredicate TxPredicate
-> TxPredicate -> WatchMempoolRequest -> WatchMempoolRequest
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") TxPredicate
y WatchMempoolRequest
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"
                                WatchMempoolRequest -> Parser WatchMempoolRequest
loop
                                  (Setter WatchMempoolRequest WatchMempoolRequest FieldMask FieldMask
-> FieldMask -> WatchMempoolRequest -> WatchMempoolRequest
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 WatchMempoolRequest
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                WatchMempoolRequest -> Parser WatchMempoolRequest
loop
                                  (Setter WatchMempoolRequest WatchMempoolRequest FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WatchMempoolRequest
-> WatchMempoolRequest
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f WatchMempoolRequest FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchMempoolRequest FieldSet
Setter WatchMempoolRequest WatchMempoolRequest FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WatchMempoolRequest
x)
      in
        Parser WatchMempoolRequest -> String -> Parser WatchMempoolRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WatchMempoolRequest -> Parser WatchMempoolRequest
loop WatchMempoolRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WatchMempoolRequest"
  buildMessage :: WatchMempoolRequest -> Builder
buildMessage
    = \ WatchMempoolRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe TxPredicate)
  WatchMempoolRequest
  WatchMempoolRequest
  (Maybe TxPredicate)
  (Maybe TxPredicate)
-> WatchMempoolRequest -> Maybe TxPredicate
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") WatchMempoolRequest
_x
              of
                Maybe TxPredicate
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just TxPredicate
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (TxPredicate -> ByteString) -> TxPredicate -> 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))
                          TxPredicate -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxPredicate
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe FieldMask)
  WatchMempoolRequest
  WatchMempoolRequest
  (Maybe FieldMask)
  (Maybe FieldMask)
-> WatchMempoolRequest -> 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") WatchMempoolRequest
_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 WatchMempoolRequest WatchMempoolRequest FieldSet FieldSet
-> WatchMempoolRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WatchMempoolRequest WatchMempoolRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchMempoolRequest FieldSet
Data.ProtoLens.unknownFields WatchMempoolRequest
_x)))
instance Control.DeepSeq.NFData WatchMempoolRequest where
  rnf :: WatchMempoolRequest -> ()
rnf
    = \ WatchMempoolRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WatchMempoolRequest -> FieldSet
_WatchMempoolRequest'_unknownFields WatchMempoolRequest
x__)
             (Maybe TxPredicate -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WatchMempoolRequest -> Maybe TxPredicate
_WatchMempoolRequest'predicate WatchMempoolRequest
x__)
                (Maybe FieldMask -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WatchMempoolRequest -> Maybe FieldMask
_WatchMempoolRequest'fieldMask WatchMempoolRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.tx' @:: Lens' WatchMempoolResponse TxInMempool@
         * 'Proto.Utxorpc.V1alpha.Submit.Submit_Fields.maybe'tx' @:: Lens' WatchMempoolResponse (Prelude.Maybe TxInMempool)@ -}
data WatchMempoolResponse
  = WatchMempoolResponse'_constructor {WatchMempoolResponse -> Maybe TxInMempool
_WatchMempoolResponse'tx :: !(Prelude.Maybe TxInMempool),
                                       WatchMempoolResponse -> FieldSet
_WatchMempoolResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WatchMempoolResponse -> WatchMempoolResponse -> Bool
(WatchMempoolResponse -> WatchMempoolResponse -> Bool)
-> (WatchMempoolResponse -> WatchMempoolResponse -> Bool)
-> Eq WatchMempoolResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
== :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
$c/= :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
/= :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
Prelude.Eq, Eq WatchMempoolResponse
Eq WatchMempoolResponse =>
(WatchMempoolResponse -> WatchMempoolResponse -> Ordering)
-> (WatchMempoolResponse -> WatchMempoolResponse -> Bool)
-> (WatchMempoolResponse -> WatchMempoolResponse -> Bool)
-> (WatchMempoolResponse -> WatchMempoolResponse -> Bool)
-> (WatchMempoolResponse -> WatchMempoolResponse -> Bool)
-> (WatchMempoolResponse
    -> WatchMempoolResponse -> WatchMempoolResponse)
-> (WatchMempoolResponse
    -> WatchMempoolResponse -> WatchMempoolResponse)
-> Ord WatchMempoolResponse
WatchMempoolResponse -> WatchMempoolResponse -> Bool
WatchMempoolResponse -> WatchMempoolResponse -> Ordering
WatchMempoolResponse
-> WatchMempoolResponse -> WatchMempoolResponse
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 :: WatchMempoolResponse -> WatchMempoolResponse -> Ordering
compare :: WatchMempoolResponse -> WatchMempoolResponse -> Ordering
$c< :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
< :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
$c<= :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
<= :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
$c> :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
> :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
$c>= :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
>= :: WatchMempoolResponse -> WatchMempoolResponse -> Bool
$cmax :: WatchMempoolResponse
-> WatchMempoolResponse -> WatchMempoolResponse
max :: WatchMempoolResponse
-> WatchMempoolResponse -> WatchMempoolResponse
$cmin :: WatchMempoolResponse
-> WatchMempoolResponse -> WatchMempoolResponse
min :: WatchMempoolResponse
-> WatchMempoolResponse -> WatchMempoolResponse
Prelude.Ord)
instance Prelude.Show WatchMempoolResponse where
  showsPrec :: Int -> WatchMempoolResponse -> ShowS
showsPrec Int
_ WatchMempoolResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WatchMempoolResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchMempoolResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WatchMempoolResponse "tx" TxInMempool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "tx"
-> (TxInMempool -> f TxInMempool)
-> WatchMempoolResponse
-> f WatchMempoolResponse
fieldOf Proxy# "tx"
_
    = ((Maybe TxInMempool -> f (Maybe TxInMempool))
 -> WatchMempoolResponse -> f WatchMempoolResponse)
-> ((TxInMempool -> f TxInMempool)
    -> Maybe TxInMempool -> f (Maybe TxInMempool))
-> (TxInMempool -> f TxInMempool)
-> WatchMempoolResponse
-> f WatchMempoolResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchMempoolResponse -> Maybe TxInMempool)
-> (WatchMempoolResponse
    -> Maybe TxInMempool -> WatchMempoolResponse)
-> Lens
     WatchMempoolResponse
     WatchMempoolResponse
     (Maybe TxInMempool)
     (Maybe TxInMempool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchMempoolResponse -> Maybe TxInMempool
_WatchMempoolResponse'tx
           (\ WatchMempoolResponse
x__ Maybe TxInMempool
y__ -> WatchMempoolResponse
x__ {_WatchMempoolResponse'tx = y__}))
        (TxInMempool -> Lens' (Maybe TxInMempool) TxInMempool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxInMempool
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WatchMempoolResponse "maybe'tx" (Prelude.Maybe TxInMempool) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'tx"
-> (Maybe TxInMempool -> f (Maybe TxInMempool))
-> WatchMempoolResponse
-> f WatchMempoolResponse
fieldOf Proxy# "maybe'tx"
_
    = ((Maybe TxInMempool -> f (Maybe TxInMempool))
 -> WatchMempoolResponse -> f WatchMempoolResponse)
-> ((Maybe TxInMempool -> f (Maybe TxInMempool))
    -> Maybe TxInMempool -> f (Maybe TxInMempool))
-> (Maybe TxInMempool -> f (Maybe TxInMempool))
-> WatchMempoolResponse
-> f WatchMempoolResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchMempoolResponse -> Maybe TxInMempool)
-> (WatchMempoolResponse
    -> Maybe TxInMempool -> WatchMempoolResponse)
-> Lens
     WatchMempoolResponse
     WatchMempoolResponse
     (Maybe TxInMempool)
     (Maybe TxInMempool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchMempoolResponse -> Maybe TxInMempool
_WatchMempoolResponse'tx
           (\ WatchMempoolResponse
x__ Maybe TxInMempool
y__ -> WatchMempoolResponse
x__ {_WatchMempoolResponse'tx = y__}))
        (Maybe TxInMempool -> f (Maybe TxInMempool))
-> Maybe TxInMempool -> f (Maybe TxInMempool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WatchMempoolResponse where
  messageName :: Proxy WatchMempoolResponse -> Text
messageName Proxy WatchMempoolResponse
_
    = String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.WatchMempoolResponse"
  packedMessageDescriptor :: Proxy WatchMempoolResponse -> ByteString
packedMessageDescriptor Proxy WatchMempoolResponse
_
    = ByteString
"\n\
      \\DC4WatchMempoolResponse\DC23\n\
      \\STXtx\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.submit.TxInMempoolR\STXtx"
  packedFileDescriptor :: Proxy WatchMempoolResponse -> ByteString
packedFileDescriptor Proxy WatchMempoolResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WatchMempoolResponse)
fieldsByTag
    = let
        tx__field_descriptor :: FieldDescriptor WatchMempoolResponse
tx__field_descriptor
          = String
-> FieldTypeDescriptor TxInMempool
-> FieldAccessor WatchMempoolResponse TxInMempool
-> FieldDescriptor WatchMempoolResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"tx"
              (MessageOrGroup -> FieldTypeDescriptor TxInMempool
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxInMempool)
              (Lens
  WatchMempoolResponse
  WatchMempoolResponse
  (Maybe TxInMempool)
  (Maybe TxInMempool)
-> FieldAccessor WatchMempoolResponse TxInMempool
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'tx")) ::
              Data.ProtoLens.FieldDescriptor WatchMempoolResponse
      in [(Tag, FieldDescriptor WatchMempoolResponse)]
-> Map Tag (FieldDescriptor WatchMempoolResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WatchMempoolResponse
tx__field_descriptor)]
  unknownFields :: Lens' WatchMempoolResponse FieldSet
unknownFields
    = (WatchMempoolResponse -> FieldSet)
-> (WatchMempoolResponse -> FieldSet -> WatchMempoolResponse)
-> Lens' WatchMempoolResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WatchMempoolResponse -> FieldSet
_WatchMempoolResponse'_unknownFields
        (\ WatchMempoolResponse
x__ FieldSet
y__ -> WatchMempoolResponse
x__ {_WatchMempoolResponse'_unknownFields = y__})
  defMessage :: WatchMempoolResponse
defMessage
    = WatchMempoolResponse'_constructor
        {_WatchMempoolResponse'tx :: Maybe TxInMempool
_WatchMempoolResponse'tx = Maybe TxInMempool
forall a. Maybe a
Prelude.Nothing,
         _WatchMempoolResponse'_unknownFields :: FieldSet
_WatchMempoolResponse'_unknownFields = []}
  parseMessage :: Parser WatchMempoolResponse
parseMessage
    = let
        loop ::
          WatchMempoolResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser WatchMempoolResponse
        loop :: WatchMempoolResponse -> Parser WatchMempoolResponse
loop WatchMempoolResponse
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]))))
                      WatchMempoolResponse -> Parser WatchMempoolResponse
forall a. a -> Parser a
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter WatchMempoolResponse WatchMempoolResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WatchMempoolResponse
-> WatchMempoolResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           LensLike' f WatchMempoolResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchMempoolResponse FieldSet
Setter WatchMempoolResponse WatchMempoolResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) WatchMempoolResponse
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        Word64
10
                          -> do TxInMempool
y <- Parser TxInMempool -> String -> Parser TxInMempool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TxInMempool -> Parser TxInMempool
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 TxInMempool
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       String
"tx"
                                WatchMempoolResponse -> Parser WatchMempoolResponse
loop (Setter
  WatchMempoolResponse WatchMempoolResponse TxInMempool TxInMempool
-> TxInMempool -> WatchMempoolResponse -> WatchMempoolResponse
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 @"tx") TxInMempool
y WatchMempoolResponse
x)
                        Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                WatchMempoolResponse -> Parser WatchMempoolResponse
loop
                                  (Setter WatchMempoolResponse WatchMempoolResponse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> WatchMempoolResponse
-> WatchMempoolResponse
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     LensLike' f WatchMempoolResponse FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchMempoolResponse FieldSet
Setter WatchMempoolResponse WatchMempoolResponse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) WatchMempoolResponse
x)
      in
        Parser WatchMempoolResponse
-> String -> Parser WatchMempoolResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WatchMempoolResponse -> Parser WatchMempoolResponse
loop WatchMempoolResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WatchMempoolResponse"
  buildMessage :: WatchMempoolResponse -> Builder
buildMessage
    = \ WatchMempoolResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe TxInMempool)
  WatchMempoolResponse
  WatchMempoolResponse
  (Maybe TxInMempool)
  (Maybe TxInMempool)
-> WatchMempoolResponse -> Maybe TxInMempool
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'tx") WatchMempoolResponse
_x
              of
                Maybe TxInMempool
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just TxInMempool
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (TxInMempool -> ByteString) -> TxInMempool -> 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))
                          TxInMempool -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxInMempool
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  WatchMempoolResponse
  WatchMempoolResponse
  FieldSet
  FieldSet
-> WatchMempoolResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  WatchMempoolResponse
  WatchMempoolResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchMempoolResponse FieldSet
Data.ProtoLens.unknownFields WatchMempoolResponse
_x))
instance Control.DeepSeq.NFData WatchMempoolResponse where
  rnf :: WatchMempoolResponse -> ()
rnf
    = \ WatchMempoolResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WatchMempoolResponse -> FieldSet
_WatchMempoolResponse'_unknownFields WatchMempoolResponse
x__)
             (Maybe TxInMempool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WatchMempoolResponse -> Maybe TxInMempool
_WatchMempoolResponse'tx WatchMempoolResponse
x__) ())
data SubmitService = SubmitService {}
instance Data.ProtoLens.Service.Types.Service SubmitService where
  type ServiceName SubmitService = "SubmitService"
  type ServicePackage SubmitService = "utxorpc.v1alpha.submit"
  type ServiceMethods SubmitService = '["evalTx",
                                        "readMempool",
                                        "submitTx",
                                        "waitForTx",
                                        "watchMempool"]
  packedServiceDescriptor :: Proxy SubmitService -> ByteString
packedServiceDescriptor Proxy SubmitService
_
    = ByteString
"\n\
      \\rSubmitService\DC2W\n\
      \\ACKEvalTx\DC2%.utxorpc.v1alpha.submit.EvalTxRequest\SUB&.utxorpc.v1alpha.submit.EvalTxResponse\DC2]\n\
      \\bSubmitTx\DC2'.utxorpc.v1alpha.submit.SubmitTxRequest\SUB(.utxorpc.v1alpha.submit.SubmitTxResponse\DC2b\n\
      \\tWaitForTx\DC2(.utxorpc.v1alpha.submit.WaitForTxRequest\SUB).utxorpc.v1alpha.submit.WaitForTxResponse0\SOH\DC2f\n\
      \\vReadMempool\DC2*.utxorpc.v1alpha.submit.ReadMempoolRequest\SUB+.utxorpc.v1alpha.submit.ReadMempoolResponse\DC2k\n\
      \\fWatchMempool\DC2+.utxorpc.v1alpha.submit.WatchMempoolRequest\SUB,.utxorpc.v1alpha.submit.WatchMempoolResponse0\SOH"
instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "evalTx" where
  type MethodName SubmitService "evalTx" = "EvalTx"
  type MethodInput SubmitService "evalTx" = EvalTxRequest
  type MethodOutput SubmitService "evalTx" = EvalTxResponse
  type MethodStreamingType SubmitService "evalTx" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "submitTx" where
  type MethodName SubmitService "submitTx" = "SubmitTx"
  type MethodInput SubmitService "submitTx" = SubmitTxRequest
  type MethodOutput SubmitService "submitTx" = SubmitTxResponse
  type MethodStreamingType SubmitService "submitTx" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "waitForTx" where
  type MethodName SubmitService "waitForTx" = "WaitForTx"
  type MethodInput SubmitService "waitForTx" = WaitForTxRequest
  type MethodOutput SubmitService "waitForTx" = WaitForTxResponse
  type MethodStreamingType SubmitService "waitForTx" = 'Data.ProtoLens.Service.Types.ServerStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "readMempool" where
  type MethodName SubmitService "readMempool" = "ReadMempool"
  type MethodInput SubmitService "readMempool" = ReadMempoolRequest
  type MethodOutput SubmitService "readMempool" = ReadMempoolResponse
  type MethodStreamingType SubmitService "readMempool" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl SubmitService "watchMempool" where
  type MethodName SubmitService "watchMempool" = "WatchMempool"
  type MethodInput SubmitService "watchMempool" = WatchMempoolRequest
  type MethodOutput SubmitService "watchMempool" = WatchMempoolResponse
  type MethodStreamingType SubmitService "watchMempool" = 'Data.ProtoLens.Service.Types.ServerStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \#utxorpc/v1alpha/submit/submit.proto\DC2\SYNutxorpc.v1alpha.submit\SUB google/protobuf/field_mask.proto\SUB%utxorpc/v1alpha/cardano/cardano.proto\"(\n\
    \\n\
    \AnyChainTx\DC2\DC2\n\
    \\ETXraw\CAN\SOH \SOH(\fH\NULR\ETXrawB\ACK\n\
    \\EOTtype\"C\n\
    \\rEvalTxRequest\DC22\n\
    \\STXtx\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx\"T\n\
    \\fAnyChainEval\DC2;\n\
    \\acardano\CAN\SOH \SOH(\v2\US.utxorpc.v1alpha.cardano.TxEvalH\NULR\acardanoB\a\n\
    \\ENQchain\"N\n\
    \\SOEvalTxResponse\DC2<\n\
    \\ACKreport\CAN\SOH \ETX(\v2$.utxorpc.v1alpha.submit.AnyChainEvalR\ACKreport\"E\n\
    \\SISubmitTxRequest\DC22\n\
    \\STXtx\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx\"$\n\
    \\DLESubmitTxResponse\DC2\DLE\n\
    \\ETXref\CAN\SOH \ETX(\fR\ETXref\"v\n\
    \\vTxInMempool\DC22\n\
    \\STXtx\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx\DC23\n\
    \\ENQstage\CAN\STX \SOH(\SO2\GS.utxorpc.v1alpha.submit.StageR\ENQstage\"I\n\
    \\DC2ReadMempoolRequest\DC23\n\
    \\STXtx\CAN\SOH \ETX(\v2#.utxorpc.v1alpha.submit.TxInMempoolR\STXtx\"J\n\
    \\DC3ReadMempoolResponse\DC23\n\
    \\ENQstage\CAN\SOH \ETX(\SO2\GS.utxorpc.v1alpha.submit.StageR\ENQstage\"$\n\
    \\DLEWaitForTxRequest\DC2\DLE\n\
    \\ETXref\CAN\SOH \ETX(\fR\ETXref\"Z\n\
    \\DC1WaitForTxResponse\DC2\DLE\n\
    \\ETXref\CAN\SOH \SOH(\fR\ETXref\DC23\n\
    \\ENQstage\CAN\STX \SOH(\SO2\GS.utxorpc.v1alpha.submit.StageR\ENQstage\"\\\n\
    \\DC1AnyChainTxPattern\DC2>\n\
    \\acardano\CAN\SOH \SOH(\v2\".utxorpc.v1alpha.cardano.TxPatternH\NULR\acardanoB\a\n\
    \\ENQchain\"\253\SOH\n\
    \\vTxPredicate\DC2?\n\
    \\ENQmatch\CAN\SOH \SOH(\v2).utxorpc.v1alpha.submit.AnyChainTxPatternR\ENQmatch\DC25\n\
    \\ETXnot\CAN\STX \ETX(\v2#.utxorpc.v1alpha.submit.TxPredicateR\ETXnot\DC2:\n\
    \\ACKall_of\CAN\ETX \ETX(\v2#.utxorpc.v1alpha.submit.TxPredicateR\ENQallOf\DC2:\n\
    \\ACKany_of\CAN\EOT \ETX(\v2#.utxorpc.v1alpha.submit.TxPredicateR\ENQanyOf\"\147\SOH\n\
    \\DC3WatchMempoolRequest\DC2A\n\
    \\tpredicate\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.submit.TxPredicateR\tpredicate\DC29\n\
    \\n\
    \field_mask\CAN\STX \SOH(\v2\SUB.google.protobuf.FieldMaskR\tfieldMask\"K\n\
    \\DC4WatchMempoolResponse\DC23\n\
    \\STXtx\CAN\SOH \SOH(\v2#.utxorpc.v1alpha.submit.TxInMempoolR\STXtx*q\n\
    \\ENQStage\DC2\NAK\n\
    \\DC1STAGE_UNSPECIFIED\DLE\NUL\DC2\SYN\n\
    \\DC2STAGE_ACKNOWLEDGED\DLE\SOH\DC2\DC1\n\
    \\rSTAGE_MEMPOOL\DLE\STX\DC2\DC1\n\
    \\rSTAGE_NETWORK\DLE\ETX\DC2\DC3\n\
    \\SISTAGE_CONFIRMED\DLE\EOT2\128\EOT\n\
    \\rSubmitService\DC2W\n\
    \\ACKEvalTx\DC2%.utxorpc.v1alpha.submit.EvalTxRequest\SUB&.utxorpc.v1alpha.submit.EvalTxResponse\DC2]\n\
    \\bSubmitTx\DC2'.utxorpc.v1alpha.submit.SubmitTxRequest\SUB(.utxorpc.v1alpha.submit.SubmitTxResponse\DC2b\n\
    \\tWaitForTx\DC2(.utxorpc.v1alpha.submit.WaitForTxRequest\SUB).utxorpc.v1alpha.submit.WaitForTxResponse0\SOH\DC2f\n\
    \\vReadMempool\DC2*.utxorpc.v1alpha.submit.ReadMempoolRequest\SUB+.utxorpc.v1alpha.submit.ReadMempoolResponse\DC2k\n\
    \\fWatchMempool\DC2+.utxorpc.v1alpha.submit.WatchMempoolRequest\SUB,.utxorpc.v1alpha.submit.WatchMempoolResponse0\SOHB\217\SOH\n\
    \\SUBcom.utxorpc.v1alpha.submitB\vSubmitProtoP\SOHZ4github.com/utxorpc/go-codegen/utxorpc/v1alpha/submit\162\STX\ETXUVS\170\STX\SYNUtxorpc.V1alpha.Submit\202\STX\SYNUtxorpc\\V1alpha\\Submit\226\STX\"Utxorpc\\V1alpha\\Submit\\GPBMetadata\234\STX\CANUtxorpc::V1alpha::SubmitJ\227$\n\
    \\ACK\DC2\EOT\NUL\NULm\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL\US\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\EOT\NUL*\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\ENQ\NUL/\n\
    \E\n\
    \\STX\EOT\NUL\DC2\EOT\b\NUL\f\SOH\SUB9 Represents a transaction from any supported blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\b\b\DC2\n\
    \\f\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT\t\STX\v\ETX\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\t\b\f\n\
    \$\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\n\
    \\EOT\DC2\"\ETB Raw transaction data.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\n\
    \\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\n\
    \\n\
    \\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\n\
    \\DLE\DC1\n\
    \B\n\
    \\STX\EOT\SOH\DC2\EOT\SI\NUL\DC1\SOH\SUB6 Request to evaluate transactions without submitting.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\SI\b\NAK\n\
    \0\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DLE\STX\GS\"# List of transactions to evaluate.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\DLE\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\DLE\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DLE\SYN\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DLE\ESC\FS\n\
    \Q\n\
    \\STX\EOT\STX\DC2\EOT\DC4\NUL\CAN\SOH\SUBE Report containing the result of evaluating a particular transaction\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\DC4\b\DC4\n\
    \\f\n\
    \\EOT\EOT\STX\b\NUL\DC2\EOT\NAK\STX\ETB\ETX\n\
    \\f\n\
    \\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX\NAK\b\r\n\
    \.\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX\SYN\EOT/\"! A Cardano tx evaluation report.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\SYN\EOT\"\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\SYN#*\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\SYN-.\n\
    \N\n\
    \\STX\EOT\ETX\DC2\EOT\ESC\NUL\GS\SOH\SUBB Response containing the reports form the transaction evaluation.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX\ESC\b\SYN\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX\FS\STX#\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX\FS\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\FS\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\FS\CAN\RS\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\FS!\"\n\
    \?\n\
    \\STX\EOT\EOT\DC2\EOT \NUL\"\SOH\SUB3 Request to submit transactions to the blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETX \b\ETB\n\
    \.\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETX!\STX\GS\"! List of transactions to submit.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\EOT\DC2\ETX!\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETX!\v\NAK\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX!\SYN\CAN\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX!\ESC\FS\n\
    \K\n\
    \\STX\EOT\ENQ\DC2\EOT%\NUL'\SOH\SUB? Response containing references to the submitted transactions.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETX%\b\CAN\n\
    \.\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETX&\STX\EM\"! List of transaction references.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\EOT\DC2\ETX&\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETX&\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETX&\DC1\DC4\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETX&\ETB\CAN\n\
    \P\n\
    \\STX\ENQ\NUL\DC2\EOT*\NUL0\SOH\SUBD Enum representing the various stages of a transaction's lifecycle.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ENQ\NUL\SOH\DC2\ETX*\ENQ\n\
    \\n\
    \!\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX+\STX\CAN\"\DC4 Unspecified stage.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX+\STX\DC3\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX+\SYN\ETB\n\
    \=\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX,\STX\EM\"0 Transaction has been acknowledged by the node.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX,\STX\DC4\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX,\ETB\CAN\n\
    \-\n\
    \\EOT\ENQ\NUL\STX\STX\DC2\ETX-\STX\DC4\"  Transaction is in the mempool.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX-\STX\SI\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX-\DC2\DC3\n\
    \B\n\
    \\EOT\ENQ\NUL\STX\ETX\DC2\ETX.\STX\DC4\"5 Transaction has been propagated across the network.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX.\STX\SI\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX.\DC2\DC3\n\
    \@\n\
    \\EOT\ENQ\NUL\STX\EOT\DC2\ETX/\STX\SYN\"3 Transaction has been confirmed on the blockchain.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\SOH\DC2\ETX/\STX\DC1\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\EOT\STX\DC2\ETX/\DC4\NAK\n\
    \\n\
    \\n\
    \\STX\EOT\ACK\DC2\EOT2\NUL5\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETX2\b\DC3\n\
    \%\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETX3\STX\DC4\"\CAN The contents of the tx\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETX3\STX\f\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX3\r\SI\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX3\DC2\DC3\n\
    \*\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETX4\STX\DC2\"\GS The current stage of the tx\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ACK\DC2\ETX4\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX4\b\r\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX4\DLE\DC1\n\
    \D\n\
    \\STX\EOT\a\DC2\EOT8\NUL:\SOH\SUB8 Request to check the status of submitted transactions.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETX8\b\SUB\n\
    \<\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETX9\STX\RS\"/ List of transaction currently on the mempool.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\EOT\DC2\ETX9\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ACK\DC2\ETX9\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETX9\ETB\EM\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETX9\FS\GS\n\
    \J\n\
    \\STX\EOT\b\DC2\EOT=\NUL?\SOH\SUB> Response containing the stage of the submitted transactions.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETX=\b\ESC\n\
    \J\n\
    \\EOT\EOT\b\STX\NUL\DC2\ETX>\STX\ESC\"= List of stages corresponding to the transaction references.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\EOT\DC2\ETX>\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ACK\DC2\ETX>\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX>\DC1\SYN\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX>\EM\SUB\n\
    \H\n\
    \\STX\EOT\t\DC2\EOTB\NULD\SOH\SUB< Request to wait for transactions to reach a certain stage.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETXB\b\CAN\n\
    \:\n\
    \\EOT\EOT\t\STX\NUL\DC2\ETXC\STX\EM\"- List of transaction references to wait for.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\EOT\DC2\ETXC\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXC\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXC\DC1\DC4\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXC\ETB\CAN\n\
    \_\n\
    \\STX\EOT\n\
    \\DC2\EOTG\NULJ\SOH\SUBS Response containing the transaction reference and stage once it has been reached.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\n\
    \\SOH\DC2\ETXG\b\EM\n\
    \%\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\ETXH\STX\DLE\"\CAN Transaction reference.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ENQ\DC2\ETXH\STX\a\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\ETXH\b\v\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\ETXH\SO\SI\n\
    \0\n\
    \\EOT\EOT\n\
    \\STX\SOH\DC2\ETXI\STX\DC2\"# Stage reached by the transaction.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ACK\DC2\ETXI\STX\a\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\SOH\DC2\ETXI\b\r\n\
    \\f\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ETX\DC2\ETXI\DLE\DC1\n\
    \D\n\
    \\STX\EOT\v\DC2\EOTM\NULQ\SOH\SUB8 Represents a tx pattern from any supported blockchain.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\v\SOH\DC2\ETXM\b\EM\n\
    \\f\n\
    \\EOT\EOT\v\b\NUL\DC2\EOTN\STXP\ETX\n\
    \\f\n\
    \\ENQ\EOT\v\b\NUL\SOH\DC2\ETXN\b\r\n\
    \$\n\
    \\EOT\EOT\v\STX\NUL\DC2\ETXO\EOT2\"\ETB A Cardano tx pattern.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ACK\DC2\ETXO\EOT%\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\SOH\DC2\ETXO&-\n\
    \\f\n\
    \\ENQ\EOT\v\STX\NUL\ETX\DC2\ETXO01\n\
    \\\\n\
    \\STX\EOT\f\DC2\EOTT\NULY\SOH\SUBP Represents a simple tx predicate that can composed to create more complex ones\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\f\SOH\DC2\ETXT\b\DC3\n\
    \8\n\
    \\EOT\EOT\f\STX\NUL\DC2\ETXU\STX\RS\"+ Predicate is true if tx exhibits pattern.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ACK\DC2\ETXU\STX\DC3\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\SOH\DC2\ETXU\DC4\EM\n\
    \\f\n\
    \\ENQ\EOT\f\STX\NUL\ETX\DC2\ETXU\FS\GS\n\
    \?\n\
    \\EOT\EOT\f\STX\SOH\DC2\ETXV\STX\US\"2 Predicate is true if tx doesn't exhibit pattern.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\EOT\DC2\ETXV\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\ACK\DC2\ETXV\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\SOH\DC2\ETXV\ETB\SUB\n\
    \\f\n\
    \\ENQ\EOT\f\STX\SOH\ETX\DC2\ETXV\GS\RS\n\
    \D\n\
    \\EOT\EOT\f\STX\STX\DC2\ETXW\STX\"\"7 Predicate is true if tx exhibits all of the patterns.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\STX\EOT\DC2\ETXW\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\STX\ACK\DC2\ETXW\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\f\STX\STX\SOH\DC2\ETXW\ETB\GS\n\
    \\f\n\
    \\ENQ\EOT\f\STX\STX\ETX\DC2\ETXW !\n\
    \D\n\
    \\EOT\EOT\f\STX\ETX\DC2\ETXX\STX\"\"7 Predicate is true if tx exhibits any of the patterns.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\ETX\EOT\DC2\ETXX\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\f\STX\ETX\ACK\DC2\ETXX\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\f\STX\ETX\SOH\DC2\ETXX\ETB\GS\n\
    \\f\n\
    \\ENQ\EOT\f\STX\ETX\ETX\DC2\ETXX !\n\
    \?\n\
    \\STX\EOT\r\DC2\EOT\\\NUL_\SOH\SUB3 Request to watch changes of specific mempool txs.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\r\SOH\DC2\ETX\\\b\ESC\n\
    \5\n\
    \\EOT\EOT\r\STX\NUL\DC2\ETX]\STX\FS\"( A predicate to filter transactions by.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ACK\DC2\ETX]\STX\r\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\SOH\DC2\ETX]\SO\ETB\n\
    \\f\n\
    \\ENQ\EOT\r\STX\NUL\ETX\DC2\ETX]\SUB\ESC\n\
    \7\n\
    \\EOT\EOT\r\STX\SOH\DC2\ETX^\STX+\"* Field mask to selectively return fields.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\ACK\DC2\ETX^\STX\ESC\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\SOH\DC2\ETX^\FS&\n\
    \\f\n\
    \\ENQ\EOT\r\STX\SOH\ETX\DC2\ETX^)*\n\
    \@\n\
    \\STX\EOT\SO\DC2\EOTb\NULd\SOH\SUB4 Response that represents a change in a mempool tx.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SO\SOH\DC2\ETXb\b\FS\n\
    \?\n\
    \\EOT\EOT\SO\STX\NUL\DC2\ETXc\STX\NAK\"2 The content and stage of the tx that has changed\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ACK\DC2\ETXc\STX\r\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\SOH\DC2\ETXc\SO\DLE\n\
    \\f\n\
    \\ENQ\EOT\SO\STX\NUL\ETX\DC2\ETXc\DC3\DC4\n\
    \W\n\
    \\STX\ACK\NUL\DC2\EOTg\NULm\SOH\SUBK Service definition for submitting transactions and checking their status.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETXg\b\NAK\n\
    \=\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\ETXh\STX5\"0 Evaluates a transaction without submitting it.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETXh\ACK\f\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETXh\r\SUB\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETXh%3\n\
    \5\n\
    \\EOT\ACK\NUL\STX\SOH\DC2\ETXi\STX;\"( Submit transactions to the blockchain.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETXi\ACK\SO\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETXi\SI\RS\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETXi)9\n\
    \U\n\
    \\EOT\ACK\NUL\STX\STX\DC2\ETXj\STXE\"H Wait for transactions to reach a certain stage and stream the updates.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETXj\ACK\SI\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETXj\DLE \n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\STX\ACK\DC2\ETXj+1\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETXj2C\n\
    \?\n\
    \\EOT\ACK\NUL\STX\ETX\DC2\ETXk\STXD\"2 Returns a point-in-time snapshot of the mempool.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETXk\ACK\DC1\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETXk\DC2$\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETXk/B\n\
    \V\n\
    \\EOT\ACK\NUL\STX\EOT\DC2\ETXl\STXN\"I Stream transactions from the mempool matching the specified predicates.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETXl\ACK\DC2\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETXl\DC3&\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\EOT\ACK\DC2\ETXl17\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETXl8Lb\ACKproto3"