{-# 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.Temporal.Api.Common.V1.Message (
ActivityType(), Callback(), Callback'Variant(..), _Callback'Nexus',
Callback'Nexus(), Callback'Nexus'HeaderEntry(), DataBlob(),
Header(), Header'FieldsEntry(), Memo(), Memo'FieldsEntry(),
MeteringMetadata(), Payload(), Payload'MetadataEntry(), Payloads(),
ResetOptions(), ResetOptions'Target(..),
_ResetOptions'FirstWorkflowTask, _ResetOptions'LastWorkflowTask,
_ResetOptions'WorkflowTaskId, _ResetOptions'BuildId, RetryPolicy(),
SearchAttributes(), SearchAttributes'IndexedFieldsEntry(),
WorkerVersionCapabilities(), WorkerVersionStamp(),
WorkflowExecution(), WorkflowType()
) 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.Duration
import qualified Proto.Google.Protobuf.Empty
import qualified Proto.Temporal.Api.Enums.V1.Common
import qualified Proto.Temporal.Api.Enums.V1.Reset
data ActivityType
= ActivityType'_constructor {ActivityType -> Text
_ActivityType'name :: !Data.Text.Text,
ActivityType -> FieldSet
_ActivityType'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ActivityType -> ActivityType -> Bool
(ActivityType -> ActivityType -> Bool)
-> (ActivityType -> ActivityType -> Bool) -> Eq ActivityType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityType -> ActivityType -> Bool
== :: ActivityType -> ActivityType -> Bool
$c/= :: ActivityType -> ActivityType -> Bool
/= :: ActivityType -> ActivityType -> Bool
Prelude.Eq, Eq ActivityType
Eq ActivityType =>
(ActivityType -> ActivityType -> Ordering)
-> (ActivityType -> ActivityType -> Bool)
-> (ActivityType -> ActivityType -> Bool)
-> (ActivityType -> ActivityType -> Bool)
-> (ActivityType -> ActivityType -> Bool)
-> (ActivityType -> ActivityType -> ActivityType)
-> (ActivityType -> ActivityType -> ActivityType)
-> Ord ActivityType
ActivityType -> ActivityType -> Bool
ActivityType -> ActivityType -> Ordering
ActivityType -> ActivityType -> ActivityType
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 :: ActivityType -> ActivityType -> Ordering
compare :: ActivityType -> ActivityType -> Ordering
$c< :: ActivityType -> ActivityType -> Bool
< :: ActivityType -> ActivityType -> Bool
$c<= :: ActivityType -> ActivityType -> Bool
<= :: ActivityType -> ActivityType -> Bool
$c> :: ActivityType -> ActivityType -> Bool
> :: ActivityType -> ActivityType -> Bool
$c>= :: ActivityType -> ActivityType -> Bool
>= :: ActivityType -> ActivityType -> Bool
$cmax :: ActivityType -> ActivityType -> ActivityType
max :: ActivityType -> ActivityType -> ActivityType
$cmin :: ActivityType -> ActivityType -> ActivityType
min :: ActivityType -> ActivityType -> ActivityType
Prelude.Ord)
instance Prelude.Show ActivityType where
showsPrec :: Int -> ActivityType -> ShowS
showsPrec Int
_ ActivityType
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ActivityType -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ActivityType
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ActivityType "name" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (Text -> f Text) -> ActivityType -> f ActivityType
fieldOf Proxy# "name"
_
= ((Text -> f Text) -> ActivityType -> f ActivityType)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ActivityType
-> f ActivityType
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityType -> Text)
-> (ActivityType -> Text -> ActivityType)
-> Lens ActivityType ActivityType Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityType -> Text
_ActivityType'name (\ ActivityType
x__ Text
y__ -> ActivityType
x__ {_ActivityType'name = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ActivityType where
messageName :: Proxy ActivityType -> Text
messageName Proxy ActivityType
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.ActivityType"
packedMessageDescriptor :: Proxy ActivityType -> ByteString
packedMessageDescriptor Proxy ActivityType
_
= ByteString
"\n\
\\fActivityType\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname"
packedFileDescriptor :: Proxy ActivityType -> ByteString
packedFileDescriptor Proxy ActivityType
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ActivityType)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor ActivityType
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ActivityType Text
-> FieldDescriptor ActivityType
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens ActivityType ActivityType Text Text
-> FieldAccessor ActivityType Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"name")) ::
Data.ProtoLens.FieldDescriptor ActivityType
in
[(Tag, FieldDescriptor ActivityType)]
-> Map Tag (FieldDescriptor ActivityType)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ActivityType
name__field_descriptor)]
unknownFields :: Lens' ActivityType FieldSet
unknownFields
= (ActivityType -> FieldSet)
-> (ActivityType -> FieldSet -> ActivityType)
-> Lens' ActivityType FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityType -> FieldSet
_ActivityType'_unknownFields
(\ ActivityType
x__ FieldSet
y__ -> ActivityType
x__ {_ActivityType'_unknownFields = y__})
defMessage :: ActivityType
defMessage
= ActivityType'_constructor
{_ActivityType'name :: Text
_ActivityType'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ActivityType'_unknownFields :: FieldSet
_ActivityType'_unknownFields = []}
parseMessage :: Parser ActivityType
parseMessage
= let
loop ::
ActivityType -> Data.ProtoLens.Encoding.Bytes.Parser ActivityType
loop :: ActivityType -> Parser ActivityType
loop ActivityType
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 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
"name"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") 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 ActivityType -> String -> Parser ActivityType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ActivityType -> Parser ActivityType
loop ActivityType
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ActivityType"
buildMessage :: ActivityType -> Builder
buildMessage
= \ ActivityType
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text ActivityType ActivityType Text Text
-> ActivityType -> Text
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 @"name") ActivityType
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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 ActivityType ActivityType FieldSet FieldSet
-> ActivityType -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ActivityType ActivityType FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ActivityType FieldSet
Data.ProtoLens.unknownFields ActivityType
_x))
instance Control.DeepSeq.NFData ActivityType where
rnf :: ActivityType -> ()
rnf
= \ ActivityType
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityType -> FieldSet
_ActivityType'_unknownFields ActivityType
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ActivityType -> Text
_ActivityType'name ActivityType
x__) ())
data Callback
= Callback'_constructor {Callback -> Maybe Callback'Variant
_Callback'variant :: !(Prelude.Maybe Callback'Variant),
Callback -> FieldSet
_Callback'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Callback -> Callback -> Bool
(Callback -> Callback -> Bool)
-> (Callback -> Callback -> Bool) -> Eq Callback
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Callback -> Callback -> Bool
== :: Callback -> Callback -> Bool
$c/= :: Callback -> Callback -> Bool
/= :: Callback -> Callback -> Bool
Prelude.Eq, Eq Callback
Eq Callback =>
(Callback -> Callback -> Ordering)
-> (Callback -> Callback -> Bool)
-> (Callback -> Callback -> Bool)
-> (Callback -> Callback -> Bool)
-> (Callback -> Callback -> Bool)
-> (Callback -> Callback -> Callback)
-> (Callback -> Callback -> Callback)
-> Ord Callback
Callback -> Callback -> Bool
Callback -> Callback -> Ordering
Callback -> Callback -> Callback
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 :: Callback -> Callback -> Ordering
compare :: Callback -> Callback -> Ordering
$c< :: Callback -> Callback -> Bool
< :: Callback -> Callback -> Bool
$c<= :: Callback -> Callback -> Bool
<= :: Callback -> Callback -> Bool
$c> :: Callback -> Callback -> Bool
> :: Callback -> Callback -> Bool
$c>= :: Callback -> Callback -> Bool
>= :: Callback -> Callback -> Bool
$cmax :: Callback -> Callback -> Callback
max :: Callback -> Callback -> Callback
$cmin :: Callback -> Callback -> Callback
min :: Callback -> Callback -> Callback
Prelude.Ord)
instance Prelude.Show Callback where
showsPrec :: Int -> Callback -> ShowS
showsPrec Int
_ Callback
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Callback -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Callback
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Callback'Variant
= Callback'Nexus' !Callback'Nexus
deriving stock (Int -> Callback'Variant -> ShowS
[Callback'Variant] -> ShowS
Callback'Variant -> String
(Int -> Callback'Variant -> ShowS)
-> (Callback'Variant -> String)
-> ([Callback'Variant] -> ShowS)
-> Show Callback'Variant
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Callback'Variant -> ShowS
showsPrec :: Int -> Callback'Variant -> ShowS
$cshow :: Callback'Variant -> String
show :: Callback'Variant -> String
$cshowList :: [Callback'Variant] -> ShowS
showList :: [Callback'Variant] -> ShowS
Prelude.Show, Callback'Variant -> Callback'Variant -> Bool
(Callback'Variant -> Callback'Variant -> Bool)
-> (Callback'Variant -> Callback'Variant -> Bool)
-> Eq Callback'Variant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Callback'Variant -> Callback'Variant -> Bool
== :: Callback'Variant -> Callback'Variant -> Bool
$c/= :: Callback'Variant -> Callback'Variant -> Bool
/= :: Callback'Variant -> Callback'Variant -> Bool
Prelude.Eq, Eq Callback'Variant
Eq Callback'Variant =>
(Callback'Variant -> Callback'Variant -> Ordering)
-> (Callback'Variant -> Callback'Variant -> Bool)
-> (Callback'Variant -> Callback'Variant -> Bool)
-> (Callback'Variant -> Callback'Variant -> Bool)
-> (Callback'Variant -> Callback'Variant -> Bool)
-> (Callback'Variant -> Callback'Variant -> Callback'Variant)
-> (Callback'Variant -> Callback'Variant -> Callback'Variant)
-> Ord Callback'Variant
Callback'Variant -> Callback'Variant -> Bool
Callback'Variant -> Callback'Variant -> Ordering
Callback'Variant -> Callback'Variant -> Callback'Variant
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 :: Callback'Variant -> Callback'Variant -> Ordering
compare :: Callback'Variant -> Callback'Variant -> Ordering
$c< :: Callback'Variant -> Callback'Variant -> Bool
< :: Callback'Variant -> Callback'Variant -> Bool
$c<= :: Callback'Variant -> Callback'Variant -> Bool
<= :: Callback'Variant -> Callback'Variant -> Bool
$c> :: Callback'Variant -> Callback'Variant -> Bool
> :: Callback'Variant -> Callback'Variant -> Bool
$c>= :: Callback'Variant -> Callback'Variant -> Bool
>= :: Callback'Variant -> Callback'Variant -> Bool
$cmax :: Callback'Variant -> Callback'Variant -> Callback'Variant
max :: Callback'Variant -> Callback'Variant -> Callback'Variant
$cmin :: Callback'Variant -> Callback'Variant -> Callback'Variant
min :: Callback'Variant -> Callback'Variant -> Callback'Variant
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Callback "maybe'variant" (Prelude.Maybe Callback'Variant) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'variant"
-> (Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> Callback
-> f Callback
fieldOf Proxy# "maybe'variant"
_
= ((Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> Callback -> f Callback)
-> ((Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> (Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> Callback
-> f Callback
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Callback -> Maybe Callback'Variant)
-> (Callback -> Maybe Callback'Variant -> Callback)
-> Lens
Callback Callback (Maybe Callback'Variant) (Maybe Callback'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback -> Maybe Callback'Variant
_Callback'variant (\ Callback
x__ Maybe Callback'Variant
y__ -> Callback
x__ {_Callback'variant = y__}))
(Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> Maybe Callback'Variant -> f (Maybe Callback'Variant)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Callback "maybe'nexus" (Prelude.Maybe Callback'Nexus) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nexus"
-> (Maybe Callback'Nexus -> f (Maybe Callback'Nexus))
-> Callback
-> f Callback
fieldOf Proxy# "maybe'nexus"
_
= ((Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> Callback -> f Callback)
-> ((Maybe Callback'Nexus -> f (Maybe Callback'Nexus))
-> Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> (Maybe Callback'Nexus -> f (Maybe Callback'Nexus))
-> Callback
-> f Callback
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Callback -> Maybe Callback'Variant)
-> (Callback -> Maybe Callback'Variant -> Callback)
-> Lens
Callback Callback (Maybe Callback'Variant) (Maybe Callback'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback -> Maybe Callback'Variant
_Callback'variant (\ Callback
x__ Maybe Callback'Variant
y__ -> Callback
x__ {_Callback'variant = y__}))
((Maybe Callback'Variant -> Maybe Callback'Nexus)
-> (Maybe Callback'Variant
-> Maybe Callback'Nexus -> Maybe Callback'Variant)
-> Lens
(Maybe Callback'Variant)
(Maybe Callback'Variant)
(Maybe Callback'Nexus)
(Maybe Callback'Nexus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Callback'Variant
x__
-> case Maybe Callback'Variant
x__ of
(Prelude.Just (Callback'Nexus' Callback'Nexus
x__val)) -> Callback'Nexus -> Maybe Callback'Nexus
forall a. a -> Maybe a
Prelude.Just Callback'Nexus
x__val
Maybe Callback'Variant
_otherwise -> Maybe Callback'Nexus
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Callback'Variant
_ Maybe Callback'Nexus
y__ -> (Callback'Nexus -> Callback'Variant)
-> Maybe Callback'Nexus -> Maybe Callback'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Callback'Nexus -> Callback'Variant
Callback'Nexus' Maybe Callback'Nexus
y__))
instance Data.ProtoLens.Field.HasField Callback "nexus" Callback'Nexus where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nexus"
-> (Callback'Nexus -> f Callback'Nexus) -> Callback -> f Callback
fieldOf Proxy# "nexus"
_
= ((Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> Callback -> f Callback)
-> ((Callback'Nexus -> f Callback'Nexus)
-> Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> (Callback'Nexus -> f Callback'Nexus)
-> Callback
-> f Callback
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Callback -> Maybe Callback'Variant)
-> (Callback -> Maybe Callback'Variant -> Callback)
-> Lens
Callback Callback (Maybe Callback'Variant) (Maybe Callback'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback -> Maybe Callback'Variant
_Callback'variant (\ Callback
x__ Maybe Callback'Variant
y__ -> Callback
x__ {_Callback'variant = y__}))
(((Maybe Callback'Nexus -> f (Maybe Callback'Nexus))
-> Maybe Callback'Variant -> f (Maybe Callback'Variant))
-> ((Callback'Nexus -> f Callback'Nexus)
-> Maybe Callback'Nexus -> f (Maybe Callback'Nexus))
-> (Callback'Nexus -> f Callback'Nexus)
-> Maybe Callback'Variant
-> f (Maybe Callback'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Callback'Variant -> Maybe Callback'Nexus)
-> (Maybe Callback'Variant
-> Maybe Callback'Nexus -> Maybe Callback'Variant)
-> Lens
(Maybe Callback'Variant)
(Maybe Callback'Variant)
(Maybe Callback'Nexus)
(Maybe Callback'Nexus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Callback'Variant
x__
-> case Maybe Callback'Variant
x__ of
(Prelude.Just (Callback'Nexus' Callback'Nexus
x__val)) -> Callback'Nexus -> Maybe Callback'Nexus
forall a. a -> Maybe a
Prelude.Just Callback'Nexus
x__val
Maybe Callback'Variant
_otherwise -> Maybe Callback'Nexus
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Callback'Variant
_ Maybe Callback'Nexus
y__ -> (Callback'Nexus -> Callback'Variant)
-> Maybe Callback'Nexus -> Maybe Callback'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Callback'Nexus -> Callback'Variant
Callback'Nexus' Maybe Callback'Nexus
y__))
(Callback'Nexus -> Lens' (Maybe Callback'Nexus) Callback'Nexus
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Callback'Nexus
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Callback where
messageName :: Proxy Callback -> Text
messageName Proxy Callback
_ = String -> Text
Data.Text.pack String
"temporal.api.common.v1.Callback"
packedMessageDescriptor :: Proxy Callback -> ByteString
packedMessageDescriptor Proxy Callback
_
= ByteString
"\n\
\\bCallback\DC2>\n\
\\ENQnexus\CAN\STX \SOH(\v2&.temporal.api.common.v1.Callback.NexusH\NULR\ENQnexus\SUB\160\SOH\n\
\\ENQNexus\DC2\DLE\n\
\\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2J\n\
\\ACKheader\CAN\STX \ETX(\v22.temporal.api.common.v1.Callback.Nexus.HeaderEntryR\ACKheader\SUB9\n\
\\vHeaderEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\t\n\
\\avariantJ\EOT\b\SOH\DLE\STX"
packedFileDescriptor :: Proxy Callback -> ByteString
packedFileDescriptor Proxy Callback
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Callback)
fieldsByTag
= let
nexus__field_descriptor :: FieldDescriptor Callback
nexus__field_descriptor
= String
-> FieldTypeDescriptor Callback'Nexus
-> FieldAccessor Callback Callback'Nexus
-> FieldDescriptor Callback
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"nexus"
(MessageOrGroup -> FieldTypeDescriptor Callback'Nexus
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Callback'Nexus)
(Lens' Callback (Maybe Callback'Nexus)
-> FieldAccessor Callback Callback'Nexus
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'nexus")) ::
Data.ProtoLens.FieldDescriptor Callback
in
[(Tag, FieldDescriptor Callback)]
-> Map Tag (FieldDescriptor Callback)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Callback
nexus__field_descriptor)]
unknownFields :: Lens' Callback FieldSet
unknownFields
= (Callback -> FieldSet)
-> (Callback -> FieldSet -> Callback) -> Lens' Callback FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback -> FieldSet
_Callback'_unknownFields
(\ Callback
x__ FieldSet
y__ -> Callback
x__ {_Callback'_unknownFields = y__})
defMessage :: Callback
defMessage
= Callback'_constructor
{_Callback'variant :: Maybe Callback'Variant
_Callback'variant = Maybe Callback'Variant
forall a. Maybe a
Prelude.Nothing,
_Callback'_unknownFields :: FieldSet
_Callback'_unknownFields = []}
parseMessage :: Parser Callback
parseMessage
= let
loop :: Callback -> Data.ProtoLens.Encoding.Bytes.Parser Callback
loop :: Callback -> Parser Callback
loop Callback
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
18
-> do y <- Parser Callback'Nexus -> String -> Parser Callback'Nexus
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
"nexus"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"nexus") 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 Callback -> String -> Parser Callback
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Callback -> Parser Callback
loop Callback
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Callback"
buildMessage :: Callback -> Builder
buildMessage
= \ Callback
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Callback'Variant)
Callback
Callback
(Maybe Callback'Variant)
(Maybe Callback'Variant)
-> Callback -> Maybe Callback'Variant
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'variant") Callback
_x
of
Maybe Callback'Variant
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (Callback'Nexus' Callback'Nexus
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Callback'Nexus -> ByteString) -> Callback'Nexus -> 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))
Callback'Nexus -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Callback'Nexus
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Callback Callback FieldSet FieldSet
-> Callback -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Callback Callback FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Callback FieldSet
Data.ProtoLens.unknownFields Callback
_x))
instance Control.DeepSeq.NFData Callback where
rnf :: Callback -> ()
rnf
= \ Callback
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Callback -> FieldSet
_Callback'_unknownFields Callback
x__)
(Maybe Callback'Variant -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Callback -> Maybe Callback'Variant
_Callback'variant Callback
x__) ())
instance Control.DeepSeq.NFData Callback'Variant where
rnf :: Callback'Variant -> ()
rnf (Callback'Nexus' Callback'Nexus
x__) = Callback'Nexus -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Callback'Nexus
x__
_Callback'Nexus' ::
Data.ProtoLens.Prism.Prism' Callback'Variant Callback'Nexus
_Callback'Nexus' :: Prism' Callback'Variant Callback'Nexus
_Callback'Nexus'
= (Callback'Nexus -> Callback'Variant)
-> (Callback'Variant -> Maybe Callback'Nexus)
-> Prism' Callback'Variant Callback'Nexus
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Callback'Nexus -> Callback'Variant
Callback'Nexus'
(\ Callback'Variant
p__
-> case Callback'Variant
p__ of (Callback'Nexus' Callback'Nexus
p__val) -> Callback'Nexus -> Maybe Callback'Nexus
forall a. a -> Maybe a
Prelude.Just Callback'Nexus
p__val)
data Callback'Nexus
= Callback'Nexus'_constructor {Callback'Nexus -> Text
_Callback'Nexus'url :: !Data.Text.Text,
:: !(Data.Map.Map Data.Text.Text Data.Text.Text),
Callback'Nexus -> FieldSet
_Callback'Nexus'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Callback'Nexus -> Callback'Nexus -> Bool
(Callback'Nexus -> Callback'Nexus -> Bool)
-> (Callback'Nexus -> Callback'Nexus -> Bool) -> Eq Callback'Nexus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Callback'Nexus -> Callback'Nexus -> Bool
== :: Callback'Nexus -> Callback'Nexus -> Bool
$c/= :: Callback'Nexus -> Callback'Nexus -> Bool
/= :: Callback'Nexus -> Callback'Nexus -> Bool
Prelude.Eq, Eq Callback'Nexus
Eq Callback'Nexus =>
(Callback'Nexus -> Callback'Nexus -> Ordering)
-> (Callback'Nexus -> Callback'Nexus -> Bool)
-> (Callback'Nexus -> Callback'Nexus -> Bool)
-> (Callback'Nexus -> Callback'Nexus -> Bool)
-> (Callback'Nexus -> Callback'Nexus -> Bool)
-> (Callback'Nexus -> Callback'Nexus -> Callback'Nexus)
-> (Callback'Nexus -> Callback'Nexus -> Callback'Nexus)
-> Ord Callback'Nexus
Callback'Nexus -> Callback'Nexus -> Bool
Callback'Nexus -> Callback'Nexus -> Ordering
Callback'Nexus -> Callback'Nexus -> Callback'Nexus
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 :: Callback'Nexus -> Callback'Nexus -> Ordering
compare :: Callback'Nexus -> Callback'Nexus -> Ordering
$c< :: Callback'Nexus -> Callback'Nexus -> Bool
< :: Callback'Nexus -> Callback'Nexus -> Bool
$c<= :: Callback'Nexus -> Callback'Nexus -> Bool
<= :: Callback'Nexus -> Callback'Nexus -> Bool
$c> :: Callback'Nexus -> Callback'Nexus -> Bool
> :: Callback'Nexus -> Callback'Nexus -> Bool
$c>= :: Callback'Nexus -> Callback'Nexus -> Bool
>= :: Callback'Nexus -> Callback'Nexus -> Bool
$cmax :: Callback'Nexus -> Callback'Nexus -> Callback'Nexus
max :: Callback'Nexus -> Callback'Nexus -> Callback'Nexus
$cmin :: Callback'Nexus -> Callback'Nexus -> Callback'Nexus
min :: Callback'Nexus -> Callback'Nexus -> Callback'Nexus
Prelude.Ord)
instance Prelude.Show Callback'Nexus where
showsPrec :: Int -> Callback'Nexus -> ShowS
showsPrec Int
_ Callback'Nexus
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Callback'Nexus -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Callback'Nexus
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Callback'Nexus "url" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "url"
-> (Text -> f Text) -> Callback'Nexus -> f Callback'Nexus
fieldOf Proxy# "url"
_
= ((Text -> f Text) -> Callback'Nexus -> f Callback'Nexus)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Callback'Nexus
-> f Callback'Nexus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Callback'Nexus -> Text)
-> (Callback'Nexus -> Text -> Callback'Nexus)
-> Lens Callback'Nexus Callback'Nexus Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback'Nexus -> Text
_Callback'Nexus'url (\ Callback'Nexus
x__ Text
y__ -> Callback'Nexus
x__ {_Callback'Nexus'url = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Callback'Nexus "header" (Data.Map.Map Data.Text.Text Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Map Text Text -> f (Map Text Text))
-> Callback'Nexus
-> f Callback'Nexus
fieldOf Proxy# "header"
_
= ((Map Text Text -> f (Map Text Text))
-> Callback'Nexus -> f Callback'Nexus)
-> ((Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> Callback'Nexus
-> f Callback'Nexus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Callback'Nexus -> Map Text Text)
-> (Callback'Nexus -> Map Text Text -> Callback'Nexus)
-> Lens
Callback'Nexus Callback'Nexus (Map Text Text) (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback'Nexus -> Map Text Text
_Callback'Nexus'header
(\ Callback'Nexus
x__ Map Text Text
y__ -> Callback'Nexus
x__ {_Callback'Nexus'header = y__}))
(Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Callback'Nexus where
messageName :: Proxy Callback'Nexus -> Text
messageName Proxy Callback'Nexus
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.Callback.Nexus"
packedMessageDescriptor :: Proxy Callback'Nexus -> ByteString
packedMessageDescriptor Proxy Callback'Nexus
_
= ByteString
"\n\
\\ENQNexus\DC2\DLE\n\
\\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2J\n\
\\ACKheader\CAN\STX \ETX(\v22.temporal.api.common.v1.Callback.Nexus.HeaderEntryR\ACKheader\SUB9\n\
\\vHeaderEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Callback'Nexus -> ByteString
packedFileDescriptor Proxy Callback'Nexus
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Callback'Nexus)
fieldsByTag
= let
url__field_descriptor :: FieldDescriptor Callback'Nexus
url__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Callback'Nexus Text
-> FieldDescriptor Callback'Nexus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"url"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Callback'Nexus Callback'Nexus Text Text
-> FieldAccessor Callback'Nexus Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"url")) ::
Data.ProtoLens.FieldDescriptor Callback'Nexus
header__field_descriptor :: FieldDescriptor Callback'Nexus
header__field_descriptor
= String
-> FieldTypeDescriptor Callback'Nexus'HeaderEntry
-> FieldAccessor Callback'Nexus Callback'Nexus'HeaderEntry
-> FieldDescriptor Callback'Nexus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"header"
(MessageOrGroup -> FieldTypeDescriptor Callback'Nexus'HeaderEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Callback'Nexus'HeaderEntry)
(Lens' Callback'Nexus'HeaderEntry Text
-> Lens' Callback'Nexus'HeaderEntry Text
-> Lens
Callback'Nexus Callback'Nexus (Map Text Text) (Map Text Text)
-> FieldAccessor Callback'Nexus Callback'Nexus'HeaderEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"header")) ::
Data.ProtoLens.FieldDescriptor Callback'Nexus
in
[(Tag, FieldDescriptor Callback'Nexus)]
-> Map Tag (FieldDescriptor Callback'Nexus)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Callback'Nexus
url__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Callback'Nexus
header__field_descriptor)]
unknownFields :: Lens' Callback'Nexus FieldSet
unknownFields
= (Callback'Nexus -> FieldSet)
-> (Callback'Nexus -> FieldSet -> Callback'Nexus)
-> Lens' Callback'Nexus FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback'Nexus -> FieldSet
_Callback'Nexus'_unknownFields
(\ Callback'Nexus
x__ FieldSet
y__ -> Callback'Nexus
x__ {_Callback'Nexus'_unknownFields = y__})
defMessage :: Callback'Nexus
defMessage
= Callback'Nexus'_constructor
{_Callback'Nexus'url :: Text
_Callback'Nexus'url = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Callback'Nexus'header :: Map Text Text
_Callback'Nexus'header = Map Text Text
forall k a. Map k a
Data.Map.empty,
_Callback'Nexus'_unknownFields :: FieldSet
_Callback'Nexus'_unknownFields = []}
parseMessage :: Parser Callback'Nexus
parseMessage
= let
loop ::
Callback'Nexus
-> Data.ProtoLens.Encoding.Bytes.Parser Callback'Nexus
loop :: Callback'Nexus -> Parser Callback'Nexus
loop Callback'Nexus
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 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
"url"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"url") y x)
Word64
18
-> do !(entry :: Callback'Nexus'HeaderEntry) <- Parser Callback'Nexus'HeaderEntry
-> String -> Parser Callback'Nexus'HeaderEntry
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
"header"
(let
key = FoldLike
Text
Callback'Nexus'HeaderEntry
Callback'Nexus'HeaderEntry
Text
Text
-> Callback'Nexus'HeaderEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Callback'Nexus'HeaderEntry
entry
value
= FoldLike
Text
Callback'Nexus'HeaderEntry
Callback'Nexus'HeaderEntry
Text
Text
-> Callback'Nexus'HeaderEntry -> Text
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 @"value") Callback'Nexus'HeaderEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"header")
(\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t) 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 Callback'Nexus -> String -> Parser Callback'Nexus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Callback'Nexus -> Parser Callback'Nexus
loop Callback'Nexus
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Nexus"
buildMessage :: Callback'Nexus -> Builder
buildMessage
= \ Callback'Nexus
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text Callback'Nexus Callback'Nexus Text Text
-> Callback'Nexus -> Text
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 @"url") Callback'Nexus
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ (Text, 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)
-> (Callback'Nexus'HeaderEntry -> ByteString)
-> Callback'Nexus'HeaderEntry
-> 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))
Callback'Nexus'HeaderEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
Callback'Nexus'HeaderEntry Callback'Nexus'HeaderEntry Text Text
-> Text -> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
(Setter
Callback'Nexus'HeaderEntry Callback'Nexus'HeaderEntry Text Text
-> Text -> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry
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 @"value") ((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
(Callback'Nexus'HeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: Callback'Nexus'HeaderEntry)))))
(Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Text)
Callback'Nexus
Callback'Nexus
(Map Text Text)
(Map Text Text)
-> Callback'Nexus -> Map Text Text
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 @"header") Callback'Nexus
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Callback'Nexus Callback'Nexus FieldSet FieldSet
-> Callback'Nexus -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Callback'Nexus Callback'Nexus FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Callback'Nexus FieldSet
Data.ProtoLens.unknownFields Callback'Nexus
_x)))
instance Control.DeepSeq.NFData Callback'Nexus where
rnf :: Callback'Nexus -> ()
rnf
= \ Callback'Nexus
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Callback'Nexus -> FieldSet
_Callback'Nexus'_unknownFields Callback'Nexus
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Callback'Nexus -> Text
_Callback'Nexus'url Callback'Nexus
x__)
(Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Callback'Nexus -> Map Text Text
_Callback'Nexus'header Callback'Nexus
x__) ()))
data
= { :: !Data.Text.Text,
:: !Data.Text.Text,
:: !Data.ProtoLens.FieldSet}
deriving stock (Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
(Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool)
-> (Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Bool)
-> Eq Callback'Nexus'HeaderEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
== :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
$c/= :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
/= :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
Prelude.Eq, Eq Callback'Nexus'HeaderEntry
Eq Callback'Nexus'HeaderEntry =>
(Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Ordering)
-> (Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Bool)
-> (Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Bool)
-> (Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Bool)
-> (Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Bool)
-> (Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry)
-> (Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry)
-> Ord Callback'Nexus'HeaderEntry
Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Ordering
Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry
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 :: Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Ordering
compare :: Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Ordering
$c< :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
< :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
$c<= :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
<= :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
$c> :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
> :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
$c>= :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
>= :: Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry -> Bool
$cmax :: Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry
max :: Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry
$cmin :: Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry
min :: Callback'Nexus'HeaderEntry
-> Callback'Nexus'HeaderEntry -> Callback'Nexus'HeaderEntry
Prelude.Ord)
instance Prelude.Show Callback'Nexus'HeaderEntry where
showsPrec :: Int -> Callback'Nexus'HeaderEntry -> ShowS
showsPrec Int
_ Callback'Nexus'HeaderEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Callback'Nexus'HeaderEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Callback'Nexus'HeaderEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Callback'Nexus'HeaderEntry "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> Callback'Nexus'HeaderEntry
-> f Callback'Nexus'HeaderEntry
fieldOf Proxy# "key"
_
= ((Text -> f Text)
-> Callback'Nexus'HeaderEntry -> f Callback'Nexus'HeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Callback'Nexus'HeaderEntry
-> f Callback'Nexus'HeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Callback'Nexus'HeaderEntry -> Text)
-> (Callback'Nexus'HeaderEntry
-> Text -> Callback'Nexus'HeaderEntry)
-> Lens' Callback'Nexus'HeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback'Nexus'HeaderEntry -> Text
_Callback'Nexus'HeaderEntry'key
(\ Callback'Nexus'HeaderEntry
x__ Text
y__ -> Callback'Nexus'HeaderEntry
x__ {_Callback'Nexus'HeaderEntry'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Callback'Nexus'HeaderEntry "value" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> Callback'Nexus'HeaderEntry
-> f Callback'Nexus'HeaderEntry
fieldOf Proxy# "value"
_
= ((Text -> f Text)
-> Callback'Nexus'HeaderEntry -> f Callback'Nexus'HeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Callback'Nexus'HeaderEntry
-> f Callback'Nexus'HeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Callback'Nexus'HeaderEntry -> Text)
-> (Callback'Nexus'HeaderEntry
-> Text -> Callback'Nexus'HeaderEntry)
-> Lens' Callback'Nexus'HeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback'Nexus'HeaderEntry -> Text
_Callback'Nexus'HeaderEntry'value
(\ Callback'Nexus'HeaderEntry
x__ Text
y__ -> Callback'Nexus'HeaderEntry
x__ {_Callback'Nexus'HeaderEntry'value = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Callback'Nexus'HeaderEntry where
messageName :: Proxy Callback'Nexus'HeaderEntry -> Text
messageName Proxy Callback'Nexus'HeaderEntry
_
= String -> Text
Data.Text.pack
String
"temporal.api.common.v1.Callback.Nexus.HeaderEntry"
packedMessageDescriptor :: Proxy Callback'Nexus'HeaderEntry -> ByteString
packedMessageDescriptor Proxy Callback'Nexus'HeaderEntry
_
= ByteString
"\n\
\\vHeaderEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Callback'Nexus'HeaderEntry -> ByteString
packedFileDescriptor Proxy Callback'Nexus'HeaderEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Callback'Nexus'HeaderEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor Callback'Nexus'HeaderEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Callback'Nexus'HeaderEntry Text
-> FieldDescriptor Callback'Nexus'HeaderEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' Callback'Nexus'HeaderEntry Text
-> FieldAccessor Callback'Nexus'HeaderEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor Callback'Nexus'HeaderEntry
value__field_descriptor :: FieldDescriptor Callback'Nexus'HeaderEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Callback'Nexus'HeaderEntry Text
-> FieldDescriptor Callback'Nexus'HeaderEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' Callback'Nexus'HeaderEntry Text
-> FieldAccessor Callback'Nexus'HeaderEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"value")) ::
Data.ProtoLens.FieldDescriptor Callback'Nexus'HeaderEntry
in
[(Tag, FieldDescriptor Callback'Nexus'HeaderEntry)]
-> Map Tag (FieldDescriptor Callback'Nexus'HeaderEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Callback'Nexus'HeaderEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Callback'Nexus'HeaderEntry
value__field_descriptor)]
unknownFields :: Lens' Callback'Nexus'HeaderEntry FieldSet
unknownFields
= (Callback'Nexus'HeaderEntry -> FieldSet)
-> (Callback'Nexus'HeaderEntry
-> FieldSet -> Callback'Nexus'HeaderEntry)
-> Lens' Callback'Nexus'HeaderEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Callback'Nexus'HeaderEntry -> FieldSet
_Callback'Nexus'HeaderEntry'_unknownFields
(\ Callback'Nexus'HeaderEntry
x__ FieldSet
y__
-> Callback'Nexus'HeaderEntry
x__ {_Callback'Nexus'HeaderEntry'_unknownFields = y__})
defMessage :: Callback'Nexus'HeaderEntry
defMessage
= Callback'Nexus'HeaderEntry'_constructor
{_Callback'Nexus'HeaderEntry'key :: Text
_Callback'Nexus'HeaderEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Callback'Nexus'HeaderEntry'value :: Text
_Callback'Nexus'HeaderEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Callback'Nexus'HeaderEntry'_unknownFields :: FieldSet
_Callback'Nexus'HeaderEntry'_unknownFields = []}
parseMessage :: Parser Callback'Nexus'HeaderEntry
parseMessage
= let
loop ::
Callback'Nexus'HeaderEntry
-> Data.ProtoLens.Encoding.Bytes.Parser Callback'Nexus'HeaderEntry
loop :: Callback'Nexus'HeaderEntry -> Parser Callback'Nexus'HeaderEntry
loop Callback'Nexus'HeaderEntry
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 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
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") 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
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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 Callback'Nexus'HeaderEntry
-> String -> Parser Callback'Nexus'HeaderEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Callback'Nexus'HeaderEntry -> Parser Callback'Nexus'HeaderEntry
loop Callback'Nexus'HeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HeaderEntry"
buildMessage :: Callback'Nexus'HeaderEntry -> Builder
buildMessage
= \ Callback'Nexus'HeaderEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
Callback'Nexus'HeaderEntry
Callback'Nexus'HeaderEntry
Text
Text
-> Callback'Nexus'HeaderEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Callback'Nexus'HeaderEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
Callback'Nexus'HeaderEntry
Callback'Nexus'HeaderEntry
Text
Text
-> Callback'Nexus'HeaderEntry -> Text
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 @"value") Callback'Nexus'HeaderEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> 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
Callback'Nexus'HeaderEntry
Callback'Nexus'HeaderEntry
FieldSet
FieldSet
-> Callback'Nexus'HeaderEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
Callback'Nexus'HeaderEntry
Callback'Nexus'HeaderEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Callback'Nexus'HeaderEntry FieldSet
Data.ProtoLens.unknownFields Callback'Nexus'HeaderEntry
_x)))
instance Control.DeepSeq.NFData Callback'Nexus'HeaderEntry where
rnf :: Callback'Nexus'HeaderEntry -> ()
rnf
= \ Callback'Nexus'HeaderEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Callback'Nexus'HeaderEntry -> FieldSet
_Callback'Nexus'HeaderEntry'_unknownFields Callback'Nexus'HeaderEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Callback'Nexus'HeaderEntry -> Text
_Callback'Nexus'HeaderEntry'key Callback'Nexus'HeaderEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Callback'Nexus'HeaderEntry -> Text
_Callback'Nexus'HeaderEntry'value Callback'Nexus'HeaderEntry
x__) ()))
data DataBlob
= DataBlob'_constructor {DataBlob -> EncodingType
_DataBlob'encodingType :: !Proto.Temporal.Api.Enums.V1.Common.EncodingType,
DataBlob -> ByteString
_DataBlob'data' :: !Data.ByteString.ByteString,
DataBlob -> FieldSet
_DataBlob'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (DataBlob -> DataBlob -> Bool
(DataBlob -> DataBlob -> Bool)
-> (DataBlob -> DataBlob -> Bool) -> Eq DataBlob
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DataBlob -> DataBlob -> Bool
== :: DataBlob -> DataBlob -> Bool
$c/= :: DataBlob -> DataBlob -> Bool
/= :: DataBlob -> DataBlob -> Bool
Prelude.Eq, Eq DataBlob
Eq DataBlob =>
(DataBlob -> DataBlob -> Ordering)
-> (DataBlob -> DataBlob -> Bool)
-> (DataBlob -> DataBlob -> Bool)
-> (DataBlob -> DataBlob -> Bool)
-> (DataBlob -> DataBlob -> Bool)
-> (DataBlob -> DataBlob -> DataBlob)
-> (DataBlob -> DataBlob -> DataBlob)
-> Ord DataBlob
DataBlob -> DataBlob -> Bool
DataBlob -> DataBlob -> Ordering
DataBlob -> DataBlob -> DataBlob
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 :: DataBlob -> DataBlob -> Ordering
compare :: DataBlob -> DataBlob -> Ordering
$c< :: DataBlob -> DataBlob -> Bool
< :: DataBlob -> DataBlob -> Bool
$c<= :: DataBlob -> DataBlob -> Bool
<= :: DataBlob -> DataBlob -> Bool
$c> :: DataBlob -> DataBlob -> Bool
> :: DataBlob -> DataBlob -> Bool
$c>= :: DataBlob -> DataBlob -> Bool
>= :: DataBlob -> DataBlob -> Bool
$cmax :: DataBlob -> DataBlob -> DataBlob
max :: DataBlob -> DataBlob -> DataBlob
$cmin :: DataBlob -> DataBlob -> DataBlob
min :: DataBlob -> DataBlob -> DataBlob
Prelude.Ord)
instance Prelude.Show DataBlob where
showsPrec :: Int -> DataBlob -> ShowS
showsPrec Int
_ DataBlob
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(DataBlob -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DataBlob
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DataBlob "encodingType" Proto.Temporal.Api.Enums.V1.Common.EncodingType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "encodingType"
-> (EncodingType -> f EncodingType) -> DataBlob -> f DataBlob
fieldOf Proxy# "encodingType"
_
= ((EncodingType -> f EncodingType) -> DataBlob -> f DataBlob)
-> ((EncodingType -> f EncodingType)
-> EncodingType -> f EncodingType)
-> (EncodingType -> f EncodingType)
-> DataBlob
-> f DataBlob
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DataBlob -> EncodingType)
-> (DataBlob -> EncodingType -> DataBlob)
-> Lens DataBlob DataBlob EncodingType EncodingType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DataBlob -> EncodingType
_DataBlob'encodingType
(\ DataBlob
x__ EncodingType
y__ -> DataBlob
x__ {_DataBlob'encodingType = y__}))
(EncodingType -> f EncodingType) -> EncodingType -> f EncodingType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DataBlob "data'" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "data'"
-> (ByteString -> f ByteString) -> DataBlob -> f DataBlob
fieldOf Proxy# "data'"
_
= ((ByteString -> f ByteString) -> DataBlob -> f DataBlob)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> DataBlob
-> f DataBlob
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DataBlob -> ByteString)
-> (DataBlob -> ByteString -> DataBlob)
-> Lens DataBlob DataBlob ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DataBlob -> ByteString
_DataBlob'data' (\ DataBlob
x__ ByteString
y__ -> DataBlob
x__ {_DataBlob'data' = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DataBlob where
messageName :: Proxy DataBlob -> Text
messageName Proxy DataBlob
_ = String -> Text
Data.Text.pack String
"temporal.api.common.v1.DataBlob"
packedMessageDescriptor :: Proxy DataBlob -> ByteString
packedMessageDescriptor Proxy DataBlob
_
= ByteString
"\n\
\\bDataBlob\DC2H\n\
\\rencoding_type\CAN\SOH \SOH(\SO2#.temporal.api.enums.v1.EncodingTypeR\fencodingType\DC2\DC2\n\
\\EOTdata\CAN\STX \SOH(\fR\EOTdata"
packedFileDescriptor :: Proxy DataBlob -> ByteString
packedFileDescriptor Proxy DataBlob
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor DataBlob)
fieldsByTag
= let
encodingType__field_descriptor :: FieldDescriptor DataBlob
encodingType__field_descriptor
= String
-> FieldTypeDescriptor EncodingType
-> FieldAccessor DataBlob EncodingType
-> FieldDescriptor DataBlob
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"encoding_type"
(ScalarField EncodingType -> FieldTypeDescriptor EncodingType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField EncodingType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Common.EncodingType)
(WireDefault EncodingType
-> Lens DataBlob DataBlob EncodingType EncodingType
-> FieldAccessor DataBlob EncodingType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault EncodingType
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 @"encodingType")) ::
Data.ProtoLens.FieldDescriptor DataBlob
data'__field_descriptor :: FieldDescriptor DataBlob
data'__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor DataBlob ByteString
-> FieldDescriptor DataBlob
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data"
(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 DataBlob DataBlob ByteString ByteString
-> FieldAccessor DataBlob 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 @"data'")) ::
Data.ProtoLens.FieldDescriptor DataBlob
in
[(Tag, FieldDescriptor DataBlob)]
-> Map Tag (FieldDescriptor DataBlob)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DataBlob
encodingType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DataBlob
data'__field_descriptor)]
unknownFields :: Lens' DataBlob FieldSet
unknownFields
= (DataBlob -> FieldSet)
-> (DataBlob -> FieldSet -> DataBlob) -> Lens' DataBlob FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DataBlob -> FieldSet
_DataBlob'_unknownFields
(\ DataBlob
x__ FieldSet
y__ -> DataBlob
x__ {_DataBlob'_unknownFields = y__})
defMessage :: DataBlob
defMessage
= DataBlob'_constructor
{_DataBlob'encodingType :: EncodingType
_DataBlob'encodingType = EncodingType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DataBlob'data' :: ByteString
_DataBlob'data' = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DataBlob'_unknownFields :: FieldSet
_DataBlob'_unknownFields = []}
parseMessage :: Parser DataBlob
parseMessage
= let
loop :: DataBlob -> Data.ProtoLens.Encoding.Bytes.Parser DataBlob
loop :: DataBlob -> Parser DataBlob
loop DataBlob
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser EncodingType -> String -> Parser EncodingType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> EncodingType) -> Parser Int -> Parser EncodingType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> EncodingType
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
"encoding_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"encodingType") y x)
Word64
18
-> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
String
"data"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"data'") 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 DataBlob -> String -> Parser DataBlob
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do DataBlob -> Parser DataBlob
loop DataBlob
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DataBlob"
buildMessage :: DataBlob -> Builder
buildMessage
= \ DataBlob
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: EncodingType
_v
= FoldLike EncodingType DataBlob DataBlob EncodingType EncodingType
-> DataBlob -> EncodingType
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 @"encodingType") DataBlob
_x
in
if EncodingType -> EncodingType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) EncodingType
_v EncodingType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Int -> Builder)
-> (EncodingType -> Int) -> EncodingType -> 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)
EncodingType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum EncodingType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v = FoldLike ByteString DataBlob DataBlob ByteString ByteString
-> DataBlob -> 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 @"data'") DataBlob
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet DataBlob DataBlob FieldSet FieldSet
-> DataBlob -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet DataBlob DataBlob FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DataBlob FieldSet
Data.ProtoLens.unknownFields DataBlob
_x)))
instance Control.DeepSeq.NFData DataBlob where
rnf :: DataBlob -> ()
rnf
= \ DataBlob
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DataBlob -> FieldSet
_DataBlob'_unknownFields DataBlob
x__)
(EncodingType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DataBlob -> EncodingType
_DataBlob'encodingType DataBlob
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DataBlob -> ByteString
_DataBlob'data' DataBlob
x__) ()))
data
= { :: !(Data.Map.Map Data.Text.Text Payload),
:: !Data.ProtoLens.FieldSet}
deriving stock (Header -> Header -> Bool
(Header -> Header -> Bool)
-> (Header -> Header -> Bool) -> Eq Header
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Header -> Header -> Bool
== :: Header -> Header -> Bool
$c/= :: Header -> Header -> Bool
/= :: Header -> Header -> Bool
Prelude.Eq, Eq Header
Eq Header =>
(Header -> Header -> Ordering)
-> (Header -> Header -> Bool)
-> (Header -> Header -> Bool)
-> (Header -> Header -> Bool)
-> (Header -> Header -> Bool)
-> (Header -> Header -> Header)
-> (Header -> Header -> Header)
-> Ord Header
Header -> Header -> Bool
Header -> Header -> Ordering
Header -> Header -> Header
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 :: Header -> Header -> Ordering
compare :: Header -> Header -> Ordering
$c< :: Header -> Header -> Bool
< :: Header -> Header -> Bool
$c<= :: Header -> Header -> Bool
<= :: Header -> Header -> Bool
$c> :: Header -> Header -> Bool
> :: Header -> Header -> Bool
$c>= :: Header -> Header -> Bool
>= :: Header -> Header -> Bool
$cmax :: Header -> Header -> Header
max :: Header -> Header -> Header
$cmin :: Header -> Header -> Header
min :: Header -> Header -> Header
Prelude.Ord)
instance Prelude.Show Header where
showsPrec :: Int -> Header -> ShowS
showsPrec Int
_ Header
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Header -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Header
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Header "fields" (Data.Map.Map Data.Text.Text Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fields"
-> (Map Text Payload -> f (Map Text Payload)) -> Header -> f Header
fieldOf Proxy# "fields"
_
= ((Map Text Payload -> f (Map Text Payload)) -> Header -> f Header)
-> ((Map Text Payload -> f (Map Text Payload))
-> Map Text Payload -> f (Map Text Payload))
-> (Map Text Payload -> f (Map Text Payload))
-> Header
-> f Header
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Header -> Map Text Payload)
-> (Header -> Map Text Payload -> Header)
-> Lens Header Header (Map Text Payload) (Map Text Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Header -> Map Text Payload
_Header'fields (\ Header
x__ Map Text Payload
y__ -> Header
x__ {_Header'fields = y__}))
(Map Text Payload -> f (Map Text Payload))
-> Map Text Payload -> f (Map Text Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Header where
messageName :: Proxy Header -> Text
messageName Proxy Header
_ = String -> Text
Data.Text.pack String
"temporal.api.common.v1.Header"
packedMessageDescriptor :: Proxy Header -> ByteString
packedMessageDescriptor Proxy Header
_
= ByteString
"\n\
\\ACKHeader\DC2B\n\
\\ACKfields\CAN\SOH \ETX(\v2*.temporal.api.common.v1.Header.FieldsEntryR\ACKfields\SUBZ\n\
\\vFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Header -> ByteString
packedFileDescriptor Proxy Header
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Header)
fieldsByTag
= let
fields__field_descriptor :: FieldDescriptor Header
fields__field_descriptor
= String
-> FieldTypeDescriptor Header'FieldsEntry
-> FieldAccessor Header Header'FieldsEntry
-> FieldDescriptor Header
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"fields"
(MessageOrGroup -> FieldTypeDescriptor Header'FieldsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Header'FieldsEntry)
(Lens' Header'FieldsEntry Text
-> Lens' Header'FieldsEntry Payload
-> Lens Header Header (Map Text Payload) (Map Text Payload)
-> FieldAccessor Header Header'FieldsEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fields")) ::
Data.ProtoLens.FieldDescriptor Header
in
[(Tag, FieldDescriptor Header)] -> Map Tag (FieldDescriptor Header)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Header
fields__field_descriptor)]
unknownFields :: Lens' Header FieldSet
unknownFields
= (Header -> FieldSet)
-> (Header -> FieldSet -> Header) -> Lens' Header FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Header -> FieldSet
_Header'_unknownFields
(\ Header
x__ FieldSet
y__ -> Header
x__ {_Header'_unknownFields = y__})
defMessage :: Header
defMessage
= Header'_constructor
{_Header'fields :: Map Text Payload
_Header'fields = Map Text Payload
forall k a. Map k a
Data.Map.empty, _Header'_unknownFields :: FieldSet
_Header'_unknownFields = []}
parseMessage :: Parser Header
parseMessage
= let
loop :: Header -> Data.ProtoLens.Encoding.Bytes.Parser Header
loop :: Header -> Parser Header
loop Header
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 !(entry :: Header'FieldsEntry) <- Parser Header'FieldsEntry -> String -> Parser Header'FieldsEntry
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
"fields"
(let
key = FoldLike Text Header'FieldsEntry Header'FieldsEntry Text Text
-> Header'FieldsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Header'FieldsEntry
entry
value
= FoldLike
Payload Header'FieldsEntry Header'FieldsEntry Payload Payload
-> Header'FieldsEntry -> Payload
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 @"value") Header'FieldsEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"fields")
(\ !Map Text Payload
t -> Text -> Payload -> Map Text Payload -> Map Text Payload
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Payload
value Map Text Payload
t) 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 Header -> String -> Parser Header
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Header -> Parser Header
loop Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Header"
buildMessage :: Header -> Builder
buildMessage
= \ Header
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Payload) -> Builder) -> [(Text, Payload)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ (Text, Payload)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Header'FieldsEntry -> ByteString)
-> Header'FieldsEntry
-> 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))
Header'FieldsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter Header'FieldsEntry Header'FieldsEntry Text Text
-> Text -> Header'FieldsEntry -> Header'FieldsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Payload) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Payload)
_v)
(Setter Header'FieldsEntry Header'FieldsEntry Payload Payload
-> Payload -> Header'FieldsEntry -> Header'FieldsEntry
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 @"value") ((Text, Payload) -> Payload
forall a b. (a, b) -> b
Prelude.snd (Text, Payload)
_v)
(Header'FieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: Header'FieldsEntry)))))
(Map Text Payload -> [(Text, Payload)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Payload)
Header
Header
(Map Text Payload)
(Map Text Payload)
-> Header -> Map Text Payload
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 @"fields") Header
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Header Header FieldSet FieldSet
-> Header -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Header Header FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Header FieldSet
Data.ProtoLens.unknownFields Header
_x))
instance Control.DeepSeq.NFData Header where
rnf :: Header -> ()
rnf
= \ Header
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Header -> FieldSet
_Header'_unknownFields Header
x__)
(Map Text Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Header -> Map Text Payload
_Header'fields Header
x__) ())
data
= { :: !Data.Text.Text,
:: !(Prelude.Maybe Payload),
:: !Data.ProtoLens.FieldSet}
deriving stock (Header'FieldsEntry -> Header'FieldsEntry -> Bool
(Header'FieldsEntry -> Header'FieldsEntry -> Bool)
-> (Header'FieldsEntry -> Header'FieldsEntry -> Bool)
-> Eq Header'FieldsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
== :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
$c/= :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
/= :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
Prelude.Eq, Eq Header'FieldsEntry
Eq Header'FieldsEntry =>
(Header'FieldsEntry -> Header'FieldsEntry -> Ordering)
-> (Header'FieldsEntry -> Header'FieldsEntry -> Bool)
-> (Header'FieldsEntry -> Header'FieldsEntry -> Bool)
-> (Header'FieldsEntry -> Header'FieldsEntry -> Bool)
-> (Header'FieldsEntry -> Header'FieldsEntry -> Bool)
-> (Header'FieldsEntry -> Header'FieldsEntry -> Header'FieldsEntry)
-> (Header'FieldsEntry -> Header'FieldsEntry -> Header'FieldsEntry)
-> Ord Header'FieldsEntry
Header'FieldsEntry -> Header'FieldsEntry -> Bool
Header'FieldsEntry -> Header'FieldsEntry -> Ordering
Header'FieldsEntry -> Header'FieldsEntry -> Header'FieldsEntry
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 :: Header'FieldsEntry -> Header'FieldsEntry -> Ordering
compare :: Header'FieldsEntry -> Header'FieldsEntry -> Ordering
$c< :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
< :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
$c<= :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
<= :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
$c> :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
> :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
$c>= :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
>= :: Header'FieldsEntry -> Header'FieldsEntry -> Bool
$cmax :: Header'FieldsEntry -> Header'FieldsEntry -> Header'FieldsEntry
max :: Header'FieldsEntry -> Header'FieldsEntry -> Header'FieldsEntry
$cmin :: Header'FieldsEntry -> Header'FieldsEntry -> Header'FieldsEntry
min :: Header'FieldsEntry -> Header'FieldsEntry -> Header'FieldsEntry
Prelude.Ord)
instance Prelude.Show Header'FieldsEntry where
showsPrec :: Int -> Header'FieldsEntry -> ShowS
showsPrec Int
_ Header'FieldsEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Header'FieldsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Header'FieldsEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Header'FieldsEntry "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text) -> Header'FieldsEntry -> f Header'FieldsEntry
fieldOf Proxy# "key"
_
= ((Text -> f Text) -> Header'FieldsEntry -> f Header'FieldsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Header'FieldsEntry
-> f Header'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Header'FieldsEntry -> Text)
-> (Header'FieldsEntry -> Text -> Header'FieldsEntry)
-> Lens' Header'FieldsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Header'FieldsEntry -> Text
_Header'FieldsEntry'key
(\ Header'FieldsEntry
x__ Text
y__ -> Header'FieldsEntry
x__ {_Header'FieldsEntry'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Header'FieldsEntry "value" Payload where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Payload -> f Payload)
-> Header'FieldsEntry
-> f Header'FieldsEntry
fieldOf Proxy# "value"
_
= ((Maybe Payload -> f (Maybe Payload))
-> Header'FieldsEntry -> f Header'FieldsEntry)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> Header'FieldsEntry
-> f Header'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Header'FieldsEntry -> Maybe Payload)
-> (Header'FieldsEntry -> Maybe Payload -> Header'FieldsEntry)
-> Lens
Header'FieldsEntry
Header'FieldsEntry
(Maybe Payload)
(Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Header'FieldsEntry -> Maybe Payload
_Header'FieldsEntry'value
(\ Header'FieldsEntry
x__ Maybe Payload
y__ -> Header'FieldsEntry
x__ {_Header'FieldsEntry'value = y__}))
(Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Header'FieldsEntry "maybe'value" (Prelude.Maybe Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Payload -> f (Maybe Payload))
-> Header'FieldsEntry
-> f Header'FieldsEntry
fieldOf Proxy# "maybe'value"
_
= ((Maybe Payload -> f (Maybe Payload))
-> Header'FieldsEntry -> f Header'FieldsEntry)
-> ((Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> Header'FieldsEntry
-> f Header'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Header'FieldsEntry -> Maybe Payload)
-> (Header'FieldsEntry -> Maybe Payload -> Header'FieldsEntry)
-> Lens
Header'FieldsEntry
Header'FieldsEntry
(Maybe Payload)
(Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Header'FieldsEntry -> Maybe Payload
_Header'FieldsEntry'value
(\ Header'FieldsEntry
x__ Maybe Payload
y__ -> Header'FieldsEntry
x__ {_Header'FieldsEntry'value = y__}))
(Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Header'FieldsEntry where
messageName :: Proxy Header'FieldsEntry -> Text
messageName Proxy Header'FieldsEntry
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.Header.FieldsEntry"
packedMessageDescriptor :: Proxy Header'FieldsEntry -> ByteString
packedMessageDescriptor Proxy Header'FieldsEntry
_
= ByteString
"\n\
\\vFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Header'FieldsEntry -> ByteString
packedFileDescriptor Proxy Header'FieldsEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Header'FieldsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor Header'FieldsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Header'FieldsEntry Text
-> FieldDescriptor Header'FieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' Header'FieldsEntry Text
-> FieldAccessor Header'FieldsEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor Header'FieldsEntry
value__field_descriptor :: FieldDescriptor Header'FieldsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Payload
-> FieldAccessor Header'FieldsEntry Payload
-> FieldDescriptor Header'FieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Payload)
(Lens
Header'FieldsEntry
Header'FieldsEntry
(Maybe Payload)
(Maybe Payload)
-> FieldAccessor Header'FieldsEntry Payload
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'value")) ::
Data.ProtoLens.FieldDescriptor Header'FieldsEntry
in
[(Tag, FieldDescriptor Header'FieldsEntry)]
-> Map Tag (FieldDescriptor Header'FieldsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Header'FieldsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Header'FieldsEntry
value__field_descriptor)]
unknownFields :: Lens' Header'FieldsEntry FieldSet
unknownFields
= (Header'FieldsEntry -> FieldSet)
-> (Header'FieldsEntry -> FieldSet -> Header'FieldsEntry)
-> Lens' Header'FieldsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Header'FieldsEntry -> FieldSet
_Header'FieldsEntry'_unknownFields
(\ Header'FieldsEntry
x__ FieldSet
y__ -> Header'FieldsEntry
x__ {_Header'FieldsEntry'_unknownFields = y__})
defMessage :: Header'FieldsEntry
defMessage
= Header'FieldsEntry'_constructor
{_Header'FieldsEntry'key :: Text
_Header'FieldsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Header'FieldsEntry'value :: Maybe Payload
_Header'FieldsEntry'value = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
_Header'FieldsEntry'_unknownFields :: FieldSet
_Header'FieldsEntry'_unknownFields = []}
parseMessage :: Parser Header'FieldsEntry
parseMessage
= let
loop ::
Header'FieldsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser Header'FieldsEntry
loop :: Header'FieldsEntry -> Parser Header'FieldsEntry
loop Header'FieldsEntry
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 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
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
Word64
18
-> do y <- Parser Payload -> String -> Parser Payload
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
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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 Header'FieldsEntry -> String -> Parser Header'FieldsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Header'FieldsEntry -> Parser Header'FieldsEntry
loop Header'FieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"FieldsEntry"
buildMessage :: Header'FieldsEntry -> Builder
buildMessage
= \ Header'FieldsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text Header'FieldsEntry Header'FieldsEntry Text Text
-> Header'FieldsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Header'FieldsEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payload)
Header'FieldsEntry
Header'FieldsEntry
(Maybe Payload)
(Maybe Payload)
-> Header'FieldsEntry -> Maybe Payload
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'value") Header'FieldsEntry
_x
of
Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payload
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> 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))
Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet Header'FieldsEntry Header'FieldsEntry FieldSet FieldSet
-> Header'FieldsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet Header'FieldsEntry Header'FieldsEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Header'FieldsEntry FieldSet
Data.ProtoLens.unknownFields Header'FieldsEntry
_x)))
instance Control.DeepSeq.NFData Header'FieldsEntry where
rnf :: Header'FieldsEntry -> ()
rnf
= \ Header'FieldsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Header'FieldsEntry -> FieldSet
_Header'FieldsEntry'_unknownFields Header'FieldsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Header'FieldsEntry -> Text
_Header'FieldsEntry'key Header'FieldsEntry
x__)
(Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Header'FieldsEntry -> Maybe Payload
_Header'FieldsEntry'value Header'FieldsEntry
x__) ()))
data Memo
= Memo'_constructor {Memo -> Map Text Payload
_Memo'fields :: !(Data.Map.Map Data.Text.Text Payload),
Memo -> FieldSet
_Memo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Memo -> Memo -> Bool
(Memo -> Memo -> Bool) -> (Memo -> Memo -> Bool) -> Eq Memo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Memo -> Memo -> Bool
== :: Memo -> Memo -> Bool
$c/= :: Memo -> Memo -> Bool
/= :: Memo -> Memo -> Bool
Prelude.Eq, Eq Memo
Eq Memo =>
(Memo -> Memo -> Ordering)
-> (Memo -> Memo -> Bool)
-> (Memo -> Memo -> Bool)
-> (Memo -> Memo -> Bool)
-> (Memo -> Memo -> Bool)
-> (Memo -> Memo -> Memo)
-> (Memo -> Memo -> Memo)
-> Ord Memo
Memo -> Memo -> Bool
Memo -> Memo -> Ordering
Memo -> Memo -> Memo
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 :: Memo -> Memo -> Ordering
compare :: Memo -> Memo -> Ordering
$c< :: Memo -> Memo -> Bool
< :: Memo -> Memo -> Bool
$c<= :: Memo -> Memo -> Bool
<= :: Memo -> Memo -> Bool
$c> :: Memo -> Memo -> Bool
> :: Memo -> Memo -> Bool
$c>= :: Memo -> Memo -> Bool
>= :: Memo -> Memo -> Bool
$cmax :: Memo -> Memo -> Memo
max :: Memo -> Memo -> Memo
$cmin :: Memo -> Memo -> Memo
min :: Memo -> Memo -> Memo
Prelude.Ord)
instance Prelude.Show Memo where
showsPrec :: Int -> Memo -> ShowS
showsPrec Int
_ Memo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Memo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Memo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Memo "fields" (Data.Map.Map Data.Text.Text Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fields"
-> (Map Text Payload -> f (Map Text Payload)) -> Memo -> f Memo
fieldOf Proxy# "fields"
_
= ((Map Text Payload -> f (Map Text Payload)) -> Memo -> f Memo)
-> ((Map Text Payload -> f (Map Text Payload))
-> Map Text Payload -> f (Map Text Payload))
-> (Map Text Payload -> f (Map Text Payload))
-> Memo
-> f Memo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Memo -> Map Text Payload)
-> (Memo -> Map Text Payload -> Memo)
-> Lens Memo Memo (Map Text Payload) (Map Text Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Memo -> Map Text Payload
_Memo'fields (\ Memo
x__ Map Text Payload
y__ -> Memo
x__ {_Memo'fields = y__}))
(Map Text Payload -> f (Map Text Payload))
-> Map Text Payload -> f (Map Text Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Memo where
messageName :: Proxy Memo -> Text
messageName Proxy Memo
_ = String -> Text
Data.Text.pack String
"temporal.api.common.v1.Memo"
packedMessageDescriptor :: Proxy Memo -> ByteString
packedMessageDescriptor Proxy Memo
_
= ByteString
"\n\
\\EOTMemo\DC2@\n\
\\ACKfields\CAN\SOH \ETX(\v2(.temporal.api.common.v1.Memo.FieldsEntryR\ACKfields\SUBZ\n\
\\vFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Memo -> ByteString
packedFileDescriptor Proxy Memo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Memo)
fieldsByTag
= let
fields__field_descriptor :: FieldDescriptor Memo
fields__field_descriptor
= String
-> FieldTypeDescriptor Memo'FieldsEntry
-> FieldAccessor Memo Memo'FieldsEntry
-> FieldDescriptor Memo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"fields"
(MessageOrGroup -> FieldTypeDescriptor Memo'FieldsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Memo'FieldsEntry)
(Lens' Memo'FieldsEntry Text
-> Lens' Memo'FieldsEntry Payload
-> Lens Memo Memo (Map Text Payload) (Map Text Payload)
-> FieldAccessor Memo Memo'FieldsEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fields")) ::
Data.ProtoLens.FieldDescriptor Memo
in
[(Tag, FieldDescriptor Memo)] -> Map Tag (FieldDescriptor Memo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Memo
fields__field_descriptor)]
unknownFields :: Lens' Memo FieldSet
unknownFields
= (Memo -> FieldSet)
-> (Memo -> FieldSet -> Memo) -> Lens' Memo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Memo -> FieldSet
_Memo'_unknownFields
(\ Memo
x__ FieldSet
y__ -> Memo
x__ {_Memo'_unknownFields = y__})
defMessage :: Memo
defMessage
= Memo'_constructor
{_Memo'fields :: Map Text Payload
_Memo'fields = Map Text Payload
forall k a. Map k a
Data.Map.empty, _Memo'_unknownFields :: FieldSet
_Memo'_unknownFields = []}
parseMessage :: Parser Memo
parseMessage
= let
loop :: Memo -> Data.ProtoLens.Encoding.Bytes.Parser Memo
loop :: Memo -> Parser Memo
loop Memo
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 !(entry :: Memo'FieldsEntry) <- Parser Memo'FieldsEntry -> String -> Parser Memo'FieldsEntry
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
"fields"
(let
key = FoldLike Text Memo'FieldsEntry Memo'FieldsEntry Text Text
-> Memo'FieldsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Memo'FieldsEntry
entry
value
= FoldLike Payload Memo'FieldsEntry Memo'FieldsEntry Payload Payload
-> Memo'FieldsEntry -> Payload
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 @"value") Memo'FieldsEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"fields")
(\ !Map Text Payload
t -> Text -> Payload -> Map Text Payload -> Map Text Payload
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Payload
value Map Text Payload
t) 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 Memo -> String -> Parser Memo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Memo -> Parser Memo
loop Memo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Memo"
buildMessage :: Memo -> Builder
buildMessage
= \ Memo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Payload) -> Builder) -> [(Text, Payload)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ (Text, Payload)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Memo'FieldsEntry -> ByteString) -> Memo'FieldsEntry -> 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))
Memo'FieldsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter Memo'FieldsEntry Memo'FieldsEntry Text Text
-> Text -> Memo'FieldsEntry -> Memo'FieldsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Payload) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Payload)
_v)
(Setter Memo'FieldsEntry Memo'FieldsEntry Payload Payload
-> Payload -> Memo'FieldsEntry -> Memo'FieldsEntry
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 @"value") ((Text, Payload) -> Payload
forall a b. (a, b) -> b
Prelude.snd (Text, Payload)
_v)
(Memo'FieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: Memo'FieldsEntry)))))
(Map Text Payload -> [(Text, Payload)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Payload) Memo Memo (Map Text Payload) (Map Text Payload)
-> Memo -> Map Text Payload
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 @"fields") Memo
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Memo Memo FieldSet FieldSet -> Memo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Memo Memo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Memo FieldSet
Data.ProtoLens.unknownFields Memo
_x))
instance Control.DeepSeq.NFData Memo where
rnf :: Memo -> ()
rnf
= \ Memo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Memo -> FieldSet
_Memo'_unknownFields Memo
x__)
(Map Text Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Memo -> Map Text Payload
_Memo'fields Memo
x__) ())
data Memo'FieldsEntry
= Memo'FieldsEntry'_constructor {Memo'FieldsEntry -> Text
_Memo'FieldsEntry'key :: !Data.Text.Text,
Memo'FieldsEntry -> Maybe Payload
_Memo'FieldsEntry'value :: !(Prelude.Maybe Payload),
Memo'FieldsEntry -> FieldSet
_Memo'FieldsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
(Memo'FieldsEntry -> Memo'FieldsEntry -> Bool)
-> (Memo'FieldsEntry -> Memo'FieldsEntry -> Bool)
-> Eq Memo'FieldsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
== :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
$c/= :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
/= :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
Prelude.Eq, Eq Memo'FieldsEntry
Eq Memo'FieldsEntry =>
(Memo'FieldsEntry -> Memo'FieldsEntry -> Ordering)
-> (Memo'FieldsEntry -> Memo'FieldsEntry -> Bool)
-> (Memo'FieldsEntry -> Memo'FieldsEntry -> Bool)
-> (Memo'FieldsEntry -> Memo'FieldsEntry -> Bool)
-> (Memo'FieldsEntry -> Memo'FieldsEntry -> Bool)
-> (Memo'FieldsEntry -> Memo'FieldsEntry -> Memo'FieldsEntry)
-> (Memo'FieldsEntry -> Memo'FieldsEntry -> Memo'FieldsEntry)
-> Ord Memo'FieldsEntry
Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
Memo'FieldsEntry -> Memo'FieldsEntry -> Ordering
Memo'FieldsEntry -> Memo'FieldsEntry -> Memo'FieldsEntry
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 :: Memo'FieldsEntry -> Memo'FieldsEntry -> Ordering
compare :: Memo'FieldsEntry -> Memo'FieldsEntry -> Ordering
$c< :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
< :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
$c<= :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
<= :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
$c> :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
> :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
$c>= :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
>= :: Memo'FieldsEntry -> Memo'FieldsEntry -> Bool
$cmax :: Memo'FieldsEntry -> Memo'FieldsEntry -> Memo'FieldsEntry
max :: Memo'FieldsEntry -> Memo'FieldsEntry -> Memo'FieldsEntry
$cmin :: Memo'FieldsEntry -> Memo'FieldsEntry -> Memo'FieldsEntry
min :: Memo'FieldsEntry -> Memo'FieldsEntry -> Memo'FieldsEntry
Prelude.Ord)
instance Prelude.Show Memo'FieldsEntry where
showsPrec :: Int -> Memo'FieldsEntry -> ShowS
showsPrec Int
_ Memo'FieldsEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Memo'FieldsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Memo'FieldsEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Memo'FieldsEntry "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text) -> Memo'FieldsEntry -> f Memo'FieldsEntry
fieldOf Proxy# "key"
_
= ((Text -> f Text) -> Memo'FieldsEntry -> f Memo'FieldsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Memo'FieldsEntry
-> f Memo'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Memo'FieldsEntry -> Text)
-> (Memo'FieldsEntry -> Text -> Memo'FieldsEntry)
-> Lens' Memo'FieldsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Memo'FieldsEntry -> Text
_Memo'FieldsEntry'key
(\ Memo'FieldsEntry
x__ Text
y__ -> Memo'FieldsEntry
x__ {_Memo'FieldsEntry'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Memo'FieldsEntry "value" Payload where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Payload -> f Payload) -> Memo'FieldsEntry -> f Memo'FieldsEntry
fieldOf Proxy# "value"
_
= ((Maybe Payload -> f (Maybe Payload))
-> Memo'FieldsEntry -> f Memo'FieldsEntry)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> Memo'FieldsEntry
-> f Memo'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Memo'FieldsEntry -> Maybe Payload)
-> (Memo'FieldsEntry -> Maybe Payload -> Memo'FieldsEntry)
-> Lens
Memo'FieldsEntry Memo'FieldsEntry (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Memo'FieldsEntry -> Maybe Payload
_Memo'FieldsEntry'value
(\ Memo'FieldsEntry
x__ Maybe Payload
y__ -> Memo'FieldsEntry
x__ {_Memo'FieldsEntry'value = y__}))
(Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Memo'FieldsEntry "maybe'value" (Prelude.Maybe Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Payload -> f (Maybe Payload))
-> Memo'FieldsEntry
-> f Memo'FieldsEntry
fieldOf Proxy# "maybe'value"
_
= ((Maybe Payload -> f (Maybe Payload))
-> Memo'FieldsEntry -> f Memo'FieldsEntry)
-> ((Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> Memo'FieldsEntry
-> f Memo'FieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Memo'FieldsEntry -> Maybe Payload)
-> (Memo'FieldsEntry -> Maybe Payload -> Memo'FieldsEntry)
-> Lens
Memo'FieldsEntry Memo'FieldsEntry (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Memo'FieldsEntry -> Maybe Payload
_Memo'FieldsEntry'value
(\ Memo'FieldsEntry
x__ Maybe Payload
y__ -> Memo'FieldsEntry
x__ {_Memo'FieldsEntry'value = y__}))
(Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Memo'FieldsEntry where
messageName :: Proxy Memo'FieldsEntry -> Text
messageName Proxy Memo'FieldsEntry
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.Memo.FieldsEntry"
packedMessageDescriptor :: Proxy Memo'FieldsEntry -> ByteString
packedMessageDescriptor Proxy Memo'FieldsEntry
_
= ByteString
"\n\
\\vFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Memo'FieldsEntry -> ByteString
packedFileDescriptor Proxy Memo'FieldsEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Memo'FieldsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor Memo'FieldsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Memo'FieldsEntry Text
-> FieldDescriptor Memo'FieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' Memo'FieldsEntry Text
-> FieldAccessor Memo'FieldsEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor Memo'FieldsEntry
value__field_descriptor :: FieldDescriptor Memo'FieldsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Payload
-> FieldAccessor Memo'FieldsEntry Payload
-> FieldDescriptor Memo'FieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Payload)
(Lens
Memo'FieldsEntry Memo'FieldsEntry (Maybe Payload) (Maybe Payload)
-> FieldAccessor Memo'FieldsEntry Payload
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'value")) ::
Data.ProtoLens.FieldDescriptor Memo'FieldsEntry
in
[(Tag, FieldDescriptor Memo'FieldsEntry)]
-> Map Tag (FieldDescriptor Memo'FieldsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Memo'FieldsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Memo'FieldsEntry
value__field_descriptor)]
unknownFields :: Lens' Memo'FieldsEntry FieldSet
unknownFields
= (Memo'FieldsEntry -> FieldSet)
-> (Memo'FieldsEntry -> FieldSet -> Memo'FieldsEntry)
-> Lens' Memo'FieldsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Memo'FieldsEntry -> FieldSet
_Memo'FieldsEntry'_unknownFields
(\ Memo'FieldsEntry
x__ FieldSet
y__ -> Memo'FieldsEntry
x__ {_Memo'FieldsEntry'_unknownFields = y__})
defMessage :: Memo'FieldsEntry
defMessage
= Memo'FieldsEntry'_constructor
{_Memo'FieldsEntry'key :: Text
_Memo'FieldsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Memo'FieldsEntry'value :: Maybe Payload
_Memo'FieldsEntry'value = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
_Memo'FieldsEntry'_unknownFields :: FieldSet
_Memo'FieldsEntry'_unknownFields = []}
parseMessage :: Parser Memo'FieldsEntry
parseMessage
= let
loop ::
Memo'FieldsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser Memo'FieldsEntry
loop :: Memo'FieldsEntry -> Parser Memo'FieldsEntry
loop Memo'FieldsEntry
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 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
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
Word64
18
-> do y <- Parser Payload -> String -> Parser Payload
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
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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 Memo'FieldsEntry -> String -> Parser Memo'FieldsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Memo'FieldsEntry -> Parser Memo'FieldsEntry
loop Memo'FieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"FieldsEntry"
buildMessage :: Memo'FieldsEntry -> Builder
buildMessage
= \ Memo'FieldsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text Memo'FieldsEntry Memo'FieldsEntry Text Text
-> Memo'FieldsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Memo'FieldsEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payload)
Memo'FieldsEntry
Memo'FieldsEntry
(Maybe Payload)
(Maybe Payload)
-> Memo'FieldsEntry -> Maybe Payload
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'value") Memo'FieldsEntry
_x
of
Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payload
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> 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))
Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet Memo'FieldsEntry Memo'FieldsEntry FieldSet FieldSet
-> Memo'FieldsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet Memo'FieldsEntry Memo'FieldsEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Memo'FieldsEntry FieldSet
Data.ProtoLens.unknownFields Memo'FieldsEntry
_x)))
instance Control.DeepSeq.NFData Memo'FieldsEntry where
rnf :: Memo'FieldsEntry -> ()
rnf
= \ Memo'FieldsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Memo'FieldsEntry -> FieldSet
_Memo'FieldsEntry'_unknownFields Memo'FieldsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Memo'FieldsEntry -> Text
_Memo'FieldsEntry'key Memo'FieldsEntry
x__)
(Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Memo'FieldsEntry -> Maybe Payload
_Memo'FieldsEntry'value Memo'FieldsEntry
x__) ()))
data MeteringMetadata
= MeteringMetadata'_constructor {MeteringMetadata -> Word32
_MeteringMetadata'nonfirstLocalActivityExecutionAttempts :: !Data.Word.Word32,
MeteringMetadata -> FieldSet
_MeteringMetadata'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MeteringMetadata -> MeteringMetadata -> Bool
(MeteringMetadata -> MeteringMetadata -> Bool)
-> (MeteringMetadata -> MeteringMetadata -> Bool)
-> Eq MeteringMetadata
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MeteringMetadata -> MeteringMetadata -> Bool
== :: MeteringMetadata -> MeteringMetadata -> Bool
$c/= :: MeteringMetadata -> MeteringMetadata -> Bool
/= :: MeteringMetadata -> MeteringMetadata -> Bool
Prelude.Eq, Eq MeteringMetadata
Eq MeteringMetadata =>
(MeteringMetadata -> MeteringMetadata -> Ordering)
-> (MeteringMetadata -> MeteringMetadata -> Bool)
-> (MeteringMetadata -> MeteringMetadata -> Bool)
-> (MeteringMetadata -> MeteringMetadata -> Bool)
-> (MeteringMetadata -> MeteringMetadata -> Bool)
-> (MeteringMetadata -> MeteringMetadata -> MeteringMetadata)
-> (MeteringMetadata -> MeteringMetadata -> MeteringMetadata)
-> Ord MeteringMetadata
MeteringMetadata -> MeteringMetadata -> Bool
MeteringMetadata -> MeteringMetadata -> Ordering
MeteringMetadata -> MeteringMetadata -> MeteringMetadata
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 :: MeteringMetadata -> MeteringMetadata -> Ordering
compare :: MeteringMetadata -> MeteringMetadata -> Ordering
$c< :: MeteringMetadata -> MeteringMetadata -> Bool
< :: MeteringMetadata -> MeteringMetadata -> Bool
$c<= :: MeteringMetadata -> MeteringMetadata -> Bool
<= :: MeteringMetadata -> MeteringMetadata -> Bool
$c> :: MeteringMetadata -> MeteringMetadata -> Bool
> :: MeteringMetadata -> MeteringMetadata -> Bool
$c>= :: MeteringMetadata -> MeteringMetadata -> Bool
>= :: MeteringMetadata -> MeteringMetadata -> Bool
$cmax :: MeteringMetadata -> MeteringMetadata -> MeteringMetadata
max :: MeteringMetadata -> MeteringMetadata -> MeteringMetadata
$cmin :: MeteringMetadata -> MeteringMetadata -> MeteringMetadata
min :: MeteringMetadata -> MeteringMetadata -> MeteringMetadata
Prelude.Ord)
instance Prelude.Show MeteringMetadata where
showsPrec :: Int -> MeteringMetadata -> ShowS
showsPrec Int
_ MeteringMetadata
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(MeteringMetadata -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MeteringMetadata
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MeteringMetadata "nonfirstLocalActivityExecutionAttempts" Data.Word.Word32 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nonfirstLocalActivityExecutionAttempts"
-> (Word32 -> f Word32) -> MeteringMetadata -> f MeteringMetadata
fieldOf Proxy# "nonfirstLocalActivityExecutionAttempts"
_
= ((Word32 -> f Word32) -> MeteringMetadata -> f MeteringMetadata)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> MeteringMetadata
-> f MeteringMetadata
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MeteringMetadata -> Word32)
-> (MeteringMetadata -> Word32 -> MeteringMetadata)
-> Lens MeteringMetadata MeteringMetadata Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MeteringMetadata -> Word32
_MeteringMetadata'nonfirstLocalActivityExecutionAttempts
(\ MeteringMetadata
x__ Word32
y__
-> MeteringMetadata
x__
{_MeteringMetadata'nonfirstLocalActivityExecutionAttempts = y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MeteringMetadata where
messageName :: Proxy MeteringMetadata -> Text
messageName Proxy MeteringMetadata
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.MeteringMetadata"
packedMessageDescriptor :: Proxy MeteringMetadata -> ByteString
packedMessageDescriptor Proxy MeteringMetadata
_
= ByteString
"\n\
\\DLEMeteringMetadata\DC2Z\n\
\*nonfirst_local_activity_execution_attempts\CAN\r \SOH(\rR&nonfirstLocalActivityExecutionAttempts"
packedFileDescriptor :: Proxy MeteringMetadata -> ByteString
packedFileDescriptor Proxy MeteringMetadata
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MeteringMetadata)
fieldsByTag
= let
nonfirstLocalActivityExecutionAttempts__field_descriptor :: FieldDescriptor MeteringMetadata
nonfirstLocalActivityExecutionAttempts__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor MeteringMetadata Word32
-> FieldDescriptor MeteringMetadata
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"nonfirst_local_activity_execution_attempts"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens MeteringMetadata MeteringMetadata Word32 Word32
-> FieldAccessor MeteringMetadata Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"nonfirstLocalActivityExecutionAttempts")) ::
Data.ProtoLens.FieldDescriptor MeteringMetadata
in
[(Tag, FieldDescriptor MeteringMetadata)]
-> Map Tag (FieldDescriptor MeteringMetadata)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
13,
FieldDescriptor MeteringMetadata
nonfirstLocalActivityExecutionAttempts__field_descriptor)]
unknownFields :: Lens' MeteringMetadata FieldSet
unknownFields
= (MeteringMetadata -> FieldSet)
-> (MeteringMetadata -> FieldSet -> MeteringMetadata)
-> Lens' MeteringMetadata FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MeteringMetadata -> FieldSet
_MeteringMetadata'_unknownFields
(\ MeteringMetadata
x__ FieldSet
y__ -> MeteringMetadata
x__ {_MeteringMetadata'_unknownFields = y__})
defMessage :: MeteringMetadata
defMessage
= MeteringMetadata'_constructor
{_MeteringMetadata'nonfirstLocalActivityExecutionAttempts :: Word32
_MeteringMetadata'nonfirstLocalActivityExecutionAttempts = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MeteringMetadata'_unknownFields :: FieldSet
_MeteringMetadata'_unknownFields = []}
parseMessage :: Parser MeteringMetadata
parseMessage
= let
loop ::
MeteringMetadata
-> Data.ProtoLens.Encoding.Bytes.Parser MeteringMetadata
loop :: MeteringMetadata -> Parser MeteringMetadata
loop MeteringMetadata
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
104
-> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"nonfirst_local_activity_execution_attempts"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"nonfirstLocalActivityExecutionAttempts")
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 MeteringMetadata -> String -> Parser MeteringMetadata
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MeteringMetadata -> Parser MeteringMetadata
loop MeteringMetadata
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MeteringMetadata"
buildMessage :: MeteringMetadata -> Builder
buildMessage
= \ MeteringMetadata
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Word32
_v
= FoldLike Word32 MeteringMetadata MeteringMetadata Word32 Word32
-> MeteringMetadata -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"nonfirstLocalActivityExecutionAttempts")
MeteringMetadata
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
104)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet MeteringMetadata MeteringMetadata FieldSet FieldSet
-> MeteringMetadata -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet MeteringMetadata MeteringMetadata FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MeteringMetadata FieldSet
Data.ProtoLens.unknownFields MeteringMetadata
_x))
instance Control.DeepSeq.NFData MeteringMetadata where
rnf :: MeteringMetadata -> ()
rnf
= \ MeteringMetadata
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MeteringMetadata -> FieldSet
_MeteringMetadata'_unknownFields MeteringMetadata
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MeteringMetadata -> Word32
_MeteringMetadata'nonfirstLocalActivityExecutionAttempts MeteringMetadata
x__) ())
data Payload
= Payload'_constructor {Payload -> Map Text ByteString
_Payload'metadata :: !(Data.Map.Map Data.Text.Text Data.ByteString.ByteString),
Payload -> ByteString
_Payload'data' :: !Data.ByteString.ByteString,
Payload -> FieldSet
_Payload'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Payload -> Payload -> Bool
(Payload -> Payload -> Bool)
-> (Payload -> Payload -> Bool) -> Eq Payload
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Payload -> Payload -> Bool
== :: Payload -> Payload -> Bool
$c/= :: Payload -> Payload -> Bool
/= :: Payload -> Payload -> Bool
Prelude.Eq, Eq Payload
Eq Payload =>
(Payload -> Payload -> Ordering)
-> (Payload -> Payload -> Bool)
-> (Payload -> Payload -> Bool)
-> (Payload -> Payload -> Bool)
-> (Payload -> Payload -> Bool)
-> (Payload -> Payload -> Payload)
-> (Payload -> Payload -> Payload)
-> Ord Payload
Payload -> Payload -> Bool
Payload -> Payload -> Ordering
Payload -> Payload -> Payload
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 :: Payload -> Payload -> Ordering
compare :: Payload -> Payload -> Ordering
$c< :: Payload -> Payload -> Bool
< :: Payload -> Payload -> Bool
$c<= :: Payload -> Payload -> Bool
<= :: Payload -> Payload -> Bool
$c> :: Payload -> Payload -> Bool
> :: Payload -> Payload -> Bool
$c>= :: Payload -> Payload -> Bool
>= :: Payload -> Payload -> Bool
$cmax :: Payload -> Payload -> Payload
max :: Payload -> Payload -> Payload
$cmin :: Payload -> Payload -> Payload
min :: Payload -> Payload -> Payload
Prelude.Ord)
instance Prelude.Show Payload where
showsPrec :: Int -> Payload -> ShowS
showsPrec Int
_ Payload
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Payload -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Payload
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Payload "metadata" (Data.Map.Map Data.Text.Text Data.ByteString.ByteString) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "metadata"
-> (Map Text ByteString -> f (Map Text ByteString))
-> Payload
-> f Payload
fieldOf Proxy# "metadata"
_
= ((Map Text ByteString -> f (Map Text ByteString))
-> Payload -> f Payload)
-> ((Map Text ByteString -> f (Map Text ByteString))
-> Map Text ByteString -> f (Map Text ByteString))
-> (Map Text ByteString -> f (Map Text ByteString))
-> Payload
-> f Payload
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Payload -> Map Text ByteString)
-> (Payload -> Map Text ByteString -> Payload)
-> Lens Payload Payload (Map Text ByteString) (Map Text ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payload -> Map Text ByteString
_Payload'metadata (\ Payload
x__ Map Text ByteString
y__ -> Payload
x__ {_Payload'metadata = y__}))
(Map Text ByteString -> f (Map Text ByteString))
-> Map Text ByteString -> f (Map Text ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Payload "data'" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "data'"
-> (ByteString -> f ByteString) -> Payload -> f Payload
fieldOf Proxy# "data'"
_
= ((ByteString -> f ByteString) -> Payload -> f Payload)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Payload
-> f Payload
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Payload -> ByteString)
-> (Payload -> ByteString -> Payload)
-> Lens Payload Payload ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payload -> ByteString
_Payload'data' (\ Payload
x__ ByteString
y__ -> Payload
x__ {_Payload'data' = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Payload where
messageName :: Proxy Payload -> Text
messageName Proxy Payload
_ = String -> Text
Data.Text.pack String
"temporal.api.common.v1.Payload"
packedMessageDescriptor :: Proxy Payload -> ByteString
packedMessageDescriptor Proxy Payload
_
= ByteString
"\n\
\\aPayload\DC2I\n\
\\bmetadata\CAN\SOH \ETX(\v2-.temporal.api.common.v1.Payload.MetadataEntryR\bmetadata\DC2\DC2\n\
\\EOTdata\CAN\STX \SOH(\fR\EOTdata\SUB;\n\
\\rMetadataEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Payload -> ByteString
packedFileDescriptor Proxy Payload
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Payload)
fieldsByTag
= let
metadata__field_descriptor :: FieldDescriptor Payload
metadata__field_descriptor
= String
-> FieldTypeDescriptor Payload'MetadataEntry
-> FieldAccessor Payload Payload'MetadataEntry
-> FieldDescriptor Payload
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"metadata"
(MessageOrGroup -> FieldTypeDescriptor Payload'MetadataEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Payload'MetadataEntry)
(Lens' Payload'MetadataEntry Text
-> Lens' Payload'MetadataEntry ByteString
-> Lens Payload Payload (Map Text ByteString) (Map Text ByteString)
-> FieldAccessor Payload Payload'MetadataEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metadata")) ::
Data.ProtoLens.FieldDescriptor Payload
data'__field_descriptor :: FieldDescriptor Payload
data'__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Payload ByteString
-> FieldDescriptor Payload
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"data"
(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 Payload Payload ByteString ByteString
-> FieldAccessor Payload 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 @"data'")) ::
Data.ProtoLens.FieldDescriptor Payload
in
[(Tag, FieldDescriptor Payload)]
-> Map Tag (FieldDescriptor Payload)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Payload
metadata__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Payload
data'__field_descriptor)]
unknownFields :: Lens' Payload FieldSet
unknownFields
= (Payload -> FieldSet)
-> (Payload -> FieldSet -> Payload) -> Lens' Payload FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payload -> FieldSet
_Payload'_unknownFields
(\ Payload
x__ FieldSet
y__ -> Payload
x__ {_Payload'_unknownFields = y__})
defMessage :: Payload
defMessage
= Payload'_constructor
{_Payload'metadata :: Map Text ByteString
_Payload'metadata = Map Text ByteString
forall k a. Map k a
Data.Map.empty,
_Payload'data' :: ByteString
_Payload'data' = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Payload'_unknownFields :: FieldSet
_Payload'_unknownFields = []}
parseMessage :: Parser Payload
parseMessage
= let
loop :: Payload -> Data.ProtoLens.Encoding.Bytes.Parser Payload
loop :: Payload -> Parser Payload
loop Payload
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 !(entry :: Payload'MetadataEntry) <- Parser Payload'MetadataEntry
-> String -> Parser Payload'MetadataEntry
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
"metadata"
(let
key = FoldLike Text Payload'MetadataEntry Payload'MetadataEntry Text Text
-> Payload'MetadataEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Payload'MetadataEntry
entry
value
= FoldLike
ByteString
Payload'MetadataEntry
Payload'MetadataEntry
ByteString
ByteString
-> Payload'MetadataEntry -> 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 @"value") Payload'MetadataEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"metadata")
(\ !Map Text ByteString
t -> Text -> ByteString -> Map Text ByteString -> Map Text ByteString
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key ByteString
value Map Text ByteString
t) x))
Word64
18
-> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
String
"data"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"data'") 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 Payload -> String -> Parser Payload
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Payload -> Parser Payload
loop Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Payload"
buildMessage :: Payload -> Builder
buildMessage
= \ Payload
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, ByteString) -> Builder)
-> [(Text, ByteString)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ (Text, ByteString)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Payload'MetadataEntry -> ByteString)
-> Payload'MetadataEntry
-> 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))
Payload'MetadataEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter Payload'MetadataEntry Payload'MetadataEntry Text Text
-> Text -> Payload'MetadataEntry -> Payload'MetadataEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, ByteString) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, ByteString)
_v)
(Setter
Payload'MetadataEntry Payload'MetadataEntry ByteString ByteString
-> ByteString -> Payload'MetadataEntry -> Payload'MetadataEntry
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 @"value") ((Text, ByteString) -> ByteString
forall a b. (a, b) -> b
Prelude.snd (Text, ByteString)
_v)
(Payload'MetadataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: Payload'MetadataEntry)))))
(Map Text ByteString -> [(Text, ByteString)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text ByteString)
Payload
Payload
(Map Text ByteString)
(Map Text ByteString)
-> Payload -> Map Text 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 @"metadata") Payload
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v = FoldLike ByteString Payload Payload ByteString ByteString
-> Payload -> 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 @"data'") Payload
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Payload Payload FieldSet FieldSet
-> Payload -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Payload Payload FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Payload FieldSet
Data.ProtoLens.unknownFields Payload
_x)))
instance Control.DeepSeq.NFData Payload where
rnf :: Payload -> ()
rnf
= \ Payload
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Payload -> FieldSet
_Payload'_unknownFields Payload
x__)
(Map Text ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Payload -> Map Text ByteString
_Payload'metadata Payload
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Payload -> ByteString
_Payload'data' Payload
x__) ()))
data Payload'MetadataEntry
= Payload'MetadataEntry'_constructor {Payload'MetadataEntry -> Text
_Payload'MetadataEntry'key :: !Data.Text.Text,
Payload'MetadataEntry -> ByteString
_Payload'MetadataEntry'value :: !Data.ByteString.ByteString,
Payload'MetadataEntry -> FieldSet
_Payload'MetadataEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
(Payload'MetadataEntry -> Payload'MetadataEntry -> Bool)
-> (Payload'MetadataEntry -> Payload'MetadataEntry -> Bool)
-> Eq Payload'MetadataEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
== :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
$c/= :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
/= :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
Prelude.Eq, Eq Payload'MetadataEntry
Eq Payload'MetadataEntry =>
(Payload'MetadataEntry -> Payload'MetadataEntry -> Ordering)
-> (Payload'MetadataEntry -> Payload'MetadataEntry -> Bool)
-> (Payload'MetadataEntry -> Payload'MetadataEntry -> Bool)
-> (Payload'MetadataEntry -> Payload'MetadataEntry -> Bool)
-> (Payload'MetadataEntry -> Payload'MetadataEntry -> Bool)
-> (Payload'MetadataEntry
-> Payload'MetadataEntry -> Payload'MetadataEntry)
-> (Payload'MetadataEntry
-> Payload'MetadataEntry -> Payload'MetadataEntry)
-> Ord Payload'MetadataEntry
Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
Payload'MetadataEntry -> Payload'MetadataEntry -> Ordering
Payload'MetadataEntry
-> Payload'MetadataEntry -> Payload'MetadataEntry
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 :: Payload'MetadataEntry -> Payload'MetadataEntry -> Ordering
compare :: Payload'MetadataEntry -> Payload'MetadataEntry -> Ordering
$c< :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
< :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
$c<= :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
<= :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
$c> :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
> :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
$c>= :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
>= :: Payload'MetadataEntry -> Payload'MetadataEntry -> Bool
$cmax :: Payload'MetadataEntry
-> Payload'MetadataEntry -> Payload'MetadataEntry
max :: Payload'MetadataEntry
-> Payload'MetadataEntry -> Payload'MetadataEntry
$cmin :: Payload'MetadataEntry
-> Payload'MetadataEntry -> Payload'MetadataEntry
min :: Payload'MetadataEntry
-> Payload'MetadataEntry -> Payload'MetadataEntry
Prelude.Ord)
instance Prelude.Show Payload'MetadataEntry where
showsPrec :: Int -> Payload'MetadataEntry -> ShowS
showsPrec Int
_ Payload'MetadataEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Payload'MetadataEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Payload'MetadataEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Payload'MetadataEntry "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> Payload'MetadataEntry
-> f Payload'MetadataEntry
fieldOf Proxy# "key"
_
= ((Text -> f Text)
-> Payload'MetadataEntry -> f Payload'MetadataEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Payload'MetadataEntry
-> f Payload'MetadataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Payload'MetadataEntry -> Text)
-> (Payload'MetadataEntry -> Text -> Payload'MetadataEntry)
-> Lens' Payload'MetadataEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payload'MetadataEntry -> Text
_Payload'MetadataEntry'key
(\ Payload'MetadataEntry
x__ Text
y__ -> Payload'MetadataEntry
x__ {_Payload'MetadataEntry'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Payload'MetadataEntry "value" Data.ByteString.ByteString where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (ByteString -> f ByteString)
-> Payload'MetadataEntry
-> f Payload'MetadataEntry
fieldOf Proxy# "value"
_
= ((ByteString -> f ByteString)
-> Payload'MetadataEntry -> f Payload'MetadataEntry)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Payload'MetadataEntry
-> f Payload'MetadataEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Payload'MetadataEntry -> ByteString)
-> (Payload'MetadataEntry -> ByteString -> Payload'MetadataEntry)
-> Lens' Payload'MetadataEntry ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payload'MetadataEntry -> ByteString
_Payload'MetadataEntry'value
(\ Payload'MetadataEntry
x__ ByteString
y__ -> Payload'MetadataEntry
x__ {_Payload'MetadataEntry'value = y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Payload'MetadataEntry where
messageName :: Proxy Payload'MetadataEntry -> Text
messageName Proxy Payload'MetadataEntry
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.Payload.MetadataEntry"
packedMessageDescriptor :: Proxy Payload'MetadataEntry -> ByteString
packedMessageDescriptor Proxy Payload'MetadataEntry
_
= ByteString
"\n\
\\rMetadataEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy Payload'MetadataEntry -> ByteString
packedFileDescriptor Proxy Payload'MetadataEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Payload'MetadataEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor Payload'MetadataEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Payload'MetadataEntry Text
-> FieldDescriptor Payload'MetadataEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' Payload'MetadataEntry Text
-> FieldAccessor Payload'MetadataEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor Payload'MetadataEntry
value__field_descriptor :: FieldDescriptor Payload'MetadataEntry
value__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Payload'MetadataEntry ByteString
-> FieldDescriptor Payload'MetadataEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(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' Payload'MetadataEntry ByteString
-> FieldAccessor Payload'MetadataEntry 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 @"value")) ::
Data.ProtoLens.FieldDescriptor Payload'MetadataEntry
in
[(Tag, FieldDescriptor Payload'MetadataEntry)]
-> Map Tag (FieldDescriptor Payload'MetadataEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Payload'MetadataEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Payload'MetadataEntry
value__field_descriptor)]
unknownFields :: Lens' Payload'MetadataEntry FieldSet
unknownFields
= (Payload'MetadataEntry -> FieldSet)
-> (Payload'MetadataEntry -> FieldSet -> Payload'MetadataEntry)
-> Lens' Payload'MetadataEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payload'MetadataEntry -> FieldSet
_Payload'MetadataEntry'_unknownFields
(\ Payload'MetadataEntry
x__ FieldSet
y__ -> Payload'MetadataEntry
x__ {_Payload'MetadataEntry'_unknownFields = y__})
defMessage :: Payload'MetadataEntry
defMessage
= Payload'MetadataEntry'_constructor
{_Payload'MetadataEntry'key :: Text
_Payload'MetadataEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Payload'MetadataEntry'value :: ByteString
_Payload'MetadataEntry'value = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Payload'MetadataEntry'_unknownFields :: FieldSet
_Payload'MetadataEntry'_unknownFields = []}
parseMessage :: Parser Payload'MetadataEntry
parseMessage
= let
loop ::
Payload'MetadataEntry
-> Data.ProtoLens.Encoding.Bytes.Parser Payload'MetadataEntry
loop :: Payload'MetadataEntry -> Parser Payload'MetadataEntry
loop Payload'MetadataEntry
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 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
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
Word64
18
-> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getBytes
(Prelude.fromIntegral len))
String
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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 Payload'MetadataEntry
-> String -> Parser Payload'MetadataEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Payload'MetadataEntry -> Parser Payload'MetadataEntry
loop Payload'MetadataEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MetadataEntry"
buildMessage :: Payload'MetadataEntry -> Builder
buildMessage
= \ Payload'MetadataEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text Payload'MetadataEntry Payload'MetadataEntry Text Text
-> Payload'MetadataEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Payload'MetadataEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v = FoldLike
ByteString
Payload'MetadataEntry
Payload'MetadataEntry
ByteString
ByteString
-> Payload'MetadataEntry -> 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 @"value") Payload'MetadataEntry
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ByteString
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
Payload'MetadataEntry
Payload'MetadataEntry
FieldSet
FieldSet
-> Payload'MetadataEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
Payload'MetadataEntry
Payload'MetadataEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Payload'MetadataEntry FieldSet
Data.ProtoLens.unknownFields Payload'MetadataEntry
_x)))
instance Control.DeepSeq.NFData Payload'MetadataEntry where
rnf :: Payload'MetadataEntry -> ()
rnf
= \ Payload'MetadataEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Payload'MetadataEntry -> FieldSet
_Payload'MetadataEntry'_unknownFields Payload'MetadataEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Payload'MetadataEntry -> Text
_Payload'MetadataEntry'key Payload'MetadataEntry
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Payload'MetadataEntry -> ByteString
_Payload'MetadataEntry'value Payload'MetadataEntry
x__) ()))
data Payloads
= Payloads'_constructor {Payloads -> Vector Payload
_Payloads'payloads :: !(Data.Vector.Vector Payload),
Payloads -> FieldSet
_Payloads'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Payloads -> Payloads -> Bool
(Payloads -> Payloads -> Bool)
-> (Payloads -> Payloads -> Bool) -> Eq Payloads
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Payloads -> Payloads -> Bool
== :: Payloads -> Payloads -> Bool
$c/= :: Payloads -> Payloads -> Bool
/= :: Payloads -> Payloads -> Bool
Prelude.Eq, Eq Payloads
Eq Payloads =>
(Payloads -> Payloads -> Ordering)
-> (Payloads -> Payloads -> Bool)
-> (Payloads -> Payloads -> Bool)
-> (Payloads -> Payloads -> Bool)
-> (Payloads -> Payloads -> Bool)
-> (Payloads -> Payloads -> Payloads)
-> (Payloads -> Payloads -> Payloads)
-> Ord Payloads
Payloads -> Payloads -> Bool
Payloads -> Payloads -> Ordering
Payloads -> Payloads -> Payloads
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 :: Payloads -> Payloads -> Ordering
compare :: Payloads -> Payloads -> Ordering
$c< :: Payloads -> Payloads -> Bool
< :: Payloads -> Payloads -> Bool
$c<= :: Payloads -> Payloads -> Bool
<= :: Payloads -> Payloads -> Bool
$c> :: Payloads -> Payloads -> Bool
> :: Payloads -> Payloads -> Bool
$c>= :: Payloads -> Payloads -> Bool
>= :: Payloads -> Payloads -> Bool
$cmax :: Payloads -> Payloads -> Payloads
max :: Payloads -> Payloads -> Payloads
$cmin :: Payloads -> Payloads -> Payloads
min :: Payloads -> Payloads -> Payloads
Prelude.Ord)
instance Prelude.Show Payloads where
showsPrec :: Int -> Payloads -> ShowS
showsPrec Int
_ Payloads
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Payloads -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Payloads
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Payloads "payloads" [Payload] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "payloads"
-> ([Payload] -> f [Payload]) -> Payloads -> f Payloads
fieldOf Proxy# "payloads"
_
= ((Vector Payload -> f (Vector Payload)) -> Payloads -> f Payloads)
-> (([Payload] -> f [Payload])
-> Vector Payload -> f (Vector Payload))
-> ([Payload] -> f [Payload])
-> Payloads
-> f Payloads
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Payloads -> Vector Payload)
-> (Payloads -> Vector Payload -> Payloads)
-> Lens Payloads Payloads (Vector Payload) (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payloads -> Vector Payload
_Payloads'payloads (\ Payloads
x__ Vector Payload
y__ -> Payloads
x__ {_Payloads'payloads = y__}))
((Vector Payload -> [Payload])
-> (Vector Payload -> [Payload] -> Vector Payload)
-> Lens (Vector Payload) (Vector Payload) [Payload] [Payload]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Payload -> [Payload]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Payload
_ [Payload]
y__ -> [Payload] -> Vector Payload
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Payload]
y__))
instance Data.ProtoLens.Field.HasField Payloads "vec'payloads" (Data.Vector.Vector Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'payloads"
-> (Vector Payload -> f (Vector Payload)) -> Payloads -> f Payloads
fieldOf Proxy# "vec'payloads"
_
= ((Vector Payload -> f (Vector Payload)) -> Payloads -> f Payloads)
-> ((Vector Payload -> f (Vector Payload))
-> Vector Payload -> f (Vector Payload))
-> (Vector Payload -> f (Vector Payload))
-> Payloads
-> f Payloads
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Payloads -> Vector Payload)
-> (Payloads -> Vector Payload -> Payloads)
-> Lens Payloads Payloads (Vector Payload) (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payloads -> Vector Payload
_Payloads'payloads (\ Payloads
x__ Vector Payload
y__ -> Payloads
x__ {_Payloads'payloads = y__}))
(Vector Payload -> f (Vector Payload))
-> Vector Payload -> f (Vector Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Payloads where
messageName :: Proxy Payloads -> Text
messageName Proxy Payloads
_ = String -> Text
Data.Text.pack String
"temporal.api.common.v1.Payloads"
packedMessageDescriptor :: Proxy Payloads -> ByteString
packedMessageDescriptor Proxy Payloads
_
= ByteString
"\n\
\\bPayloads\DC2;\n\
\\bpayloads\CAN\SOH \ETX(\v2\US.temporal.api.common.v1.PayloadR\bpayloads"
packedFileDescriptor :: Proxy Payloads -> ByteString
packedFileDescriptor Proxy Payloads
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Payloads)
fieldsByTag
= let
payloads__field_descriptor :: FieldDescriptor Payloads
payloads__field_descriptor
= String
-> FieldTypeDescriptor Payload
-> FieldAccessor Payloads Payload
-> FieldDescriptor Payloads
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"payloads"
(MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Payload)
(Packing
-> Lens' Payloads [Payload] -> FieldAccessor Payloads Payload
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 @"payloads")) ::
Data.ProtoLens.FieldDescriptor Payloads
in
[(Tag, FieldDescriptor Payloads)]
-> Map Tag (FieldDescriptor Payloads)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Payloads
payloads__field_descriptor)]
unknownFields :: Lens' Payloads FieldSet
unknownFields
= (Payloads -> FieldSet)
-> (Payloads -> FieldSet -> Payloads) -> Lens' Payloads FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Payloads -> FieldSet
_Payloads'_unknownFields
(\ Payloads
x__ FieldSet
y__ -> Payloads
x__ {_Payloads'_unknownFields = y__})
defMessage :: Payloads
defMessage
= Payloads'_constructor
{_Payloads'payloads :: Vector Payload
_Payloads'payloads = Vector Payload
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_Payloads'_unknownFields :: FieldSet
_Payloads'_unknownFields = []}
parseMessage :: Parser Payloads
parseMessage
= let
loop ::
Payloads
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Payload
-> Data.ProtoLens.Encoding.Bytes.Parser Payloads
loop :: Payloads -> Growing Vector RealWorld Payload -> Parser Payloads
loop Payloads
x Growing Vector RealWorld Payload
mutable'payloads
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'payloads <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'payloads)
(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'payloads") frozen'payloads x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do !y <- Parser Payload -> String -> Parser Payload
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
"payloads"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append mutable'payloads 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'payloads
in
Parser Payloads -> String -> Parser Payloads
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'payloads <- IO (Growing Vector RealWorld Payload)
-> Parser (Growing Vector RealWorld Payload)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Payload)
IO (Growing Vector (PrimState IO) Payload)
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'payloads)
String
"Payloads"
buildMessage :: Payloads -> Builder
buildMessage
= \ Payloads
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Payload -> Builder) -> Vector Payload -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Payload
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> 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))
Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
(FoldLike
(Vector Payload)
Payloads
Payloads
(Vector Payload)
(Vector Payload)
-> Payloads -> Vector Payload
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'payloads") Payloads
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Payloads Payloads FieldSet FieldSet
-> Payloads -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Payloads Payloads FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Payloads FieldSet
Data.ProtoLens.unknownFields Payloads
_x))
instance Control.DeepSeq.NFData Payloads where
rnf :: Payloads -> ()
rnf
= \ Payloads
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Payloads -> FieldSet
_Payloads'_unknownFields Payloads
x__)
(Vector Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Payloads -> Vector Payload
_Payloads'payloads Payloads
x__) ())
data ResetOptions
= ResetOptions'_constructor {ResetOptions -> ResetReapplyType
_ResetOptions'resetReapplyType :: !Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyType,
ResetOptions -> Bool
_ResetOptions'currentRunOnly :: !Prelude.Bool,
ResetOptions -> Vector ResetReapplyExcludeType
_ResetOptions'resetReapplyExcludeTypes :: !(Data.Vector.Vector Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyExcludeType),
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target :: !(Prelude.Maybe ResetOptions'Target),
ResetOptions -> FieldSet
_ResetOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ResetOptions -> ResetOptions -> Bool
(ResetOptions -> ResetOptions -> Bool)
-> (ResetOptions -> ResetOptions -> Bool) -> Eq ResetOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResetOptions -> ResetOptions -> Bool
== :: ResetOptions -> ResetOptions -> Bool
$c/= :: ResetOptions -> ResetOptions -> Bool
/= :: ResetOptions -> ResetOptions -> Bool
Prelude.Eq, Eq ResetOptions
Eq ResetOptions =>
(ResetOptions -> ResetOptions -> Ordering)
-> (ResetOptions -> ResetOptions -> Bool)
-> (ResetOptions -> ResetOptions -> Bool)
-> (ResetOptions -> ResetOptions -> Bool)
-> (ResetOptions -> ResetOptions -> Bool)
-> (ResetOptions -> ResetOptions -> ResetOptions)
-> (ResetOptions -> ResetOptions -> ResetOptions)
-> Ord ResetOptions
ResetOptions -> ResetOptions -> Bool
ResetOptions -> ResetOptions -> Ordering
ResetOptions -> ResetOptions -> ResetOptions
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 :: ResetOptions -> ResetOptions -> Ordering
compare :: ResetOptions -> ResetOptions -> Ordering
$c< :: ResetOptions -> ResetOptions -> Bool
< :: ResetOptions -> ResetOptions -> Bool
$c<= :: ResetOptions -> ResetOptions -> Bool
<= :: ResetOptions -> ResetOptions -> Bool
$c> :: ResetOptions -> ResetOptions -> Bool
> :: ResetOptions -> ResetOptions -> Bool
$c>= :: ResetOptions -> ResetOptions -> Bool
>= :: ResetOptions -> ResetOptions -> Bool
$cmax :: ResetOptions -> ResetOptions -> ResetOptions
max :: ResetOptions -> ResetOptions -> ResetOptions
$cmin :: ResetOptions -> ResetOptions -> ResetOptions
min :: ResetOptions -> ResetOptions -> ResetOptions
Prelude.Ord)
instance Prelude.Show ResetOptions where
showsPrec :: Int -> ResetOptions -> ShowS
showsPrec Int
_ ResetOptions
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ResetOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ResetOptions
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ResetOptions'Target
= ResetOptions'FirstWorkflowTask !Proto.Google.Protobuf.Empty.Empty |
ResetOptions'LastWorkflowTask !Proto.Google.Protobuf.Empty.Empty |
ResetOptions'WorkflowTaskId !Data.Int.Int64 |
ResetOptions'BuildId !Data.Text.Text
deriving stock (Int -> ResetOptions'Target -> ShowS
[ResetOptions'Target] -> ShowS
ResetOptions'Target -> String
(Int -> ResetOptions'Target -> ShowS)
-> (ResetOptions'Target -> String)
-> ([ResetOptions'Target] -> ShowS)
-> Show ResetOptions'Target
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ResetOptions'Target -> ShowS
showsPrec :: Int -> ResetOptions'Target -> ShowS
$cshow :: ResetOptions'Target -> String
show :: ResetOptions'Target -> String
$cshowList :: [ResetOptions'Target] -> ShowS
showList :: [ResetOptions'Target] -> ShowS
Prelude.Show, ResetOptions'Target -> ResetOptions'Target -> Bool
(ResetOptions'Target -> ResetOptions'Target -> Bool)
-> (ResetOptions'Target -> ResetOptions'Target -> Bool)
-> Eq ResetOptions'Target
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResetOptions'Target -> ResetOptions'Target -> Bool
== :: ResetOptions'Target -> ResetOptions'Target -> Bool
$c/= :: ResetOptions'Target -> ResetOptions'Target -> Bool
/= :: ResetOptions'Target -> ResetOptions'Target -> Bool
Prelude.Eq, Eq ResetOptions'Target
Eq ResetOptions'Target =>
(ResetOptions'Target -> ResetOptions'Target -> Ordering)
-> (ResetOptions'Target -> ResetOptions'Target -> Bool)
-> (ResetOptions'Target -> ResetOptions'Target -> Bool)
-> (ResetOptions'Target -> ResetOptions'Target -> Bool)
-> (ResetOptions'Target -> ResetOptions'Target -> Bool)
-> (ResetOptions'Target
-> ResetOptions'Target -> ResetOptions'Target)
-> (ResetOptions'Target
-> ResetOptions'Target -> ResetOptions'Target)
-> Ord ResetOptions'Target
ResetOptions'Target -> ResetOptions'Target -> Bool
ResetOptions'Target -> ResetOptions'Target -> Ordering
ResetOptions'Target -> ResetOptions'Target -> ResetOptions'Target
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 :: ResetOptions'Target -> ResetOptions'Target -> Ordering
compare :: ResetOptions'Target -> ResetOptions'Target -> Ordering
$c< :: ResetOptions'Target -> ResetOptions'Target -> Bool
< :: ResetOptions'Target -> ResetOptions'Target -> Bool
$c<= :: ResetOptions'Target -> ResetOptions'Target -> Bool
<= :: ResetOptions'Target -> ResetOptions'Target -> Bool
$c> :: ResetOptions'Target -> ResetOptions'Target -> Bool
> :: ResetOptions'Target -> ResetOptions'Target -> Bool
$c>= :: ResetOptions'Target -> ResetOptions'Target -> Bool
>= :: ResetOptions'Target -> ResetOptions'Target -> Bool
$cmax :: ResetOptions'Target -> ResetOptions'Target -> ResetOptions'Target
max :: ResetOptions'Target -> ResetOptions'Target -> ResetOptions'Target
$cmin :: ResetOptions'Target -> ResetOptions'Target -> ResetOptions'Target
min :: ResetOptions'Target -> ResetOptions'Target -> ResetOptions'Target
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ResetOptions "resetReapplyType" Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "resetReapplyType"
-> (ResetReapplyType -> f ResetReapplyType)
-> ResetOptions
-> f ResetOptions
fieldOf Proxy# "resetReapplyType"
_
= ((ResetReapplyType -> f ResetReapplyType)
-> ResetOptions -> f ResetOptions)
-> ((ResetReapplyType -> f ResetReapplyType)
-> ResetReapplyType -> f ResetReapplyType)
-> (ResetReapplyType -> f ResetReapplyType)
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> ResetReapplyType)
-> (ResetOptions -> ResetReapplyType -> ResetOptions)
-> Lens ResetOptions ResetOptions ResetReapplyType ResetReapplyType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> ResetReapplyType
_ResetOptions'resetReapplyType
(\ ResetOptions
x__ ResetReapplyType
y__ -> ResetOptions
x__ {_ResetOptions'resetReapplyType = y__}))
(ResetReapplyType -> f ResetReapplyType)
-> ResetReapplyType -> f ResetReapplyType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResetOptions "currentRunOnly" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "currentRunOnly"
-> (Bool -> f Bool) -> ResetOptions -> f ResetOptions
fieldOf Proxy# "currentRunOnly"
_
= ((Bool -> f Bool) -> ResetOptions -> f ResetOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Bool)
-> (ResetOptions -> Bool -> ResetOptions)
-> Lens ResetOptions ResetOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Bool
_ResetOptions'currentRunOnly
(\ ResetOptions
x__ Bool
y__ -> ResetOptions
x__ {_ResetOptions'currentRunOnly = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResetOptions "resetReapplyExcludeTypes" [Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyExcludeType] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "resetReapplyExcludeTypes"
-> ([ResetReapplyExcludeType] -> f [ResetReapplyExcludeType])
-> ResetOptions
-> f ResetOptions
fieldOf Proxy# "resetReapplyExcludeTypes"
_
= ((Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> ResetOptions -> f ResetOptions)
-> (([ResetReapplyExcludeType] -> f [ResetReapplyExcludeType])
-> Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> ([ResetReapplyExcludeType] -> f [ResetReapplyExcludeType])
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Vector ResetReapplyExcludeType)
-> (ResetOptions -> Vector ResetReapplyExcludeType -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Vector ResetReapplyExcludeType)
(Vector ResetReapplyExcludeType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Vector ResetReapplyExcludeType
_ResetOptions'resetReapplyExcludeTypes
(\ ResetOptions
x__ Vector ResetReapplyExcludeType
y__ -> ResetOptions
x__ {_ResetOptions'resetReapplyExcludeTypes = y__}))
((Vector ResetReapplyExcludeType -> [ResetReapplyExcludeType])
-> (Vector ResetReapplyExcludeType
-> [ResetReapplyExcludeType] -> Vector ResetReapplyExcludeType)
-> Lens
(Vector ResetReapplyExcludeType)
(Vector ResetReapplyExcludeType)
[ResetReapplyExcludeType]
[ResetReapplyExcludeType]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ResetReapplyExcludeType -> [ResetReapplyExcludeType]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector ResetReapplyExcludeType
_ [ResetReapplyExcludeType]
y__ -> [ResetReapplyExcludeType] -> Vector ResetReapplyExcludeType
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ResetReapplyExcludeType]
y__))
instance Data.ProtoLens.Field.HasField ResetOptions "vec'resetReapplyExcludeTypes" (Data.Vector.Vector Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyExcludeType) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'resetReapplyExcludeTypes"
-> (Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> ResetOptions
-> f ResetOptions
fieldOf Proxy# "vec'resetReapplyExcludeTypes"
_
= ((Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> ResetOptions -> f ResetOptions)
-> ((Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> (Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Vector ResetReapplyExcludeType)
-> (ResetOptions -> Vector ResetReapplyExcludeType -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Vector ResetReapplyExcludeType)
(Vector ResetReapplyExcludeType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Vector ResetReapplyExcludeType
_ResetOptions'resetReapplyExcludeTypes
(\ ResetOptions
x__ Vector ResetReapplyExcludeType
y__ -> ResetOptions
x__ {_ResetOptions'resetReapplyExcludeTypes = y__}))
(Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType))
-> Vector ResetReapplyExcludeType
-> f (Vector ResetReapplyExcludeType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResetOptions "maybe'target" (Prelude.Maybe ResetOptions'Target) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'target"
-> (Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions
-> f ResetOptions
fieldOf Proxy# "maybe'target"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
(Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResetOptions "maybe'firstWorkflowTask" (Prelude.Maybe Proto.Google.Protobuf.Empty.Empty) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'firstWorkflowTask"
-> (Maybe Empty -> f (Maybe Empty))
-> ResetOptions
-> f ResetOptions
fieldOf Proxy# "maybe'firstWorkflowTask"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Maybe Empty -> f (Maybe Empty))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Maybe Empty -> f (Maybe Empty))
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
((Maybe ResetOptions'Target -> Maybe Empty)
-> (Maybe ResetOptions'Target
-> Maybe Empty -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Empty)
(Maybe Empty)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'FirstWorkflowTask Empty
x__val))
-> Empty -> Maybe Empty
forall a. a -> Maybe a
Prelude.Just Empty
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Empty
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Empty
y__ -> (Empty -> ResetOptions'Target)
-> Maybe Empty -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Empty -> ResetOptions'Target
ResetOptions'FirstWorkflowTask Maybe Empty
y__))
instance Data.ProtoLens.Field.HasField ResetOptions "firstWorkflowTask" Proto.Google.Protobuf.Empty.Empty where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "firstWorkflowTask"
-> (Empty -> f Empty) -> ResetOptions -> f ResetOptions
fieldOf Proxy# "firstWorkflowTask"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Empty -> f Empty)
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Empty -> f Empty)
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
(((Maybe Empty -> f (Maybe Empty))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ((Empty -> f Empty) -> Maybe Empty -> f (Maybe Empty))
-> (Empty -> f Empty)
-> Maybe ResetOptions'Target
-> f (Maybe ResetOptions'Target)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe ResetOptions'Target -> Maybe Empty)
-> (Maybe ResetOptions'Target
-> Maybe Empty -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Empty)
(Maybe Empty)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'FirstWorkflowTask Empty
x__val))
-> Empty -> Maybe Empty
forall a. a -> Maybe a
Prelude.Just Empty
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Empty
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Empty
y__ -> (Empty -> ResetOptions'Target)
-> Maybe Empty -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Empty -> ResetOptions'Target
ResetOptions'FirstWorkflowTask Maybe Empty
y__))
(Empty -> Lens' (Maybe Empty) Empty
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Empty
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ResetOptions "maybe'lastWorkflowTask" (Prelude.Maybe Proto.Google.Protobuf.Empty.Empty) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'lastWorkflowTask"
-> (Maybe Empty -> f (Maybe Empty))
-> ResetOptions
-> f ResetOptions
fieldOf Proxy# "maybe'lastWorkflowTask"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Maybe Empty -> f (Maybe Empty))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Maybe Empty -> f (Maybe Empty))
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
((Maybe ResetOptions'Target -> Maybe Empty)
-> (Maybe ResetOptions'Target
-> Maybe Empty -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Empty)
(Maybe Empty)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'LastWorkflowTask Empty
x__val))
-> Empty -> Maybe Empty
forall a. a -> Maybe a
Prelude.Just Empty
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Empty
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Empty
y__ -> (Empty -> ResetOptions'Target)
-> Maybe Empty -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Empty -> ResetOptions'Target
ResetOptions'LastWorkflowTask Maybe Empty
y__))
instance Data.ProtoLens.Field.HasField ResetOptions "lastWorkflowTask" Proto.Google.Protobuf.Empty.Empty where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lastWorkflowTask"
-> (Empty -> f Empty) -> ResetOptions -> f ResetOptions
fieldOf Proxy# "lastWorkflowTask"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Empty -> f Empty)
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Empty -> f Empty)
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
(((Maybe Empty -> f (Maybe Empty))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ((Empty -> f Empty) -> Maybe Empty -> f (Maybe Empty))
-> (Empty -> f Empty)
-> Maybe ResetOptions'Target
-> f (Maybe ResetOptions'Target)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe ResetOptions'Target -> Maybe Empty)
-> (Maybe ResetOptions'Target
-> Maybe Empty -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Empty)
(Maybe Empty)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'LastWorkflowTask Empty
x__val))
-> Empty -> Maybe Empty
forall a. a -> Maybe a
Prelude.Just Empty
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Empty
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Empty
y__ -> (Empty -> ResetOptions'Target)
-> Maybe Empty -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Empty -> ResetOptions'Target
ResetOptions'LastWorkflowTask Maybe Empty
y__))
(Empty -> Lens' (Maybe Empty) Empty
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Empty
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ResetOptions "maybe'workflowTaskId" (Prelude.Maybe Data.Int.Int64) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowTaskId"
-> (Maybe Int64 -> f (Maybe Int64))
-> ResetOptions
-> f ResetOptions
fieldOf Proxy# "maybe'workflowTaskId"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Maybe Int64 -> f (Maybe Int64))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Maybe Int64 -> f (Maybe Int64))
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
((Maybe ResetOptions'Target -> Maybe Int64)
-> (Maybe ResetOptions'Target
-> Maybe Int64 -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Int64)
(Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'WorkflowTaskId Int64
x__val))
-> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Int64
y__ -> (Int64 -> ResetOptions'Target)
-> Maybe Int64 -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> ResetOptions'Target
ResetOptions'WorkflowTaskId Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField ResetOptions "workflowTaskId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowTaskId"
-> (Int64 -> f Int64) -> ResetOptions -> f ResetOptions
fieldOf Proxy# "workflowTaskId"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Int64 -> f Int64)
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Int64 -> f Int64)
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
(((Maybe Int64 -> f (Maybe Int64))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe ResetOptions'Target
-> f (Maybe ResetOptions'Target)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe ResetOptions'Target -> Maybe Int64)
-> (Maybe ResetOptions'Target
-> Maybe Int64 -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Int64)
(Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'WorkflowTaskId Int64
x__val))
-> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Int64
y__ -> (Int64 -> ResetOptions'Target)
-> Maybe Int64 -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> ResetOptions'Target
ResetOptions'WorkflowTaskId Maybe Int64
y__))
(Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField ResetOptions "maybe'buildId" (Prelude.Maybe Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'buildId"
-> (Maybe Text -> f (Maybe Text)) -> ResetOptions -> f ResetOptions
fieldOf Proxy# "maybe'buildId"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Maybe Text -> f (Maybe Text))
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
((Maybe ResetOptions'Target -> Maybe Text)
-> (Maybe ResetOptions'Target
-> Maybe Text -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'BuildId Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Text
y__ -> (Text -> ResetOptions'Target)
-> Maybe Text -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ResetOptions'Target
ResetOptions'BuildId Maybe Text
y__))
instance Data.ProtoLens.Field.HasField ResetOptions "buildId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "buildId"
-> (Text -> f Text) -> ResetOptions -> f ResetOptions
fieldOf Proxy# "buildId"
_
= ((Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ResetOptions -> f ResetOptions)
-> ((Text -> f Text)
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> (Text -> f Text)
-> ResetOptions
-> f ResetOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetOptions -> Maybe ResetOptions'Target)
-> (ResetOptions -> Maybe ResetOptions'Target -> ResetOptions)
-> Lens
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target
(\ ResetOptions
x__ Maybe ResetOptions'Target
y__ -> ResetOptions
x__ {_ResetOptions'target = y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe ResetOptions'Target -> f (Maybe ResetOptions'Target))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe ResetOptions'Target
-> f (Maybe ResetOptions'Target)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe ResetOptions'Target -> Maybe Text)
-> (Maybe ResetOptions'Target
-> Maybe Text -> Maybe ResetOptions'Target)
-> Lens
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe ResetOptions'Target
x__
-> case Maybe ResetOptions'Target
x__ of
(Prelude.Just (ResetOptions'BuildId Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
Maybe ResetOptions'Target
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ Maybe ResetOptions'Target
_ Maybe Text
y__ -> (Text -> ResetOptions'Target)
-> Maybe Text -> Maybe ResetOptions'Target
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ResetOptions'Target
ResetOptions'BuildId 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 ResetOptions where
messageName :: Proxy ResetOptions -> Text
messageName Proxy ResetOptions
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.ResetOptions"
packedMessageDescriptor :: Proxy ResetOptions -> ByteString
packedMessageDescriptor Proxy ResetOptions
_
= ByteString
"\n\
\\fResetOptions\DC2H\n\
\\DC3first_workflow_task\CAN\SOH \SOH(\v2\SYN.google.protobuf.EmptyH\NULR\DC1firstWorkflowTask\DC2F\n\
\\DC2last_workflow_task\CAN\STX \SOH(\v2\SYN.google.protobuf.EmptyH\NULR\DLElastWorkflowTask\DC2*\n\
\\DLEworkflow_task_id\CAN\ETX \SOH(\ETXH\NULR\SOworkflowTaskId\DC2\ESC\n\
\\bbuild_id\CAN\EOT \SOH(\tH\NULR\abuildId\DC2U\n\
\\DC2reset_reapply_type\CAN\n\
\ \SOH(\SO2'.temporal.api.enums.v1.ResetReapplyTypeR\DLEresetReapplyType\DC2(\n\
\\DLEcurrent_run_only\CAN\v \SOH(\bR\SOcurrentRunOnly\DC2m\n\
\\ESCreset_reapply_exclude_types\CAN\f \ETX(\SO2..temporal.api.enums.v1.ResetReapplyExcludeTypeR\CANresetReapplyExcludeTypesB\b\n\
\\ACKtarget"
packedFileDescriptor :: Proxy ResetOptions -> ByteString
packedFileDescriptor Proxy ResetOptions
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ResetOptions)
fieldsByTag
= let
resetReapplyType__field_descriptor :: FieldDescriptor ResetOptions
resetReapplyType__field_descriptor
= String
-> FieldTypeDescriptor ResetReapplyType
-> FieldAccessor ResetOptions ResetReapplyType
-> FieldDescriptor ResetOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"reset_reapply_type"
(ScalarField ResetReapplyType
-> FieldTypeDescriptor ResetReapplyType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ResetReapplyType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyType)
(WireDefault ResetReapplyType
-> Lens ResetOptions ResetOptions ResetReapplyType ResetReapplyType
-> FieldAccessor ResetOptions ResetReapplyType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ResetReapplyType
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 @"resetReapplyType")) ::
Data.ProtoLens.FieldDescriptor ResetOptions
currentRunOnly__field_descriptor :: FieldDescriptor ResetOptions
currentRunOnly__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ResetOptions Bool
-> FieldDescriptor ResetOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"current_run_only"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens ResetOptions ResetOptions Bool Bool
-> FieldAccessor ResetOptions Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
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 @"currentRunOnly")) ::
Data.ProtoLens.FieldDescriptor ResetOptions
resetReapplyExcludeTypes__field_descriptor :: FieldDescriptor ResetOptions
resetReapplyExcludeTypes__field_descriptor
= String
-> FieldTypeDescriptor ResetReapplyExcludeType
-> FieldAccessor ResetOptions ResetReapplyExcludeType
-> FieldDescriptor ResetOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"reset_reapply_exclude_types"
(ScalarField ResetReapplyExcludeType
-> FieldTypeDescriptor ResetReapplyExcludeType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ResetReapplyExcludeType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyExcludeType)
(Packing
-> Lens' ResetOptions [ResetReapplyExcludeType]
-> FieldAccessor ResetOptions ResetReapplyExcludeType
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 @"resetReapplyExcludeTypes")) ::
Data.ProtoLens.FieldDescriptor ResetOptions
firstWorkflowTask__field_descriptor :: FieldDescriptor ResetOptions
firstWorkflowTask__field_descriptor
= String
-> FieldTypeDescriptor Empty
-> FieldAccessor ResetOptions Empty
-> FieldDescriptor ResetOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"first_workflow_task"
(MessageOrGroup -> FieldTypeDescriptor Empty
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Empty.Empty)
(Lens' ResetOptions (Maybe Empty)
-> FieldAccessor ResetOptions Empty
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'firstWorkflowTask")) ::
Data.ProtoLens.FieldDescriptor ResetOptions
lastWorkflowTask__field_descriptor :: FieldDescriptor ResetOptions
lastWorkflowTask__field_descriptor
= String
-> FieldTypeDescriptor Empty
-> FieldAccessor ResetOptions Empty
-> FieldDescriptor ResetOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"last_workflow_task"
(MessageOrGroup -> FieldTypeDescriptor Empty
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Empty.Empty)
(Lens' ResetOptions (Maybe Empty)
-> FieldAccessor ResetOptions Empty
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'lastWorkflowTask")) ::
Data.ProtoLens.FieldDescriptor ResetOptions
workflowTaskId__field_descriptor :: FieldDescriptor ResetOptions
workflowTaskId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ResetOptions Int64
-> FieldDescriptor ResetOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_task_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Lens' ResetOptions (Maybe Int64)
-> FieldAccessor ResetOptions Int64
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'workflowTaskId")) ::
Data.ProtoLens.FieldDescriptor ResetOptions
buildId__field_descriptor :: FieldDescriptor ResetOptions
buildId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ResetOptions Text
-> FieldDescriptor ResetOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"build_id"
(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' ResetOptions (Maybe Text) -> FieldAccessor ResetOptions 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'buildId")) ::
Data.ProtoLens.FieldDescriptor ResetOptions
in
[(Tag, FieldDescriptor ResetOptions)]
-> Map Tag (FieldDescriptor ResetOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor ResetOptions
resetReapplyType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor ResetOptions
currentRunOnly__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
12,
FieldDescriptor ResetOptions
resetReapplyExcludeTypes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ResetOptions
firstWorkflowTask__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ResetOptions
lastWorkflowTask__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ResetOptions
workflowTaskId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ResetOptions
buildId__field_descriptor)]
unknownFields :: Lens' ResetOptions FieldSet
unknownFields
= (ResetOptions -> FieldSet)
-> (ResetOptions -> FieldSet -> ResetOptions)
-> Lens' ResetOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetOptions -> FieldSet
_ResetOptions'_unknownFields
(\ ResetOptions
x__ FieldSet
y__ -> ResetOptions
x__ {_ResetOptions'_unknownFields = y__})
defMessage :: ResetOptions
defMessage
= ResetOptions'_constructor
{_ResetOptions'resetReapplyType :: ResetReapplyType
_ResetOptions'resetReapplyType = ResetReapplyType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ResetOptions'currentRunOnly :: Bool
_ResetOptions'currentRunOnly = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ResetOptions'resetReapplyExcludeTypes :: Vector ResetReapplyExcludeType
_ResetOptions'resetReapplyExcludeTypes = Vector ResetReapplyExcludeType
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_ResetOptions'target :: Maybe ResetOptions'Target
_ResetOptions'target = Maybe ResetOptions'Target
forall a. Maybe a
Prelude.Nothing,
_ResetOptions'_unknownFields :: FieldSet
_ResetOptions'_unknownFields = []}
parseMessage :: Parser ResetOptions
parseMessage
= let
loop ::
ResetOptions
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Api.Enums.V1.Reset.ResetReapplyExcludeType
-> Data.ProtoLens.Encoding.Bytes.Parser ResetOptions
loop :: ResetOptions
-> Growing Vector RealWorld ResetReapplyExcludeType
-> Parser ResetOptions
loop ResetOptions
x Growing Vector RealWorld ResetReapplyExcludeType
mutable'resetReapplyExcludeTypes
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'resetReapplyExcludeTypes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'resetReapplyExcludeTypes)
(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'resetReapplyExcludeTypes")
frozen'resetReapplyExcludeTypes x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
80
-> do y <- Parser ResetReapplyType -> String -> Parser ResetReapplyType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> ResetReapplyType) -> Parser Int -> Parser ResetReapplyType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> ResetReapplyType
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
"reset_reapply_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"resetReapplyType") y x)
mutable'resetReapplyExcludeTypes
Word64
88
-> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"current_run_only"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"currentRunOnly") y x)
mutable'resetReapplyExcludeTypes
Word64
96
-> do !y <- Parser ResetReapplyExcludeType
-> String -> Parser ResetReapplyExcludeType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> ResetReapplyExcludeType)
-> Parser Int -> Parser ResetReapplyExcludeType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> ResetReapplyExcludeType
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
"reset_reapply_exclude_types"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'resetReapplyExcludeTypes y)
loop x v
Word64
98
-> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len)
((let
ploop Growing v RealWorld a
qs
= do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if packedEnd then
Prelude.return qs
else
do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
(Prelude.fmap
Prelude.toEnum
(Prelude.fmap
Prelude.fromIntegral
Data.ProtoLens.Encoding.Bytes.getVarInt))
"reset_reapply_exclude_types"
qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
qs q)
ploop qs'
in ploop)
mutable'resetReapplyExcludeTypes)
loop x y
Word64
10
-> do y <- Parser Empty -> String -> Parser Empty
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
"first_workflow_task"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"firstWorkflowTask") y x)
mutable'resetReapplyExcludeTypes
Word64
18
-> do y <- Parser Empty -> String -> Parser Empty
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
"last_workflow_task"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastWorkflowTask") y x)
mutable'resetReapplyExcludeTypes
Word64
24
-> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"workflow_task_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowTaskId") y x)
mutable'resetReapplyExcludeTypes
Word64
34
-> 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
"build_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"buildId") y x)
mutable'resetReapplyExcludeTypes
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'resetReapplyExcludeTypes
in
Parser ResetOptions -> String -> Parser ResetOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'resetReapplyExcludeTypes <- IO (Growing Vector RealWorld ResetReapplyExcludeType)
-> Parser (Growing Vector RealWorld ResetReapplyExcludeType)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld ResetReapplyExcludeType)
IO (Growing Vector (PrimState IO) ResetReapplyExcludeType)
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'resetReapplyExcludeTypes)
String
"ResetOptions"
buildMessage :: ResetOptions -> Builder
buildMessage
= \ ResetOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ResetReapplyType
_v
= FoldLike
ResetReapplyType
ResetOptions
ResetOptions
ResetReapplyType
ResetReapplyType
-> ResetOptions -> ResetReapplyType
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 @"resetReapplyType") ResetOptions
_x
in
if ResetReapplyType -> ResetReapplyType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ResetReapplyType
_v ResetReapplyType
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
80)
((Int -> Builder)
-> (ResetReapplyType -> Int) -> ResetReapplyType -> 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)
ResetReapplyType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ResetReapplyType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool ResetOptions ResetOptions Bool Bool
-> ResetOptions -> Bool
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 @"currentRunOnly") ResetOptions
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
88)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector ResetReapplyExcludeType
p = FoldLike
(Vector ResetReapplyExcludeType)
ResetOptions
ResetOptions
(Vector ResetReapplyExcludeType)
(Vector ResetReapplyExcludeType)
-> ResetOptions -> Vector ResetReapplyExcludeType
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'resetReapplyExcludeTypes") ResetOptions
_x
in
if Vector ResetReapplyExcludeType -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector ResetReapplyExcludeType
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
98)
((\ 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
((ResetReapplyExcludeType -> Builder)
-> Vector ResetReapplyExcludeType -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Int -> Builder)
-> (ResetReapplyExcludeType -> Int)
-> ResetReapplyExcludeType
-> 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)
ResetReapplyExcludeType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum)
Vector ResetReapplyExcludeType
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ResetOptions'Target)
ResetOptions
ResetOptions
(Maybe ResetOptions'Target)
(Maybe ResetOptions'Target)
-> ResetOptions -> Maybe ResetOptions'Target
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'target") ResetOptions
_x
of
Maybe ResetOptions'Target
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (ResetOptions'FirstWorkflowTask Empty
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Empty -> ByteString) -> Empty -> 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))
Empty -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Empty
v)
(Prelude.Just (ResetOptions'LastWorkflowTask Empty
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Empty -> ByteString) -> Empty -> 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))
Empty -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Empty
v)
(Prelude.Just (ResetOptions'WorkflowTaskId Int64
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
v)
(Prelude.Just (ResetOptions'BuildId Text
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((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 ResetOptions ResetOptions FieldSet FieldSet
-> ResetOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ResetOptions ResetOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ResetOptions FieldSet
Data.ProtoLens.unknownFields ResetOptions
_x)))))
instance Control.DeepSeq.NFData ResetOptions where
rnf :: ResetOptions -> ()
rnf
= \ ResetOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResetOptions -> FieldSet
_ResetOptions'_unknownFields ResetOptions
x__)
(ResetReapplyType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResetOptions -> ResetReapplyType
_ResetOptions'resetReapplyType ResetOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResetOptions -> Bool
_ResetOptions'currentRunOnly ResetOptions
x__)
(Vector ResetReapplyExcludeType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResetOptions -> Vector ResetReapplyExcludeType
_ResetOptions'resetReapplyExcludeTypes ResetOptions
x__)
(Maybe ResetOptions'Target -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ResetOptions -> Maybe ResetOptions'Target
_ResetOptions'target ResetOptions
x__) ()))))
instance Control.DeepSeq.NFData ResetOptions'Target where
rnf :: ResetOptions'Target -> ()
rnf (ResetOptions'FirstWorkflowTask Empty
x__) = Empty -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Empty
x__
rnf (ResetOptions'LastWorkflowTask Empty
x__) = Empty -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Empty
x__
rnf (ResetOptions'WorkflowTaskId Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
rnf (ResetOptions'BuildId Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
_ResetOptions'FirstWorkflowTask ::
Data.ProtoLens.Prism.Prism' ResetOptions'Target Proto.Google.Protobuf.Empty.Empty
_ResetOptions'FirstWorkflowTask :: Prism' ResetOptions'Target Empty
_ResetOptions'FirstWorkflowTask
= (Empty -> ResetOptions'Target)
-> (ResetOptions'Target -> Maybe Empty)
-> Prism' ResetOptions'Target Empty
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Empty -> ResetOptions'Target
ResetOptions'FirstWorkflowTask
(\ ResetOptions'Target
p__
-> case ResetOptions'Target
p__ of
(ResetOptions'FirstWorkflowTask Empty
p__val) -> Empty -> Maybe Empty
forall a. a -> Maybe a
Prelude.Just Empty
p__val
ResetOptions'Target
_otherwise -> Maybe Empty
forall a. Maybe a
Prelude.Nothing)
_ResetOptions'LastWorkflowTask ::
Data.ProtoLens.Prism.Prism' ResetOptions'Target Proto.Google.Protobuf.Empty.Empty
_ResetOptions'LastWorkflowTask :: Prism' ResetOptions'Target Empty
_ResetOptions'LastWorkflowTask
= (Empty -> ResetOptions'Target)
-> (ResetOptions'Target -> Maybe Empty)
-> Prism' ResetOptions'Target Empty
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Empty -> ResetOptions'Target
ResetOptions'LastWorkflowTask
(\ ResetOptions'Target
p__
-> case ResetOptions'Target
p__ of
(ResetOptions'LastWorkflowTask Empty
p__val) -> Empty -> Maybe Empty
forall a. a -> Maybe a
Prelude.Just Empty
p__val
ResetOptions'Target
_otherwise -> Maybe Empty
forall a. Maybe a
Prelude.Nothing)
_ResetOptions'WorkflowTaskId ::
Data.ProtoLens.Prism.Prism' ResetOptions'Target Data.Int.Int64
_ResetOptions'WorkflowTaskId :: Prism' ResetOptions'Target Int64
_ResetOptions'WorkflowTaskId
= (Int64 -> ResetOptions'Target)
-> (ResetOptions'Target -> Maybe Int64)
-> Prism' ResetOptions'Target Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Int64 -> ResetOptions'Target
ResetOptions'WorkflowTaskId
(\ ResetOptions'Target
p__
-> case ResetOptions'Target
p__ of
(ResetOptions'WorkflowTaskId Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
ResetOptions'Target
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_ResetOptions'BuildId ::
Data.ProtoLens.Prism.Prism' ResetOptions'Target Data.Text.Text
_ResetOptions'BuildId :: Prism' ResetOptions'Target Text
_ResetOptions'BuildId
= (Text -> ResetOptions'Target)
-> (ResetOptions'Target -> Maybe Text)
-> Prism' ResetOptions'Target Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> ResetOptions'Target
ResetOptions'BuildId
(\ ResetOptions'Target
p__
-> case ResetOptions'Target
p__ of
(ResetOptions'BuildId Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
ResetOptions'Target
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
data RetryPolicy
= RetryPolicy'_constructor {RetryPolicy -> Maybe Duration
_RetryPolicy'initialInterval :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
RetryPolicy -> Double
_RetryPolicy'backoffCoefficient :: !Prelude.Double,
RetryPolicy -> Maybe Duration
_RetryPolicy'maximumInterval :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
RetryPolicy -> Int32
_RetryPolicy'maximumAttempts :: !Data.Int.Int32,
RetryPolicy -> Vector Text
_RetryPolicy'nonRetryableErrorTypes :: !(Data.Vector.Vector Data.Text.Text),
RetryPolicy -> FieldSet
_RetryPolicy'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RetryPolicy -> RetryPolicy -> Bool
(RetryPolicy -> RetryPolicy -> Bool)
-> (RetryPolicy -> RetryPolicy -> Bool) -> Eq RetryPolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RetryPolicy -> RetryPolicy -> Bool
== :: RetryPolicy -> RetryPolicy -> Bool
$c/= :: RetryPolicy -> RetryPolicy -> Bool
/= :: RetryPolicy -> RetryPolicy -> Bool
Prelude.Eq, Eq RetryPolicy
Eq RetryPolicy =>
(RetryPolicy -> RetryPolicy -> Ordering)
-> (RetryPolicy -> RetryPolicy -> Bool)
-> (RetryPolicy -> RetryPolicy -> Bool)
-> (RetryPolicy -> RetryPolicy -> Bool)
-> (RetryPolicy -> RetryPolicy -> Bool)
-> (RetryPolicy -> RetryPolicy -> RetryPolicy)
-> (RetryPolicy -> RetryPolicy -> RetryPolicy)
-> Ord RetryPolicy
RetryPolicy -> RetryPolicy -> Bool
RetryPolicy -> RetryPolicy -> Ordering
RetryPolicy -> RetryPolicy -> RetryPolicy
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 :: RetryPolicy -> RetryPolicy -> Ordering
compare :: RetryPolicy -> RetryPolicy -> Ordering
$c< :: RetryPolicy -> RetryPolicy -> Bool
< :: RetryPolicy -> RetryPolicy -> Bool
$c<= :: RetryPolicy -> RetryPolicy -> Bool
<= :: RetryPolicy -> RetryPolicy -> Bool
$c> :: RetryPolicy -> RetryPolicy -> Bool
> :: RetryPolicy -> RetryPolicy -> Bool
$c>= :: RetryPolicy -> RetryPolicy -> Bool
>= :: RetryPolicy -> RetryPolicy -> Bool
$cmax :: RetryPolicy -> RetryPolicy -> RetryPolicy
max :: RetryPolicy -> RetryPolicy -> RetryPolicy
$cmin :: RetryPolicy -> RetryPolicy -> RetryPolicy
min :: RetryPolicy -> RetryPolicy -> RetryPolicy
Prelude.Ord)
instance Prelude.Show RetryPolicy where
showsPrec :: Int -> RetryPolicy -> ShowS
showsPrec Int
_ RetryPolicy
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(RetryPolicy -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RetryPolicy
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RetryPolicy "initialInterval" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "initialInterval"
-> (Duration -> f Duration) -> RetryPolicy -> f RetryPolicy
fieldOf Proxy# "initialInterval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> RetryPolicy -> f RetryPolicy)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Maybe Duration)
-> (RetryPolicy -> Maybe Duration -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Maybe Duration
_RetryPolicy'initialInterval
(\ RetryPolicy
x__ Maybe Duration
y__ -> RetryPolicy
x__ {_RetryPolicy'initialInterval = y__}))
(Duration -> Lens' (Maybe Duration) Duration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Duration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RetryPolicy "maybe'initialInterval" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'initialInterval"
-> (Maybe Duration -> f (Maybe Duration))
-> RetryPolicy
-> f RetryPolicy
fieldOf Proxy# "maybe'initialInterval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> RetryPolicy -> f RetryPolicy)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Maybe Duration)
-> (RetryPolicy -> Maybe Duration -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Maybe Duration
_RetryPolicy'initialInterval
(\ RetryPolicy
x__ Maybe Duration
y__ -> RetryPolicy
x__ {_RetryPolicy'initialInterval = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RetryPolicy "backoffCoefficient" Prelude.Double where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "backoffCoefficient"
-> (Double -> f Double) -> RetryPolicy -> f RetryPolicy
fieldOf Proxy# "backoffCoefficient"
_
= ((Double -> f Double) -> RetryPolicy -> f RetryPolicy)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Double)
-> (RetryPolicy -> Double -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Double
_RetryPolicy'backoffCoefficient
(\ RetryPolicy
x__ Double
y__ -> RetryPolicy
x__ {_RetryPolicy'backoffCoefficient = y__}))
(Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RetryPolicy "maximumInterval" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maximumInterval"
-> (Duration -> f Duration) -> RetryPolicy -> f RetryPolicy
fieldOf Proxy# "maximumInterval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> RetryPolicy -> f RetryPolicy)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Maybe Duration)
-> (RetryPolicy -> Maybe Duration -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Maybe Duration
_RetryPolicy'maximumInterval
(\ RetryPolicy
x__ Maybe Duration
y__ -> RetryPolicy
x__ {_RetryPolicy'maximumInterval = y__}))
(Duration -> Lens' (Maybe Duration) Duration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Duration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RetryPolicy "maybe'maximumInterval" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'maximumInterval"
-> (Maybe Duration -> f (Maybe Duration))
-> RetryPolicy
-> f RetryPolicy
fieldOf Proxy# "maybe'maximumInterval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> RetryPolicy -> f RetryPolicy)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Maybe Duration)
-> (RetryPolicy -> Maybe Duration -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Maybe Duration
_RetryPolicy'maximumInterval
(\ RetryPolicy
x__ Maybe Duration
y__ -> RetryPolicy
x__ {_RetryPolicy'maximumInterval = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RetryPolicy "maximumAttempts" Data.Int.Int32 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maximumAttempts"
-> (Int32 -> f Int32) -> RetryPolicy -> f RetryPolicy
fieldOf Proxy# "maximumAttempts"
_
= ((Int32 -> f Int32) -> RetryPolicy -> f RetryPolicy)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Int32)
-> (RetryPolicy -> Int32 -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Int32
_RetryPolicy'maximumAttempts
(\ RetryPolicy
x__ Int32
y__ -> RetryPolicy
x__ {_RetryPolicy'maximumAttempts = y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RetryPolicy "nonRetryableErrorTypes" [Data.Text.Text] where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nonRetryableErrorTypes"
-> ([Text] -> f [Text]) -> RetryPolicy -> f RetryPolicy
fieldOf Proxy# "nonRetryableErrorTypes"
_
= ((Vector Text -> f (Vector Text)) -> RetryPolicy -> f RetryPolicy)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Vector Text)
-> (RetryPolicy -> Vector Text -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Vector Text
_RetryPolicy'nonRetryableErrorTypes
(\ RetryPolicy
x__ Vector Text
y__ -> RetryPolicy
x__ {_RetryPolicy'nonRetryableErrorTypes = y__}))
((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField RetryPolicy "vec'nonRetryableErrorTypes" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'nonRetryableErrorTypes"
-> (Vector Text -> f (Vector Text)) -> RetryPolicy -> f RetryPolicy
fieldOf Proxy# "vec'nonRetryableErrorTypes"
_
= ((Vector Text -> f (Vector Text)) -> RetryPolicy -> f RetryPolicy)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> RetryPolicy
-> f RetryPolicy
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RetryPolicy -> Vector Text)
-> (RetryPolicy -> Vector Text -> RetryPolicy)
-> Lens RetryPolicy RetryPolicy (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> Vector Text
_RetryPolicy'nonRetryableErrorTypes
(\ RetryPolicy
x__ Vector Text
y__ -> RetryPolicy
x__ {_RetryPolicy'nonRetryableErrorTypes = y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RetryPolicy where
messageName :: Proxy RetryPolicy -> Text
messageName Proxy RetryPolicy
_ = String -> Text
Data.Text.pack String
"temporal.api.common.v1.RetryPolicy"
packedMessageDescriptor :: Proxy RetryPolicy -> ByteString
packedMessageDescriptor Proxy RetryPolicy
_
= ByteString
"\n\
\\vRetryPolicy\DC2D\n\
\\DLEinitial_interval\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\SIinitialInterval\DC2/\n\
\\DC3backoff_coefficient\CAN\STX \SOH(\SOHR\DC2backoffCoefficient\DC2D\n\
\\DLEmaximum_interval\CAN\ETX \SOH(\v2\EM.google.protobuf.DurationR\SImaximumInterval\DC2)\n\
\\DLEmaximum_attempts\CAN\EOT \SOH(\ENQR\SImaximumAttempts\DC29\n\
\\EMnon_retryable_error_types\CAN\ENQ \ETX(\tR\SYNnonRetryableErrorTypes"
packedFileDescriptor :: Proxy RetryPolicy -> ByteString
packedFileDescriptor Proxy RetryPolicy
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RetryPolicy)
fieldsByTag
= let
initialInterval__field_descriptor :: FieldDescriptor RetryPolicy
initialInterval__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor RetryPolicy Duration
-> FieldDescriptor RetryPolicy
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"initial_interval"
(MessageOrGroup -> FieldTypeDescriptor Duration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Duration.Duration)
(Lens RetryPolicy RetryPolicy (Maybe Duration) (Maybe Duration)
-> FieldAccessor RetryPolicy Duration
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'initialInterval")) ::
Data.ProtoLens.FieldDescriptor RetryPolicy
backoffCoefficient__field_descriptor :: FieldDescriptor RetryPolicy
backoffCoefficient__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor RetryPolicy Double
-> FieldDescriptor RetryPolicy
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"backoff_coefficient"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(WireDefault Double
-> Lens RetryPolicy RetryPolicy Double Double
-> FieldAccessor RetryPolicy Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Double
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 @"backoffCoefficient")) ::
Data.ProtoLens.FieldDescriptor RetryPolicy
maximumInterval__field_descriptor :: FieldDescriptor RetryPolicy
maximumInterval__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor RetryPolicy Duration
-> FieldDescriptor RetryPolicy
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"maximum_interval"
(MessageOrGroup -> FieldTypeDescriptor Duration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Duration.Duration)
(Lens RetryPolicy RetryPolicy (Maybe Duration) (Maybe Duration)
-> FieldAccessor RetryPolicy Duration
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'maximumInterval")) ::
Data.ProtoLens.FieldDescriptor RetryPolicy
maximumAttempts__field_descriptor :: FieldDescriptor RetryPolicy
maximumAttempts__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor RetryPolicy Int32
-> FieldDescriptor RetryPolicy
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"maximum_attempts"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(WireDefault Int32
-> Lens RetryPolicy RetryPolicy Int32 Int32
-> FieldAccessor RetryPolicy Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int32
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 @"maximumAttempts")) ::
Data.ProtoLens.FieldDescriptor RetryPolicy
nonRetryableErrorTypes__field_descriptor :: FieldDescriptor RetryPolicy
nonRetryableErrorTypes__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor RetryPolicy Text
-> FieldDescriptor RetryPolicy
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"non_retryable_error_types"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing
-> Lens' RetryPolicy [Text] -> FieldAccessor RetryPolicy Text
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 @"nonRetryableErrorTypes")) ::
Data.ProtoLens.FieldDescriptor RetryPolicy
in
[(Tag, FieldDescriptor RetryPolicy)]
-> Map Tag (FieldDescriptor RetryPolicy)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RetryPolicy
initialInterval__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RetryPolicy
backoffCoefficient__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor RetryPolicy
maximumInterval__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor RetryPolicy
maximumAttempts__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor RetryPolicy
nonRetryableErrorTypes__field_descriptor)]
unknownFields :: Lens' RetryPolicy FieldSet
unknownFields
= (RetryPolicy -> FieldSet)
-> (RetryPolicy -> FieldSet -> RetryPolicy)
-> Lens' RetryPolicy FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RetryPolicy -> FieldSet
_RetryPolicy'_unknownFields
(\ RetryPolicy
x__ FieldSet
y__ -> RetryPolicy
x__ {_RetryPolicy'_unknownFields = y__})
defMessage :: RetryPolicy
defMessage
= RetryPolicy'_constructor
{_RetryPolicy'initialInterval :: Maybe Duration
_RetryPolicy'initialInterval = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_RetryPolicy'backoffCoefficient :: Double
_RetryPolicy'backoffCoefficient = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RetryPolicy'maximumInterval :: Maybe Duration
_RetryPolicy'maximumInterval = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_RetryPolicy'maximumAttempts :: Int32
_RetryPolicy'maximumAttempts = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RetryPolicy'nonRetryableErrorTypes :: Vector Text
_RetryPolicy'nonRetryableErrorTypes = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_RetryPolicy'_unknownFields :: FieldSet
_RetryPolicy'_unknownFields = []}
parseMessage :: Parser RetryPolicy
parseMessage
= let
loop ::
RetryPolicy
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser RetryPolicy
loop :: RetryPolicy -> Growing Vector RealWorld Text -> Parser RetryPolicy
loop RetryPolicy
x Growing Vector RealWorld Text
mutable'nonRetryableErrorTypes
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do frozen'nonRetryableErrorTypes <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.unsafeFreeze
mutable'nonRetryableErrorTypes)
(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'nonRetryableErrorTypes")
frozen'nonRetryableErrorTypes x))
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Duration -> String -> Parser Duration
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
"initial_interval"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"initialInterval") y x)
mutable'nonRetryableErrorTypes
Word64
17
-> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
String
"backoff_coefficient"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"backoffCoefficient") y x)
mutable'nonRetryableErrorTypes
Word64
26
-> do y <- Parser Duration -> String -> Parser Duration
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
"maximum_interval"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"maximumInterval") y x)
mutable'nonRetryableErrorTypes
Word64
32
-> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"maximum_attempts"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"maximumAttempts") y x)
mutable'nonRetryableErrorTypes
Word64
42
-> 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
"non_retryable_error_types"
v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Data.ProtoLens.Encoding.Growing.append
mutable'nonRetryableErrorTypes 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'nonRetryableErrorTypes
in
Parser RetryPolicy -> String -> Parser RetryPolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do mutable'nonRetryableErrorTypes <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
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'nonRetryableErrorTypes)
String
"RetryPolicy"
buildMessage :: RetryPolicy -> Builder
buildMessage
= \ RetryPolicy
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
RetryPolicy
RetryPolicy
(Maybe Duration)
(Maybe Duration)
-> RetryPolicy -> Maybe Duration
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'initialInterval") RetryPolicy
_x
of
Maybe Duration
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Duration
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Duration -> ByteString) -> Duration -> 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))
Duration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Duration
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Double
_v
= FoldLike Double RetryPolicy RetryPolicy Double Double
-> RetryPolicy -> Double
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 @"backoffCoefficient") RetryPolicy
_x
in
if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
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
17)
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
RetryPolicy
RetryPolicy
(Maybe Duration)
(Maybe Duration)
-> RetryPolicy -> Maybe Duration
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'maximumInterval") RetryPolicy
_x
of
Maybe Duration
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Duration
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (Duration -> ByteString) -> Duration -> 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))
Duration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Duration
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 RetryPolicy RetryPolicy Int32 Int32
-> RetryPolicy -> Int32
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 @"maximumAttempts") RetryPolicy
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ Text
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((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))
(FoldLike
(Vector Text) RetryPolicy RetryPolicy (Vector Text) (Vector Text)
-> RetryPolicy -> Vector Text
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'nonRetryableErrorTypes") RetryPolicy
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet RetryPolicy RetryPolicy FieldSet FieldSet
-> RetryPolicy -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RetryPolicy RetryPolicy FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RetryPolicy FieldSet
Data.ProtoLens.unknownFields RetryPolicy
_x))))))
instance Control.DeepSeq.NFData RetryPolicy where
rnf :: RetryPolicy -> ()
rnf
= \ RetryPolicy
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RetryPolicy -> FieldSet
_RetryPolicy'_unknownFields RetryPolicy
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RetryPolicy -> Maybe Duration
_RetryPolicy'initialInterval RetryPolicy
x__)
(Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RetryPolicy -> Double
_RetryPolicy'backoffCoefficient RetryPolicy
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RetryPolicy -> Maybe Duration
_RetryPolicy'maximumInterval RetryPolicy
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RetryPolicy -> Int32
_RetryPolicy'maximumAttempts RetryPolicy
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RetryPolicy -> Vector Text
_RetryPolicy'nonRetryableErrorTypes RetryPolicy
x__) ())))))
data SearchAttributes
= SearchAttributes'_constructor {SearchAttributes -> Map Text Payload
_SearchAttributes'indexedFields :: !(Data.Map.Map Data.Text.Text Payload),
SearchAttributes -> FieldSet
_SearchAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SearchAttributes -> SearchAttributes -> Bool
(SearchAttributes -> SearchAttributes -> Bool)
-> (SearchAttributes -> SearchAttributes -> Bool)
-> Eq SearchAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SearchAttributes -> SearchAttributes -> Bool
== :: SearchAttributes -> SearchAttributes -> Bool
$c/= :: SearchAttributes -> SearchAttributes -> Bool
/= :: SearchAttributes -> SearchAttributes -> Bool
Prelude.Eq, Eq SearchAttributes
Eq SearchAttributes =>
(SearchAttributes -> SearchAttributes -> Ordering)
-> (SearchAttributes -> SearchAttributes -> Bool)
-> (SearchAttributes -> SearchAttributes -> Bool)
-> (SearchAttributes -> SearchAttributes -> Bool)
-> (SearchAttributes -> SearchAttributes -> Bool)
-> (SearchAttributes -> SearchAttributes -> SearchAttributes)
-> (SearchAttributes -> SearchAttributes -> SearchAttributes)
-> Ord SearchAttributes
SearchAttributes -> SearchAttributes -> Bool
SearchAttributes -> SearchAttributes -> Ordering
SearchAttributes -> SearchAttributes -> SearchAttributes
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 :: SearchAttributes -> SearchAttributes -> Ordering
compare :: SearchAttributes -> SearchAttributes -> Ordering
$c< :: SearchAttributes -> SearchAttributes -> Bool
< :: SearchAttributes -> SearchAttributes -> Bool
$c<= :: SearchAttributes -> SearchAttributes -> Bool
<= :: SearchAttributes -> SearchAttributes -> Bool
$c> :: SearchAttributes -> SearchAttributes -> Bool
> :: SearchAttributes -> SearchAttributes -> Bool
$c>= :: SearchAttributes -> SearchAttributes -> Bool
>= :: SearchAttributes -> SearchAttributes -> Bool
$cmax :: SearchAttributes -> SearchAttributes -> SearchAttributes
max :: SearchAttributes -> SearchAttributes -> SearchAttributes
$cmin :: SearchAttributes -> SearchAttributes -> SearchAttributes
min :: SearchAttributes -> SearchAttributes -> SearchAttributes
Prelude.Ord)
instance Prelude.Show SearchAttributes where
showsPrec :: Int -> SearchAttributes -> ShowS
showsPrec Int
_ SearchAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SearchAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SearchAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SearchAttributes "indexedFields" (Data.Map.Map Data.Text.Text Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "indexedFields"
-> (Map Text Payload -> f (Map Text Payload))
-> SearchAttributes
-> f SearchAttributes
fieldOf Proxy# "indexedFields"
_
= ((Map Text Payload -> f (Map Text Payload))
-> SearchAttributes -> f SearchAttributes)
-> ((Map Text Payload -> f (Map Text Payload))
-> Map Text Payload -> f (Map Text Payload))
-> (Map Text Payload -> f (Map Text Payload))
-> SearchAttributes
-> f SearchAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchAttributes -> Map Text Payload)
-> (SearchAttributes -> Map Text Payload -> SearchAttributes)
-> Lens
SearchAttributes
SearchAttributes
(Map Text Payload)
(Map Text Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchAttributes -> Map Text Payload
_SearchAttributes'indexedFields
(\ SearchAttributes
x__ Map Text Payload
y__ -> SearchAttributes
x__ {_SearchAttributes'indexedFields = y__}))
(Map Text Payload -> f (Map Text Payload))
-> Map Text Payload -> f (Map Text Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SearchAttributes where
messageName :: Proxy SearchAttributes -> Text
messageName Proxy SearchAttributes
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.SearchAttributes"
packedMessageDescriptor :: Proxy SearchAttributes -> ByteString
packedMessageDescriptor Proxy SearchAttributes
_
= ByteString
"\n\
\\DLESearchAttributes\DC2b\n\
\\SOindexed_fields\CAN\SOH \ETX(\v2;.temporal.api.common.v1.SearchAttributes.IndexedFieldsEntryR\rindexedFields\SUBa\n\
\\DC2IndexedFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SearchAttributes -> ByteString
packedFileDescriptor Proxy SearchAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SearchAttributes)
fieldsByTag
= let
indexedFields__field_descriptor :: FieldDescriptor SearchAttributes
indexedFields__field_descriptor
= String
-> FieldTypeDescriptor SearchAttributes'IndexedFieldsEntry
-> FieldAccessor
SearchAttributes SearchAttributes'IndexedFieldsEntry
-> FieldDescriptor SearchAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"indexed_fields"
(MessageOrGroup
-> FieldTypeDescriptor SearchAttributes'IndexedFieldsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SearchAttributes'IndexedFieldsEntry)
(Lens' SearchAttributes'IndexedFieldsEntry Text
-> Lens' SearchAttributes'IndexedFieldsEntry Payload
-> Lens
SearchAttributes
SearchAttributes
(Map Text Payload)
(Map Text Payload)
-> FieldAccessor
SearchAttributes SearchAttributes'IndexedFieldsEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"indexedFields")) ::
Data.ProtoLens.FieldDescriptor SearchAttributes
in
[(Tag, FieldDescriptor SearchAttributes)]
-> Map Tag (FieldDescriptor SearchAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SearchAttributes
indexedFields__field_descriptor)]
unknownFields :: Lens' SearchAttributes FieldSet
unknownFields
= (SearchAttributes -> FieldSet)
-> (SearchAttributes -> FieldSet -> SearchAttributes)
-> Lens' SearchAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchAttributes -> FieldSet
_SearchAttributes'_unknownFields
(\ SearchAttributes
x__ FieldSet
y__ -> SearchAttributes
x__ {_SearchAttributes'_unknownFields = y__})
defMessage :: SearchAttributes
defMessage
= SearchAttributes'_constructor
{_SearchAttributes'indexedFields :: Map Text Payload
_SearchAttributes'indexedFields = Map Text Payload
forall k a. Map k a
Data.Map.empty,
_SearchAttributes'_unknownFields :: FieldSet
_SearchAttributes'_unknownFields = []}
parseMessage :: Parser SearchAttributes
parseMessage
= let
loop ::
SearchAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser SearchAttributes
loop :: SearchAttributes -> Parser SearchAttributes
loop SearchAttributes
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 !(entry :: SearchAttributes'IndexedFieldsEntry) <- Parser SearchAttributes'IndexedFieldsEntry
-> String -> Parser SearchAttributes'IndexedFieldsEntry
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
"indexed_fields"
(let
key = FoldLike
Text
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
Text
Text
-> SearchAttributes'IndexedFieldsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") SearchAttributes'IndexedFieldsEntry
entry
value
= FoldLike
Payload
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
Payload
Payload
-> SearchAttributes'IndexedFieldsEntry -> Payload
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 @"value") SearchAttributes'IndexedFieldsEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"indexedFields")
(\ !Map Text Payload
t -> Text -> Payload -> Map Text Payload -> Map Text Payload
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Payload
value Map Text Payload
t) 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 SearchAttributes -> String -> Parser SearchAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SearchAttributes -> Parser SearchAttributes
loop SearchAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SearchAttributes"
buildMessage :: SearchAttributes -> Builder
buildMessage
= \ SearchAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Payload) -> Builder) -> [(Text, Payload)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ (Text, Payload)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (SearchAttributes'IndexedFieldsEntry -> ByteString)
-> SearchAttributes'IndexedFieldsEntry
-> 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))
SearchAttributes'IndexedFieldsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
Text
Text
-> Text
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Payload) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Payload)
_v)
(Setter
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
Payload
Payload
-> Payload
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
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 @"value") ((Text, Payload) -> Payload
forall a b. (a, b) -> b
Prelude.snd (Text, Payload)
_v)
(SearchAttributes'IndexedFieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
SearchAttributes'IndexedFieldsEntry)))))
(Map Text Payload -> [(Text, Payload)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Payload)
SearchAttributes
SearchAttributes
(Map Text Payload)
(Map Text Payload)
-> SearchAttributes -> Map Text Payload
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 @"indexedFields") SearchAttributes
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet SearchAttributes SearchAttributes FieldSet FieldSet
-> SearchAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet SearchAttributes SearchAttributes FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchAttributes FieldSet
Data.ProtoLens.unknownFields SearchAttributes
_x))
instance Control.DeepSeq.NFData SearchAttributes where
rnf :: SearchAttributes -> ()
rnf
= \ SearchAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchAttributes -> FieldSet
_SearchAttributes'_unknownFields SearchAttributes
x__)
(Map Text Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SearchAttributes -> Map Text Payload
_SearchAttributes'indexedFields SearchAttributes
x__) ())
data SearchAttributes'IndexedFieldsEntry
= SearchAttributes'IndexedFieldsEntry'_constructor {SearchAttributes'IndexedFieldsEntry -> Text
_SearchAttributes'IndexedFieldsEntry'key :: !Data.Text.Text,
SearchAttributes'IndexedFieldsEntry -> Maybe Payload
_SearchAttributes'IndexedFieldsEntry'value :: !(Prelude.Maybe Payload),
SearchAttributes'IndexedFieldsEntry -> FieldSet
_SearchAttributes'IndexedFieldsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
(SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool)
-> (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool)
-> Eq SearchAttributes'IndexedFieldsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
== :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
$c/= :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
/= :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
Prelude.Eq, Eq SearchAttributes'IndexedFieldsEntry
Eq SearchAttributes'IndexedFieldsEntry =>
(SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Ordering)
-> (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool)
-> (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool)
-> (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool)
-> (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool)
-> (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry)
-> (SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry)
-> Ord SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Ordering
SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
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 :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Ordering
compare :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Ordering
$c< :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
< :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
$c<= :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
<= :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
$c> :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
> :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
$c>= :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
>= :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry -> Bool
$cmax :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
max :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
$cmin :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
min :: SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
-> SearchAttributes'IndexedFieldsEntry
Prelude.Ord)
instance Prelude.Show SearchAttributes'IndexedFieldsEntry where
showsPrec :: Int -> SearchAttributes'IndexedFieldsEntry -> ShowS
showsPrec Int
_ SearchAttributes'IndexedFieldsEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SearchAttributes'IndexedFieldsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SearchAttributes'IndexedFieldsEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SearchAttributes'IndexedFieldsEntry "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry
fieldOf Proxy# "key"
_
= ((Text -> f Text)
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchAttributes'IndexedFieldsEntry -> Text)
-> (SearchAttributes'IndexedFieldsEntry
-> Text -> SearchAttributes'IndexedFieldsEntry)
-> Lens' SearchAttributes'IndexedFieldsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchAttributes'IndexedFieldsEntry -> Text
_SearchAttributes'IndexedFieldsEntry'key
(\ SearchAttributes'IndexedFieldsEntry
x__ Text
y__
-> SearchAttributes'IndexedFieldsEntry
x__ {_SearchAttributes'IndexedFieldsEntry'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SearchAttributes'IndexedFieldsEntry "value" Payload where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Payload -> f Payload)
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry
fieldOf Proxy# "value"
_
= ((Maybe Payload -> f (Maybe Payload))
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchAttributes'IndexedFieldsEntry -> Maybe Payload)
-> (SearchAttributes'IndexedFieldsEntry
-> Maybe Payload -> SearchAttributes'IndexedFieldsEntry)
-> Lens
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
(Maybe Payload)
(Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchAttributes'IndexedFieldsEntry -> Maybe Payload
_SearchAttributes'IndexedFieldsEntry'value
(\ SearchAttributes'IndexedFieldsEntry
x__ Maybe Payload
y__
-> SearchAttributes'IndexedFieldsEntry
x__ {_SearchAttributes'IndexedFieldsEntry'value = y__}))
(Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SearchAttributes'IndexedFieldsEntry "maybe'value" (Prelude.Maybe Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Payload -> f (Maybe Payload))
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry
fieldOf Proxy# "maybe'value"
_
= ((Maybe Payload -> f (Maybe Payload))
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry)
-> ((Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> SearchAttributes'IndexedFieldsEntry
-> f SearchAttributes'IndexedFieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SearchAttributes'IndexedFieldsEntry -> Maybe Payload)
-> (SearchAttributes'IndexedFieldsEntry
-> Maybe Payload -> SearchAttributes'IndexedFieldsEntry)
-> Lens
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
(Maybe Payload)
(Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchAttributes'IndexedFieldsEntry -> Maybe Payload
_SearchAttributes'IndexedFieldsEntry'value
(\ SearchAttributes'IndexedFieldsEntry
x__ Maybe Payload
y__
-> SearchAttributes'IndexedFieldsEntry
x__ {_SearchAttributes'IndexedFieldsEntry'value = y__}))
(Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SearchAttributes'IndexedFieldsEntry where
messageName :: Proxy SearchAttributes'IndexedFieldsEntry -> Text
messageName Proxy SearchAttributes'IndexedFieldsEntry
_
= String -> Text
Data.Text.pack
String
"temporal.api.common.v1.SearchAttributes.IndexedFieldsEntry"
packedMessageDescriptor :: Proxy SearchAttributes'IndexedFieldsEntry -> ByteString
packedMessageDescriptor Proxy SearchAttributes'IndexedFieldsEntry
_
= ByteString
"\n\
\\DC2IndexedFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SearchAttributes'IndexedFieldsEntry -> ByteString
packedFileDescriptor Proxy SearchAttributes'IndexedFieldsEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SearchAttributes'IndexedFieldsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor SearchAttributes'IndexedFieldsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SearchAttributes'IndexedFieldsEntry Text
-> FieldDescriptor SearchAttributes'IndexedFieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' SearchAttributes'IndexedFieldsEntry Text
-> FieldAccessor SearchAttributes'IndexedFieldsEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor SearchAttributes'IndexedFieldsEntry
value__field_descriptor :: FieldDescriptor SearchAttributes'IndexedFieldsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Payload
-> FieldAccessor SearchAttributes'IndexedFieldsEntry Payload
-> FieldDescriptor SearchAttributes'IndexedFieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Payload)
(Lens
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
(Maybe Payload)
(Maybe Payload)
-> FieldAccessor SearchAttributes'IndexedFieldsEntry Payload
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'value")) ::
Data.ProtoLens.FieldDescriptor SearchAttributes'IndexedFieldsEntry
in
[(Tag, FieldDescriptor SearchAttributes'IndexedFieldsEntry)]
-> Map Tag (FieldDescriptor SearchAttributes'IndexedFieldsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SearchAttributes'IndexedFieldsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SearchAttributes'IndexedFieldsEntry
value__field_descriptor)]
unknownFields :: Lens' SearchAttributes'IndexedFieldsEntry FieldSet
unknownFields
= (SearchAttributes'IndexedFieldsEntry -> FieldSet)
-> (SearchAttributes'IndexedFieldsEntry
-> FieldSet -> SearchAttributes'IndexedFieldsEntry)
-> Lens' SearchAttributes'IndexedFieldsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SearchAttributes'IndexedFieldsEntry -> FieldSet
_SearchAttributes'IndexedFieldsEntry'_unknownFields
(\ SearchAttributes'IndexedFieldsEntry
x__ FieldSet
y__
-> SearchAttributes'IndexedFieldsEntry
x__ {_SearchAttributes'IndexedFieldsEntry'_unknownFields = y__})
defMessage :: SearchAttributes'IndexedFieldsEntry
defMessage
= SearchAttributes'IndexedFieldsEntry'_constructor
{_SearchAttributes'IndexedFieldsEntry'key :: Text
_SearchAttributes'IndexedFieldsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SearchAttributes'IndexedFieldsEntry'value :: Maybe Payload
_SearchAttributes'IndexedFieldsEntry'value = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
_SearchAttributes'IndexedFieldsEntry'_unknownFields :: FieldSet
_SearchAttributes'IndexedFieldsEntry'_unknownFields = []}
parseMessage :: Parser SearchAttributes'IndexedFieldsEntry
parseMessage
= let
loop ::
SearchAttributes'IndexedFieldsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser SearchAttributes'IndexedFieldsEntry
loop :: SearchAttributes'IndexedFieldsEntry
-> Parser SearchAttributes'IndexedFieldsEntry
loop SearchAttributes'IndexedFieldsEntry
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 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
"key"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
Word64
18
-> do y <- Parser Payload -> String -> Parser Payload
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
"value"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") 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 SearchAttributes'IndexedFieldsEntry
-> String -> Parser SearchAttributes'IndexedFieldsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SearchAttributes'IndexedFieldsEntry
-> Parser SearchAttributes'IndexedFieldsEntry
loop SearchAttributes'IndexedFieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"IndexedFieldsEntry"
buildMessage :: SearchAttributes'IndexedFieldsEntry -> Builder
buildMessage
= \ SearchAttributes'IndexedFieldsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
Text
Text
-> SearchAttributes'IndexedFieldsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") SearchAttributes'IndexedFieldsEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payload)
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
(Maybe Payload)
(Maybe Payload)
-> SearchAttributes'IndexedFieldsEntry -> Maybe Payload
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'value") SearchAttributes'IndexedFieldsEntry
_x
of
Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payload
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> 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))
Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
FieldSet
FieldSet
-> SearchAttributes'IndexedFieldsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SearchAttributes'IndexedFieldsEntry
SearchAttributes'IndexedFieldsEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SearchAttributes'IndexedFieldsEntry FieldSet
Data.ProtoLens.unknownFields SearchAttributes'IndexedFieldsEntry
_x)))
instance Control.DeepSeq.NFData SearchAttributes'IndexedFieldsEntry where
rnf :: SearchAttributes'IndexedFieldsEntry -> ()
rnf
= \ SearchAttributes'IndexedFieldsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchAttributes'IndexedFieldsEntry -> FieldSet
_SearchAttributes'IndexedFieldsEntry'_unknownFields SearchAttributes'IndexedFieldsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchAttributes'IndexedFieldsEntry -> Text
_SearchAttributes'IndexedFieldsEntry'key SearchAttributes'IndexedFieldsEntry
x__)
(Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SearchAttributes'IndexedFieldsEntry -> Maybe Payload
_SearchAttributes'IndexedFieldsEntry'value SearchAttributes'IndexedFieldsEntry
x__) ()))
data WorkerVersionCapabilities
= WorkerVersionCapabilities'_constructor {WorkerVersionCapabilities -> Text
_WorkerVersionCapabilities'buildId :: !Data.Text.Text,
WorkerVersionCapabilities -> Bool
_WorkerVersionCapabilities'useVersioning :: !Prelude.Bool,
WorkerVersionCapabilities -> FieldSet
_WorkerVersionCapabilities'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
(WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool)
-> (WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool)
-> Eq WorkerVersionCapabilities
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
== :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
$c/= :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
/= :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
Prelude.Eq, Eq WorkerVersionCapabilities
Eq WorkerVersionCapabilities =>
(WorkerVersionCapabilities
-> WorkerVersionCapabilities -> Ordering)
-> (WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool)
-> (WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool)
-> (WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool)
-> (WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool)
-> (WorkerVersionCapabilities
-> WorkerVersionCapabilities -> WorkerVersionCapabilities)
-> (WorkerVersionCapabilities
-> WorkerVersionCapabilities -> WorkerVersionCapabilities)
-> Ord WorkerVersionCapabilities
WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
WorkerVersionCapabilities -> WorkerVersionCapabilities -> Ordering
WorkerVersionCapabilities
-> WorkerVersionCapabilities -> WorkerVersionCapabilities
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 :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Ordering
compare :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Ordering
$c< :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
< :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
$c<= :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
<= :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
$c> :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
> :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
$c>= :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
>= :: WorkerVersionCapabilities -> WorkerVersionCapabilities -> Bool
$cmax :: WorkerVersionCapabilities
-> WorkerVersionCapabilities -> WorkerVersionCapabilities
max :: WorkerVersionCapabilities
-> WorkerVersionCapabilities -> WorkerVersionCapabilities
$cmin :: WorkerVersionCapabilities
-> WorkerVersionCapabilities -> WorkerVersionCapabilities
min :: WorkerVersionCapabilities
-> WorkerVersionCapabilities -> WorkerVersionCapabilities
Prelude.Ord)
instance Prelude.Show WorkerVersionCapabilities where
showsPrec :: Int -> WorkerVersionCapabilities -> ShowS
showsPrec Int
_ WorkerVersionCapabilities
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(WorkerVersionCapabilities -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkerVersionCapabilities
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkerVersionCapabilities "buildId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "buildId"
-> (Text -> f Text)
-> WorkerVersionCapabilities
-> f WorkerVersionCapabilities
fieldOf Proxy# "buildId"
_
= ((Text -> f Text)
-> WorkerVersionCapabilities -> f WorkerVersionCapabilities)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkerVersionCapabilities
-> f WorkerVersionCapabilities
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerVersionCapabilities -> Text)
-> (WorkerVersionCapabilities -> Text -> WorkerVersionCapabilities)
-> Lens
WorkerVersionCapabilities WorkerVersionCapabilities Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerVersionCapabilities -> Text
_WorkerVersionCapabilities'buildId
(\ WorkerVersionCapabilities
x__ Text
y__ -> WorkerVersionCapabilities
x__ {_WorkerVersionCapabilities'buildId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkerVersionCapabilities "useVersioning" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "useVersioning"
-> (Bool -> f Bool)
-> WorkerVersionCapabilities
-> f WorkerVersionCapabilities
fieldOf Proxy# "useVersioning"
_
= ((Bool -> f Bool)
-> WorkerVersionCapabilities -> f WorkerVersionCapabilities)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WorkerVersionCapabilities
-> f WorkerVersionCapabilities
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerVersionCapabilities -> Bool)
-> (WorkerVersionCapabilities -> Bool -> WorkerVersionCapabilities)
-> Lens
WorkerVersionCapabilities WorkerVersionCapabilities Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerVersionCapabilities -> Bool
_WorkerVersionCapabilities'useVersioning
(\ WorkerVersionCapabilities
x__ Bool
y__
-> WorkerVersionCapabilities
x__ {_WorkerVersionCapabilities'useVersioning = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkerVersionCapabilities where
messageName :: Proxy WorkerVersionCapabilities -> Text
messageName Proxy WorkerVersionCapabilities
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.WorkerVersionCapabilities"
packedMessageDescriptor :: Proxy WorkerVersionCapabilities -> ByteString
packedMessageDescriptor Proxy WorkerVersionCapabilities
_
= ByteString
"\n\
\\EMWorkerVersionCapabilities\DC2\EM\n\
\\bbuild_id\CAN\SOH \SOH(\tR\abuildId\DC2%\n\
\\SOuse_versioning\CAN\STX \SOH(\bR\ruseVersioning"
packedFileDescriptor :: Proxy WorkerVersionCapabilities -> ByteString
packedFileDescriptor Proxy WorkerVersionCapabilities
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor WorkerVersionCapabilities)
fieldsByTag
= let
buildId__field_descriptor :: FieldDescriptor WorkerVersionCapabilities
buildId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkerVersionCapabilities Text
-> FieldDescriptor WorkerVersionCapabilities
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"build_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
WorkerVersionCapabilities WorkerVersionCapabilities Text Text
-> FieldAccessor WorkerVersionCapabilities Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"buildId")) ::
Data.ProtoLens.FieldDescriptor WorkerVersionCapabilities
useVersioning__field_descriptor :: FieldDescriptor WorkerVersionCapabilities
useVersioning__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor WorkerVersionCapabilities Bool
-> FieldDescriptor WorkerVersionCapabilities
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"use_versioning"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens
WorkerVersionCapabilities WorkerVersionCapabilities Bool Bool
-> FieldAccessor WorkerVersionCapabilities Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
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 @"useVersioning")) ::
Data.ProtoLens.FieldDescriptor WorkerVersionCapabilities
in
[(Tag, FieldDescriptor WorkerVersionCapabilities)]
-> Map Tag (FieldDescriptor WorkerVersionCapabilities)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkerVersionCapabilities
buildId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WorkerVersionCapabilities
useVersioning__field_descriptor)]
unknownFields :: Lens' WorkerVersionCapabilities FieldSet
unknownFields
= (WorkerVersionCapabilities -> FieldSet)
-> (WorkerVersionCapabilities
-> FieldSet -> WorkerVersionCapabilities)
-> Lens' WorkerVersionCapabilities FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerVersionCapabilities -> FieldSet
_WorkerVersionCapabilities'_unknownFields
(\ WorkerVersionCapabilities
x__ FieldSet
y__
-> WorkerVersionCapabilities
x__ {_WorkerVersionCapabilities'_unknownFields = y__})
defMessage :: WorkerVersionCapabilities
defMessage
= WorkerVersionCapabilities'_constructor
{_WorkerVersionCapabilities'buildId :: Text
_WorkerVersionCapabilities'buildId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkerVersionCapabilities'useVersioning :: Bool
_WorkerVersionCapabilities'useVersioning = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkerVersionCapabilities'_unknownFields :: FieldSet
_WorkerVersionCapabilities'_unknownFields = []}
parseMessage :: Parser WorkerVersionCapabilities
parseMessage
= let
loop ::
WorkerVersionCapabilities
-> Data.ProtoLens.Encoding.Bytes.Parser WorkerVersionCapabilities
loop :: WorkerVersionCapabilities -> Parser WorkerVersionCapabilities
loop WorkerVersionCapabilities
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 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
"build_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"buildId") y x)
Word64
16
-> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"use_versioning"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"useVersioning") 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 WorkerVersionCapabilities
-> String -> Parser WorkerVersionCapabilities
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do WorkerVersionCapabilities -> Parser WorkerVersionCapabilities
loop WorkerVersionCapabilities
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkerVersionCapabilities"
buildMessage :: WorkerVersionCapabilities -> Builder
buildMessage
= \ WorkerVersionCapabilities
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text WorkerVersionCapabilities WorkerVersionCapabilities Text Text
-> WorkerVersionCapabilities -> Text
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 @"buildId") WorkerVersionCapabilities
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool WorkerVersionCapabilities WorkerVersionCapabilities Bool Bool
-> WorkerVersionCapabilities -> Bool
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 @"useVersioning") WorkerVersionCapabilities
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
WorkerVersionCapabilities
WorkerVersionCapabilities
FieldSet
FieldSet
-> WorkerVersionCapabilities -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
WorkerVersionCapabilities
WorkerVersionCapabilities
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkerVersionCapabilities FieldSet
Data.ProtoLens.unknownFields WorkerVersionCapabilities
_x)))
instance Control.DeepSeq.NFData WorkerVersionCapabilities where
rnf :: WorkerVersionCapabilities -> ()
rnf
= \ WorkerVersionCapabilities
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerVersionCapabilities -> FieldSet
_WorkerVersionCapabilities'_unknownFields WorkerVersionCapabilities
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerVersionCapabilities -> Text
_WorkerVersionCapabilities'buildId WorkerVersionCapabilities
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerVersionCapabilities -> Bool
_WorkerVersionCapabilities'useVersioning WorkerVersionCapabilities
x__) ()))
data WorkerVersionStamp
= WorkerVersionStamp'_constructor {WorkerVersionStamp -> Text
_WorkerVersionStamp'buildId :: !Data.Text.Text,
WorkerVersionStamp -> Bool
_WorkerVersionStamp'useVersioning :: !Prelude.Bool,
WorkerVersionStamp -> FieldSet
_WorkerVersionStamp'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (WorkerVersionStamp -> WorkerVersionStamp -> Bool
(WorkerVersionStamp -> WorkerVersionStamp -> Bool)
-> (WorkerVersionStamp -> WorkerVersionStamp -> Bool)
-> Eq WorkerVersionStamp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
== :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
$c/= :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
/= :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
Prelude.Eq, Eq WorkerVersionStamp
Eq WorkerVersionStamp =>
(WorkerVersionStamp -> WorkerVersionStamp -> Ordering)
-> (WorkerVersionStamp -> WorkerVersionStamp -> Bool)
-> (WorkerVersionStamp -> WorkerVersionStamp -> Bool)
-> (WorkerVersionStamp -> WorkerVersionStamp -> Bool)
-> (WorkerVersionStamp -> WorkerVersionStamp -> Bool)
-> (WorkerVersionStamp -> WorkerVersionStamp -> WorkerVersionStamp)
-> (WorkerVersionStamp -> WorkerVersionStamp -> WorkerVersionStamp)
-> Ord WorkerVersionStamp
WorkerVersionStamp -> WorkerVersionStamp -> Bool
WorkerVersionStamp -> WorkerVersionStamp -> Ordering
WorkerVersionStamp -> WorkerVersionStamp -> WorkerVersionStamp
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 :: WorkerVersionStamp -> WorkerVersionStamp -> Ordering
compare :: WorkerVersionStamp -> WorkerVersionStamp -> Ordering
$c< :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
< :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
$c<= :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
<= :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
$c> :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
> :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
$c>= :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
>= :: WorkerVersionStamp -> WorkerVersionStamp -> Bool
$cmax :: WorkerVersionStamp -> WorkerVersionStamp -> WorkerVersionStamp
max :: WorkerVersionStamp -> WorkerVersionStamp -> WorkerVersionStamp
$cmin :: WorkerVersionStamp -> WorkerVersionStamp -> WorkerVersionStamp
min :: WorkerVersionStamp -> WorkerVersionStamp -> WorkerVersionStamp
Prelude.Ord)
instance Prelude.Show WorkerVersionStamp where
showsPrec :: Int -> WorkerVersionStamp -> ShowS
showsPrec Int
_ WorkerVersionStamp
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(WorkerVersionStamp -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkerVersionStamp
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkerVersionStamp "buildId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "buildId"
-> (Text -> f Text) -> WorkerVersionStamp -> f WorkerVersionStamp
fieldOf Proxy# "buildId"
_
= ((Text -> f Text) -> WorkerVersionStamp -> f WorkerVersionStamp)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkerVersionStamp
-> f WorkerVersionStamp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerVersionStamp -> Text)
-> (WorkerVersionStamp -> Text -> WorkerVersionStamp)
-> Lens WorkerVersionStamp WorkerVersionStamp Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerVersionStamp -> Text
_WorkerVersionStamp'buildId
(\ WorkerVersionStamp
x__ Text
y__ -> WorkerVersionStamp
x__ {_WorkerVersionStamp'buildId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkerVersionStamp "useVersioning" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "useVersioning"
-> (Bool -> f Bool) -> WorkerVersionStamp -> f WorkerVersionStamp
fieldOf Proxy# "useVersioning"
_
= ((Bool -> f Bool) -> WorkerVersionStamp -> f WorkerVersionStamp)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WorkerVersionStamp
-> f WorkerVersionStamp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkerVersionStamp -> Bool)
-> (WorkerVersionStamp -> Bool -> WorkerVersionStamp)
-> Lens WorkerVersionStamp WorkerVersionStamp Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerVersionStamp -> Bool
_WorkerVersionStamp'useVersioning
(\ WorkerVersionStamp
x__ Bool
y__ -> WorkerVersionStamp
x__ {_WorkerVersionStamp'useVersioning = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkerVersionStamp where
messageName :: Proxy WorkerVersionStamp -> Text
messageName Proxy WorkerVersionStamp
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.WorkerVersionStamp"
packedMessageDescriptor :: Proxy WorkerVersionStamp -> ByteString
packedMessageDescriptor Proxy WorkerVersionStamp
_
= ByteString
"\n\
\\DC2WorkerVersionStamp\DC2\EM\n\
\\bbuild_id\CAN\SOH \SOH(\tR\abuildId\DC2%\n\
\\SOuse_versioning\CAN\ETX \SOH(\bR\ruseVersioning"
packedFileDescriptor :: Proxy WorkerVersionStamp -> ByteString
packedFileDescriptor Proxy WorkerVersionStamp
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor WorkerVersionStamp)
fieldsByTag
= let
buildId__field_descriptor :: FieldDescriptor WorkerVersionStamp
buildId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkerVersionStamp Text
-> FieldDescriptor WorkerVersionStamp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"build_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens WorkerVersionStamp WorkerVersionStamp Text Text
-> FieldAccessor WorkerVersionStamp Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"buildId")) ::
Data.ProtoLens.FieldDescriptor WorkerVersionStamp
useVersioning__field_descriptor :: FieldDescriptor WorkerVersionStamp
useVersioning__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor WorkerVersionStamp Bool
-> FieldDescriptor WorkerVersionStamp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"use_versioning"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens WorkerVersionStamp WorkerVersionStamp Bool Bool
-> FieldAccessor WorkerVersionStamp Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
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 @"useVersioning")) ::
Data.ProtoLens.FieldDescriptor WorkerVersionStamp
in
[(Tag, FieldDescriptor WorkerVersionStamp)]
-> Map Tag (FieldDescriptor WorkerVersionStamp)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkerVersionStamp
buildId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WorkerVersionStamp
useVersioning__field_descriptor)]
unknownFields :: Lens' WorkerVersionStamp FieldSet
unknownFields
= (WorkerVersionStamp -> FieldSet)
-> (WorkerVersionStamp -> FieldSet -> WorkerVersionStamp)
-> Lens' WorkerVersionStamp FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkerVersionStamp -> FieldSet
_WorkerVersionStamp'_unknownFields
(\ WorkerVersionStamp
x__ FieldSet
y__ -> WorkerVersionStamp
x__ {_WorkerVersionStamp'_unknownFields = y__})
defMessage :: WorkerVersionStamp
defMessage
= WorkerVersionStamp'_constructor
{_WorkerVersionStamp'buildId :: Text
_WorkerVersionStamp'buildId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkerVersionStamp'useVersioning :: Bool
_WorkerVersionStamp'useVersioning = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkerVersionStamp'_unknownFields :: FieldSet
_WorkerVersionStamp'_unknownFields = []}
parseMessage :: Parser WorkerVersionStamp
parseMessage
= let
loop ::
WorkerVersionStamp
-> Data.ProtoLens.Encoding.Bytes.Parser WorkerVersionStamp
loop :: WorkerVersionStamp -> Parser WorkerVersionStamp
loop WorkerVersionStamp
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 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
"build_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"buildId") y x)
Word64
24
-> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"use_versioning"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"useVersioning") 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 WorkerVersionStamp -> String -> Parser WorkerVersionStamp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do WorkerVersionStamp -> Parser WorkerVersionStamp
loop WorkerVersionStamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkerVersionStamp"
buildMessage :: WorkerVersionStamp -> Builder
buildMessage
= \ WorkerVersionStamp
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text WorkerVersionStamp WorkerVersionStamp Text Text
-> WorkerVersionStamp -> Text
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 @"buildId") WorkerVersionStamp
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool WorkerVersionStamp WorkerVersionStamp Bool Bool
-> WorkerVersionStamp -> Bool
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 @"useVersioning") WorkerVersionStamp
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet WorkerVersionStamp WorkerVersionStamp FieldSet FieldSet
-> WorkerVersionStamp -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet WorkerVersionStamp WorkerVersionStamp FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkerVersionStamp FieldSet
Data.ProtoLens.unknownFields WorkerVersionStamp
_x)))
instance Control.DeepSeq.NFData WorkerVersionStamp where
rnf :: WorkerVersionStamp -> ()
rnf
= \ WorkerVersionStamp
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerVersionStamp -> FieldSet
_WorkerVersionStamp'_unknownFields WorkerVersionStamp
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerVersionStamp -> Text
_WorkerVersionStamp'buildId WorkerVersionStamp
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkerVersionStamp -> Bool
_WorkerVersionStamp'useVersioning WorkerVersionStamp
x__) ()))
data WorkflowExecution
= WorkflowExecution'_constructor {WorkflowExecution -> Text
_WorkflowExecution'workflowId :: !Data.Text.Text,
WorkflowExecution -> Text
_WorkflowExecution'runId :: !Data.Text.Text,
WorkflowExecution -> FieldSet
_WorkflowExecution'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (WorkflowExecution -> WorkflowExecution -> Bool
(WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> Eq WorkflowExecution
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowExecution -> WorkflowExecution -> Bool
== :: WorkflowExecution -> WorkflowExecution -> Bool
$c/= :: WorkflowExecution -> WorkflowExecution -> Bool
/= :: WorkflowExecution -> WorkflowExecution -> Bool
Prelude.Eq, Eq WorkflowExecution
Eq WorkflowExecution =>
(WorkflowExecution -> WorkflowExecution -> Ordering)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> Bool)
-> (WorkflowExecution -> WorkflowExecution -> WorkflowExecution)
-> (WorkflowExecution -> WorkflowExecution -> WorkflowExecution)
-> Ord WorkflowExecution
WorkflowExecution -> WorkflowExecution -> Bool
WorkflowExecution -> WorkflowExecution -> Ordering
WorkflowExecution -> WorkflowExecution -> WorkflowExecution
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 :: WorkflowExecution -> WorkflowExecution -> Ordering
compare :: WorkflowExecution -> WorkflowExecution -> Ordering
$c< :: WorkflowExecution -> WorkflowExecution -> Bool
< :: WorkflowExecution -> WorkflowExecution -> Bool
$c<= :: WorkflowExecution -> WorkflowExecution -> Bool
<= :: WorkflowExecution -> WorkflowExecution -> Bool
$c> :: WorkflowExecution -> WorkflowExecution -> Bool
> :: WorkflowExecution -> WorkflowExecution -> Bool
$c>= :: WorkflowExecution -> WorkflowExecution -> Bool
>= :: WorkflowExecution -> WorkflowExecution -> Bool
$cmax :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
max :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
$cmin :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
min :: WorkflowExecution -> WorkflowExecution -> WorkflowExecution
Prelude.Ord)
instance Prelude.Show WorkflowExecution where
showsPrec :: Int -> WorkflowExecution -> ShowS
showsPrec Int
_ WorkflowExecution
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(WorkflowExecution -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowExecution
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowExecution "workflowId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowId"
-> (Text -> f Text) -> WorkflowExecution -> f WorkflowExecution
fieldOf Proxy# "workflowId"
_
= ((Text -> f Text) -> WorkflowExecution -> f WorkflowExecution)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowExecution
-> f WorkflowExecution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkflowExecution -> Text)
-> (WorkflowExecution -> Text -> WorkflowExecution)
-> Lens WorkflowExecution WorkflowExecution Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkflowExecution -> Text
_WorkflowExecution'workflowId
(\ WorkflowExecution
x__ Text
y__ -> WorkflowExecution
x__ {_WorkflowExecution'workflowId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowExecution "runId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "runId"
-> (Text -> f Text) -> WorkflowExecution -> f WorkflowExecution
fieldOf Proxy# "runId"
_
= ((Text -> f Text) -> WorkflowExecution -> f WorkflowExecution)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowExecution
-> f WorkflowExecution
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkflowExecution -> Text)
-> (WorkflowExecution -> Text -> WorkflowExecution)
-> Lens WorkflowExecution WorkflowExecution Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkflowExecution -> Text
_WorkflowExecution'runId
(\ WorkflowExecution
x__ Text
y__ -> WorkflowExecution
x__ {_WorkflowExecution'runId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowExecution where
messageName :: Proxy WorkflowExecution -> Text
messageName Proxy WorkflowExecution
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.WorkflowExecution"
packedMessageDescriptor :: Proxy WorkflowExecution -> ByteString
packedMessageDescriptor Proxy WorkflowExecution
_
= ByteString
"\n\
\\DC1WorkflowExecution\DC2\US\n\
\\vworkflow_id\CAN\SOH \SOH(\tR\n\
\workflowId\DC2\NAK\n\
\\ACKrun_id\CAN\STX \SOH(\tR\ENQrunId"
packedFileDescriptor :: Proxy WorkflowExecution -> ByteString
packedFileDescriptor Proxy WorkflowExecution
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor WorkflowExecution)
fieldsByTag
= let
workflowId__field_descriptor :: FieldDescriptor WorkflowExecution
workflowId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowExecution Text
-> FieldDescriptor WorkflowExecution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens WorkflowExecution WorkflowExecution Text Text
-> FieldAccessor WorkflowExecution Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"workflowId")) ::
Data.ProtoLens.FieldDescriptor WorkflowExecution
runId__field_descriptor :: FieldDescriptor WorkflowExecution
runId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowExecution Text
-> FieldDescriptor WorkflowExecution
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"run_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens WorkflowExecution WorkflowExecution Text Text
-> FieldAccessor WorkflowExecution Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"runId")) ::
Data.ProtoLens.FieldDescriptor WorkflowExecution
in
[(Tag, FieldDescriptor WorkflowExecution)]
-> Map Tag (FieldDescriptor WorkflowExecution)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowExecution
workflowId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WorkflowExecution
runId__field_descriptor)]
unknownFields :: Lens' WorkflowExecution FieldSet
unknownFields
= (WorkflowExecution -> FieldSet)
-> (WorkflowExecution -> FieldSet -> WorkflowExecution)
-> Lens' WorkflowExecution FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkflowExecution -> FieldSet
_WorkflowExecution'_unknownFields
(\ WorkflowExecution
x__ FieldSet
y__ -> WorkflowExecution
x__ {_WorkflowExecution'_unknownFields = y__})
defMessage :: WorkflowExecution
defMessage
= WorkflowExecution'_constructor
{_WorkflowExecution'workflowId :: Text
_WorkflowExecution'workflowId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkflowExecution'runId :: Text
_WorkflowExecution'runId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkflowExecution'_unknownFields :: FieldSet
_WorkflowExecution'_unknownFields = []}
parseMessage :: Parser WorkflowExecution
parseMessage
= let
loop ::
WorkflowExecution
-> Data.ProtoLens.Encoding.Bytes.Parser WorkflowExecution
loop :: WorkflowExecution -> Parser WorkflowExecution
loop WorkflowExecution
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 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
"workflow_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"workflowId") 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
"run_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"runId") 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 WorkflowExecution -> String -> Parser WorkflowExecution
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do WorkflowExecution -> Parser WorkflowExecution
loop WorkflowExecution
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowExecution"
buildMessage :: WorkflowExecution -> Builder
buildMessage
= \ WorkflowExecution
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text WorkflowExecution WorkflowExecution Text Text
-> WorkflowExecution -> Text
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 @"workflowId") WorkflowExecution
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text WorkflowExecution WorkflowExecution Text Text
-> WorkflowExecution -> Text
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 @"runId") WorkflowExecution
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> 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 WorkflowExecution WorkflowExecution FieldSet FieldSet
-> WorkflowExecution -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet WorkflowExecution WorkflowExecution FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowExecution FieldSet
Data.ProtoLens.unknownFields WorkflowExecution
_x)))
instance Control.DeepSeq.NFData WorkflowExecution where
rnf :: WorkflowExecution -> ()
rnf
= \ WorkflowExecution
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkflowExecution -> FieldSet
_WorkflowExecution'_unknownFields WorkflowExecution
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkflowExecution -> Text
_WorkflowExecution'workflowId WorkflowExecution
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WorkflowExecution -> Text
_WorkflowExecution'runId WorkflowExecution
x__) ()))
data WorkflowType
= WorkflowType'_constructor {WorkflowType -> Text
_WorkflowType'name :: !Data.Text.Text,
WorkflowType -> FieldSet
_WorkflowType'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (WorkflowType -> WorkflowType -> Bool
(WorkflowType -> WorkflowType -> Bool)
-> (WorkflowType -> WorkflowType -> Bool) -> Eq WorkflowType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowType -> WorkflowType -> Bool
== :: WorkflowType -> WorkflowType -> Bool
$c/= :: WorkflowType -> WorkflowType -> Bool
/= :: WorkflowType -> WorkflowType -> Bool
Prelude.Eq, Eq WorkflowType
Eq WorkflowType =>
(WorkflowType -> WorkflowType -> Ordering)
-> (WorkflowType -> WorkflowType -> Bool)
-> (WorkflowType -> WorkflowType -> Bool)
-> (WorkflowType -> WorkflowType -> Bool)
-> (WorkflowType -> WorkflowType -> Bool)
-> (WorkflowType -> WorkflowType -> WorkflowType)
-> (WorkflowType -> WorkflowType -> WorkflowType)
-> Ord WorkflowType
WorkflowType -> WorkflowType -> Bool
WorkflowType -> WorkflowType -> Ordering
WorkflowType -> WorkflowType -> WorkflowType
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 :: WorkflowType -> WorkflowType -> Ordering
compare :: WorkflowType -> WorkflowType -> Ordering
$c< :: WorkflowType -> WorkflowType -> Bool
< :: WorkflowType -> WorkflowType -> Bool
$c<= :: WorkflowType -> WorkflowType -> Bool
<= :: WorkflowType -> WorkflowType -> Bool
$c> :: WorkflowType -> WorkflowType -> Bool
> :: WorkflowType -> WorkflowType -> Bool
$c>= :: WorkflowType -> WorkflowType -> Bool
>= :: WorkflowType -> WorkflowType -> Bool
$cmax :: WorkflowType -> WorkflowType -> WorkflowType
max :: WorkflowType -> WorkflowType -> WorkflowType
$cmin :: WorkflowType -> WorkflowType -> WorkflowType
min :: WorkflowType -> WorkflowType -> WorkflowType
Prelude.Ord)
instance Prelude.Show WorkflowType where
showsPrec :: Int -> WorkflowType -> ShowS
showsPrec Int
_ WorkflowType
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(WorkflowType -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowType
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WorkflowType "name" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (Text -> f Text) -> WorkflowType -> f WorkflowType
fieldOf Proxy# "name"
_
= ((Text -> f Text) -> WorkflowType -> f WorkflowType)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowType
-> f WorkflowType
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((WorkflowType -> Text)
-> (WorkflowType -> Text -> WorkflowType)
-> Lens WorkflowType WorkflowType Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkflowType -> Text
_WorkflowType'name (\ WorkflowType
x__ Text
y__ -> WorkflowType
x__ {_WorkflowType'name = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WorkflowType where
messageName :: Proxy WorkflowType -> Text
messageName Proxy WorkflowType
_
= String -> Text
Data.Text.pack String
"temporal.api.common.v1.WorkflowType"
packedMessageDescriptor :: Proxy WorkflowType -> ByteString
packedMessageDescriptor Proxy WorkflowType
_
= ByteString
"\n\
\\fWorkflowType\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname"
packedFileDescriptor :: Proxy WorkflowType -> ByteString
packedFileDescriptor Proxy WorkflowType
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor WorkflowType)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor WorkflowType
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowType Text
-> FieldDescriptor WorkflowType
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens WorkflowType WorkflowType Text Text
-> FieldAccessor WorkflowType Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
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 @"name")) ::
Data.ProtoLens.FieldDescriptor WorkflowType
in
[(Tag, FieldDescriptor WorkflowType)]
-> Map Tag (FieldDescriptor WorkflowType)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowType
name__field_descriptor)]
unknownFields :: Lens' WorkflowType FieldSet
unknownFields
= (WorkflowType -> FieldSet)
-> (WorkflowType -> FieldSet -> WorkflowType)
-> Lens' WorkflowType FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
WorkflowType -> FieldSet
_WorkflowType'_unknownFields
(\ WorkflowType
x__ FieldSet
y__ -> WorkflowType
x__ {_WorkflowType'_unknownFields = y__})
defMessage :: WorkflowType
defMessage
= WorkflowType'_constructor
{_WorkflowType'name :: Text
_WorkflowType'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_WorkflowType'_unknownFields :: FieldSet
_WorkflowType'_unknownFields = []}
parseMessage :: Parser WorkflowType
parseMessage
= let
loop ::
WorkflowType -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowType
loop :: WorkflowType -> Parser WorkflowType
loop WorkflowType
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 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
"name"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") 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 WorkflowType -> String -> Parser WorkflowType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do WorkflowType -> Parser WorkflowType
loop WorkflowType
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowType"
buildMessage :: WorkflowType -> Builder
buildMessage
= \ WorkflowType
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text WorkflowType WorkflowType Text Text
-> WorkflowType -> Text
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 @"name") WorkflowType
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> 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 WorkflowType WorkflowType FieldSet FieldSet
-> WorkflowType -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet WorkflowType WorkflowType FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowType FieldSet
Data.ProtoLens.unknownFields WorkflowType
_x))
instance Control.DeepSeq.NFData WorkflowType where
rnf :: WorkflowType -> ()
rnf
= \ WorkflowType
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(WorkflowType -> FieldSet
_WorkflowType'_unknownFields WorkflowType
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WorkflowType -> Text
_WorkflowType'name WorkflowType
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\$temporal/api/common/v1/message.proto\DC2\SYNtemporal.api.common.v1\SUB\RSgoogle/protobuf/duration.proto\SUB\ESCgoogle/protobuf/empty.proto\SUB\"temporal/api/enums/v1/common.proto\SUB!temporal/api/enums/v1/reset.proto\"h\n\
\\bDataBlob\DC2H\n\
\\rencoding_type\CAN\SOH \SOH(\SO2#.temporal.api.enums.v1.EncodingTypeR\fencodingType\DC2\DC2\n\
\\EOTdata\CAN\STX \SOH(\fR\EOTdata\"G\n\
\\bPayloads\DC2;\n\
\\bpayloads\CAN\SOH \ETX(\v2\US.temporal.api.common.v1.PayloadR\bpayloads\"\165\SOH\n\
\\aPayload\DC2I\n\
\\bmetadata\CAN\SOH \ETX(\v2-.temporal.api.common.v1.Payload.MetadataEntryR\bmetadata\DC2\DC2\n\
\\EOTdata\CAN\STX \SOH(\fR\EOTdata\SUB;\n\
\\rMetadataEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\fR\ENQvalue:\STX8\SOH\"\217\SOH\n\
\\DLESearchAttributes\DC2b\n\
\\SOindexed_fields\CAN\SOH \ETX(\v2;.temporal.api.common.v1.SearchAttributes.IndexedFieldsEntryR\rindexedFields\SUBa\n\
\\DC2IndexedFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH\"\164\SOH\n\
\\EOTMemo\DC2@\n\
\\ACKfields\CAN\SOH \ETX(\v2(.temporal.api.common.v1.Memo.FieldsEntryR\ACKfields\SUBZ\n\
\\vFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH\"\168\SOH\n\
\\ACKHeader\DC2B\n\
\\ACKfields\CAN\SOH \ETX(\v2*.temporal.api.common.v1.Header.FieldsEntryR\ACKfields\SUBZ\n\
\\vFieldsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
\\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH\"K\n\
\\DC1WorkflowExecution\DC2\US\n\
\\vworkflow_id\CAN\SOH \SOH(\tR\n\
\workflowId\DC2\NAK\n\
\\ACKrun_id\CAN\STX \SOH(\tR\ENQrunId\"\"\n\
\\fWorkflowType\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\"\"\n\
\\fActivityType\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\"\176\STX\n\
\\vRetryPolicy\DC2D\n\
\\DLEinitial_interval\CAN\SOH \SOH(\v2\EM.google.protobuf.DurationR\SIinitialInterval\DC2/\n\
\\DC3backoff_coefficient\CAN\STX \SOH(\SOHR\DC2backoffCoefficient\DC2D\n\
\\DLEmaximum_interval\CAN\ETX \SOH(\v2\EM.google.protobuf.DurationR\SImaximumInterval\DC2)\n\
\\DLEmaximum_attempts\CAN\EOT \SOH(\ENQR\SImaximumAttempts\DC29\n\
\\EMnon_retryable_error_types\CAN\ENQ \ETX(\tR\SYNnonRetryableErrorTypes\"n\n\
\\DLEMeteringMetadata\DC2Z\n\
\*nonfirst_local_activity_execution_attempts\CAN\r \SOH(\rR&nonfirstLocalActivityExecutionAttempts\"V\n\
\\DC2WorkerVersionStamp\DC2\EM\n\
\\bbuild_id\CAN\SOH \SOH(\tR\abuildId\DC2%\n\
\\SOuse_versioning\CAN\ETX \SOH(\bR\ruseVersioning\"]\n\
\\EMWorkerVersionCapabilities\DC2\EM\n\
\\bbuild_id\CAN\SOH \SOH(\tR\abuildId\DC2%\n\
\\SOuse_versioning\CAN\STX \SOH(\bR\ruseVersioning\"\227\ETX\n\
\\fResetOptions\DC2H\n\
\\DC3first_workflow_task\CAN\SOH \SOH(\v2\SYN.google.protobuf.EmptyH\NULR\DC1firstWorkflowTask\DC2F\n\
\\DC2last_workflow_task\CAN\STX \SOH(\v2\SYN.google.protobuf.EmptyH\NULR\DLElastWorkflowTask\DC2*\n\
\\DLEworkflow_task_id\CAN\ETX \SOH(\ETXH\NULR\SOworkflowTaskId\DC2\ESC\n\
\\bbuild_id\CAN\EOT \SOH(\tH\NULR\abuildId\DC2U\n\
\\DC2reset_reapply_type\CAN\n\
\ \SOH(\SO2'.temporal.api.enums.v1.ResetReapplyTypeR\DLEresetReapplyType\DC2(\n\
\\DLEcurrent_run_only\CAN\v \SOH(\bR\SOcurrentRunOnly\DC2m\n\
\\ESCreset_reapply_exclude_types\CAN\f \ETX(\SO2..temporal.api.enums.v1.ResetReapplyExcludeTypeR\CANresetReapplyExcludeTypesB\b\n\
\\ACKtarget\"\254\SOH\n\
\\bCallback\DC2>\n\
\\ENQnexus\CAN\STX \SOH(\v2&.temporal.api.common.v1.Callback.NexusH\NULR\ENQnexus\SUB\160\SOH\n\
\\ENQNexus\DC2\DLE\n\
\\ETXurl\CAN\SOH \SOH(\tR\ETXurl\DC2J\n\
\\ACKheader\CAN\STX \ETX(\v22.temporal.api.common.v1.Callback.Nexus.HeaderEntryR\ACKheader\SUB9\n\
\\vHeaderEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOHB\t\n\
\\avariantJ\EOT\b\SOH\DLE\STXB\137\SOH\n\
\\EMio.temporal.api.common.v1B\fMessageProtoP\SOHZ#go.temporal.io/api/common/v1;common\170\STX\CANTemporalio.Api.Common.V1\234\STX\ESCTemporalio::Api::Common::V1J\209@\n\
\\a\DC2\ENQ\SYN\NUL\197\SOH\SOH\n\
\\241\b\n\
\\SOH\f\DC2\ETX\SYN\NUL\DC22\230\b The MIT License\n\
\\n\
\ Copyright (c) 2020 Temporal Technologies Inc. All rights reserved.\n\
\\n\
\ Permission is hereby granted, free of charge, to any person obtaining a copy\n\
\ of this software and associated documentation files (the \"Software\"), to deal\n\
\ in the Software without restriction, including without limitation the rights\n\
\ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n\
\ copies of the Software, and to permit persons to whom the Software is\n\
\ furnished to do so, subject to the following conditions:\n\
\\n\
\ The above copyright notice and this permission notice shall be included in\n\
\ all copies or substantial portions of the Software.\n\
\\n\
\ THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n\
\ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n\
\ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n\
\ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n\
\ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n\
\ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n\
\ THE SOFTWARE.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\CAN\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\SUB\NUL:\n\
\\t\n\
\\STX\b\v\DC2\ETX\SUB\NUL:\n\
\\b\n\
\\SOH\b\DC2\ETX\ESC\NUL2\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\ESC\NUL2\n\
\\b\n\
\\SOH\b\DC2\ETX\FS\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\FS\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\GS\NUL-\n\
\\t\n\
\\STX\b\b\DC2\ETX\GS\NUL-\n\
\\b\n\
\\SOH\b\DC2\ETX\RS\NUL4\n\
\\t\n\
\\STX\b-\DC2\ETX\RS\NUL4\n\
\\b\n\
\\SOH\b\DC2\ETX\US\NUL5\n\
\\t\n\
\\STX\b%\DC2\ETX\US\NUL5\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX!\NUL(\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\"\NUL%\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX$\NUL,\n\
\\t\n\
\\STX\ETX\ETX\DC2\ETX%\NUL+\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT'\NUL*\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX'\b\DLE\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX(\EOT9\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX(\EOT&\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX('4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX(78\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX)\EOT\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX)\EOT\t\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX)\n\
\\SO\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX)\DC1\DC2\n\
\\ESC\n\
\\STX\EOT\SOH\DC2\EOT-\NUL/\SOH\SUB\SI See `Payload`\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX-\b\DLE\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX.\EOT\"\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX.\EOT\f\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX.\r\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX.\NAK\GS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX. !\n\
\\239\SOH\n\
\\STX\EOT\STX\DC2\EOT4\NUL7\SOH\SUB\226\SOH Represents some binary (byte array) data (ex: activity input parameters or workflow result) with\n\
\ metadata which describes this binary data (format, encoding, encryption, etc). Serialization\n\
\ of the data may be user-defined.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX4\b\SI\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX5\EOT#\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX5\EOT\NAK\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX5\SYN\RS\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX5!\"\n\
\\v\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX6\EOT\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX6\EOT\t\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX6\n\
\\SO\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX6\DC1\DC2\n\
\\163\SOH\n\
\\STX\EOT\ETX\DC2\EOT;\NUL=\SOH\SUB\150\SOH A user-defined set of *indexed* fields that are used/exposed when listing/searching workflows.\n\
\ The payload is not serialized in a user-defined way.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX;\b\CAN\n\
\\v\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX<\EOT,\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX<\EOT\CAN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX<\EM'\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX<*+\n\
\h\n\
\\STX\EOT\EOT\DC2\EOT@\NULB\SOH\SUB\\ A user-defined set of *unindexed* fields that are exposed when listing/searching workflows\n\
\\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX@\b\f\n\
\\v\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETXA\EOT$\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETXA\EOT\CAN\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXA\EM\US\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXA\"#\n\
\\176\SOH\n\
\\STX\EOT\ENQ\DC2\EOTF\NULH\SOH\SUB\163\SOH Contains metadata that can be attached to a variety of requests, like starting a workflow, and\n\
\ can be propagated between, for example, workflows and activities.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXF\b\SO\n\
\\v\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXG\EOT$\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETXG\EOT\CAN\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXG\EM\US\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXG\"#\n\
\\145\STX\n\
\\STX\EOT\ACK\DC2\EOTM\NULP\SOH\SUB\132\STX Identifies a specific workflow within a namespace. Practically speaking, because run_id is a\n\
\ uuid, a workflow execution is globally unique. Note that many commands allow specifying an empty\n\
\ run id as a way of saying \"target the latest run of the workflow\".\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXM\b\EM\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXN\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXN\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXN\v\SYN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXN\EM\SUB\n\
\\v\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETXO\EOT\SYN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETXO\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXO\v\DC1\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXO\DC4\NAK\n\
\\181\SOH\n\
\\STX\EOT\a\DC2\EOTT\NULV\SOH\SUB\168\SOH Represents the identifier used by a workflow author to define the workflow. Typically, the\n\
\ name of a function. This is sometimes referred to as the workflow's \"name\"\n\
\\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETXT\b\DC4\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETXU\EOT\DC4\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXU\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXU\v\SI\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXU\DC2\DC3\n\
\\181\SOH\n\
\\STX\EOT\b\DC2\EOTZ\NUL\\\SOH\SUB\168\SOH Represents the identifier used by a activity author to define the activity. Typically, the\n\
\ name of a function. This is sometimes referred to as the activity's \"name\"\n\
\\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETXZ\b\DC4\n\
\\v\n\
\\EOT\EOT\b\STX\NUL\DC2\ETX[\EOT\DC4\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETX[\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX[\v\SI\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX[\DC2\DC3\n\
\V\n\
\\STX\EOT\t\DC2\EOT_\NULo\SOH\SUBJ How retries ought to be handled, usable by both workflows and activities\n\
\\n\
\\n\
\\n\
\\ETX\EOT\t\SOH\DC2\ETX_\b\DC3\n\
\n\n\
\\EOT\EOT\t\STX\NUL\DC2\ETXa\EOT2\SUBa Interval of the first retry. If retryBackoffCoefficient is 1.0 then it is used for all retries.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\ETXa\EOT\FS\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXa\GS-\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXa01\n\
\\169\SOH\n\
\\EOT\EOT\t\STX\SOH\DC2\ETXe\EOT#\SUB\155\SOH Coefficient used to calculate the next retry interval.\n\
\ The next retry interval is previous interval multiplied by the coefficient.\n\
\ Must be 1 or larger.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXe\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXe\v\RS\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXe!\"\n\
\\178\SOH\n\
\\EOT\EOT\t\STX\STX\DC2\ETXh\EOT2\SUB\164\SOH Maximum interval between retries. Exponential backoff leads to interval increase.\n\
\ This value is the cap of the increase. Default is 100x of the initial interval.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\STX\ACK\DC2\ETXh\EOT\FS\n\
\\f\n\
\\ENQ\EOT\t\STX\STX\SOH\DC2\ETXh\GS-\n\
\\f\n\
\\ENQ\EOT\t\STX\STX\ETX\DC2\ETXh01\n\
\\159\SOH\n\
\\EOT\EOT\t\STX\ETX\DC2\ETXk\EOT\US\SUB\145\SOH Maximum number of attempts. When exceeded the retries stop even if not expired yet.\n\
\ 1 disables retries. 0 means unlimited (up to the timeouts)\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\ETX\ENQ\DC2\ETXk\EOT\t\n\
\\f\n\
\\ENQ\EOT\t\STX\ETX\SOH\DC2\ETXk\n\
\\SUB\n\
\\f\n\
\\ENQ\EOT\t\STX\ETX\ETX\DC2\ETXk\GS\RS\n\
\\192\SOH\n\
\\EOT\EOT\t\STX\EOT\DC2\ETXn\EOT2\SUB\178\SOH Non-Retryable errors types. Will stop retrying if the error type matches this list. Note that\n\
\ this is not a substring match, the error *type* (not message) must match exactly.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\EOT\EOT\DC2\ETXn\EOT\f\n\
\\f\n\
\\ENQ\EOT\t\STX\EOT\ENQ\DC2\ETXn\r\DC3\n\
\\f\n\
\\ENQ\EOT\t\STX\EOT\SOH\DC2\ETXn\DC4-\n\
\\f\n\
\\ENQ\EOT\t\STX\EOT\ETX\DC2\ETXn01\n\
\5\n\
\\STX\EOT\n\
\\DC2\EOTr\NULz\SOH\SUB) Metadata relevant for metering purposes\n\
\\n\
\\n\
\\n\
\\ETX\EOT\n\
\\SOH\DC2\ETXr\b\CAN\n\
\\239\STX\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\ETXy\EOT;\SUB\225\STX Count of local activities which have begun an execution attempt during this workflow task,\n\
\ and whose first attempt occurred in some previous task. This is used for metering\n\
\ purposes, and does not affect workflow state.\n\
\\n\
\ (-- api-linter: core::0141::forbidden-types=disabled\n\
\ aip.dev/not-precedent: Negative values make no sense to represent. --)\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ENQ\DC2\ETXy\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\ETXy\v5\n\
\\f\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\ETXy8:\n\
\J\n\
\\STX\EOT\v\DC2\ENQ}\NUL\135\SOH\SOH\SUB= Identifies the version(s) of a worker that processed a task\n\
\\n\
\\n\
\\n\
\\ETX\EOT\v\SOH\DC2\ETX}\b\SUB\n\
\\170\SOH\n\
\\EOT\EOT\v\STX\NUL\DC2\EOT\128\SOH\EOT\CAN\SUB\155\SOH An opaque whole-worker identifier. Replaces the deprecated `binary_checksum` field when this\n\
\ message is included in requests which previously used that.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ENQ\DC2\EOT\128\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\128\SOH\v\DC3\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\128\SOH\SYN\ETB\n\
\\173\SOH\n\
\\EOT\EOT\v\STX\SOH\DC2\EOT\132\SOH\EOT\FS\SUB\158\SOH If set, the worker is opting in to worker versioning. Otherwise, this is used only as a\n\
\ marker for workflow reset points and the BuildIDs search attribute.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ENQ\DC2\EOT\132\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\132\SOH\t\ETB\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\132\SOH\SUB\ESC\n\
\\151\STX\n\
\\STX\EOT\f\DC2\ACK\140\SOH\NUL\149\SOH\SOH\SUB\136\STX Identifies the version(s) that a worker is compatible with when polling or identifying itself,\n\
\ and whether or not this worker is opting into the build-id based versioning feature. This is\n\
\ used by matching to determine which workers ought to receive what tasks.\n\
\\n\
\\v\n\
\\ETX\EOT\f\SOH\DC2\EOT\140\SOH\b!\n\
\1\n\
\\EOT\EOT\f\STX\NUL\DC2\EOT\142\SOH\EOT\CAN\SUB# An opaque whole-worker identifier\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\142\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\142\SOH\v\DC3\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\142\SOH\SYN\ETB\n\
\t\n\
\\EOT\EOT\f\STX\SOH\DC2\EOT\146\SOH\EOT\FS\SUBf If set, the worker is opting in to worker versioning, and wishes to only receive appropriate\n\
\ tasks.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ENQ\DC2\EOT\146\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\146\SOH\t\ETB\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\146\SOH\SUB\ESC\n\
\\141\SOH\n\
\\STX\EOT\r\DC2\ACK\153\SOH\NUL\182\SOH\SOH\SUB\DEL Describes where and how to reset a workflow, used for batch reset currently\n\
\ and may be used for single-workflow reset later.\n\
\\n\
\\v\n\
\\ETX\EOT\r\SOH\DC2\EOT\153\SOH\b\DC4\n\
\2\n\
\\EOT\EOT\r\b\NUL\DC2\ACK\155\SOH\EOT\170\SOH\ENQ\SUB\" Which workflow task to reset to.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\b\NUL\SOH\DC2\EOT\155\SOH\n\
\\DLE\n\
\M\n\
\\EOT\EOT\r\STX\NUL\DC2\EOT\157\SOH\b6\SUB? Resets to the first workflow task completed or started event.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ACK\DC2\EOT\157\SOH\b\GS\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\157\SOH\RS1\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\157\SOH45\n\
\L\n\
\\EOT\EOT\r\STX\SOH\DC2\EOT\159\SOH\b5\SUB> Resets to the last workflow task completed or started event.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ACK\DC2\EOT\159\SOH\b\GS\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\159\SOH\RS0\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\159\SOH34\n\
\\241\SOH\n\
\\EOT\EOT\r\STX\STX\DC2\EOT\163\SOH\b#\SUB\226\SOH The id of a specific `WORKFLOW_TASK_COMPLETED`,`WORKFLOW_TASK_TIMED_OUT`, `WORKFLOW_TASK_FAILED`, or\n\
\ `WORKFLOW_TASK_STARTED` event to reset to.\n\
\ Note that this option doesn't make sense when used as part of a batch request.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ENQ\DC2\EOT\163\SOH\b\r\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\SOH\DC2\EOT\163\SOH\SO\RS\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ETX\DC2\EOT\163\SOH!\"\n\
\\171\STX\n\
\\EOT\EOT\r\STX\ETX\DC2\EOT\169\SOH\b\FS\SUB\156\STX Resets to the first workflow task processed by this build id.\n\
\ If the workflow was not processed by the build id, or the workflow task can't be\n\
\ determined, no reset will be performed.\n\
\ Note that by default, this reset is allowed to be to a prior run in a chain of\n\
\ continue-as-new.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ENQ\DC2\EOT\169\SOH\b\SO\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\SOH\DC2\EOT\169\SOH\SI\ETB\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ETX\DC2\EOT\169\SOH\SUB\ESC\n\
\\\\n\
\\EOT\EOT\r\STX\EOT\DC2\EOT\174\SOH\EOTC\SUBN Event types to be reapplied (deprecated)\n\
\ Default: RESET_REAPPLY_TYPE_SIGNAL\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\ACK\DC2\EOT\174\SOH\EOT*\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\SOH\DC2\EOT\174\SOH+=\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\ETX\DC2\EOT\174\SOH@B\n\
\\138\SOH\n\
\\EOT\EOT\r\STX\ENQ\DC2\EOT\178\SOH\EOT\US\SUB| If true, limit the reset to only within the current run. (Applies to build_id targets and\n\
\ possibly others in the future.)\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\ENQ\DC2\EOT\178\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\SOH\DC2\EOT\178\SOH\t\EM\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\ETX\DC2\EOT\178\SOH\FS\RS\n\
\/\n\
\\EOT\EOT\r\STX\ACK\DC2\EOT\181\SOH\EOT\\\SUB! Event types not to be reapplied\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\EOT\DC2\EOT\181\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\ACK\DC2\EOT\181\SOH\r:\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\SOH\DC2\EOT\181\SOH;V\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\ETX\DC2\EOT\181\SOHY[\n\
\a\n\
\\STX\EOT\SO\DC2\ACK\185\SOH\NUL\197\SOH\SOH\SUBS Callback to attach to various events in the system, e.g. workflow run completion.\n\
\\n\
\\v\n\
\\ETX\EOT\SO\SOH\DC2\EOT\185\SOH\b\DLE\n\
\\SO\n\
\\EOT\EOT\SO\ETX\NUL\DC2\ACK\186\SOH\EOT\191\SOH\ENQ\n\
\\r\n\
\\ENQ\EOT\SO\ETX\NUL\SOH\DC2\EOT\186\SOH\f\DC1\n\
\\US\n\
\\ACK\EOT\SO\ETX\NUL\STX\NUL\DC2\EOT\188\SOH\b\ETB\SUB\SI Callback URL.\n\
\\n\
\\SI\n\
\\a\EOT\SO\ETX\NUL\STX\NUL\ENQ\DC2\EOT\188\SOH\b\SO\n\
\\SI\n\
\\a\EOT\SO\ETX\NUL\STX\NUL\SOH\DC2\EOT\188\SOH\SI\DC2\n\
\\SI\n\
\\a\EOT\SO\ETX\NUL\STX\NUL\ETX\DC2\EOT\188\SOH\NAK\SYN\n\
\7\n\
\\ACK\EOT\SO\ETX\NUL\STX\SOH\DC2\EOT\190\SOH\b'\SUB' Header to attach to callback request.\n\
\\n\
\\SI\n\
\\a\EOT\SO\ETX\NUL\STX\SOH\ACK\DC2\EOT\190\SOH\b\ESC\n\
\\SI\n\
\\a\EOT\SO\ETX\NUL\STX\SOH\SOH\DC2\EOT\190\SOH\FS\"\n\
\\SI\n\
\\a\EOT\SO\ETX\NUL\STX\SOH\ETX\DC2\EOT\190\SOH%&\n\
\B\n\
\\ETX\EOT\SO\t\DC2\EOT\193\SOH\EOT\SI\"5 For a generic callback mechanism to be added later.\n\
\\n\
\\f\n\
\\EOT\EOT\SO\t\NUL\DC2\EOT\193\SOH\r\SO\n\
\\r\n\
\\ENQ\EOT\SO\t\NUL\SOH\DC2\EOT\193\SOH\r\SO\n\
\\r\n\
\\ENQ\EOT\SO\t\NUL\STX\DC2\EOT\193\SOH\r\SO\n\
\\SO\n\
\\EOT\EOT\SO\b\NUL\DC2\ACK\194\SOH\EOT\196\SOH\ENQ\n\
\\r\n\
\\ENQ\EOT\SO\b\NUL\SOH\DC2\EOT\194\SOH\n\
\\DC1\n\
\\f\n\
\\EOT\EOT\SO\STX\NUL\DC2\EOT\195\SOH\b\CAN\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ACK\DC2\EOT\195\SOH\b\r\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\195\SOH\SO\DC3\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\195\SOH\SYN\ETBb\ACKproto3"