{-# 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(..), AnyChainTx(), AnyChainTx'Type(..),
_AnyChainTx'Raw, SubmitTxRequest(), SubmitTxResponse(),
TxSubmitResult(), TxSubmitResult'Result(..), _TxSubmitResult'Ref,
_TxSubmitResult'ErrorMessage
) 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
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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
String
"raw"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"raw") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser 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)
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 end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'tx <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'tx)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'tx") frozen'tx x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser AnyChainTx -> String -> Parser AnyChainTx
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
String
"tx"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'tx y)
loop x v
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'tx
in
Parser SubmitTxRequest -> String -> Parser SubmitTxRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do 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
loop Data.ProtoLens.defMessage 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__) ())
data SubmitTxResponse
= SubmitTxResponse'_constructor {SubmitTxResponse -> Vector TxSubmitResult
_SubmitTxResponse'results :: !(Data.Vector.Vector TxSubmitResult),
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 "results" [TxSubmitResult] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "results"
-> ([TxSubmitResult] -> f [TxSubmitResult])
-> SubmitTxResponse
-> f SubmitTxResponse
fieldOf Proxy# "results"
_
= ((Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> SubmitTxResponse -> f SubmitTxResponse)
-> (([TxSubmitResult] -> f [TxSubmitResult])
-> Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> ([TxSubmitResult] -> f [TxSubmitResult])
-> SubmitTxResponse
-> f SubmitTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SubmitTxResponse -> Vector TxSubmitResult)
-> (SubmitTxResponse -> Vector TxSubmitResult -> SubmitTxResponse)
-> Lens
SubmitTxResponse
SubmitTxResponse
(Vector TxSubmitResult)
(Vector TxSubmitResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SubmitTxResponse -> Vector TxSubmitResult
_SubmitTxResponse'results
(\ SubmitTxResponse
x__ Vector TxSubmitResult
y__ -> SubmitTxResponse
x__ {_SubmitTxResponse'results = y__}))
((Vector TxSubmitResult -> [TxSubmitResult])
-> (Vector TxSubmitResult
-> [TxSubmitResult] -> Vector TxSubmitResult)
-> Lens
(Vector TxSubmitResult)
(Vector TxSubmitResult)
[TxSubmitResult]
[TxSubmitResult]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TxSubmitResult -> [TxSubmitResult]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector TxSubmitResult
_ [TxSubmitResult]
y__ -> [TxSubmitResult] -> Vector TxSubmitResult
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TxSubmitResult]
y__))
instance Data.ProtoLens.Field.HasField SubmitTxResponse "vec'results" (Data.Vector.Vector TxSubmitResult) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'results"
-> (Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> SubmitTxResponse
-> f SubmitTxResponse
fieldOf Proxy# "vec'results"
_
= ((Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> SubmitTxResponse -> f SubmitTxResponse)
-> ((Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> (Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> SubmitTxResponse
-> f SubmitTxResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SubmitTxResponse -> Vector TxSubmitResult)
-> (SubmitTxResponse -> Vector TxSubmitResult -> SubmitTxResponse)
-> Lens
SubmitTxResponse
SubmitTxResponse
(Vector TxSubmitResult)
(Vector TxSubmitResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SubmitTxResponse -> Vector TxSubmitResult
_SubmitTxResponse'results
(\ SubmitTxResponse
x__ Vector TxSubmitResult
y__ -> SubmitTxResponse
x__ {_SubmitTxResponse'results = y__}))
(Vector TxSubmitResult -> f (Vector TxSubmitResult))
-> Vector TxSubmitResult -> f (Vector TxSubmitResult)
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@\n\
\\aresults\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.submit.TxSubmitResultR\aresults"
packedFileDescriptor :: Proxy SubmitTxResponse -> ByteString
packedFileDescriptor Proxy SubmitTxResponse
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SubmitTxResponse)
fieldsByTag
= let
results__field_descriptor :: FieldDescriptor SubmitTxResponse
results__field_descriptor
= String
-> FieldTypeDescriptor TxSubmitResult
-> FieldAccessor SubmitTxResponse TxSubmitResult
-> FieldDescriptor SubmitTxResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"results"
(MessageOrGroup -> FieldTypeDescriptor TxSubmitResult
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TxSubmitResult)
(Packing
-> Lens' SubmitTxResponse [TxSubmitResult]
-> FieldAccessor SubmitTxResponse TxSubmitResult
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 @"results")) ::
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
results__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'results :: Vector TxSubmitResult
_SubmitTxResponse'results = Vector TxSubmitResult
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 TxSubmitResult
-> Data.ProtoLens.Encoding.Bytes.Parser SubmitTxResponse
loop :: SubmitTxResponse
-> Growing Vector RealWorld TxSubmitResult
-> Parser SubmitTxResponse
loop SubmitTxResponse
x Growing Vector RealWorld TxSubmitResult
mutable'results
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'results <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'results)
(let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Lens.Family2.set
(Data.ProtoLens.Field.field @"vec'results") frozen'results x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser TxSubmitResult -> String -> Parser TxSubmitResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
Data.ProtoLens.parseMessage)
String
"results"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'results y)
loop x v
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
mutable'results
in
Parser SubmitTxResponse -> String -> Parser SubmitTxResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'results <- IO (Growing Vector RealWorld TxSubmitResult)
-> Parser (Growing Vector RealWorld TxSubmitResult)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TxSubmitResult)
IO (Growing Vector (PrimState IO) TxSubmitResult)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
loop Data.ProtoLens.defMessage mutable'results)
String
"SubmitTxResponse"
buildMessage :: SubmitTxResponse -> Builder
buildMessage
= \ SubmitTxResponse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TxSubmitResult -> Builder) -> Vector TxSubmitResult -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ TxSubmitResult
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (TxSubmitResult -> ByteString) -> TxSubmitResult -> 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))
TxSubmitResult -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxSubmitResult
_v))
(FoldLike
(Vector TxSubmitResult)
SubmitTxResponse
SubmitTxResponse
(Vector TxSubmitResult)
(Vector TxSubmitResult)
-> SubmitTxResponse -> Vector TxSubmitResult
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'results") 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 TxSubmitResult -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SubmitTxResponse -> Vector TxSubmitResult
_SubmitTxResponse'results SubmitTxResponse
x__) ())
data TxSubmitResult
= TxSubmitResult'_constructor {TxSubmitResult -> Maybe TxSubmitResult'Result
_TxSubmitResult'result :: !(Prelude.Maybe TxSubmitResult'Result),
TxSubmitResult -> FieldSet
_TxSubmitResult'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TxSubmitResult -> TxSubmitResult -> Bool
(TxSubmitResult -> TxSubmitResult -> Bool)
-> (TxSubmitResult -> TxSubmitResult -> Bool) -> Eq TxSubmitResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxSubmitResult -> TxSubmitResult -> Bool
== :: TxSubmitResult -> TxSubmitResult -> Bool
$c/= :: TxSubmitResult -> TxSubmitResult -> Bool
/= :: TxSubmitResult -> TxSubmitResult -> Bool
Prelude.Eq, Eq TxSubmitResult
Eq TxSubmitResult =>
(TxSubmitResult -> TxSubmitResult -> Ordering)
-> (TxSubmitResult -> TxSubmitResult -> Bool)
-> (TxSubmitResult -> TxSubmitResult -> Bool)
-> (TxSubmitResult -> TxSubmitResult -> Bool)
-> (TxSubmitResult -> TxSubmitResult -> Bool)
-> (TxSubmitResult -> TxSubmitResult -> TxSubmitResult)
-> (TxSubmitResult -> TxSubmitResult -> TxSubmitResult)
-> Ord TxSubmitResult
TxSubmitResult -> TxSubmitResult -> Bool
TxSubmitResult -> TxSubmitResult -> Ordering
TxSubmitResult -> TxSubmitResult -> TxSubmitResult
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 :: TxSubmitResult -> TxSubmitResult -> Ordering
compare :: TxSubmitResult -> TxSubmitResult -> Ordering
$c< :: TxSubmitResult -> TxSubmitResult -> Bool
< :: TxSubmitResult -> TxSubmitResult -> Bool
$c<= :: TxSubmitResult -> TxSubmitResult -> Bool
<= :: TxSubmitResult -> TxSubmitResult -> Bool
$c> :: TxSubmitResult -> TxSubmitResult -> Bool
> :: TxSubmitResult -> TxSubmitResult -> Bool
$c>= :: TxSubmitResult -> TxSubmitResult -> Bool
>= :: TxSubmitResult -> TxSubmitResult -> Bool
$cmax :: TxSubmitResult -> TxSubmitResult -> TxSubmitResult
max :: TxSubmitResult -> TxSubmitResult -> TxSubmitResult
$cmin :: TxSubmitResult -> TxSubmitResult -> TxSubmitResult
min :: TxSubmitResult -> TxSubmitResult -> TxSubmitResult
Prelude.Ord)
instance Prelude.Show TxSubmitResult where
showsPrec :: Int -> TxSubmitResult -> ShowS
showsPrec Int
_ TxSubmitResult
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TxSubmitResult -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxSubmitResult
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data TxSubmitResult'Result
= TxSubmitResult'Ref !Data.ByteString.ByteString |
TxSubmitResult'ErrorMessage !Data.Text.Text
deriving stock (Int -> TxSubmitResult'Result -> ShowS
[TxSubmitResult'Result] -> ShowS
TxSubmitResult'Result -> String
(Int -> TxSubmitResult'Result -> ShowS)
-> (TxSubmitResult'Result -> String)
-> ([TxSubmitResult'Result] -> ShowS)
-> Show TxSubmitResult'Result
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TxSubmitResult'Result -> ShowS
showsPrec :: Int -> TxSubmitResult'Result -> ShowS
$cshow :: TxSubmitResult'Result -> String
show :: TxSubmitResult'Result -> String
$cshowList :: [TxSubmitResult'Result] -> ShowS
showList :: [TxSubmitResult'Result] -> ShowS
Prelude.Show, TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
(TxSubmitResult'Result -> TxSubmitResult'Result -> Bool)
-> (TxSubmitResult'Result -> TxSubmitResult'Result -> Bool)
-> Eq TxSubmitResult'Result
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
== :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
$c/= :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
/= :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
Prelude.Eq, Eq TxSubmitResult'Result
Eq TxSubmitResult'Result =>
(TxSubmitResult'Result -> TxSubmitResult'Result -> Ordering)
-> (TxSubmitResult'Result -> TxSubmitResult'Result -> Bool)
-> (TxSubmitResult'Result -> TxSubmitResult'Result -> Bool)
-> (TxSubmitResult'Result -> TxSubmitResult'Result -> Bool)
-> (TxSubmitResult'Result -> TxSubmitResult'Result -> Bool)
-> (TxSubmitResult'Result
-> TxSubmitResult'Result -> TxSubmitResult'Result)
-> (TxSubmitResult'Result
-> TxSubmitResult'Result -> TxSubmitResult'Result)
-> Ord TxSubmitResult'Result
TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
TxSubmitResult'Result -> TxSubmitResult'Result -> Ordering
TxSubmitResult'Result
-> TxSubmitResult'Result -> TxSubmitResult'Result
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 :: TxSubmitResult'Result -> TxSubmitResult'Result -> Ordering
compare :: TxSubmitResult'Result -> TxSubmitResult'Result -> Ordering
$c< :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
< :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
$c<= :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
<= :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
$c> :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
> :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
$c>= :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
>= :: TxSubmitResult'Result -> TxSubmitResult'Result -> Bool
$cmax :: TxSubmitResult'Result
-> TxSubmitResult'Result -> TxSubmitResult'Result
max :: TxSubmitResult'Result
-> TxSubmitResult'Result -> TxSubmitResult'Result
$cmin :: TxSubmitResult'Result
-> TxSubmitResult'Result -> TxSubmitResult'Result
min :: TxSubmitResult'Result
-> TxSubmitResult'Result -> TxSubmitResult'Result
Prelude.Ord)
instance Data.ProtoLens.Field.HasField TxSubmitResult "maybe'result" (Prelude.Maybe TxSubmitResult'Result) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'result"
-> (Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> TxSubmitResult
-> f TxSubmitResult
fieldOf Proxy# "maybe'result"
_
= ((Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> TxSubmitResult -> f TxSubmitResult)
-> ((Maybe TxSubmitResult'Result
-> f (Maybe TxSubmitResult'Result))
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> (Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> TxSubmitResult
-> f TxSubmitResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TxSubmitResult -> Maybe TxSubmitResult'Result)
-> (TxSubmitResult
-> Maybe TxSubmitResult'Result -> TxSubmitResult)
-> Lens
TxSubmitResult
TxSubmitResult
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxSubmitResult -> Maybe TxSubmitResult'Result
_TxSubmitResult'result
(\ TxSubmitResult
x__ Maybe TxSubmitResult'Result
y__ -> TxSubmitResult
x__ {_TxSubmitResult'result = y__}))
(Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxSubmitResult "maybe'ref" (Prelude.Maybe Data.ByteString.ByteString) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'ref"
-> (Maybe ByteString -> f (Maybe ByteString))
-> TxSubmitResult
-> f TxSubmitResult
fieldOf Proxy# "maybe'ref"
_
= ((Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> TxSubmitResult -> f TxSubmitResult)
-> ((Maybe ByteString -> f (Maybe ByteString))
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> (Maybe ByteString -> f (Maybe ByteString))
-> TxSubmitResult
-> f TxSubmitResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TxSubmitResult -> Maybe TxSubmitResult'Result)
-> (TxSubmitResult
-> Maybe TxSubmitResult'Result -> TxSubmitResult)
-> Lens
TxSubmitResult
TxSubmitResult
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxSubmitResult -> Maybe TxSubmitResult'Result
_TxSubmitResult'result
(\ TxSubmitResult
x__ Maybe TxSubmitResult'Result
y__ -> TxSubmitResult
x__ {_TxSubmitResult'result = y__}))
((Maybe TxSubmitResult'Result -> Maybe ByteString)
-> (Maybe TxSubmitResult'Result
-> Maybe ByteString -> Maybe TxSubmitResult'Result)
-> Lens
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe TxSubmitResult'Result
x__
-> case Maybe TxSubmitResult'Result
x__ of
(Prelude.Just (TxSubmitResult'Ref ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
Maybe TxSubmitResult'Result
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ Maybe TxSubmitResult'Result
_ Maybe ByteString
y__ -> (ByteString -> TxSubmitResult'Result)
-> Maybe ByteString -> Maybe TxSubmitResult'Result
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> TxSubmitResult'Result
TxSubmitResult'Ref Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField TxSubmitResult "ref" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ref"
-> (ByteString -> f ByteString)
-> TxSubmitResult
-> f TxSubmitResult
fieldOf Proxy# "ref"
_
= ((Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> TxSubmitResult -> f TxSubmitResult)
-> ((ByteString -> f ByteString)
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> (ByteString -> f ByteString)
-> TxSubmitResult
-> f TxSubmitResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TxSubmitResult -> Maybe TxSubmitResult'Result)
-> (TxSubmitResult
-> Maybe TxSubmitResult'Result -> TxSubmitResult)
-> Lens
TxSubmitResult
TxSubmitResult
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxSubmitResult -> Maybe TxSubmitResult'Result
_TxSubmitResult'result
(\ TxSubmitResult
x__ Maybe TxSubmitResult'Result
y__ -> TxSubmitResult
x__ {_TxSubmitResult'result = y__}))
(((Maybe ByteString -> f (Maybe ByteString))
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> ((ByteString -> f ByteString)
-> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe TxSubmitResult'Result
-> f (Maybe TxSubmitResult'Result)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe TxSubmitResult'Result -> Maybe ByteString)
-> (Maybe TxSubmitResult'Result
-> Maybe ByteString -> Maybe TxSubmitResult'Result)
-> Lens
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
(Maybe ByteString)
(Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe TxSubmitResult'Result
x__
-> case Maybe TxSubmitResult'Result
x__ of
(Prelude.Just (TxSubmitResult'Ref ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
Maybe TxSubmitResult'Result
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
(\ Maybe TxSubmitResult'Result
_ Maybe ByteString
y__ -> (ByteString -> TxSubmitResult'Result)
-> Maybe ByteString -> Maybe TxSubmitResult'Result
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> TxSubmitResult'Result
TxSubmitResult'Ref 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.Field.HasField TxSubmitResult "maybe'errorMessage" (Prelude.Maybe Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'errorMessage"
-> (Maybe Text -> f (Maybe Text))
-> TxSubmitResult
-> f TxSubmitResult
fieldOf Proxy# "maybe'errorMessage"
_
= ((Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> TxSubmitResult -> f TxSubmitResult)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> (Maybe Text -> f (Maybe Text))
-> TxSubmitResult
-> f TxSubmitResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TxSubmitResult -> Maybe TxSubmitResult'Result)
-> (TxSubmitResult
-> Maybe TxSubmitResult'Result -> TxSubmitResult)
-> Lens
TxSubmitResult
TxSubmitResult
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxSubmitResult -> Maybe TxSubmitResult'Result
_TxSubmitResult'result
(\ TxSubmitResult
x__ Maybe TxSubmitResult'Result
y__ -> TxSubmitResult
x__ {_TxSubmitResult'result = y__}))
((Maybe TxSubmitResult'Result -> Maybe Text)
-> (Maybe TxSubmitResult'Result
-> Maybe Text -> Maybe TxSubmitResult'Result)
-> Lens
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe TxSubmitResult'Result
x__
-> case Maybe TxSubmitResult'Result
x__ of
(Prelude.Just (TxSubmitResult'ErrorMessage Text
x__val))
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe TxSubmitResult'Result
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe TxSubmitResult'Result
_ Maybe Text
y__ -> (Text -> TxSubmitResult'Result)
-> Maybe Text -> Maybe TxSubmitResult'Result
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> TxSubmitResult'Result
TxSubmitResult'ErrorMessage Maybe Text
y__))
instance Data.ProtoLens.Field.HasField TxSubmitResult "errorMessage" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorMessage"
-> (Text -> f Text) -> TxSubmitResult -> f TxSubmitResult
fieldOf Proxy# "errorMessage"
_
= ((Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> TxSubmitResult -> f TxSubmitResult)
-> ((Text -> f Text)
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> (Text -> f Text)
-> TxSubmitResult
-> f TxSubmitResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TxSubmitResult -> Maybe TxSubmitResult'Result)
-> (TxSubmitResult
-> Maybe TxSubmitResult'Result -> TxSubmitResult)
-> Lens
TxSubmitResult
TxSubmitResult
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxSubmitResult -> Maybe TxSubmitResult'Result
_TxSubmitResult'result
(\ TxSubmitResult
x__ Maybe TxSubmitResult'Result
y__ -> TxSubmitResult
x__ {_TxSubmitResult'result = y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe TxSubmitResult'Result -> f (Maybe TxSubmitResult'Result))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe TxSubmitResult'Result
-> f (Maybe TxSubmitResult'Result)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe TxSubmitResult'Result -> Maybe Text)
-> (Maybe TxSubmitResult'Result
-> Maybe Text -> Maybe TxSubmitResult'Result)
-> Lens
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe TxSubmitResult'Result
x__
-> case Maybe TxSubmitResult'Result
x__ of
(Prelude.Just (TxSubmitResult'ErrorMessage Text
x__val))
-> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe TxSubmitResult'Result
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe TxSubmitResult'Result
_ Maybe Text
y__ -> (Text -> TxSubmitResult'Result)
-> Maybe Text -> Maybe TxSubmitResult'Result
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> TxSubmitResult'Result
TxSubmitResult'ErrorMessage Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message TxSubmitResult where
messageName :: Proxy TxSubmitResult -> Text
messageName Proxy TxSubmitResult
_
= String -> Text
Data.Text.pack String
"utxorpc.v1alpha.submit.TxSubmitResult"
packedMessageDescriptor :: Proxy TxSubmitResult -> ByteString
packedMessageDescriptor Proxy TxSubmitResult
_
= ByteString
"\n\
\\SOTxSubmitResult\DC2\DC2\n\
\\ETXref\CAN\SOH \SOH(\fH\NULR\ETXref\DC2%\n\
\\rerror_message\CAN\STX \SOH(\tH\NULR\ferrorMessageB\b\n\
\\ACKresult"
packedFileDescriptor :: Proxy TxSubmitResult -> ByteString
packedFileDescriptor Proxy TxSubmitResult
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TxSubmitResult)
fieldsByTag
= let
ref__field_descriptor :: FieldDescriptor TxSubmitResult
ref__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TxSubmitResult ByteString
-> FieldDescriptor TxSubmitResult
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)
(Lens' TxSubmitResult (Maybe ByteString)
-> FieldAccessor TxSubmitResult 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'ref")) ::
Data.ProtoLens.FieldDescriptor TxSubmitResult
errorMessage__field_descriptor :: FieldDescriptor TxSubmitResult
errorMessage__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TxSubmitResult Text
-> FieldDescriptor TxSubmitResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"error_message"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Lens' TxSubmitResult (Maybe Text)
-> FieldAccessor TxSubmitResult Text
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'errorMessage")) ::
Data.ProtoLens.FieldDescriptor TxSubmitResult
in
[(Tag, FieldDescriptor TxSubmitResult)]
-> Map Tag (FieldDescriptor TxSubmitResult)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxSubmitResult
ref__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxSubmitResult
errorMessage__field_descriptor)]
unknownFields :: Lens' TxSubmitResult FieldSet
unknownFields
= (TxSubmitResult -> FieldSet)
-> (TxSubmitResult -> FieldSet -> TxSubmitResult)
-> Lens' TxSubmitResult FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TxSubmitResult -> FieldSet
_TxSubmitResult'_unknownFields
(\ TxSubmitResult
x__ FieldSet
y__ -> TxSubmitResult
x__ {_TxSubmitResult'_unknownFields = y__})
defMessage :: TxSubmitResult
defMessage
= TxSubmitResult'_constructor
{_TxSubmitResult'result :: Maybe TxSubmitResult'Result
_TxSubmitResult'result = Maybe TxSubmitResult'Result
forall a. Maybe a
Prelude.Nothing,
_TxSubmitResult'_unknownFields :: FieldSet
_TxSubmitResult'_unknownFields = []}
parseMessage :: Parser TxSubmitResult
parseMessage
= let
loop ::
TxSubmitResult
-> Data.ProtoLens.Encoding.Bytes.Parser TxSubmitResult
loop :: TxSubmitResult -> Parser TxSubmitResult
loop TxSubmitResult
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
String
"ref"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ref") y x)
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"error_message"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"errorMessage") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser TxSubmitResult -> String -> Parser TxSubmitResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TxSubmitResult -> Parser TxSubmitResult
loop TxSubmitResult
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TxSubmitResult"
buildMessage :: TxSubmitResult -> Builder
buildMessage
= \ TxSubmitResult
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TxSubmitResult'Result)
TxSubmitResult
TxSubmitResult
(Maybe TxSubmitResult'Result)
(Maybe TxSubmitResult'Result)
-> TxSubmitResult -> Maybe TxSubmitResult'Result
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'result") TxSubmitResult
_x
of
Maybe TxSubmitResult'Result
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (TxSubmitResult'Ref 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)
(Prelude.Just (TxSubmitResult'ErrorMessage Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet TxSubmitResult TxSubmitResult FieldSet FieldSet
-> TxSubmitResult -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxSubmitResult TxSubmitResult FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxSubmitResult FieldSet
Data.ProtoLens.unknownFields TxSubmitResult
_x))
instance Control.DeepSeq.NFData TxSubmitResult where
rnf :: TxSubmitResult -> ()
rnf
= \ TxSubmitResult
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TxSubmitResult -> FieldSet
_TxSubmitResult'_unknownFields TxSubmitResult
x__)
(Maybe TxSubmitResult'Result -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxSubmitResult -> Maybe TxSubmitResult'Result
_TxSubmitResult'result TxSubmitResult
x__) ())
instance Control.DeepSeq.NFData TxSubmitResult'Result where
rnf :: TxSubmitResult'Result -> ()
rnf (TxSubmitResult'Ref ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
rnf (TxSubmitResult'ErrorMessage Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
_TxSubmitResult'Ref ::
Data.ProtoLens.Prism.Prism' TxSubmitResult'Result Data.ByteString.ByteString
_TxSubmitResult'Ref :: Prism' TxSubmitResult'Result ByteString
_TxSubmitResult'Ref
= (ByteString -> TxSubmitResult'Result)
-> (TxSubmitResult'Result -> Maybe ByteString)
-> Prism' TxSubmitResult'Result ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ByteString -> TxSubmitResult'Result
TxSubmitResult'Ref
(\ TxSubmitResult'Result
p__
-> case TxSubmitResult'Result
p__ of
(TxSubmitResult'Ref ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
TxSubmitResult'Result
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_TxSubmitResult'ErrorMessage ::
Data.ProtoLens.Prism.Prism' TxSubmitResult'Result Data.Text.Text
_TxSubmitResult'ErrorMessage :: Prism' TxSubmitResult'Result Text
_TxSubmitResult'ErrorMessage
= (Text -> TxSubmitResult'Result)
-> (TxSubmitResult'Result -> Maybe Text)
-> Prism' TxSubmitResult'Result Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> TxSubmitResult'Result
TxSubmitResult'ErrorMessage
(\ TxSubmitResult'Result
p__
-> case TxSubmitResult'Result
p__ of
(TxSubmitResult'ErrorMessage Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
TxSubmitResult'Result
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
data SubmitService = SubmitService {}
instance Data.ProtoLens.Service.Types.Service SubmitService where
type ServiceName SubmitService = "SubmitService"
type ServicePackage SubmitService = "utxorpc.v1alpha.submit"
type ServiceMethods SubmitService = '["submitTx"]
packedServiceDescriptor :: Proxy SubmitService -> ByteString
packedServiceDescriptor Proxy SubmitService
_
= ByteString
"\n\
\\rSubmitService\DC2]\n\
\\bSubmitTx\DC2'.utxorpc.v1alpha.submit.SubmitTxRequest\SUB(.utxorpc.v1alpha.submit.SubmitTxResponse"
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
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\#utxorpc/v1alpha/submit/submit.proto\DC2\SYNutxorpc.v1alpha.submit\"(\n\
\\n\
\AnyChainTx\DC2\DC2\n\
\\ETXraw\CAN\SOH \SOH(\fH\NULR\ETXrawB\ACK\n\
\\EOTtype\"E\n\
\\SISubmitTxRequest\DC22\n\
\\STXtx\CAN\SOH \ETX(\v2\".utxorpc.v1alpha.submit.AnyChainTxR\STXtx\"U\n\
\\SOTxSubmitResult\DC2\DC2\n\
\\ETXref\CAN\SOH \SOH(\fH\NULR\ETXref\DC2%\n\
\\rerror_message\CAN\STX \SOH(\tH\NULR\ferrorMessageB\b\n\
\\ACKresult\"T\n\
\\DLESubmitTxResponse\DC2@\n\
\\aresults\CAN\SOH \ETX(\v2&.utxorpc.v1alpha.submit.TxSubmitResultR\aresults2n\n\
\\rSubmitService\DC2]\n\
\\bSubmitTx\DC2'.utxorpc.v1alpha.submit.SubmitTxRequest\SUB(.utxorpc.v1alpha.submit.SubmitTxResponseJ\176\b\n\
\\ACK\DC2\EOT\NUL\NUL!\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\US\n\
\E\n\
\\STX\EOT\NUL\DC2\EOT\ENQ\NUL\t\SOH\SUB9 Represents a transaction from any supported blockchain.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\ENQ\b\DC2\n\
\\f\n\
\\EOT\EOT\NUL\b\NUL\DC2\EOT\ACK\STX\b\ETX\n\
\\f\n\
\\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\ACK\b\f\n\
\$\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\a\EOT\DC2\"\ETB Raw transaction data.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\a\EOT\t\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\a\n\
\\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\a\DLE\DC1\n\
\?\n\
\\STX\EOT\SOH\DC2\EOT\f\NUL\SO\SOH\SUB3 Request to submit transactions to the blockchain.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\f\b\ETB\n\
\.\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\r\STX\GS\"! List of transactions to submit.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\r\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\r\v\NAK\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\r\SYN\CAN\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\r\ESC\FS\n\
\ \n\
\\STX\EOT\STX\DC2\EOT\DC1\NUL\SYN\SOH\SUB\DC4 TODO u5c: new type\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\DC1\b\SYN\n\
\\f\n\
\\EOT\EOT\STX\b\NUL\DC2\EOT\DC2\STX\NAK\ETX\n\
\\f\n\
\\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX\DC2\b\SO\n\
\&\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX\DC3\EOT\DC2\"\EM Transaction references.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX\DC3\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\DC3\n\
\\r\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\DC3\DLE\DC1\n\
\ \n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX\DC4\EOT\GS\"\DC3 The error message\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX\DC4\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX\DC4\v\CAN\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX\DC4\ESC\FS\n\
\c\n\
\\STX\EOT\ETX\DC2\EOT\SUB\NUL\FS\SOH\SUBW Response containing references to the submitted transactions.\n\
\ TODO u5c: changed type\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX\SUB\b\CAN\n\
\G\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\ESC\STX&\": List of either transaction references or error messages.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX\ESC\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\ESC\v\EM\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\ESC\SUB!\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\ESC$%\n\
\W\n\
\\STX\ACK\NUL\DC2\EOT\US\NUL!\SOH\SUBK Service definition for submitting transactions and checking their status.\n\
\\n\
\\n\
\\n\
\\ETX\ACK\NUL\SOH\DC2\ETX\US\b\NAK\n\
\5\n\
\\EOT\ACK\NUL\STX\NUL\DC2\ETX \STX;\"( Submit transactions to the blockchain.\n\
\\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX \ACK\SO\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX \SI\RS\n\
\\f\n\
\\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX )9b\ACKproto3"