{-# 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.Command.V1.Message (
CancelTimerCommandAttributes(),
CancelWorkflowExecutionCommandAttributes(), Command(),
Command'Attributes(..),
_Command'ScheduleActivityTaskCommandAttributes,
_Command'StartTimerCommandAttributes,
_Command'CompleteWorkflowExecutionCommandAttributes,
_Command'FailWorkflowExecutionCommandAttributes,
_Command'RequestCancelActivityTaskCommandAttributes,
_Command'CancelTimerCommandAttributes,
_Command'CancelWorkflowExecutionCommandAttributes,
_Command'RequestCancelExternalWorkflowExecutionCommandAttributes,
_Command'RecordMarkerCommandAttributes,
_Command'ContinueAsNewWorkflowExecutionCommandAttributes,
_Command'StartChildWorkflowExecutionCommandAttributes,
_Command'SignalExternalWorkflowExecutionCommandAttributes,
_Command'UpsertWorkflowSearchAttributesCommandAttributes,
_Command'ProtocolMessageCommandAttributes,
_Command'ModifyWorkflowPropertiesCommandAttributes,
_Command'ScheduleNexusOperationCommandAttributes,
_Command'RequestCancelNexusOperationCommandAttributes,
CompleteWorkflowExecutionCommandAttributes(),
ContinueAsNewWorkflowExecutionCommandAttributes(),
FailWorkflowExecutionCommandAttributes(),
ModifyWorkflowPropertiesCommandAttributes(),
ProtocolMessageCommandAttributes(),
RecordMarkerCommandAttributes(),
RecordMarkerCommandAttributes'DetailsEntry(),
RequestCancelActivityTaskCommandAttributes(),
RequestCancelExternalWorkflowExecutionCommandAttributes(),
RequestCancelNexusOperationCommandAttributes(),
ScheduleActivityTaskCommandAttributes(),
ScheduleNexusOperationCommandAttributes(),
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry(),
SignalExternalWorkflowExecutionCommandAttributes(),
StartChildWorkflowExecutionCommandAttributes(),
StartTimerCommandAttributes(),
UpsertWorkflowSearchAttributesCommandAttributes()
) 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.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Api.Enums.V1.CommandType
import qualified Proto.Temporal.Api.Enums.V1.Workflow
import qualified Proto.Temporal.Api.Failure.V1.Message
import qualified Proto.Temporal.Api.Taskqueue.V1.Message
data CancelTimerCommandAttributes
= CancelTimerCommandAttributes'_constructor {CancelTimerCommandAttributes -> Text
_CancelTimerCommandAttributes'timerId :: !Data.Text.Text,
CancelTimerCommandAttributes -> FieldSet
_CancelTimerCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
(CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool)
-> (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool)
-> Eq CancelTimerCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
== :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
$c/= :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
/= :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
Prelude.Eq, Eq CancelTimerCommandAttributes
Eq CancelTimerCommandAttributes =>
(CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Ordering)
-> (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool)
-> (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool)
-> (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool)
-> (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool)
-> (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> CancelTimerCommandAttributes)
-> (CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> CancelTimerCommandAttributes)
-> Ord CancelTimerCommandAttributes
CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Ordering
CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> CancelTimerCommandAttributes
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 :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Ordering
compare :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Ordering
$c< :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
< :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
$c<= :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
<= :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
$c> :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
> :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
$c>= :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
>= :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> Bool
$cmax :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> CancelTimerCommandAttributes
max :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> CancelTimerCommandAttributes
$cmin :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> CancelTimerCommandAttributes
min :: CancelTimerCommandAttributes
-> CancelTimerCommandAttributes -> CancelTimerCommandAttributes
Prelude.Ord)
instance Prelude.Show CancelTimerCommandAttributes where
showsPrec :: Int -> CancelTimerCommandAttributes -> ShowS
showsPrec Int
_ CancelTimerCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CancelTimerCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CancelTimerCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CancelTimerCommandAttributes "timerId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timerId"
-> (Text -> f Text)
-> CancelTimerCommandAttributes
-> f CancelTimerCommandAttributes
fieldOf Proxy# "timerId"
_
= ((Text -> f Text)
-> CancelTimerCommandAttributes -> f CancelTimerCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CancelTimerCommandAttributes
-> f CancelTimerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CancelTimerCommandAttributes -> Text)
-> (CancelTimerCommandAttributes
-> Text -> CancelTimerCommandAttributes)
-> Lens
CancelTimerCommandAttributes CancelTimerCommandAttributes Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CancelTimerCommandAttributes -> Text
_CancelTimerCommandAttributes'timerId
(\ CancelTimerCommandAttributes
x__ Text
y__ -> CancelTimerCommandAttributes
x__ {_CancelTimerCommandAttributes'timerId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CancelTimerCommandAttributes where
messageName :: Proxy CancelTimerCommandAttributes -> Text
messageName Proxy CancelTimerCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.CancelTimerCommandAttributes"
packedMessageDescriptor :: Proxy CancelTimerCommandAttributes -> ByteString
packedMessageDescriptor Proxy CancelTimerCommandAttributes
_
= ByteString
"\n\
\\FSCancelTimerCommandAttributes\DC2\EM\n\
\\btimer_id\CAN\SOH \SOH(\tR\atimerId"
packedFileDescriptor :: Proxy CancelTimerCommandAttributes -> ByteString
packedFileDescriptor Proxy CancelTimerCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CancelTimerCommandAttributes)
fieldsByTag
= let
timerId__field_descriptor :: FieldDescriptor CancelTimerCommandAttributes
timerId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CancelTimerCommandAttributes Text
-> FieldDescriptor CancelTimerCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"timer_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
CancelTimerCommandAttributes CancelTimerCommandAttributes Text Text
-> FieldAccessor CancelTimerCommandAttributes 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 @"timerId")) ::
Data.ProtoLens.FieldDescriptor CancelTimerCommandAttributes
in
[(Tag, FieldDescriptor CancelTimerCommandAttributes)]
-> Map Tag (FieldDescriptor CancelTimerCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CancelTimerCommandAttributes
timerId__field_descriptor)]
unknownFields :: Lens' CancelTimerCommandAttributes FieldSet
unknownFields
= (CancelTimerCommandAttributes -> FieldSet)
-> (CancelTimerCommandAttributes
-> FieldSet -> CancelTimerCommandAttributes)
-> Lens' CancelTimerCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CancelTimerCommandAttributes -> FieldSet
_CancelTimerCommandAttributes'_unknownFields
(\ CancelTimerCommandAttributes
x__ FieldSet
y__
-> CancelTimerCommandAttributes
x__ {_CancelTimerCommandAttributes'_unknownFields = y__})
defMessage :: CancelTimerCommandAttributes
defMessage
= CancelTimerCommandAttributes'_constructor
{_CancelTimerCommandAttributes'timerId :: Text
_CancelTimerCommandAttributes'timerId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_CancelTimerCommandAttributes'_unknownFields :: FieldSet
_CancelTimerCommandAttributes'_unknownFields = []}
parseMessage :: Parser CancelTimerCommandAttributes
parseMessage
= let
loop ::
CancelTimerCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser CancelTimerCommandAttributes
loop :: CancelTimerCommandAttributes -> Parser CancelTimerCommandAttributes
loop CancelTimerCommandAttributes
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
"timer_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"timerId") 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 CancelTimerCommandAttributes
-> String -> Parser CancelTimerCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CancelTimerCommandAttributes -> Parser CancelTimerCommandAttributes
loop CancelTimerCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CancelTimerCommandAttributes"
buildMessage :: CancelTimerCommandAttributes -> Builder
buildMessage
= \ CancelTimerCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
CancelTimerCommandAttributes
CancelTimerCommandAttributes
Text
Text
-> CancelTimerCommandAttributes -> 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 @"timerId") CancelTimerCommandAttributes
_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
CancelTimerCommandAttributes
CancelTimerCommandAttributes
FieldSet
FieldSet
-> CancelTimerCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CancelTimerCommandAttributes
CancelTimerCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CancelTimerCommandAttributes FieldSet
Data.ProtoLens.unknownFields CancelTimerCommandAttributes
_x))
instance Control.DeepSeq.NFData CancelTimerCommandAttributes where
rnf :: CancelTimerCommandAttributes -> ()
rnf
= \ CancelTimerCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CancelTimerCommandAttributes -> FieldSet
_CancelTimerCommandAttributes'_unknownFields CancelTimerCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CancelTimerCommandAttributes -> Text
_CancelTimerCommandAttributes'timerId CancelTimerCommandAttributes
x__) ())
data CancelWorkflowExecutionCommandAttributes
= CancelWorkflowExecutionCommandAttributes'_constructor {CancelWorkflowExecutionCommandAttributes -> Maybe Payloads
_CancelWorkflowExecutionCommandAttributes'details :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
CancelWorkflowExecutionCommandAttributes -> FieldSet
_CancelWorkflowExecutionCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
(CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool)
-> (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool)
-> Eq CancelWorkflowExecutionCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
== :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
$c/= :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
/= :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
Prelude.Eq, Eq CancelWorkflowExecutionCommandAttributes
Eq CancelWorkflowExecutionCommandAttributes =>
(CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Ordering)
-> (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool)
-> (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool)
-> (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool)
-> (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool)
-> (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes)
-> (CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes)
-> Ord CancelWorkflowExecutionCommandAttributes
CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Ordering
CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
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 :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Ordering
compare :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Ordering
$c< :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
< :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
$c<= :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
<= :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
$c> :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
> :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
$c>= :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
>= :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes -> Bool
$cmax :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
max :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
$cmin :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
min :: CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
-> CancelWorkflowExecutionCommandAttributes
Prelude.Ord)
instance Prelude.Show CancelWorkflowExecutionCommandAttributes where
showsPrec :: Int -> CancelWorkflowExecutionCommandAttributes -> ShowS
showsPrec Int
_ CancelWorkflowExecutionCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CancelWorkflowExecutionCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CancelWorkflowExecutionCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CancelWorkflowExecutionCommandAttributes "details" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details"
-> (Payloads -> f Payloads)
-> CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes
fieldOf Proxy# "details"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CancelWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (CancelWorkflowExecutionCommandAttributes
-> Maybe Payloads -> CancelWorkflowExecutionCommandAttributes)
-> Lens
CancelWorkflowExecutionCommandAttributes
CancelWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CancelWorkflowExecutionCommandAttributes -> Maybe Payloads
_CancelWorkflowExecutionCommandAttributes'details
(\ CancelWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> CancelWorkflowExecutionCommandAttributes
x__ {_CancelWorkflowExecutionCommandAttributes'details = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CancelWorkflowExecutionCommandAttributes "maybe'details" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'details"
-> (Maybe Payloads -> f (Maybe Payloads))
-> CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'details"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CancelWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (CancelWorkflowExecutionCommandAttributes
-> Maybe Payloads -> CancelWorkflowExecutionCommandAttributes)
-> Lens
CancelWorkflowExecutionCommandAttributes
CancelWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CancelWorkflowExecutionCommandAttributes -> Maybe Payloads
_CancelWorkflowExecutionCommandAttributes'details
(\ CancelWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> CancelWorkflowExecutionCommandAttributes
x__ {_CancelWorkflowExecutionCommandAttributes'details = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CancelWorkflowExecutionCommandAttributes where
messageName :: Proxy CancelWorkflowExecutionCommandAttributes -> Text
messageName Proxy CancelWorkflowExecutionCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.CancelWorkflowExecutionCommandAttributes"
packedMessageDescriptor :: Proxy CancelWorkflowExecutionCommandAttributes -> ByteString
packedMessageDescriptor Proxy CancelWorkflowExecutionCommandAttributes
_
= ByteString
"\n\
\(CancelWorkflowExecutionCommandAttributes\DC2:\n\
\\adetails\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\adetails"
packedFileDescriptor :: Proxy CancelWorkflowExecutionCommandAttributes -> ByteString
packedFileDescriptor Proxy CancelWorkflowExecutionCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CancelWorkflowExecutionCommandAttributes)
fieldsByTag
= let
details__field_descriptor :: FieldDescriptor CancelWorkflowExecutionCommandAttributes
details__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor CancelWorkflowExecutionCommandAttributes Payloads
-> FieldDescriptor CancelWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"details"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
CancelWorkflowExecutionCommandAttributes
CancelWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor CancelWorkflowExecutionCommandAttributes Payloads
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'details")) ::
Data.ProtoLens.FieldDescriptor CancelWorkflowExecutionCommandAttributes
in
[(Tag, FieldDescriptor CancelWorkflowExecutionCommandAttributes)]
-> Map
Tag (FieldDescriptor CancelWorkflowExecutionCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CancelWorkflowExecutionCommandAttributes
details__field_descriptor)]
unknownFields :: Lens' CancelWorkflowExecutionCommandAttributes FieldSet
unknownFields
= (CancelWorkflowExecutionCommandAttributes -> FieldSet)
-> (CancelWorkflowExecutionCommandAttributes
-> FieldSet -> CancelWorkflowExecutionCommandAttributes)
-> Lens' CancelWorkflowExecutionCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CancelWorkflowExecutionCommandAttributes -> FieldSet
_CancelWorkflowExecutionCommandAttributes'_unknownFields
(\ CancelWorkflowExecutionCommandAttributes
x__ FieldSet
y__
-> CancelWorkflowExecutionCommandAttributes
x__
{_CancelWorkflowExecutionCommandAttributes'_unknownFields = y__})
defMessage :: CancelWorkflowExecutionCommandAttributes
defMessage
= CancelWorkflowExecutionCommandAttributes'_constructor
{_CancelWorkflowExecutionCommandAttributes'details :: Maybe Payloads
_CancelWorkflowExecutionCommandAttributes'details = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_CancelWorkflowExecutionCommandAttributes'_unknownFields :: FieldSet
_CancelWorkflowExecutionCommandAttributes'_unknownFields = []}
parseMessage :: Parser CancelWorkflowExecutionCommandAttributes
parseMessage
= let
loop ::
CancelWorkflowExecutionCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser CancelWorkflowExecutionCommandAttributes
loop :: CancelWorkflowExecutionCommandAttributes
-> Parser CancelWorkflowExecutionCommandAttributes
loop CancelWorkflowExecutionCommandAttributes
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 Payloads -> String -> Parser Payloads
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
"details"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"details") 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 CancelWorkflowExecutionCommandAttributes
-> String -> Parser CancelWorkflowExecutionCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CancelWorkflowExecutionCommandAttributes
-> Parser CancelWorkflowExecutionCommandAttributes
loop CancelWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"CancelWorkflowExecutionCommandAttributes"
buildMessage :: CancelWorkflowExecutionCommandAttributes -> Builder
buildMessage
= \ CancelWorkflowExecutionCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
CancelWorkflowExecutionCommandAttributes
CancelWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> CancelWorkflowExecutionCommandAttributes -> Maybe Payloads
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'details") CancelWorkflowExecutionCommandAttributes
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CancelWorkflowExecutionCommandAttributes
CancelWorkflowExecutionCommandAttributes
FieldSet
FieldSet
-> CancelWorkflowExecutionCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CancelWorkflowExecutionCommandAttributes
CancelWorkflowExecutionCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CancelWorkflowExecutionCommandAttributes FieldSet
Data.ProtoLens.unknownFields CancelWorkflowExecutionCommandAttributes
_x))
instance Control.DeepSeq.NFData CancelWorkflowExecutionCommandAttributes where
rnf :: CancelWorkflowExecutionCommandAttributes -> ()
rnf
= \ CancelWorkflowExecutionCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CancelWorkflowExecutionCommandAttributes -> FieldSet
_CancelWorkflowExecutionCommandAttributes'_unknownFields CancelWorkflowExecutionCommandAttributes
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CancelWorkflowExecutionCommandAttributes -> Maybe Payloads
_CancelWorkflowExecutionCommandAttributes'details CancelWorkflowExecutionCommandAttributes
x__) ())
data Command
= Command'_constructor {Command -> CommandType
_Command'commandType :: !Proto.Temporal.Api.Enums.V1.CommandType.CommandType,
Command -> Maybe Command'Attributes
_Command'attributes :: !(Prelude.Maybe Command'Attributes),
Command -> FieldSet
_Command'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (Command -> Command -> Bool
(Command -> Command -> Bool)
-> (Command -> Command -> Bool) -> Eq Command
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Command -> Command -> Bool
== :: Command -> Command -> Bool
$c/= :: Command -> Command -> Bool
/= :: Command -> Command -> Bool
Prelude.Eq, Eq Command
Eq Command =>
(Command -> Command -> Ordering)
-> (Command -> Command -> Bool)
-> (Command -> Command -> Bool)
-> (Command -> Command -> Bool)
-> (Command -> Command -> Bool)
-> (Command -> Command -> Command)
-> (Command -> Command -> Command)
-> Ord Command
Command -> Command -> Bool
Command -> Command -> Ordering
Command -> Command -> Command
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 :: Command -> Command -> Ordering
compare :: Command -> Command -> Ordering
$c< :: Command -> Command -> Bool
< :: Command -> Command -> Bool
$c<= :: Command -> Command -> Bool
<= :: Command -> Command -> Bool
$c> :: Command -> Command -> Bool
> :: Command -> Command -> Bool
$c>= :: Command -> Command -> Bool
>= :: Command -> Command -> Bool
$cmax :: Command -> Command -> Command
max :: Command -> Command -> Command
$cmin :: Command -> Command -> Command
min :: Command -> Command -> Command
Prelude.Ord)
instance Prelude.Show Command where
showsPrec :: Int -> Command -> ShowS
showsPrec Int
_ Command
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(Command -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Command
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Command'Attributes
= Command'ScheduleActivityTaskCommandAttributes !ScheduleActivityTaskCommandAttributes |
Command'StartTimerCommandAttributes !StartTimerCommandAttributes |
Command'CompleteWorkflowExecutionCommandAttributes !CompleteWorkflowExecutionCommandAttributes |
Command'FailWorkflowExecutionCommandAttributes !FailWorkflowExecutionCommandAttributes |
Command'RequestCancelActivityTaskCommandAttributes !RequestCancelActivityTaskCommandAttributes |
Command'CancelTimerCommandAttributes !CancelTimerCommandAttributes |
Command'CancelWorkflowExecutionCommandAttributes !CancelWorkflowExecutionCommandAttributes |
Command'RequestCancelExternalWorkflowExecutionCommandAttributes !RequestCancelExternalWorkflowExecutionCommandAttributes |
Command'RecordMarkerCommandAttributes !RecordMarkerCommandAttributes |
Command'ContinueAsNewWorkflowExecutionCommandAttributes !ContinueAsNewWorkflowExecutionCommandAttributes |
Command'StartChildWorkflowExecutionCommandAttributes !StartChildWorkflowExecutionCommandAttributes |
Command'SignalExternalWorkflowExecutionCommandAttributes !SignalExternalWorkflowExecutionCommandAttributes |
Command'UpsertWorkflowSearchAttributesCommandAttributes !UpsertWorkflowSearchAttributesCommandAttributes |
Command'ProtocolMessageCommandAttributes !ProtocolMessageCommandAttributes |
Command'ModifyWorkflowPropertiesCommandAttributes !ModifyWorkflowPropertiesCommandAttributes |
Command'ScheduleNexusOperationCommandAttributes !ScheduleNexusOperationCommandAttributes |
Command'RequestCancelNexusOperationCommandAttributes !RequestCancelNexusOperationCommandAttributes
deriving stock (Int -> Command'Attributes -> ShowS
[Command'Attributes] -> ShowS
Command'Attributes -> String
(Int -> Command'Attributes -> ShowS)
-> (Command'Attributes -> String)
-> ([Command'Attributes] -> ShowS)
-> Show Command'Attributes
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Command'Attributes -> ShowS
showsPrec :: Int -> Command'Attributes -> ShowS
$cshow :: Command'Attributes -> String
show :: Command'Attributes -> String
$cshowList :: [Command'Attributes] -> ShowS
showList :: [Command'Attributes] -> ShowS
Prelude.Show, Command'Attributes -> Command'Attributes -> Bool
(Command'Attributes -> Command'Attributes -> Bool)
-> (Command'Attributes -> Command'Attributes -> Bool)
-> Eq Command'Attributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Command'Attributes -> Command'Attributes -> Bool
== :: Command'Attributes -> Command'Attributes -> Bool
$c/= :: Command'Attributes -> Command'Attributes -> Bool
/= :: Command'Attributes -> Command'Attributes -> Bool
Prelude.Eq, Eq Command'Attributes
Eq Command'Attributes =>
(Command'Attributes -> Command'Attributes -> Ordering)
-> (Command'Attributes -> Command'Attributes -> Bool)
-> (Command'Attributes -> Command'Attributes -> Bool)
-> (Command'Attributes -> Command'Attributes -> Bool)
-> (Command'Attributes -> Command'Attributes -> Bool)
-> (Command'Attributes -> Command'Attributes -> Command'Attributes)
-> (Command'Attributes -> Command'Attributes -> Command'Attributes)
-> Ord Command'Attributes
Command'Attributes -> Command'Attributes -> Bool
Command'Attributes -> Command'Attributes -> Ordering
Command'Attributes -> Command'Attributes -> Command'Attributes
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 :: Command'Attributes -> Command'Attributes -> Ordering
compare :: Command'Attributes -> Command'Attributes -> Ordering
$c< :: Command'Attributes -> Command'Attributes -> Bool
< :: Command'Attributes -> Command'Attributes -> Bool
$c<= :: Command'Attributes -> Command'Attributes -> Bool
<= :: Command'Attributes -> Command'Attributes -> Bool
$c> :: Command'Attributes -> Command'Attributes -> Bool
> :: Command'Attributes -> Command'Attributes -> Bool
$c>= :: Command'Attributes -> Command'Attributes -> Bool
>= :: Command'Attributes -> Command'Attributes -> Bool
$cmax :: Command'Attributes -> Command'Attributes -> Command'Attributes
max :: Command'Attributes -> Command'Attributes -> Command'Attributes
$cmin :: Command'Attributes -> Command'Attributes -> Command'Attributes
min :: Command'Attributes -> Command'Attributes -> Command'Attributes
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Command "commandType" Proto.Temporal.Api.Enums.V1.CommandType.CommandType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "commandType"
-> (CommandType -> f CommandType) -> Command -> f Command
fieldOf Proxy# "commandType"
_
= ((CommandType -> f CommandType) -> Command -> f Command)
-> ((CommandType -> f CommandType) -> CommandType -> f CommandType)
-> (CommandType -> f CommandType)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> CommandType)
-> (Command -> CommandType -> Command)
-> Lens Command Command CommandType CommandType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> CommandType
_Command'commandType
(\ Command
x__ CommandType
y__ -> Command
x__ {_Command'commandType = y__}))
(CommandType -> f CommandType) -> CommandType -> f CommandType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Command "maybe'attributes" (Prelude.Maybe Command'Attributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'attributes"
-> (Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'attributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Command "maybe'scheduleActivityTaskCommandAttributes" (Prelude.Maybe ScheduleActivityTaskCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleActivityTaskCommandAttributes"
-> (Maybe ScheduleActivityTaskCommandAttributes
-> f (Maybe ScheduleActivityTaskCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'scheduleActivityTaskCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe ScheduleActivityTaskCommandAttributes
-> f (Maybe ScheduleActivityTaskCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe ScheduleActivityTaskCommandAttributes
-> f (Maybe ScheduleActivityTaskCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe ScheduleActivityTaskCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ScheduleActivityTaskCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ScheduleActivityTaskCommandAttributes)
(Maybe ScheduleActivityTaskCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ScheduleActivityTaskCommandAttributes ScheduleActivityTaskCommandAttributes
x__val))
-> ScheduleActivityTaskCommandAttributes
-> Maybe ScheduleActivityTaskCommandAttributes
forall a. a -> Maybe a
Prelude.Just ScheduleActivityTaskCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ScheduleActivityTaskCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ScheduleActivityTaskCommandAttributes
y__
-> (ScheduleActivityTaskCommandAttributes -> Command'Attributes)
-> Maybe ScheduleActivityTaskCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ScheduleActivityTaskCommandAttributes -> Command'Attributes
Command'ScheduleActivityTaskCommandAttributes Maybe ScheduleActivityTaskCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "scheduleActivityTaskCommandAttributes" ScheduleActivityTaskCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleActivityTaskCommandAttributes"
-> (ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "scheduleActivityTaskCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe ScheduleActivityTaskCommandAttributes
-> f (Maybe ScheduleActivityTaskCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> Maybe ScheduleActivityTaskCommandAttributes
-> f (Maybe ScheduleActivityTaskCommandAttributes))
-> (ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe ScheduleActivityTaskCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ScheduleActivityTaskCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ScheduleActivityTaskCommandAttributes)
(Maybe ScheduleActivityTaskCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ScheduleActivityTaskCommandAttributes ScheduleActivityTaskCommandAttributes
x__val))
-> ScheduleActivityTaskCommandAttributes
-> Maybe ScheduleActivityTaskCommandAttributes
forall a. a -> Maybe a
Prelude.Just ScheduleActivityTaskCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ScheduleActivityTaskCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ScheduleActivityTaskCommandAttributes
y__
-> (ScheduleActivityTaskCommandAttributes -> Command'Attributes)
-> Maybe ScheduleActivityTaskCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ScheduleActivityTaskCommandAttributes -> Command'Attributes
Command'ScheduleActivityTaskCommandAttributes Maybe ScheduleActivityTaskCommandAttributes
y__))
(ScheduleActivityTaskCommandAttributes
-> Lens'
(Maybe ScheduleActivityTaskCommandAttributes)
ScheduleActivityTaskCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScheduleActivityTaskCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'startTimerCommandAttributes" (Prelude.Maybe StartTimerCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startTimerCommandAttributes"
-> (Maybe StartTimerCommandAttributes
-> f (Maybe StartTimerCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'startTimerCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe StartTimerCommandAttributes
-> f (Maybe StartTimerCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe StartTimerCommandAttributes
-> f (Maybe StartTimerCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes -> Maybe StartTimerCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe StartTimerCommandAttributes -> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe StartTimerCommandAttributes)
(Maybe StartTimerCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'StartTimerCommandAttributes StartTimerCommandAttributes
x__val))
-> StartTimerCommandAttributes -> Maybe StartTimerCommandAttributes
forall a. a -> Maybe a
Prelude.Just StartTimerCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe StartTimerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe StartTimerCommandAttributes
y__ -> (StartTimerCommandAttributes -> Command'Attributes)
-> Maybe StartTimerCommandAttributes -> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartTimerCommandAttributes -> Command'Attributes
Command'StartTimerCommandAttributes Maybe StartTimerCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "startTimerCommandAttributes" StartTimerCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startTimerCommandAttributes"
-> (StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "startTimerCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe StartTimerCommandAttributes
-> f (Maybe StartTimerCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> Maybe StartTimerCommandAttributes
-> f (Maybe StartTimerCommandAttributes))
-> (StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes -> Maybe StartTimerCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe StartTimerCommandAttributes -> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe StartTimerCommandAttributes)
(Maybe StartTimerCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'StartTimerCommandAttributes StartTimerCommandAttributes
x__val))
-> StartTimerCommandAttributes -> Maybe StartTimerCommandAttributes
forall a. a -> Maybe a
Prelude.Just StartTimerCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe StartTimerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe StartTimerCommandAttributes
y__ -> (StartTimerCommandAttributes -> Command'Attributes)
-> Maybe StartTimerCommandAttributes -> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap StartTimerCommandAttributes -> Command'Attributes
Command'StartTimerCommandAttributes Maybe StartTimerCommandAttributes
y__))
(StartTimerCommandAttributes
-> Lens'
(Maybe StartTimerCommandAttributes) StartTimerCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StartTimerCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'completeWorkflowExecutionCommandAttributes" (Prelude.Maybe CompleteWorkflowExecutionCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'completeWorkflowExecutionCommandAttributes"
-> (Maybe CompleteWorkflowExecutionCommandAttributes
-> f (Maybe CompleteWorkflowExecutionCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'completeWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe CompleteWorkflowExecutionCommandAttributes
-> f (Maybe CompleteWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe CompleteWorkflowExecutionCommandAttributes
-> f (Maybe CompleteWorkflowExecutionCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe CompleteWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe CompleteWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe CompleteWorkflowExecutionCommandAttributes)
(Maybe CompleteWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'CompleteWorkflowExecutionCommandAttributes CompleteWorkflowExecutionCommandAttributes
x__val))
-> CompleteWorkflowExecutionCommandAttributes
-> Maybe CompleteWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just CompleteWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe CompleteWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe CompleteWorkflowExecutionCommandAttributes
y__
-> (CompleteWorkflowExecutionCommandAttributes -> Command'Attributes)
-> Maybe CompleteWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
CompleteWorkflowExecutionCommandAttributes -> Command'Attributes
Command'CompleteWorkflowExecutionCommandAttributes Maybe CompleteWorkflowExecutionCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "completeWorkflowExecutionCommandAttributes" CompleteWorkflowExecutionCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "completeWorkflowExecutionCommandAttributes"
-> (CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "completeWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe CompleteWorkflowExecutionCommandAttributes
-> f (Maybe CompleteWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes)
-> Maybe CompleteWorkflowExecutionCommandAttributes
-> f (Maybe CompleteWorkflowExecutionCommandAttributes))
-> (CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe CompleteWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe CompleteWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe CompleteWorkflowExecutionCommandAttributes)
(Maybe CompleteWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'CompleteWorkflowExecutionCommandAttributes CompleteWorkflowExecutionCommandAttributes
x__val))
-> CompleteWorkflowExecutionCommandAttributes
-> Maybe CompleteWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just CompleteWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe CompleteWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe CompleteWorkflowExecutionCommandAttributes
y__
-> (CompleteWorkflowExecutionCommandAttributes -> Command'Attributes)
-> Maybe CompleteWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
CompleteWorkflowExecutionCommandAttributes -> Command'Attributes
Command'CompleteWorkflowExecutionCommandAttributes Maybe CompleteWorkflowExecutionCommandAttributes
y__))
(CompleteWorkflowExecutionCommandAttributes
-> Lens'
(Maybe CompleteWorkflowExecutionCommandAttributes)
CompleteWorkflowExecutionCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CompleteWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'failWorkflowExecutionCommandAttributes" (Prelude.Maybe FailWorkflowExecutionCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failWorkflowExecutionCommandAttributes"
-> (Maybe FailWorkflowExecutionCommandAttributes
-> f (Maybe FailWorkflowExecutionCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'failWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe FailWorkflowExecutionCommandAttributes
-> f (Maybe FailWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe FailWorkflowExecutionCommandAttributes
-> f (Maybe FailWorkflowExecutionCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe FailWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe FailWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe FailWorkflowExecutionCommandAttributes)
(Maybe FailWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'FailWorkflowExecutionCommandAttributes FailWorkflowExecutionCommandAttributes
x__val))
-> FailWorkflowExecutionCommandAttributes
-> Maybe FailWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just FailWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe FailWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe FailWorkflowExecutionCommandAttributes
y__
-> (FailWorkflowExecutionCommandAttributes -> Command'Attributes)
-> Maybe FailWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
FailWorkflowExecutionCommandAttributes -> Command'Attributes
Command'FailWorkflowExecutionCommandAttributes Maybe FailWorkflowExecutionCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "failWorkflowExecutionCommandAttributes" FailWorkflowExecutionCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failWorkflowExecutionCommandAttributes"
-> (FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "failWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe FailWorkflowExecutionCommandAttributes
-> f (Maybe FailWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes)
-> Maybe FailWorkflowExecutionCommandAttributes
-> f (Maybe FailWorkflowExecutionCommandAttributes))
-> (FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe FailWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe FailWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe FailWorkflowExecutionCommandAttributes)
(Maybe FailWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'FailWorkflowExecutionCommandAttributes FailWorkflowExecutionCommandAttributes
x__val))
-> FailWorkflowExecutionCommandAttributes
-> Maybe FailWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just FailWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe FailWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe FailWorkflowExecutionCommandAttributes
y__
-> (FailWorkflowExecutionCommandAttributes -> Command'Attributes)
-> Maybe FailWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
FailWorkflowExecutionCommandAttributes -> Command'Attributes
Command'FailWorkflowExecutionCommandAttributes Maybe FailWorkflowExecutionCommandAttributes
y__))
(FailWorkflowExecutionCommandAttributes
-> Lens'
(Maybe FailWorkflowExecutionCommandAttributes)
FailWorkflowExecutionCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FailWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'requestCancelActivityTaskCommandAttributes" (Prelude.Maybe RequestCancelActivityTaskCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'requestCancelActivityTaskCommandAttributes"
-> (Maybe RequestCancelActivityTaskCommandAttributes
-> f (Maybe RequestCancelActivityTaskCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'requestCancelActivityTaskCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe RequestCancelActivityTaskCommandAttributes
-> f (Maybe RequestCancelActivityTaskCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe RequestCancelActivityTaskCommandAttributes
-> f (Maybe RequestCancelActivityTaskCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe RequestCancelActivityTaskCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RequestCancelActivityTaskCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RequestCancelActivityTaskCommandAttributes)
(Maybe RequestCancelActivityTaskCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RequestCancelActivityTaskCommandAttributes RequestCancelActivityTaskCommandAttributes
x__val))
-> RequestCancelActivityTaskCommandAttributes
-> Maybe RequestCancelActivityTaskCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelActivityTaskCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RequestCancelActivityTaskCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RequestCancelActivityTaskCommandAttributes
y__
-> (RequestCancelActivityTaskCommandAttributes -> Command'Attributes)
-> Maybe RequestCancelActivityTaskCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
RequestCancelActivityTaskCommandAttributes -> Command'Attributes
Command'RequestCancelActivityTaskCommandAttributes Maybe RequestCancelActivityTaskCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "requestCancelActivityTaskCommandAttributes" RequestCancelActivityTaskCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestCancelActivityTaskCommandAttributes"
-> (RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "requestCancelActivityTaskCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe RequestCancelActivityTaskCommandAttributes
-> f (Maybe RequestCancelActivityTaskCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes)
-> Maybe RequestCancelActivityTaskCommandAttributes
-> f (Maybe RequestCancelActivityTaskCommandAttributes))
-> (RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe RequestCancelActivityTaskCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RequestCancelActivityTaskCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RequestCancelActivityTaskCommandAttributes)
(Maybe RequestCancelActivityTaskCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RequestCancelActivityTaskCommandAttributes RequestCancelActivityTaskCommandAttributes
x__val))
-> RequestCancelActivityTaskCommandAttributes
-> Maybe RequestCancelActivityTaskCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelActivityTaskCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RequestCancelActivityTaskCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RequestCancelActivityTaskCommandAttributes
y__
-> (RequestCancelActivityTaskCommandAttributes -> Command'Attributes)
-> Maybe RequestCancelActivityTaskCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
RequestCancelActivityTaskCommandAttributes -> Command'Attributes
Command'RequestCancelActivityTaskCommandAttributes Maybe RequestCancelActivityTaskCommandAttributes
y__))
(RequestCancelActivityTaskCommandAttributes
-> Lens'
(Maybe RequestCancelActivityTaskCommandAttributes)
RequestCancelActivityTaskCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RequestCancelActivityTaskCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'cancelTimerCommandAttributes" (Prelude.Maybe CancelTimerCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelTimerCommandAttributes"
-> (Maybe CancelTimerCommandAttributes
-> f (Maybe CancelTimerCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'cancelTimerCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe CancelTimerCommandAttributes
-> f (Maybe CancelTimerCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe CancelTimerCommandAttributes
-> f (Maybe CancelTimerCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes -> Maybe CancelTimerCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe CancelTimerCommandAttributes -> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe CancelTimerCommandAttributes)
(Maybe CancelTimerCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'CancelTimerCommandAttributes CancelTimerCommandAttributes
x__val))
-> CancelTimerCommandAttributes -> Maybe CancelTimerCommandAttributes
forall a. a -> Maybe a
Prelude.Just CancelTimerCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe CancelTimerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe CancelTimerCommandAttributes
y__ -> (CancelTimerCommandAttributes -> Command'Attributes)
-> Maybe CancelTimerCommandAttributes -> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CancelTimerCommandAttributes -> Command'Attributes
Command'CancelTimerCommandAttributes Maybe CancelTimerCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "cancelTimerCommandAttributes" CancelTimerCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelTimerCommandAttributes"
-> (CancelTimerCommandAttributes -> f CancelTimerCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "cancelTimerCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((CancelTimerCommandAttributes
-> f CancelTimerCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (CancelTimerCommandAttributes -> f CancelTimerCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe CancelTimerCommandAttributes
-> f (Maybe CancelTimerCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((CancelTimerCommandAttributes
-> f CancelTimerCommandAttributes)
-> Maybe CancelTimerCommandAttributes
-> f (Maybe CancelTimerCommandAttributes))
-> (CancelTimerCommandAttributes -> f CancelTimerCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes -> Maybe CancelTimerCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe CancelTimerCommandAttributes -> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe CancelTimerCommandAttributes)
(Maybe CancelTimerCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'CancelTimerCommandAttributes CancelTimerCommandAttributes
x__val))
-> CancelTimerCommandAttributes -> Maybe CancelTimerCommandAttributes
forall a. a -> Maybe a
Prelude.Just CancelTimerCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe CancelTimerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe CancelTimerCommandAttributes
y__ -> (CancelTimerCommandAttributes -> Command'Attributes)
-> Maybe CancelTimerCommandAttributes -> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CancelTimerCommandAttributes -> Command'Attributes
Command'CancelTimerCommandAttributes Maybe CancelTimerCommandAttributes
y__))
(CancelTimerCommandAttributes
-> Lens'
(Maybe CancelTimerCommandAttributes) CancelTimerCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CancelTimerCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'cancelWorkflowExecutionCommandAttributes" (Prelude.Maybe CancelWorkflowExecutionCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelWorkflowExecutionCommandAttributes"
-> (Maybe CancelWorkflowExecutionCommandAttributes
-> f (Maybe CancelWorkflowExecutionCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'cancelWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe CancelWorkflowExecutionCommandAttributes
-> f (Maybe CancelWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe CancelWorkflowExecutionCommandAttributes
-> f (Maybe CancelWorkflowExecutionCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe CancelWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe CancelWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe CancelWorkflowExecutionCommandAttributes)
(Maybe CancelWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'CancelWorkflowExecutionCommandAttributes CancelWorkflowExecutionCommandAttributes
x__val))
-> CancelWorkflowExecutionCommandAttributes
-> Maybe CancelWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just CancelWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe CancelWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe CancelWorkflowExecutionCommandAttributes
y__
-> (CancelWorkflowExecutionCommandAttributes -> Command'Attributes)
-> Maybe CancelWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
CancelWorkflowExecutionCommandAttributes -> Command'Attributes
Command'CancelWorkflowExecutionCommandAttributes Maybe CancelWorkflowExecutionCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "cancelWorkflowExecutionCommandAttributes" CancelWorkflowExecutionCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelWorkflowExecutionCommandAttributes"
-> (CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "cancelWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe CancelWorkflowExecutionCommandAttributes
-> f (Maybe CancelWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes)
-> Maybe CancelWorkflowExecutionCommandAttributes
-> f (Maybe CancelWorkflowExecutionCommandAttributes))
-> (CancelWorkflowExecutionCommandAttributes
-> f CancelWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe CancelWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe CancelWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe CancelWorkflowExecutionCommandAttributes)
(Maybe CancelWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'CancelWorkflowExecutionCommandAttributes CancelWorkflowExecutionCommandAttributes
x__val))
-> CancelWorkflowExecutionCommandAttributes
-> Maybe CancelWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just CancelWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe CancelWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe CancelWorkflowExecutionCommandAttributes
y__
-> (CancelWorkflowExecutionCommandAttributes -> Command'Attributes)
-> Maybe CancelWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
CancelWorkflowExecutionCommandAttributes -> Command'Attributes
Command'CancelWorkflowExecutionCommandAttributes Maybe CancelWorkflowExecutionCommandAttributes
y__))
(CancelWorkflowExecutionCommandAttributes
-> Lens'
(Maybe CancelWorkflowExecutionCommandAttributes)
CancelWorkflowExecutionCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CancelWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'requestCancelExternalWorkflowExecutionCommandAttributes" (Prelude.Maybe RequestCancelExternalWorkflowExecutionCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy#
"maybe'requestCancelExternalWorkflowExecutionCommandAttributes"
-> (Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> f (Maybe
RequestCancelExternalWorkflowExecutionCommandAttributes))
-> Command
-> f Command
fieldOf Proxy#
"maybe'requestCancelExternalWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> f (Maybe
RequestCancelExternalWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> f (Maybe
RequestCancelExternalWorkflowExecutionCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
(Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RequestCancelExternalWorkflowExecutionCommandAttributes RequestCancelExternalWorkflowExecutionCommandAttributes
x__val))
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelExternalWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
y__
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
RequestCancelExternalWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'RequestCancelExternalWorkflowExecutionCommandAttributes
Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "requestCancelExternalWorkflowExecutionCommandAttributes" RequestCancelExternalWorkflowExecutionCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestCancelExternalWorkflowExecutionCommandAttributes"
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "requestCancelExternalWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> f (Maybe
RequestCancelExternalWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> f (Maybe
RequestCancelExternalWorkflowExecutionCommandAttributes))
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
(Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RequestCancelExternalWorkflowExecutionCommandAttributes RequestCancelExternalWorkflowExecutionCommandAttributes
x__val))
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelExternalWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
y__
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
RequestCancelExternalWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'RequestCancelExternalWorkflowExecutionCommandAttributes
Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
y__))
(RequestCancelExternalWorkflowExecutionCommandAttributes
-> Lens'
(Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
RequestCancelExternalWorkflowExecutionCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RequestCancelExternalWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'recordMarkerCommandAttributes" (Prelude.Maybe RecordMarkerCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'recordMarkerCommandAttributes"
-> (Maybe RecordMarkerCommandAttributes
-> f (Maybe RecordMarkerCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'recordMarkerCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe RecordMarkerCommandAttributes
-> f (Maybe RecordMarkerCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe RecordMarkerCommandAttributes
-> f (Maybe RecordMarkerCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes -> Maybe RecordMarkerCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RecordMarkerCommandAttributes -> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RecordMarkerCommandAttributes)
(Maybe RecordMarkerCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RecordMarkerCommandAttributes RecordMarkerCommandAttributes
x__val))
-> RecordMarkerCommandAttributes
-> Maybe RecordMarkerCommandAttributes
forall a. a -> Maybe a
Prelude.Just RecordMarkerCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RecordMarkerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RecordMarkerCommandAttributes
y__
-> (RecordMarkerCommandAttributes -> Command'Attributes)
-> Maybe RecordMarkerCommandAttributes -> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RecordMarkerCommandAttributes -> Command'Attributes
Command'RecordMarkerCommandAttributes Maybe RecordMarkerCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "recordMarkerCommandAttributes" RecordMarkerCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "recordMarkerCommandAttributes"
-> (RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "recordMarkerCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe RecordMarkerCommandAttributes
-> f (Maybe RecordMarkerCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> Maybe RecordMarkerCommandAttributes
-> f (Maybe RecordMarkerCommandAttributes))
-> (RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes -> Maybe RecordMarkerCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RecordMarkerCommandAttributes -> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RecordMarkerCommandAttributes)
(Maybe RecordMarkerCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RecordMarkerCommandAttributes RecordMarkerCommandAttributes
x__val))
-> RecordMarkerCommandAttributes
-> Maybe RecordMarkerCommandAttributes
forall a. a -> Maybe a
Prelude.Just RecordMarkerCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RecordMarkerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RecordMarkerCommandAttributes
y__
-> (RecordMarkerCommandAttributes -> Command'Attributes)
-> Maybe RecordMarkerCommandAttributes -> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RecordMarkerCommandAttributes -> Command'Attributes
Command'RecordMarkerCommandAttributes Maybe RecordMarkerCommandAttributes
y__))
(RecordMarkerCommandAttributes
-> Lens'
(Maybe RecordMarkerCommandAttributes) RecordMarkerCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RecordMarkerCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'continueAsNewWorkflowExecutionCommandAttributes" (Prelude.Maybe ContinueAsNewWorkflowExecutionCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'continueAsNewWorkflowExecutionCommandAttributes"
-> (Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> f (Maybe ContinueAsNewWorkflowExecutionCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'continueAsNewWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> f (Maybe ContinueAsNewWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> f (Maybe ContinueAsNewWorkflowExecutionCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
(Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ContinueAsNewWorkflowExecutionCommandAttributes ContinueAsNewWorkflowExecutionCommandAttributes
x__val))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just ContinueAsNewWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ContinueAsNewWorkflowExecutionCommandAttributes
y__
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
ContinueAsNewWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'ContinueAsNewWorkflowExecutionCommandAttributes Maybe ContinueAsNewWorkflowExecutionCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "continueAsNewWorkflowExecutionCommandAttributes" ContinueAsNewWorkflowExecutionCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "continueAsNewWorkflowExecutionCommandAttributes"
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "continueAsNewWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> f (Maybe ContinueAsNewWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> f (Maybe ContinueAsNewWorkflowExecutionCommandAttributes))
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
(Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ContinueAsNewWorkflowExecutionCommandAttributes ContinueAsNewWorkflowExecutionCommandAttributes
x__val))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just ContinueAsNewWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ContinueAsNewWorkflowExecutionCommandAttributes
y__
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
ContinueAsNewWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'ContinueAsNewWorkflowExecutionCommandAttributes Maybe ContinueAsNewWorkflowExecutionCommandAttributes
y__))
(ContinueAsNewWorkflowExecutionCommandAttributes
-> Lens'
(Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
ContinueAsNewWorkflowExecutionCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ContinueAsNewWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'startChildWorkflowExecutionCommandAttributes" (Prelude.Maybe StartChildWorkflowExecutionCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startChildWorkflowExecutionCommandAttributes"
-> (Maybe StartChildWorkflowExecutionCommandAttributes
-> f (Maybe StartChildWorkflowExecutionCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'startChildWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe StartChildWorkflowExecutionCommandAttributes
-> f (Maybe StartChildWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe StartChildWorkflowExecutionCommandAttributes
-> f (Maybe StartChildWorkflowExecutionCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe StartChildWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe StartChildWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe StartChildWorkflowExecutionCommandAttributes)
(Maybe StartChildWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'StartChildWorkflowExecutionCommandAttributes StartChildWorkflowExecutionCommandAttributes
x__val))
-> StartChildWorkflowExecutionCommandAttributes
-> Maybe StartChildWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just StartChildWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe StartChildWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe StartChildWorkflowExecutionCommandAttributes
y__
-> (StartChildWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe StartChildWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
StartChildWorkflowExecutionCommandAttributes -> Command'Attributes
Command'StartChildWorkflowExecutionCommandAttributes Maybe StartChildWorkflowExecutionCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "startChildWorkflowExecutionCommandAttributes" StartChildWorkflowExecutionCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startChildWorkflowExecutionCommandAttributes"
-> (StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "startChildWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe StartChildWorkflowExecutionCommandAttributes
-> f (Maybe StartChildWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> Maybe StartChildWorkflowExecutionCommandAttributes
-> f (Maybe StartChildWorkflowExecutionCommandAttributes))
-> (StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe StartChildWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe StartChildWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe StartChildWorkflowExecutionCommandAttributes)
(Maybe StartChildWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'StartChildWorkflowExecutionCommandAttributes StartChildWorkflowExecutionCommandAttributes
x__val))
-> StartChildWorkflowExecutionCommandAttributes
-> Maybe StartChildWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just StartChildWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe StartChildWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe StartChildWorkflowExecutionCommandAttributes
y__
-> (StartChildWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe StartChildWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
StartChildWorkflowExecutionCommandAttributes -> Command'Attributes
Command'StartChildWorkflowExecutionCommandAttributes Maybe StartChildWorkflowExecutionCommandAttributes
y__))
(StartChildWorkflowExecutionCommandAttributes
-> Lens'
(Maybe StartChildWorkflowExecutionCommandAttributes)
StartChildWorkflowExecutionCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StartChildWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'signalExternalWorkflowExecutionCommandAttributes" (Prelude.Maybe SignalExternalWorkflowExecutionCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'signalExternalWorkflowExecutionCommandAttributes"
-> (Maybe SignalExternalWorkflowExecutionCommandAttributes
-> f (Maybe SignalExternalWorkflowExecutionCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'signalExternalWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe SignalExternalWorkflowExecutionCommandAttributes
-> f (Maybe SignalExternalWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe SignalExternalWorkflowExecutionCommandAttributes
-> f (Maybe SignalExternalWorkflowExecutionCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe SignalExternalWorkflowExecutionCommandAttributes)
(Maybe SignalExternalWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'SignalExternalWorkflowExecutionCommandAttributes SignalExternalWorkflowExecutionCommandAttributes
x__val))
-> SignalExternalWorkflowExecutionCommandAttributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just SignalExternalWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe SignalExternalWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe SignalExternalWorkflowExecutionCommandAttributes
y__
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
SignalExternalWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'SignalExternalWorkflowExecutionCommandAttributes Maybe SignalExternalWorkflowExecutionCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "signalExternalWorkflowExecutionCommandAttributes" SignalExternalWorkflowExecutionCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "signalExternalWorkflowExecutionCommandAttributes"
-> (SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "signalExternalWorkflowExecutionCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe SignalExternalWorkflowExecutionCommandAttributes
-> f (Maybe SignalExternalWorkflowExecutionCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
-> f (Maybe SignalExternalWorkflowExecutionCommandAttributes))
-> (SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe SignalExternalWorkflowExecutionCommandAttributes)
(Maybe SignalExternalWorkflowExecutionCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'SignalExternalWorkflowExecutionCommandAttributes SignalExternalWorkflowExecutionCommandAttributes
x__val))
-> SignalExternalWorkflowExecutionCommandAttributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just SignalExternalWorkflowExecutionCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe SignalExternalWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe SignalExternalWorkflowExecutionCommandAttributes
y__
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
SignalExternalWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'SignalExternalWorkflowExecutionCommandAttributes Maybe SignalExternalWorkflowExecutionCommandAttributes
y__))
(SignalExternalWorkflowExecutionCommandAttributes
-> Lens'
(Maybe SignalExternalWorkflowExecutionCommandAttributes)
SignalExternalWorkflowExecutionCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SignalExternalWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'upsertWorkflowSearchAttributesCommandAttributes" (Prelude.Maybe UpsertWorkflowSearchAttributesCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'upsertWorkflowSearchAttributesCommandAttributes"
-> (Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> f (Maybe UpsertWorkflowSearchAttributesCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'upsertWorkflowSearchAttributesCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> f (Maybe UpsertWorkflowSearchAttributesCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> f (Maybe UpsertWorkflowSearchAttributesCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe UpsertWorkflowSearchAttributesCommandAttributes)
(Maybe UpsertWorkflowSearchAttributesCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'UpsertWorkflowSearchAttributesCommandAttributes UpsertWorkflowSearchAttributesCommandAttributes
x__val))
-> UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
forall a. a -> Maybe a
Prelude.Just UpsertWorkflowSearchAttributesCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe UpsertWorkflowSearchAttributesCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe UpsertWorkflowSearchAttributesCommandAttributes
y__
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> Command'Attributes)
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
UpsertWorkflowSearchAttributesCommandAttributes
-> Command'Attributes
Command'UpsertWorkflowSearchAttributesCommandAttributes Maybe UpsertWorkflowSearchAttributesCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "upsertWorkflowSearchAttributesCommandAttributes" UpsertWorkflowSearchAttributesCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "upsertWorkflowSearchAttributesCommandAttributes"
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "upsertWorkflowSearchAttributesCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> f (Maybe UpsertWorkflowSearchAttributesCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes)
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> f (Maybe UpsertWorkflowSearchAttributesCommandAttributes))
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe UpsertWorkflowSearchAttributesCommandAttributes)
(Maybe UpsertWorkflowSearchAttributesCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'UpsertWorkflowSearchAttributesCommandAttributes UpsertWorkflowSearchAttributesCommandAttributes
x__val))
-> UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
forall a. a -> Maybe a
Prelude.Just UpsertWorkflowSearchAttributesCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe UpsertWorkflowSearchAttributesCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe UpsertWorkflowSearchAttributesCommandAttributes
y__
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> Command'Attributes)
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
UpsertWorkflowSearchAttributesCommandAttributes
-> Command'Attributes
Command'UpsertWorkflowSearchAttributesCommandAttributes Maybe UpsertWorkflowSearchAttributesCommandAttributes
y__))
(UpsertWorkflowSearchAttributesCommandAttributes
-> Lens'
(Maybe UpsertWorkflowSearchAttributesCommandAttributes)
UpsertWorkflowSearchAttributesCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UpsertWorkflowSearchAttributesCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'protocolMessageCommandAttributes" (Prelude.Maybe ProtocolMessageCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'protocolMessageCommandAttributes"
-> (Maybe ProtocolMessageCommandAttributes
-> f (Maybe ProtocolMessageCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'protocolMessageCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe ProtocolMessageCommandAttributes
-> f (Maybe ProtocolMessageCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe ProtocolMessageCommandAttributes
-> f (Maybe ProtocolMessageCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe ProtocolMessageCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ProtocolMessageCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ProtocolMessageCommandAttributes)
(Maybe ProtocolMessageCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ProtocolMessageCommandAttributes ProtocolMessageCommandAttributes
x__val))
-> ProtocolMessageCommandAttributes
-> Maybe ProtocolMessageCommandAttributes
forall a. a -> Maybe a
Prelude.Just ProtocolMessageCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ProtocolMessageCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ProtocolMessageCommandAttributes
y__
-> (ProtocolMessageCommandAttributes -> Command'Attributes)
-> Maybe ProtocolMessageCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ProtocolMessageCommandAttributes -> Command'Attributes
Command'ProtocolMessageCommandAttributes Maybe ProtocolMessageCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "protocolMessageCommandAttributes" ProtocolMessageCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "protocolMessageCommandAttributes"
-> (ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "protocolMessageCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe ProtocolMessageCommandAttributes
-> f (Maybe ProtocolMessageCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes)
-> Maybe ProtocolMessageCommandAttributes
-> f (Maybe ProtocolMessageCommandAttributes))
-> (ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe ProtocolMessageCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ProtocolMessageCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ProtocolMessageCommandAttributes)
(Maybe ProtocolMessageCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ProtocolMessageCommandAttributes ProtocolMessageCommandAttributes
x__val))
-> ProtocolMessageCommandAttributes
-> Maybe ProtocolMessageCommandAttributes
forall a. a -> Maybe a
Prelude.Just ProtocolMessageCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ProtocolMessageCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ProtocolMessageCommandAttributes
y__
-> (ProtocolMessageCommandAttributes -> Command'Attributes)
-> Maybe ProtocolMessageCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ProtocolMessageCommandAttributes -> Command'Attributes
Command'ProtocolMessageCommandAttributes Maybe ProtocolMessageCommandAttributes
y__))
(ProtocolMessageCommandAttributes
-> Lens'
(Maybe ProtocolMessageCommandAttributes)
ProtocolMessageCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ProtocolMessageCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'modifyWorkflowPropertiesCommandAttributes" (Prelude.Maybe ModifyWorkflowPropertiesCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'modifyWorkflowPropertiesCommandAttributes"
-> (Maybe ModifyWorkflowPropertiesCommandAttributes
-> f (Maybe ModifyWorkflowPropertiesCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'modifyWorkflowPropertiesCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe ModifyWorkflowPropertiesCommandAttributes
-> f (Maybe ModifyWorkflowPropertiesCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe ModifyWorkflowPropertiesCommandAttributes
-> f (Maybe ModifyWorkflowPropertiesCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ModifyWorkflowPropertiesCommandAttributes)
(Maybe ModifyWorkflowPropertiesCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ModifyWorkflowPropertiesCommandAttributes ModifyWorkflowPropertiesCommandAttributes
x__val))
-> ModifyWorkflowPropertiesCommandAttributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes
forall a. a -> Maybe a
Prelude.Just ModifyWorkflowPropertiesCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ModifyWorkflowPropertiesCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ModifyWorkflowPropertiesCommandAttributes
y__
-> (ModifyWorkflowPropertiesCommandAttributes -> Command'Attributes)
-> Maybe ModifyWorkflowPropertiesCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
ModifyWorkflowPropertiesCommandAttributes -> Command'Attributes
Command'ModifyWorkflowPropertiesCommandAttributes Maybe ModifyWorkflowPropertiesCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "modifyWorkflowPropertiesCommandAttributes" ModifyWorkflowPropertiesCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "modifyWorkflowPropertiesCommandAttributes"
-> (ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "modifyWorkflowPropertiesCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe ModifyWorkflowPropertiesCommandAttributes
-> f (Maybe ModifyWorkflowPropertiesCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes)
-> Maybe ModifyWorkflowPropertiesCommandAttributes
-> f (Maybe ModifyWorkflowPropertiesCommandAttributes))
-> (ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ModifyWorkflowPropertiesCommandAttributes)
(Maybe ModifyWorkflowPropertiesCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ModifyWorkflowPropertiesCommandAttributes ModifyWorkflowPropertiesCommandAttributes
x__val))
-> ModifyWorkflowPropertiesCommandAttributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes
forall a. a -> Maybe a
Prelude.Just ModifyWorkflowPropertiesCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ModifyWorkflowPropertiesCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ModifyWorkflowPropertiesCommandAttributes
y__
-> (ModifyWorkflowPropertiesCommandAttributes -> Command'Attributes)
-> Maybe ModifyWorkflowPropertiesCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
ModifyWorkflowPropertiesCommandAttributes -> Command'Attributes
Command'ModifyWorkflowPropertiesCommandAttributes Maybe ModifyWorkflowPropertiesCommandAttributes
y__))
(ModifyWorkflowPropertiesCommandAttributes
-> Lens'
(Maybe ModifyWorkflowPropertiesCommandAttributes)
ModifyWorkflowPropertiesCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ModifyWorkflowPropertiesCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'scheduleNexusOperationCommandAttributes" (Prelude.Maybe ScheduleNexusOperationCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleNexusOperationCommandAttributes"
-> (Maybe ScheduleNexusOperationCommandAttributes
-> f (Maybe ScheduleNexusOperationCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'scheduleNexusOperationCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe ScheduleNexusOperationCommandAttributes
-> f (Maybe ScheduleNexusOperationCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe ScheduleNexusOperationCommandAttributes
-> f (Maybe ScheduleNexusOperationCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe ScheduleNexusOperationCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ScheduleNexusOperationCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ScheduleNexusOperationCommandAttributes)
(Maybe ScheduleNexusOperationCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ScheduleNexusOperationCommandAttributes ScheduleNexusOperationCommandAttributes
x__val))
-> ScheduleNexusOperationCommandAttributes
-> Maybe ScheduleNexusOperationCommandAttributes
forall a. a -> Maybe a
Prelude.Just ScheduleNexusOperationCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ScheduleNexusOperationCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ScheduleNexusOperationCommandAttributes
y__
-> (ScheduleNexusOperationCommandAttributes -> Command'Attributes)
-> Maybe ScheduleNexusOperationCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
ScheduleNexusOperationCommandAttributes -> Command'Attributes
Command'ScheduleNexusOperationCommandAttributes Maybe ScheduleNexusOperationCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "scheduleNexusOperationCommandAttributes" ScheduleNexusOperationCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleNexusOperationCommandAttributes"
-> (ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "scheduleNexusOperationCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe ScheduleNexusOperationCommandAttributes
-> f (Maybe ScheduleNexusOperationCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> Maybe ScheduleNexusOperationCommandAttributes
-> f (Maybe ScheduleNexusOperationCommandAttributes))
-> (ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe ScheduleNexusOperationCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe ScheduleNexusOperationCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe ScheduleNexusOperationCommandAttributes)
(Maybe ScheduleNexusOperationCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'ScheduleNexusOperationCommandAttributes ScheduleNexusOperationCommandAttributes
x__val))
-> ScheduleNexusOperationCommandAttributes
-> Maybe ScheduleNexusOperationCommandAttributes
forall a. a -> Maybe a
Prelude.Just ScheduleNexusOperationCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe ScheduleNexusOperationCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe ScheduleNexusOperationCommandAttributes
y__
-> (ScheduleNexusOperationCommandAttributes -> Command'Attributes)
-> Maybe ScheduleNexusOperationCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
ScheduleNexusOperationCommandAttributes -> Command'Attributes
Command'ScheduleNexusOperationCommandAttributes Maybe ScheduleNexusOperationCommandAttributes
y__))
(ScheduleNexusOperationCommandAttributes
-> Lens'
(Maybe ScheduleNexusOperationCommandAttributes)
ScheduleNexusOperationCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ScheduleNexusOperationCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Command "maybe'requestCancelNexusOperationCommandAttributes" (Prelude.Maybe RequestCancelNexusOperationCommandAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'requestCancelNexusOperationCommandAttributes"
-> (Maybe RequestCancelNexusOperationCommandAttributes
-> f (Maybe RequestCancelNexusOperationCommandAttributes))
-> Command
-> f Command
fieldOf Proxy# "maybe'requestCancelNexusOperationCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((Maybe RequestCancelNexusOperationCommandAttributes
-> f (Maybe RequestCancelNexusOperationCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (Maybe RequestCancelNexusOperationCommandAttributes
-> f (Maybe RequestCancelNexusOperationCommandAttributes))
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
((Maybe Command'Attributes
-> Maybe RequestCancelNexusOperationCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RequestCancelNexusOperationCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RequestCancelNexusOperationCommandAttributes)
(Maybe RequestCancelNexusOperationCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RequestCancelNexusOperationCommandAttributes RequestCancelNexusOperationCommandAttributes
x__val))
-> RequestCancelNexusOperationCommandAttributes
-> Maybe RequestCancelNexusOperationCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelNexusOperationCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RequestCancelNexusOperationCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RequestCancelNexusOperationCommandAttributes
y__
-> (RequestCancelNexusOperationCommandAttributes
-> Command'Attributes)
-> Maybe RequestCancelNexusOperationCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
RequestCancelNexusOperationCommandAttributes -> Command'Attributes
Command'RequestCancelNexusOperationCommandAttributes Maybe RequestCancelNexusOperationCommandAttributes
y__))
instance Data.ProtoLens.Field.HasField Command "requestCancelNexusOperationCommandAttributes" RequestCancelNexusOperationCommandAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestCancelNexusOperationCommandAttributes"
-> (RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes)
-> Command
-> f Command
fieldOf Proxy# "requestCancelNexusOperationCommandAttributes"
_
= ((Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> Command -> f Command)
-> ((RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes)
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> (RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes)
-> Command
-> f Command
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Command -> Maybe Command'Attributes)
-> (Command -> Maybe Command'Attributes -> Command)
-> Lens
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> Maybe Command'Attributes
_Command'attributes (\ Command
x__ Maybe Command'Attributes
y__ -> Command
x__ {_Command'attributes = y__}))
(((Maybe RequestCancelNexusOperationCommandAttributes
-> f (Maybe RequestCancelNexusOperationCommandAttributes))
-> Maybe Command'Attributes -> f (Maybe Command'Attributes))
-> ((RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes)
-> Maybe RequestCancelNexusOperationCommandAttributes
-> f (Maybe RequestCancelNexusOperationCommandAttributes))
-> (RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes)
-> Maybe Command'Attributes
-> f (Maybe Command'Attributes)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Command'Attributes
-> Maybe RequestCancelNexusOperationCommandAttributes)
-> (Maybe Command'Attributes
-> Maybe RequestCancelNexusOperationCommandAttributes
-> Maybe Command'Attributes)
-> Lens
(Maybe Command'Attributes)
(Maybe Command'Attributes)
(Maybe RequestCancelNexusOperationCommandAttributes)
(Maybe RequestCancelNexusOperationCommandAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Command'Attributes
x__
-> case Maybe Command'Attributes
x__ of
(Prelude.Just (Command'RequestCancelNexusOperationCommandAttributes RequestCancelNexusOperationCommandAttributes
x__val))
-> RequestCancelNexusOperationCommandAttributes
-> Maybe RequestCancelNexusOperationCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelNexusOperationCommandAttributes
x__val
Maybe Command'Attributes
_otherwise -> Maybe RequestCancelNexusOperationCommandAttributes
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Command'Attributes
_ Maybe RequestCancelNexusOperationCommandAttributes
y__
-> (RequestCancelNexusOperationCommandAttributes
-> Command'Attributes)
-> Maybe RequestCancelNexusOperationCommandAttributes
-> Maybe Command'Attributes
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
RequestCancelNexusOperationCommandAttributes -> Command'Attributes
Command'RequestCancelNexusOperationCommandAttributes Maybe RequestCancelNexusOperationCommandAttributes
y__))
(RequestCancelNexusOperationCommandAttributes
-> Lens'
(Maybe RequestCancelNexusOperationCommandAttributes)
RequestCancelNexusOperationCommandAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RequestCancelNexusOperationCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Command where
messageName :: Proxy Command -> Text
messageName Proxy Command
_ = String -> Text
Data.Text.pack String
"temporal.api.command.v1.Command"
packedMessageDescriptor :: Proxy Command -> ByteString
packedMessageDescriptor Proxy Command
_
= ByteString
"\n\
\\aCommand\DC2E\n\
\\fcommand_type\CAN\SOH \SOH(\SO2\".temporal.api.enums.v1.CommandTypeR\vcommandType\DC2\154\SOH\n\
\)schedule_activity_task_command_attributes\CAN\STX \SOH(\v2>.temporal.api.command.v1.ScheduleActivityTaskCommandAttributesH\NULR%scheduleActivityTaskCommandAttributes\DC2{\n\
\\RSstart_timer_command_attributes\CAN\ETX \SOH(\v24.temporal.api.command.v1.StartTimerCommandAttributesH\NULR\ESCstartTimerCommandAttributes\DC2\169\SOH\n\
\.complete_workflow_execution_command_attributes\CAN\EOT \SOH(\v2C.temporal.api.command.v1.CompleteWorkflowExecutionCommandAttributesH\NULR*completeWorkflowExecutionCommandAttributes\DC2\157\SOH\n\
\*fail_workflow_execution_command_attributes\CAN\ENQ \SOH(\v2?.temporal.api.command.v1.FailWorkflowExecutionCommandAttributesH\NULR&failWorkflowExecutionCommandAttributes\DC2\170\SOH\n\
\/request_cancel_activity_task_command_attributes\CAN\ACK \SOH(\v2C.temporal.api.command.v1.RequestCancelActivityTaskCommandAttributesH\NULR*requestCancelActivityTaskCommandAttributes\DC2~\n\
\\UScancel_timer_command_attributes\CAN\a \SOH(\v25.temporal.api.command.v1.CancelTimerCommandAttributesH\NULR\FScancelTimerCommandAttributes\DC2\163\SOH\n\
\,cancel_workflow_execution_command_attributes\CAN\b \SOH(\v2A.temporal.api.command.v1.CancelWorkflowExecutionCommandAttributesH\NULR(cancelWorkflowExecutionCommandAttributes\DC2\210\SOH\n\
\=request_cancel_external_workflow_execution_command_attributes\CAN\t \SOH(\v2P.temporal.api.command.v1.RequestCancelExternalWorkflowExecutionCommandAttributesH\NULR7requestCancelExternalWorkflowExecutionCommandAttributes\DC2\129\SOH\n\
\ record_marker_command_attributes\CAN\n\
\ \SOH(\v26.temporal.api.command.v1.RecordMarkerCommandAttributesH\NULR\GSrecordMarkerCommandAttributes\DC2\186\SOH\n\
\5continue_as_new_workflow_execution_command_attributes\CAN\v \SOH(\v2H.temporal.api.command.v1.ContinueAsNewWorkflowExecutionCommandAttributesH\NULR/continueAsNewWorkflowExecutionCommandAttributes\DC2\176\SOH\n\
\1start_child_workflow_execution_command_attributes\CAN\f \SOH(\v2E.temporal.api.command.v1.StartChildWorkflowExecutionCommandAttributesH\NULR,startChildWorkflowExecutionCommandAttributes\DC2\188\SOH\n\
\5signal_external_workflow_execution_command_attributes\CAN\r \SOH(\v2I.temporal.api.command.v1.SignalExternalWorkflowExecutionCommandAttributesH\NULR0signalExternalWorkflowExecutionCommandAttributes\DC2\185\SOH\n\
\4upsert_workflow_search_attributes_command_attributes\CAN\SO \SOH(\v2H.temporal.api.command.v1.UpsertWorkflowSearchAttributesCommandAttributesH\NULR/upsertWorkflowSearchAttributesCommandAttributes\DC2\138\SOH\n\
\#protocol_message_command_attributes\CAN\SI \SOH(\v29.temporal.api.command.v1.ProtocolMessageCommandAttributesH\NULR protocolMessageCommandAttributes\DC2\166\SOH\n\
\-modify_workflow_properties_command_attributes\CAN\DC1 \SOH(\v2B.temporal.api.command.v1.ModifyWorkflowPropertiesCommandAttributesH\NULR)modifyWorkflowPropertiesCommandAttributes\DC2\160\SOH\n\
\+schedule_nexus_operation_command_attributes\CAN\DC2 \SOH(\v2@.temporal.api.command.v1.ScheduleNexusOperationCommandAttributesH\NULR'scheduleNexusOperationCommandAttributes\DC2\176\SOH\n\
\1request_cancel_nexus_operation_command_attributes\CAN\DC3 \SOH(\v2E.temporal.api.command.v1.RequestCancelNexusOperationCommandAttributesH\NULR,requestCancelNexusOperationCommandAttributesB\f\n\
\\n\
\attributes"
packedFileDescriptor :: Proxy Command -> ByteString
packedFileDescriptor Proxy Command
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Command)
fieldsByTag
= let
commandType__field_descriptor :: FieldDescriptor Command
commandType__field_descriptor
= String
-> FieldTypeDescriptor CommandType
-> FieldAccessor Command CommandType
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"command_type"
(ScalarField CommandType -> FieldTypeDescriptor CommandType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField CommandType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.CommandType.CommandType)
(WireDefault CommandType
-> Lens Command Command CommandType CommandType
-> FieldAccessor Command CommandType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault CommandType
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 @"commandType")) ::
Data.ProtoLens.FieldDescriptor Command
scheduleActivityTaskCommandAttributes__field_descriptor :: FieldDescriptor Command
scheduleActivityTaskCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor ScheduleActivityTaskCommandAttributes
-> FieldAccessor Command ScheduleActivityTaskCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_activity_task_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor ScheduleActivityTaskCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleActivityTaskCommandAttributes)
(Lens' Command (Maybe ScheduleActivityTaskCommandAttributes)
-> FieldAccessor Command ScheduleActivityTaskCommandAttributes
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'scheduleActivityTaskCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
startTimerCommandAttributes__field_descriptor :: FieldDescriptor Command
startTimerCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor StartTimerCommandAttributes
-> FieldAccessor Command StartTimerCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_timer_command_attributes"
(MessageOrGroup -> FieldTypeDescriptor StartTimerCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StartTimerCommandAttributes)
(Lens' Command (Maybe StartTimerCommandAttributes)
-> FieldAccessor Command StartTimerCommandAttributes
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'startTimerCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
completeWorkflowExecutionCommandAttributes__field_descriptor :: FieldDescriptor Command
completeWorkflowExecutionCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor CompleteWorkflowExecutionCommandAttributes
-> FieldAccessor Command CompleteWorkflowExecutionCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"complete_workflow_execution_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor CompleteWorkflowExecutionCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CompleteWorkflowExecutionCommandAttributes)
(Lens' Command (Maybe CompleteWorkflowExecutionCommandAttributes)
-> FieldAccessor Command CompleteWorkflowExecutionCommandAttributes
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'completeWorkflowExecutionCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
failWorkflowExecutionCommandAttributes__field_descriptor :: FieldDescriptor Command
failWorkflowExecutionCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor FailWorkflowExecutionCommandAttributes
-> FieldAccessor Command FailWorkflowExecutionCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"fail_workflow_execution_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor FailWorkflowExecutionCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor FailWorkflowExecutionCommandAttributes)
(Lens' Command (Maybe FailWorkflowExecutionCommandAttributes)
-> FieldAccessor Command FailWorkflowExecutionCommandAttributes
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'failWorkflowExecutionCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
requestCancelActivityTaskCommandAttributes__field_descriptor :: FieldDescriptor Command
requestCancelActivityTaskCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor RequestCancelActivityTaskCommandAttributes
-> FieldAccessor Command RequestCancelActivityTaskCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"request_cancel_activity_task_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor RequestCancelActivityTaskCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RequestCancelActivityTaskCommandAttributes)
(Lens' Command (Maybe RequestCancelActivityTaskCommandAttributes)
-> FieldAccessor Command RequestCancelActivityTaskCommandAttributes
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'requestCancelActivityTaskCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
cancelTimerCommandAttributes__field_descriptor :: FieldDescriptor Command
cancelTimerCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor CancelTimerCommandAttributes
-> FieldAccessor Command CancelTimerCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cancel_timer_command_attributes"
(MessageOrGroup -> FieldTypeDescriptor CancelTimerCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CancelTimerCommandAttributes)
(Lens' Command (Maybe CancelTimerCommandAttributes)
-> FieldAccessor Command CancelTimerCommandAttributes
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'cancelTimerCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
cancelWorkflowExecutionCommandAttributes__field_descriptor :: FieldDescriptor Command
cancelWorkflowExecutionCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor CancelWorkflowExecutionCommandAttributes
-> FieldAccessor Command CancelWorkflowExecutionCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cancel_workflow_execution_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor CancelWorkflowExecutionCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CancelWorkflowExecutionCommandAttributes)
(Lens' Command (Maybe CancelWorkflowExecutionCommandAttributes)
-> FieldAccessor Command CancelWorkflowExecutionCommandAttributes
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'cancelWorkflowExecutionCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
requestCancelExternalWorkflowExecutionCommandAttributes__field_descriptor :: FieldDescriptor Command
requestCancelExternalWorkflowExecutionCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
-> FieldAccessor
Command RequestCancelExternalWorkflowExecutionCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"request_cancel_external_workflow_execution_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RequestCancelExternalWorkflowExecutionCommandAttributes)
(Lens'
Command
(Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
-> FieldAccessor
Command RequestCancelExternalWorkflowExecutionCommandAttributes
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'requestCancelExternalWorkflowExecutionCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
recordMarkerCommandAttributes__field_descriptor :: FieldDescriptor Command
recordMarkerCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor RecordMarkerCommandAttributes
-> FieldAccessor Command RecordMarkerCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"record_marker_command_attributes"
(MessageOrGroup -> FieldTypeDescriptor RecordMarkerCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RecordMarkerCommandAttributes)
(Lens' Command (Maybe RecordMarkerCommandAttributes)
-> FieldAccessor Command RecordMarkerCommandAttributes
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'recordMarkerCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
continueAsNewWorkflowExecutionCommandAttributes__field_descriptor :: FieldDescriptor Command
continueAsNewWorkflowExecutionCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor
ContinueAsNewWorkflowExecutionCommandAttributes
-> FieldAccessor
Command ContinueAsNewWorkflowExecutionCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"continue_as_new_workflow_execution_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor
ContinueAsNewWorkflowExecutionCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ContinueAsNewWorkflowExecutionCommandAttributes)
(Lens'
Command (Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
-> FieldAccessor
Command ContinueAsNewWorkflowExecutionCommandAttributes
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'continueAsNewWorkflowExecutionCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
startChildWorkflowExecutionCommandAttributes__field_descriptor :: FieldDescriptor Command
startChildWorkflowExecutionCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor StartChildWorkflowExecutionCommandAttributes
-> FieldAccessor
Command StartChildWorkflowExecutionCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_child_workflow_execution_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor StartChildWorkflowExecutionCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor StartChildWorkflowExecutionCommandAttributes)
(Lens' Command (Maybe StartChildWorkflowExecutionCommandAttributes)
-> FieldAccessor
Command StartChildWorkflowExecutionCommandAttributes
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'startChildWorkflowExecutionCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
signalExternalWorkflowExecutionCommandAttributes__field_descriptor :: FieldDescriptor Command
signalExternalWorkflowExecutionCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor
SignalExternalWorkflowExecutionCommandAttributes
-> FieldAccessor
Command SignalExternalWorkflowExecutionCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"signal_external_workflow_execution_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor
SignalExternalWorkflowExecutionCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SignalExternalWorkflowExecutionCommandAttributes)
(Lens'
Command (Maybe SignalExternalWorkflowExecutionCommandAttributes)
-> FieldAccessor
Command SignalExternalWorkflowExecutionCommandAttributes
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'signalExternalWorkflowExecutionCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
upsertWorkflowSearchAttributesCommandAttributes__field_descriptor :: FieldDescriptor Command
upsertWorkflowSearchAttributesCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor
UpsertWorkflowSearchAttributesCommandAttributes
-> FieldAccessor
Command UpsertWorkflowSearchAttributesCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"upsert_workflow_search_attributes_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor
UpsertWorkflowSearchAttributesCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor UpsertWorkflowSearchAttributesCommandAttributes)
(Lens'
Command (Maybe UpsertWorkflowSearchAttributesCommandAttributes)
-> FieldAccessor
Command UpsertWorkflowSearchAttributesCommandAttributes
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'upsertWorkflowSearchAttributesCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
protocolMessageCommandAttributes__field_descriptor :: FieldDescriptor Command
protocolMessageCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor ProtocolMessageCommandAttributes
-> FieldAccessor Command ProtocolMessageCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"protocol_message_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor ProtocolMessageCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ProtocolMessageCommandAttributes)
(Lens' Command (Maybe ProtocolMessageCommandAttributes)
-> FieldAccessor Command ProtocolMessageCommandAttributes
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'protocolMessageCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
modifyWorkflowPropertiesCommandAttributes__field_descriptor :: FieldDescriptor Command
modifyWorkflowPropertiesCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor ModifyWorkflowPropertiesCommandAttributes
-> FieldAccessor Command ModifyWorkflowPropertiesCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"modify_workflow_properties_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor ModifyWorkflowPropertiesCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ModifyWorkflowPropertiesCommandAttributes)
(Lens' Command (Maybe ModifyWorkflowPropertiesCommandAttributes)
-> FieldAccessor Command ModifyWorkflowPropertiesCommandAttributes
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'modifyWorkflowPropertiesCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
scheduleNexusOperationCommandAttributes__field_descriptor :: FieldDescriptor Command
scheduleNexusOperationCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor ScheduleNexusOperationCommandAttributes
-> FieldAccessor Command ScheduleNexusOperationCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_nexus_operation_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor ScheduleNexusOperationCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleNexusOperationCommandAttributes)
(Lens' Command (Maybe ScheduleNexusOperationCommandAttributes)
-> FieldAccessor Command ScheduleNexusOperationCommandAttributes
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'scheduleNexusOperationCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
requestCancelNexusOperationCommandAttributes__field_descriptor :: FieldDescriptor Command
requestCancelNexusOperationCommandAttributes__field_descriptor
= String
-> FieldTypeDescriptor RequestCancelNexusOperationCommandAttributes
-> FieldAccessor
Command RequestCancelNexusOperationCommandAttributes
-> FieldDescriptor Command
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"request_cancel_nexus_operation_command_attributes"
(MessageOrGroup
-> FieldTypeDescriptor RequestCancelNexusOperationCommandAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RequestCancelNexusOperationCommandAttributes)
(Lens' Command (Maybe RequestCancelNexusOperationCommandAttributes)
-> FieldAccessor
Command RequestCancelNexusOperationCommandAttributes
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'requestCancelNexusOperationCommandAttributes")) ::
Data.ProtoLens.FieldDescriptor Command
in
[(Tag, FieldDescriptor Command)]
-> Map Tag (FieldDescriptor Command)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Command
commandType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2,
FieldDescriptor Command
scheduleActivityTaskCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3,
FieldDescriptor Command
startTimerCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4,
FieldDescriptor Command
completeWorkflowExecutionCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5,
FieldDescriptor Command
failWorkflowExecutionCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6,
FieldDescriptor Command
requestCancelActivityTaskCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7,
FieldDescriptor Command
cancelTimerCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8,
FieldDescriptor Command
cancelWorkflowExecutionCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9,
FieldDescriptor Command
requestCancelExternalWorkflowExecutionCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10,
FieldDescriptor Command
recordMarkerCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11,
FieldDescriptor Command
continueAsNewWorkflowExecutionCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
12,
FieldDescriptor Command
startChildWorkflowExecutionCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
13,
FieldDescriptor Command
signalExternalWorkflowExecutionCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
14,
FieldDescriptor Command
upsertWorkflowSearchAttributesCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
15,
FieldDescriptor Command
protocolMessageCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
17,
FieldDescriptor Command
modifyWorkflowPropertiesCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
18,
FieldDescriptor Command
scheduleNexusOperationCommandAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
19,
FieldDescriptor Command
requestCancelNexusOperationCommandAttributes__field_descriptor)]
unknownFields :: Lens' Command FieldSet
unknownFields
= (Command -> FieldSet)
-> (Command -> FieldSet -> Command) -> Lens' Command FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Command -> FieldSet
_Command'_unknownFields
(\ Command
x__ FieldSet
y__ -> Command
x__ {_Command'_unknownFields = y__})
defMessage :: Command
defMessage
= Command'_constructor
{_Command'commandType :: CommandType
_Command'commandType = CommandType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Command'attributes :: Maybe Command'Attributes
_Command'attributes = Maybe Command'Attributes
forall a. Maybe a
Prelude.Nothing,
_Command'_unknownFields :: FieldSet
_Command'_unknownFields = []}
parseMessage :: Parser Command
parseMessage
= let
loop :: Command -> Data.ProtoLens.Encoding.Bytes.Parser Command
loop :: Command -> Parser Command
loop Command
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 CommandType -> String -> Parser CommandType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> CommandType) -> Parser Int -> Parser CommandType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> CommandType
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
"command_type"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"commandType") y x)
Word64
18
-> do y <- Parser ScheduleActivityTaskCommandAttributes
-> String -> Parser ScheduleActivityTaskCommandAttributes
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
"schedule_activity_task_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"scheduleActivityTaskCommandAttributes")
y x)
Word64
26
-> do y <- Parser StartTimerCommandAttributes
-> String -> Parser StartTimerCommandAttributes
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
"start_timer_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"startTimerCommandAttributes") y
x)
Word64
34
-> do y <- Parser CompleteWorkflowExecutionCommandAttributes
-> String -> Parser CompleteWorkflowExecutionCommandAttributes
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
"complete_workflow_execution_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"completeWorkflowExecutionCommandAttributes")
y x)
Word64
42
-> do y <- Parser FailWorkflowExecutionCommandAttributes
-> String -> Parser FailWorkflowExecutionCommandAttributes
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
"fail_workflow_execution_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"failWorkflowExecutionCommandAttributes")
y x)
Word64
50
-> do y <- Parser RequestCancelActivityTaskCommandAttributes
-> String -> Parser RequestCancelActivityTaskCommandAttributes
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
"request_cancel_activity_task_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"requestCancelActivityTaskCommandAttributes")
y x)
Word64
58
-> do y <- Parser CancelTimerCommandAttributes
-> String -> Parser CancelTimerCommandAttributes
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
"cancel_timer_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"cancelTimerCommandAttributes") y
x)
Word64
66
-> do y <- Parser CancelWorkflowExecutionCommandAttributes
-> String -> Parser CancelWorkflowExecutionCommandAttributes
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
"cancel_workflow_execution_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"cancelWorkflowExecutionCommandAttributes")
y x)
Word64
74
-> do y <- Parser RequestCancelExternalWorkflowExecutionCommandAttributes
-> String
-> Parser RequestCancelExternalWorkflowExecutionCommandAttributes
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
"request_cancel_external_workflow_execution_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"requestCancelExternalWorkflowExecutionCommandAttributes")
y x)
Word64
82
-> do y <- Parser RecordMarkerCommandAttributes
-> String -> Parser RecordMarkerCommandAttributes
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
"record_marker_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"recordMarkerCommandAttributes") y
x)
Word64
90
-> do y <- Parser ContinueAsNewWorkflowExecutionCommandAttributes
-> String -> Parser ContinueAsNewWorkflowExecutionCommandAttributes
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
"continue_as_new_workflow_execution_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"continueAsNewWorkflowExecutionCommandAttributes")
y x)
Word64
98
-> do y <- Parser StartChildWorkflowExecutionCommandAttributes
-> String -> Parser StartChildWorkflowExecutionCommandAttributes
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
"start_child_workflow_execution_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"startChildWorkflowExecutionCommandAttributes")
y x)
Word64
106
-> do y <- Parser SignalExternalWorkflowExecutionCommandAttributes
-> String
-> Parser SignalExternalWorkflowExecutionCommandAttributes
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
"signal_external_workflow_execution_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"signalExternalWorkflowExecutionCommandAttributes")
y x)
Word64
114
-> do y <- Parser UpsertWorkflowSearchAttributesCommandAttributes
-> String -> Parser UpsertWorkflowSearchAttributesCommandAttributes
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
"upsert_workflow_search_attributes_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"upsertWorkflowSearchAttributesCommandAttributes")
y x)
Word64
122
-> do y <- Parser ProtocolMessageCommandAttributes
-> String -> Parser ProtocolMessageCommandAttributes
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
"protocol_message_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"protocolMessageCommandAttributes")
y x)
Word64
138
-> do y <- Parser ModifyWorkflowPropertiesCommandAttributes
-> String -> Parser ModifyWorkflowPropertiesCommandAttributes
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
"modify_workflow_properties_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"modifyWorkflowPropertiesCommandAttributes")
y x)
Word64
146
-> do y <- Parser ScheduleNexusOperationCommandAttributes
-> String -> Parser ScheduleNexusOperationCommandAttributes
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
"schedule_nexus_operation_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"scheduleNexusOperationCommandAttributes")
y x)
Word64
154
-> do y <- Parser RequestCancelNexusOperationCommandAttributes
-> String -> Parser RequestCancelNexusOperationCommandAttributes
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
"request_cancel_nexus_operation_command_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"requestCancelNexusOperationCommandAttributes")
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 Command -> String -> Parser Command
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Command -> Parser Command
loop Command
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Command"
buildMessage :: Command -> Builder
buildMessage
= \ Command
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: CommandType
_v
= FoldLike CommandType Command Command CommandType CommandType
-> Command -> CommandType
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 @"commandType") Command
_x
in
if CommandType -> CommandType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) CommandType
_v CommandType
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) -> (CommandType -> Int) -> CommandType -> 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)
CommandType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum CommandType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Command'Attributes)
Command
Command
(Maybe Command'Attributes)
(Maybe Command'Attributes)
-> Command -> Maybe Command'Attributes
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'attributes") Command
_x
of
Maybe Command'Attributes
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (Command'ScheduleActivityTaskCommandAttributes ScheduleActivityTaskCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (ScheduleActivityTaskCommandAttributes -> ByteString)
-> ScheduleActivityTaskCommandAttributes
-> 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))
ScheduleActivityTaskCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleActivityTaskCommandAttributes
v)
(Prelude.Just (Command'StartTimerCommandAttributes StartTimerCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (StartTimerCommandAttributes -> ByteString)
-> StartTimerCommandAttributes
-> 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))
StartTimerCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StartTimerCommandAttributes
v)
(Prelude.Just (Command'CompleteWorkflowExecutionCommandAttributes CompleteWorkflowExecutionCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (CompleteWorkflowExecutionCommandAttributes -> ByteString)
-> CompleteWorkflowExecutionCommandAttributes
-> 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))
CompleteWorkflowExecutionCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CompleteWorkflowExecutionCommandAttributes
v)
(Prelude.Just (Command'FailWorkflowExecutionCommandAttributes FailWorkflowExecutionCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (FailWorkflowExecutionCommandAttributes -> ByteString)
-> FailWorkflowExecutionCommandAttributes
-> 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))
FailWorkflowExecutionCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage FailWorkflowExecutionCommandAttributes
v)
(Prelude.Just (Command'RequestCancelActivityTaskCommandAttributes RequestCancelActivityTaskCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((ByteString -> Builder)
-> (RequestCancelActivityTaskCommandAttributes -> ByteString)
-> RequestCancelActivityTaskCommandAttributes
-> 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))
RequestCancelActivityTaskCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RequestCancelActivityTaskCommandAttributes
v)
(Prelude.Just (Command'CancelTimerCommandAttributes CancelTimerCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (CancelTimerCommandAttributes -> ByteString)
-> CancelTimerCommandAttributes
-> 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))
CancelTimerCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CancelTimerCommandAttributes
v)
(Prelude.Just (Command'CancelWorkflowExecutionCommandAttributes CancelWorkflowExecutionCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
((ByteString -> Builder)
-> (CancelWorkflowExecutionCommandAttributes -> ByteString)
-> CancelWorkflowExecutionCommandAttributes
-> 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))
CancelWorkflowExecutionCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CancelWorkflowExecutionCommandAttributes
v)
(Prelude.Just (Command'RequestCancelExternalWorkflowExecutionCommandAttributes RequestCancelExternalWorkflowExecutionCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> ByteString)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> 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))
RequestCancelExternalWorkflowExecutionCommandAttributes
-> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RequestCancelExternalWorkflowExecutionCommandAttributes
v)
(Prelude.Just (Command'RecordMarkerCommandAttributes RecordMarkerCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
((ByteString -> Builder)
-> (RecordMarkerCommandAttributes -> ByteString)
-> RecordMarkerCommandAttributes
-> 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))
RecordMarkerCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RecordMarkerCommandAttributes
v)
(Prelude.Just (Command'ContinueAsNewWorkflowExecutionCommandAttributes ContinueAsNewWorkflowExecutionCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((ByteString -> Builder)
-> (ContinueAsNewWorkflowExecutionCommandAttributes -> ByteString)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> 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))
ContinueAsNewWorkflowExecutionCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ContinueAsNewWorkflowExecutionCommandAttributes
v)
(Prelude.Just (Command'StartChildWorkflowExecutionCommandAttributes StartChildWorkflowExecutionCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
((ByteString -> Builder)
-> (StartChildWorkflowExecutionCommandAttributes -> ByteString)
-> StartChildWorkflowExecutionCommandAttributes
-> 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))
StartChildWorkflowExecutionCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage StartChildWorkflowExecutionCommandAttributes
v)
(Prelude.Just (Command'SignalExternalWorkflowExecutionCommandAttributes SignalExternalWorkflowExecutionCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
106)
((ByteString -> Builder)
-> (SignalExternalWorkflowExecutionCommandAttributes -> ByteString)
-> SignalExternalWorkflowExecutionCommandAttributes
-> 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))
SignalExternalWorkflowExecutionCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SignalExternalWorkflowExecutionCommandAttributes
v)
(Prelude.Just (Command'UpsertWorkflowSearchAttributesCommandAttributes UpsertWorkflowSearchAttributesCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
114)
((ByteString -> Builder)
-> (UpsertWorkflowSearchAttributesCommandAttributes -> ByteString)
-> UpsertWorkflowSearchAttributesCommandAttributes
-> 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))
UpsertWorkflowSearchAttributesCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UpsertWorkflowSearchAttributesCommandAttributes
v)
(Prelude.Just (Command'ProtocolMessageCommandAttributes ProtocolMessageCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
122)
((ByteString -> Builder)
-> (ProtocolMessageCommandAttributes -> ByteString)
-> ProtocolMessageCommandAttributes
-> 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))
ProtocolMessageCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ProtocolMessageCommandAttributes
v)
(Prelude.Just (Command'ModifyWorkflowPropertiesCommandAttributes ModifyWorkflowPropertiesCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
138)
((ByteString -> Builder)
-> (ModifyWorkflowPropertiesCommandAttributes -> ByteString)
-> ModifyWorkflowPropertiesCommandAttributes
-> 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))
ModifyWorkflowPropertiesCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ModifyWorkflowPropertiesCommandAttributes
v)
(Prelude.Just (Command'ScheduleNexusOperationCommandAttributes ScheduleNexusOperationCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
146)
((ByteString -> Builder)
-> (ScheduleNexusOperationCommandAttributes -> ByteString)
-> ScheduleNexusOperationCommandAttributes
-> 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))
ScheduleNexusOperationCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ScheduleNexusOperationCommandAttributes
v)
(Prelude.Just (Command'RequestCancelNexusOperationCommandAttributes RequestCancelNexusOperationCommandAttributes
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
154)
((ByteString -> Builder)
-> (RequestCancelNexusOperationCommandAttributes -> ByteString)
-> RequestCancelNexusOperationCommandAttributes
-> 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))
RequestCancelNexusOperationCommandAttributes -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RequestCancelNexusOperationCommandAttributes
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet Command Command FieldSet FieldSet
-> Command -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Command Command FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Command FieldSet
Data.ProtoLens.unknownFields Command
_x)))
instance Control.DeepSeq.NFData Command where
rnf :: Command -> ()
rnf
= \ Command
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Command -> FieldSet
_Command'_unknownFields Command
x__)
(CommandType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Command -> CommandType
_Command'commandType Command
x__)
(Maybe Command'Attributes -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Command -> Maybe Command'Attributes
_Command'attributes Command
x__) ()))
instance Control.DeepSeq.NFData Command'Attributes where
rnf :: Command'Attributes -> ()
rnf (Command'ScheduleActivityTaskCommandAttributes ScheduleActivityTaskCommandAttributes
x__)
= ScheduleActivityTaskCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ScheduleActivityTaskCommandAttributes
x__
rnf (Command'StartTimerCommandAttributes StartTimerCommandAttributes
x__)
= StartTimerCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StartTimerCommandAttributes
x__
rnf (Command'CompleteWorkflowExecutionCommandAttributes CompleteWorkflowExecutionCommandAttributes
x__)
= CompleteWorkflowExecutionCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CompleteWorkflowExecutionCommandAttributes
x__
rnf (Command'FailWorkflowExecutionCommandAttributes FailWorkflowExecutionCommandAttributes
x__)
= FailWorkflowExecutionCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf FailWorkflowExecutionCommandAttributes
x__
rnf (Command'RequestCancelActivityTaskCommandAttributes RequestCancelActivityTaskCommandAttributes
x__)
= RequestCancelActivityTaskCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RequestCancelActivityTaskCommandAttributes
x__
rnf (Command'CancelTimerCommandAttributes CancelTimerCommandAttributes
x__)
= CancelTimerCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CancelTimerCommandAttributes
x__
rnf (Command'CancelWorkflowExecutionCommandAttributes CancelWorkflowExecutionCommandAttributes
x__)
= CancelWorkflowExecutionCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CancelWorkflowExecutionCommandAttributes
x__
rnf
(Command'RequestCancelExternalWorkflowExecutionCommandAttributes RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
= RequestCancelExternalWorkflowExecutionCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RequestCancelExternalWorkflowExecutionCommandAttributes
x__
rnf (Command'RecordMarkerCommandAttributes RecordMarkerCommandAttributes
x__)
= RecordMarkerCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RecordMarkerCommandAttributes
x__
rnf (Command'ContinueAsNewWorkflowExecutionCommandAttributes ContinueAsNewWorkflowExecutionCommandAttributes
x__)
= ContinueAsNewWorkflowExecutionCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ContinueAsNewWorkflowExecutionCommandAttributes
x__
rnf (Command'StartChildWorkflowExecutionCommandAttributes StartChildWorkflowExecutionCommandAttributes
x__)
= StartChildWorkflowExecutionCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf StartChildWorkflowExecutionCommandAttributes
x__
rnf (Command'SignalExternalWorkflowExecutionCommandAttributes SignalExternalWorkflowExecutionCommandAttributes
x__)
= SignalExternalWorkflowExecutionCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SignalExternalWorkflowExecutionCommandAttributes
x__
rnf (Command'UpsertWorkflowSearchAttributesCommandAttributes UpsertWorkflowSearchAttributesCommandAttributes
x__)
= UpsertWorkflowSearchAttributesCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf UpsertWorkflowSearchAttributesCommandAttributes
x__
rnf (Command'ProtocolMessageCommandAttributes ProtocolMessageCommandAttributes
x__)
= ProtocolMessageCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ProtocolMessageCommandAttributes
x__
rnf (Command'ModifyWorkflowPropertiesCommandAttributes ModifyWorkflowPropertiesCommandAttributes
x__)
= ModifyWorkflowPropertiesCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ModifyWorkflowPropertiesCommandAttributes
x__
rnf (Command'ScheduleNexusOperationCommandAttributes ScheduleNexusOperationCommandAttributes
x__)
= ScheduleNexusOperationCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ScheduleNexusOperationCommandAttributes
x__
rnf (Command'RequestCancelNexusOperationCommandAttributes RequestCancelNexusOperationCommandAttributes
x__)
= RequestCancelNexusOperationCommandAttributes -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RequestCancelNexusOperationCommandAttributes
x__
_Command'ScheduleActivityTaskCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes ScheduleActivityTaskCommandAttributes
_Command'ScheduleActivityTaskCommandAttributes :: Prism' Command'Attributes ScheduleActivityTaskCommandAttributes
_Command'ScheduleActivityTaskCommandAttributes
= (ScheduleActivityTaskCommandAttributes -> Command'Attributes)
-> (Command'Attributes
-> Maybe ScheduleActivityTaskCommandAttributes)
-> Prism' Command'Attributes ScheduleActivityTaskCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ScheduleActivityTaskCommandAttributes -> Command'Attributes
Command'ScheduleActivityTaskCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'ScheduleActivityTaskCommandAttributes ScheduleActivityTaskCommandAttributes
p__val)
-> ScheduleActivityTaskCommandAttributes
-> Maybe ScheduleActivityTaskCommandAttributes
forall a. a -> Maybe a
Prelude.Just ScheduleActivityTaskCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe ScheduleActivityTaskCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'StartTimerCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes StartTimerCommandAttributes
_Command'StartTimerCommandAttributes :: Prism' Command'Attributes StartTimerCommandAttributes
_Command'StartTimerCommandAttributes
= (StartTimerCommandAttributes -> Command'Attributes)
-> (Command'Attributes -> Maybe StartTimerCommandAttributes)
-> Prism' Command'Attributes StartTimerCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
StartTimerCommandAttributes -> Command'Attributes
Command'StartTimerCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'StartTimerCommandAttributes StartTimerCommandAttributes
p__val) -> StartTimerCommandAttributes -> Maybe StartTimerCommandAttributes
forall a. a -> Maybe a
Prelude.Just StartTimerCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe StartTimerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'CompleteWorkflowExecutionCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes CompleteWorkflowExecutionCommandAttributes
_Command'CompleteWorkflowExecutionCommandAttributes :: Prism'
Command'Attributes CompleteWorkflowExecutionCommandAttributes
_Command'CompleteWorkflowExecutionCommandAttributes
= (CompleteWorkflowExecutionCommandAttributes -> Command'Attributes)
-> (Command'Attributes
-> Maybe CompleteWorkflowExecutionCommandAttributes)
-> Prism'
Command'Attributes CompleteWorkflowExecutionCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CompleteWorkflowExecutionCommandAttributes -> Command'Attributes
Command'CompleteWorkflowExecutionCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'CompleteWorkflowExecutionCommandAttributes CompleteWorkflowExecutionCommandAttributes
p__val)
-> CompleteWorkflowExecutionCommandAttributes
-> Maybe CompleteWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just CompleteWorkflowExecutionCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe CompleteWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'FailWorkflowExecutionCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes FailWorkflowExecutionCommandAttributes
_Command'FailWorkflowExecutionCommandAttributes :: Prism' Command'Attributes FailWorkflowExecutionCommandAttributes
_Command'FailWorkflowExecutionCommandAttributes
= (FailWorkflowExecutionCommandAttributes -> Command'Attributes)
-> (Command'Attributes
-> Maybe FailWorkflowExecutionCommandAttributes)
-> Prism' Command'Attributes FailWorkflowExecutionCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
FailWorkflowExecutionCommandAttributes -> Command'Attributes
Command'FailWorkflowExecutionCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'FailWorkflowExecutionCommandAttributes FailWorkflowExecutionCommandAttributes
p__val)
-> FailWorkflowExecutionCommandAttributes
-> Maybe FailWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just FailWorkflowExecutionCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe FailWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'RequestCancelActivityTaskCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes RequestCancelActivityTaskCommandAttributes
_Command'RequestCancelActivityTaskCommandAttributes :: Prism'
Command'Attributes RequestCancelActivityTaskCommandAttributes
_Command'RequestCancelActivityTaskCommandAttributes
= (RequestCancelActivityTaskCommandAttributes -> Command'Attributes)
-> (Command'Attributes
-> Maybe RequestCancelActivityTaskCommandAttributes)
-> Prism'
Command'Attributes RequestCancelActivityTaskCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
RequestCancelActivityTaskCommandAttributes -> Command'Attributes
Command'RequestCancelActivityTaskCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'RequestCancelActivityTaskCommandAttributes RequestCancelActivityTaskCommandAttributes
p__val)
-> RequestCancelActivityTaskCommandAttributes
-> Maybe RequestCancelActivityTaskCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelActivityTaskCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe RequestCancelActivityTaskCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'CancelTimerCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes CancelTimerCommandAttributes
_Command'CancelTimerCommandAttributes :: Prism' Command'Attributes CancelTimerCommandAttributes
_Command'CancelTimerCommandAttributes
= (CancelTimerCommandAttributes -> Command'Attributes)
-> (Command'Attributes -> Maybe CancelTimerCommandAttributes)
-> Prism' Command'Attributes CancelTimerCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CancelTimerCommandAttributes -> Command'Attributes
Command'CancelTimerCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'CancelTimerCommandAttributes CancelTimerCommandAttributes
p__val)
-> CancelTimerCommandAttributes -> Maybe CancelTimerCommandAttributes
forall a. a -> Maybe a
Prelude.Just CancelTimerCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe CancelTimerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'CancelWorkflowExecutionCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes CancelWorkflowExecutionCommandAttributes
_Command'CancelWorkflowExecutionCommandAttributes :: Prism' Command'Attributes CancelWorkflowExecutionCommandAttributes
_Command'CancelWorkflowExecutionCommandAttributes
= (CancelWorkflowExecutionCommandAttributes -> Command'Attributes)
-> (Command'Attributes
-> Maybe CancelWorkflowExecutionCommandAttributes)
-> Prism'
Command'Attributes CancelWorkflowExecutionCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CancelWorkflowExecutionCommandAttributes -> Command'Attributes
Command'CancelWorkflowExecutionCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'CancelWorkflowExecutionCommandAttributes CancelWorkflowExecutionCommandAttributes
p__val)
-> CancelWorkflowExecutionCommandAttributes
-> Maybe CancelWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just CancelWorkflowExecutionCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe CancelWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'RequestCancelExternalWorkflowExecutionCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes RequestCancelExternalWorkflowExecutionCommandAttributes
_Command'RequestCancelExternalWorkflowExecutionCommandAttributes :: Prism'
Command'Attributes
RequestCancelExternalWorkflowExecutionCommandAttributes
_Command'RequestCancelExternalWorkflowExecutionCommandAttributes
= (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> (Command'Attributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Prism'
Command'Attributes
RequestCancelExternalWorkflowExecutionCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
RequestCancelExternalWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'RequestCancelExternalWorkflowExecutionCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'RequestCancelExternalWorkflowExecutionCommandAttributes RequestCancelExternalWorkflowExecutionCommandAttributes
p__val)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelExternalWorkflowExecutionCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'RecordMarkerCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes RecordMarkerCommandAttributes
_Command'RecordMarkerCommandAttributes :: Prism' Command'Attributes RecordMarkerCommandAttributes
_Command'RecordMarkerCommandAttributes
= (RecordMarkerCommandAttributes -> Command'Attributes)
-> (Command'Attributes -> Maybe RecordMarkerCommandAttributes)
-> Prism' Command'Attributes RecordMarkerCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
RecordMarkerCommandAttributes -> Command'Attributes
Command'RecordMarkerCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'RecordMarkerCommandAttributes RecordMarkerCommandAttributes
p__val)
-> RecordMarkerCommandAttributes
-> Maybe RecordMarkerCommandAttributes
forall a. a -> Maybe a
Prelude.Just RecordMarkerCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe RecordMarkerCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'ContinueAsNewWorkflowExecutionCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes ContinueAsNewWorkflowExecutionCommandAttributes
_Command'ContinueAsNewWorkflowExecutionCommandAttributes :: Prism'
Command'Attributes ContinueAsNewWorkflowExecutionCommandAttributes
_Command'ContinueAsNewWorkflowExecutionCommandAttributes
= (ContinueAsNewWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> (Command'Attributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes)
-> Prism'
Command'Attributes ContinueAsNewWorkflowExecutionCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ContinueAsNewWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'ContinueAsNewWorkflowExecutionCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'ContinueAsNewWorkflowExecutionCommandAttributes ContinueAsNewWorkflowExecutionCommandAttributes
p__val)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just ContinueAsNewWorkflowExecutionCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe ContinueAsNewWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'StartChildWorkflowExecutionCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes StartChildWorkflowExecutionCommandAttributes
_Command'StartChildWorkflowExecutionCommandAttributes :: Prism'
Command'Attributes StartChildWorkflowExecutionCommandAttributes
_Command'StartChildWorkflowExecutionCommandAttributes
= (StartChildWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> (Command'Attributes
-> Maybe StartChildWorkflowExecutionCommandAttributes)
-> Prism'
Command'Attributes StartChildWorkflowExecutionCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
StartChildWorkflowExecutionCommandAttributes -> Command'Attributes
Command'StartChildWorkflowExecutionCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'StartChildWorkflowExecutionCommandAttributes StartChildWorkflowExecutionCommandAttributes
p__val)
-> StartChildWorkflowExecutionCommandAttributes
-> Maybe StartChildWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just StartChildWorkflowExecutionCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe StartChildWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'SignalExternalWorkflowExecutionCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes SignalExternalWorkflowExecutionCommandAttributes
_Command'SignalExternalWorkflowExecutionCommandAttributes :: Prism'
Command'Attributes SignalExternalWorkflowExecutionCommandAttributes
_Command'SignalExternalWorkflowExecutionCommandAttributes
= (SignalExternalWorkflowExecutionCommandAttributes
-> Command'Attributes)
-> (Command'Attributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes)
-> Prism'
Command'Attributes SignalExternalWorkflowExecutionCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SignalExternalWorkflowExecutionCommandAttributes
-> Command'Attributes
Command'SignalExternalWorkflowExecutionCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'SignalExternalWorkflowExecutionCommandAttributes SignalExternalWorkflowExecutionCommandAttributes
p__val)
-> SignalExternalWorkflowExecutionCommandAttributes
-> Maybe SignalExternalWorkflowExecutionCommandAttributes
forall a. a -> Maybe a
Prelude.Just SignalExternalWorkflowExecutionCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe SignalExternalWorkflowExecutionCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'UpsertWorkflowSearchAttributesCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes UpsertWorkflowSearchAttributesCommandAttributes
_Command'UpsertWorkflowSearchAttributesCommandAttributes :: Prism'
Command'Attributes UpsertWorkflowSearchAttributesCommandAttributes
_Command'UpsertWorkflowSearchAttributesCommandAttributes
= (UpsertWorkflowSearchAttributesCommandAttributes
-> Command'Attributes)
-> (Command'Attributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes)
-> Prism'
Command'Attributes UpsertWorkflowSearchAttributesCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
UpsertWorkflowSearchAttributesCommandAttributes
-> Command'Attributes
Command'UpsertWorkflowSearchAttributesCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'UpsertWorkflowSearchAttributesCommandAttributes UpsertWorkflowSearchAttributesCommandAttributes
p__val)
-> UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe UpsertWorkflowSearchAttributesCommandAttributes
forall a. a -> Maybe a
Prelude.Just UpsertWorkflowSearchAttributesCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe UpsertWorkflowSearchAttributesCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'ProtocolMessageCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes ProtocolMessageCommandAttributes
_Command'ProtocolMessageCommandAttributes :: Prism' Command'Attributes ProtocolMessageCommandAttributes
_Command'ProtocolMessageCommandAttributes
= (ProtocolMessageCommandAttributes -> Command'Attributes)
-> (Command'Attributes -> Maybe ProtocolMessageCommandAttributes)
-> Prism' Command'Attributes ProtocolMessageCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ProtocolMessageCommandAttributes -> Command'Attributes
Command'ProtocolMessageCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'ProtocolMessageCommandAttributes ProtocolMessageCommandAttributes
p__val)
-> ProtocolMessageCommandAttributes
-> Maybe ProtocolMessageCommandAttributes
forall a. a -> Maybe a
Prelude.Just ProtocolMessageCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe ProtocolMessageCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'ModifyWorkflowPropertiesCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes ModifyWorkflowPropertiesCommandAttributes
_Command'ModifyWorkflowPropertiesCommandAttributes :: Prism' Command'Attributes ModifyWorkflowPropertiesCommandAttributes
_Command'ModifyWorkflowPropertiesCommandAttributes
= (ModifyWorkflowPropertiesCommandAttributes -> Command'Attributes)
-> (Command'Attributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes)
-> Prism'
Command'Attributes ModifyWorkflowPropertiesCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ModifyWorkflowPropertiesCommandAttributes -> Command'Attributes
Command'ModifyWorkflowPropertiesCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'ModifyWorkflowPropertiesCommandAttributes ModifyWorkflowPropertiesCommandAttributes
p__val)
-> ModifyWorkflowPropertiesCommandAttributes
-> Maybe ModifyWorkflowPropertiesCommandAttributes
forall a. a -> Maybe a
Prelude.Just ModifyWorkflowPropertiesCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe ModifyWorkflowPropertiesCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'ScheduleNexusOperationCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes ScheduleNexusOperationCommandAttributes
_Command'ScheduleNexusOperationCommandAttributes :: Prism' Command'Attributes ScheduleNexusOperationCommandAttributes
_Command'ScheduleNexusOperationCommandAttributes
= (ScheduleNexusOperationCommandAttributes -> Command'Attributes)
-> (Command'Attributes
-> Maybe ScheduleNexusOperationCommandAttributes)
-> Prism'
Command'Attributes ScheduleNexusOperationCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ScheduleNexusOperationCommandAttributes -> Command'Attributes
Command'ScheduleNexusOperationCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'ScheduleNexusOperationCommandAttributes ScheduleNexusOperationCommandAttributes
p__val)
-> ScheduleNexusOperationCommandAttributes
-> Maybe ScheduleNexusOperationCommandAttributes
forall a. a -> Maybe a
Prelude.Just ScheduleNexusOperationCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe ScheduleNexusOperationCommandAttributes
forall a. Maybe a
Prelude.Nothing)
_Command'RequestCancelNexusOperationCommandAttributes ::
Data.ProtoLens.Prism.Prism' Command'Attributes RequestCancelNexusOperationCommandAttributes
_Command'RequestCancelNexusOperationCommandAttributes :: Prism'
Command'Attributes RequestCancelNexusOperationCommandAttributes
_Command'RequestCancelNexusOperationCommandAttributes
= (RequestCancelNexusOperationCommandAttributes
-> Command'Attributes)
-> (Command'Attributes
-> Maybe RequestCancelNexusOperationCommandAttributes)
-> Prism'
Command'Attributes RequestCancelNexusOperationCommandAttributes
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
RequestCancelNexusOperationCommandAttributes -> Command'Attributes
Command'RequestCancelNexusOperationCommandAttributes
(\ Command'Attributes
p__
-> case Command'Attributes
p__ of
(Command'RequestCancelNexusOperationCommandAttributes RequestCancelNexusOperationCommandAttributes
p__val)
-> RequestCancelNexusOperationCommandAttributes
-> Maybe RequestCancelNexusOperationCommandAttributes
forall a. a -> Maybe a
Prelude.Just RequestCancelNexusOperationCommandAttributes
p__val
Command'Attributes
_otherwise -> Maybe RequestCancelNexusOperationCommandAttributes
forall a. Maybe a
Prelude.Nothing)
data CompleteWorkflowExecutionCommandAttributes
= CompleteWorkflowExecutionCommandAttributes'_constructor {CompleteWorkflowExecutionCommandAttributes -> Maybe Payloads
_CompleteWorkflowExecutionCommandAttributes'result :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
CompleteWorkflowExecutionCommandAttributes -> FieldSet
_CompleteWorkflowExecutionCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
(CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool)
-> (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool)
-> Eq CompleteWorkflowExecutionCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
== :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
$c/= :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
/= :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
Prelude.Eq, Eq CompleteWorkflowExecutionCommandAttributes
Eq CompleteWorkflowExecutionCommandAttributes =>
(CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Ordering)
-> (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool)
-> (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool)
-> (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool)
-> (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool)
-> (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes)
-> (CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes)
-> Ord CompleteWorkflowExecutionCommandAttributes
CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Ordering
CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
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 :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Ordering
compare :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Ordering
$c< :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
< :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
$c<= :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
<= :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
$c> :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
> :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
$c>= :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
>= :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes -> Bool
$cmax :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
max :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
$cmin :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
min :: CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
-> CompleteWorkflowExecutionCommandAttributes
Prelude.Ord)
instance Prelude.Show CompleteWorkflowExecutionCommandAttributes where
showsPrec :: Int -> CompleteWorkflowExecutionCommandAttributes -> ShowS
showsPrec Int
_ CompleteWorkflowExecutionCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CompleteWorkflowExecutionCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CompleteWorkflowExecutionCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CompleteWorkflowExecutionCommandAttributes "result" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "result"
-> (Payloads -> f Payloads)
-> CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes
fieldOf Proxy# "result"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CompleteWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (CompleteWorkflowExecutionCommandAttributes
-> Maybe Payloads -> CompleteWorkflowExecutionCommandAttributes)
-> Lens
CompleteWorkflowExecutionCommandAttributes
CompleteWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompleteWorkflowExecutionCommandAttributes -> Maybe Payloads
_CompleteWorkflowExecutionCommandAttributes'result
(\ CompleteWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> CompleteWorkflowExecutionCommandAttributes
x__ {_CompleteWorkflowExecutionCommandAttributes'result = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CompleteWorkflowExecutionCommandAttributes "maybe'result" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'result"
-> (Maybe Payloads -> f (Maybe Payloads))
-> CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'result"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> CompleteWorkflowExecutionCommandAttributes
-> f CompleteWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CompleteWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (CompleteWorkflowExecutionCommandAttributes
-> Maybe Payloads -> CompleteWorkflowExecutionCommandAttributes)
-> Lens
CompleteWorkflowExecutionCommandAttributes
CompleteWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompleteWorkflowExecutionCommandAttributes -> Maybe Payloads
_CompleteWorkflowExecutionCommandAttributes'result
(\ CompleteWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> CompleteWorkflowExecutionCommandAttributes
x__ {_CompleteWorkflowExecutionCommandAttributes'result = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CompleteWorkflowExecutionCommandAttributes where
messageName :: Proxy CompleteWorkflowExecutionCommandAttributes -> Text
messageName Proxy CompleteWorkflowExecutionCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.CompleteWorkflowExecutionCommandAttributes"
packedMessageDescriptor :: Proxy CompleteWorkflowExecutionCommandAttributes -> ByteString
packedMessageDescriptor Proxy CompleteWorkflowExecutionCommandAttributes
_
= ByteString
"\n\
\*CompleteWorkflowExecutionCommandAttributes\DC28\n\
\\ACKresult\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\ACKresult"
packedFileDescriptor :: Proxy CompleteWorkflowExecutionCommandAttributes -> ByteString
packedFileDescriptor Proxy CompleteWorkflowExecutionCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor CompleteWorkflowExecutionCommandAttributes)
fieldsByTag
= let
result__field_descriptor :: FieldDescriptor CompleteWorkflowExecutionCommandAttributes
result__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor
CompleteWorkflowExecutionCommandAttributes Payloads
-> FieldDescriptor CompleteWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"result"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
CompleteWorkflowExecutionCommandAttributes
CompleteWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor
CompleteWorkflowExecutionCommandAttributes Payloads
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'result")) ::
Data.ProtoLens.FieldDescriptor CompleteWorkflowExecutionCommandAttributes
in
[(Tag, FieldDescriptor CompleteWorkflowExecutionCommandAttributes)]
-> Map
Tag (FieldDescriptor CompleteWorkflowExecutionCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CompleteWorkflowExecutionCommandAttributes
result__field_descriptor)]
unknownFields :: Lens' CompleteWorkflowExecutionCommandAttributes FieldSet
unknownFields
= (CompleteWorkflowExecutionCommandAttributes -> FieldSet)
-> (CompleteWorkflowExecutionCommandAttributes
-> FieldSet -> CompleteWorkflowExecutionCommandAttributes)
-> Lens' CompleteWorkflowExecutionCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CompleteWorkflowExecutionCommandAttributes -> FieldSet
_CompleteWorkflowExecutionCommandAttributes'_unknownFields
(\ CompleteWorkflowExecutionCommandAttributes
x__ FieldSet
y__
-> CompleteWorkflowExecutionCommandAttributes
x__
{_CompleteWorkflowExecutionCommandAttributes'_unknownFields = y__})
defMessage :: CompleteWorkflowExecutionCommandAttributes
defMessage
= CompleteWorkflowExecutionCommandAttributes'_constructor
{_CompleteWorkflowExecutionCommandAttributes'result :: Maybe Payloads
_CompleteWorkflowExecutionCommandAttributes'result = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_CompleteWorkflowExecutionCommandAttributes'_unknownFields :: FieldSet
_CompleteWorkflowExecutionCommandAttributes'_unknownFields = []}
parseMessage :: Parser CompleteWorkflowExecutionCommandAttributes
parseMessage
= let
loop ::
CompleteWorkflowExecutionCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser CompleteWorkflowExecutionCommandAttributes
loop :: CompleteWorkflowExecutionCommandAttributes
-> Parser CompleteWorkflowExecutionCommandAttributes
loop CompleteWorkflowExecutionCommandAttributes
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 Payloads -> String -> Parser Payloads
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
"result"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"result") 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 CompleteWorkflowExecutionCommandAttributes
-> String -> Parser CompleteWorkflowExecutionCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CompleteWorkflowExecutionCommandAttributes
-> Parser CompleteWorkflowExecutionCommandAttributes
loop CompleteWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"CompleteWorkflowExecutionCommandAttributes"
buildMessage :: CompleteWorkflowExecutionCommandAttributes -> Builder
buildMessage
= \ CompleteWorkflowExecutionCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
CompleteWorkflowExecutionCommandAttributes
CompleteWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> CompleteWorkflowExecutionCommandAttributes -> Maybe Payloads
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'result") CompleteWorkflowExecutionCommandAttributes
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CompleteWorkflowExecutionCommandAttributes
CompleteWorkflowExecutionCommandAttributes
FieldSet
FieldSet
-> CompleteWorkflowExecutionCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CompleteWorkflowExecutionCommandAttributes
CompleteWorkflowExecutionCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CompleteWorkflowExecutionCommandAttributes FieldSet
Data.ProtoLens.unknownFields CompleteWorkflowExecutionCommandAttributes
_x))
instance Control.DeepSeq.NFData CompleteWorkflowExecutionCommandAttributes where
rnf :: CompleteWorkflowExecutionCommandAttributes -> ()
rnf
= \ CompleteWorkflowExecutionCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CompleteWorkflowExecutionCommandAttributes -> FieldSet
_CompleteWorkflowExecutionCommandAttributes'_unknownFields CompleteWorkflowExecutionCommandAttributes
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CompleteWorkflowExecutionCommandAttributes -> Maybe Payloads
_CompleteWorkflowExecutionCommandAttributes'result CompleteWorkflowExecutionCommandAttributes
x__) ())
data ContinueAsNewWorkflowExecutionCommandAttributes
= ContinueAsNewWorkflowExecutionCommandAttributes'_constructor {ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType),
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue :: !(Prelude.Maybe Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue),
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'input :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy),
ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewInitiator
_ContinueAsNewWorkflowExecutionCommandAttributes'initiator :: !Proto.Temporal.Api.Enums.V1.Workflow.ContinueAsNewInitiator,
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Failure
_ContinueAsNewWorkflowExecutionCommandAttributes'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
ContinueAsNewWorkflowExecutionCommandAttributes -> Text
_ContinueAsNewWorkflowExecutionCommandAttributes'cronSchedule :: !Data.Text.Text,
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Header
_ContinueAsNewWorkflowExecutionCommandAttributes'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header),
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Memo
_ContinueAsNewWorkflowExecutionCommandAttributes'memo :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo),
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes),
ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
_ContinueAsNewWorkflowExecutionCommandAttributes'inheritBuildId :: !Prelude.Bool,
ContinueAsNewWorkflowExecutionCommandAttributes -> FieldSet
_ContinueAsNewWorkflowExecutionCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
(ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool)
-> Eq ContinueAsNewWorkflowExecutionCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
== :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
$c/= :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
/= :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
Prelude.Eq, Eq ContinueAsNewWorkflowExecutionCommandAttributes
Eq ContinueAsNewWorkflowExecutionCommandAttributes =>
(ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Ordering)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Ord ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Ordering
ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
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 :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Ordering
compare :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Ordering
$c< :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
< :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
$c<= :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
<= :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
$c> :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
> :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
$c>= :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
>= :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
$cmax :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
max :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
$cmin :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
min :: ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes
Prelude.Ord)
instance Prelude.Show ContinueAsNewWorkflowExecutionCommandAttributes where
showsPrec :: Int -> ContinueAsNewWorkflowExecutionCommandAttributes -> ShowS
showsPrec Int
_ ContinueAsNewWorkflowExecutionCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ContinueAsNewWorkflowExecutionCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ContinueAsNewWorkflowExecutionCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "workflowType" Proto.Temporal.Api.Common.V1.Message.WorkflowType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowType"
-> (WorkflowType -> f WorkflowType)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((WorkflowType -> f WorkflowType)
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (WorkflowType -> f WorkflowType)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe WorkflowType
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType = y__}))
(WorkflowType -> Lens' (Maybe WorkflowType) WorkflowType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowType
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'workflowType" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowType"
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe WorkflowType
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType = y__}))
(Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "taskQueue" Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskQueue"
-> (TaskQueue -> f TaskQueue)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "taskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((TaskQueue -> f TaskQueue)
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (TaskQueue -> f TaskQueue)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe TaskQueue)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe TaskQueue
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe TaskQueue
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue = y__}))
(TaskQueue -> Lens' (Maybe TaskQueue) TaskQueue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaskQueue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'taskQueue" (Prelude.Maybe Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'taskQueue"
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'taskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe TaskQueue)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe TaskQueue
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe TaskQueue
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue = y__}))
(Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "input" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "input"
-> (Payloads -> f Payloads)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Payloads
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'input
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'input = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'input" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'input"
-> (Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Payloads
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'input
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'input = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "workflowRunTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowRunTimeout"
-> (Duration -> f Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowRunTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Duration
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout = 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 ContinueAsNewWorkflowExecutionCommandAttributes "maybe'workflowRunTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowRunTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'workflowRunTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Duration
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "workflowTaskTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowTaskTimeout"
-> (Duration -> f Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowTaskTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Duration
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout = 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 ContinueAsNewWorkflowExecutionCommandAttributes "maybe'workflowTaskTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowTaskTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'workflowTaskTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Duration
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "backoffStartInterval" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "backoffStartInterval"
-> (Duration -> f Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "backoffStartInterval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Duration
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval = 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 ContinueAsNewWorkflowExecutionCommandAttributes "maybe'backoffStartInterval" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'backoffStartInterval"
-> (Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'backoffStartInterval"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Duration
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "retryPolicy" Proto.Temporal.Api.Common.V1.Message.RetryPolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "retryPolicy"
-> (RetryPolicy -> f RetryPolicy)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "retryPolicy"
_
= ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((RetryPolicy -> f RetryPolicy)
-> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (RetryPolicy -> f RetryPolicy)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe RetryPolicy
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy = y__}))
(RetryPolicy -> Lens' (Maybe RetryPolicy) RetryPolicy
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RetryPolicy
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'retryPolicy" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'retryPolicy"
-> (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'retryPolicy"
_
= ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe RetryPolicy
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy = y__}))
(Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Maybe RetryPolicy -> f (Maybe RetryPolicy)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "initiator" Proto.Temporal.Api.Enums.V1.Workflow.ContinueAsNewInitiator where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "initiator"
-> (ContinueAsNewInitiator -> f ContinueAsNewInitiator)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "initiator"
_
= ((ContinueAsNewInitiator -> f ContinueAsNewInitiator)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((ContinueAsNewInitiator -> f ContinueAsNewInitiator)
-> ContinueAsNewInitiator -> f ContinueAsNewInitiator)
-> (ContinueAsNewInitiator -> f ContinueAsNewInitiator)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewInitiator)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewInitiator
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewInitiator
ContinueAsNewInitiator
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewInitiator
_ContinueAsNewWorkflowExecutionCommandAttributes'initiator
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ ContinueAsNewInitiator
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'initiator = y__}))
(ContinueAsNewInitiator -> f ContinueAsNewInitiator)
-> ContinueAsNewInitiator -> f ContinueAsNewInitiator
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "failure"
_
= ((Maybe Failure -> f (Maybe Failure))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Failure)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Failure
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Failure
_ContinueAsNewWorkflowExecutionCommandAttributes'failure
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Failure
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'failure = y__}))
(Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'failure"
_
= ((Maybe Failure -> f (Maybe Failure))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Failure)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Failure
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Failure
_ContinueAsNewWorkflowExecutionCommandAttributes'failure
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Failure
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'failure = y__}))
(Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "lastCompletionResult" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lastCompletionResult"
-> (Payloads -> f Payloads)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "lastCompletionResult"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Payloads
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'lastCompletionResult" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'lastCompletionResult"
-> (Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'lastCompletionResult"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Payloads
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "cronSchedule" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cronSchedule"
-> (Text -> f Text)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "cronSchedule"
_
= ((Text -> f Text)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Text)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Text -> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Text
_ContinueAsNewWorkflowExecutionCommandAttributes'cronSchedule
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Text
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'cronSchedule = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "header" Proto.Temporal.Api.Common.V1.Message.Header where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Header -> f Header)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "header"
_
= ((Maybe Header -> f (Maybe Header))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Header -> f Header) -> Maybe Header -> f (Maybe Header))
-> (Header -> f Header)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Header)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Header -> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Header
_ContinueAsNewWorkflowExecutionCommandAttributes'header
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Header
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'header = y__}))
(Header -> Lens' (Maybe Header) Header
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe Header -> f (Maybe Header))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'header"
_
= ((Maybe Header -> f (Maybe Header))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header))
-> (Maybe Header -> f (Maybe Header))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Header)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Header -> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Header
_ContinueAsNewWorkflowExecutionCommandAttributes'header
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Header
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'header = y__}))
(Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "memo" Proto.Temporal.Api.Common.V1.Message.Memo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memo"
-> (Memo -> f Memo)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "memo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Memo -> f Memo) -> Maybe Memo -> f (Maybe Memo))
-> (Memo -> f Memo)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Memo)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Memo -> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Memo
_ContinueAsNewWorkflowExecutionCommandAttributes'memo
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Memo
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'memo = y__}))
(Memo -> Lens' (Maybe Memo) Memo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Memo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'memo" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'memo"
-> (Maybe Memo -> f (Maybe Memo))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'memo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo))
-> (Maybe Memo -> f (Maybe Memo))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Memo)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Memo -> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Memo
_ContinueAsNewWorkflowExecutionCommandAttributes'memo
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe Memo
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'memo = y__}))
(Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "searchAttributes" Proto.Temporal.Api.Common.V1.Message.SearchAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "searchAttributes"
-> (SearchAttributes -> f SearchAttributes)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((SearchAttributes -> f SearchAttributes)
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (SearchAttributes -> f SearchAttributes)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe SearchAttributes
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes = y__}))
(SearchAttributes -> Lens' (Maybe SearchAttributes) SearchAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SearchAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "maybe'searchAttributes" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'searchAttributes"
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
-> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Maybe SearchAttributes
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes = y__}))
(Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ContinueAsNewWorkflowExecutionCommandAttributes "inheritBuildId" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "inheritBuildId"
-> (Bool -> f Bool)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
fieldOf Proxy# "inheritBuildId"
_
= ((Bool -> f Bool)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> f ContinueAsNewWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ContinueAsNewWorkflowExecutionCommandAttributes -> Bool)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> Bool -> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
_ContinueAsNewWorkflowExecutionCommandAttributes'inheritBuildId
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ Bool
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'inheritBuildId = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ContinueAsNewWorkflowExecutionCommandAttributes where
messageName :: Proxy ContinueAsNewWorkflowExecutionCommandAttributes -> Text
messageName Proxy ContinueAsNewWorkflowExecutionCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.ContinueAsNewWorkflowExecutionCommandAttributes"
packedMessageDescriptor :: Proxy ContinueAsNewWorkflowExecutionCommandAttributes -> ByteString
packedMessageDescriptor Proxy ContinueAsNewWorkflowExecutionCommandAttributes
_
= ByteString
"\n\
\/ContinueAsNewWorkflowExecutionCommandAttributes\DC2I\n\
\\rworkflow_type\CAN\SOH \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2C\n\
\\n\
\task_queue\CAN\STX \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\ttaskQueue\DC26\n\
\\ENQinput\CAN\ETX \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2K\n\
\\DC4workflow_run_timeout\CAN\EOT \SOH(\v2\EM.google.protobuf.DurationR\DC2workflowRunTimeout\DC2M\n\
\\NAKworkflow_task_timeout\CAN\ENQ \SOH(\v2\EM.google.protobuf.DurationR\DC3workflowTaskTimeout\DC2O\n\
\\SYNbackoff_start_interval\CAN\ACK \SOH(\v2\EM.google.protobuf.DurationR\DC4backoffStartInterval\DC2F\n\
\\fretry_policy\CAN\a \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC2K\n\
\\tinitiator\CAN\b \SOH(\SO2-.temporal.api.enums.v1.ContinueAsNewInitiatorR\tinitiator\DC2:\n\
\\afailure\CAN\t \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\DC2V\n\
\\SYNlast_completion_result\CAN\n\
\ \SOH(\v2 .temporal.api.common.v1.PayloadsR\DC4lastCompletionResult\DC2#\n\
\\rcron_schedule\CAN\v \SOH(\tR\fcronSchedule\DC26\n\
\\ACKheader\CAN\f \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC20\n\
\\EOTmemo\CAN\r \SOH(\v2\FS.temporal.api.common.v1.MemoR\EOTmemo\DC2U\n\
\\DC1search_attributes\CAN\SO \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes\DC2(\n\
\\DLEinherit_build_id\CAN\SI \SOH(\bR\SOinheritBuildId"
packedFileDescriptor :: Proxy ContinueAsNewWorkflowExecutionCommandAttributes -> ByteString
packedFileDescriptor Proxy ContinueAsNewWorkflowExecutionCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes)
fieldsByTag
= let
workflowType__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowType__field_descriptor
= String
-> FieldTypeDescriptor WorkflowType
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes WorkflowType
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_type"
(MessageOrGroup -> FieldTypeDescriptor WorkflowType
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowType)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes WorkflowType
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'workflowType")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
taskQueue__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
taskQueue__field_descriptor
= String
-> FieldTypeDescriptor TaskQueue
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes TaskQueue
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"task_queue"
(MessageOrGroup -> FieldTypeDescriptor TaskQueue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes TaskQueue
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'taskQueue")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
input__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
input__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Payloads
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"input"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Payloads
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'input")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowRunTimeout__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowRunTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Duration
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_run_timeout"
(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
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes 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'workflowRunTimeout")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowTaskTimeout__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowTaskTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Duration
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_task_timeout"
(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
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes 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'workflowTaskTimeout")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
backoffStartInterval__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
backoffStartInterval__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Duration
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"backoff_start_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
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes 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'backoffStartInterval")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
retryPolicy__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
retryPolicy__field_descriptor
= String
-> FieldTypeDescriptor RetryPolicy
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes RetryPolicy
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"retry_policy"
(MessageOrGroup -> FieldTypeDescriptor RetryPolicy
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.RetryPolicy)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes RetryPolicy
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'retryPolicy")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
initiator__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
initiator__field_descriptor
= String
-> FieldTypeDescriptor ContinueAsNewInitiator
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewInitiator
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"initiator"
(ScalarField ContinueAsNewInitiator
-> FieldTypeDescriptor ContinueAsNewInitiator
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ContinueAsNewInitiator
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Workflow.ContinueAsNewInitiator)
(WireDefault ContinueAsNewInitiator
-> Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewInitiator
ContinueAsNewInitiator
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewInitiator
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ContinueAsNewInitiator
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 @"initiator")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
failure__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
failure__field_descriptor
= String
-> FieldTypeDescriptor Failure
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Failure
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"failure"
(MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Failure
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'failure")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
lastCompletionResult__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
lastCompletionResult__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Payloads
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"last_completion_result"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Payloads
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'lastCompletionResult")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
cronSchedule__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
cronSchedule__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Text
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cron_schedule"
(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
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes 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 @"cronSchedule")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
header__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
header__field_descriptor
= String
-> FieldTypeDescriptor Header
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Header
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"header"
(MessageOrGroup -> FieldTypeDescriptor Header
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Header
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'header")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
memo__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
memo__field_descriptor
= String
-> FieldTypeDescriptor Memo
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Memo
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"memo"
(MessageOrGroup -> FieldTypeDescriptor Memo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Memo)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Memo
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'memo")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
searchAttributes__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
searchAttributes__field_descriptor
= String
-> FieldTypeDescriptor SearchAttributes
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes SearchAttributes
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"search_attributes"
(MessageOrGroup -> FieldTypeDescriptor SearchAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.SearchAttributes)
(Lens
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes SearchAttributes
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'searchAttributes")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
inheritBuildId__field_descriptor :: FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
inheritBuildId__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes Bool
-> FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"inherit_build_id"
(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
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
Bool
Bool
-> FieldAccessor
ContinueAsNewWorkflowExecutionCommandAttributes 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 @"inheritBuildId")) ::
Data.ProtoLens.FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
in
[(Tag,
FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes)]
-> Map
Tag
(FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
taskQueue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
input__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowRunTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
workflowTaskTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
backoffStartInterval__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
retryPolicy__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
initiator__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
failure__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
lastCompletionResult__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
cronSchedule__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
header__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
memo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
14, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
searchAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
15, FieldDescriptor ContinueAsNewWorkflowExecutionCommandAttributes
inheritBuildId__field_descriptor)]
unknownFields :: Lens' ContinueAsNewWorkflowExecutionCommandAttributes FieldSet
unknownFields
= (ContinueAsNewWorkflowExecutionCommandAttributes -> FieldSet)
-> (ContinueAsNewWorkflowExecutionCommandAttributes
-> FieldSet -> ContinueAsNewWorkflowExecutionCommandAttributes)
-> Lens' ContinueAsNewWorkflowExecutionCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ContinueAsNewWorkflowExecutionCommandAttributes -> FieldSet
_ContinueAsNewWorkflowExecutionCommandAttributes'_unknownFields
(\ ContinueAsNewWorkflowExecutionCommandAttributes
x__ FieldSet
y__
-> ContinueAsNewWorkflowExecutionCommandAttributes
x__
{_ContinueAsNewWorkflowExecutionCommandAttributes'_unknownFields = y__})
defMessage :: ContinueAsNewWorkflowExecutionCommandAttributes
defMessage
= ContinueAsNewWorkflowExecutionCommandAttributes'_constructor
{_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType :: Maybe WorkflowType
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType = Maybe WorkflowType
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue :: Maybe TaskQueue
_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue = Maybe TaskQueue
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'input :: Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'input = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout :: Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout :: Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval :: Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy :: Maybe RetryPolicy
_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy = Maybe RetryPolicy
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'initiator :: ContinueAsNewInitiator
_ContinueAsNewWorkflowExecutionCommandAttributes'initiator = ContinueAsNewInitiator
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ContinueAsNewWorkflowExecutionCommandAttributes'failure :: Maybe Failure
_ContinueAsNewWorkflowExecutionCommandAttributes'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult :: Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'cronSchedule :: Text
_ContinueAsNewWorkflowExecutionCommandAttributes'cronSchedule = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ContinueAsNewWorkflowExecutionCommandAttributes'header :: Maybe Header
_ContinueAsNewWorkflowExecutionCommandAttributes'header = Maybe Header
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'memo :: Maybe Memo
_ContinueAsNewWorkflowExecutionCommandAttributes'memo = Maybe Memo
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes :: Maybe SearchAttributes
_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes = Maybe SearchAttributes
forall a. Maybe a
Prelude.Nothing,
_ContinueAsNewWorkflowExecutionCommandAttributes'inheritBuildId :: Bool
_ContinueAsNewWorkflowExecutionCommandAttributes'inheritBuildId = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ContinueAsNewWorkflowExecutionCommandAttributes'_unknownFields :: FieldSet
_ContinueAsNewWorkflowExecutionCommandAttributes'_unknownFields = []}
parseMessage :: Parser ContinueAsNewWorkflowExecutionCommandAttributes
parseMessage
= let
loop ::
ContinueAsNewWorkflowExecutionCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser ContinueAsNewWorkflowExecutionCommandAttributes
loop :: ContinueAsNewWorkflowExecutionCommandAttributes
-> Parser ContinueAsNewWorkflowExecutionCommandAttributes
loop ContinueAsNewWorkflowExecutionCommandAttributes
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 WorkflowType -> String -> Parser WorkflowType
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
"workflow_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowType") y x)
Word64
18
-> do y <- Parser TaskQueue -> String -> Parser TaskQueue
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
"task_queue"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"taskQueue") y x)
Word64
26
-> do y <- Parser Payloads -> String -> Parser Payloads
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
"input"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"input") y x)
Word64
34
-> 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
"workflow_run_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowRunTimeout") y x)
Word64
42
-> 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
"workflow_task_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowTaskTimeout") y x)
Word64
50
-> 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
"backoff_start_interval"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"backoffStartInterval") y x)
Word64
58
-> do y <- Parser RetryPolicy -> String -> Parser RetryPolicy
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
"retry_policy"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"retryPolicy") y x)
Word64
64
-> do y <- Parser ContinueAsNewInitiator
-> String -> Parser ContinueAsNewInitiator
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> ContinueAsNewInitiator)
-> Parser Int -> Parser ContinueAsNewInitiator
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> ContinueAsNewInitiator
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
"initiator"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"initiator") y x)
Word64
74
-> do y <- Parser Failure -> String -> Parser Failure
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
"failure"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x)
Word64
82
-> do y <- Parser Payloads -> String -> Parser Payloads
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_completion_result"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastCompletionResult") y x)
Word64
90
-> 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
"cron_schedule"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"cronSchedule") y x)
Word64
98
-> do y <- Parser Header -> String -> Parser Header
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"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
Word64
106
-> do y <- Parser Memo -> String -> Parser Memo
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
"memo"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memo") y x)
Word64
114
-> do y <- Parser SearchAttributes -> String -> Parser SearchAttributes
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
"search_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"searchAttributes") y x)
Word64
120
-> 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
"inherit_build_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"inheritBuildId") 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 ContinueAsNewWorkflowExecutionCommandAttributes
-> String -> Parser ContinueAsNewWorkflowExecutionCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ContinueAsNewWorkflowExecutionCommandAttributes
-> Parser ContinueAsNewWorkflowExecutionCommandAttributes
loop ContinueAsNewWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"ContinueAsNewWorkflowExecutionCommandAttributes"
buildMessage :: ContinueAsNewWorkflowExecutionCommandAttributes -> Builder
buildMessage
= \ ContinueAsNewWorkflowExecutionCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WorkflowType)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
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'workflowType") ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe WorkflowType
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkflowType
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (WorkflowType -> ByteString) -> WorkflowType -> 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))
WorkflowType -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TaskQueue)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe TaskQueue
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'taskQueue") ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe TaskQueue
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TaskQueue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (TaskQueue -> ByteString) -> TaskQueue -> 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))
TaskQueue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TaskQueue
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Payloads
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'input") ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> 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'workflowRunTimeout") ContinueAsNewWorkflowExecutionCommandAttributes
_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
34)
((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.<>)
(case
FoldLike
(Maybe Duration)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> 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'workflowTaskTimeout") ContinueAsNewWorkflowExecutionCommandAttributes
_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
42)
((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.<>)
(case
FoldLike
(Maybe Duration)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> 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'backoffStartInterval") ContinueAsNewWorkflowExecutionCommandAttributes
_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
50)
((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.<>)
(case
FoldLike
(Maybe RetryPolicy)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
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'retryPolicy") ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe RetryPolicy
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just RetryPolicy
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (RetryPolicy -> ByteString) -> RetryPolicy -> 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))
RetryPolicy -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RetryPolicy
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ContinueAsNewInitiator
_v
= FoldLike
ContinueAsNewInitiator
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewInitiator
ContinueAsNewInitiator
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewInitiator
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 @"initiator") ContinueAsNewWorkflowExecutionCommandAttributes
_x
in
if ContinueAsNewInitiator -> ContinueAsNewInitiator -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ContinueAsNewInitiator
_v ContinueAsNewInitiator
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
64)
((Int -> Builder)
-> (ContinueAsNewInitiator -> Int)
-> ContinueAsNewInitiator
-> 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)
ContinueAsNewInitiator -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ContinueAsNewInitiator
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Failure)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Failure
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'failure") ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Failure
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> 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))
Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe Payloads
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'lastCompletionResult")
ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
Text
Text
-> ContinueAsNewWorkflowExecutionCommandAttributes -> 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 @"cronSchedule") ContinueAsNewWorkflowExecutionCommandAttributes
_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
90)
((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 Header)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Header
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'header") ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe Header
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Header
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
((ByteString -> Builder)
-> (Header -> ByteString) -> Header -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Header
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Memo)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
-> ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Memo
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'memo")
ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe Memo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Memo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word64
106)
((ByteString -> Builder) -> (Memo -> ByteString) -> Memo -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Memo
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SearchAttributes)
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
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'searchAttributes")
ContinueAsNewWorkflowExecutionCommandAttributes
_x
of
Maybe SearchAttributes
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just SearchAttributes
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word64
114)
((ByteString -> Builder)
-> (SearchAttributes -> ByteString) -> SearchAttributes -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SearchAttributes
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
Bool
Bool
-> ContinueAsNewWorkflowExecutionCommandAttributes -> 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
@"inheritBuildId")
ContinueAsNewWorkflowExecutionCommandAttributes
_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
120)
((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
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
FieldSet
FieldSet
-> ContinueAsNewWorkflowExecutionCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike
FieldSet
ContinueAsNewWorkflowExecutionCommandAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ContinueAsNewWorkflowExecutionCommandAttributes FieldSet
Data.ProtoLens.unknownFields
ContinueAsNewWorkflowExecutionCommandAttributes
_x))))))))))))))))
instance Control.DeepSeq.NFData ContinueAsNewWorkflowExecutionCommandAttributes where
rnf :: ContinueAsNewWorkflowExecutionCommandAttributes -> ()
rnf
= \ ContinueAsNewWorkflowExecutionCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> FieldSet
_ContinueAsNewWorkflowExecutionCommandAttributes'_unknownFields
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe WorkflowType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowType ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe TaskQueue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_ContinueAsNewWorkflowExecutionCommandAttributes'taskQueue ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'input ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowRunTimeout
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'workflowTaskTimeout
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Duration
_ContinueAsNewWorkflowExecutionCommandAttributes'backoffStartInterval
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe RetryPolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
_ContinueAsNewWorkflowExecutionCommandAttributes'retryPolicy ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(ContinueAsNewInitiator -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes
-> ContinueAsNewInitiator
_ContinueAsNewWorkflowExecutionCommandAttributes'initiator
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Failure
_ContinueAsNewWorkflowExecutionCommandAttributes'failure
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Payloads
_ContinueAsNewWorkflowExecutionCommandAttributes'lastCompletionResult
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Text
_ContinueAsNewWorkflowExecutionCommandAttributes'cronSchedule
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Header -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Header
_ContinueAsNewWorkflowExecutionCommandAttributes'header
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe Memo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Maybe Memo
_ContinueAsNewWorkflowExecutionCommandAttributes'memo
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Maybe SearchAttributes -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_ContinueAsNewWorkflowExecutionCommandAttributes'searchAttributes
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ContinueAsNewWorkflowExecutionCommandAttributes -> Bool
_ContinueAsNewWorkflowExecutionCommandAttributes'inheritBuildId
ContinueAsNewWorkflowExecutionCommandAttributes
x__)
())))))))))))))))
data FailWorkflowExecutionCommandAttributes
= FailWorkflowExecutionCommandAttributes'_constructor {FailWorkflowExecutionCommandAttributes -> Maybe Failure
_FailWorkflowExecutionCommandAttributes'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
FailWorkflowExecutionCommandAttributes -> FieldSet
_FailWorkflowExecutionCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
(FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool)
-> (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool)
-> Eq FailWorkflowExecutionCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
== :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
$c/= :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
/= :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
Prelude.Eq, Eq FailWorkflowExecutionCommandAttributes
Eq FailWorkflowExecutionCommandAttributes =>
(FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Ordering)
-> (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool)
-> (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool)
-> (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool)
-> (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool)
-> (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes)
-> (FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes)
-> Ord FailWorkflowExecutionCommandAttributes
FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Ordering
FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
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 :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Ordering
compare :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Ordering
$c< :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
< :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
$c<= :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
<= :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
$c> :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
> :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
$c>= :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
>= :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes -> Bool
$cmax :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
max :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
$cmin :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
min :: FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
-> FailWorkflowExecutionCommandAttributes
Prelude.Ord)
instance Prelude.Show FailWorkflowExecutionCommandAttributes where
showsPrec :: Int -> FailWorkflowExecutionCommandAttributes -> ShowS
showsPrec Int
_ FailWorkflowExecutionCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(FailWorkflowExecutionCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FailWorkflowExecutionCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField FailWorkflowExecutionCommandAttributes "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure)
-> FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes
fieldOf Proxy# "failure"
_
= ((Maybe Failure -> f (Maybe Failure))
-> FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FailWorkflowExecutionCommandAttributes -> Maybe Failure)
-> (FailWorkflowExecutionCommandAttributes
-> Maybe Failure -> FailWorkflowExecutionCommandAttributes)
-> Lens
FailWorkflowExecutionCommandAttributes
FailWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FailWorkflowExecutionCommandAttributes -> Maybe Failure
_FailWorkflowExecutionCommandAttributes'failure
(\ FailWorkflowExecutionCommandAttributes
x__ Maybe Failure
y__
-> FailWorkflowExecutionCommandAttributes
x__ {_FailWorkflowExecutionCommandAttributes'failure = y__}))
(Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FailWorkflowExecutionCommandAttributes "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure))
-> FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'failure"
_
= ((Maybe Failure -> f (Maybe Failure))
-> FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes)
-> ((Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> FailWorkflowExecutionCommandAttributes
-> f FailWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FailWorkflowExecutionCommandAttributes -> Maybe Failure)
-> (FailWorkflowExecutionCommandAttributes
-> Maybe Failure -> FailWorkflowExecutionCommandAttributes)
-> Lens
FailWorkflowExecutionCommandAttributes
FailWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FailWorkflowExecutionCommandAttributes -> Maybe Failure
_FailWorkflowExecutionCommandAttributes'failure
(\ FailWorkflowExecutionCommandAttributes
x__ Maybe Failure
y__
-> FailWorkflowExecutionCommandAttributes
x__ {_FailWorkflowExecutionCommandAttributes'failure = y__}))
(Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FailWorkflowExecutionCommandAttributes where
messageName :: Proxy FailWorkflowExecutionCommandAttributes -> Text
messageName Proxy FailWorkflowExecutionCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.FailWorkflowExecutionCommandAttributes"
packedMessageDescriptor :: Proxy FailWorkflowExecutionCommandAttributes -> ByteString
packedMessageDescriptor Proxy FailWorkflowExecutionCommandAttributes
_
= ByteString
"\n\
\&FailWorkflowExecutionCommandAttributes\DC2:\n\
\\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure"
packedFileDescriptor :: Proxy FailWorkflowExecutionCommandAttributes -> ByteString
packedFileDescriptor Proxy FailWorkflowExecutionCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor FailWorkflowExecutionCommandAttributes)
fieldsByTag
= let
failure__field_descriptor :: FieldDescriptor FailWorkflowExecutionCommandAttributes
failure__field_descriptor
= String
-> FieldTypeDescriptor Failure
-> FieldAccessor FailWorkflowExecutionCommandAttributes Failure
-> FieldDescriptor FailWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"failure"
(MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
(Lens
FailWorkflowExecutionCommandAttributes
FailWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
-> FieldAccessor FailWorkflowExecutionCommandAttributes Failure
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'failure")) ::
Data.ProtoLens.FieldDescriptor FailWorkflowExecutionCommandAttributes
in
[(Tag, FieldDescriptor FailWorkflowExecutionCommandAttributes)]
-> Map Tag (FieldDescriptor FailWorkflowExecutionCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor FailWorkflowExecutionCommandAttributes
failure__field_descriptor)]
unknownFields :: Lens' FailWorkflowExecutionCommandAttributes FieldSet
unknownFields
= (FailWorkflowExecutionCommandAttributes -> FieldSet)
-> (FailWorkflowExecutionCommandAttributes
-> FieldSet -> FailWorkflowExecutionCommandAttributes)
-> Lens' FailWorkflowExecutionCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FailWorkflowExecutionCommandAttributes -> FieldSet
_FailWorkflowExecutionCommandAttributes'_unknownFields
(\ FailWorkflowExecutionCommandAttributes
x__ FieldSet
y__
-> FailWorkflowExecutionCommandAttributes
x__
{_FailWorkflowExecutionCommandAttributes'_unknownFields = y__})
defMessage :: FailWorkflowExecutionCommandAttributes
defMessage
= FailWorkflowExecutionCommandAttributes'_constructor
{_FailWorkflowExecutionCommandAttributes'failure :: Maybe Failure
_FailWorkflowExecutionCommandAttributes'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
_FailWorkflowExecutionCommandAttributes'_unknownFields :: FieldSet
_FailWorkflowExecutionCommandAttributes'_unknownFields = []}
parseMessage :: Parser FailWorkflowExecutionCommandAttributes
parseMessage
= let
loop ::
FailWorkflowExecutionCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser FailWorkflowExecutionCommandAttributes
loop :: FailWorkflowExecutionCommandAttributes
-> Parser FailWorkflowExecutionCommandAttributes
loop FailWorkflowExecutionCommandAttributes
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 Failure -> String -> Parser Failure
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
"failure"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") 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 FailWorkflowExecutionCommandAttributes
-> String -> Parser FailWorkflowExecutionCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do FailWorkflowExecutionCommandAttributes
-> Parser FailWorkflowExecutionCommandAttributes
loop FailWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"FailWorkflowExecutionCommandAttributes"
buildMessage :: FailWorkflowExecutionCommandAttributes -> Builder
buildMessage
= \ FailWorkflowExecutionCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Failure)
FailWorkflowExecutionCommandAttributes
FailWorkflowExecutionCommandAttributes
(Maybe Failure)
(Maybe Failure)
-> FailWorkflowExecutionCommandAttributes -> Maybe Failure
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'failure") FailWorkflowExecutionCommandAttributes
_x
of
Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Failure
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> 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))
Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
FailWorkflowExecutionCommandAttributes
FailWorkflowExecutionCommandAttributes
FieldSet
FieldSet
-> FailWorkflowExecutionCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
FailWorkflowExecutionCommandAttributes
FailWorkflowExecutionCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' FailWorkflowExecutionCommandAttributes FieldSet
Data.ProtoLens.unknownFields FailWorkflowExecutionCommandAttributes
_x))
instance Control.DeepSeq.NFData FailWorkflowExecutionCommandAttributes where
rnf :: FailWorkflowExecutionCommandAttributes -> ()
rnf
= \ FailWorkflowExecutionCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FailWorkflowExecutionCommandAttributes -> FieldSet
_FailWorkflowExecutionCommandAttributes'_unknownFields FailWorkflowExecutionCommandAttributes
x__)
(Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FailWorkflowExecutionCommandAttributes -> Maybe Failure
_FailWorkflowExecutionCommandAttributes'failure FailWorkflowExecutionCommandAttributes
x__) ())
data ModifyWorkflowPropertiesCommandAttributes
= ModifyWorkflowPropertiesCommandAttributes'_constructor {ModifyWorkflowPropertiesCommandAttributes -> Maybe Memo
_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo),
ModifyWorkflowPropertiesCommandAttributes -> FieldSet
_ModifyWorkflowPropertiesCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
(ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool)
-> (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool)
-> Eq ModifyWorkflowPropertiesCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
== :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
$c/= :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
/= :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
Prelude.Eq, Eq ModifyWorkflowPropertiesCommandAttributes
Eq ModifyWorkflowPropertiesCommandAttributes =>
(ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Ordering)
-> (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool)
-> (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool)
-> (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool)
-> (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool)
-> (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes)
-> (ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes)
-> Ord ModifyWorkflowPropertiesCommandAttributes
ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Ordering
ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
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 :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Ordering
compare :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Ordering
$c< :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
< :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
$c<= :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
<= :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
$c> :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
> :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
$c>= :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
>= :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes -> Bool
$cmax :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
max :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
$cmin :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
min :: ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
-> ModifyWorkflowPropertiesCommandAttributes
Prelude.Ord)
instance Prelude.Show ModifyWorkflowPropertiesCommandAttributes where
showsPrec :: Int -> ModifyWorkflowPropertiesCommandAttributes -> ShowS
showsPrec Int
_ ModifyWorkflowPropertiesCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ModifyWorkflowPropertiesCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ModifyWorkflowPropertiesCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ModifyWorkflowPropertiesCommandAttributes "upsertedMemo" Proto.Temporal.Api.Common.V1.Message.Memo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "upsertedMemo"
-> (Memo -> f Memo)
-> ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes
fieldOf Proxy# "upsertedMemo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes)
-> ((Memo -> f Memo) -> Maybe Memo -> f (Maybe Memo))
-> (Memo -> f Memo)
-> ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ModifyWorkflowPropertiesCommandAttributes -> Maybe Memo)
-> (ModifyWorkflowPropertiesCommandAttributes
-> Maybe Memo -> ModifyWorkflowPropertiesCommandAttributes)
-> Lens
ModifyWorkflowPropertiesCommandAttributes
ModifyWorkflowPropertiesCommandAttributes
(Maybe Memo)
(Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ModifyWorkflowPropertiesCommandAttributes -> Maybe Memo
_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo
(\ ModifyWorkflowPropertiesCommandAttributes
x__ Maybe Memo
y__
-> ModifyWorkflowPropertiesCommandAttributes
x__
{_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo = y__}))
(Memo -> Lens' (Maybe Memo) Memo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Memo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ModifyWorkflowPropertiesCommandAttributes "maybe'upsertedMemo" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'upsertedMemo"
-> (Maybe Memo -> f (Maybe Memo))
-> ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes
fieldOf Proxy# "maybe'upsertedMemo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes)
-> ((Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo))
-> (Maybe Memo -> f (Maybe Memo))
-> ModifyWorkflowPropertiesCommandAttributes
-> f ModifyWorkflowPropertiesCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ModifyWorkflowPropertiesCommandAttributes -> Maybe Memo)
-> (ModifyWorkflowPropertiesCommandAttributes
-> Maybe Memo -> ModifyWorkflowPropertiesCommandAttributes)
-> Lens
ModifyWorkflowPropertiesCommandAttributes
ModifyWorkflowPropertiesCommandAttributes
(Maybe Memo)
(Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ModifyWorkflowPropertiesCommandAttributes -> Maybe Memo
_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo
(\ ModifyWorkflowPropertiesCommandAttributes
x__ Maybe Memo
y__
-> ModifyWorkflowPropertiesCommandAttributes
x__
{_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo = y__}))
(Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ModifyWorkflowPropertiesCommandAttributes where
messageName :: Proxy ModifyWorkflowPropertiesCommandAttributes -> Text
messageName Proxy ModifyWorkflowPropertiesCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.ModifyWorkflowPropertiesCommandAttributes"
packedMessageDescriptor :: Proxy ModifyWorkflowPropertiesCommandAttributes -> ByteString
packedMessageDescriptor Proxy ModifyWorkflowPropertiesCommandAttributes
_
= ByteString
"\n\
\)ModifyWorkflowPropertiesCommandAttributes\DC2A\n\
\\rupserted_memo\CAN\SOH \SOH(\v2\FS.temporal.api.common.v1.MemoR\fupsertedMemo"
packedFileDescriptor :: Proxy ModifyWorkflowPropertiesCommandAttributes -> ByteString
packedFileDescriptor Proxy ModifyWorkflowPropertiesCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ModifyWorkflowPropertiesCommandAttributes)
fieldsByTag
= let
upsertedMemo__field_descriptor :: FieldDescriptor ModifyWorkflowPropertiesCommandAttributes
upsertedMemo__field_descriptor
= String
-> FieldTypeDescriptor Memo
-> FieldAccessor ModifyWorkflowPropertiesCommandAttributes Memo
-> FieldDescriptor ModifyWorkflowPropertiesCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"upserted_memo"
(MessageOrGroup -> FieldTypeDescriptor Memo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Memo)
(Lens
ModifyWorkflowPropertiesCommandAttributes
ModifyWorkflowPropertiesCommandAttributes
(Maybe Memo)
(Maybe Memo)
-> FieldAccessor ModifyWorkflowPropertiesCommandAttributes Memo
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'upsertedMemo")) ::
Data.ProtoLens.FieldDescriptor ModifyWorkflowPropertiesCommandAttributes
in
[(Tag, FieldDescriptor ModifyWorkflowPropertiesCommandAttributes)]
-> Map
Tag (FieldDescriptor ModifyWorkflowPropertiesCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ModifyWorkflowPropertiesCommandAttributes
upsertedMemo__field_descriptor)]
unknownFields :: Lens' ModifyWorkflowPropertiesCommandAttributes FieldSet
unknownFields
= (ModifyWorkflowPropertiesCommandAttributes -> FieldSet)
-> (ModifyWorkflowPropertiesCommandAttributes
-> FieldSet -> ModifyWorkflowPropertiesCommandAttributes)
-> Lens' ModifyWorkflowPropertiesCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ModifyWorkflowPropertiesCommandAttributes -> FieldSet
_ModifyWorkflowPropertiesCommandAttributes'_unknownFields
(\ ModifyWorkflowPropertiesCommandAttributes
x__ FieldSet
y__
-> ModifyWorkflowPropertiesCommandAttributes
x__
{_ModifyWorkflowPropertiesCommandAttributes'_unknownFields = y__})
defMessage :: ModifyWorkflowPropertiesCommandAttributes
defMessage
= ModifyWorkflowPropertiesCommandAttributes'_constructor
{_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo :: Maybe Memo
_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo = Maybe Memo
forall a. Maybe a
Prelude.Nothing,
_ModifyWorkflowPropertiesCommandAttributes'_unknownFields :: FieldSet
_ModifyWorkflowPropertiesCommandAttributes'_unknownFields = []}
parseMessage :: Parser ModifyWorkflowPropertiesCommandAttributes
parseMessage
= let
loop ::
ModifyWorkflowPropertiesCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser ModifyWorkflowPropertiesCommandAttributes
loop :: ModifyWorkflowPropertiesCommandAttributes
-> Parser ModifyWorkflowPropertiesCommandAttributes
loop ModifyWorkflowPropertiesCommandAttributes
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 Memo -> String -> Parser Memo
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
"upserted_memo"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"upsertedMemo") 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 ModifyWorkflowPropertiesCommandAttributes
-> String -> Parser ModifyWorkflowPropertiesCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ModifyWorkflowPropertiesCommandAttributes
-> Parser ModifyWorkflowPropertiesCommandAttributes
loop ModifyWorkflowPropertiesCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"ModifyWorkflowPropertiesCommandAttributes"
buildMessage :: ModifyWorkflowPropertiesCommandAttributes -> Builder
buildMessage
= \ ModifyWorkflowPropertiesCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Memo)
ModifyWorkflowPropertiesCommandAttributes
ModifyWorkflowPropertiesCommandAttributes
(Maybe Memo)
(Maybe Memo)
-> ModifyWorkflowPropertiesCommandAttributes -> Maybe Memo
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'upsertedMemo") ModifyWorkflowPropertiesCommandAttributes
_x
of
Maybe Memo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Memo
_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 -> ByteString) -> Memo -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Memo
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ModifyWorkflowPropertiesCommandAttributes
ModifyWorkflowPropertiesCommandAttributes
FieldSet
FieldSet
-> ModifyWorkflowPropertiesCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ModifyWorkflowPropertiesCommandAttributes
ModifyWorkflowPropertiesCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ModifyWorkflowPropertiesCommandAttributes FieldSet
Data.ProtoLens.unknownFields ModifyWorkflowPropertiesCommandAttributes
_x))
instance Control.DeepSeq.NFData ModifyWorkflowPropertiesCommandAttributes where
rnf :: ModifyWorkflowPropertiesCommandAttributes -> ()
rnf
= \ ModifyWorkflowPropertiesCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ModifyWorkflowPropertiesCommandAttributes -> FieldSet
_ModifyWorkflowPropertiesCommandAttributes'_unknownFields ModifyWorkflowPropertiesCommandAttributes
x__)
(Maybe Memo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ModifyWorkflowPropertiesCommandAttributes -> Maybe Memo
_ModifyWorkflowPropertiesCommandAttributes'upsertedMemo ModifyWorkflowPropertiesCommandAttributes
x__) ())
data ProtocolMessageCommandAttributes
= ProtocolMessageCommandAttributes'_constructor {ProtocolMessageCommandAttributes -> Text
_ProtocolMessageCommandAttributes'messageId :: !Data.Text.Text,
ProtocolMessageCommandAttributes -> FieldSet
_ProtocolMessageCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
(ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool)
-> (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool)
-> Eq ProtocolMessageCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
== :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
$c/= :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
/= :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
Prelude.Eq, Eq ProtocolMessageCommandAttributes
Eq ProtocolMessageCommandAttributes =>
(ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Ordering)
-> (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool)
-> (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool)
-> (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool)
-> (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool)
-> (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes)
-> (ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes)
-> Ord ProtocolMessageCommandAttributes
ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Ordering
ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
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 :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Ordering
compare :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Ordering
$c< :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
< :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
$c<= :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
<= :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
$c> :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
> :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
$c>= :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
>= :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes -> Bool
$cmax :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
max :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
$cmin :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
min :: ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
-> ProtocolMessageCommandAttributes
Prelude.Ord)
instance Prelude.Show ProtocolMessageCommandAttributes where
showsPrec :: Int -> ProtocolMessageCommandAttributes -> ShowS
showsPrec Int
_ ProtocolMessageCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ProtocolMessageCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ProtocolMessageCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ProtocolMessageCommandAttributes "messageId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "messageId"
-> (Text -> f Text)
-> ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes
fieldOf Proxy# "messageId"
_
= ((Text -> f Text)
-> ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ProtocolMessageCommandAttributes
-> f ProtocolMessageCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ProtocolMessageCommandAttributes -> Text)
-> (ProtocolMessageCommandAttributes
-> Text -> ProtocolMessageCommandAttributes)
-> Lens
ProtocolMessageCommandAttributes
ProtocolMessageCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ProtocolMessageCommandAttributes -> Text
_ProtocolMessageCommandAttributes'messageId
(\ ProtocolMessageCommandAttributes
x__ Text
y__
-> ProtocolMessageCommandAttributes
x__ {_ProtocolMessageCommandAttributes'messageId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ProtocolMessageCommandAttributes where
messageName :: Proxy ProtocolMessageCommandAttributes -> Text
messageName Proxy ProtocolMessageCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.ProtocolMessageCommandAttributes"
packedMessageDescriptor :: Proxy ProtocolMessageCommandAttributes -> ByteString
packedMessageDescriptor Proxy ProtocolMessageCommandAttributes
_
= ByteString
"\n\
\ ProtocolMessageCommandAttributes\DC2\GS\n\
\\n\
\message_id\CAN\SOH \SOH(\tR\tmessageId"
packedFileDescriptor :: Proxy ProtocolMessageCommandAttributes -> ByteString
packedFileDescriptor Proxy ProtocolMessageCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ProtocolMessageCommandAttributes)
fieldsByTag
= let
messageId__field_descriptor :: FieldDescriptor ProtocolMessageCommandAttributes
messageId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ProtocolMessageCommandAttributes Text
-> FieldDescriptor ProtocolMessageCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"message_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
ProtocolMessageCommandAttributes
ProtocolMessageCommandAttributes
Text
Text
-> FieldAccessor ProtocolMessageCommandAttributes 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 @"messageId")) ::
Data.ProtoLens.FieldDescriptor ProtocolMessageCommandAttributes
in
[(Tag, FieldDescriptor ProtocolMessageCommandAttributes)]
-> Map Tag (FieldDescriptor ProtocolMessageCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ProtocolMessageCommandAttributes
messageId__field_descriptor)]
unknownFields :: Lens' ProtocolMessageCommandAttributes FieldSet
unknownFields
= (ProtocolMessageCommandAttributes -> FieldSet)
-> (ProtocolMessageCommandAttributes
-> FieldSet -> ProtocolMessageCommandAttributes)
-> Lens' ProtocolMessageCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ProtocolMessageCommandAttributes -> FieldSet
_ProtocolMessageCommandAttributes'_unknownFields
(\ ProtocolMessageCommandAttributes
x__ FieldSet
y__
-> ProtocolMessageCommandAttributes
x__ {_ProtocolMessageCommandAttributes'_unknownFields = y__})
defMessage :: ProtocolMessageCommandAttributes
defMessage
= ProtocolMessageCommandAttributes'_constructor
{_ProtocolMessageCommandAttributes'messageId :: Text
_ProtocolMessageCommandAttributes'messageId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ProtocolMessageCommandAttributes'_unknownFields :: FieldSet
_ProtocolMessageCommandAttributes'_unknownFields = []}
parseMessage :: Parser ProtocolMessageCommandAttributes
parseMessage
= let
loop ::
ProtocolMessageCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser ProtocolMessageCommandAttributes
loop :: ProtocolMessageCommandAttributes
-> Parser ProtocolMessageCommandAttributes
loop ProtocolMessageCommandAttributes
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
"message_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"messageId") 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 ProtocolMessageCommandAttributes
-> String -> Parser ProtocolMessageCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ProtocolMessageCommandAttributes
-> Parser ProtocolMessageCommandAttributes
loop ProtocolMessageCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"ProtocolMessageCommandAttributes"
buildMessage :: ProtocolMessageCommandAttributes -> Builder
buildMessage
= \ ProtocolMessageCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
ProtocolMessageCommandAttributes
ProtocolMessageCommandAttributes
Text
Text
-> ProtocolMessageCommandAttributes -> 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 @"messageId") ProtocolMessageCommandAttributes
_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
ProtocolMessageCommandAttributes
ProtocolMessageCommandAttributes
FieldSet
FieldSet
-> ProtocolMessageCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ProtocolMessageCommandAttributes
ProtocolMessageCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ProtocolMessageCommandAttributes FieldSet
Data.ProtoLens.unknownFields ProtocolMessageCommandAttributes
_x))
instance Control.DeepSeq.NFData ProtocolMessageCommandAttributes where
rnf :: ProtocolMessageCommandAttributes -> ()
rnf
= \ ProtocolMessageCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ProtocolMessageCommandAttributes -> FieldSet
_ProtocolMessageCommandAttributes'_unknownFields ProtocolMessageCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ProtocolMessageCommandAttributes -> Text
_ProtocolMessageCommandAttributes'messageId ProtocolMessageCommandAttributes
x__) ())
data RecordMarkerCommandAttributes
= RecordMarkerCommandAttributes'_constructor {RecordMarkerCommandAttributes -> Text
_RecordMarkerCommandAttributes'markerName :: !Data.Text.Text,
RecordMarkerCommandAttributes -> Map Text Payloads
_RecordMarkerCommandAttributes'details :: !(Data.Map.Map Data.Text.Text Proto.Temporal.Api.Common.V1.Message.Payloads),
RecordMarkerCommandAttributes -> Maybe Header
_RecordMarkerCommandAttributes'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header),
RecordMarkerCommandAttributes -> Maybe Failure
_RecordMarkerCommandAttributes'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
RecordMarkerCommandAttributes -> FieldSet
_RecordMarkerCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
(RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool)
-> (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool)
-> Eq RecordMarkerCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
== :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
$c/= :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
/= :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
Prelude.Eq, Eq RecordMarkerCommandAttributes
Eq RecordMarkerCommandAttributes =>
(RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Ordering)
-> (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool)
-> (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool)
-> (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool)
-> (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool)
-> (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> RecordMarkerCommandAttributes)
-> (RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> RecordMarkerCommandAttributes)
-> Ord RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Ordering
RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> RecordMarkerCommandAttributes
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 :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Ordering
compare :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Ordering
$c< :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
< :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
$c<= :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
<= :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
$c> :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
> :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
$c>= :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
>= :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> Bool
$cmax :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> RecordMarkerCommandAttributes
max :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> RecordMarkerCommandAttributes
$cmin :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> RecordMarkerCommandAttributes
min :: RecordMarkerCommandAttributes
-> RecordMarkerCommandAttributes -> RecordMarkerCommandAttributes
Prelude.Ord)
instance Prelude.Show RecordMarkerCommandAttributes where
showsPrec :: Int -> RecordMarkerCommandAttributes -> ShowS
showsPrec Int
_ RecordMarkerCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(RecordMarkerCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RecordMarkerCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes "markerName" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "markerName"
-> (Text -> f Text)
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
fieldOf Proxy# "markerName"
_
= ((Text -> f Text)
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes -> Text)
-> (RecordMarkerCommandAttributes
-> Text -> RecordMarkerCommandAttributes)
-> Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes -> Text
_RecordMarkerCommandAttributes'markerName
(\ RecordMarkerCommandAttributes
x__ Text
y__
-> RecordMarkerCommandAttributes
x__ {_RecordMarkerCommandAttributes'markerName = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes "details" (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details"
-> (Map Text Payloads -> f (Map Text Payloads))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
fieldOf Proxy# "details"
_
= ((Map Text Payloads -> f (Map Text Payloads))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> ((Map Text Payloads -> f (Map Text Payloads))
-> Map Text Payloads -> f (Map Text Payloads))
-> (Map Text Payloads -> f (Map Text Payloads))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes -> Map Text Payloads)
-> (RecordMarkerCommandAttributes
-> Map Text Payloads -> RecordMarkerCommandAttributes)
-> Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Map Text Payloads)
(Map Text Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes -> Map Text Payloads
_RecordMarkerCommandAttributes'details
(\ RecordMarkerCommandAttributes
x__ Map Text Payloads
y__ -> RecordMarkerCommandAttributes
x__ {_RecordMarkerCommandAttributes'details = y__}))
(Map Text Payloads -> f (Map Text Payloads))
-> Map Text Payloads -> f (Map Text Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes "header" Proto.Temporal.Api.Common.V1.Message.Header where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Header -> f Header)
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
fieldOf Proxy# "header"
_
= ((Maybe Header -> f (Maybe Header))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> ((Header -> f Header) -> Maybe Header -> f (Maybe Header))
-> (Header -> f Header)
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes -> Maybe Header)
-> (RecordMarkerCommandAttributes
-> Maybe Header -> RecordMarkerCommandAttributes)
-> Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes -> Maybe Header
_RecordMarkerCommandAttributes'header
(\ RecordMarkerCommandAttributes
x__ Maybe Header
y__ -> RecordMarkerCommandAttributes
x__ {_RecordMarkerCommandAttributes'header = y__}))
(Header -> Lens' (Maybe Header) Header
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe Header -> f (Maybe Header))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
fieldOf Proxy# "maybe'header"
_
= ((Maybe Header -> f (Maybe Header))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> ((Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header))
-> (Maybe Header -> f (Maybe Header))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes -> Maybe Header)
-> (RecordMarkerCommandAttributes
-> Maybe Header -> RecordMarkerCommandAttributes)
-> Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes -> Maybe Header
_RecordMarkerCommandAttributes'header
(\ RecordMarkerCommandAttributes
x__ Maybe Header
y__ -> RecordMarkerCommandAttributes
x__ {_RecordMarkerCommandAttributes'header = y__}))
(Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure)
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
fieldOf Proxy# "failure"
_
= ((Maybe Failure -> f (Maybe Failure))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes -> Maybe Failure)
-> (RecordMarkerCommandAttributes
-> Maybe Failure -> RecordMarkerCommandAttributes)
-> Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Failure)
(Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes -> Maybe Failure
_RecordMarkerCommandAttributes'failure
(\ RecordMarkerCommandAttributes
x__ Maybe Failure
y__ -> RecordMarkerCommandAttributes
x__ {_RecordMarkerCommandAttributes'failure = y__}))
(Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
fieldOf Proxy# "maybe'failure"
_
= ((Maybe Failure -> f (Maybe Failure))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes)
-> ((Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> RecordMarkerCommandAttributes
-> f RecordMarkerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes -> Maybe Failure)
-> (RecordMarkerCommandAttributes
-> Maybe Failure -> RecordMarkerCommandAttributes)
-> Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Failure)
(Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes -> Maybe Failure
_RecordMarkerCommandAttributes'failure
(\ RecordMarkerCommandAttributes
x__ Maybe Failure
y__ -> RecordMarkerCommandAttributes
x__ {_RecordMarkerCommandAttributes'failure = y__}))
(Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RecordMarkerCommandAttributes where
messageName :: Proxy RecordMarkerCommandAttributes -> Text
messageName Proxy RecordMarkerCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.RecordMarkerCommandAttributes"
packedMessageDescriptor :: Proxy RecordMarkerCommandAttributes -> ByteString
packedMessageDescriptor Proxy RecordMarkerCommandAttributes
_
= ByteString
"\n\
\\GSRecordMarkerCommandAttributes\DC2\US\n\
\\vmarker_name\CAN\SOH \SOH(\tR\n\
\markerName\DC2]\n\
\\adetails\CAN\STX \ETX(\v2C.temporal.api.command.v1.RecordMarkerCommandAttributes.DetailsEntryR\adetails\DC26\n\
\\ACKheader\CAN\ETX \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC2:\n\
\\afailure\CAN\EOT \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\SUB\\\n\
\\fDetailsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC26\n\
\\ENQvalue\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy RecordMarkerCommandAttributes -> ByteString
packedFileDescriptor Proxy RecordMarkerCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor RecordMarkerCommandAttributes)
fieldsByTag
= let
markerName__field_descriptor :: FieldDescriptor RecordMarkerCommandAttributes
markerName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor RecordMarkerCommandAttributes Text
-> FieldDescriptor RecordMarkerCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"marker_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
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
Text
Text
-> FieldAccessor RecordMarkerCommandAttributes 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 @"markerName")) ::
Data.ProtoLens.FieldDescriptor RecordMarkerCommandAttributes
details__field_descriptor :: FieldDescriptor RecordMarkerCommandAttributes
details__field_descriptor
= String
-> FieldTypeDescriptor RecordMarkerCommandAttributes'DetailsEntry
-> FieldAccessor
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes'DetailsEntry
-> FieldDescriptor RecordMarkerCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"details"
(MessageOrGroup
-> FieldTypeDescriptor RecordMarkerCommandAttributes'DetailsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor RecordMarkerCommandAttributes'DetailsEntry)
(Lens' RecordMarkerCommandAttributes'DetailsEntry Text
-> Lens' RecordMarkerCommandAttributes'DetailsEntry Payloads
-> Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Map Text Payloads)
(Map Text Payloads)
-> FieldAccessor
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes'DetailsEntry
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 @"details")) ::
Data.ProtoLens.FieldDescriptor RecordMarkerCommandAttributes
header__field_descriptor :: FieldDescriptor RecordMarkerCommandAttributes
header__field_descriptor
= String
-> FieldTypeDescriptor Header
-> FieldAccessor RecordMarkerCommandAttributes Header
-> FieldDescriptor RecordMarkerCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"header"
(MessageOrGroup -> FieldTypeDescriptor Header
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header)
(Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Header)
(Maybe Header)
-> FieldAccessor RecordMarkerCommandAttributes Header
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'header")) ::
Data.ProtoLens.FieldDescriptor RecordMarkerCommandAttributes
failure__field_descriptor :: FieldDescriptor RecordMarkerCommandAttributes
failure__field_descriptor
= String
-> FieldTypeDescriptor Failure
-> FieldAccessor RecordMarkerCommandAttributes Failure
-> FieldDescriptor RecordMarkerCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"failure"
(MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
(Lens
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Failure)
(Maybe Failure)
-> FieldAccessor RecordMarkerCommandAttributes Failure
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'failure")) ::
Data.ProtoLens.FieldDescriptor RecordMarkerCommandAttributes
in
[(Tag, FieldDescriptor RecordMarkerCommandAttributes)]
-> Map Tag (FieldDescriptor RecordMarkerCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RecordMarkerCommandAttributes
markerName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RecordMarkerCommandAttributes
details__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor RecordMarkerCommandAttributes
header__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor RecordMarkerCommandAttributes
failure__field_descriptor)]
unknownFields :: Lens' RecordMarkerCommandAttributes FieldSet
unknownFields
= (RecordMarkerCommandAttributes -> FieldSet)
-> (RecordMarkerCommandAttributes
-> FieldSet -> RecordMarkerCommandAttributes)
-> Lens' RecordMarkerCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes -> FieldSet
_RecordMarkerCommandAttributes'_unknownFields
(\ RecordMarkerCommandAttributes
x__ FieldSet
y__
-> RecordMarkerCommandAttributes
x__ {_RecordMarkerCommandAttributes'_unknownFields = y__})
defMessage :: RecordMarkerCommandAttributes
defMessage
= RecordMarkerCommandAttributes'_constructor
{_RecordMarkerCommandAttributes'markerName :: Text
_RecordMarkerCommandAttributes'markerName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RecordMarkerCommandAttributes'details :: Map Text Payloads
_RecordMarkerCommandAttributes'details = Map Text Payloads
forall k a. Map k a
Data.Map.empty,
_RecordMarkerCommandAttributes'header :: Maybe Header
_RecordMarkerCommandAttributes'header = Maybe Header
forall a. Maybe a
Prelude.Nothing,
_RecordMarkerCommandAttributes'failure :: Maybe Failure
_RecordMarkerCommandAttributes'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
_RecordMarkerCommandAttributes'_unknownFields :: FieldSet
_RecordMarkerCommandAttributes'_unknownFields = []}
parseMessage :: Parser RecordMarkerCommandAttributes
parseMessage
= let
loop ::
RecordMarkerCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser RecordMarkerCommandAttributes
loop :: RecordMarkerCommandAttributes
-> Parser RecordMarkerCommandAttributes
loop RecordMarkerCommandAttributes
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
"marker_name"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"markerName") y x)
Word64
18
-> do !(entry :: RecordMarkerCommandAttributes'DetailsEntry) <- Parser RecordMarkerCommandAttributes'DetailsEntry
-> String -> Parser RecordMarkerCommandAttributes'DetailsEntry
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
"details"
(let
key = FoldLike
Text
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
Text
Text
-> RecordMarkerCommandAttributes'DetailsEntry -> 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") RecordMarkerCommandAttributes'DetailsEntry
entry
value
= FoldLike
Payloads
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
Payloads
Payloads
-> RecordMarkerCommandAttributes'DetailsEntry -> Payloads
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") RecordMarkerCommandAttributes'DetailsEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"details")
(\ !Map Text Payloads
t -> Text -> Payloads -> Map Text Payloads -> Map Text Payloads
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Payloads
value Map Text Payloads
t) x))
Word64
26
-> do y <- Parser Header -> String -> Parser Header
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"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
Word64
34
-> do y <- Parser Failure -> String -> Parser Failure
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
"failure"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") 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 RecordMarkerCommandAttributes
-> String -> Parser RecordMarkerCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RecordMarkerCommandAttributes
-> Parser RecordMarkerCommandAttributes
loop RecordMarkerCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RecordMarkerCommandAttributes"
buildMessage :: RecordMarkerCommandAttributes -> Builder
buildMessage
= \ RecordMarkerCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
Text
Text
-> RecordMarkerCommandAttributes -> 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 @"markerName") RecordMarkerCommandAttributes
_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, Payloads) -> Builder) -> [(Text, Payloads)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ (Text, Payloads)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (RecordMarkerCommandAttributes'DetailsEntry -> ByteString)
-> RecordMarkerCommandAttributes'DetailsEntry
-> 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))
RecordMarkerCommandAttributes'DetailsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
Text
Text
-> Text
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
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, Payloads) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Payloads)
_v)
(Setter
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
Payloads
Payloads
-> Payloads
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
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, Payloads) -> Payloads
forall a b. (a, b) -> b
Prelude.snd (Text, Payloads)
_v)
(RecordMarkerCommandAttributes'DetailsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
RecordMarkerCommandAttributes'DetailsEntry)))))
(Map Text Payloads -> [(Text, Payloads)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Payloads)
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Map Text Payloads)
(Map Text Payloads)
-> RecordMarkerCommandAttributes -> Map Text Payloads
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 @"details") RecordMarkerCommandAttributes
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Header)
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Header)
(Maybe Header)
-> RecordMarkerCommandAttributes -> Maybe Header
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'header") RecordMarkerCommandAttributes
_x
of
Maybe Header
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Header
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (Header -> ByteString) -> Header -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Header
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Failure)
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
(Maybe Failure)
(Maybe Failure)
-> RecordMarkerCommandAttributes -> Maybe Failure
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'failure") RecordMarkerCommandAttributes
_x
of
Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Failure
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> 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))
Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
FieldSet
FieldSet
-> RecordMarkerCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RecordMarkerCommandAttributes
RecordMarkerCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RecordMarkerCommandAttributes FieldSet
Data.ProtoLens.unknownFields RecordMarkerCommandAttributes
_x)))))
instance Control.DeepSeq.NFData RecordMarkerCommandAttributes where
rnf :: RecordMarkerCommandAttributes -> ()
rnf
= \ RecordMarkerCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes -> FieldSet
_RecordMarkerCommandAttributes'_unknownFields RecordMarkerCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes -> Text
_RecordMarkerCommandAttributes'markerName RecordMarkerCommandAttributes
x__)
(Map Text Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes -> Map Text Payloads
_RecordMarkerCommandAttributes'details RecordMarkerCommandAttributes
x__)
(Maybe Header -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes -> Maybe Header
_RecordMarkerCommandAttributes'header RecordMarkerCommandAttributes
x__)
(Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes -> Maybe Failure
_RecordMarkerCommandAttributes'failure RecordMarkerCommandAttributes
x__) ()))))
data RecordMarkerCommandAttributes'DetailsEntry
= RecordMarkerCommandAttributes'DetailsEntry'_constructor {RecordMarkerCommandAttributes'DetailsEntry -> Text
_RecordMarkerCommandAttributes'DetailsEntry'key :: !Data.Text.Text,
RecordMarkerCommandAttributes'DetailsEntry -> Maybe Payloads
_RecordMarkerCommandAttributes'DetailsEntry'value :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
RecordMarkerCommandAttributes'DetailsEntry -> FieldSet
_RecordMarkerCommandAttributes'DetailsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
(RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool)
-> Eq RecordMarkerCommandAttributes'DetailsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
== :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
$c/= :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
/= :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
Prelude.Eq, Eq RecordMarkerCommandAttributes'DetailsEntry
Eq RecordMarkerCommandAttributes'DetailsEntry =>
(RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Ordering)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry)
-> Ord RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Ordering
RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
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 :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Ordering
compare :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Ordering
$c< :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
< :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
$c<= :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
<= :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
$c> :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
> :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
$c>= :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
>= :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry -> Bool
$cmax :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
max :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
$cmin :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
min :: RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
-> RecordMarkerCommandAttributes'DetailsEntry
Prelude.Ord)
instance Prelude.Show RecordMarkerCommandAttributes'DetailsEntry where
showsPrec :: Int -> RecordMarkerCommandAttributes'DetailsEntry -> ShowS
showsPrec Int
_ RecordMarkerCommandAttributes'DetailsEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(RecordMarkerCommandAttributes'DetailsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RecordMarkerCommandAttributes'DetailsEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes'DetailsEntry "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry
fieldOf Proxy# "key"
_
= ((Text -> f Text)
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes'DetailsEntry -> Text)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> Text -> RecordMarkerCommandAttributes'DetailsEntry)
-> Lens' RecordMarkerCommandAttributes'DetailsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes'DetailsEntry -> Text
_RecordMarkerCommandAttributes'DetailsEntry'key
(\ RecordMarkerCommandAttributes'DetailsEntry
x__ Text
y__
-> RecordMarkerCommandAttributes'DetailsEntry
x__ {_RecordMarkerCommandAttributes'DetailsEntry'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes'DetailsEntry "value" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Payloads -> f Payloads)
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry
fieldOf Proxy# "value"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes'DetailsEntry -> Maybe Payloads)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> Maybe Payloads -> RecordMarkerCommandAttributes'DetailsEntry)
-> Lens
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes'DetailsEntry -> Maybe Payloads
_RecordMarkerCommandAttributes'DetailsEntry'value
(\ RecordMarkerCommandAttributes'DetailsEntry
x__ Maybe Payloads
y__
-> RecordMarkerCommandAttributes'DetailsEntry
x__ {_RecordMarkerCommandAttributes'DetailsEntry'value = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RecordMarkerCommandAttributes'DetailsEntry "maybe'value" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Payloads -> f (Maybe Payloads))
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry
fieldOf Proxy# "maybe'value"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> RecordMarkerCommandAttributes'DetailsEntry
-> f RecordMarkerCommandAttributes'DetailsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RecordMarkerCommandAttributes'DetailsEntry -> Maybe Payloads)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> Maybe Payloads -> RecordMarkerCommandAttributes'DetailsEntry)
-> Lens
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes'DetailsEntry -> Maybe Payloads
_RecordMarkerCommandAttributes'DetailsEntry'value
(\ RecordMarkerCommandAttributes'DetailsEntry
x__ Maybe Payloads
y__
-> RecordMarkerCommandAttributes'DetailsEntry
x__ {_RecordMarkerCommandAttributes'DetailsEntry'value = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RecordMarkerCommandAttributes'DetailsEntry where
messageName :: Proxy RecordMarkerCommandAttributes'DetailsEntry -> Text
messageName Proxy RecordMarkerCommandAttributes'DetailsEntry
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.RecordMarkerCommandAttributes.DetailsEntry"
packedMessageDescriptor :: Proxy RecordMarkerCommandAttributes'DetailsEntry -> ByteString
packedMessageDescriptor Proxy RecordMarkerCommandAttributes'DetailsEntry
_
= ByteString
"\n\
\\fDetailsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC26\n\
\\ENQvalue\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy RecordMarkerCommandAttributes'DetailsEntry -> ByteString
packedFileDescriptor Proxy RecordMarkerCommandAttributes'DetailsEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor RecordMarkerCommandAttributes'DetailsEntry Text
-> FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry
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' RecordMarkerCommandAttributes'DetailsEntry Text
-> FieldAccessor RecordMarkerCommandAttributes'DetailsEntry 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 RecordMarkerCommandAttributes'DetailsEntry
value__field_descriptor :: FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor
RecordMarkerCommandAttributes'DetailsEntry Payloads
-> FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"value"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor
RecordMarkerCommandAttributes'DetailsEntry Payloads
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 RecordMarkerCommandAttributes'DetailsEntry
in
[(Tag, FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry)]
-> Map
Tag (FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RecordMarkerCommandAttributes'DetailsEntry
value__field_descriptor)]
unknownFields :: Lens' RecordMarkerCommandAttributes'DetailsEntry FieldSet
unknownFields
= (RecordMarkerCommandAttributes'DetailsEntry -> FieldSet)
-> (RecordMarkerCommandAttributes'DetailsEntry
-> FieldSet -> RecordMarkerCommandAttributes'DetailsEntry)
-> Lens' RecordMarkerCommandAttributes'DetailsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RecordMarkerCommandAttributes'DetailsEntry -> FieldSet
_RecordMarkerCommandAttributes'DetailsEntry'_unknownFields
(\ RecordMarkerCommandAttributes'DetailsEntry
x__ FieldSet
y__
-> RecordMarkerCommandAttributes'DetailsEntry
x__
{_RecordMarkerCommandAttributes'DetailsEntry'_unknownFields = y__})
defMessage :: RecordMarkerCommandAttributes'DetailsEntry
defMessage
= RecordMarkerCommandAttributes'DetailsEntry'_constructor
{_RecordMarkerCommandAttributes'DetailsEntry'key :: Text
_RecordMarkerCommandAttributes'DetailsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RecordMarkerCommandAttributes'DetailsEntry'value :: Maybe Payloads
_RecordMarkerCommandAttributes'DetailsEntry'value = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_RecordMarkerCommandAttributes'DetailsEntry'_unknownFields :: FieldSet
_RecordMarkerCommandAttributes'DetailsEntry'_unknownFields = []}
parseMessage :: Parser RecordMarkerCommandAttributes'DetailsEntry
parseMessage
= let
loop ::
RecordMarkerCommandAttributes'DetailsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser RecordMarkerCommandAttributes'DetailsEntry
loop :: RecordMarkerCommandAttributes'DetailsEntry
-> Parser RecordMarkerCommandAttributes'DetailsEntry
loop RecordMarkerCommandAttributes'DetailsEntry
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 Payloads -> String -> Parser Payloads
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 RecordMarkerCommandAttributes'DetailsEntry
-> String -> Parser RecordMarkerCommandAttributes'DetailsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RecordMarkerCommandAttributes'DetailsEntry
-> Parser RecordMarkerCommandAttributes'DetailsEntry
loop RecordMarkerCommandAttributes'DetailsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DetailsEntry"
buildMessage :: RecordMarkerCommandAttributes'DetailsEntry -> Builder
buildMessage
= \ RecordMarkerCommandAttributes'DetailsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
Text
Text
-> RecordMarkerCommandAttributes'DetailsEntry -> 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") RecordMarkerCommandAttributes'DetailsEntry
_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 Payloads)
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
(Maybe Payloads)
(Maybe Payloads)
-> RecordMarkerCommandAttributes'DetailsEntry -> Maybe Payloads
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") RecordMarkerCommandAttributes'DetailsEntry
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
FieldSet
FieldSet
-> RecordMarkerCommandAttributes'DetailsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RecordMarkerCommandAttributes'DetailsEntry
RecordMarkerCommandAttributes'DetailsEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RecordMarkerCommandAttributes'DetailsEntry FieldSet
Data.ProtoLens.unknownFields RecordMarkerCommandAttributes'DetailsEntry
_x)))
instance Control.DeepSeq.NFData RecordMarkerCommandAttributes'DetailsEntry where
rnf :: RecordMarkerCommandAttributes'DetailsEntry -> ()
rnf
= \ RecordMarkerCommandAttributes'DetailsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes'DetailsEntry -> FieldSet
_RecordMarkerCommandAttributes'DetailsEntry'_unknownFields RecordMarkerCommandAttributes'DetailsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes'DetailsEntry -> Text
_RecordMarkerCommandAttributes'DetailsEntry'key RecordMarkerCommandAttributes'DetailsEntry
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RecordMarkerCommandAttributes'DetailsEntry -> Maybe Payloads
_RecordMarkerCommandAttributes'DetailsEntry'value RecordMarkerCommandAttributes'DetailsEntry
x__) ()))
data RequestCancelActivityTaskCommandAttributes
= RequestCancelActivityTaskCommandAttributes'_constructor {RequestCancelActivityTaskCommandAttributes -> Int64
_RequestCancelActivityTaskCommandAttributes'scheduledEventId :: !Data.Int.Int64,
RequestCancelActivityTaskCommandAttributes -> FieldSet
_RequestCancelActivityTaskCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
(RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool)
-> (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool)
-> Eq RequestCancelActivityTaskCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
== :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
$c/= :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
/= :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
Prelude.Eq, Eq RequestCancelActivityTaskCommandAttributes
Eq RequestCancelActivityTaskCommandAttributes =>
(RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Ordering)
-> (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool)
-> (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool)
-> (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool)
-> (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool)
-> (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes)
-> (RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes)
-> Ord RequestCancelActivityTaskCommandAttributes
RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Ordering
RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
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 :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Ordering
compare :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Ordering
$c< :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
< :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
$c<= :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
<= :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
$c> :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
> :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
$c>= :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
>= :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes -> Bool
$cmax :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
max :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
$cmin :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
min :: RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
-> RequestCancelActivityTaskCommandAttributes
Prelude.Ord)
instance Prelude.Show RequestCancelActivityTaskCommandAttributes where
showsPrec :: Int -> RequestCancelActivityTaskCommandAttributes -> ShowS
showsPrec Int
_ RequestCancelActivityTaskCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(RequestCancelActivityTaskCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RequestCancelActivityTaskCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RequestCancelActivityTaskCommandAttributes "scheduledEventId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduledEventId"
-> (Int64 -> f Int64)
-> RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes
fieldOf Proxy# "scheduledEventId"
_
= ((Int64 -> f Int64)
-> RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RequestCancelActivityTaskCommandAttributes
-> f RequestCancelActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelActivityTaskCommandAttributes -> Int64)
-> (RequestCancelActivityTaskCommandAttributes
-> Int64 -> RequestCancelActivityTaskCommandAttributes)
-> Lens
RequestCancelActivityTaskCommandAttributes
RequestCancelActivityTaskCommandAttributes
Int64
Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelActivityTaskCommandAttributes -> Int64
_RequestCancelActivityTaskCommandAttributes'scheduledEventId
(\ RequestCancelActivityTaskCommandAttributes
x__ Int64
y__
-> RequestCancelActivityTaskCommandAttributes
x__
{_RequestCancelActivityTaskCommandAttributes'scheduledEventId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RequestCancelActivityTaskCommandAttributes where
messageName :: Proxy RequestCancelActivityTaskCommandAttributes -> Text
messageName Proxy RequestCancelActivityTaskCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.RequestCancelActivityTaskCommandAttributes"
packedMessageDescriptor :: Proxy RequestCancelActivityTaskCommandAttributes -> ByteString
packedMessageDescriptor Proxy RequestCancelActivityTaskCommandAttributes
_
= ByteString
"\n\
\*RequestCancelActivityTaskCommandAttributes\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId"
packedFileDescriptor :: Proxy RequestCancelActivityTaskCommandAttributes -> ByteString
packedFileDescriptor Proxy RequestCancelActivityTaskCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor RequestCancelActivityTaskCommandAttributes)
fieldsByTag
= let
scheduledEventId__field_descriptor :: FieldDescriptor RequestCancelActivityTaskCommandAttributes
scheduledEventId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor RequestCancelActivityTaskCommandAttributes Int64
-> FieldDescriptor RequestCancelActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"scheduled_event_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)
(WireDefault Int64
-> Lens
RequestCancelActivityTaskCommandAttributes
RequestCancelActivityTaskCommandAttributes
Int64
Int64
-> FieldAccessor RequestCancelActivityTaskCommandAttributes Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
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 @"scheduledEventId")) ::
Data.ProtoLens.FieldDescriptor RequestCancelActivityTaskCommandAttributes
in
[(Tag, FieldDescriptor RequestCancelActivityTaskCommandAttributes)]
-> Map
Tag (FieldDescriptor RequestCancelActivityTaskCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RequestCancelActivityTaskCommandAttributes
scheduledEventId__field_descriptor)]
unknownFields :: Lens' RequestCancelActivityTaskCommandAttributes FieldSet
unknownFields
= (RequestCancelActivityTaskCommandAttributes -> FieldSet)
-> (RequestCancelActivityTaskCommandAttributes
-> FieldSet -> RequestCancelActivityTaskCommandAttributes)
-> Lens' RequestCancelActivityTaskCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelActivityTaskCommandAttributes -> FieldSet
_RequestCancelActivityTaskCommandAttributes'_unknownFields
(\ RequestCancelActivityTaskCommandAttributes
x__ FieldSet
y__
-> RequestCancelActivityTaskCommandAttributes
x__
{_RequestCancelActivityTaskCommandAttributes'_unknownFields = y__})
defMessage :: RequestCancelActivityTaskCommandAttributes
defMessage
= RequestCancelActivityTaskCommandAttributes'_constructor
{_RequestCancelActivityTaskCommandAttributes'scheduledEventId :: Int64
_RequestCancelActivityTaskCommandAttributes'scheduledEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelActivityTaskCommandAttributes'_unknownFields :: FieldSet
_RequestCancelActivityTaskCommandAttributes'_unknownFields = []}
parseMessage :: Parser RequestCancelActivityTaskCommandAttributes
parseMessage
= let
loop ::
RequestCancelActivityTaskCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser RequestCancelActivityTaskCommandAttributes
loop :: RequestCancelActivityTaskCommandAttributes
-> Parser RequestCancelActivityTaskCommandAttributes
loop RequestCancelActivityTaskCommandAttributes
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 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
"scheduled_event_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduledEventId") 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 RequestCancelActivityTaskCommandAttributes
-> String -> Parser RequestCancelActivityTaskCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RequestCancelActivityTaskCommandAttributes
-> Parser RequestCancelActivityTaskCommandAttributes
loop RequestCancelActivityTaskCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"RequestCancelActivityTaskCommandAttributes"
buildMessage :: RequestCancelActivityTaskCommandAttributes -> Builder
buildMessage
= \ RequestCancelActivityTaskCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64
RequestCancelActivityTaskCommandAttributes
RequestCancelActivityTaskCommandAttributes
Int64
Int64
-> RequestCancelActivityTaskCommandAttributes -> Int64
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 @"scheduledEventId") RequestCancelActivityTaskCommandAttributes
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word64 -> Builder) -> (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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
RequestCancelActivityTaskCommandAttributes
RequestCancelActivityTaskCommandAttributes
FieldSet
FieldSet
-> RequestCancelActivityTaskCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RequestCancelActivityTaskCommandAttributes
RequestCancelActivityTaskCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RequestCancelActivityTaskCommandAttributes FieldSet
Data.ProtoLens.unknownFields RequestCancelActivityTaskCommandAttributes
_x))
instance Control.DeepSeq.NFData RequestCancelActivityTaskCommandAttributes where
rnf :: RequestCancelActivityTaskCommandAttributes -> ()
rnf
= \ RequestCancelActivityTaskCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelActivityTaskCommandAttributes -> FieldSet
_RequestCancelActivityTaskCommandAttributes'_unknownFields RequestCancelActivityTaskCommandAttributes
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelActivityTaskCommandAttributes -> Int64
_RequestCancelActivityTaskCommandAttributes'scheduledEventId RequestCancelActivityTaskCommandAttributes
x__)
())
data RequestCancelExternalWorkflowExecutionCommandAttributes
= RequestCancelExternalWorkflowExecutionCommandAttributes'_constructor {RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'namespace :: !Data.Text.Text,
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'workflowId :: !Data.Text.Text,
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'runId :: !Data.Text.Text,
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'control :: !Data.Text.Text,
RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
_RequestCancelExternalWorkflowExecutionCommandAttributes'childWorkflowOnly :: !Prelude.Bool,
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'reason :: !Data.Text.Text,
RequestCancelExternalWorkflowExecutionCommandAttributes -> FieldSet
_RequestCancelExternalWorkflowExecutionCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
(RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool)
-> Eq RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
== :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
$c/= :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
/= :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
Prelude.Eq, Eq RequestCancelExternalWorkflowExecutionCommandAttributes
Eq RequestCancelExternalWorkflowExecutionCommandAttributes =>
(RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> Ordering)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Ord RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> Ordering
RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
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 :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> Ordering
compare :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> Ordering
$c< :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
< :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
$c<= :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
<= :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
$c> :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
> :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
$c>= :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
>= :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
$cmax :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
max :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
$cmin :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
min :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> RequestCancelExternalWorkflowExecutionCommandAttributes
Prelude.Ord)
instance Prelude.Show RequestCancelExternalWorkflowExecutionCommandAttributes where
showsPrec :: Int
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> ShowS
showsPrec Int
_ RequestCancelExternalWorkflowExecutionCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(RequestCancelExternalWorkflowExecutionCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RequestCancelExternalWorkflowExecutionCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RequestCancelExternalWorkflowExecutionCommandAttributes "namespace" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "namespace"
_
= ((Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelExternalWorkflowExecutionCommandAttributes -> Text)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Text -> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Lens
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'namespace
(\ RequestCancelExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> RequestCancelExternalWorkflowExecutionCommandAttributes
x__
{_RequestCancelExternalWorkflowExecutionCommandAttributes'namespace = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RequestCancelExternalWorkflowExecutionCommandAttributes "workflowId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowId"
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowId"
_
= ((Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelExternalWorkflowExecutionCommandAttributes -> Text)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Text -> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Lens
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'workflowId
(\ RequestCancelExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> RequestCancelExternalWorkflowExecutionCommandAttributes
x__
{_RequestCancelExternalWorkflowExecutionCommandAttributes'workflowId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RequestCancelExternalWorkflowExecutionCommandAttributes "runId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "runId"
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "runId"
_
= ((Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelExternalWorkflowExecutionCommandAttributes -> Text)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Text -> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Lens
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'runId
(\ RequestCancelExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> RequestCancelExternalWorkflowExecutionCommandAttributes
x__
{_RequestCancelExternalWorkflowExecutionCommandAttributes'runId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RequestCancelExternalWorkflowExecutionCommandAttributes "control" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "control"
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "control"
_
= ((Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelExternalWorkflowExecutionCommandAttributes -> Text)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Text -> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Lens
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'control
(\ RequestCancelExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> RequestCancelExternalWorkflowExecutionCommandAttributes
x__
{_RequestCancelExternalWorkflowExecutionCommandAttributes'control = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RequestCancelExternalWorkflowExecutionCommandAttributes "childWorkflowOnly" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "childWorkflowOnly"
-> (Bool -> f Bool)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "childWorkflowOnly"
_
= ((Bool -> f Bool)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Bool -> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Lens
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
_RequestCancelExternalWorkflowExecutionCommandAttributes'childWorkflowOnly
(\ RequestCancelExternalWorkflowExecutionCommandAttributes
x__ Bool
y__
-> RequestCancelExternalWorkflowExecutionCommandAttributes
x__
{_RequestCancelExternalWorkflowExecutionCommandAttributes'childWorkflowOnly = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RequestCancelExternalWorkflowExecutionCommandAttributes "reason" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reason"
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "reason"
_
= ((Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> f RequestCancelExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelExternalWorkflowExecutionCommandAttributes -> Text)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> Text -> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Lens
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'reason
(\ RequestCancelExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> RequestCancelExternalWorkflowExecutionCommandAttributes
x__
{_RequestCancelExternalWorkflowExecutionCommandAttributes'reason = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RequestCancelExternalWorkflowExecutionCommandAttributes where
messageName :: Proxy RequestCancelExternalWorkflowExecutionCommandAttributes
-> Text
messageName Proxy RequestCancelExternalWorkflowExecutionCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.RequestCancelExternalWorkflowExecutionCommandAttributes"
packedMessageDescriptor :: Proxy RequestCancelExternalWorkflowExecutionCommandAttributes
-> ByteString
packedMessageDescriptor Proxy RequestCancelExternalWorkflowExecutionCommandAttributes
_
= ByteString
"\n\
\7RequestCancelExternalWorkflowExecutionCommandAttributes\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\US\n\
\\vworkflow_id\CAN\STX \SOH(\tR\n\
\workflowId\DC2\NAK\n\
\\ACKrun_id\CAN\ETX \SOH(\tR\ENQrunId\DC2\CAN\n\
\\acontrol\CAN\EOT \SOH(\tR\acontrol\DC2.\n\
\\DC3child_workflow_only\CAN\ENQ \SOH(\bR\DC1childWorkflowOnly\DC2\SYN\n\
\\ACKreason\CAN\ACK \SOH(\tR\ACKreason"
packedFileDescriptor :: Proxy RequestCancelExternalWorkflowExecutionCommandAttributes
-> ByteString
packedFileDescriptor Proxy RequestCancelExternalWorkflowExecutionCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes)
fieldsByTag
= let
namespace__field_descriptor :: FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
namespace__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"namespace"
(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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes 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 @"namespace")) ::
Data.ProtoLens.FieldDescriptor RequestCancelExternalWorkflowExecutionCommandAttributes
workflowId__field_descriptor :: FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
workflowId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes 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 RequestCancelExternalWorkflowExecutionCommandAttributes
runId__field_descriptor :: FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
runId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes 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 RequestCancelExternalWorkflowExecutionCommandAttributes
control__field_descriptor :: FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
control__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"control"
(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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes 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 @"control")) ::
Data.ProtoLens.FieldDescriptor RequestCancelExternalWorkflowExecutionCommandAttributes
childWorkflowOnly__field_descriptor :: FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
childWorkflowOnly__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes Bool
-> FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"child_workflow_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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Bool
Bool
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes 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 @"childWorkflowOnly")) ::
Data.ProtoLens.FieldDescriptor RequestCancelExternalWorkflowExecutionCommandAttributes
reason__field_descriptor :: FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
reason__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"reason"
(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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
RequestCancelExternalWorkflowExecutionCommandAttributes 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 @"reason")) ::
Data.ProtoLens.FieldDescriptor RequestCancelExternalWorkflowExecutionCommandAttributes
in
[(Tag,
FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes)]
-> Map
Tag
(FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
namespace__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
workflowId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
runId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
control__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
childWorkflowOnly__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor
RequestCancelExternalWorkflowExecutionCommandAttributes
reason__field_descriptor)]
unknownFields :: Lens'
RequestCancelExternalWorkflowExecutionCommandAttributes FieldSet
unknownFields
= (RequestCancelExternalWorkflowExecutionCommandAttributes
-> FieldSet)
-> (RequestCancelExternalWorkflowExecutionCommandAttributes
-> FieldSet
-> RequestCancelExternalWorkflowExecutionCommandAttributes)
-> Lens'
RequestCancelExternalWorkflowExecutionCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelExternalWorkflowExecutionCommandAttributes -> FieldSet
_RequestCancelExternalWorkflowExecutionCommandAttributes'_unknownFields
(\ RequestCancelExternalWorkflowExecutionCommandAttributes
x__ FieldSet
y__
-> RequestCancelExternalWorkflowExecutionCommandAttributes
x__
{_RequestCancelExternalWorkflowExecutionCommandAttributes'_unknownFields = y__})
defMessage :: RequestCancelExternalWorkflowExecutionCommandAttributes
defMessage
= RequestCancelExternalWorkflowExecutionCommandAttributes'_constructor
{_RequestCancelExternalWorkflowExecutionCommandAttributes'namespace :: Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelExternalWorkflowExecutionCommandAttributes'workflowId :: Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'workflowId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelExternalWorkflowExecutionCommandAttributes'runId :: Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'runId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelExternalWorkflowExecutionCommandAttributes'control :: Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'control = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelExternalWorkflowExecutionCommandAttributes'childWorkflowOnly :: Bool
_RequestCancelExternalWorkflowExecutionCommandAttributes'childWorkflowOnly = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelExternalWorkflowExecutionCommandAttributes'reason :: Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'reason = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelExternalWorkflowExecutionCommandAttributes'_unknownFields :: FieldSet
_RequestCancelExternalWorkflowExecutionCommandAttributes'_unknownFields = []}
parseMessage :: Parser RequestCancelExternalWorkflowExecutionCommandAttributes
parseMessage
= let
loop ::
RequestCancelExternalWorkflowExecutionCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser RequestCancelExternalWorkflowExecutionCommandAttributes
loop :: RequestCancelExternalWorkflowExecutionCommandAttributes
-> Parser RequestCancelExternalWorkflowExecutionCommandAttributes
loop RequestCancelExternalWorkflowExecutionCommandAttributes
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
"namespace"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"namespace") 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
"workflow_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"workflowId") y x)
Word64
26
-> 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
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
"control"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"control") y x)
Word64
40
-> 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
"child_workflow_only"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"childWorkflowOnly") y x)
Word64
50
-> 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
"reason"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"reason") 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 RequestCancelExternalWorkflowExecutionCommandAttributes
-> String
-> Parser RequestCancelExternalWorkflowExecutionCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RequestCancelExternalWorkflowExecutionCommandAttributes
-> Parser RequestCancelExternalWorkflowExecutionCommandAttributes
loop RequestCancelExternalWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"RequestCancelExternalWorkflowExecutionCommandAttributes"
buildMessage :: RequestCancelExternalWorkflowExecutionCommandAttributes -> Builder
buildMessage
= \ RequestCancelExternalWorkflowExecutionCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> 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 @"namespace") RequestCancelExternalWorkflowExecutionCommandAttributes
_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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> 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") RequestCancelExternalWorkflowExecutionCommandAttributes
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> 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") RequestCancelExternalWorkflowExecutionCommandAttributes
_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
26)
((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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> 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 @"control") RequestCancelExternalWorkflowExecutionCommandAttributes
_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
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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Bool
Bool
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> 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 @"childWorkflowOnly") RequestCancelExternalWorkflowExecutionCommandAttributes
_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
40)
((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
_v :: Text
_v = FoldLike
Text
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
Text
Text
-> RequestCancelExternalWorkflowExecutionCommandAttributes -> 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 @"reason") RequestCancelExternalWorkflowExecutionCommandAttributes
_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
50)
((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
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
FieldSet
FieldSet
-> RequestCancelExternalWorkflowExecutionCommandAttributes
-> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RequestCancelExternalWorkflowExecutionCommandAttributes
RequestCancelExternalWorkflowExecutionCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens'
RequestCancelExternalWorkflowExecutionCommandAttributes FieldSet
Data.ProtoLens.unknownFields RequestCancelExternalWorkflowExecutionCommandAttributes
_x)))))))
instance Control.DeepSeq.NFData RequestCancelExternalWorkflowExecutionCommandAttributes where
rnf :: RequestCancelExternalWorkflowExecutionCommandAttributes -> ()
rnf
= \ RequestCancelExternalWorkflowExecutionCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelExternalWorkflowExecutionCommandAttributes -> FieldSet
_RequestCancelExternalWorkflowExecutionCommandAttributes'_unknownFields
RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'namespace
RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'workflowId
RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'runId
RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'control
RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelExternalWorkflowExecutionCommandAttributes -> Bool
_RequestCancelExternalWorkflowExecutionCommandAttributes'childWorkflowOnly
RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelExternalWorkflowExecutionCommandAttributes -> Text
_RequestCancelExternalWorkflowExecutionCommandAttributes'reason
RequestCancelExternalWorkflowExecutionCommandAttributes
x__)
()))))))
data RequestCancelNexusOperationCommandAttributes
= RequestCancelNexusOperationCommandAttributes'_constructor {RequestCancelNexusOperationCommandAttributes -> Int64
_RequestCancelNexusOperationCommandAttributes'scheduledEventId :: !Data.Int.Int64,
RequestCancelNexusOperationCommandAttributes -> FieldSet
_RequestCancelNexusOperationCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
(RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool)
-> (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool)
-> Eq RequestCancelNexusOperationCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
== :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
$c/= :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
/= :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
Prelude.Eq, Eq RequestCancelNexusOperationCommandAttributes
Eq RequestCancelNexusOperationCommandAttributes =>
(RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Ordering)
-> (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool)
-> (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool)
-> (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool)
-> (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool)
-> (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes)
-> (RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes)
-> Ord RequestCancelNexusOperationCommandAttributes
RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Ordering
RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
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 :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Ordering
compare :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Ordering
$c< :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
< :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
$c<= :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
<= :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
$c> :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
> :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
$c>= :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
>= :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes -> Bool
$cmax :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
max :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
$cmin :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
min :: RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
-> RequestCancelNexusOperationCommandAttributes
Prelude.Ord)
instance Prelude.Show RequestCancelNexusOperationCommandAttributes where
showsPrec :: Int -> RequestCancelNexusOperationCommandAttributes -> ShowS
showsPrec Int
_ RequestCancelNexusOperationCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(RequestCancelNexusOperationCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RequestCancelNexusOperationCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RequestCancelNexusOperationCommandAttributes "scheduledEventId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduledEventId"
-> (Int64 -> f Int64)
-> RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes
fieldOf Proxy# "scheduledEventId"
_
= ((Int64 -> f Int64)
-> RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RequestCancelNexusOperationCommandAttributes
-> f RequestCancelNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((RequestCancelNexusOperationCommandAttributes -> Int64)
-> (RequestCancelNexusOperationCommandAttributes
-> Int64 -> RequestCancelNexusOperationCommandAttributes)
-> Lens
RequestCancelNexusOperationCommandAttributes
RequestCancelNexusOperationCommandAttributes
Int64
Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelNexusOperationCommandAttributes -> Int64
_RequestCancelNexusOperationCommandAttributes'scheduledEventId
(\ RequestCancelNexusOperationCommandAttributes
x__ Int64
y__
-> RequestCancelNexusOperationCommandAttributes
x__
{_RequestCancelNexusOperationCommandAttributes'scheduledEventId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RequestCancelNexusOperationCommandAttributes where
messageName :: Proxy RequestCancelNexusOperationCommandAttributes -> Text
messageName Proxy RequestCancelNexusOperationCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.RequestCancelNexusOperationCommandAttributes"
packedMessageDescriptor :: Proxy RequestCancelNexusOperationCommandAttributes -> ByteString
packedMessageDescriptor Proxy RequestCancelNexusOperationCommandAttributes
_
= ByteString
"\n\
\,RequestCancelNexusOperationCommandAttributes\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId"
packedFileDescriptor :: Proxy RequestCancelNexusOperationCommandAttributes -> ByteString
packedFileDescriptor Proxy RequestCancelNexusOperationCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor RequestCancelNexusOperationCommandAttributes)
fieldsByTag
= let
scheduledEventId__field_descriptor :: FieldDescriptor RequestCancelNexusOperationCommandAttributes
scheduledEventId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor RequestCancelNexusOperationCommandAttributes Int64
-> FieldDescriptor RequestCancelNexusOperationCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"scheduled_event_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)
(WireDefault Int64
-> Lens
RequestCancelNexusOperationCommandAttributes
RequestCancelNexusOperationCommandAttributes
Int64
Int64
-> FieldAccessor RequestCancelNexusOperationCommandAttributes Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
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 @"scheduledEventId")) ::
Data.ProtoLens.FieldDescriptor RequestCancelNexusOperationCommandAttributes
in
[(Tag,
FieldDescriptor RequestCancelNexusOperationCommandAttributes)]
-> Map
Tag (FieldDescriptor RequestCancelNexusOperationCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RequestCancelNexusOperationCommandAttributes
scheduledEventId__field_descriptor)]
unknownFields :: Lens' RequestCancelNexusOperationCommandAttributes FieldSet
unknownFields
= (RequestCancelNexusOperationCommandAttributes -> FieldSet)
-> (RequestCancelNexusOperationCommandAttributes
-> FieldSet -> RequestCancelNexusOperationCommandAttributes)
-> Lens' RequestCancelNexusOperationCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
RequestCancelNexusOperationCommandAttributes -> FieldSet
_RequestCancelNexusOperationCommandAttributes'_unknownFields
(\ RequestCancelNexusOperationCommandAttributes
x__ FieldSet
y__
-> RequestCancelNexusOperationCommandAttributes
x__
{_RequestCancelNexusOperationCommandAttributes'_unknownFields = y__})
defMessage :: RequestCancelNexusOperationCommandAttributes
defMessage
= RequestCancelNexusOperationCommandAttributes'_constructor
{_RequestCancelNexusOperationCommandAttributes'scheduledEventId :: Int64
_RequestCancelNexusOperationCommandAttributes'scheduledEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_RequestCancelNexusOperationCommandAttributes'_unknownFields :: FieldSet
_RequestCancelNexusOperationCommandAttributes'_unknownFields = []}
parseMessage :: Parser RequestCancelNexusOperationCommandAttributes
parseMessage
= let
loop ::
RequestCancelNexusOperationCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser RequestCancelNexusOperationCommandAttributes
loop :: RequestCancelNexusOperationCommandAttributes
-> Parser RequestCancelNexusOperationCommandAttributes
loop RequestCancelNexusOperationCommandAttributes
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 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
"scheduled_event_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduledEventId") 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 RequestCancelNexusOperationCommandAttributes
-> String -> Parser RequestCancelNexusOperationCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do RequestCancelNexusOperationCommandAttributes
-> Parser RequestCancelNexusOperationCommandAttributes
loop RequestCancelNexusOperationCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"RequestCancelNexusOperationCommandAttributes"
buildMessage :: RequestCancelNexusOperationCommandAttributes -> Builder
buildMessage
= \ RequestCancelNexusOperationCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64
RequestCancelNexusOperationCommandAttributes
RequestCancelNexusOperationCommandAttributes
Int64
Int64
-> RequestCancelNexusOperationCommandAttributes -> Int64
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 @"scheduledEventId") RequestCancelNexusOperationCommandAttributes
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word64 -> Builder) -> (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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
RequestCancelNexusOperationCommandAttributes
RequestCancelNexusOperationCommandAttributes
FieldSet
FieldSet
-> RequestCancelNexusOperationCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
RequestCancelNexusOperationCommandAttributes
RequestCancelNexusOperationCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RequestCancelNexusOperationCommandAttributes FieldSet
Data.ProtoLens.unknownFields RequestCancelNexusOperationCommandAttributes
_x))
instance Control.DeepSeq.NFData RequestCancelNexusOperationCommandAttributes where
rnf :: RequestCancelNexusOperationCommandAttributes -> ()
rnf
= \ RequestCancelNexusOperationCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelNexusOperationCommandAttributes -> FieldSet
_RequestCancelNexusOperationCommandAttributes'_unknownFields RequestCancelNexusOperationCommandAttributes
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(RequestCancelNexusOperationCommandAttributes -> Int64
_RequestCancelNexusOperationCommandAttributes'scheduledEventId
RequestCancelNexusOperationCommandAttributes
x__)
())
data ScheduleActivityTaskCommandAttributes
= ScheduleActivityTaskCommandAttributes'_constructor {ScheduleActivityTaskCommandAttributes -> Text
_ScheduleActivityTaskCommandAttributes'activityId :: !Data.Text.Text,
ScheduleActivityTaskCommandAttributes -> Maybe ActivityType
_ScheduleActivityTaskCommandAttributes'activityType :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.ActivityType),
ScheduleActivityTaskCommandAttributes -> Maybe TaskQueue
_ScheduleActivityTaskCommandAttributes'taskQueue :: !(Prelude.Maybe Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue),
ScheduleActivityTaskCommandAttributes -> Maybe Header
_ScheduleActivityTaskCommandAttributes'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header),
ScheduleActivityTaskCommandAttributes -> Maybe Payloads
_ScheduleActivityTaskCommandAttributes'input :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'startToCloseTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'heartbeatTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ScheduleActivityTaskCommandAttributes -> Maybe RetryPolicy
_ScheduleActivityTaskCommandAttributes'retryPolicy :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy),
ScheduleActivityTaskCommandAttributes -> Bool
_ScheduleActivityTaskCommandAttributes'requestEagerExecution :: !Prelude.Bool,
ScheduleActivityTaskCommandAttributes -> Bool
_ScheduleActivityTaskCommandAttributes'useWorkflowBuildId :: !Prelude.Bool,
ScheduleActivityTaskCommandAttributes -> FieldSet
_ScheduleActivityTaskCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
(ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool)
-> (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool)
-> Eq ScheduleActivityTaskCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
== :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
$c/= :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
/= :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
Prelude.Eq, Eq ScheduleActivityTaskCommandAttributes
Eq ScheduleActivityTaskCommandAttributes =>
(ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Ordering)
-> (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool)
-> (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool)
-> (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool)
-> (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool)
-> (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes)
-> (ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes)
-> Ord ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Ordering
ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
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 :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Ordering
compare :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Ordering
$c< :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
< :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
$c<= :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
<= :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
$c> :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
> :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
$c>= :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
>= :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes -> Bool
$cmax :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
max :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
$cmin :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
min :: ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
-> ScheduleActivityTaskCommandAttributes
Prelude.Ord)
instance Prelude.Show ScheduleActivityTaskCommandAttributes where
showsPrec :: Int -> ScheduleActivityTaskCommandAttributes -> ShowS
showsPrec Int
_ ScheduleActivityTaskCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleActivityTaskCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleActivityTaskCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "activityId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activityId"
-> (Text -> f Text)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "activityId"
_
= ((Text -> f Text)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Text)
-> (ScheduleActivityTaskCommandAttributes
-> Text -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Text
_ScheduleActivityTaskCommandAttributes'activityId
(\ ScheduleActivityTaskCommandAttributes
x__ Text
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'activityId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "activityType" Proto.Temporal.Api.Common.V1.Message.ActivityType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activityType"
-> (ActivityType -> f ActivityType)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "activityType"
_
= ((Maybe ActivityType -> f (Maybe ActivityType))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((ActivityType -> f ActivityType)
-> Maybe ActivityType -> f (Maybe ActivityType))
-> (ActivityType -> f ActivityType)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe ActivityType)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe ActivityType -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe ActivityType)
(Maybe ActivityType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe ActivityType
_ScheduleActivityTaskCommandAttributes'activityType
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe ActivityType
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'activityType = y__}))
(ActivityType -> Lens' (Maybe ActivityType) ActivityType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ActivityType
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "maybe'activityType" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.ActivityType) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'activityType"
-> (Maybe ActivityType -> f (Maybe ActivityType))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'activityType"
_
= ((Maybe ActivityType -> f (Maybe ActivityType))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe ActivityType -> f (Maybe ActivityType))
-> Maybe ActivityType -> f (Maybe ActivityType))
-> (Maybe ActivityType -> f (Maybe ActivityType))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe ActivityType)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe ActivityType -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe ActivityType)
(Maybe ActivityType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe ActivityType
_ScheduleActivityTaskCommandAttributes'activityType
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe ActivityType
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'activityType = y__}))
(Maybe ActivityType -> f (Maybe ActivityType))
-> Maybe ActivityType -> f (Maybe ActivityType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "taskQueue" Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskQueue"
-> (TaskQueue -> f TaskQueue)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "taskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((TaskQueue -> f TaskQueue)
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (TaskQueue -> f TaskQueue)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe TaskQueue)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe TaskQueue -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe TaskQueue
_ScheduleActivityTaskCommandAttributes'taskQueue
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe TaskQueue
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'taskQueue = y__}))
(TaskQueue -> Lens' (Maybe TaskQueue) TaskQueue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaskQueue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "maybe'taskQueue" (Prelude.Maybe Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'taskQueue"
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'taskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe TaskQueue)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe TaskQueue -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe TaskQueue
_ScheduleActivityTaskCommandAttributes'taskQueue
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe TaskQueue
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'taskQueue = y__}))
(Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "header" Proto.Temporal.Api.Common.V1.Message.Header where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Header -> f Header)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "header"
_
= ((Maybe Header -> f (Maybe Header))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Header -> f Header) -> Maybe Header -> f (Maybe Header))
-> (Header -> f Header)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Header)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Header -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Header
_ScheduleActivityTaskCommandAttributes'header
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Header
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'header = y__}))
(Header -> Lens' (Maybe Header) Header
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe Header -> f (Maybe Header))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'header"
_
= ((Maybe Header -> f (Maybe Header))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header))
-> (Maybe Header -> f (Maybe Header))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Header)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Header -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Header
_ScheduleActivityTaskCommandAttributes'header
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Header
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'header = y__}))
(Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "input" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "input"
-> (Payloads -> f Payloads)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Payloads)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Payloads -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Payloads
_ScheduleActivityTaskCommandAttributes'input
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Payloads
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'input = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "maybe'input" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'input"
-> (Maybe Payloads -> f (Maybe Payloads))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Payloads)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Payloads -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Payloads
_ScheduleActivityTaskCommandAttributes'input
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Payloads
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'input = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "scheduleToCloseTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleToCloseTimeout"
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "scheduleToCloseTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout = 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 ScheduleActivityTaskCommandAttributes "maybe'scheduleToCloseTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleToCloseTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'scheduleToCloseTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "scheduleToStartTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleToStartTimeout"
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "scheduleToStartTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout = 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 ScheduleActivityTaskCommandAttributes "maybe'scheduleToStartTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleToStartTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'scheduleToStartTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "startToCloseTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startToCloseTimeout"
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "startToCloseTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'startToCloseTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'startToCloseTimeout = 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 ScheduleActivityTaskCommandAttributes "maybe'startToCloseTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startToCloseTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'startToCloseTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'startToCloseTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'startToCloseTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "heartbeatTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "heartbeatTimeout"
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "heartbeatTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'heartbeatTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'heartbeatTimeout = 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 ScheduleActivityTaskCommandAttributes "maybe'heartbeatTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'heartbeatTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'heartbeatTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe Duration)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe Duration -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'heartbeatTimeout
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe Duration
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'heartbeatTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "retryPolicy" Proto.Temporal.Api.Common.V1.Message.RetryPolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "retryPolicy"
-> (RetryPolicy -> f RetryPolicy)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "retryPolicy"
_
= ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((RetryPolicy -> f RetryPolicy)
-> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (RetryPolicy -> f RetryPolicy)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe RetryPolicy)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe RetryPolicy -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe RetryPolicy
_ScheduleActivityTaskCommandAttributes'retryPolicy
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe RetryPolicy
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'retryPolicy = y__}))
(RetryPolicy -> Lens' (Maybe RetryPolicy) RetryPolicy
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RetryPolicy
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "maybe'retryPolicy" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'retryPolicy"
-> (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "maybe'retryPolicy"
_
= ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Maybe RetryPolicy)
-> (ScheduleActivityTaskCommandAttributes
-> Maybe RetryPolicy -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Maybe RetryPolicy
_ScheduleActivityTaskCommandAttributes'retryPolicy
(\ ScheduleActivityTaskCommandAttributes
x__ Maybe RetryPolicy
y__
-> ScheduleActivityTaskCommandAttributes
x__ {_ScheduleActivityTaskCommandAttributes'retryPolicy = y__}))
(Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Maybe RetryPolicy -> f (Maybe RetryPolicy)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "requestEagerExecution" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestEagerExecution"
-> (Bool -> f Bool)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "requestEagerExecution"
_
= ((Bool -> f Bool)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Bool)
-> (ScheduleActivityTaskCommandAttributes
-> Bool -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Bool
_ScheduleActivityTaskCommandAttributes'requestEagerExecution
(\ ScheduleActivityTaskCommandAttributes
x__ Bool
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'requestEagerExecution = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleActivityTaskCommandAttributes "useWorkflowBuildId" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "useWorkflowBuildId"
-> (Bool -> f Bool)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
fieldOf Proxy# "useWorkflowBuildId"
_
= ((Bool -> f Bool)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ScheduleActivityTaskCommandAttributes
-> f ScheduleActivityTaskCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleActivityTaskCommandAttributes -> Bool)
-> (ScheduleActivityTaskCommandAttributes
-> Bool -> ScheduleActivityTaskCommandAttributes)
-> Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> Bool
_ScheduleActivityTaskCommandAttributes'useWorkflowBuildId
(\ ScheduleActivityTaskCommandAttributes
x__ Bool
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'useWorkflowBuildId = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleActivityTaskCommandAttributes where
messageName :: Proxy ScheduleActivityTaskCommandAttributes -> Text
messageName Proxy ScheduleActivityTaskCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.ScheduleActivityTaskCommandAttributes"
packedMessageDescriptor :: Proxy ScheduleActivityTaskCommandAttributes -> ByteString
packedMessageDescriptor Proxy ScheduleActivityTaskCommandAttributes
_
= ByteString
"\n\
\%ScheduleActivityTaskCommandAttributes\DC2\US\n\
\\vactivity_id\CAN\SOH \SOH(\tR\n\
\activityId\DC2I\n\
\\ractivity_type\CAN\STX \SOH(\v2$.temporal.api.common.v1.ActivityTypeR\factivityType\DC2C\n\
\\n\
\task_queue\CAN\EOT \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\ttaskQueue\DC26\n\
\\ACKheader\CAN\ENQ \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC26\n\
\\ENQinput\CAN\ACK \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2T\n\
\\EMschedule_to_close_timeout\CAN\a \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToCloseTimeout\DC2T\n\
\\EMschedule_to_start_timeout\CAN\b \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToStartTimeout\DC2N\n\
\\SYNstart_to_close_timeout\CAN\t \SOH(\v2\EM.google.protobuf.DurationR\DC3startToCloseTimeout\DC2F\n\
\\DC1heartbeat_timeout\CAN\n\
\ \SOH(\v2\EM.google.protobuf.DurationR\DLEheartbeatTimeout\DC2F\n\
\\fretry_policy\CAN\v \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC26\n\
\\ETBrequest_eager_execution\CAN\f \SOH(\bR\NAKrequestEagerExecution\DC21\n\
\\NAKuse_workflow_build_id\CAN\r \SOH(\bR\DC2useWorkflowBuildIdJ\EOT\b\ETX\DLE\EOT"
packedFileDescriptor :: Proxy ScheduleActivityTaskCommandAttributes -> ByteString
packedFileDescriptor Proxy ScheduleActivityTaskCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleActivityTaskCommandAttributes)
fieldsByTag
= let
activityId__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
activityId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleActivityTaskCommandAttributes Text
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"activity_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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Text
Text
-> FieldAccessor ScheduleActivityTaskCommandAttributes 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 @"activityId")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
activityType__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
activityType__field_descriptor
= String
-> FieldTypeDescriptor ActivityType
-> FieldAccessor ScheduleActivityTaskCommandAttributes ActivityType
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"activity_type"
(MessageOrGroup -> FieldTypeDescriptor ActivityType
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.ActivityType)
(Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe ActivityType)
(Maybe ActivityType)
-> FieldAccessor ScheduleActivityTaskCommandAttributes ActivityType
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'activityType")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
taskQueue__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
taskQueue__field_descriptor
= String
-> FieldTypeDescriptor TaskQueue
-> FieldAccessor ScheduleActivityTaskCommandAttributes TaskQueue
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"task_queue"
(MessageOrGroup -> FieldTypeDescriptor TaskQueue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue)
(Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> FieldAccessor ScheduleActivityTaskCommandAttributes TaskQueue
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'taskQueue")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
header__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
header__field_descriptor
= String
-> FieldTypeDescriptor Header
-> FieldAccessor ScheduleActivityTaskCommandAttributes Header
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"header"
(MessageOrGroup -> FieldTypeDescriptor Header
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header)
(Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Header)
(Maybe Header)
-> FieldAccessor ScheduleActivityTaskCommandAttributes Header
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'header")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
input__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
input__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor ScheduleActivityTaskCommandAttributes Payloads
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"input"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor ScheduleActivityTaskCommandAttributes Payloads
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'input")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
scheduleToCloseTimeout__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
scheduleToCloseTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor ScheduleActivityTaskCommandAttributes Duration
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_to_close_timeout"
(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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor ScheduleActivityTaskCommandAttributes 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'scheduleToCloseTimeout")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
scheduleToStartTimeout__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
scheduleToStartTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor ScheduleActivityTaskCommandAttributes Duration
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_to_start_timeout"
(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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor ScheduleActivityTaskCommandAttributes 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'scheduleToStartTimeout")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
startToCloseTimeout__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
startToCloseTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor ScheduleActivityTaskCommandAttributes Duration
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_to_close_timeout"
(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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor ScheduleActivityTaskCommandAttributes 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'startToCloseTimeout")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
heartbeatTimeout__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
heartbeatTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor ScheduleActivityTaskCommandAttributes Duration
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"heartbeat_timeout"
(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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor ScheduleActivityTaskCommandAttributes 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'heartbeatTimeout")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
retryPolicy__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
retryPolicy__field_descriptor
= String
-> FieldTypeDescriptor RetryPolicy
-> FieldAccessor ScheduleActivityTaskCommandAttributes RetryPolicy
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"retry_policy"
(MessageOrGroup -> FieldTypeDescriptor RetryPolicy
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.RetryPolicy)
(Lens
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
-> FieldAccessor ScheduleActivityTaskCommandAttributes RetryPolicy
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'retryPolicy")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
requestEagerExecution__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
requestEagerExecution__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ScheduleActivityTaskCommandAttributes Bool
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"request_eager_execution"
(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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Bool
Bool
-> FieldAccessor ScheduleActivityTaskCommandAttributes 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 @"requestEagerExecution")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
useWorkflowBuildId__field_descriptor :: FieldDescriptor ScheduleActivityTaskCommandAttributes
useWorkflowBuildId__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ScheduleActivityTaskCommandAttributes Bool
-> FieldDescriptor ScheduleActivityTaskCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"use_workflow_build_id"
(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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Bool
Bool
-> FieldAccessor ScheduleActivityTaskCommandAttributes 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 @"useWorkflowBuildId")) ::
Data.ProtoLens.FieldDescriptor ScheduleActivityTaskCommandAttributes
in
[(Tag, FieldDescriptor ScheduleActivityTaskCommandAttributes)]
-> Map Tag (FieldDescriptor ScheduleActivityTaskCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleActivityTaskCommandAttributes
activityId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleActivityTaskCommandAttributes
activityType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ScheduleActivityTaskCommandAttributes
taskQueue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ScheduleActivityTaskCommandAttributes
header__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ScheduleActivityTaskCommandAttributes
input__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ScheduleActivityTaskCommandAttributes
scheduleToCloseTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor ScheduleActivityTaskCommandAttributes
scheduleToStartTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor ScheduleActivityTaskCommandAttributes
startToCloseTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor ScheduleActivityTaskCommandAttributes
heartbeatTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor ScheduleActivityTaskCommandAttributes
retryPolicy__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor ScheduleActivityTaskCommandAttributes
requestEagerExecution__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor ScheduleActivityTaskCommandAttributes
useWorkflowBuildId__field_descriptor)]
unknownFields :: Lens' ScheduleActivityTaskCommandAttributes FieldSet
unknownFields
= (ScheduleActivityTaskCommandAttributes -> FieldSet)
-> (ScheduleActivityTaskCommandAttributes
-> FieldSet -> ScheduleActivityTaskCommandAttributes)
-> Lens' ScheduleActivityTaskCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleActivityTaskCommandAttributes -> FieldSet
_ScheduleActivityTaskCommandAttributes'_unknownFields
(\ ScheduleActivityTaskCommandAttributes
x__ FieldSet
y__
-> ScheduleActivityTaskCommandAttributes
x__
{_ScheduleActivityTaskCommandAttributes'_unknownFields = y__})
defMessage :: ScheduleActivityTaskCommandAttributes
defMessage
= ScheduleActivityTaskCommandAttributes'_constructor
{_ScheduleActivityTaskCommandAttributes'activityId :: Text
_ScheduleActivityTaskCommandAttributes'activityId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleActivityTaskCommandAttributes'activityType :: Maybe ActivityType
_ScheduleActivityTaskCommandAttributes'activityType = Maybe ActivityType
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'taskQueue :: Maybe TaskQueue
_ScheduleActivityTaskCommandAttributes'taskQueue = Maybe TaskQueue
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'header :: Maybe Header
_ScheduleActivityTaskCommandAttributes'header = Maybe Header
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'input :: Maybe Payloads
_ScheduleActivityTaskCommandAttributes'input = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout :: Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout :: Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'startToCloseTimeout :: Maybe Duration
_ScheduleActivityTaskCommandAttributes'startToCloseTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'heartbeatTimeout :: Maybe Duration
_ScheduleActivityTaskCommandAttributes'heartbeatTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'retryPolicy :: Maybe RetryPolicy
_ScheduleActivityTaskCommandAttributes'retryPolicy = Maybe RetryPolicy
forall a. Maybe a
Prelude.Nothing,
_ScheduleActivityTaskCommandAttributes'requestEagerExecution :: Bool
_ScheduleActivityTaskCommandAttributes'requestEagerExecution = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleActivityTaskCommandAttributes'useWorkflowBuildId :: Bool
_ScheduleActivityTaskCommandAttributes'useWorkflowBuildId = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleActivityTaskCommandAttributes'_unknownFields :: FieldSet
_ScheduleActivityTaskCommandAttributes'_unknownFields = []}
parseMessage :: Parser ScheduleActivityTaskCommandAttributes
parseMessage
= let
loop ::
ScheduleActivityTaskCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleActivityTaskCommandAttributes
loop :: ScheduleActivityTaskCommandAttributes
-> Parser ScheduleActivityTaskCommandAttributes
loop ScheduleActivityTaskCommandAttributes
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
"activity_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"activityId") y x)
Word64
18
-> do y <- Parser ActivityType -> String -> Parser ActivityType
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
"activity_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"activityType") y x)
Word64
34
-> do y <- Parser TaskQueue -> String -> Parser TaskQueue
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
"task_queue"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"taskQueue") y x)
Word64
42
-> do y <- Parser Header -> String -> Parser Header
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"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
Word64
50
-> do y <- Parser Payloads -> String -> Parser Payloads
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
"input"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"input") y x)
Word64
58
-> 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
"schedule_to_close_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduleToCloseTimeout") y x)
Word64
66
-> 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
"schedule_to_start_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduleToStartTimeout") y x)
Word64
74
-> 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
"start_to_close_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"startToCloseTimeout") y x)
Word64
82
-> 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
"heartbeat_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"heartbeatTimeout") y x)
Word64
90
-> do y <- Parser RetryPolicy -> String -> Parser RetryPolicy
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
"retry_policy"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"retryPolicy") y x)
Word64
96
-> 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
"request_eager_execution"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"requestEagerExecution") y x)
Word64
104
-> 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_workflow_build_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"useWorkflowBuildId") 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 ScheduleActivityTaskCommandAttributes
-> String -> Parser ScheduleActivityTaskCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ScheduleActivityTaskCommandAttributes
-> Parser ScheduleActivityTaskCommandAttributes
loop ScheduleActivityTaskCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"ScheduleActivityTaskCommandAttributes"
buildMessage :: ScheduleActivityTaskCommandAttributes -> Builder
buildMessage
= \ ScheduleActivityTaskCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Text
Text
-> ScheduleActivityTaskCommandAttributes -> 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 @"activityId") ScheduleActivityTaskCommandAttributes
_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 ActivityType)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe ActivityType)
(Maybe ActivityType)
-> ScheduleActivityTaskCommandAttributes -> Maybe ActivityType
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'activityType") ScheduleActivityTaskCommandAttributes
_x
of
Maybe ActivityType
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ActivityType
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (ActivityType -> ByteString) -> ActivityType -> 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))
ActivityType -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ActivityType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TaskQueue)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> ScheduleActivityTaskCommandAttributes -> Maybe TaskQueue
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'taskQueue") ScheduleActivityTaskCommandAttributes
_x
of
Maybe TaskQueue
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TaskQueue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (TaskQueue -> ByteString) -> TaskQueue -> 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))
TaskQueue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TaskQueue
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Header)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Header)
(Maybe Header)
-> ScheduleActivityTaskCommandAttributes -> Maybe Header
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'header") ScheduleActivityTaskCommandAttributes
_x
of
Maybe Header
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Header
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (Header -> ByteString) -> Header -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Header
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> ScheduleActivityTaskCommandAttributes -> Maybe Payloads
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'input") ScheduleActivityTaskCommandAttributes
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ScheduleActivityTaskCommandAttributes -> 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'scheduleToCloseTimeout") ScheduleActivityTaskCommandAttributes
_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
58)
((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.<>)
(case
FoldLike
(Maybe Duration)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ScheduleActivityTaskCommandAttributes -> 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'scheduleToStartTimeout")
ScheduleActivityTaskCommandAttributes
_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
66)
((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.<>)
(case
FoldLike
(Maybe Duration)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ScheduleActivityTaskCommandAttributes -> 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'startToCloseTimeout")
ScheduleActivityTaskCommandAttributes
_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
74)
((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.<>)
(case
FoldLike
(Maybe Duration)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ScheduleActivityTaskCommandAttributes -> 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'heartbeatTimeout")
ScheduleActivityTaskCommandAttributes
_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
82)
((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.<>)
(case
FoldLike
(Maybe RetryPolicy)
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
-> ScheduleActivityTaskCommandAttributes -> Maybe RetryPolicy
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'retryPolicy") ScheduleActivityTaskCommandAttributes
_x
of
Maybe RetryPolicy
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just RetryPolicy
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((ByteString -> Builder)
-> (RetryPolicy -> ByteString) -> RetryPolicy -> 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))
RetryPolicy -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RetryPolicy
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Bool
Bool
-> ScheduleActivityTaskCommandAttributes -> 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
@"requestEagerExecution")
ScheduleActivityTaskCommandAttributes
_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
96)
((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
_v :: Bool
_v
= FoldLike
Bool
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
Bool
Bool
-> ScheduleActivityTaskCommandAttributes -> 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
@"useWorkflowBuildId")
ScheduleActivityTaskCommandAttributes
_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
104)
((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
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
FieldSet
FieldSet
-> ScheduleActivityTaskCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike
FieldSet
ScheduleActivityTaskCommandAttributes
ScheduleActivityTaskCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleActivityTaskCommandAttributes FieldSet
Data.ProtoLens.unknownFields ScheduleActivityTaskCommandAttributes
_x)))))))))))))
instance Control.DeepSeq.NFData ScheduleActivityTaskCommandAttributes where
rnf :: ScheduleActivityTaskCommandAttributes -> ()
rnf
= \ ScheduleActivityTaskCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> FieldSet
_ScheduleActivityTaskCommandAttributes'_unknownFields ScheduleActivityTaskCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Text
_ScheduleActivityTaskCommandAttributes'activityId ScheduleActivityTaskCommandAttributes
x__)
(Maybe ActivityType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe ActivityType
_ScheduleActivityTaskCommandAttributes'activityType ScheduleActivityTaskCommandAttributes
x__)
(Maybe TaskQueue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe TaskQueue
_ScheduleActivityTaskCommandAttributes'taskQueue ScheduleActivityTaskCommandAttributes
x__)
(Maybe Header -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe Header
_ScheduleActivityTaskCommandAttributes'header ScheduleActivityTaskCommandAttributes
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe Payloads
_ScheduleActivityTaskCommandAttributes'input ScheduleActivityTaskCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToCloseTimeout ScheduleActivityTaskCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'scheduleToStartTimeout
ScheduleActivityTaskCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'startToCloseTimeout
ScheduleActivityTaskCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe Duration
_ScheduleActivityTaskCommandAttributes'heartbeatTimeout
ScheduleActivityTaskCommandAttributes
x__)
(Maybe RetryPolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Maybe RetryPolicy
_ScheduleActivityTaskCommandAttributes'retryPolicy ScheduleActivityTaskCommandAttributes
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Bool
_ScheduleActivityTaskCommandAttributes'requestEagerExecution
ScheduleActivityTaskCommandAttributes
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleActivityTaskCommandAttributes -> Bool
_ScheduleActivityTaskCommandAttributes'useWorkflowBuildId
ScheduleActivityTaskCommandAttributes
x__)
()))))))))))))
data ScheduleNexusOperationCommandAttributes
= ScheduleNexusOperationCommandAttributes'_constructor {ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'endpoint :: !Data.Text.Text,
ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'service :: !Data.Text.Text,
ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'operation :: !Data.Text.Text,
ScheduleNexusOperationCommandAttributes -> Maybe Payload
_ScheduleNexusOperationCommandAttributes'input :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
ScheduleNexusOperationCommandAttributes -> Maybe Duration
_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ScheduleNexusOperationCommandAttributes -> Map Text Text
_ScheduleNexusOperationCommandAttributes'nexusHeader :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
ScheduleNexusOperationCommandAttributes -> FieldSet
_ScheduleNexusOperationCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
(ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool)
-> (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool)
-> Eq ScheduleNexusOperationCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
== :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
$c/= :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
/= :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
Prelude.Eq, Eq ScheduleNexusOperationCommandAttributes
Eq ScheduleNexusOperationCommandAttributes =>
(ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Ordering)
-> (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool)
-> (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool)
-> (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool)
-> (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool)
-> (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes)
-> (ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes)
-> Ord ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Ordering
ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
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 :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Ordering
compare :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Ordering
$c< :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
< :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
$c<= :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
<= :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
$c> :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
> :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
$c>= :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
>= :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes -> Bool
$cmax :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
max :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
$cmin :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
min :: ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
-> ScheduleNexusOperationCommandAttributes
Prelude.Ord)
instance Prelude.Show ScheduleNexusOperationCommandAttributes where
showsPrec :: Int -> ScheduleNexusOperationCommandAttributes -> ShowS
showsPrec Int
_ ScheduleNexusOperationCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleNexusOperationCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleNexusOperationCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes "endpoint" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endpoint"
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "endpoint"
_
= ((Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Text)
-> (ScheduleNexusOperationCommandAttributes
-> Text -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'endpoint
(\ ScheduleNexusOperationCommandAttributes
x__ Text
y__
-> ScheduleNexusOperationCommandAttributes
x__ {_ScheduleNexusOperationCommandAttributes'endpoint = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes "service" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "service"
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "service"
_
= ((Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Text)
-> (ScheduleNexusOperationCommandAttributes
-> Text -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'service
(\ ScheduleNexusOperationCommandAttributes
x__ Text
y__
-> ScheduleNexusOperationCommandAttributes
x__ {_ScheduleNexusOperationCommandAttributes'service = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes "operation" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operation"
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "operation"
_
= ((Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Text)
-> (ScheduleNexusOperationCommandAttributes
-> Text -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'operation
(\ ScheduleNexusOperationCommandAttributes
x__ Text
y__
-> ScheduleNexusOperationCommandAttributes
x__ {_ScheduleNexusOperationCommandAttributes'operation = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes "input" Proto.Temporal.Api.Common.V1.Message.Payload where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "input"
-> (Payload -> f Payload)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "input"
_
= ((Maybe Payload -> f (Maybe Payload))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Maybe Payload)
-> (ScheduleNexusOperationCommandAttributes
-> Maybe Payload -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Payload)
(Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> Maybe Payload
_ScheduleNexusOperationCommandAttributes'input
(\ ScheduleNexusOperationCommandAttributes
x__ Maybe Payload
y__
-> ScheduleNexusOperationCommandAttributes
x__ {_ScheduleNexusOperationCommandAttributes'input = 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 ScheduleNexusOperationCommandAttributes "maybe'input" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'input"
-> (Maybe Payload -> f (Maybe Payload))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "maybe'input"
_
= ((Maybe Payload -> f (Maybe Payload))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Maybe Payload)
-> (ScheduleNexusOperationCommandAttributes
-> Maybe Payload -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Payload)
(Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> Maybe Payload
_ScheduleNexusOperationCommandAttributes'input
(\ ScheduleNexusOperationCommandAttributes
x__ Maybe Payload
y__
-> ScheduleNexusOperationCommandAttributes
x__ {_ScheduleNexusOperationCommandAttributes'input = y__}))
(Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes "scheduleToCloseTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleToCloseTimeout"
-> (Duration -> f Duration)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "scheduleToCloseTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Maybe Duration)
-> (ScheduleNexusOperationCommandAttributes
-> Maybe Duration -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> Maybe Duration
_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout
(\ ScheduleNexusOperationCommandAttributes
x__ Maybe Duration
y__
-> ScheduleNexusOperationCommandAttributes
x__
{_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout = 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 ScheduleNexusOperationCommandAttributes "maybe'scheduleToCloseTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleToCloseTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "maybe'scheduleToCloseTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Maybe Duration)
-> (ScheduleNexusOperationCommandAttributes
-> Maybe Duration -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> Maybe Duration
_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout
(\ ScheduleNexusOperationCommandAttributes
x__ Maybe Duration
y__
-> ScheduleNexusOperationCommandAttributes
x__
{_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes "nexusHeader" (Data.Map.Map Data.Text.Text Data.Text.Text) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nexusHeader"
-> (Map Text Text -> f (Map Text Text))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
fieldOf Proxy# "nexusHeader"
_
= ((Map Text Text -> f (Map Text Text))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes)
-> ((Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> ScheduleNexusOperationCommandAttributes
-> f ScheduleNexusOperationCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes -> Map Text Text)
-> (ScheduleNexusOperationCommandAttributes
-> Map Text Text -> ScheduleNexusOperationCommandAttributes)
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(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
ScheduleNexusOperationCommandAttributes -> Map Text Text
_ScheduleNexusOperationCommandAttributes'nexusHeader
(\ ScheduleNexusOperationCommandAttributes
x__ Map Text Text
y__
-> ScheduleNexusOperationCommandAttributes
x__
{_ScheduleNexusOperationCommandAttributes'nexusHeader = 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 ScheduleNexusOperationCommandAttributes where
messageName :: Proxy ScheduleNexusOperationCommandAttributes -> Text
messageName Proxy ScheduleNexusOperationCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.ScheduleNexusOperationCommandAttributes"
packedMessageDescriptor :: Proxy ScheduleNexusOperationCommandAttributes -> ByteString
packedMessageDescriptor Proxy ScheduleNexusOperationCommandAttributes
_
= ByteString
"\n\
\'ScheduleNexusOperationCommandAttributes\DC2\SUB\n\
\\bendpoint\CAN\SOH \SOH(\tR\bendpoint\DC2\CAN\n\
\\aservice\CAN\STX \SOH(\tR\aservice\DC2\FS\n\
\\toperation\CAN\ETX \SOH(\tR\toperation\DC25\n\
\\ENQinput\CAN\EOT \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQinput\DC2T\n\
\\EMschedule_to_close_timeout\CAN\ENQ \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToCloseTimeout\DC2t\n\
\\fnexus_header\CAN\ACK \ETX(\v2Q.temporal.api.command.v1.ScheduleNexusOperationCommandAttributes.NexusHeaderEntryR\vnexusHeader\SUB>\n\
\\DLENexusHeaderEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy ScheduleNexusOperationCommandAttributes -> ByteString
packedFileDescriptor Proxy ScheduleNexusOperationCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ScheduleNexusOperationCommandAttributes)
fieldsByTag
= let
endpoint__field_descriptor :: FieldDescriptor ScheduleNexusOperationCommandAttributes
endpoint__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleNexusOperationCommandAttributes Text
-> FieldDescriptor ScheduleNexusOperationCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"endpoint"
(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
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
-> FieldAccessor ScheduleNexusOperationCommandAttributes 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 @"endpoint")) ::
Data.ProtoLens.FieldDescriptor ScheduleNexusOperationCommandAttributes
service__field_descriptor :: FieldDescriptor ScheduleNexusOperationCommandAttributes
service__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleNexusOperationCommandAttributes Text
-> FieldDescriptor ScheduleNexusOperationCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"service"
(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
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
-> FieldAccessor ScheduleNexusOperationCommandAttributes 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 @"service")) ::
Data.ProtoLens.FieldDescriptor ScheduleNexusOperationCommandAttributes
operation__field_descriptor :: FieldDescriptor ScheduleNexusOperationCommandAttributes
operation__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ScheduleNexusOperationCommandAttributes Text
-> FieldDescriptor ScheduleNexusOperationCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"operation"
(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
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
-> FieldAccessor ScheduleNexusOperationCommandAttributes 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 @"operation")) ::
Data.ProtoLens.FieldDescriptor ScheduleNexusOperationCommandAttributes
input__field_descriptor :: FieldDescriptor ScheduleNexusOperationCommandAttributes
input__field_descriptor
= String
-> FieldTypeDescriptor Payload
-> FieldAccessor ScheduleNexusOperationCommandAttributes Payload
-> FieldDescriptor ScheduleNexusOperationCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"input"
(MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payload)
(Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Payload)
(Maybe Payload)
-> FieldAccessor ScheduleNexusOperationCommandAttributes 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'input")) ::
Data.ProtoLens.FieldDescriptor ScheduleNexusOperationCommandAttributes
scheduleToCloseTimeout__field_descriptor :: FieldDescriptor ScheduleNexusOperationCommandAttributes
scheduleToCloseTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor ScheduleNexusOperationCommandAttributes Duration
-> FieldDescriptor ScheduleNexusOperationCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"schedule_to_close_timeout"
(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
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor ScheduleNexusOperationCommandAttributes 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'scheduleToCloseTimeout")) ::
Data.ProtoLens.FieldDescriptor ScheduleNexusOperationCommandAttributes
nexusHeader__field_descriptor :: FieldDescriptor ScheduleNexusOperationCommandAttributes
nexusHeader__field_descriptor
= String
-> FieldTypeDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldAccessor
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldDescriptor ScheduleNexusOperationCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"nexus_header"
(MessageOrGroup
-> FieldTypeDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
(Lens' ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
-> Lens'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
-> Lens
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Map Text Text)
(Map Text Text)
-> FieldAccessor
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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 @"nexusHeader")) ::
Data.ProtoLens.FieldDescriptor ScheduleNexusOperationCommandAttributes
in
[(Tag, FieldDescriptor ScheduleNexusOperationCommandAttributes)]
-> Map
Tag (FieldDescriptor ScheduleNexusOperationCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ScheduleNexusOperationCommandAttributes
endpoint__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ScheduleNexusOperationCommandAttributes
service__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ScheduleNexusOperationCommandAttributes
operation__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ScheduleNexusOperationCommandAttributes
input__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ScheduleNexusOperationCommandAttributes
scheduleToCloseTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ScheduleNexusOperationCommandAttributes
nexusHeader__field_descriptor)]
unknownFields :: Lens' ScheduleNexusOperationCommandAttributes FieldSet
unknownFields
= (ScheduleNexusOperationCommandAttributes -> FieldSet)
-> (ScheduleNexusOperationCommandAttributes
-> FieldSet -> ScheduleNexusOperationCommandAttributes)
-> Lens' ScheduleNexusOperationCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes -> FieldSet
_ScheduleNexusOperationCommandAttributes'_unknownFields
(\ ScheduleNexusOperationCommandAttributes
x__ FieldSet
y__
-> ScheduleNexusOperationCommandAttributes
x__
{_ScheduleNexusOperationCommandAttributes'_unknownFields = y__})
defMessage :: ScheduleNexusOperationCommandAttributes
defMessage
= ScheduleNexusOperationCommandAttributes'_constructor
{_ScheduleNexusOperationCommandAttributes'endpoint :: Text
_ScheduleNexusOperationCommandAttributes'endpoint = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleNexusOperationCommandAttributes'service :: Text
_ScheduleNexusOperationCommandAttributes'service = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleNexusOperationCommandAttributes'operation :: Text
_ScheduleNexusOperationCommandAttributes'operation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleNexusOperationCommandAttributes'input :: Maybe Payload
_ScheduleNexusOperationCommandAttributes'input = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout :: Maybe Duration
_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ScheduleNexusOperationCommandAttributes'nexusHeader :: Map Text Text
_ScheduleNexusOperationCommandAttributes'nexusHeader = Map Text Text
forall k a. Map k a
Data.Map.empty,
_ScheduleNexusOperationCommandAttributes'_unknownFields :: FieldSet
_ScheduleNexusOperationCommandAttributes'_unknownFields = []}
parseMessage :: Parser ScheduleNexusOperationCommandAttributes
parseMessage
= let
loop ::
ScheduleNexusOperationCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleNexusOperationCommandAttributes
loop :: ScheduleNexusOperationCommandAttributes
-> Parser ScheduleNexusOperationCommandAttributes
loop ScheduleNexusOperationCommandAttributes
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
"endpoint"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"endpoint") 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
"service"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"service") y x)
Word64
26
-> 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
"operation"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"operation") y x)
Word64
34
-> 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
"input"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"input") y x)
Word64
42
-> 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
"schedule_to_close_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduleToCloseTimeout") y x)
Word64
50
-> do !(entry :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry) <- Parser ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> String
-> Parser ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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_header"
(let
key = FoldLike
Text
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Text
Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> 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") ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
entry
value
= FoldLike
Text
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Text
Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> 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") ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
entry
in
loop
(Lens.Family2.over
(Data.ProtoLens.Field.field @"nexusHeader")
(\ !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 ScheduleNexusOperationCommandAttributes
-> String -> Parser ScheduleNexusOperationCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ScheduleNexusOperationCommandAttributes
-> Parser ScheduleNexusOperationCommandAttributes
loop ScheduleNexusOperationCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"ScheduleNexusOperationCommandAttributes"
buildMessage :: ScheduleNexusOperationCommandAttributes -> Builder
buildMessage
= \ ScheduleNexusOperationCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
-> ScheduleNexusOperationCommandAttributes -> 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 @"endpoint") ScheduleNexusOperationCommandAttributes
_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
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
-> ScheduleNexusOperationCommandAttributes -> 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 @"service") ScheduleNexusOperationCommandAttributes
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
Text
Text
-> ScheduleNexusOperationCommandAttributes -> 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 @"operation") ScheduleNexusOperationCommandAttributes
_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
26)
((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)
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Payload)
(Maybe Payload)
-> ScheduleNexusOperationCommandAttributes -> 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'input") ScheduleNexusOperationCommandAttributes
_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
34)
((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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> ScheduleNexusOperationCommandAttributes -> 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'scheduleToCloseTimeout") ScheduleNexusOperationCommandAttributes
_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
42)
((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.<>)
([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
50)
((ByteString -> Builder)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ByteString)
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> 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))
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Text
Text
-> Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Text
Text
-> Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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)
(ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)))))
(Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Text)
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
(Map Text Text)
(Map Text Text)
-> ScheduleNexusOperationCommandAttributes -> 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 @"nexusHeader") ScheduleNexusOperationCommandAttributes
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
FieldSet
FieldSet
-> ScheduleNexusOperationCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ScheduleNexusOperationCommandAttributes
ScheduleNexusOperationCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ScheduleNexusOperationCommandAttributes FieldSet
Data.ProtoLens.unknownFields ScheduleNexusOperationCommandAttributes
_x)))))))
instance Control.DeepSeq.NFData ScheduleNexusOperationCommandAttributes where
rnf :: ScheduleNexusOperationCommandAttributes -> ()
rnf
= \ ScheduleNexusOperationCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes -> FieldSet
_ScheduleNexusOperationCommandAttributes'_unknownFields ScheduleNexusOperationCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'endpoint ScheduleNexusOperationCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'service ScheduleNexusOperationCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes -> Text
_ScheduleNexusOperationCommandAttributes'operation ScheduleNexusOperationCommandAttributes
x__)
(Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes -> Maybe Payload
_ScheduleNexusOperationCommandAttributes'input ScheduleNexusOperationCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes -> Maybe Duration
_ScheduleNexusOperationCommandAttributes'scheduleToCloseTimeout
ScheduleNexusOperationCommandAttributes
x__)
(Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes -> Map Text Text
_ScheduleNexusOperationCommandAttributes'nexusHeader ScheduleNexusOperationCommandAttributes
x__) ()))))))
data ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
= ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_constructor {ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'key :: !Data.Text.Text,
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'value :: !Data.Text.Text,
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldSet
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
(ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Bool)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Bool)
-> Eq ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
== :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
$c/= :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
/= :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
Prelude.Eq, Eq ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Eq ScheduleNexusOperationCommandAttributes'NexusHeaderEntry =>
(ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Ordering)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Bool)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Bool)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Bool)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Bool)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
-> Ord ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Ordering
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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 :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Ordering
compare :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Ordering
$c< :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
< :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
$c<= :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
<= :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
$c> :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
> :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
$c>= :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
>= :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Bool
$cmax :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
max :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
$cmin :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
min :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Prelude.Ord)
instance Prelude.Show ScheduleNexusOperationCommandAttributes'NexusHeaderEntry where
showsPrec :: Int
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ShowS
showsPrec Int
_ ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes'NexusHeaderEntry "key" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> f ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
fieldOf Proxy# "key"
_
= ((Text -> f Text)
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> f ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> f ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
-> Lens'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'key
(\ ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__ Text
y__
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__
{_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'key = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ScheduleNexusOperationCommandAttributes'NexusHeaderEntry "value" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> f ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
fieldOf Proxy# "value"
_
= ((Text -> f Text)
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> f ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> f ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
-> Lens'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'value
(\ ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__ Text
y__
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__
{_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'value = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ScheduleNexusOperationCommandAttributes'NexusHeaderEntry where
messageName :: Proxy ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Text
messageName Proxy ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.ScheduleNexusOperationCommandAttributes.NexusHeaderEntry"
packedMessageDescriptor :: Proxy ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ByteString
packedMessageDescriptor Proxy ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
_
= ByteString
"\n\
\\DLENexusHeaderEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> ByteString
packedFileDescriptor Proxy ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
-> FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
-> FieldAccessor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry 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 ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
value__field_descriptor :: FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
-> FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry Text
-> FieldAccessor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry 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 ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
in
[(Tag,
FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)]
-> Map
Tag
(FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
value__field_descriptor)]
unknownFields :: Lens'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry FieldSet
unknownFields
= (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldSet)
-> (ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldSet
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry)
-> Lens'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldSet
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_unknownFields
(\ ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__ FieldSet
y__
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__
{_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_unknownFields = y__})
defMessage :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
defMessage
= ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_constructor
{_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'key :: Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'value :: Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_unknownFields :: FieldSet
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_unknownFields = []}
parseMessage :: Parser ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
parseMessage
= let
loop ::
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Data.ProtoLens.Encoding.Bytes.Parser ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
loop :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Parser ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
loop ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
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 ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> String
-> Parser ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> Parser ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
loop ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NexusHeaderEntry"
buildMessage :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Builder
buildMessage
= \ ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Text
Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> 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") ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
_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
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
Text
Text
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> 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") ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
_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
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
FieldSet
FieldSet
-> ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens'
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry FieldSet
Data.ProtoLens.unknownFields ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
_x)))
instance Control.DeepSeq.NFData ScheduleNexusOperationCommandAttributes'NexusHeaderEntry where
rnf :: ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> ()
rnf
= \ ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
-> FieldSet
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'_unknownFields
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'key ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ScheduleNexusOperationCommandAttributes'NexusHeaderEntry -> Text
_ScheduleNexusOperationCommandAttributes'NexusHeaderEntry'value
ScheduleNexusOperationCommandAttributes'NexusHeaderEntry
x__)
()))
data SignalExternalWorkflowExecutionCommandAttributes
= SignalExternalWorkflowExecutionCommandAttributes'_constructor {SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'namespace :: !Data.Text.Text,
SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution
_SignalExternalWorkflowExecutionCommandAttributes'execution :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution),
SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'signalName :: !Data.Text.Text,
SignalExternalWorkflowExecutionCommandAttributes -> Maybe Payloads
_SignalExternalWorkflowExecutionCommandAttributes'input :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'control :: !Data.Text.Text,
SignalExternalWorkflowExecutionCommandAttributes -> Bool
_SignalExternalWorkflowExecutionCommandAttributes'childWorkflowOnly :: !Prelude.Bool,
SignalExternalWorkflowExecutionCommandAttributes -> Maybe Header
_SignalExternalWorkflowExecutionCommandAttributes'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header),
SignalExternalWorkflowExecutionCommandAttributes -> FieldSet
_SignalExternalWorkflowExecutionCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
(SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool)
-> Eq SignalExternalWorkflowExecutionCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
== :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
$c/= :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
/= :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
Prelude.Eq, Eq SignalExternalWorkflowExecutionCommandAttributes
Eq SignalExternalWorkflowExecutionCommandAttributes =>
(SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Ordering)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes)
-> Ord SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Ordering
SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
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 :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Ordering
compare :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Ordering
$c< :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
< :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
$c<= :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
<= :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
$c> :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
> :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
$c>= :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
>= :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes -> Bool
$cmax :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
max :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
$cmin :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
min :: SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
-> SignalExternalWorkflowExecutionCommandAttributes
Prelude.Ord)
instance Prelude.Show SignalExternalWorkflowExecutionCommandAttributes where
showsPrec :: Int -> SignalExternalWorkflowExecutionCommandAttributes -> ShowS
showsPrec Int
_ SignalExternalWorkflowExecutionCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(SignalExternalWorkflowExecutionCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SignalExternalWorkflowExecutionCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "namespace" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "namespace"
_
= ((Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes -> Text)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Text -> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'namespace
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'namespace = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "execution" Proto.Temporal.Api.Common.V1.Message.WorkflowExecution where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "execution"
-> (WorkflowExecution -> f WorkflowExecution)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "execution"
_
= ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((WorkflowExecution -> f WorkflowExecution)
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (WorkflowExecution -> f WorkflowExecution)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution
-> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution
_SignalExternalWorkflowExecutionCommandAttributes'execution
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Maybe WorkflowExecution
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'execution = y__}))
(WorkflowExecution
-> Lens' (Maybe WorkflowExecution) WorkflowExecution
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowExecution
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "maybe'execution" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'execution"
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'execution"
_
= ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution
-> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution
_SignalExternalWorkflowExecutionCommandAttributes'execution
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Maybe WorkflowExecution
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'execution = y__}))
(Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "signalName" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "signalName"
-> (Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "signalName"
_
= ((Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes -> Text)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Text -> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'signalName
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'signalName = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "input" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "input"
-> (Payloads -> f Payloads)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Payloads)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Payloads
-> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Maybe Payloads
_SignalExternalWorkflowExecutionCommandAttributes'input
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'input = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "maybe'input" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'input"
-> (Maybe Payloads -> f (Maybe Payloads))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Payloads)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Payloads
-> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Maybe Payloads
_SignalExternalWorkflowExecutionCommandAttributes'input
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'input = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "control" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "control"
-> (Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "control"
_
= ((Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes -> Text)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Text -> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'control
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Text
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'control = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "childWorkflowOnly" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "childWorkflowOnly"
-> (Bool -> f Bool)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "childWorkflowOnly"
_
= ((Bool -> f Bool)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes -> Bool)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Bool -> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Bool
_SignalExternalWorkflowExecutionCommandAttributes'childWorkflowOnly
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Bool
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'childWorkflowOnly = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "header" Proto.Temporal.Api.Common.V1.Message.Header where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Header -> f Header)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "header"
_
= ((Maybe Header -> f (Maybe Header))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Header -> f Header) -> Maybe Header -> f (Maybe Header))
-> (Header -> f Header)
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes -> Maybe Header)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Header
-> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Maybe Header
_SignalExternalWorkflowExecutionCommandAttributes'header
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Maybe Header
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'header = y__}))
(Header -> Lens' (Maybe Header) Header
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SignalExternalWorkflowExecutionCommandAttributes "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe Header -> f (Maybe Header))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'header"
_
= ((Maybe Header -> f (Maybe Header))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes)
-> ((Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header))
-> (Maybe Header -> f (Maybe Header))
-> SignalExternalWorkflowExecutionCommandAttributes
-> f SignalExternalWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignalExternalWorkflowExecutionCommandAttributes -> Maybe Header)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Header
-> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> Maybe Header
_SignalExternalWorkflowExecutionCommandAttributes'header
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ Maybe Header
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'header = y__}))
(Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SignalExternalWorkflowExecutionCommandAttributes where
messageName :: Proxy SignalExternalWorkflowExecutionCommandAttributes -> Text
messageName Proxy SignalExternalWorkflowExecutionCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.SignalExternalWorkflowExecutionCommandAttributes"
packedMessageDescriptor :: Proxy SignalExternalWorkflowExecutionCommandAttributes
-> ByteString
packedMessageDescriptor Proxy SignalExternalWorkflowExecutionCommandAttributes
_
= ByteString
"\n\
\0SignalExternalWorkflowExecutionCommandAttributes\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2G\n\
\\texecution\CAN\STX \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\texecution\DC2\US\n\
\\vsignal_name\CAN\ETX \SOH(\tR\n\
\signalName\DC26\n\
\\ENQinput\CAN\EOT \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2\CAN\n\
\\acontrol\CAN\ENQ \SOH(\tR\acontrol\DC2.\n\
\\DC3child_workflow_only\CAN\ACK \SOH(\bR\DC1childWorkflowOnly\DC26\n\
\\ACKheader\CAN\a \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader"
packedFileDescriptor :: Proxy SignalExternalWorkflowExecutionCommandAttributes
-> ByteString
packedFileDescriptor Proxy SignalExternalWorkflowExecutionCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes)
fieldsByTag
= let
namespace__field_descriptor :: FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
namespace__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"namespace"
(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
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes 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 @"namespace")) ::
Data.ProtoLens.FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
execution__field_descriptor :: FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
execution__field_descriptor
= String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes WorkflowExecution
-> FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"execution"
(MessageOrGroup -> FieldTypeDescriptor WorkflowExecution
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)
(Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes WorkflowExecution
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'execution")) ::
Data.ProtoLens.FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
signalName__field_descriptor :: FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
signalName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"signal_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
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes 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 @"signalName")) ::
Data.ProtoLens.FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
input__field_descriptor :: FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
input__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Payloads
-> FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"input"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Payloads
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'input")) ::
Data.ProtoLens.FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
control__field_descriptor :: FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
control__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Text
-> FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"control"
(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
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes 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 @"control")) ::
Data.ProtoLens.FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
childWorkflowOnly__field_descriptor :: FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
childWorkflowOnly__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Bool
-> FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"child_workflow_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
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Bool
Bool
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes 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 @"childWorkflowOnly")) ::
Data.ProtoLens.FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
header__field_descriptor :: FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
header__field_descriptor
= String
-> FieldTypeDescriptor Header
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Header
-> FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"header"
(MessageOrGroup -> FieldTypeDescriptor Header
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header)
(Lens
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
-> FieldAccessor
SignalExternalWorkflowExecutionCommandAttributes Header
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'header")) ::
Data.ProtoLens.FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
in
[(Tag,
FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes)]
-> Map
Tag
(FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
namespace__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
execution__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
signalName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
input__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
control__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
childWorkflowOnly__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor SignalExternalWorkflowExecutionCommandAttributes
header__field_descriptor)]
unknownFields :: Lens' SignalExternalWorkflowExecutionCommandAttributes FieldSet
unknownFields
= (SignalExternalWorkflowExecutionCommandAttributes -> FieldSet)
-> (SignalExternalWorkflowExecutionCommandAttributes
-> FieldSet -> SignalExternalWorkflowExecutionCommandAttributes)
-> Lens' SignalExternalWorkflowExecutionCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignalExternalWorkflowExecutionCommandAttributes -> FieldSet
_SignalExternalWorkflowExecutionCommandAttributes'_unknownFields
(\ SignalExternalWorkflowExecutionCommandAttributes
x__ FieldSet
y__
-> SignalExternalWorkflowExecutionCommandAttributes
x__
{_SignalExternalWorkflowExecutionCommandAttributes'_unknownFields = y__})
defMessage :: SignalExternalWorkflowExecutionCommandAttributes
defMessage
= SignalExternalWorkflowExecutionCommandAttributes'_constructor
{_SignalExternalWorkflowExecutionCommandAttributes'namespace :: Text
_SignalExternalWorkflowExecutionCommandAttributes'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SignalExternalWorkflowExecutionCommandAttributes'execution :: Maybe WorkflowExecution
_SignalExternalWorkflowExecutionCommandAttributes'execution = Maybe WorkflowExecution
forall a. Maybe a
Prelude.Nothing,
_SignalExternalWorkflowExecutionCommandAttributes'signalName :: Text
_SignalExternalWorkflowExecutionCommandAttributes'signalName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SignalExternalWorkflowExecutionCommandAttributes'input :: Maybe Payloads
_SignalExternalWorkflowExecutionCommandAttributes'input = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_SignalExternalWorkflowExecutionCommandAttributes'control :: Text
_SignalExternalWorkflowExecutionCommandAttributes'control = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SignalExternalWorkflowExecutionCommandAttributes'childWorkflowOnly :: Bool
_SignalExternalWorkflowExecutionCommandAttributes'childWorkflowOnly = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SignalExternalWorkflowExecutionCommandAttributes'header :: Maybe Header
_SignalExternalWorkflowExecutionCommandAttributes'header = Maybe Header
forall a. Maybe a
Prelude.Nothing,
_SignalExternalWorkflowExecutionCommandAttributes'_unknownFields :: FieldSet
_SignalExternalWorkflowExecutionCommandAttributes'_unknownFields = []}
parseMessage :: Parser SignalExternalWorkflowExecutionCommandAttributes
parseMessage
= let
loop ::
SignalExternalWorkflowExecutionCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser SignalExternalWorkflowExecutionCommandAttributes
loop :: SignalExternalWorkflowExecutionCommandAttributes
-> Parser SignalExternalWorkflowExecutionCommandAttributes
loop SignalExternalWorkflowExecutionCommandAttributes
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
"namespace"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"namespace") y x)
Word64
18
-> do y <- Parser WorkflowExecution -> String -> Parser WorkflowExecution
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
"execution"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"execution") y x)
Word64
26
-> 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
"signal_name"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"signalName") y x)
Word64
34
-> do y <- Parser Payloads -> String -> Parser Payloads
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
"input"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"input") y x)
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
"control"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"control") y x)
Word64
48
-> 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
"child_workflow_only"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"childWorkflowOnly") y x)
Word64
58
-> do y <- Parser Header -> String -> Parser Header
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"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 SignalExternalWorkflowExecutionCommandAttributes
-> String
-> Parser SignalExternalWorkflowExecutionCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SignalExternalWorkflowExecutionCommandAttributes
-> Parser SignalExternalWorkflowExecutionCommandAttributes
loop SignalExternalWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"SignalExternalWorkflowExecutionCommandAttributes"
buildMessage :: SignalExternalWorkflowExecutionCommandAttributes -> Builder
buildMessage
= \ SignalExternalWorkflowExecutionCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
-> SignalExternalWorkflowExecutionCommandAttributes -> 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 @"namespace") SignalExternalWorkflowExecutionCommandAttributes
_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 WorkflowExecution)
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
-> SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution
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'execution") SignalExternalWorkflowExecutionCommandAttributes
_x
of
Maybe WorkflowExecution
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkflowExecution
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (WorkflowExecution -> ByteString)
-> WorkflowExecution
-> 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))
WorkflowExecution -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowExecution
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
-> SignalExternalWorkflowExecutionCommandAttributes -> 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 @"signalName") SignalExternalWorkflowExecutionCommandAttributes
_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
26)
((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 Payloads)
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> SignalExternalWorkflowExecutionCommandAttributes
-> Maybe Payloads
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'input") SignalExternalWorkflowExecutionCommandAttributes
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Text
Text
-> SignalExternalWorkflowExecutionCommandAttributes -> 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 @"control") SignalExternalWorkflowExecutionCommandAttributes
_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
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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
Bool
Bool
-> SignalExternalWorkflowExecutionCommandAttributes -> 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 @"childWorkflowOnly") SignalExternalWorkflowExecutionCommandAttributes
_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
48)
((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.<>)
(case
FoldLike
(Maybe Header)
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
-> SignalExternalWorkflowExecutionCommandAttributes -> Maybe Header
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'header") SignalExternalWorkflowExecutionCommandAttributes
_x
of
Maybe Header
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Header
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (Header -> ByteString) -> Header -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Header
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
FieldSet
FieldSet
-> SignalExternalWorkflowExecutionCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SignalExternalWorkflowExecutionCommandAttributes
SignalExternalWorkflowExecutionCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SignalExternalWorkflowExecutionCommandAttributes FieldSet
Data.ProtoLens.unknownFields SignalExternalWorkflowExecutionCommandAttributes
_x))))))))
instance Control.DeepSeq.NFData SignalExternalWorkflowExecutionCommandAttributes where
rnf :: SignalExternalWorkflowExecutionCommandAttributes -> ()
rnf
= \ SignalExternalWorkflowExecutionCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes -> FieldSet
_SignalExternalWorkflowExecutionCommandAttributes'_unknownFields
SignalExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'namespace SignalExternalWorkflowExecutionCommandAttributes
x__)
(Maybe WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes
-> Maybe WorkflowExecution
_SignalExternalWorkflowExecutionCommandAttributes'execution SignalExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'signalName SignalExternalWorkflowExecutionCommandAttributes
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes -> Maybe Payloads
_SignalExternalWorkflowExecutionCommandAttributes'input SignalExternalWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes -> Text
_SignalExternalWorkflowExecutionCommandAttributes'control SignalExternalWorkflowExecutionCommandAttributes
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes -> Bool
_SignalExternalWorkflowExecutionCommandAttributes'childWorkflowOnly
SignalExternalWorkflowExecutionCommandAttributes
x__)
(Maybe Header -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignalExternalWorkflowExecutionCommandAttributes -> Maybe Header
_SignalExternalWorkflowExecutionCommandAttributes'header SignalExternalWorkflowExecutionCommandAttributes
x__)
())))))))
data StartChildWorkflowExecutionCommandAttributes
= StartChildWorkflowExecutionCommandAttributes'_constructor {StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'namespace :: !Data.Text.Text,
StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'workflowId :: !Data.Text.Text,
StartChildWorkflowExecutionCommandAttributes -> Maybe WorkflowType
_StartChildWorkflowExecutionCommandAttributes'workflowType :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType),
StartChildWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_StartChildWorkflowExecutionCommandAttributes'taskQueue :: !(Prelude.Maybe Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue),
StartChildWorkflowExecutionCommandAttributes -> Maybe Payloads
_StartChildWorkflowExecutionCommandAttributes'input :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
StartChildWorkflowExecutionCommandAttributes -> ParentClosePolicy
_StartChildWorkflowExecutionCommandAttributes'parentClosePolicy :: !Proto.Temporal.Api.Enums.V1.Workflow.ParentClosePolicy,
StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'control :: !Data.Text.Text,
StartChildWorkflowExecutionCommandAttributes
-> WorkflowIdReusePolicy
_StartChildWorkflowExecutionCommandAttributes'workflowIdReusePolicy :: !Proto.Temporal.Api.Enums.V1.Workflow.WorkflowIdReusePolicy,
StartChildWorkflowExecutionCommandAttributes -> Maybe RetryPolicy
_StartChildWorkflowExecutionCommandAttributes'retryPolicy :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy),
StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'cronSchedule :: !Data.Text.Text,
StartChildWorkflowExecutionCommandAttributes -> Maybe Header
_StartChildWorkflowExecutionCommandAttributes'header :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header),
StartChildWorkflowExecutionCommandAttributes -> Maybe Memo
_StartChildWorkflowExecutionCommandAttributes'memo :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo),
StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_StartChildWorkflowExecutionCommandAttributes'searchAttributes :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes),
StartChildWorkflowExecutionCommandAttributes -> Bool
_StartChildWorkflowExecutionCommandAttributes'inheritBuildId :: !Prelude.Bool,
StartChildWorkflowExecutionCommandAttributes -> FieldSet
_StartChildWorkflowExecutionCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
(StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool)
-> (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool)
-> Eq StartChildWorkflowExecutionCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
== :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
$c/= :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
/= :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
Prelude.Eq, Eq StartChildWorkflowExecutionCommandAttributes
Eq StartChildWorkflowExecutionCommandAttributes =>
(StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Ordering)
-> (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool)
-> (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool)
-> (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool)
-> (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool)
-> (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes)
-> (StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes)
-> Ord StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Ordering
StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
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 :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Ordering
compare :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Ordering
$c< :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
< :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
$c<= :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
<= :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
$c> :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
> :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
$c>= :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
>= :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes -> Bool
$cmax :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
max :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
$cmin :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
min :: StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
-> StartChildWorkflowExecutionCommandAttributes
Prelude.Ord)
instance Prelude.Show StartChildWorkflowExecutionCommandAttributes where
showsPrec :: Int -> StartChildWorkflowExecutionCommandAttributes -> ShowS
showsPrec Int
_ StartChildWorkflowExecutionCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(StartChildWorkflowExecutionCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartChildWorkflowExecutionCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "namespace" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "namespace"
_
= ((Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Text)
-> (StartChildWorkflowExecutionCommandAttributes
-> Text -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'namespace
(\ StartChildWorkflowExecutionCommandAttributes
x__ Text
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'namespace = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "workflowId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowId"
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowId"
_
= ((Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Text)
-> (StartChildWorkflowExecutionCommandAttributes
-> Text -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'workflowId
(\ StartChildWorkflowExecutionCommandAttributes
x__ Text
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "workflowType" Proto.Temporal.Api.Common.V1.Message.WorkflowType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowType"
-> (WorkflowType -> f WorkflowType)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((WorkflowType -> f WorkflowType)
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (WorkflowType -> f WorkflowType)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes
-> Maybe WorkflowType)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe WorkflowType
_StartChildWorkflowExecutionCommandAttributes'workflowType
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe WorkflowType
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowType = y__}))
(WorkflowType -> Lens' (Maybe WorkflowType) WorkflowType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowType
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "maybe'workflowType" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowType"
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes
-> Maybe WorkflowType)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe WorkflowType
_StartChildWorkflowExecutionCommandAttributes'workflowType
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe WorkflowType
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowType = y__}))
(Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "taskQueue" Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskQueue"
-> (TaskQueue -> f TaskQueue)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "taskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((TaskQueue -> f TaskQueue)
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (TaskQueue -> f TaskQueue)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe TaskQueue)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe TaskQueue -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_StartChildWorkflowExecutionCommandAttributes'taskQueue
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe TaskQueue
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'taskQueue = y__}))
(TaskQueue -> Lens' (Maybe TaskQueue) TaskQueue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaskQueue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "maybe'taskQueue" (Prelude.Maybe Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'taskQueue"
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'taskQueue"
_
= ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue))
-> (Maybe TaskQueue -> f (Maybe TaskQueue))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe TaskQueue)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe TaskQueue -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_StartChildWorkflowExecutionCommandAttributes'taskQueue
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe TaskQueue
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'taskQueue = y__}))
(Maybe TaskQueue -> f (Maybe TaskQueue))
-> Maybe TaskQueue -> f (Maybe TaskQueue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "input" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "input"
-> (Payloads -> f Payloads)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Payloads -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Payloads
_StartChildWorkflowExecutionCommandAttributes'input
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'input = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "maybe'input" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'input"
-> (Maybe Payloads -> f (Maybe Payloads))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'input"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Payloads)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Payloads -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Payloads
_StartChildWorkflowExecutionCommandAttributes'input
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Payloads
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'input = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "workflowExecutionTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowExecutionTimeout"
-> (Duration -> f Duration)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowExecutionTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Duration -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout = 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 StartChildWorkflowExecutionCommandAttributes "maybe'workflowExecutionTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowExecutionTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'workflowExecutionTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Duration -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "workflowRunTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowRunTimeout"
-> (Duration -> f Duration)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowRunTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Duration -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout = 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 StartChildWorkflowExecutionCommandAttributes "maybe'workflowRunTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowRunTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'workflowRunTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Duration -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "workflowTaskTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowTaskTimeout"
-> (Duration -> f Duration)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowTaskTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Duration -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout = 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 StartChildWorkflowExecutionCommandAttributes "maybe'workflowTaskTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowTaskTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'workflowTaskTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Duration)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Duration -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Duration
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "parentClosePolicy" Proto.Temporal.Api.Enums.V1.Workflow.ParentClosePolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "parentClosePolicy"
-> (ParentClosePolicy -> f ParentClosePolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "parentClosePolicy"
_
= ((ParentClosePolicy -> f ParentClosePolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((ParentClosePolicy -> f ParentClosePolicy)
-> ParentClosePolicy -> f ParentClosePolicy)
-> (ParentClosePolicy -> f ParentClosePolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> ParentClosePolicy)
-> (StartChildWorkflowExecutionCommandAttributes
-> ParentClosePolicy
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
ParentClosePolicy
ParentClosePolicy
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> ParentClosePolicy
_StartChildWorkflowExecutionCommandAttributes'parentClosePolicy
(\ StartChildWorkflowExecutionCommandAttributes
x__ ParentClosePolicy
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'parentClosePolicy = y__}))
(ParentClosePolicy -> f ParentClosePolicy)
-> ParentClosePolicy -> f ParentClosePolicy
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "control" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "control"
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "control"
_
= ((Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Text)
-> (StartChildWorkflowExecutionCommandAttributes
-> Text -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'control
(\ StartChildWorkflowExecutionCommandAttributes
x__ Text
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'control = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "workflowIdReusePolicy" Proto.Temporal.Api.Enums.V1.Workflow.WorkflowIdReusePolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowIdReusePolicy"
-> (WorkflowIdReusePolicy -> f WorkflowIdReusePolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "workflowIdReusePolicy"
_
= ((WorkflowIdReusePolicy -> f WorkflowIdReusePolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((WorkflowIdReusePolicy -> f WorkflowIdReusePolicy)
-> WorkflowIdReusePolicy -> f WorkflowIdReusePolicy)
-> (WorkflowIdReusePolicy -> f WorkflowIdReusePolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes
-> WorkflowIdReusePolicy)
-> (StartChildWorkflowExecutionCommandAttributes
-> WorkflowIdReusePolicy
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
WorkflowIdReusePolicy
WorkflowIdReusePolicy
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes
-> WorkflowIdReusePolicy
_StartChildWorkflowExecutionCommandAttributes'workflowIdReusePolicy
(\ StartChildWorkflowExecutionCommandAttributes
x__ WorkflowIdReusePolicy
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'workflowIdReusePolicy = y__}))
(WorkflowIdReusePolicy -> f WorkflowIdReusePolicy)
-> WorkflowIdReusePolicy -> f WorkflowIdReusePolicy
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "retryPolicy" Proto.Temporal.Api.Common.V1.Message.RetryPolicy where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "retryPolicy"
-> (RetryPolicy -> f RetryPolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "retryPolicy"
_
= ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((RetryPolicy -> f RetryPolicy)
-> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (RetryPolicy -> f RetryPolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe RetryPolicy)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe RetryPolicy
_StartChildWorkflowExecutionCommandAttributes'retryPolicy
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe RetryPolicy
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'retryPolicy = y__}))
(RetryPolicy -> Lens' (Maybe RetryPolicy) RetryPolicy
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RetryPolicy
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "maybe'retryPolicy" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'retryPolicy"
-> (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'retryPolicy"
_
= ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe RetryPolicy)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe RetryPolicy
_StartChildWorkflowExecutionCommandAttributes'retryPolicy
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe RetryPolicy
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'retryPolicy = y__}))
(Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Maybe RetryPolicy -> f (Maybe RetryPolicy)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "cronSchedule" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cronSchedule"
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "cronSchedule"
_
= ((Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Text)
-> (StartChildWorkflowExecutionCommandAttributes
-> Text -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'cronSchedule
(\ StartChildWorkflowExecutionCommandAttributes
x__ Text
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'cronSchedule = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "header" Proto.Temporal.Api.Common.V1.Message.Header where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (Header -> f Header)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "header"
_
= ((Maybe Header -> f (Maybe Header))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Header -> f Header) -> Maybe Header -> f (Maybe Header))
-> (Header -> f Header)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Header)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Header -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Header
_StartChildWorkflowExecutionCommandAttributes'header
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Header
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'header = y__}))
(Header -> Lens' (Maybe Header) Header
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Header
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "maybe'header" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Header) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe Header -> f (Maybe Header))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'header"
_
= ((Maybe Header -> f (Maybe Header))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header))
-> (Maybe Header -> f (Maybe Header))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Header)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Header -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Header
_StartChildWorkflowExecutionCommandAttributes'header
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Header
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'header = y__}))
(Maybe Header -> f (Maybe Header))
-> Maybe Header -> f (Maybe Header)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "memo" Proto.Temporal.Api.Common.V1.Message.Memo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memo"
-> (Memo -> f Memo)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "memo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Memo -> f Memo) -> Maybe Memo -> f (Maybe Memo))
-> (Memo -> f Memo)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Memo)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Memo -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Memo
_StartChildWorkflowExecutionCommandAttributes'memo
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Memo
y__
-> StartChildWorkflowExecutionCommandAttributes
x__ {_StartChildWorkflowExecutionCommandAttributes'memo = y__}))
(Memo -> Lens' (Maybe Memo) Memo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Memo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "maybe'memo" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Memo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'memo"
-> (Maybe Memo -> f (Maybe Memo))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'memo"
_
= ((Maybe Memo -> f (Maybe Memo))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo))
-> (Maybe Memo -> f (Maybe Memo))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Maybe Memo)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe Memo -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Maybe Memo
_StartChildWorkflowExecutionCommandAttributes'memo
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe Memo
y__
-> StartChildWorkflowExecutionCommandAttributes
x__ {_StartChildWorkflowExecutionCommandAttributes'memo = y__}))
(Maybe Memo -> f (Maybe Memo)) -> Maybe Memo -> f (Maybe Memo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "searchAttributes" Proto.Temporal.Api.Common.V1.Message.SearchAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "searchAttributes"
-> (SearchAttributes -> f SearchAttributes)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((SearchAttributes -> f SearchAttributes)
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (SearchAttributes -> f SearchAttributes)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_StartChildWorkflowExecutionCommandAttributes'searchAttributes
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe SearchAttributes
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'searchAttributes = y__}))
(SearchAttributes -> Lens' (Maybe SearchAttributes) SearchAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SearchAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "maybe'searchAttributes" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'searchAttributes"
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "maybe'searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes)
-> (StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
-> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_StartChildWorkflowExecutionCommandAttributes'searchAttributes
(\ StartChildWorkflowExecutionCommandAttributes
x__ Maybe SearchAttributes
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'searchAttributes = y__}))
(Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartChildWorkflowExecutionCommandAttributes "inheritBuildId" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "inheritBuildId"
-> (Bool -> f Bool)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
fieldOf Proxy# "inheritBuildId"
_
= ((Bool -> f Bool)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> StartChildWorkflowExecutionCommandAttributes
-> f StartChildWorkflowExecutionCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartChildWorkflowExecutionCommandAttributes -> Bool)
-> (StartChildWorkflowExecutionCommandAttributes
-> Bool -> StartChildWorkflowExecutionCommandAttributes)
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> Bool
_StartChildWorkflowExecutionCommandAttributes'inheritBuildId
(\ StartChildWorkflowExecutionCommandAttributes
x__ Bool
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'inheritBuildId = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StartChildWorkflowExecutionCommandAttributes where
messageName :: Proxy StartChildWorkflowExecutionCommandAttributes -> Text
messageName Proxy StartChildWorkflowExecutionCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.StartChildWorkflowExecutionCommandAttributes"
packedMessageDescriptor :: Proxy StartChildWorkflowExecutionCommandAttributes -> ByteString
packedMessageDescriptor Proxy StartChildWorkflowExecutionCommandAttributes
_
= ByteString
"\n\
\,StartChildWorkflowExecutionCommandAttributes\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\US\n\
\\vworkflow_id\CAN\STX \SOH(\tR\n\
\workflowId\DC2I\n\
\\rworkflow_type\CAN\ETX \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2C\n\
\\n\
\task_queue\CAN\EOT \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\ttaskQueue\DC26\n\
\\ENQinput\CAN\ENQ \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2W\n\
\\SUBworkflow_execution_timeout\CAN\ACK \SOH(\v2\EM.google.protobuf.DurationR\CANworkflowExecutionTimeout\DC2K\n\
\\DC4workflow_run_timeout\CAN\a \SOH(\v2\EM.google.protobuf.DurationR\DC2workflowRunTimeout\DC2M\n\
\\NAKworkflow_task_timeout\CAN\b \SOH(\v2\EM.google.protobuf.DurationR\DC3workflowTaskTimeout\DC2X\n\
\\DC3parent_close_policy\CAN\t \SOH(\SO2(.temporal.api.enums.v1.ParentClosePolicyR\DC1parentClosePolicy\DC2\CAN\n\
\\acontrol\CAN\n\
\ \SOH(\tR\acontrol\DC2e\n\
\\CANworkflow_id_reuse_policy\CAN\v \SOH(\SO2,.temporal.api.enums.v1.WorkflowIdReusePolicyR\NAKworkflowIdReusePolicy\DC2F\n\
\\fretry_policy\CAN\f \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC2#\n\
\\rcron_schedule\CAN\r \SOH(\tR\fcronSchedule\DC26\n\
\\ACKheader\CAN\SO \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC20\n\
\\EOTmemo\CAN\SI \SOH(\v2\FS.temporal.api.common.v1.MemoR\EOTmemo\DC2U\n\
\\DC1search_attributes\CAN\DLE \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes\DC2(\n\
\\DLEinherit_build_id\CAN\DC1 \SOH(\bR\SOinheritBuildId"
packedFileDescriptor :: Proxy StartChildWorkflowExecutionCommandAttributes -> ByteString
packedFileDescriptor Proxy StartChildWorkflowExecutionCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor StartChildWorkflowExecutionCommandAttributes)
fieldsByTag
= let
namespace__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
namespace__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes Text
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"namespace"
(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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes 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 @"namespace")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowId__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes Text
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes 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 StartChildWorkflowExecutionCommandAttributes
workflowType__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowType__field_descriptor
= String
-> FieldTypeDescriptor WorkflowType
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes WorkflowType
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_type"
(MessageOrGroup -> FieldTypeDescriptor WorkflowType
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowType)
(Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes WorkflowType
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'workflowType")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
taskQueue__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
taskQueue__field_descriptor
= String
-> FieldTypeDescriptor TaskQueue
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes TaskQueue
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"task_queue"
(MessageOrGroup -> FieldTypeDescriptor TaskQueue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Taskqueue.V1.Message.TaskQueue)
(Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes TaskQueue
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'taskQueue")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
input__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
input__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes Payloads
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"input"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes Payloads
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'input")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowExecutionTimeout__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowExecutionTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes Duration
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_execution_timeout"
(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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes 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'workflowExecutionTimeout")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowRunTimeout__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowRunTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes Duration
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_run_timeout"
(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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes 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'workflowRunTimeout")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowTaskTimeout__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowTaskTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes Duration
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_task_timeout"
(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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes 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'workflowTaskTimeout")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
parentClosePolicy__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
parentClosePolicy__field_descriptor
= String
-> FieldTypeDescriptor ParentClosePolicy
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes ParentClosePolicy
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"parent_close_policy"
(ScalarField ParentClosePolicy
-> FieldTypeDescriptor ParentClosePolicy
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ParentClosePolicy
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Workflow.ParentClosePolicy)
(WireDefault ParentClosePolicy
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
ParentClosePolicy
ParentClosePolicy
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes ParentClosePolicy
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ParentClosePolicy
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 @"parentClosePolicy")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
control__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
control__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes Text
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"control"
(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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes 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 @"control")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowIdReusePolicy__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowIdReusePolicy__field_descriptor
= String
-> FieldTypeDescriptor WorkflowIdReusePolicy
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes WorkflowIdReusePolicy
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_id_reuse_policy"
(ScalarField WorkflowIdReusePolicy
-> FieldTypeDescriptor WorkflowIdReusePolicy
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField WorkflowIdReusePolicy
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Workflow.WorkflowIdReusePolicy)
(WireDefault WorkflowIdReusePolicy
-> Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
WorkflowIdReusePolicy
WorkflowIdReusePolicy
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes WorkflowIdReusePolicy
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault WorkflowIdReusePolicy
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 @"workflowIdReusePolicy")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
retryPolicy__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
retryPolicy__field_descriptor
= String
-> FieldTypeDescriptor RetryPolicy
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes RetryPolicy
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"retry_policy"
(MessageOrGroup -> FieldTypeDescriptor RetryPolicy
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.RetryPolicy)
(Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes RetryPolicy
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'retryPolicy")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
cronSchedule__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
cronSchedule__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes Text
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"cron_schedule"
(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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes 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 @"cronSchedule")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
header__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
header__field_descriptor
= String
-> FieldTypeDescriptor Header
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes Header
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"header"
(MessageOrGroup -> FieldTypeDescriptor Header
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Header)
(Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes Header
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'header")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
memo__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
memo__field_descriptor
= String
-> FieldTypeDescriptor Memo
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes Memo
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"memo"
(MessageOrGroup -> FieldTypeDescriptor Memo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Memo)
(Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes Memo
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'memo")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
searchAttributes__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
searchAttributes__field_descriptor
= String
-> FieldTypeDescriptor SearchAttributes
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes SearchAttributes
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"search_attributes"
(MessageOrGroup -> FieldTypeDescriptor SearchAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.SearchAttributes)
(Lens
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> FieldAccessor
StartChildWorkflowExecutionCommandAttributes SearchAttributes
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'searchAttributes")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
inheritBuildId__field_descriptor :: FieldDescriptor StartChildWorkflowExecutionCommandAttributes
inheritBuildId__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes Bool
-> FieldDescriptor StartChildWorkflowExecutionCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"inherit_build_id"
(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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Bool
Bool
-> FieldAccessor StartChildWorkflowExecutionCommandAttributes 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 @"inheritBuildId")) ::
Data.ProtoLens.FieldDescriptor StartChildWorkflowExecutionCommandAttributes
in
[(Tag,
FieldDescriptor StartChildWorkflowExecutionCommandAttributes)]
-> Map
Tag (FieldDescriptor StartChildWorkflowExecutionCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
namespace__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
taskQueue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
input__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowExecutionTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowRunTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowTaskTimeout__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
parentClosePolicy__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
control__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
workflowIdReusePolicy__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
retryPolicy__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
cronSchedule__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
14, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
header__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
15, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
memo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
16, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
searchAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
17, FieldDescriptor StartChildWorkflowExecutionCommandAttributes
inheritBuildId__field_descriptor)]
unknownFields :: Lens' StartChildWorkflowExecutionCommandAttributes FieldSet
unknownFields
= (StartChildWorkflowExecutionCommandAttributes -> FieldSet)
-> (StartChildWorkflowExecutionCommandAttributes
-> FieldSet -> StartChildWorkflowExecutionCommandAttributes)
-> Lens' StartChildWorkflowExecutionCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartChildWorkflowExecutionCommandAttributes -> FieldSet
_StartChildWorkflowExecutionCommandAttributes'_unknownFields
(\ StartChildWorkflowExecutionCommandAttributes
x__ FieldSet
y__
-> StartChildWorkflowExecutionCommandAttributes
x__
{_StartChildWorkflowExecutionCommandAttributes'_unknownFields = y__})
defMessage :: StartChildWorkflowExecutionCommandAttributes
defMessage
= StartChildWorkflowExecutionCommandAttributes'_constructor
{_StartChildWorkflowExecutionCommandAttributes'namespace :: Text
_StartChildWorkflowExecutionCommandAttributes'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartChildWorkflowExecutionCommandAttributes'workflowId :: Text
_StartChildWorkflowExecutionCommandAttributes'workflowId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartChildWorkflowExecutionCommandAttributes'workflowType :: Maybe WorkflowType
_StartChildWorkflowExecutionCommandAttributes'workflowType = Maybe WorkflowType
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'taskQueue :: Maybe TaskQueue
_StartChildWorkflowExecutionCommandAttributes'taskQueue = Maybe TaskQueue
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'input :: Maybe Payloads
_StartChildWorkflowExecutionCommandAttributes'input = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout :: Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout :: Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout :: Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'parentClosePolicy :: ParentClosePolicy
_StartChildWorkflowExecutionCommandAttributes'parentClosePolicy = ParentClosePolicy
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartChildWorkflowExecutionCommandAttributes'control :: Text
_StartChildWorkflowExecutionCommandAttributes'control = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartChildWorkflowExecutionCommandAttributes'workflowIdReusePolicy :: WorkflowIdReusePolicy
_StartChildWorkflowExecutionCommandAttributes'workflowIdReusePolicy = WorkflowIdReusePolicy
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartChildWorkflowExecutionCommandAttributes'retryPolicy :: Maybe RetryPolicy
_StartChildWorkflowExecutionCommandAttributes'retryPolicy = Maybe RetryPolicy
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'cronSchedule :: Text
_StartChildWorkflowExecutionCommandAttributes'cronSchedule = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartChildWorkflowExecutionCommandAttributes'header :: Maybe Header
_StartChildWorkflowExecutionCommandAttributes'header = Maybe Header
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'memo :: Maybe Memo
_StartChildWorkflowExecutionCommandAttributes'memo = Maybe Memo
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'searchAttributes :: Maybe SearchAttributes
_StartChildWorkflowExecutionCommandAttributes'searchAttributes = Maybe SearchAttributes
forall a. Maybe a
Prelude.Nothing,
_StartChildWorkflowExecutionCommandAttributes'inheritBuildId :: Bool
_StartChildWorkflowExecutionCommandAttributes'inheritBuildId = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartChildWorkflowExecutionCommandAttributes'_unknownFields :: FieldSet
_StartChildWorkflowExecutionCommandAttributes'_unknownFields = []}
parseMessage :: Parser StartChildWorkflowExecutionCommandAttributes
parseMessage
= let
loop ::
StartChildWorkflowExecutionCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser StartChildWorkflowExecutionCommandAttributes
loop :: StartChildWorkflowExecutionCommandAttributes
-> Parser StartChildWorkflowExecutionCommandAttributes
loop StartChildWorkflowExecutionCommandAttributes
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
"namespace"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"namespace") 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
"workflow_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"workflowId") y x)
Word64
26
-> do y <- Parser WorkflowType -> String -> Parser WorkflowType
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
"workflow_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowType") y x)
Word64
34
-> do y <- Parser TaskQueue -> String -> Parser TaskQueue
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
"task_queue"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"taskQueue") y x)
Word64
42
-> do y <- Parser Payloads -> String -> Parser Payloads
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
"input"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"input") y x)
Word64
50
-> 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
"workflow_execution_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowExecutionTimeout") y x)
Word64
58
-> 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
"workflow_run_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowRunTimeout") y x)
Word64
66
-> 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
"workflow_task_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowTaskTimeout") y x)
Word64
72
-> do y <- Parser ParentClosePolicy -> String -> Parser ParentClosePolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> ParentClosePolicy)
-> Parser Int -> Parser ParentClosePolicy
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> ParentClosePolicy
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
"parent_close_policy"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"parentClosePolicy") y x)
Word64
82
-> 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
"control"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"control") y x)
Word64
88
-> do y <- Parser WorkflowIdReusePolicy
-> String -> Parser WorkflowIdReusePolicy
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> WorkflowIdReusePolicy)
-> Parser Int -> Parser WorkflowIdReusePolicy
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> WorkflowIdReusePolicy
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
"workflow_id_reuse_policy"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowIdReusePolicy") y x)
Word64
98
-> do y <- Parser RetryPolicy -> String -> Parser RetryPolicy
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
"retry_policy"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"retryPolicy") y x)
Word64
106
-> 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
"cron_schedule"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"cronSchedule") y x)
Word64
114
-> do y <- Parser Header -> String -> Parser Header
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"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
Word64
122
-> do y <- Parser Memo -> String -> Parser Memo
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
"memo"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"memo") y x)
Word64
130
-> do y <- Parser SearchAttributes -> String -> Parser SearchAttributes
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
"search_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"searchAttributes") y x)
Word64
136
-> 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
"inherit_build_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"inheritBuildId") 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 StartChildWorkflowExecutionCommandAttributes
-> String -> Parser StartChildWorkflowExecutionCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do StartChildWorkflowExecutionCommandAttributes
-> Parser StartChildWorkflowExecutionCommandAttributes
loop StartChildWorkflowExecutionCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"StartChildWorkflowExecutionCommandAttributes"
buildMessage :: StartChildWorkflowExecutionCommandAttributes -> Builder
buildMessage
= \ StartChildWorkflowExecutionCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> StartChildWorkflowExecutionCommandAttributes -> 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 @"namespace") StartChildWorkflowExecutionCommandAttributes
_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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> StartChildWorkflowExecutionCommandAttributes -> 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") StartChildWorkflowExecutionCommandAttributes
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WorkflowType)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe WorkflowType)
(Maybe WorkflowType)
-> StartChildWorkflowExecutionCommandAttributes
-> Maybe WorkflowType
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'workflowType") StartChildWorkflowExecutionCommandAttributes
_x
of
Maybe WorkflowType
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkflowType
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (WorkflowType -> ByteString) -> WorkflowType -> 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))
WorkflowType -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TaskQueue)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe TaskQueue)
(Maybe TaskQueue)
-> StartChildWorkflowExecutionCommandAttributes -> Maybe TaskQueue
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'taskQueue") StartChildWorkflowExecutionCommandAttributes
_x
of
Maybe TaskQueue
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just TaskQueue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (TaskQueue -> ByteString) -> TaskQueue -> 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))
TaskQueue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TaskQueue
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Payloads)
(Maybe Payloads)
-> StartChildWorkflowExecutionCommandAttributes -> Maybe Payloads
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'input") StartChildWorkflowExecutionCommandAttributes
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> 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))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> StartChildWorkflowExecutionCommandAttributes -> 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'workflowExecutionTimeout") StartChildWorkflowExecutionCommandAttributes
_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
50)
((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.<>)
(case
FoldLike
(Maybe Duration)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> StartChildWorkflowExecutionCommandAttributes -> 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'workflowRunTimeout") StartChildWorkflowExecutionCommandAttributes
_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
58)
((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.<>)
(case
FoldLike
(Maybe Duration)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> StartChildWorkflowExecutionCommandAttributes -> 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'workflowTaskTimeout")
StartChildWorkflowExecutionCommandAttributes
_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
66)
((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 :: ParentClosePolicy
_v
= FoldLike
ParentClosePolicy
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
ParentClosePolicy
ParentClosePolicy
-> StartChildWorkflowExecutionCommandAttributes
-> ParentClosePolicy
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 @"parentClosePolicy") StartChildWorkflowExecutionCommandAttributes
_x
in
if ParentClosePolicy -> ParentClosePolicy -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ParentClosePolicy
_v ParentClosePolicy
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
72)
((Int -> Builder)
-> (ParentClosePolicy -> Int) -> ParentClosePolicy -> 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)
ParentClosePolicy -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ParentClosePolicy
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> StartChildWorkflowExecutionCommandAttributes -> 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 @"control") StartChildWorkflowExecutionCommandAttributes
_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
82)
((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 :: WorkflowIdReusePolicy
_v
= FoldLike
WorkflowIdReusePolicy
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
WorkflowIdReusePolicy
WorkflowIdReusePolicy
-> StartChildWorkflowExecutionCommandAttributes
-> WorkflowIdReusePolicy
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
@"workflowIdReusePolicy")
StartChildWorkflowExecutionCommandAttributes
_x
in
if WorkflowIdReusePolicy -> WorkflowIdReusePolicy -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) WorkflowIdReusePolicy
_v WorkflowIdReusePolicy
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)
((Int -> Builder)
-> (WorkflowIdReusePolicy -> Int)
-> WorkflowIdReusePolicy
-> 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)
WorkflowIdReusePolicy -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum WorkflowIdReusePolicy
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe RetryPolicy)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe RetryPolicy)
(Maybe RetryPolicy)
-> StartChildWorkflowExecutionCommandAttributes
-> Maybe RetryPolicy
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'retryPolicy")
StartChildWorkflowExecutionCommandAttributes
_x
of
Maybe RetryPolicy
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just RetryPolicy
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
((ByteString -> Builder)
-> (RetryPolicy -> ByteString) -> RetryPolicy -> 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))
RetryPolicy -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RetryPolicy
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Text
Text
-> StartChildWorkflowExecutionCommandAttributes -> 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
@"cronSchedule")
StartChildWorkflowExecutionCommandAttributes
_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
106)
((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 Header)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Header)
(Maybe Header)
-> StartChildWorkflowExecutionCommandAttributes -> Maybe Header
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'header")
StartChildWorkflowExecutionCommandAttributes
_x
of
Maybe Header
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Header
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word64
114)
((ByteString -> Builder)
-> (Header -> ByteString) -> Header -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Header
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Memo)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe Memo)
(Maybe Memo)
-> StartChildWorkflowExecutionCommandAttributes -> Maybe Memo
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'memo")
StartChildWorkflowExecutionCommandAttributes
_x
of
Maybe Memo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Memo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word64
122)
((ByteString -> Builder) -> (Memo -> ByteString) -> Memo -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Memo
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SearchAttributes)
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
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'searchAttributes")
StartChildWorkflowExecutionCommandAttributes
_x
of
Maybe SearchAttributes
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just SearchAttributes
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word64
130)
((ByteString -> Builder)
-> (SearchAttributes -> ByteString) -> SearchAttributes -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SearchAttributes
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
Bool
Bool
-> StartChildWorkflowExecutionCommandAttributes -> 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
@"inheritBuildId")
StartChildWorkflowExecutionCommandAttributes
_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
136)
((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
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
FieldSet
FieldSet
-> StartChildWorkflowExecutionCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike
FieldSet
StartChildWorkflowExecutionCommandAttributes
StartChildWorkflowExecutionCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartChildWorkflowExecutionCommandAttributes FieldSet
Data.ProtoLens.unknownFields
StartChildWorkflowExecutionCommandAttributes
_x))))))))))))))))))
instance Control.DeepSeq.NFData StartChildWorkflowExecutionCommandAttributes where
rnf :: StartChildWorkflowExecutionCommandAttributes -> ()
rnf
= \ StartChildWorkflowExecutionCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> FieldSet
_StartChildWorkflowExecutionCommandAttributes'_unknownFields StartChildWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'namespace StartChildWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'workflowId StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe WorkflowType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe WorkflowType
_StartChildWorkflowExecutionCommandAttributes'workflowType StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe TaskQueue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe TaskQueue
_StartChildWorkflowExecutionCommandAttributes'taskQueue StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe Payloads
_StartChildWorkflowExecutionCommandAttributes'input StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowExecutionTimeout
StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowRunTimeout
StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe Duration
_StartChildWorkflowExecutionCommandAttributes'workflowTaskTimeout
StartChildWorkflowExecutionCommandAttributes
x__)
(ParentClosePolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> ParentClosePolicy
_StartChildWorkflowExecutionCommandAttributes'parentClosePolicy
StartChildWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'control
StartChildWorkflowExecutionCommandAttributes
x__)
(WorkflowIdReusePolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes
-> WorkflowIdReusePolicy
_StartChildWorkflowExecutionCommandAttributes'workflowIdReusePolicy
StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe RetryPolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe RetryPolicy
_StartChildWorkflowExecutionCommandAttributes'retryPolicy
StartChildWorkflowExecutionCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Text
_StartChildWorkflowExecutionCommandAttributes'cronSchedule
StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe Header -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe Header
_StartChildWorkflowExecutionCommandAttributes'header
StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe Memo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Maybe Memo
_StartChildWorkflowExecutionCommandAttributes'memo
StartChildWorkflowExecutionCommandAttributes
x__)
(Maybe SearchAttributes -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes
-> Maybe SearchAttributes
_StartChildWorkflowExecutionCommandAttributes'searchAttributes
StartChildWorkflowExecutionCommandAttributes
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartChildWorkflowExecutionCommandAttributes -> Bool
_StartChildWorkflowExecutionCommandAttributes'inheritBuildId
StartChildWorkflowExecutionCommandAttributes
x__)
())))))))))))))))))
data StartTimerCommandAttributes
= StartTimerCommandAttributes'_constructor {StartTimerCommandAttributes -> Text
_StartTimerCommandAttributes'timerId :: !Data.Text.Text,
StartTimerCommandAttributes -> Maybe Duration
_StartTimerCommandAttributes'startToFireTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
StartTimerCommandAttributes -> FieldSet
_StartTimerCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
(StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Bool)
-> (StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Bool)
-> Eq StartTimerCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
== :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
$c/= :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
/= :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
Prelude.Eq, Eq StartTimerCommandAttributes
Eq StartTimerCommandAttributes =>
(StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Ordering)
-> (StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Bool)
-> (StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Bool)
-> (StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Bool)
-> (StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Bool)
-> (StartTimerCommandAttributes
-> StartTimerCommandAttributes -> StartTimerCommandAttributes)
-> (StartTimerCommandAttributes
-> StartTimerCommandAttributes -> StartTimerCommandAttributes)
-> Ord StartTimerCommandAttributes
StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Ordering
StartTimerCommandAttributes
-> StartTimerCommandAttributes -> StartTimerCommandAttributes
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 :: StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Ordering
compare :: StartTimerCommandAttributes
-> StartTimerCommandAttributes -> Ordering
$c< :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
< :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
$c<= :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
<= :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
$c> :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
> :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
$c>= :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
>= :: StartTimerCommandAttributes -> StartTimerCommandAttributes -> Bool
$cmax :: StartTimerCommandAttributes
-> StartTimerCommandAttributes -> StartTimerCommandAttributes
max :: StartTimerCommandAttributes
-> StartTimerCommandAttributes -> StartTimerCommandAttributes
$cmin :: StartTimerCommandAttributes
-> StartTimerCommandAttributes -> StartTimerCommandAttributes
min :: StartTimerCommandAttributes
-> StartTimerCommandAttributes -> StartTimerCommandAttributes
Prelude.Ord)
instance Prelude.Show StartTimerCommandAttributes where
showsPrec :: Int -> StartTimerCommandAttributes -> ShowS
showsPrec Int
_ StartTimerCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(StartTimerCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StartTimerCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StartTimerCommandAttributes "timerId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timerId"
-> (Text -> f Text)
-> StartTimerCommandAttributes
-> f StartTimerCommandAttributes
fieldOf Proxy# "timerId"
_
= ((Text -> f Text)
-> StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StartTimerCommandAttributes
-> f StartTimerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartTimerCommandAttributes -> Text)
-> (StartTimerCommandAttributes
-> Text -> StartTimerCommandAttributes)
-> Lens
StartTimerCommandAttributes StartTimerCommandAttributes Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartTimerCommandAttributes -> Text
_StartTimerCommandAttributes'timerId
(\ StartTimerCommandAttributes
x__ Text
y__ -> StartTimerCommandAttributes
x__ {_StartTimerCommandAttributes'timerId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StartTimerCommandAttributes "startToFireTimeout" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startToFireTimeout"
-> (Duration -> f Duration)
-> StartTimerCommandAttributes
-> f StartTimerCommandAttributes
fieldOf Proxy# "startToFireTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> StartTimerCommandAttributes
-> f StartTimerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartTimerCommandAttributes -> Maybe Duration)
-> (StartTimerCommandAttributes
-> Maybe Duration -> StartTimerCommandAttributes)
-> Lens
StartTimerCommandAttributes
StartTimerCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartTimerCommandAttributes -> Maybe Duration
_StartTimerCommandAttributes'startToFireTimeout
(\ StartTimerCommandAttributes
x__ Maybe Duration
y__
-> StartTimerCommandAttributes
x__ {_StartTimerCommandAttributes'startToFireTimeout = 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 StartTimerCommandAttributes "maybe'startToFireTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startToFireTimeout"
-> (Maybe Duration -> f (Maybe Duration))
-> StartTimerCommandAttributes
-> f StartTimerCommandAttributes
fieldOf Proxy# "maybe'startToFireTimeout"
_
= ((Maybe Duration -> f (Maybe Duration))
-> StartTimerCommandAttributes -> f StartTimerCommandAttributes)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> StartTimerCommandAttributes
-> f StartTimerCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StartTimerCommandAttributes -> Maybe Duration)
-> (StartTimerCommandAttributes
-> Maybe Duration -> StartTimerCommandAttributes)
-> Lens
StartTimerCommandAttributes
StartTimerCommandAttributes
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartTimerCommandAttributes -> Maybe Duration
_StartTimerCommandAttributes'startToFireTimeout
(\ StartTimerCommandAttributes
x__ Maybe Duration
y__
-> StartTimerCommandAttributes
x__ {_StartTimerCommandAttributes'startToFireTimeout = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StartTimerCommandAttributes where
messageName :: Proxy StartTimerCommandAttributes -> Text
messageName Proxy StartTimerCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.StartTimerCommandAttributes"
packedMessageDescriptor :: Proxy StartTimerCommandAttributes -> ByteString
packedMessageDescriptor Proxy StartTimerCommandAttributes
_
= ByteString
"\n\
\\ESCStartTimerCommandAttributes\DC2\EM\n\
\\btimer_id\CAN\SOH \SOH(\tR\atimerId\DC2L\n\
\\NAKstart_to_fire_timeout\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\DC2startToFireTimeout"
packedFileDescriptor :: Proxy StartTimerCommandAttributes -> ByteString
packedFileDescriptor Proxy StartTimerCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor StartTimerCommandAttributes)
fieldsByTag
= let
timerId__field_descriptor :: FieldDescriptor StartTimerCommandAttributes
timerId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor StartTimerCommandAttributes Text
-> FieldDescriptor StartTimerCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"timer_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
StartTimerCommandAttributes StartTimerCommandAttributes Text Text
-> FieldAccessor StartTimerCommandAttributes 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 @"timerId")) ::
Data.ProtoLens.FieldDescriptor StartTimerCommandAttributes
startToFireTimeout__field_descriptor :: FieldDescriptor StartTimerCommandAttributes
startToFireTimeout__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor StartTimerCommandAttributes Duration
-> FieldDescriptor StartTimerCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"start_to_fire_timeout"
(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
StartTimerCommandAttributes
StartTimerCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor StartTimerCommandAttributes 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'startToFireTimeout")) ::
Data.ProtoLens.FieldDescriptor StartTimerCommandAttributes
in
[(Tag, FieldDescriptor StartTimerCommandAttributes)]
-> Map Tag (FieldDescriptor StartTimerCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StartTimerCommandAttributes
timerId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StartTimerCommandAttributes
startToFireTimeout__field_descriptor)]
unknownFields :: Lens' StartTimerCommandAttributes FieldSet
unknownFields
= (StartTimerCommandAttributes -> FieldSet)
-> (StartTimerCommandAttributes
-> FieldSet -> StartTimerCommandAttributes)
-> Lens' StartTimerCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StartTimerCommandAttributes -> FieldSet
_StartTimerCommandAttributes'_unknownFields
(\ StartTimerCommandAttributes
x__ FieldSet
y__
-> StartTimerCommandAttributes
x__ {_StartTimerCommandAttributes'_unknownFields = y__})
defMessage :: StartTimerCommandAttributes
defMessage
= StartTimerCommandAttributes'_constructor
{_StartTimerCommandAttributes'timerId :: Text
_StartTimerCommandAttributes'timerId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_StartTimerCommandAttributes'startToFireTimeout :: Maybe Duration
_StartTimerCommandAttributes'startToFireTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_StartTimerCommandAttributes'_unknownFields :: FieldSet
_StartTimerCommandAttributes'_unknownFields = []}
parseMessage :: Parser StartTimerCommandAttributes
parseMessage
= let
loop ::
StartTimerCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser StartTimerCommandAttributes
loop :: StartTimerCommandAttributes -> Parser StartTimerCommandAttributes
loop StartTimerCommandAttributes
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
"timer_id"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"timerId") y x)
Word64
18
-> 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
"start_to_fire_timeout"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"startToFireTimeout") 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 StartTimerCommandAttributes
-> String -> Parser StartTimerCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do StartTimerCommandAttributes -> Parser StartTimerCommandAttributes
loop StartTimerCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StartTimerCommandAttributes"
buildMessage :: StartTimerCommandAttributes -> Builder
buildMessage
= \ StartTimerCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
StartTimerCommandAttributes
StartTimerCommandAttributes
Text
Text
-> StartTimerCommandAttributes -> 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 @"timerId") StartTimerCommandAttributes
_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 Duration)
StartTimerCommandAttributes
StartTimerCommandAttributes
(Maybe Duration)
(Maybe Duration)
-> StartTimerCommandAttributes -> 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'startToFireTimeout") StartTimerCommandAttributes
_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
18)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
StartTimerCommandAttributes
StartTimerCommandAttributes
FieldSet
FieldSet
-> StartTimerCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
StartTimerCommandAttributes
StartTimerCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StartTimerCommandAttributes FieldSet
Data.ProtoLens.unknownFields StartTimerCommandAttributes
_x)))
instance Control.DeepSeq.NFData StartTimerCommandAttributes where
rnf :: StartTimerCommandAttributes -> ()
rnf
= \ StartTimerCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartTimerCommandAttributes -> FieldSet
_StartTimerCommandAttributes'_unknownFields StartTimerCommandAttributes
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartTimerCommandAttributes -> Text
_StartTimerCommandAttributes'timerId StartTimerCommandAttributes
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StartTimerCommandAttributes -> Maybe Duration
_StartTimerCommandAttributes'startToFireTimeout StartTimerCommandAttributes
x__) ()))
data UpsertWorkflowSearchAttributesCommandAttributes
= UpsertWorkflowSearchAttributesCommandAttributes'_constructor {UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes
_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes),
UpsertWorkflowSearchAttributesCommandAttributes -> FieldSet
_UpsertWorkflowSearchAttributesCommandAttributes'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
(UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool)
-> Eq UpsertWorkflowSearchAttributesCommandAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
== :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
$c/= :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
/= :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
Prelude.Eq, Eq UpsertWorkflowSearchAttributesCommandAttributes
Eq UpsertWorkflowSearchAttributesCommandAttributes =>
(UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Ordering)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes)
-> Ord UpsertWorkflowSearchAttributesCommandAttributes
UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Ordering
UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
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 :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Ordering
compare :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Ordering
$c< :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
< :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
$c<= :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
<= :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
$c> :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
> :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
$c>= :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
>= :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes -> Bool
$cmax :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
max :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
$cmin :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
min :: UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes
Prelude.Ord)
instance Prelude.Show UpsertWorkflowSearchAttributesCommandAttributes where
showsPrec :: Int -> UpsertWorkflowSearchAttributesCommandAttributes -> ShowS
showsPrec Int
_ UpsertWorkflowSearchAttributesCommandAttributes
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(UpsertWorkflowSearchAttributesCommandAttributes -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UpsertWorkflowSearchAttributesCommandAttributes
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField UpsertWorkflowSearchAttributesCommandAttributes "searchAttributes" Proto.Temporal.Api.Common.V1.Message.SearchAttributes where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "searchAttributes"
-> (SearchAttributes -> f SearchAttributes)
-> UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes
fieldOf Proxy# "searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes)
-> ((SearchAttributes -> f SearchAttributes)
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (SearchAttributes -> f SearchAttributes)
-> UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes)
-> Lens
UpsertWorkflowSearchAttributesCommandAttributes
UpsertWorkflowSearchAttributesCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes
_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes
(\ UpsertWorkflowSearchAttributesCommandAttributes
x__ Maybe SearchAttributes
y__
-> UpsertWorkflowSearchAttributesCommandAttributes
x__
{_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes = y__}))
(SearchAttributes -> Lens' (Maybe SearchAttributes) SearchAttributes
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SearchAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField UpsertWorkflowSearchAttributesCommandAttributes "maybe'searchAttributes" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.SearchAttributes) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'searchAttributes"
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes
fieldOf Proxy# "maybe'searchAttributes"
_
= ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes)
-> ((Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> (Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> UpsertWorkflowSearchAttributesCommandAttributes
-> f UpsertWorkflowSearchAttributesCommandAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes
-> UpsertWorkflowSearchAttributesCommandAttributes)
-> Lens
UpsertWorkflowSearchAttributesCommandAttributes
UpsertWorkflowSearchAttributesCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes
_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes
(\ UpsertWorkflowSearchAttributesCommandAttributes
x__ Maybe SearchAttributes
y__
-> UpsertWorkflowSearchAttributesCommandAttributes
x__
{_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes = y__}))
(Maybe SearchAttributes -> f (Maybe SearchAttributes))
-> Maybe SearchAttributes -> f (Maybe SearchAttributes)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UpsertWorkflowSearchAttributesCommandAttributes where
messageName :: Proxy UpsertWorkflowSearchAttributesCommandAttributes -> Text
messageName Proxy UpsertWorkflowSearchAttributesCommandAttributes
_
= String -> Text
Data.Text.pack
String
"temporal.api.command.v1.UpsertWorkflowSearchAttributesCommandAttributes"
packedMessageDescriptor :: Proxy UpsertWorkflowSearchAttributesCommandAttributes -> ByteString
packedMessageDescriptor Proxy UpsertWorkflowSearchAttributesCommandAttributes
_
= ByteString
"\n\
\/UpsertWorkflowSearchAttributesCommandAttributes\DC2U\n\
\\DC1search_attributes\CAN\SOH \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes"
packedFileDescriptor :: Proxy UpsertWorkflowSearchAttributesCommandAttributes -> ByteString
packedFileDescriptor Proxy UpsertWorkflowSearchAttributesCommandAttributes
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor UpsertWorkflowSearchAttributesCommandAttributes)
fieldsByTag
= let
searchAttributes__field_descriptor :: FieldDescriptor UpsertWorkflowSearchAttributesCommandAttributes
searchAttributes__field_descriptor
= String
-> FieldTypeDescriptor SearchAttributes
-> FieldAccessor
UpsertWorkflowSearchAttributesCommandAttributes SearchAttributes
-> FieldDescriptor UpsertWorkflowSearchAttributesCommandAttributes
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"search_attributes"
(MessageOrGroup -> FieldTypeDescriptor SearchAttributes
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.SearchAttributes)
(Lens
UpsertWorkflowSearchAttributesCommandAttributes
UpsertWorkflowSearchAttributesCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> FieldAccessor
UpsertWorkflowSearchAttributesCommandAttributes SearchAttributes
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'searchAttributes")) ::
Data.ProtoLens.FieldDescriptor UpsertWorkflowSearchAttributesCommandAttributes
in
[(Tag,
FieldDescriptor UpsertWorkflowSearchAttributesCommandAttributes)]
-> Map
Tag
(FieldDescriptor UpsertWorkflowSearchAttributesCommandAttributes)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor UpsertWorkflowSearchAttributesCommandAttributes
searchAttributes__field_descriptor)]
unknownFields :: Lens' UpsertWorkflowSearchAttributesCommandAttributes FieldSet
unknownFields
= (UpsertWorkflowSearchAttributesCommandAttributes -> FieldSet)
-> (UpsertWorkflowSearchAttributesCommandAttributes
-> FieldSet -> UpsertWorkflowSearchAttributesCommandAttributes)
-> Lens' UpsertWorkflowSearchAttributesCommandAttributes FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
UpsertWorkflowSearchAttributesCommandAttributes -> FieldSet
_UpsertWorkflowSearchAttributesCommandAttributes'_unknownFields
(\ UpsertWorkflowSearchAttributesCommandAttributes
x__ FieldSet
y__
-> UpsertWorkflowSearchAttributesCommandAttributes
x__
{_UpsertWorkflowSearchAttributesCommandAttributes'_unknownFields = y__})
defMessage :: UpsertWorkflowSearchAttributesCommandAttributes
defMessage
= UpsertWorkflowSearchAttributesCommandAttributes'_constructor
{_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes :: Maybe SearchAttributes
_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes = Maybe SearchAttributes
forall a. Maybe a
Prelude.Nothing,
_UpsertWorkflowSearchAttributesCommandAttributes'_unknownFields :: FieldSet
_UpsertWorkflowSearchAttributesCommandAttributes'_unknownFields = []}
parseMessage :: Parser UpsertWorkflowSearchAttributesCommandAttributes
parseMessage
= let
loop ::
UpsertWorkflowSearchAttributesCommandAttributes
-> Data.ProtoLens.Encoding.Bytes.Parser UpsertWorkflowSearchAttributesCommandAttributes
loop :: UpsertWorkflowSearchAttributesCommandAttributes
-> Parser UpsertWorkflowSearchAttributesCommandAttributes
loop UpsertWorkflowSearchAttributesCommandAttributes
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 SearchAttributes -> String -> Parser SearchAttributes
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
"search_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"searchAttributes") 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 UpsertWorkflowSearchAttributesCommandAttributes
-> String -> Parser UpsertWorkflowSearchAttributesCommandAttributes
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do UpsertWorkflowSearchAttributesCommandAttributes
-> Parser UpsertWorkflowSearchAttributesCommandAttributes
loop UpsertWorkflowSearchAttributesCommandAttributes
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"UpsertWorkflowSearchAttributesCommandAttributes"
buildMessage :: UpsertWorkflowSearchAttributesCommandAttributes -> Builder
buildMessage
= \ UpsertWorkflowSearchAttributesCommandAttributes
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SearchAttributes)
UpsertWorkflowSearchAttributesCommandAttributes
UpsertWorkflowSearchAttributesCommandAttributes
(Maybe SearchAttributes)
(Maybe SearchAttributes)
-> UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes
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'searchAttributes") UpsertWorkflowSearchAttributesCommandAttributes
_x
of
Maybe SearchAttributes
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just SearchAttributes
_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 -> ByteString) -> SearchAttributes -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage SearchAttributes
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
UpsertWorkflowSearchAttributesCommandAttributes
UpsertWorkflowSearchAttributesCommandAttributes
FieldSet
FieldSet
-> UpsertWorkflowSearchAttributesCommandAttributes -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
UpsertWorkflowSearchAttributesCommandAttributes
UpsertWorkflowSearchAttributesCommandAttributes
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' UpsertWorkflowSearchAttributesCommandAttributes FieldSet
Data.ProtoLens.unknownFields UpsertWorkflowSearchAttributesCommandAttributes
_x))
instance Control.DeepSeq.NFData UpsertWorkflowSearchAttributesCommandAttributes where
rnf :: UpsertWorkflowSearchAttributesCommandAttributes -> ()
rnf
= \ UpsertWorkflowSearchAttributesCommandAttributes
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(UpsertWorkflowSearchAttributesCommandAttributes -> FieldSet
_UpsertWorkflowSearchAttributesCommandAttributes'_unknownFields
UpsertWorkflowSearchAttributesCommandAttributes
x__)
(Maybe SearchAttributes -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(UpsertWorkflowSearchAttributesCommandAttributes
-> Maybe SearchAttributes
_UpsertWorkflowSearchAttributesCommandAttributes'searchAttributes
UpsertWorkflowSearchAttributesCommandAttributes
x__)
())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\%temporal/api/command/v1/message.proto\DC2\ETBtemporal.api.command.v1\SUB\RSgoogle/protobuf/duration.proto\SUB$temporal/api/enums/v1/workflow.proto\SUB(temporal/api/enums/v1/command_type.proto\SUB$temporal/api/common/v1/message.proto\SUB%temporal/api/failure/v1/message.proto\SUB'temporal/api/taskqueue/v1/message.proto\"\197\ACK\n\
\%ScheduleActivityTaskCommandAttributes\DC2\US\n\
\\vactivity_id\CAN\SOH \SOH(\tR\n\
\activityId\DC2I\n\
\\ractivity_type\CAN\STX \SOH(\v2$.temporal.api.common.v1.ActivityTypeR\factivityType\DC2C\n\
\\n\
\task_queue\CAN\EOT \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\ttaskQueue\DC26\n\
\\ACKheader\CAN\ENQ \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC26\n\
\\ENQinput\CAN\ACK \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2T\n\
\\EMschedule_to_close_timeout\CAN\a \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToCloseTimeout\DC2T\n\
\\EMschedule_to_start_timeout\CAN\b \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToStartTimeout\DC2N\n\
\\SYNstart_to_close_timeout\CAN\t \SOH(\v2\EM.google.protobuf.DurationR\DC3startToCloseTimeout\DC2F\n\
\\DC1heartbeat_timeout\CAN\n\
\ \SOH(\v2\EM.google.protobuf.DurationR\DLEheartbeatTimeout\DC2F\n\
\\fretry_policy\CAN\v \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC26\n\
\\ETBrequest_eager_execution\CAN\f \SOH(\bR\NAKrequestEagerExecution\DC21\n\
\\NAKuse_workflow_build_id\CAN\r \SOH(\bR\DC2useWorkflowBuildIdJ\EOT\b\ETX\DLE\EOT\"Z\n\
\*RequestCancelActivityTaskCommandAttributes\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId\"\134\SOH\n\
\\ESCStartTimerCommandAttributes\DC2\EM\n\
\\btimer_id\CAN\SOH \SOH(\tR\atimerId\DC2L\n\
\\NAKstart_to_fire_timeout\CAN\STX \SOH(\v2\EM.google.protobuf.DurationR\DC2startToFireTimeout\"f\n\
\*CompleteWorkflowExecutionCommandAttributes\DC28\n\
\\ACKresult\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\ACKresult\"d\n\
\&FailWorkflowExecutionCommandAttributes\DC2:\n\
\\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\"9\n\
\\FSCancelTimerCommandAttributes\DC2\EM\n\
\\btimer_id\CAN\SOH \SOH(\tR\atimerId\"f\n\
\(CancelWorkflowExecutionCommandAttributes\DC2:\n\
\\adetails\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\adetails\"\241\SOH\n\
\7RequestCancelExternalWorkflowExecutionCommandAttributes\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\US\n\
\\vworkflow_id\CAN\STX \SOH(\tR\n\
\workflowId\DC2\NAK\n\
\\ACKrun_id\CAN\ETX \SOH(\tR\ENQrunId\DC2\CAN\n\
\\acontrol\CAN\EOT \SOH(\tR\acontrol\DC2.\n\
\\DC3child_workflow_only\CAN\ENQ \SOH(\bR\DC1childWorkflowOnly\DC2\SYN\n\
\\ACKreason\CAN\ACK \SOH(\tR\ACKreason\"\244\STX\n\
\0SignalExternalWorkflowExecutionCommandAttributes\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2G\n\
\\texecution\CAN\STX \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\texecution\DC2\US\n\
\\vsignal_name\CAN\ETX \SOH(\tR\n\
\signalName\DC26\n\
\\ENQinput\CAN\EOT \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2\CAN\n\
\\acontrol\CAN\ENQ \SOH(\tR\acontrol\DC2.\n\
\\DC3child_workflow_only\CAN\ACK \SOH(\bR\DC1childWorkflowOnly\DC26\n\
\\ACKheader\CAN\a \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\"\136\SOH\n\
\/UpsertWorkflowSearchAttributesCommandAttributes\DC2U\n\
\\DC1search_attributes\CAN\SOH \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes\"n\n\
\)ModifyWorkflowPropertiesCommandAttributes\DC2A\n\
\\rupserted_memo\CAN\SOH \SOH(\v2\FS.temporal.api.common.v1.MemoR\fupsertedMemo\"\241\STX\n\
\\GSRecordMarkerCommandAttributes\DC2\US\n\
\\vmarker_name\CAN\SOH \SOH(\tR\n\
\markerName\DC2]\n\
\\adetails\CAN\STX \ETX(\v2C.temporal.api.command.v1.RecordMarkerCommandAttributes.DetailsEntryR\adetails\DC26\n\
\\ACKheader\CAN\ETX \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC2:\n\
\\afailure\CAN\EOT \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\SUB\\\n\
\\fDetailsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC26\n\
\\ENQvalue\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQvalue:\STX8\SOH\"\159\b\n\
\/ContinueAsNewWorkflowExecutionCommandAttributes\DC2I\n\
\\rworkflow_type\CAN\SOH \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2C\n\
\\n\
\task_queue\CAN\STX \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\ttaskQueue\DC26\n\
\\ENQinput\CAN\ETX \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2K\n\
\\DC4workflow_run_timeout\CAN\EOT \SOH(\v2\EM.google.protobuf.DurationR\DC2workflowRunTimeout\DC2M\n\
\\NAKworkflow_task_timeout\CAN\ENQ \SOH(\v2\EM.google.protobuf.DurationR\DC3workflowTaskTimeout\DC2O\n\
\\SYNbackoff_start_interval\CAN\ACK \SOH(\v2\EM.google.protobuf.DurationR\DC4backoffStartInterval\DC2F\n\
\\fretry_policy\CAN\a \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC2K\n\
\\tinitiator\CAN\b \SOH(\SO2-.temporal.api.enums.v1.ContinueAsNewInitiatorR\tinitiator\DC2:\n\
\\afailure\CAN\t \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\DC2V\n\
\\SYNlast_completion_result\CAN\n\
\ \SOH(\v2 .temporal.api.common.v1.PayloadsR\DC4lastCompletionResult\DC2#\n\
\\rcron_schedule\CAN\v \SOH(\tR\fcronSchedule\DC26\n\
\\ACKheader\CAN\f \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC20\n\
\\EOTmemo\CAN\r \SOH(\v2\FS.temporal.api.common.v1.MemoR\EOTmemo\DC2U\n\
\\DC1search_attributes\CAN\SO \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes\DC2(\n\
\\DLEinherit_build_id\CAN\SI \SOH(\bR\SOinheritBuildId\"\221\b\n\
\,StartChildWorkflowExecutionCommandAttributes\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2\US\n\
\\vworkflow_id\CAN\STX \SOH(\tR\n\
\workflowId\DC2I\n\
\\rworkflow_type\CAN\ETX \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2C\n\
\\n\
\task_queue\CAN\EOT \SOH(\v2$.temporal.api.taskqueue.v1.TaskQueueR\ttaskQueue\DC26\n\
\\ENQinput\CAN\ENQ \SOH(\v2 .temporal.api.common.v1.PayloadsR\ENQinput\DC2W\n\
\\SUBworkflow_execution_timeout\CAN\ACK \SOH(\v2\EM.google.protobuf.DurationR\CANworkflowExecutionTimeout\DC2K\n\
\\DC4workflow_run_timeout\CAN\a \SOH(\v2\EM.google.protobuf.DurationR\DC2workflowRunTimeout\DC2M\n\
\\NAKworkflow_task_timeout\CAN\b \SOH(\v2\EM.google.protobuf.DurationR\DC3workflowTaskTimeout\DC2X\n\
\\DC3parent_close_policy\CAN\t \SOH(\SO2(.temporal.api.enums.v1.ParentClosePolicyR\DC1parentClosePolicy\DC2\CAN\n\
\\acontrol\CAN\n\
\ \SOH(\tR\acontrol\DC2e\n\
\\CANworkflow_id_reuse_policy\CAN\v \SOH(\SO2,.temporal.api.enums.v1.WorkflowIdReusePolicyR\NAKworkflowIdReusePolicy\DC2F\n\
\\fretry_policy\CAN\f \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC2#\n\
\\rcron_schedule\CAN\r \SOH(\tR\fcronSchedule\DC26\n\
\\ACKheader\CAN\SO \SOH(\v2\RS.temporal.api.common.v1.HeaderR\ACKheader\DC20\n\
\\EOTmemo\CAN\SI \SOH(\v2\FS.temporal.api.common.v1.MemoR\EOTmemo\DC2U\n\
\\DC1search_attributes\CAN\DLE \SOH(\v2(.temporal.api.common.v1.SearchAttributesR\DLEsearchAttributes\DC2(\n\
\\DLEinherit_build_id\CAN\DC1 \SOH(\bR\SOinheritBuildId\"A\n\
\ ProtocolMessageCommandAttributes\DC2\GS\n\
\\n\
\message_id\CAN\SOH \SOH(\tR\tmessageId\"\192\ETX\n\
\'ScheduleNexusOperationCommandAttributes\DC2\SUB\n\
\\bendpoint\CAN\SOH \SOH(\tR\bendpoint\DC2\CAN\n\
\\aservice\CAN\STX \SOH(\tR\aservice\DC2\FS\n\
\\toperation\CAN\ETX \SOH(\tR\toperation\DC25\n\
\\ENQinput\CAN\EOT \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQinput\DC2T\n\
\\EMschedule_to_close_timeout\CAN\ENQ \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToCloseTimeout\DC2t\n\
\\fnexus_header\CAN\ACK \ETX(\v2Q.temporal.api.command.v1.ScheduleNexusOperationCommandAttributes.NexusHeaderEntryR\vnexusHeader\SUB>\n\
\\DLENexusHeaderEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"\\\n\
\,RequestCancelNexusOperationCommandAttributes\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId\"\231\SYN\n\
\\aCommand\DC2E\n\
\\fcommand_type\CAN\SOH \SOH(\SO2\".temporal.api.enums.v1.CommandTypeR\vcommandType\DC2\154\SOH\n\
\)schedule_activity_task_command_attributes\CAN\STX \SOH(\v2>.temporal.api.command.v1.ScheduleActivityTaskCommandAttributesH\NULR%scheduleActivityTaskCommandAttributes\DC2{\n\
\\RSstart_timer_command_attributes\CAN\ETX \SOH(\v24.temporal.api.command.v1.StartTimerCommandAttributesH\NULR\ESCstartTimerCommandAttributes\DC2\169\SOH\n\
\.complete_workflow_execution_command_attributes\CAN\EOT \SOH(\v2C.temporal.api.command.v1.CompleteWorkflowExecutionCommandAttributesH\NULR*completeWorkflowExecutionCommandAttributes\DC2\157\SOH\n\
\*fail_workflow_execution_command_attributes\CAN\ENQ \SOH(\v2?.temporal.api.command.v1.FailWorkflowExecutionCommandAttributesH\NULR&failWorkflowExecutionCommandAttributes\DC2\170\SOH\n\
\/request_cancel_activity_task_command_attributes\CAN\ACK \SOH(\v2C.temporal.api.command.v1.RequestCancelActivityTaskCommandAttributesH\NULR*requestCancelActivityTaskCommandAttributes\DC2~\n\
\\UScancel_timer_command_attributes\CAN\a \SOH(\v25.temporal.api.command.v1.CancelTimerCommandAttributesH\NULR\FScancelTimerCommandAttributes\DC2\163\SOH\n\
\,cancel_workflow_execution_command_attributes\CAN\b \SOH(\v2A.temporal.api.command.v1.CancelWorkflowExecutionCommandAttributesH\NULR(cancelWorkflowExecutionCommandAttributes\DC2\210\SOH\n\
\=request_cancel_external_workflow_execution_command_attributes\CAN\t \SOH(\v2P.temporal.api.command.v1.RequestCancelExternalWorkflowExecutionCommandAttributesH\NULR7requestCancelExternalWorkflowExecutionCommandAttributes\DC2\129\SOH\n\
\ record_marker_command_attributes\CAN\n\
\ \SOH(\v26.temporal.api.command.v1.RecordMarkerCommandAttributesH\NULR\GSrecordMarkerCommandAttributes\DC2\186\SOH\n\
\5continue_as_new_workflow_execution_command_attributes\CAN\v \SOH(\v2H.temporal.api.command.v1.ContinueAsNewWorkflowExecutionCommandAttributesH\NULR/continueAsNewWorkflowExecutionCommandAttributes\DC2\176\SOH\n\
\1start_child_workflow_execution_command_attributes\CAN\f \SOH(\v2E.temporal.api.command.v1.StartChildWorkflowExecutionCommandAttributesH\NULR,startChildWorkflowExecutionCommandAttributes\DC2\188\SOH\n\
\5signal_external_workflow_execution_command_attributes\CAN\r \SOH(\v2I.temporal.api.command.v1.SignalExternalWorkflowExecutionCommandAttributesH\NULR0signalExternalWorkflowExecutionCommandAttributes\DC2\185\SOH\n\
\4upsert_workflow_search_attributes_command_attributes\CAN\SO \SOH(\v2H.temporal.api.command.v1.UpsertWorkflowSearchAttributesCommandAttributesH\NULR/upsertWorkflowSearchAttributesCommandAttributes\DC2\138\SOH\n\
\#protocol_message_command_attributes\CAN\SI \SOH(\v29.temporal.api.command.v1.ProtocolMessageCommandAttributesH\NULR protocolMessageCommandAttributes\DC2\166\SOH\n\
\-modify_workflow_properties_command_attributes\CAN\DC1 \SOH(\v2B.temporal.api.command.v1.ModifyWorkflowPropertiesCommandAttributesH\NULR)modifyWorkflowPropertiesCommandAttributes\DC2\160\SOH\n\
\+schedule_nexus_operation_command_attributes\CAN\DC2 \SOH(\v2@.temporal.api.command.v1.ScheduleNexusOperationCommandAttributesH\NULR'scheduleNexusOperationCommandAttributes\DC2\176\SOH\n\
\1request_cancel_nexus_operation_command_attributes\CAN\DC3 \SOH(\v2E.temporal.api.command.v1.RequestCancelNexusOperationCommandAttributesH\NULR,requestCancelNexusOperationCommandAttributesB\f\n\
\\n\
\attributesB\142\SOH\n\
\\SUBio.temporal.api.command.v1B\fMessageProtoP\SOHZ%go.temporal.io/api/command/v1;command\170\STX\EMTemporalio.Api.Command.V1\234\STX\FSTemporalio::Api::Command::V1J\202j\n\
\\a\DC2\ENQ\SYN\NUL\162\STX\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 \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\NUL3\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\ESC\NUL3\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\NUL5\n\
\\t\n\
\\STX\b-\DC2\ETX\RS\NUL5\n\
\\b\n\
\\SOH\b\DC2\ETX\US\NUL6\n\
\\t\n\
\\STX\b%\DC2\ETX\US\NUL6\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$\NUL2\n\
\\t\n\
\\STX\ETX\ETX\DC2\ETX%\NUL.\n\
\\t\n\
\\STX\ETX\EOT\DC2\ETX&\NUL/\n\
\\t\n\
\\STX\ETX\ENQ\DC2\ETX'\NUL1\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT)\NULV\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX)\b-\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX*\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX*\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX*\v\SYN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX*\EM\SUB\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX+\EOT:\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX+\EOT'\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX+(5\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX+89\n\
\j\n\
\\ETX\EOT\NUL\t\DC2\ETX-\EOT\SI\SUB^ This used to be a `namespace` field which allowed to schedule activity in another namespace.\n\
\\n\
\\v\n\
\\EOT\EOT\NUL\t\NUL\DC2\ETX-\r\SO\n\
\\f\n\
\\ENQ\EOT\NUL\t\NUL\SOH\DC2\ETX-\r\SO\n\
\\f\n\
\\ENQ\EOT\NUL\t\NUL\STX\DC2\ETX-\r\SO\n\
\\v\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX.\EOT7\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX.\EOT'\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX.(2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX.56\n\
\\v\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX/\EOT-\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX/\EOT!\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX/\"(\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX/+,\n\
\\v\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETX0\EOT.\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX0\EOT#\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX0$)\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX0,-\n\
\\231\ETX\n\
\\EOT\EOT\NUL\STX\ENQ\DC2\ETX8\EOT;\SUB\217\ETX Indicates how long the caller is willing to wait for activity completion. The \"schedule\" time\n\
\ is when the activity is initially scheduled, not when the most recent retry is scheduled.\n\
\ Limits how long retries will be attempted. Either this or `start_to_close_timeout` must be\n\
\ specified. When not specified, defaults to the workflow execution timeout.\n\
\\n\
\ (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: \"to\" is used to indicate interval. --)\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ACK\DC2\ETX8\EOT\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX8\GS6\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX89:\n\
\\175\ENQ\n\
\\EOT\EOT\NUL\STX\ACK\DC2\ETXC\EOT;\SUB\161\ENQ Limits the time an activity task can stay in a task queue before a worker picks it up. The\n\
\ \"schedule\" time is when the most recent retry is scheduled. This timeout should usually not\n\
\ be set: it's useful in specific scenarios like worker-specific task queues. This timeout is\n\
\ always non retryable, as all a retry would achieve is to put it back into the same queue.\n\
\ Defaults to `schedule_to_close_timeout` or workflow execution timeout if that is not\n\
\ specified. More info:\n\
\ https://docs.temporal.io/docs/content/what-is-a-schedule-to-start-timeout/\n\
\\n\
\ (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: \"to\" is used to indicate interval. --)\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ACK\DC2\ETXC\EOT\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETXC\GS6\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETXC9:\n\
\\185\STX\n\
\\EOT\EOT\NUL\STX\a\DC2\ETXI\EOT8\SUB\171\STX Maximum time an activity is allowed to execute after being picked up by a worker. This\n\
\ timeout is always retryable. Either this or `schedule_to_close_timeout` must be specified.\n\
\\n\
\ (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: \"to\" is used to indicate interval. --)\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ACK\DC2\ETXI\EOT\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\SOH\DC2\ETXI\GS3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ETX\DC2\ETXI67\n\
\K\n\
\\EOT\EOT\NUL\STX\b\DC2\ETXK\EOT4\SUB> Maximum permitted time between successful worker heartbeats.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ACK\DC2\ETXK\EOT\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\SOH\DC2\ETXK\GS.\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ETX\DC2\ETXK13\n\
\\136\STX\n\
\\EOT\EOT\NUL\STX\t\DC2\ETXO\EOT9\SUB\250\SOH Activities are provided by a default retry policy which is controlled through the service's\n\
\ dynamic configuration. Retries will be attempted until `schedule_to_close_timeout` has\n\
\ elapsed. To disable retries set retry_policy.maximum_attempts to 1.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\ACK\DC2\ETXO\EOT&\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\SOH\DC2\ETXO'3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\ETX\DC2\ETXO68\n\
\\189\SOH\n\
\\EOT\EOT\NUL\STX\n\
\\DC2\ETXR\EOT&\SUB\175\SOH Request to start the activity directly bypassing matching service and worker polling\n\
\ The slot for executing the activity should be reserved when setting this field to true.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\ENQ\DC2\ETXR\EOT\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\SOH\DC2\ETXR\t \n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\ETX\DC2\ETXR#%\n\
\\193\SOH\n\
\\EOT\EOT\NUL\STX\v\DC2\ETXU\EOT$\SUB\179\SOH If this is set, the activity would be assigned to the Build ID of the workflow. Otherwise,\n\
\ Assignment rules of the activity's Task Queue will be used to determine the Build ID.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\ENQ\DC2\ETXU\EOT\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\SOH\DC2\ETXU\t\RS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\ETX\DC2\ETXU!#\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOTX\NUL[\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETXX\b2\n\
\W\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETXZ\EOT!\SUBJ The `ACTIVITY_TASK_SCHEDULED` event id for the activity being cancelled.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETXZ\EOT\t\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXZ\n\
\\FS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXZ\US \n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOT]\NULf\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX]\b#\n\
\w\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX`\EOT\CAN\SUBj An id for the timer, currently live timers must have different ids. Typically autogenerated\n\
\ by the SDK.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX`\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX`\v\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX`\SYN\ETB\n\
\\199\SOH\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETXe\EOT7\SUB\185\SOH How long until the timer fires, producing a `TIMER_FIRED` event.\n\
\\n\
\ (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: \"to\" is used to indicate interval. --)\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETXe\EOT\FS\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXe\GS2\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXe56\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOTh\NULj\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETXh\b2\n\
\\v\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETXi\EOT/\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETXi\EOT#\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXi$*\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXi-.\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOTl\NULn\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETXl\b.\n\
\\v\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETXm\EOT0\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETXm\EOT#\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXm$+\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXm./\n\
\\n\
\\n\
\\STX\EOT\ENQ\DC2\EOTp\NULs\SOH\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXp\b$\n\
\=\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXr\EOT\CAN\SUB0 The same timer id from the start timer command\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXr\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXr\v\DC3\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXr\SYN\ETB\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOTu\NULw\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXu\b0\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXv\EOT0\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETXv\EOT#\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXv$+\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXv./\n\
\\v\n\
\\STX\EOT\a\DC2\ENQy\NUL\133\SOH\SOH\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETXy\b?\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETXz\EOT\EM\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXz\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXz\v\DC4\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXz\ETB\CAN\n\
\\v\n\
\\EOT\EOT\a\STX\SOH\DC2\ETX{\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETX{\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\ETX{\v\SYN\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\ETX{\EM\SUB\n\
\\v\n\
\\EOT\EOT\a\STX\STX\DC2\ETX|\EOT\SYN\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ENQ\DC2\ETX|\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\SOH\DC2\ETX|\v\DC1\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ETX\DC2\ETX|\DC4\NAK\n\
\\SUB\n\
\\EOT\EOT\a\STX\ETX\DC2\ETX~\EOT\ETB\SUB\r Deprecated.\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\ETX\ENQ\DC2\ETX~\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\ETX\SOH\DC2\ETX~\v\DC2\n\
\\f\n\
\\ENQ\EOT\a\STX\ETX\ETX\DC2\ETX~\NAK\SYN\n\
\\239\SOH\n\
\\EOT\EOT\a\STX\EOT\DC2\EOT\130\SOH\EOT!\SUB\224\SOH Set this to true if the workflow being cancelled is a child of the workflow originating this\n\
\ command. The request will be rejected if it is set to true and the target workflow is *not*\n\
\ a child of the requesting workflow.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\EOT\ENQ\DC2\EOT\130\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\a\STX\EOT\SOH\DC2\EOT\130\SOH\t\FS\n\
\\r\n\
\\ENQ\EOT\a\STX\EOT\ETX\DC2\EOT\130\SOH\US \n\
\6\n\
\\EOT\EOT\a\STX\ENQ\DC2\EOT\132\SOH\EOT\SYN\SUB( Reason for requesting the cancellation\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\ENQ\ENQ\DC2\EOT\132\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\ENQ\SOH\DC2\EOT\132\SOH\v\DC1\n\
\\r\n\
\\ENQ\EOT\a\STX\ENQ\ETX\DC2\EOT\132\SOH\DC4\NAK\n\
\\f\n\
\\STX\EOT\b\DC2\ACK\135\SOH\NUL\151\SOH\SOH\n\
\\v\n\
\\ETX\EOT\b\SOH\DC2\EOT\135\SOH\b8\n\
\\f\n\
\\EOT\EOT\b\STX\NUL\DC2\EOT\136\SOH\EOT\EM\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ENQ\DC2\EOT\136\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\136\SOH\v\DC4\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\136\SOH\ETB\CAN\n\
\\f\n\
\\EOT\EOT\b\STX\SOH\DC2\EOT\137\SOH\EOT;\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ACK\DC2\EOT\137\SOH\EOT,\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\EOT\137\SOH-6\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\EOT\137\SOH9:\n\
\W\n\
\\EOT\EOT\b\STX\STX\DC2\EOT\139\SOH\EOT\ESC\SUBI The workflow author-defined name of the signal to send to the workflow.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ENQ\DC2\EOT\139\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\SOH\DC2\EOT\139\SOH\v\SYN\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ETX\DC2\EOT\139\SOH\EM\SUB\n\
\?\n\
\\EOT\EOT\b\STX\ETX\DC2\EOT\141\SOH\EOT.\SUB1 Serialized value(s) to provide with the signal.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ACK\DC2\EOT\141\SOH\EOT#\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\SOH\DC2\EOT\141\SOH$)\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ETX\DC2\EOT\141\SOH,-\n\
\\SUB\n\
\\EOT\EOT\b\STX\EOT\DC2\EOT\143\SOH\EOT\ETB\SUB\f Deprecated\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\EOT\ENQ\DC2\EOT\143\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\EOT\SOH\DC2\EOT\143\SOH\v\DC2\n\
\\r\n\
\\ENQ\EOT\b\STX\EOT\ETX\DC2\EOT\143\SOH\NAK\SYN\n\
\\239\SOH\n\
\\EOT\EOT\b\STX\ENQ\DC2\EOT\147\SOH\EOT!\SUB\224\SOH Set this to true if the workflow being cancelled is a child of the workflow originating this\n\
\ command. The request will be rejected if it is set to true and the target workflow is *not*\n\
\ a child of the requesting workflow.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\ENQ\ENQ\DC2\EOT\147\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\b\STX\ENQ\SOH\DC2\EOT\147\SOH\t\FS\n\
\\r\n\
\\ENQ\EOT\b\STX\ENQ\ETX\DC2\EOT\147\SOH\US \n\
\\138\SOH\n\
\\EOT\EOT\b\STX\ACK\DC2\EOT\150\SOH\EOT-\SUB| Headers that are passed by the workflow that is sending a signal to the external \n\
\ workflow that is receiving this signal.\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\ACK\ACK\DC2\EOT\150\SOH\EOT!\n\
\\r\n\
\\ENQ\EOT\b\STX\ACK\SOH\DC2\EOT\150\SOH\"(\n\
\\r\n\
\\ENQ\EOT\b\STX\ACK\ETX\DC2\EOT\150\SOH+,\n\
\\f\n\
\\STX\EOT\t\DC2\ACK\153\SOH\NUL\155\SOH\SOH\n\
\\v\n\
\\ETX\EOT\t\SOH\DC2\EOT\153\SOH\b7\n\
\\f\n\
\\EOT\EOT\t\STX\NUL\DC2\EOT\154\SOH\EOTB\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\EOT\154\SOH\EOT+\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\154\SOH,=\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\154\SOH@A\n\
\\f\n\
\\STX\EOT\n\
\\DC2\ACK\157\SOH\NUL\162\SOH\SOH\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\157\SOH\b1\n\
\\242\SOH\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\EOT\161\SOH\EOT2\SUB\227\SOH If set, update the workflow memo with the provided values. The values will be merged with\n\
\ the existing memo. If the user wants to delete values, a default/empty Payload should be\n\
\ used as the value for the key being deleted.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ACK\DC2\EOT\161\SOH\EOT\US\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\EOT\161\SOH -\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\EOT\161\SOH01\n\
\\f\n\
\\STX\EOT\v\DC2\ACK\164\SOH\NUL\169\SOH\SOH\n\
\\v\n\
\\ETX\EOT\v\SOH\DC2\EOT\164\SOH\b%\n\
\\f\n\
\\EOT\EOT\v\STX\NUL\DC2\EOT\165\SOH\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ENQ\DC2\EOT\165\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\165\SOH\v\SYN\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\165\SOH\EM\SUB\n\
\\f\n\
\\EOT\EOT\v\STX\SOH\DC2\EOT\166\SOH\EOT=\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ACK\DC2\EOT\166\SOH\EOT0\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\166\SOH18\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\166\SOH;<\n\
\\f\n\
\\EOT\EOT\v\STX\STX\DC2\EOT\167\SOH\EOT-\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ACK\DC2\EOT\167\SOH\EOT!\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\SOH\DC2\EOT\167\SOH\"(\n\
\\r\n\
\\ENQ\EOT\v\STX\STX\ETX\DC2\EOT\167\SOH+,\n\
\\f\n\
\\EOT\EOT\v\STX\ETX\DC2\EOT\168\SOH\EOT0\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ACK\DC2\EOT\168\SOH\EOT#\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\SOH\DC2\EOT\168\SOH$+\n\
\\r\n\
\\ENQ\EOT\v\STX\ETX\ETX\DC2\EOT\168\SOH./\n\
\\f\n\
\\STX\EOT\f\DC2\ACK\171\SOH\NUL\199\SOH\SOH\n\
\\v\n\
\\ETX\EOT\f\SOH\DC2\EOT\171\SOH\b7\n\
\\f\n\
\\EOT\EOT\f\STX\NUL\DC2\EOT\172\SOH\EOT:\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ACK\DC2\EOT\172\SOH\EOT'\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\172\SOH(5\n\
\\r\n\
\\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\172\SOH89\n\
\\f\n\
\\EOT\EOT\f\STX\SOH\DC2\EOT\173\SOH\EOT7\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ACK\DC2\EOT\173\SOH\EOT'\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\173\SOH(2\n\
\\r\n\
\\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\173\SOH56\n\
\\f\n\
\\EOT\EOT\f\STX\STX\DC2\EOT\174\SOH\EOT.\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ACK\DC2\EOT\174\SOH\EOT#\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\SOH\DC2\EOT\174\SOH$)\n\
\\r\n\
\\ENQ\EOT\f\STX\STX\ETX\DC2\EOT\174\SOH,-\n\
\1\n\
\\EOT\EOT\f\STX\ETX\DC2\EOT\177\SOH\EOT6\SUB# Timeout of a single workflow run.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ACK\DC2\EOT\177\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\SOH\DC2\EOT\177\SOH\GS1\n\
\\r\n\
\\ENQ\EOT\f\STX\ETX\ETX\DC2\EOT\177\SOH45\n\
\2\n\
\\EOT\EOT\f\STX\EOT\DC2\EOT\179\SOH\EOT7\SUB$ Timeout of a single workflow task.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\ACK\DC2\EOT\179\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\SOH\DC2\EOT\179\SOH\GS2\n\
\\r\n\
\\ENQ\EOT\f\STX\EOT\ETX\DC2\EOT\179\SOH56\n\
\n\n\
\\EOT\EOT\f\STX\ENQ\DC2\EOT\181\SOH\EOT8\SUB` How long the workflow start will be delayed - not really a \"backoff\" in the traditional sense.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\ACK\DC2\EOT\181\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\SOH\DC2\EOT\181\SOH\GS3\n\
\\r\n\
\\ENQ\EOT\f\STX\ENQ\ETX\DC2\EOT\181\SOH67\n\
\\f\n\
\\EOT\EOT\f\STX\ACK\DC2\EOT\182\SOH\EOT8\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\ACK\DC2\EOT\182\SOH\EOT&\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\SOH\DC2\EOT\182\SOH'3\n\
\\r\n\
\\ENQ\EOT\f\STX\ACK\ETX\DC2\EOT\182\SOH67\n\
\!\n\
\\EOT\EOT\f\STX\a\DC2\EOT\184\SOH\EOT?\SUB\DC3 Should be removed\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\a\ACK\DC2\EOT\184\SOH\EOT0\n\
\\r\n\
\\ENQ\EOT\f\STX\a\SOH\DC2\EOT\184\SOH1:\n\
\\r\n\
\\ENQ\EOT\f\STX\a\ETX\DC2\EOT\184\SOH=>\n\
\!\n\
\\EOT\EOT\f\STX\b\DC2\EOT\186\SOH\EOT0\SUB\DC3 Should be removed\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\b\ACK\DC2\EOT\186\SOH\EOT#\n\
\\r\n\
\\ENQ\EOT\f\STX\b\SOH\DC2\EOT\186\SOH$+\n\
\\r\n\
\\ENQ\EOT\f\STX\b\ETX\DC2\EOT\186\SOH./\n\
\!\n\
\\EOT\EOT\f\STX\t\DC2\EOT\188\SOH\EOT@\SUB\DC3 Should be removed\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\t\ACK\DC2\EOT\188\SOH\EOT#\n\
\\r\n\
\\ENQ\EOT\f\STX\t\SOH\DC2\EOT\188\SOH$:\n\
\\r\n\
\\ENQ\EOT\f\STX\t\ETX\DC2\EOT\188\SOH=?\n\
\^\n\
\\EOT\EOT\f\STX\n\
\\DC2\EOT\190\SOH\EOT\RS\SUBP Should be removed. Not necessarily unused but unclear and not exposed by SDKs.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\n\
\\ENQ\DC2\EOT\190\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\n\
\\SOH\DC2\EOT\190\SOH\v\CAN\n\
\\r\n\
\\ENQ\EOT\f\STX\n\
\\ETX\DC2\EOT\190\SOH\ESC\GS\n\
\\f\n\
\\EOT\EOT\f\STX\v\DC2\EOT\191\SOH\EOT.\n\
\\r\n\
\\ENQ\EOT\f\STX\v\ACK\DC2\EOT\191\SOH\EOT!\n\
\\r\n\
\\ENQ\EOT\f\STX\v\SOH\DC2\EOT\191\SOH\"(\n\
\\r\n\
\\ENQ\EOT\f\STX\v\ETX\DC2\EOT\191\SOH+-\n\
\\f\n\
\\EOT\EOT\f\STX\f\DC2\EOT\192\SOH\EOT*\n\
\\r\n\
\\ENQ\EOT\f\STX\f\ACK\DC2\EOT\192\SOH\EOT\US\n\
\\r\n\
\\ENQ\EOT\f\STX\f\SOH\DC2\EOT\192\SOH $\n\
\\r\n\
\\ENQ\EOT\f\STX\f\ETX\DC2\EOT\192\SOH')\n\
\\f\n\
\\EOT\EOT\f\STX\r\DC2\EOT\193\SOH\EOTC\n\
\\r\n\
\\ENQ\EOT\f\STX\r\ACK\DC2\EOT\193\SOH\EOT+\n\
\\r\n\
\\ENQ\EOT\f\STX\r\SOH\DC2\EOT\193\SOH,=\n\
\\r\n\
\\ENQ\EOT\f\STX\r\ETX\DC2\EOT\193\SOH@B\n\
\\201\SOH\n\
\\EOT\EOT\f\STX\SO\DC2\EOT\196\SOH\EOT\US\SUB\186\SOH If this is set, the new execution inherits the Build ID of the current execution. Otherwise,\n\
\ the assignment rules will be used to independently assign a Build ID to the new execution.\n\
\\n\
\\r\n\
\\ENQ\EOT\f\STX\SO\ENQ\DC2\EOT\196\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\f\STX\SO\SOH\DC2\EOT\196\SOH\t\EM\n\
\\r\n\
\\ENQ\EOT\f\STX\SO\ETX\DC2\EOT\196\SOH\FS\RS\n\
\\f\n\
\\STX\EOT\r\DC2\ACK\201\SOH\NUL\227\SOH\SOH\n\
\\v\n\
\\ETX\EOT\r\SOH\DC2\EOT\201\SOH\b4\n\
\\f\n\
\\EOT\EOT\r\STX\NUL\DC2\EOT\202\SOH\EOT\EM\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ENQ\DC2\EOT\202\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\202\SOH\v\DC4\n\
\\r\n\
\\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\202\SOH\ETB\CAN\n\
\\f\n\
\\EOT\EOT\r\STX\SOH\DC2\EOT\203\SOH\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ENQ\DC2\EOT\203\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\203\SOH\v\SYN\n\
\\r\n\
\\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\203\SOH\EM\SUB\n\
\\f\n\
\\EOT\EOT\r\STX\STX\DC2\EOT\204\SOH\EOT:\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ACK\DC2\EOT\204\SOH\EOT'\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\SOH\DC2\EOT\204\SOH(5\n\
\\r\n\
\\ENQ\EOT\r\STX\STX\ETX\DC2\EOT\204\SOH89\n\
\\f\n\
\\EOT\EOT\r\STX\ETX\DC2\EOT\205\SOH\EOT7\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ACK\DC2\EOT\205\SOH\EOT'\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\SOH\DC2\EOT\205\SOH(2\n\
\\r\n\
\\ENQ\EOT\r\STX\ETX\ETX\DC2\EOT\205\SOH56\n\
\\f\n\
\\EOT\EOT\r\STX\EOT\DC2\EOT\206\SOH\EOT.\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\ACK\DC2\EOT\206\SOH\EOT#\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\SOH\DC2\EOT\206\SOH$)\n\
\\r\n\
\\ENQ\EOT\r\STX\EOT\ETX\DC2\EOT\206\SOH,-\n\
\W\n\
\\EOT\EOT\r\STX\ENQ\DC2\EOT\208\SOH\EOT<\SUBI Total workflow execution timeout including retries and continue as new.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\ACK\DC2\EOT\208\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\SOH\DC2\EOT\208\SOH\GS7\n\
\\r\n\
\\ENQ\EOT\r\STX\ENQ\ETX\DC2\EOT\208\SOH:;\n\
\1\n\
\\EOT\EOT\r\STX\ACK\DC2\EOT\210\SOH\EOT6\SUB# Timeout of a single workflow run.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\ACK\DC2\EOT\210\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\SOH\DC2\EOT\210\SOH\GS1\n\
\\r\n\
\\ENQ\EOT\r\STX\ACK\ETX\DC2\EOT\210\SOH45\n\
\2\n\
\\EOT\EOT\r\STX\a\DC2\EOT\212\SOH\EOT7\SUB$ Timeout of a single workflow task.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\a\ACK\DC2\EOT\212\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\r\STX\a\SOH\DC2\EOT\212\SOH\GS2\n\
\\r\n\
\\ENQ\EOT\r\STX\a\ETX\DC2\EOT\212\SOH56\n\
\7\n\
\\EOT\EOT\r\STX\b\DC2\EOT\214\SOH\EOTD\SUB) Default: PARENT_CLOSE_POLICY_TERMINATE.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\b\ACK\DC2\EOT\214\SOH\EOT+\n\
\\r\n\
\\ENQ\EOT\r\STX\b\SOH\DC2\EOT\214\SOH,?\n\
\\r\n\
\\ENQ\EOT\r\STX\b\ETX\DC2\EOT\214\SOHBC\n\
\\f\n\
\\EOT\EOT\r\STX\t\DC2\EOT\215\SOH\EOT\CAN\n\
\\r\n\
\\ENQ\EOT\r\STX\t\ENQ\DC2\EOT\215\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\t\SOH\DC2\EOT\215\SOH\v\DC2\n\
\\r\n\
\\ENQ\EOT\r\STX\t\ETX\DC2\EOT\215\SOH\NAK\ETB\n\
\B\n\
\\EOT\EOT\r\STX\n\
\\DC2\EOT\217\SOH\EOTN\SUB4 Default: WORKFLOW_ID_REUSE_POLICY_ALLOW_DUPLICATE.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\n\
\\ACK\DC2\EOT\217\SOH\EOT/\n\
\\r\n\
\\ENQ\EOT\r\STX\n\
\\SOH\DC2\EOT\217\SOH0H\n\
\\r\n\
\\ENQ\EOT\r\STX\n\
\\ETX\DC2\EOT\217\SOHKM\n\
\\f\n\
\\EOT\EOT\r\STX\v\DC2\EOT\218\SOH\EOT9\n\
\\r\n\
\\ENQ\EOT\r\STX\v\ACK\DC2\EOT\218\SOH\EOT&\n\
\\r\n\
\\ENQ\EOT\r\STX\v\SOH\DC2\EOT\218\SOH'3\n\
\\r\n\
\\ENQ\EOT\r\STX\v\ETX\DC2\EOT\218\SOH68\n\
\A\n\
\\EOT\EOT\r\STX\f\DC2\EOT\220\SOH\EOT\RS\SUB3 Establish a cron schedule for the child workflow.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\f\ENQ\DC2\EOT\220\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\f\SOH\DC2\EOT\220\SOH\v\CAN\n\
\\r\n\
\\ENQ\EOT\r\STX\f\ETX\DC2\EOT\220\SOH\ESC\GS\n\
\\f\n\
\\EOT\EOT\r\STX\r\DC2\EOT\221\SOH\EOT.\n\
\\r\n\
\\ENQ\EOT\r\STX\r\ACK\DC2\EOT\221\SOH\EOT!\n\
\\r\n\
\\ENQ\EOT\r\STX\r\SOH\DC2\EOT\221\SOH\"(\n\
\\r\n\
\\ENQ\EOT\r\STX\r\ETX\DC2\EOT\221\SOH+-\n\
\\f\n\
\\EOT\EOT\r\STX\SO\DC2\EOT\222\SOH\EOT*\n\
\\r\n\
\\ENQ\EOT\r\STX\SO\ACK\DC2\EOT\222\SOH\EOT\US\n\
\\r\n\
\\ENQ\EOT\r\STX\SO\SOH\DC2\EOT\222\SOH $\n\
\\r\n\
\\ENQ\EOT\r\STX\SO\ETX\DC2\EOT\222\SOH')\n\
\\f\n\
\\EOT\EOT\r\STX\SI\DC2\EOT\223\SOH\EOTC\n\
\\r\n\
\\ENQ\EOT\r\STX\SI\ACK\DC2\EOT\223\SOH\EOT+\n\
\\r\n\
\\ENQ\EOT\r\STX\SI\SOH\DC2\EOT\223\SOH,=\n\
\\r\n\
\\ENQ\EOT\r\STX\SI\ETX\DC2\EOT\223\SOH@B\n\
\\202\SOH\n\
\\EOT\EOT\r\STX\DLE\DC2\EOT\226\SOH\EOT\US\SUB\187\SOH If this is set, the child workflow inherits the Build ID of the parent. Otherwise, the assignment\n\
\ rules of the child's Task Queue will be used to independently assign a Build ID to it.\n\
\\n\
\\r\n\
\\ENQ\EOT\r\STX\DLE\ENQ\DC2\EOT\226\SOH\EOT\b\n\
\\r\n\
\\ENQ\EOT\r\STX\DLE\SOH\DC2\EOT\226\SOH\t\EM\n\
\\r\n\
\\ENQ\EOT\r\STX\DLE\ETX\DC2\EOT\226\SOH\FS\RS\n\
\\f\n\
\\STX\EOT\SO\DC2\ACK\229\SOH\NUL\232\SOH\SOH\n\
\\v\n\
\\ETX\EOT\SO\SOH\DC2\EOT\229\SOH\b(\n\
\Q\n\
\\EOT\EOT\SO\STX\NUL\DC2\EOT\231\SOH\EOT\SUB\SUBC The message ID of the message to which this command is a pointer.\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ENQ\DC2\EOT\231\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\SOH\DC2\EOT\231\SOH\v\NAK\n\
\\r\n\
\\ENQ\EOT\SO\STX\NUL\ETX\DC2\EOT\231\SOH\CAN\EM\n\
\\f\n\
\\STX\EOT\SI\DC2\ACK\234\SOH\NUL\131\STX\SOH\n\
\\v\n\
\\ETX\EOT\SI\SOH\DC2\EOT\234\SOH\b/\n\
\]\n\
\\EOT\EOT\SI\STX\NUL\DC2\EOT\236\SOH\EOT\CAN\SUBO Endpoint name, must exist in the endpoint registry or this command will fail.\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\236\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\236\SOH\v\DC3\n\
\\r\n\
\\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\236\SOH\SYN\ETB\n\
\\GS\n\
\\EOT\EOT\SI\STX\SOH\DC2\EOT\238\SOH\EOT\ETB\SUB\SI Service name.\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ENQ\DC2\EOT\238\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\238\SOH\v\DC2\n\
\\r\n\
\\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\238\SOH\NAK\SYN\n\
\\US\n\
\\EOT\EOT\SI\STX\STX\DC2\EOT\240\SOH\EOT\EM\SUB\DC1 Operation name.\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\STX\ENQ\DC2\EOT\240\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\STX\SOH\DC2\EOT\240\SOH\v\DC4\n\
\\r\n\
\\ENQ\EOT\SI\STX\STX\ETX\DC2\EOT\240\SOH\ETB\CAN\n\
\\188\STX\n\
\\EOT\EOT\SI\STX\ETX\DC2\EOT\244\SOH\EOT-\SUB\173\STX Input for the operation. The server converts this into Nexus request content and the appropriate content headers\n\
\ internally when sending the StartOperation request. On the handler side, if it is also backed by Temporal, the\n\
\ content is transformed back to the original Payload sent in this command.\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\ETX\ACK\DC2\EOT\244\SOH\EOT\"\n\
\\r\n\
\\ENQ\EOT\SI\STX\ETX\SOH\DC2\EOT\244\SOH#(\n\
\\r\n\
\\ENQ\EOT\SI\STX\ETX\ETX\DC2\EOT\244\SOH+,\n\
\\173\STX\n\
\\EOT\EOT\SI\STX\EOT\DC2\EOT\250\SOH\EOT;\SUB\158\STX Schedule-to-close timeout for this operation.\n\
\ Indicates how long the caller is willing to wait for operation completion.\n\
\ Calls are retried internally by the server.\n\
\ (-- api-linter: core::0140::prepositions=disabled\n\
\ aip.dev/not-precedent: \"to\" is used to indicate interval. --)\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\EOT\ACK\DC2\EOT\250\SOH\EOT\FS\n\
\\r\n\
\\ENQ\EOT\SI\STX\EOT\SOH\DC2\EOT\250\SOH\GS6\n\
\\r\n\
\\ENQ\EOT\SI\STX\EOT\ETX\DC2\EOT\250\SOH9:\n\
\\200\ETX\n\
\\EOT\EOT\SI\STX\ENQ\DC2\EOT\130\STX\EOT)\SUB\185\ETX Header to attach to the Nexus request.\n\
\ Users are responsible for encrypting sensitive data in this header as it is stored in workflow history and\n\
\ transmitted to external services as-is.\n\
\ This is useful for propagating tracing information.\n\
\ Note these headers are not the same as Temporal headers on internal activities and child workflows, these are\n\
\ transmitted to Nexus operations that may be external and are not traditional payloads.\n\
\\n\
\\r\n\
\\ENQ\EOT\SI\STX\ENQ\ACK\DC2\EOT\130\STX\EOT\ETB\n\
\\r\n\
\\ENQ\EOT\SI\STX\ENQ\SOH\DC2\EOT\130\STX\CAN$\n\
\\r\n\
\\ENQ\EOT\SI\STX\ENQ\ETX\DC2\EOT\130\STX'(\n\
\\f\n\
\\STX\EOT\DLE\DC2\ACK\133\STX\NUL\137\STX\SOH\n\
\\v\n\
\\ETX\EOT\DLE\SOH\DC2\EOT\133\STX\b4\n\
\\190\SOH\n\
\\EOT\EOT\DLE\STX\NUL\DC2\EOT\136\STX\EOT!\SUB\175\SOH The `NEXUS_OPERATION_SCHEDULED` event ID (a unique identifier) for the operation to be canceled.\n\
\ The operation may ignore cancellation and end up with any completion state.\n\
\\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\ENQ\DC2\EOT\136\STX\EOT\t\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\136\STX\n\
\\FS\n\
\\r\n\
\\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\136\STX\US \n\
\\f\n\
\\STX\EOT\DC1\DC2\ACK\139\STX\NUL\162\STX\SOH\n\
\\v\n\
\\ETX\EOT\DC1\SOH\DC2\EOT\139\STX\b\SI\n\
\\f\n\
\\EOT\EOT\DC1\STX\NUL\DC2\EOT\140\STX\EOT7\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\140\STX\EOT%\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\140\STX&2\n\
\\r\n\
\\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\140\STX56\n\
\\SO\n\
\\EOT\EOT\DC1\b\NUL\DC2\ACK\141\STX\EOT\161\STX\ENQ\n\
\\r\n\
\\ENQ\EOT\DC1\b\NUL\SOH\DC2\EOT\141\STX\n\
\\DC4\n\
\\f\n\
\\EOT\EOT\DC1\STX\SOH\DC2\EOT\142\STX\b\\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\ACK\DC2\EOT\142\STX\b-\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\142\STX.W\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\142\STXZ[\n\
\\f\n\
\\EOT\EOT\DC1\STX\STX\DC2\EOT\143\STX\bG\n\
\\r\n\
\\ENQ\EOT\DC1\STX\STX\ACK\DC2\EOT\143\STX\b#\n\
\\r\n\
\\ENQ\EOT\DC1\STX\STX\SOH\DC2\EOT\143\STX$B\n\
\\r\n\
\\ENQ\EOT\DC1\STX\STX\ETX\DC2\EOT\143\STXEF\n\
\\f\n\
\\EOT\EOT\DC1\STX\ETX\DC2\EOT\144\STX\bf\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ETX\ACK\DC2\EOT\144\STX\b2\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ETX\SOH\DC2\EOT\144\STX3a\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ETX\ETX\DC2\EOT\144\STXde\n\
\\f\n\
\\EOT\EOT\DC1\STX\EOT\DC2\EOT\145\STX\b^\n\
\\r\n\
\\ENQ\EOT\DC1\STX\EOT\ACK\DC2\EOT\145\STX\b.\n\
\\r\n\
\\ENQ\EOT\DC1\STX\EOT\SOH\DC2\EOT\145\STX/Y\n\
\\r\n\
\\ENQ\EOT\DC1\STX\EOT\ETX\DC2\EOT\145\STX\\]\n\
\\f\n\
\\EOT\EOT\DC1\STX\ENQ\DC2\EOT\146\STX\bg\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ENQ\ACK\DC2\EOT\146\STX\b2\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ENQ\SOH\DC2\EOT\146\STX3b\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ENQ\ETX\DC2\EOT\146\STXef\n\
\\f\n\
\\EOT\EOT\DC1\STX\ACK\DC2\EOT\147\STX\bI\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ACK\ACK\DC2\EOT\147\STX\b$\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ACK\SOH\DC2\EOT\147\STX%D\n\
\\r\n\
\\ENQ\EOT\DC1\STX\ACK\ETX\DC2\EOT\147\STXGH\n\
\\f\n\
\\EOT\EOT\DC1\STX\a\DC2\EOT\148\STX\bb\n\
\\r\n\
\\ENQ\EOT\DC1\STX\a\ACK\DC2\EOT\148\STX\b0\n\
\\r\n\
\\ENQ\EOT\DC1\STX\a\SOH\DC2\EOT\148\STX1]\n\
\\r\n\
\\ENQ\EOT\DC1\STX\a\ETX\DC2\EOT\148\STX`a\n\
\\r\n\
\\EOT\EOT\DC1\STX\b\DC2\ENQ\149\STX\b\130\SOH\n\
\\r\n\
\\ENQ\EOT\DC1\STX\b\ACK\DC2\EOT\149\STX\b?\n\
\\r\n\
\\ENQ\EOT\DC1\STX\b\SOH\DC2\EOT\149\STX@}\n\
\\SI\n\
\\ENQ\EOT\DC1\STX\b\ETX\DC2\ACK\149\STX\128\SOH\129\SOH\n\
\\f\n\
\\EOT\EOT\DC1\STX\t\DC2\EOT\150\STX\bL\n\
\\r\n\
\\ENQ\EOT\DC1\STX\t\ACK\DC2\EOT\150\STX\b%\n\
\\r\n\
\\ENQ\EOT\DC1\STX\t\SOH\DC2\EOT\150\STX&F\n\
\\r\n\
\\ENQ\EOT\DC1\STX\t\ETX\DC2\EOT\150\STXIK\n\
\\f\n\
\\EOT\EOT\DC1\STX\n\
\\DC2\EOT\151\STX\bs\n\
\\r\n\
\\ENQ\EOT\DC1\STX\n\
\\ACK\DC2\EOT\151\STX\b7\n\
\\r\n\
\\ENQ\EOT\DC1\STX\n\
\\SOH\DC2\EOT\151\STX8m\n\
\\r\n\
\\ENQ\EOT\DC1\STX\n\
\\ETX\DC2\EOT\151\STXpr\n\
\\f\n\
\\EOT\EOT\DC1\STX\v\DC2\EOT\152\STX\bl\n\
\\r\n\
\\ENQ\EOT\DC1\STX\v\ACK\DC2\EOT\152\STX\b4\n\
\\r\n\
\\ENQ\EOT\DC1\STX\v\SOH\DC2\EOT\152\STX5f\n\
\\r\n\
\\ENQ\EOT\DC1\STX\v\ETX\DC2\EOT\152\STXik\n\
\\f\n\
\\EOT\EOT\DC1\STX\f\DC2\EOT\153\STX\bt\n\
\\r\n\
\\ENQ\EOT\DC1\STX\f\ACK\DC2\EOT\153\STX\b8\n\
\\r\n\
\\ENQ\EOT\DC1\STX\f\SOH\DC2\EOT\153\STX9n\n\
\\r\n\
\\ENQ\EOT\DC1\STX\f\ETX\DC2\EOT\153\STXqs\n\
\\f\n\
\\EOT\EOT\DC1\STX\r\DC2\EOT\154\STX\br\n\
\\r\n\
\\ENQ\EOT\DC1\STX\r\ACK\DC2\EOT\154\STX\b7\n\
\\r\n\
\\ENQ\EOT\DC1\STX\r\SOH\DC2\EOT\154\STX8l\n\
\\r\n\
\\ENQ\EOT\DC1\STX\r\ETX\DC2\EOT\154\STXoq\n\
\\f\n\
\\EOT\EOT\DC1\STX\SO\DC2\EOT\155\STX\bR\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SO\ACK\DC2\EOT\155\STX\b(\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SO\SOH\DC2\EOT\155\STX)L\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SO\ETX\DC2\EOT\155\STXOQ\n\
\n\n\
\\EOT\EOT\DC1\STX\SI\DC2\EOT\157\STX\be\SUB` 16 is available for use - it was used as part of a prototype that never made it into a release\n\
\\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SI\ACK\DC2\EOT\157\STX\b1\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SI\SOH\DC2\EOT\157\STX2_\n\
\\r\n\
\\ENQ\EOT\DC1\STX\SI\ETX\DC2\EOT\157\STXbd\n\
\\f\n\
\\EOT\EOT\DC1\STX\DLE\DC2\EOT\159\STX\ba\n\
\\r\n\
\\ENQ\EOT\DC1\STX\DLE\ACK\DC2\EOT\159\STX\b/\n\
\\r\n\
\\ENQ\EOT\DC1\STX\DLE\SOH\DC2\EOT\159\STX0[\n\
\\r\n\
\\ENQ\EOT\DC1\STX\DLE\ETX\DC2\EOT\159\STX^`\n\
\\f\n\
\\EOT\EOT\DC1\STX\DC1\DC2\EOT\160\STX\bl\n\
\\r\n\
\\ENQ\EOT\DC1\STX\DC1\ACK\DC2\EOT\160\STX\b4\n\
\\r\n\
\\ENQ\EOT\DC1\STX\DC1\SOH\DC2\EOT\160\STX5f\n\
\\r\n\
\\ENQ\EOT\DC1\STX\DC1\ETX\DC2\EOT\160\STXikb\ACKproto3"