{- This file was auto-generated from temporal/sdk/core/activity_task/activity_task.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask (
        ActivityCancelReason(..), ActivityCancelReason(),
        ActivityCancelReason'UnrecognizedValue, ActivityTask(),
        ActivityTask'Variant(..), _ActivityTask'Start,
        _ActivityTask'Cancel, Cancel(), Start(), Start'HeaderFieldsEntry()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Duration
import qualified Proto.Google.Protobuf.Timestamp
import qualified Proto.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Sdk.Core.Common.Common
newtype ActivityCancelReason'UnrecognizedValue
  = ActivityCancelReason'UnrecognizedValue Data.Int.Int32
  deriving stock (ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
(ActivityCancelReason'UnrecognizedValue
 -> ActivityCancelReason'UnrecognizedValue -> Bool)
-> (ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue -> Bool)
-> Eq ActivityCancelReason'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
== :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
$c/= :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
/= :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
Prelude.Eq, Eq ActivityCancelReason'UnrecognizedValue
Eq ActivityCancelReason'UnrecognizedValue =>
(ActivityCancelReason'UnrecognizedValue
 -> ActivityCancelReason'UnrecognizedValue -> Ordering)
-> (ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue -> Bool)
-> (ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue -> Bool)
-> (ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue -> Bool)
-> (ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue -> Bool)
-> (ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue)
-> (ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue
    -> ActivityCancelReason'UnrecognizedValue)
-> Ord ActivityCancelReason'UnrecognizedValue
ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Ordering
ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Ordering
compare :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Ordering
$c< :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
< :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
$c<= :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
<= :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
$c> :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
> :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
$c>= :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
>= :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue -> Bool
$cmax :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
max :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
$cmin :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
min :: ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
-> ActivityCancelReason'UnrecognizedValue
Prelude.Ord, Int -> ActivityCancelReason'UnrecognizedValue -> ShowS
[ActivityCancelReason'UnrecognizedValue] -> ShowS
ActivityCancelReason'UnrecognizedValue -> String
(Int -> ActivityCancelReason'UnrecognizedValue -> ShowS)
-> (ActivityCancelReason'UnrecognizedValue -> String)
-> ([ActivityCancelReason'UnrecognizedValue] -> ShowS)
-> Show ActivityCancelReason'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ActivityCancelReason'UnrecognizedValue -> ShowS
showsPrec :: Int -> ActivityCancelReason'UnrecognizedValue -> ShowS
$cshow :: ActivityCancelReason'UnrecognizedValue -> String
show :: ActivityCancelReason'UnrecognizedValue -> String
$cshowList :: [ActivityCancelReason'UnrecognizedValue] -> ShowS
showList :: [ActivityCancelReason'UnrecognizedValue] -> ShowS
Prelude.Show)
data ActivityCancelReason
  = NOT_FOUND |
    CANCELLED |
    TIMED_OUT |
    WORKER_SHUTDOWN |
    ActivityCancelReason'Unrecognized !ActivityCancelReason'UnrecognizedValue
  deriving stock (Int -> ActivityCancelReason -> ShowS
[ActivityCancelReason] -> ShowS
ActivityCancelReason -> String
(Int -> ActivityCancelReason -> ShowS)
-> (ActivityCancelReason -> String)
-> ([ActivityCancelReason] -> ShowS)
-> Show ActivityCancelReason
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ActivityCancelReason -> ShowS
showsPrec :: Int -> ActivityCancelReason -> ShowS
$cshow :: ActivityCancelReason -> String
show :: ActivityCancelReason -> String
$cshowList :: [ActivityCancelReason] -> ShowS
showList :: [ActivityCancelReason] -> ShowS
Prelude.Show, ActivityCancelReason -> ActivityCancelReason -> Bool
(ActivityCancelReason -> ActivityCancelReason -> Bool)
-> (ActivityCancelReason -> ActivityCancelReason -> Bool)
-> Eq ActivityCancelReason
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityCancelReason -> ActivityCancelReason -> Bool
== :: ActivityCancelReason -> ActivityCancelReason -> Bool
$c/= :: ActivityCancelReason -> ActivityCancelReason -> Bool
/= :: ActivityCancelReason -> ActivityCancelReason -> Bool
Prelude.Eq, Eq ActivityCancelReason
Eq ActivityCancelReason =>
(ActivityCancelReason -> ActivityCancelReason -> Ordering)
-> (ActivityCancelReason -> ActivityCancelReason -> Bool)
-> (ActivityCancelReason -> ActivityCancelReason -> Bool)
-> (ActivityCancelReason -> ActivityCancelReason -> Bool)
-> (ActivityCancelReason -> ActivityCancelReason -> Bool)
-> (ActivityCancelReason
    -> ActivityCancelReason -> ActivityCancelReason)
-> (ActivityCancelReason
    -> ActivityCancelReason -> ActivityCancelReason)
-> Ord ActivityCancelReason
ActivityCancelReason -> ActivityCancelReason -> Bool
ActivityCancelReason -> ActivityCancelReason -> Ordering
ActivityCancelReason
-> ActivityCancelReason -> ActivityCancelReason
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 :: ActivityCancelReason -> ActivityCancelReason -> Ordering
compare :: ActivityCancelReason -> ActivityCancelReason -> Ordering
$c< :: ActivityCancelReason -> ActivityCancelReason -> Bool
< :: ActivityCancelReason -> ActivityCancelReason -> Bool
$c<= :: ActivityCancelReason -> ActivityCancelReason -> Bool
<= :: ActivityCancelReason -> ActivityCancelReason -> Bool
$c> :: ActivityCancelReason -> ActivityCancelReason -> Bool
> :: ActivityCancelReason -> ActivityCancelReason -> Bool
$c>= :: ActivityCancelReason -> ActivityCancelReason -> Bool
>= :: ActivityCancelReason -> ActivityCancelReason -> Bool
$cmax :: ActivityCancelReason
-> ActivityCancelReason -> ActivityCancelReason
max :: ActivityCancelReason
-> ActivityCancelReason -> ActivityCancelReason
$cmin :: ActivityCancelReason
-> ActivityCancelReason -> ActivityCancelReason
min :: ActivityCancelReason
-> ActivityCancelReason -> ActivityCancelReason
Prelude.Ord)
instance Data.ProtoLens.MessageEnum ActivityCancelReason where
  maybeToEnum :: Int -> Maybe ActivityCancelReason
maybeToEnum Int
0 = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
NOT_FOUND
  maybeToEnum Int
1 = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
CANCELLED
  maybeToEnum Int
2 = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
TIMED_OUT
  maybeToEnum Int
3 = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
WORKER_SHUTDOWN
  maybeToEnum Int
k
    = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just
        (ActivityCancelReason'UnrecognizedValue -> ActivityCancelReason
ActivityCancelReason'Unrecognized
           (Int32 -> ActivityCancelReason'UnrecognizedValue
ActivityCancelReason'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: ActivityCancelReason -> String
showEnum ActivityCancelReason
NOT_FOUND = String
"NOT_FOUND"
  showEnum ActivityCancelReason
CANCELLED = String
"CANCELLED"
  showEnum ActivityCancelReason
TIMED_OUT = String
"TIMED_OUT"
  showEnum ActivityCancelReason
WORKER_SHUTDOWN = String
"WORKER_SHUTDOWN"
  showEnum
    (ActivityCancelReason'Unrecognized (ActivityCancelReason'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe ActivityCancelReason
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NOT_FOUND" = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
NOT_FOUND
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"CANCELLED" = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
CANCELLED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"TIMED_OUT" = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
TIMED_OUT
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"WORKER_SHUTDOWN" = ActivityCancelReason -> Maybe ActivityCancelReason
forall a. a -> Maybe a
Prelude.Just ActivityCancelReason
WORKER_SHUTDOWN
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe ActivityCancelReason)
-> Maybe ActivityCancelReason
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe ActivityCancelReason
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded ActivityCancelReason where
  minBound :: ActivityCancelReason
minBound = ActivityCancelReason
NOT_FOUND
  maxBound :: ActivityCancelReason
maxBound = ActivityCancelReason
WORKER_SHUTDOWN
instance Prelude.Enum ActivityCancelReason where
  toEnum :: Int -> ActivityCancelReason
toEnum Int
k__
    = ActivityCancelReason
-> (ActivityCancelReason -> ActivityCancelReason)
-> Maybe ActivityCancelReason
-> ActivityCancelReason
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> ActivityCancelReason
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum ActivityCancelReason: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        ActivityCancelReason -> ActivityCancelReason
forall a. a -> a
Prelude.id (Int -> Maybe ActivityCancelReason
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: ActivityCancelReason -> Int
fromEnum ActivityCancelReason
NOT_FOUND = Int
0
  fromEnum ActivityCancelReason
CANCELLED = Int
1
  fromEnum ActivityCancelReason
TIMED_OUT = Int
2
  fromEnum ActivityCancelReason
WORKER_SHUTDOWN = Int
3
  fromEnum
    (ActivityCancelReason'Unrecognized (ActivityCancelReason'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: ActivityCancelReason -> ActivityCancelReason
succ ActivityCancelReason
WORKER_SHUTDOWN
    = String -> ActivityCancelReason
forall a. HasCallStack => String -> a
Prelude.error
        String
"ActivityCancelReason.succ: bad argument WORKER_SHUTDOWN. This value would be out of bounds."
  succ ActivityCancelReason
NOT_FOUND = ActivityCancelReason
CANCELLED
  succ ActivityCancelReason
CANCELLED = ActivityCancelReason
TIMED_OUT
  succ ActivityCancelReason
TIMED_OUT = ActivityCancelReason
WORKER_SHUTDOWN
  succ (ActivityCancelReason'Unrecognized ActivityCancelReason'UnrecognizedValue
_)
    = String -> ActivityCancelReason
forall a. HasCallStack => String -> a
Prelude.error
        String
"ActivityCancelReason.succ: bad argument: unrecognized value"
  pred :: ActivityCancelReason -> ActivityCancelReason
pred ActivityCancelReason
NOT_FOUND
    = String -> ActivityCancelReason
forall a. HasCallStack => String -> a
Prelude.error
        String
"ActivityCancelReason.pred: bad argument NOT_FOUND. This value would be out of bounds."
  pred ActivityCancelReason
CANCELLED = ActivityCancelReason
NOT_FOUND
  pred ActivityCancelReason
TIMED_OUT = ActivityCancelReason
CANCELLED
  pred ActivityCancelReason
WORKER_SHUTDOWN = ActivityCancelReason
TIMED_OUT
  pred (ActivityCancelReason'Unrecognized ActivityCancelReason'UnrecognizedValue
_)
    = String -> ActivityCancelReason
forall a. HasCallStack => String -> a
Prelude.error
        String
"ActivityCancelReason.pred: bad argument: unrecognized value"
  enumFrom :: ActivityCancelReason -> [ActivityCancelReason]
enumFrom = ActivityCancelReason -> [ActivityCancelReason]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: ActivityCancelReason
-> ActivityCancelReason -> [ActivityCancelReason]
enumFromTo = ActivityCancelReason
-> ActivityCancelReason -> [ActivityCancelReason]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: ActivityCancelReason
-> ActivityCancelReason -> [ActivityCancelReason]
enumFromThen = ActivityCancelReason
-> ActivityCancelReason -> [ActivityCancelReason]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: ActivityCancelReason
-> ActivityCancelReason
-> ActivityCancelReason
-> [ActivityCancelReason]
enumFromThenTo = ActivityCancelReason
-> ActivityCancelReason
-> ActivityCancelReason
-> [ActivityCancelReason]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault ActivityCancelReason where
  fieldDefault :: ActivityCancelReason
fieldDefault = ActivityCancelReason
NOT_FOUND
instance Control.DeepSeq.NFData ActivityCancelReason where
  rnf :: ActivityCancelReason -> ()
rnf ActivityCancelReason
x__ = ActivityCancelReason -> () -> ()
forall a b. a -> b -> b
Prelude.seq ActivityCancelReason
x__ ()
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.taskToken' @:: Lens' ActivityTask Data.ByteString.ByteString@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'variant' @:: Lens' ActivityTask (Prelude.Maybe ActivityTask'Variant)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'start' @:: Lens' ActivityTask (Prelude.Maybe Start)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.start' @:: Lens' ActivityTask Start@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'cancel' @:: Lens' ActivityTask (Prelude.Maybe Cancel)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.cancel' @:: Lens' ActivityTask Cancel@ -}
data ActivityTask
  = ActivityTask'_constructor {ActivityTask -> ByteString
_ActivityTask'taskToken :: !Data.ByteString.ByteString,
                               ActivityTask -> Maybe ActivityTask'Variant
_ActivityTask'variant :: !(Prelude.Maybe ActivityTask'Variant),
                               ActivityTask -> FieldSet
_ActivityTask'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ActivityTask -> ActivityTask -> Bool
(ActivityTask -> ActivityTask -> Bool)
-> (ActivityTask -> ActivityTask -> Bool) -> Eq ActivityTask
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityTask -> ActivityTask -> Bool
== :: ActivityTask -> ActivityTask -> Bool
$c/= :: ActivityTask -> ActivityTask -> Bool
/= :: ActivityTask -> ActivityTask -> Bool
Prelude.Eq, Eq ActivityTask
Eq ActivityTask =>
(ActivityTask -> ActivityTask -> Ordering)
-> (ActivityTask -> ActivityTask -> Bool)
-> (ActivityTask -> ActivityTask -> Bool)
-> (ActivityTask -> ActivityTask -> Bool)
-> (ActivityTask -> ActivityTask -> Bool)
-> (ActivityTask -> ActivityTask -> ActivityTask)
-> (ActivityTask -> ActivityTask -> ActivityTask)
-> Ord ActivityTask
ActivityTask -> ActivityTask -> Bool
ActivityTask -> ActivityTask -> Ordering
ActivityTask -> ActivityTask -> ActivityTask
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 :: ActivityTask -> ActivityTask -> Ordering
compare :: ActivityTask -> ActivityTask -> Ordering
$c< :: ActivityTask -> ActivityTask -> Bool
< :: ActivityTask -> ActivityTask -> Bool
$c<= :: ActivityTask -> ActivityTask -> Bool
<= :: ActivityTask -> ActivityTask -> Bool
$c> :: ActivityTask -> ActivityTask -> Bool
> :: ActivityTask -> ActivityTask -> Bool
$c>= :: ActivityTask -> ActivityTask -> Bool
>= :: ActivityTask -> ActivityTask -> Bool
$cmax :: ActivityTask -> ActivityTask -> ActivityTask
max :: ActivityTask -> ActivityTask -> ActivityTask
$cmin :: ActivityTask -> ActivityTask -> ActivityTask
min :: ActivityTask -> ActivityTask -> ActivityTask
Prelude.Ord)
instance Prelude.Show ActivityTask where
  showsPrec :: Int -> ActivityTask -> ShowS
showsPrec Int
_ ActivityTask
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ActivityTask -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ActivityTask
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ActivityTask'Variant
  = ActivityTask'Start !Start | ActivityTask'Cancel !Cancel
  deriving stock (Int -> ActivityTask'Variant -> ShowS
[ActivityTask'Variant] -> ShowS
ActivityTask'Variant -> String
(Int -> ActivityTask'Variant -> ShowS)
-> (ActivityTask'Variant -> String)
-> ([ActivityTask'Variant] -> ShowS)
-> Show ActivityTask'Variant
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ActivityTask'Variant -> ShowS
showsPrec :: Int -> ActivityTask'Variant -> ShowS
$cshow :: ActivityTask'Variant -> String
show :: ActivityTask'Variant -> String
$cshowList :: [ActivityTask'Variant] -> ShowS
showList :: [ActivityTask'Variant] -> ShowS
Prelude.Show, ActivityTask'Variant -> ActivityTask'Variant -> Bool
(ActivityTask'Variant -> ActivityTask'Variant -> Bool)
-> (ActivityTask'Variant -> ActivityTask'Variant -> Bool)
-> Eq ActivityTask'Variant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
== :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
$c/= :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
/= :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
Prelude.Eq, Eq ActivityTask'Variant
Eq ActivityTask'Variant =>
(ActivityTask'Variant -> ActivityTask'Variant -> Ordering)
-> (ActivityTask'Variant -> ActivityTask'Variant -> Bool)
-> (ActivityTask'Variant -> ActivityTask'Variant -> Bool)
-> (ActivityTask'Variant -> ActivityTask'Variant -> Bool)
-> (ActivityTask'Variant -> ActivityTask'Variant -> Bool)
-> (ActivityTask'Variant
    -> ActivityTask'Variant -> ActivityTask'Variant)
-> (ActivityTask'Variant
    -> ActivityTask'Variant -> ActivityTask'Variant)
-> Ord ActivityTask'Variant
ActivityTask'Variant -> ActivityTask'Variant -> Bool
ActivityTask'Variant -> ActivityTask'Variant -> Ordering
ActivityTask'Variant
-> ActivityTask'Variant -> ActivityTask'Variant
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ActivityTask'Variant -> ActivityTask'Variant -> Ordering
compare :: ActivityTask'Variant -> ActivityTask'Variant -> Ordering
$c< :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
< :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
$c<= :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
<= :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
$c> :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
> :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
$c>= :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
>= :: ActivityTask'Variant -> ActivityTask'Variant -> Bool
$cmax :: ActivityTask'Variant
-> ActivityTask'Variant -> ActivityTask'Variant
max :: ActivityTask'Variant
-> ActivityTask'Variant -> ActivityTask'Variant
$cmin :: ActivityTask'Variant
-> ActivityTask'Variant -> ActivityTask'Variant
min :: ActivityTask'Variant
-> ActivityTask'Variant -> ActivityTask'Variant
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ActivityTask "taskToken" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskToken"
-> (ByteString -> f ByteString) -> ActivityTask -> f ActivityTask
fieldOf Proxy# "taskToken"
_
    = ((ByteString -> f ByteString) -> ActivityTask -> f ActivityTask)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ActivityTask
-> f ActivityTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTask -> ByteString)
-> (ActivityTask -> ByteString -> ActivityTask)
-> Lens ActivityTask ActivityTask ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTask -> ByteString
_ActivityTask'taskToken
           (\ ActivityTask
x__ ByteString
y__ -> ActivityTask
x__ {_ActivityTask'taskToken = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityTask "maybe'variant" (Prelude.Maybe ActivityTask'Variant) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'variant"
-> (Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> ActivityTask
-> f ActivityTask
fieldOf Proxy# "maybe'variant"
_
    = ((Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
 -> ActivityTask -> f ActivityTask)
-> ((Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
    -> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> (Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> ActivityTask
-> f ActivityTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTask -> Maybe ActivityTask'Variant)
-> (ActivityTask -> Maybe ActivityTask'Variant -> ActivityTask)
-> Lens
     ActivityTask
     ActivityTask
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTask -> Maybe ActivityTask'Variant
_ActivityTask'variant
           (\ ActivityTask
x__ Maybe ActivityTask'Variant
y__ -> ActivityTask
x__ {_ActivityTask'variant = y__}))
        (Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityTask "maybe'start" (Prelude.Maybe Start) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'start"
-> (Maybe Start -> f (Maybe Start))
-> ActivityTask
-> f ActivityTask
fieldOf Proxy# "maybe'start"
_
    = ((Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
 -> ActivityTask -> f ActivityTask)
-> ((Maybe Start -> f (Maybe Start))
    -> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> (Maybe Start -> f (Maybe Start))
-> ActivityTask
-> f ActivityTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTask -> Maybe ActivityTask'Variant)
-> (ActivityTask -> Maybe ActivityTask'Variant -> ActivityTask)
-> Lens
     ActivityTask
     ActivityTask
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTask -> Maybe ActivityTask'Variant
_ActivityTask'variant
           (\ ActivityTask
x__ Maybe ActivityTask'Variant
y__ -> ActivityTask
x__ {_ActivityTask'variant = y__}))
        ((Maybe ActivityTask'Variant -> Maybe Start)
-> (Maybe ActivityTask'Variant
    -> Maybe Start -> Maybe ActivityTask'Variant)
-> Lens
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
     (Maybe Start)
     (Maybe Start)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityTask'Variant
x__
              -> case Maybe ActivityTask'Variant
x__ of
                   (Prelude.Just (ActivityTask'Start Start
x__val)) -> Start -> Maybe Start
forall a. a -> Maybe a
Prelude.Just Start
x__val
                   Maybe ActivityTask'Variant
_otherwise -> Maybe Start
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityTask'Variant
_ Maybe Start
y__ -> (Start -> ActivityTask'Variant)
-> Maybe Start -> Maybe ActivityTask'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Start -> ActivityTask'Variant
ActivityTask'Start Maybe Start
y__))
instance Data.ProtoLens.Field.HasField ActivityTask "start" Start where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "start"
-> (Start -> f Start) -> ActivityTask -> f ActivityTask
fieldOf Proxy# "start"
_
    = ((Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
 -> ActivityTask -> f ActivityTask)
-> ((Start -> f Start)
    -> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> (Start -> f Start)
-> ActivityTask
-> f ActivityTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTask -> Maybe ActivityTask'Variant)
-> (ActivityTask -> Maybe ActivityTask'Variant -> ActivityTask)
-> Lens
     ActivityTask
     ActivityTask
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTask -> Maybe ActivityTask'Variant
_ActivityTask'variant
           (\ ActivityTask
x__ Maybe ActivityTask'Variant
y__ -> ActivityTask
x__ {_ActivityTask'variant = y__}))
        (((Maybe Start -> f (Maybe Start))
 -> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> ((Start -> f Start) -> Maybe Start -> f (Maybe Start))
-> (Start -> f Start)
-> Maybe ActivityTask'Variant
-> f (Maybe ActivityTask'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityTask'Variant -> Maybe Start)
-> (Maybe ActivityTask'Variant
    -> Maybe Start -> Maybe ActivityTask'Variant)
-> Lens
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
     (Maybe Start)
     (Maybe Start)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityTask'Variant
x__
                 -> case Maybe ActivityTask'Variant
x__ of
                      (Prelude.Just (ActivityTask'Start Start
x__val)) -> Start -> Maybe Start
forall a. a -> Maybe a
Prelude.Just Start
x__val
                      Maybe ActivityTask'Variant
_otherwise -> Maybe Start
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityTask'Variant
_ Maybe Start
y__ -> (Start -> ActivityTask'Variant)
-> Maybe Start -> Maybe ActivityTask'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Start -> ActivityTask'Variant
ActivityTask'Start Maybe Start
y__))
           (Start -> Lens' (Maybe Start) Start
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Start
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ActivityTask "maybe'cancel" (Prelude.Maybe Cancel) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancel"
-> (Maybe Cancel -> f (Maybe Cancel))
-> ActivityTask
-> f ActivityTask
fieldOf Proxy# "maybe'cancel"
_
    = ((Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
 -> ActivityTask -> f ActivityTask)
-> ((Maybe Cancel -> f (Maybe Cancel))
    -> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> (Maybe Cancel -> f (Maybe Cancel))
-> ActivityTask
-> f ActivityTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTask -> Maybe ActivityTask'Variant)
-> (ActivityTask -> Maybe ActivityTask'Variant -> ActivityTask)
-> Lens
     ActivityTask
     ActivityTask
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTask -> Maybe ActivityTask'Variant
_ActivityTask'variant
           (\ ActivityTask
x__ Maybe ActivityTask'Variant
y__ -> ActivityTask
x__ {_ActivityTask'variant = y__}))
        ((Maybe ActivityTask'Variant -> Maybe Cancel)
-> (Maybe ActivityTask'Variant
    -> Maybe Cancel -> Maybe ActivityTask'Variant)
-> Lens
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
     (Maybe Cancel)
     (Maybe Cancel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ActivityTask'Variant
x__
              -> case Maybe ActivityTask'Variant
x__ of
                   (Prelude.Just (ActivityTask'Cancel Cancel
x__val)) -> Cancel -> Maybe Cancel
forall a. a -> Maybe a
Prelude.Just Cancel
x__val
                   Maybe ActivityTask'Variant
_otherwise -> Maybe Cancel
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ActivityTask'Variant
_ Maybe Cancel
y__ -> (Cancel -> ActivityTask'Variant)
-> Maybe Cancel -> Maybe ActivityTask'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancel -> ActivityTask'Variant
ActivityTask'Cancel Maybe Cancel
y__))
instance Data.ProtoLens.Field.HasField ActivityTask "cancel" Cancel where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancel"
-> (Cancel -> f Cancel) -> ActivityTask -> f ActivityTask
fieldOf Proxy# "cancel"
_
    = ((Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
 -> ActivityTask -> f ActivityTask)
-> ((Cancel -> f Cancel)
    -> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> (Cancel -> f Cancel)
-> ActivityTask
-> f ActivityTask
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTask -> Maybe ActivityTask'Variant)
-> (ActivityTask -> Maybe ActivityTask'Variant -> ActivityTask)
-> Lens
     ActivityTask
     ActivityTask
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTask -> Maybe ActivityTask'Variant
_ActivityTask'variant
           (\ ActivityTask
x__ Maybe ActivityTask'Variant
y__ -> ActivityTask
x__ {_ActivityTask'variant = y__}))
        (((Maybe Cancel -> f (Maybe Cancel))
 -> Maybe ActivityTask'Variant -> f (Maybe ActivityTask'Variant))
-> ((Cancel -> f Cancel) -> Maybe Cancel -> f (Maybe Cancel))
-> (Cancel -> f Cancel)
-> Maybe ActivityTask'Variant
-> f (Maybe ActivityTask'Variant)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ActivityTask'Variant -> Maybe Cancel)
-> (Maybe ActivityTask'Variant
    -> Maybe Cancel -> Maybe ActivityTask'Variant)
-> Lens
     (Maybe ActivityTask'Variant)
     (Maybe ActivityTask'Variant)
     (Maybe Cancel)
     (Maybe Cancel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ActivityTask'Variant
x__
                 -> case Maybe ActivityTask'Variant
x__ of
                      (Prelude.Just (ActivityTask'Cancel Cancel
x__val)) -> Cancel -> Maybe Cancel
forall a. a -> Maybe a
Prelude.Just Cancel
x__val
                      Maybe ActivityTask'Variant
_otherwise -> Maybe Cancel
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ActivityTask'Variant
_ Maybe Cancel
y__ -> (Cancel -> ActivityTask'Variant)
-> Maybe Cancel -> Maybe ActivityTask'Variant
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancel -> ActivityTask'Variant
ActivityTask'Cancel Maybe Cancel
y__))
           (Cancel -> Lens' (Maybe Cancel) Cancel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Cancel
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ActivityTask where
  messageName :: Proxy ActivityTask -> Text
messageName Proxy ActivityTask
_ = String -> Text
Data.Text.pack String
"coresdk.activity_task.ActivityTask"
  packedMessageDescriptor :: Proxy ActivityTask -> ByteString
packedMessageDescriptor Proxy ActivityTask
_
    = ByteString
"\n\
      \\fActivityTask\DC2\GS\n\
      \\n\
      \task_token\CAN\SOH \SOH(\fR\ttaskToken\DC24\n\
      \\ENQstart\CAN\ETX \SOH(\v2\FS.coresdk.activity_task.StartH\NULR\ENQstart\DC27\n\
      \\ACKcancel\CAN\EOT \SOH(\v2\GS.coresdk.activity_task.CancelH\NULR\ACKcancelB\t\n\
      \\avariant"
  packedFileDescriptor :: Proxy ActivityTask -> ByteString
packedFileDescriptor Proxy ActivityTask
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ActivityTask)
fieldsByTag
    = let
        taskToken__field_descriptor :: FieldDescriptor ActivityTask
taskToken__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ActivityTask ByteString
-> FieldDescriptor ActivityTask
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"task_token"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (WireDefault ByteString
-> Lens ActivityTask ActivityTask ByteString ByteString
-> FieldAccessor ActivityTask ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskToken")) ::
              Data.ProtoLens.FieldDescriptor ActivityTask
        start__field_descriptor :: FieldDescriptor ActivityTask
start__field_descriptor
          = String
-> FieldTypeDescriptor Start
-> FieldAccessor ActivityTask Start
-> FieldDescriptor ActivityTask
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"start"
              (MessageOrGroup -> FieldTypeDescriptor Start
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Start)
              (Lens' ActivityTask (Maybe Start)
-> FieldAccessor ActivityTask Start
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'start")) ::
              Data.ProtoLens.FieldDescriptor ActivityTask
        cancel__field_descriptor :: FieldDescriptor ActivityTask
cancel__field_descriptor
          = String
-> FieldTypeDescriptor Cancel
-> FieldAccessor ActivityTask Cancel
-> FieldDescriptor ActivityTask
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancel"
              (MessageOrGroup -> FieldTypeDescriptor Cancel
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Cancel)
              (Lens' ActivityTask (Maybe Cancel)
-> FieldAccessor ActivityTask Cancel
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'cancel")) ::
              Data.ProtoLens.FieldDescriptor ActivityTask
      in
        [(Tag, FieldDescriptor ActivityTask)]
-> Map Tag (FieldDescriptor ActivityTask)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ActivityTask
taskToken__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ActivityTask
start__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ActivityTask
cancel__field_descriptor)]
  unknownFields :: Lens' ActivityTask FieldSet
unknownFields
    = (ActivityTask -> FieldSet)
-> (ActivityTask -> FieldSet -> ActivityTask)
-> Lens' ActivityTask FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ActivityTask -> FieldSet
_ActivityTask'_unknownFields
        (\ ActivityTask
x__ FieldSet
y__ -> ActivityTask
x__ {_ActivityTask'_unknownFields = y__})
  defMessage :: ActivityTask
defMessage
    = ActivityTask'_constructor
        {_ActivityTask'taskToken :: ByteString
_ActivityTask'taskToken = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ActivityTask'variant :: Maybe ActivityTask'Variant
_ActivityTask'variant = Maybe ActivityTask'Variant
forall a. Maybe a
Prelude.Nothing,
         _ActivityTask'_unknownFields :: FieldSet
_ActivityTask'_unknownFields = []}
  parseMessage :: Parser ActivityTask
parseMessage
    = let
        loop ::
          ActivityTask -> Data.ProtoLens.Encoding.Bytes.Parser ActivityTask
        loop :: ActivityTask -> Parser ActivityTask
loop ActivityTask
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Prelude.fromIntegral len))
                                       String
"task_token"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"taskToken") y x)
                        Word64
26
                          -> do y <- Parser Start -> String -> Parser Start
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"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y x)
                        Word64
34
                          -> do y <- Parser Cancel -> String -> Parser Cancel
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"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cancel") 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 ActivityTask -> String -> Parser ActivityTask
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ActivityTask -> Parser ActivityTask
loop ActivityTask
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ActivityTask"
  buildMessage :: ActivityTask -> Builder
buildMessage
    = \ ActivityTask
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v = FoldLike ByteString ActivityTask ActivityTask ByteString ByteString
-> ActivityTask -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"taskToken") ActivityTask
_x
              in
                if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((\ ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         ByteString
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe ActivityTask'Variant)
  ActivityTask
  ActivityTask
  (Maybe ActivityTask'Variant)
  (Maybe ActivityTask'Variant)
-> ActivityTask -> Maybe ActivityTask'Variant
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'variant") ActivityTask
_x
                 of
                   Maybe ActivityTask'Variant
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just (ActivityTask'Start Start
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                          ((ByteString -> Builder)
-> (Start -> ByteString) -> Start -> 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))
                             Start -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Start
v)
                   (Prelude.Just (ActivityTask'Cancel Cancel
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                          ((ByteString -> Builder)
-> (Cancel -> ByteString) -> Cancel -> 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))
                             Cancel -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Cancel
v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ActivityTask ActivityTask FieldSet FieldSet
-> ActivityTask -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ActivityTask ActivityTask FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ActivityTask FieldSet
Data.ProtoLens.unknownFields ActivityTask
_x)))
instance Control.DeepSeq.NFData ActivityTask where
  rnf :: ActivityTask -> ()
rnf
    = \ ActivityTask
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ActivityTask -> FieldSet
_ActivityTask'_unknownFields ActivityTask
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ActivityTask -> ByteString
_ActivityTask'taskToken ActivityTask
x__)
                (Maybe ActivityTask'Variant -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ActivityTask -> Maybe ActivityTask'Variant
_ActivityTask'variant ActivityTask
x__) ()))
instance Control.DeepSeq.NFData ActivityTask'Variant where
  rnf :: ActivityTask'Variant -> ()
rnf (ActivityTask'Start Start
x__) = Start -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Start
x__
  rnf (ActivityTask'Cancel Cancel
x__) = Cancel -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Cancel
x__
_ActivityTask'Start ::
  Data.ProtoLens.Prism.Prism' ActivityTask'Variant Start
_ActivityTask'Start :: Prism' ActivityTask'Variant Start
_ActivityTask'Start
  = (Start -> ActivityTask'Variant)
-> (ActivityTask'Variant -> Maybe Start)
-> Prism' ActivityTask'Variant Start
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Start -> ActivityTask'Variant
ActivityTask'Start
      (\ ActivityTask'Variant
p__
         -> case ActivityTask'Variant
p__ of
              (ActivityTask'Start Start
p__val) -> Start -> Maybe Start
forall a. a -> Maybe a
Prelude.Just Start
p__val
              ActivityTask'Variant
_otherwise -> Maybe Start
forall a. Maybe a
Prelude.Nothing)
_ActivityTask'Cancel ::
  Data.ProtoLens.Prism.Prism' ActivityTask'Variant Cancel
_ActivityTask'Cancel :: Prism' ActivityTask'Variant Cancel
_ActivityTask'Cancel
  = (Cancel -> ActivityTask'Variant)
-> (ActivityTask'Variant -> Maybe Cancel)
-> Prism' ActivityTask'Variant Cancel
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Cancel -> ActivityTask'Variant
ActivityTask'Cancel
      (\ ActivityTask'Variant
p__
         -> case ActivityTask'Variant
p__ of
              (ActivityTask'Cancel Cancel
p__val) -> Cancel -> Maybe Cancel
forall a. a -> Maybe a
Prelude.Just Cancel
p__val
              ActivityTask'Variant
_otherwise -> Maybe Cancel
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.reason' @:: Lens' Cancel ActivityCancelReason@ -}
data Cancel
  = Cancel'_constructor {Cancel -> ActivityCancelReason
_Cancel'reason :: !ActivityCancelReason,
                         Cancel -> FieldSet
_Cancel'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Cancel -> Cancel -> Bool
(Cancel -> Cancel -> Bool)
-> (Cancel -> Cancel -> Bool) -> Eq Cancel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Cancel -> Cancel -> Bool
== :: Cancel -> Cancel -> Bool
$c/= :: Cancel -> Cancel -> Bool
/= :: Cancel -> Cancel -> Bool
Prelude.Eq, Eq Cancel
Eq Cancel =>
(Cancel -> Cancel -> Ordering)
-> (Cancel -> Cancel -> Bool)
-> (Cancel -> Cancel -> Bool)
-> (Cancel -> Cancel -> Bool)
-> (Cancel -> Cancel -> Bool)
-> (Cancel -> Cancel -> Cancel)
-> (Cancel -> Cancel -> Cancel)
-> Ord Cancel
Cancel -> Cancel -> Bool
Cancel -> Cancel -> Ordering
Cancel -> Cancel -> Cancel
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 :: Cancel -> Cancel -> Ordering
compare :: Cancel -> Cancel -> Ordering
$c< :: Cancel -> Cancel -> Bool
< :: Cancel -> Cancel -> Bool
$c<= :: Cancel -> Cancel -> Bool
<= :: Cancel -> Cancel -> Bool
$c> :: Cancel -> Cancel -> Bool
> :: Cancel -> Cancel -> Bool
$c>= :: Cancel -> Cancel -> Bool
>= :: Cancel -> Cancel -> Bool
$cmax :: Cancel -> Cancel -> Cancel
max :: Cancel -> Cancel -> Cancel
$cmin :: Cancel -> Cancel -> Cancel
min :: Cancel -> Cancel -> Cancel
Prelude.Ord)
instance Prelude.Show Cancel where
  showsPrec :: Int -> Cancel -> ShowS
showsPrec Int
_ Cancel
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Cancel -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Cancel
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Cancel "reason" ActivityCancelReason where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "reason"
-> (ActivityCancelReason -> f ActivityCancelReason)
-> Cancel
-> f Cancel
fieldOf Proxy# "reason"
_
    = ((ActivityCancelReason -> f ActivityCancelReason)
 -> Cancel -> f Cancel)
-> ((ActivityCancelReason -> f ActivityCancelReason)
    -> ActivityCancelReason -> f ActivityCancelReason)
-> (ActivityCancelReason -> f ActivityCancelReason)
-> Cancel
-> f Cancel
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Cancel -> ActivityCancelReason)
-> (Cancel -> ActivityCancelReason -> Cancel)
-> Lens Cancel Cancel ActivityCancelReason ActivityCancelReason
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Cancel -> ActivityCancelReason
_Cancel'reason (\ Cancel
x__ ActivityCancelReason
y__ -> Cancel
x__ {_Cancel'reason = y__}))
        (ActivityCancelReason -> f ActivityCancelReason)
-> ActivityCancelReason -> f ActivityCancelReason
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Cancel where
  messageName :: Proxy Cancel -> Text
messageName Proxy Cancel
_ = String -> Text
Data.Text.pack String
"coresdk.activity_task.Cancel"
  packedMessageDescriptor :: Proxy Cancel -> ByteString
packedMessageDescriptor Proxy Cancel
_
    = ByteString
"\n\
      \\ACKCancel\DC2C\n\
      \\ACKreason\CAN\SOH \SOH(\SO2+.coresdk.activity_task.ActivityCancelReasonR\ACKreason"
  packedFileDescriptor :: Proxy Cancel -> ByteString
packedFileDescriptor Proxy Cancel
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Cancel)
fieldsByTag
    = let
        reason__field_descriptor :: FieldDescriptor Cancel
reason__field_descriptor
          = String
-> FieldTypeDescriptor ActivityCancelReason
-> FieldAccessor Cancel ActivityCancelReason
-> FieldDescriptor Cancel
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"reason"
              (ScalarField ActivityCancelReason
-> FieldTypeDescriptor ActivityCancelReason
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ActivityCancelReason
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor ActivityCancelReason)
              (WireDefault ActivityCancelReason
-> Lens Cancel Cancel ActivityCancelReason ActivityCancelReason
-> FieldAccessor Cancel ActivityCancelReason
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault ActivityCancelReason
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 Cancel
      in
        [(Tag, FieldDescriptor Cancel)] -> Map Tag (FieldDescriptor Cancel)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Cancel
reason__field_descriptor)]
  unknownFields :: Lens' Cancel FieldSet
unknownFields
    = (Cancel -> FieldSet)
-> (Cancel -> FieldSet -> Cancel) -> Lens' Cancel FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Cancel -> FieldSet
_Cancel'_unknownFields
        (\ Cancel
x__ FieldSet
y__ -> Cancel
x__ {_Cancel'_unknownFields = y__})
  defMessage :: Cancel
defMessage
    = Cancel'_constructor
        {_Cancel'reason :: ActivityCancelReason
_Cancel'reason = ActivityCancelReason
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Cancel'_unknownFields :: FieldSet
_Cancel'_unknownFields = []}
  parseMessage :: Parser Cancel
parseMessage
    = let
        loop :: Cancel -> Data.ProtoLens.Encoding.Bytes.Parser Cancel
        loop :: Cancel -> Parser Cancel
loop Cancel
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 ActivityCancelReason
-> String -> Parser ActivityCancelReason
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> ActivityCancelReason)
-> Parser Int -> Parser ActivityCancelReason
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> ActivityCancelReason
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
"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 Cancel -> String -> Parser Cancel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Cancel -> Parser Cancel
loop Cancel
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Cancel"
  buildMessage :: Cancel -> Builder
buildMessage
    = \ Cancel
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ActivityCancelReason
_v = FoldLike
  ActivityCancelReason
  Cancel
  Cancel
  ActivityCancelReason
  ActivityCancelReason
-> Cancel -> ActivityCancelReason
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") Cancel
_x
              in
                if ActivityCancelReason -> ActivityCancelReason -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ActivityCancelReason
_v ActivityCancelReason
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)
-> (ActivityCancelReason -> Int) -> ActivityCancelReason -> 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)
                         ActivityCancelReason -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum ActivityCancelReason
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet Cancel Cancel FieldSet FieldSet
-> Cancel -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Cancel Cancel FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Cancel FieldSet
Data.ProtoLens.unknownFields Cancel
_x))
instance Control.DeepSeq.NFData Cancel where
  rnf :: Cancel -> ()
rnf
    = \ Cancel
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Cancel -> FieldSet
_Cancel'_unknownFields Cancel
x__)
             (ActivityCancelReason -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Cancel -> ActivityCancelReason
_Cancel'reason Cancel
x__) ())
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.workflowNamespace' @:: Lens' Start Data.Text.Text@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.workflowType' @:: Lens' Start Data.Text.Text@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.workflowExecution' @:: Lens' Start Proto.Temporal.Api.Common.V1.Message.WorkflowExecution@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'workflowExecution' @:: Lens' Start (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.activityId' @:: Lens' Start Data.Text.Text@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.activityType' @:: Lens' Start Data.Text.Text@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.headerFields' @:: Lens' Start (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Common.V1.Message.Payload)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.input' @:: Lens' Start [Proto.Temporal.Api.Common.V1.Message.Payload]@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.vec'input' @:: Lens' Start (Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.heartbeatDetails' @:: Lens' Start [Proto.Temporal.Api.Common.V1.Message.Payload]@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.vec'heartbeatDetails' @:: Lens' Start (Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.scheduledTime' @:: Lens' Start Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'scheduledTime' @:: Lens' Start (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.currentAttemptScheduledTime' @:: Lens' Start Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'currentAttemptScheduledTime' @:: Lens' Start (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.startedTime' @:: Lens' Start Proto.Google.Protobuf.Timestamp.Timestamp@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'startedTime' @:: Lens' Start (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.attempt' @:: Lens' Start Data.Word.Word32@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.scheduleToCloseTimeout' @:: Lens' Start Proto.Google.Protobuf.Duration.Duration@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'scheduleToCloseTimeout' @:: Lens' Start (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.startToCloseTimeout' @:: Lens' Start Proto.Google.Protobuf.Duration.Duration@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'startToCloseTimeout' @:: Lens' Start (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.heartbeatTimeout' @:: Lens' Start Proto.Google.Protobuf.Duration.Duration@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'heartbeatTimeout' @:: Lens' Start (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.retryPolicy' @:: Lens' Start Proto.Temporal.Api.Common.V1.Message.RetryPolicy@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'retryPolicy' @:: Lens' Start (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy)@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.isLocal' @:: Lens' Start Prelude.Bool@ -}
data Start
  = Start'_constructor {Start -> Text
_Start'workflowNamespace :: !Data.Text.Text,
                        Start -> Text
_Start'workflowType :: !Data.Text.Text,
                        Start -> Maybe WorkflowExecution
_Start'workflowExecution :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution),
                        Start -> Text
_Start'activityId :: !Data.Text.Text,
                        Start -> Text
_Start'activityType :: !Data.Text.Text,
                        Start -> Map Text Payload
_Start'headerFields :: !(Data.Map.Map Data.Text.Text Proto.Temporal.Api.Common.V1.Message.Payload),
                        Start -> Vector Payload
_Start'input :: !(Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload),
                        Start -> Vector Payload
_Start'heartbeatDetails :: !(Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload),
                        Start -> Maybe Timestamp
_Start'scheduledTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                        Start -> Maybe Timestamp
_Start'currentAttemptScheduledTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                        Start -> Maybe Timestamp
_Start'startedTime :: !(Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp),
                        Start -> Word32
_Start'attempt :: !Data.Word.Word32,
                        Start -> Maybe Duration
_Start'scheduleToCloseTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
                        Start -> Maybe Duration
_Start'startToCloseTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
                        Start -> Maybe Duration
_Start'heartbeatTimeout :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
                        Start -> Maybe RetryPolicy
_Start'retryPolicy :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.RetryPolicy),
                        Start -> Bool
_Start'isLocal :: !Prelude.Bool,
                        Start -> FieldSet
_Start'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Start -> Start -> Bool
(Start -> Start -> Bool) -> (Start -> Start -> Bool) -> Eq Start
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Start -> Start -> Bool
== :: Start -> Start -> Bool
$c/= :: Start -> Start -> Bool
/= :: Start -> Start -> Bool
Prelude.Eq, Eq Start
Eq Start =>
(Start -> Start -> Ordering)
-> (Start -> Start -> Bool)
-> (Start -> Start -> Bool)
-> (Start -> Start -> Bool)
-> (Start -> Start -> Bool)
-> (Start -> Start -> Start)
-> (Start -> Start -> Start)
-> Ord Start
Start -> Start -> Bool
Start -> Start -> Ordering
Start -> Start -> Start
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 :: Start -> Start -> Ordering
compare :: Start -> Start -> Ordering
$c< :: Start -> Start -> Bool
< :: Start -> Start -> Bool
$c<= :: Start -> Start -> Bool
<= :: Start -> Start -> Bool
$c> :: Start -> Start -> Bool
> :: Start -> Start -> Bool
$c>= :: Start -> Start -> Bool
>= :: Start -> Start -> Bool
$cmax :: Start -> Start -> Start
max :: Start -> Start -> Start
$cmin :: Start -> Start -> Start
min :: Start -> Start -> Start
Prelude.Ord)
instance Prelude.Show Start where
  showsPrec :: Int -> Start -> ShowS
showsPrec Int
_ Start
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Start -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Start
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Start "workflowNamespace" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowNamespace" -> (Text -> f Text) -> Start -> f Start
fieldOf Proxy# "workflowNamespace"
_
    = ((Text -> f Text) -> Start -> f Start)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Text)
-> (Start -> Text -> Start) -> Lens Start Start Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Text
_Start'workflowNamespace
           (\ Start
x__ Text
y__ -> Start
x__ {_Start'workflowNamespace = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "workflowType" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowType" -> (Text -> f Text) -> Start -> f Start
fieldOf Proxy# "workflowType"
_
    = ((Text -> f Text) -> Start -> f Start)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Text)
-> (Start -> Text -> Start) -> Lens Start Start Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Text
_Start'workflowType (\ Start
x__ Text
y__ -> Start
x__ {_Start'workflowType = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "workflowExecution" Proto.Temporal.Api.Common.V1.Message.WorkflowExecution where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowExecution"
-> (WorkflowExecution -> f WorkflowExecution) -> Start -> f Start
fieldOf Proxy# "workflowExecution"
_
    = ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
 -> Start -> f Start)
-> ((WorkflowExecution -> f WorkflowExecution)
    -> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (WorkflowExecution -> f WorkflowExecution)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe WorkflowExecution)
-> (Start -> Maybe WorkflowExecution -> Start)
-> Lens
     Start Start (Maybe WorkflowExecution) (Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe WorkflowExecution
_Start'workflowExecution
           (\ Start
x__ Maybe WorkflowExecution
y__ -> Start
x__ {_Start'workflowExecution = 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 Start "maybe'workflowExecution" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowExecution"
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Start
-> f Start
fieldOf Proxy# "maybe'workflowExecution"
_
    = ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
 -> Start -> f Start)
-> ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
    -> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe WorkflowExecution)
-> (Start -> Maybe WorkflowExecution -> Start)
-> Lens
     Start Start (Maybe WorkflowExecution) (Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe WorkflowExecution
_Start'workflowExecution
           (\ Start
x__ Maybe WorkflowExecution
y__ -> Start
x__ {_Start'workflowExecution = y__}))
        (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "activityId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activityId" -> (Text -> f Text) -> Start -> f Start
fieldOf Proxy# "activityId"
_
    = ((Text -> f Text) -> Start -> f Start)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Text)
-> (Start -> Text -> Start) -> Lens Start Start Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Text
_Start'activityId (\ Start
x__ Text
y__ -> Start
x__ {_Start'activityId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "activityType" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activityType" -> (Text -> f Text) -> Start -> f Start
fieldOf Proxy# "activityType"
_
    = ((Text -> f Text) -> Start -> f Start)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Text)
-> (Start -> Text -> Start) -> Lens Start Start Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Text
_Start'activityType (\ Start
x__ Text
y__ -> Start
x__ {_Start'activityType = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "headerFields" (Data.Map.Map Data.Text.Text Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "headerFields"
-> (Map Text Payload -> f (Map Text Payload)) -> Start -> f Start
fieldOf Proxy# "headerFields"
_
    = ((Map Text Payload -> f (Map Text Payload)) -> Start -> f Start)
-> ((Map Text Payload -> f (Map Text Payload))
    -> Map Text Payload -> f (Map Text Payload))
-> (Map Text Payload -> f (Map Text Payload))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Map Text Payload)
-> (Start -> Map Text Payload -> Start)
-> Lens Start Start (Map Text Payload) (Map Text Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Map Text Payload
_Start'headerFields (\ Start
x__ Map Text Payload
y__ -> Start
x__ {_Start'headerFields = y__}))
        (Map Text Payload -> f (Map Text Payload))
-> Map Text Payload -> f (Map Text Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "input" [Proto.Temporal.Api.Common.V1.Message.Payload] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "input" -> ([Payload] -> f [Payload]) -> Start -> f Start
fieldOf Proxy# "input"
_
    = ((Vector Payload -> f (Vector Payload)) -> Start -> f Start)
-> (([Payload] -> f [Payload])
    -> Vector Payload -> f (Vector Payload))
-> ([Payload] -> f [Payload])
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Vector Payload)
-> (Start -> Vector Payload -> Start)
-> Lens Start Start (Vector Payload) (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Vector Payload
_Start'input (\ Start
x__ Vector Payload
y__ -> Start
x__ {_Start'input = y__}))
        ((Vector Payload -> [Payload])
-> (Vector Payload -> [Payload] -> Vector Payload)
-> Lens (Vector Payload) (Vector Payload) [Payload] [Payload]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Payload -> [Payload]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Payload
_ [Payload]
y__ -> [Payload] -> Vector Payload
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Payload]
y__))
instance Data.ProtoLens.Field.HasField Start "vec'input" (Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'input"
-> (Vector Payload -> f (Vector Payload)) -> Start -> f Start
fieldOf Proxy# "vec'input"
_
    = ((Vector Payload -> f (Vector Payload)) -> Start -> f Start)
-> ((Vector Payload -> f (Vector Payload))
    -> Vector Payload -> f (Vector Payload))
-> (Vector Payload -> f (Vector Payload))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Vector Payload)
-> (Start -> Vector Payload -> Start)
-> Lens Start Start (Vector Payload) (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Vector Payload
_Start'input (\ Start
x__ Vector Payload
y__ -> Start
x__ {_Start'input = y__}))
        (Vector Payload -> f (Vector Payload))
-> Vector Payload -> f (Vector Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "heartbeatDetails" [Proto.Temporal.Api.Common.V1.Message.Payload] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "heartbeatDetails"
-> ([Payload] -> f [Payload]) -> Start -> f Start
fieldOf Proxy# "heartbeatDetails"
_
    = ((Vector Payload -> f (Vector Payload)) -> Start -> f Start)
-> (([Payload] -> f [Payload])
    -> Vector Payload -> f (Vector Payload))
-> ([Payload] -> f [Payload])
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Vector Payload)
-> (Start -> Vector Payload -> Start)
-> Lens Start Start (Vector Payload) (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Vector Payload
_Start'heartbeatDetails
           (\ Start
x__ Vector Payload
y__ -> Start
x__ {_Start'heartbeatDetails = y__}))
        ((Vector Payload -> [Payload])
-> (Vector Payload -> [Payload] -> Vector Payload)
-> Lens (Vector Payload) (Vector Payload) [Payload] [Payload]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Payload -> [Payload]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Payload
_ [Payload]
y__ -> [Payload] -> Vector Payload
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Payload]
y__))
instance Data.ProtoLens.Field.HasField Start "vec'heartbeatDetails" (Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'heartbeatDetails"
-> (Vector Payload -> f (Vector Payload)) -> Start -> f Start
fieldOf Proxy# "vec'heartbeatDetails"
_
    = ((Vector Payload -> f (Vector Payload)) -> Start -> f Start)
-> ((Vector Payload -> f (Vector Payload))
    -> Vector Payload -> f (Vector Payload))
-> (Vector Payload -> f (Vector Payload))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Vector Payload)
-> (Start -> Vector Payload -> Start)
-> Lens Start Start (Vector Payload) (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Vector Payload
_Start'heartbeatDetails
           (\ Start
x__ Vector Payload
y__ -> Start
x__ {_Start'heartbeatDetails = y__}))
        (Vector Payload -> f (Vector Payload))
-> Vector Payload -> f (Vector Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "scheduledTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduledTime"
-> (Timestamp -> f Timestamp) -> Start -> f Start
fieldOf Proxy# "scheduledTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Timestamp)
-> (Start -> Maybe Timestamp -> Start)
-> Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Timestamp
_Start'scheduledTime
           (\ Start
x__ Maybe Timestamp
y__ -> Start
x__ {_Start'scheduledTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Start "maybe'scheduledTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduledTime"
-> (Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start
fieldOf Proxy# "maybe'scheduledTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Timestamp)
-> (Start -> Maybe Timestamp -> Start)
-> Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Timestamp
_Start'scheduledTime
           (\ Start
x__ Maybe Timestamp
y__ -> Start
x__ {_Start'scheduledTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "currentAttemptScheduledTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "currentAttemptScheduledTime"
-> (Timestamp -> f Timestamp) -> Start -> f Start
fieldOf Proxy# "currentAttemptScheduledTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Timestamp)
-> (Start -> Maybe Timestamp -> Start)
-> Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Timestamp
_Start'currentAttemptScheduledTime
           (\ Start
x__ Maybe Timestamp
y__ -> Start
x__ {_Start'currentAttemptScheduledTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Start "maybe'currentAttemptScheduledTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'currentAttemptScheduledTime"
-> (Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start
fieldOf Proxy# "maybe'currentAttemptScheduledTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Timestamp)
-> (Start -> Maybe Timestamp -> Start)
-> Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Timestamp
_Start'currentAttemptScheduledTime
           (\ Start
x__ Maybe Timestamp
y__ -> Start
x__ {_Start'currentAttemptScheduledTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "startedTime" Proto.Google.Protobuf.Timestamp.Timestamp where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startedTime"
-> (Timestamp -> f Timestamp) -> Start -> f Start
fieldOf Proxy# "startedTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start)
-> ((Timestamp -> f Timestamp)
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Timestamp -> f Timestamp)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Timestamp)
-> (Start -> Maybe Timestamp -> Start)
-> Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Timestamp
_Start'startedTime (\ Start
x__ Maybe Timestamp
y__ -> Start
x__ {_Start'startedTime = y__}))
        (Timestamp -> Lens' (Maybe Timestamp) Timestamp
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Timestamp
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Start "maybe'startedTime" (Prelude.Maybe Proto.Google.Protobuf.Timestamp.Timestamp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startedTime"
-> (Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start
fieldOf Proxy# "maybe'startedTime"
_
    = ((Maybe Timestamp -> f (Maybe Timestamp)) -> Start -> f Start)
-> ((Maybe Timestamp -> f (Maybe Timestamp))
    -> Maybe Timestamp -> f (Maybe Timestamp))
-> (Maybe Timestamp -> f (Maybe Timestamp))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Timestamp)
-> (Start -> Maybe Timestamp -> Start)
-> Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Timestamp
_Start'startedTime (\ Start
x__ Maybe Timestamp
y__ -> Start
x__ {_Start'startedTime = y__}))
        (Maybe Timestamp -> f (Maybe Timestamp))
-> Maybe Timestamp -> f (Maybe Timestamp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "attempt" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "attempt" -> (Word32 -> f Word32) -> Start -> f Start
fieldOf Proxy# "attempt"
_
    = ((Word32 -> f Word32) -> Start -> f Start)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Word32)
-> (Start -> Word32 -> Start) -> Lens Start Start Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Word32
_Start'attempt (\ Start
x__ Word32
y__ -> Start
x__ {_Start'attempt = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "scheduleToCloseTimeout" Proto.Google.Protobuf.Duration.Duration where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduleToCloseTimeout"
-> (Duration -> f Duration) -> Start -> f Start
fieldOf Proxy# "scheduleToCloseTimeout"
_
    = ((Maybe Duration -> f (Maybe Duration)) -> Start -> f Start)
-> ((Duration -> f Duration)
    -> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Duration)
-> (Start -> Maybe Duration -> Start)
-> Lens Start Start (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Duration
_Start'scheduleToCloseTimeout
           (\ Start
x__ Maybe Duration
y__ -> Start
x__ {_Start'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 Start "maybe'scheduleToCloseTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'scheduleToCloseTimeout"
-> (Maybe Duration -> f (Maybe Duration)) -> Start -> f Start
fieldOf Proxy# "maybe'scheduleToCloseTimeout"
_
    = ((Maybe Duration -> f (Maybe Duration)) -> Start -> f Start)
-> ((Maybe Duration -> f (Maybe Duration))
    -> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Duration)
-> (Start -> Maybe Duration -> Start)
-> Lens Start Start (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Duration
_Start'scheduleToCloseTimeout
           (\ Start
x__ Maybe Duration
y__ -> Start
x__ {_Start'scheduleToCloseTimeout = y__}))
        (Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "startToCloseTimeout" Proto.Google.Protobuf.Duration.Duration where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startToCloseTimeout"
-> (Duration -> f Duration) -> Start -> f Start
fieldOf Proxy# "startToCloseTimeout"
_
    = ((Maybe Duration -> f (Maybe Duration)) -> Start -> f Start)
-> ((Duration -> f Duration)
    -> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Duration)
-> (Start -> Maybe Duration -> Start)
-> Lens Start Start (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Duration
_Start'startToCloseTimeout
           (\ Start
x__ Maybe Duration
y__ -> Start
x__ {_Start'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 Start "maybe'startToCloseTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'startToCloseTimeout"
-> (Maybe Duration -> f (Maybe Duration)) -> Start -> f Start
fieldOf Proxy# "maybe'startToCloseTimeout"
_
    = ((Maybe Duration -> f (Maybe Duration)) -> Start -> f Start)
-> ((Maybe Duration -> f (Maybe Duration))
    -> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Duration)
-> (Start -> Maybe Duration -> Start)
-> Lens Start Start (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Duration
_Start'startToCloseTimeout
           (\ Start
x__ Maybe Duration
y__ -> Start
x__ {_Start'startToCloseTimeout = y__}))
        (Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "heartbeatTimeout" Proto.Google.Protobuf.Duration.Duration where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "heartbeatTimeout"
-> (Duration -> f Duration) -> Start -> f Start
fieldOf Proxy# "heartbeatTimeout"
_
    = ((Maybe Duration -> f (Maybe Duration)) -> Start -> f Start)
-> ((Duration -> f Duration)
    -> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Duration)
-> (Start -> Maybe Duration -> Start)
-> Lens Start Start (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Duration
_Start'heartbeatTimeout
           (\ Start
x__ Maybe Duration
y__ -> Start
x__ {_Start'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 Start "maybe'heartbeatTimeout" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'heartbeatTimeout"
-> (Maybe Duration -> f (Maybe Duration)) -> Start -> f Start
fieldOf Proxy# "maybe'heartbeatTimeout"
_
    = ((Maybe Duration -> f (Maybe Duration)) -> Start -> f Start)
-> ((Maybe Duration -> f (Maybe Duration))
    -> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe Duration)
-> (Start -> Maybe Duration -> Start)
-> Lens Start Start (Maybe Duration) (Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe Duration
_Start'heartbeatTimeout
           (\ Start
x__ Maybe Duration
y__ -> Start
x__ {_Start'heartbeatTimeout = y__}))
        (Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "retryPolicy" Proto.Temporal.Api.Common.V1.Message.RetryPolicy where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "retryPolicy"
-> (RetryPolicy -> f RetryPolicy) -> Start -> f Start
fieldOf Proxy# "retryPolicy"
_
    = ((Maybe RetryPolicy -> f (Maybe RetryPolicy)) -> Start -> f Start)
-> ((RetryPolicy -> f RetryPolicy)
    -> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (RetryPolicy -> f RetryPolicy)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe RetryPolicy)
-> (Start -> Maybe RetryPolicy -> Start)
-> Lens Start Start (Maybe RetryPolicy) (Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe RetryPolicy
_Start'retryPolicy (\ Start
x__ Maybe RetryPolicy
y__ -> Start
x__ {_Start'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 Start "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)) -> Start -> f Start
fieldOf Proxy# "maybe'retryPolicy"
_
    = ((Maybe RetryPolicy -> f (Maybe RetryPolicy)) -> Start -> f Start)
-> ((Maybe RetryPolicy -> f (Maybe RetryPolicy))
    -> Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Maybe RetryPolicy)
-> (Start -> Maybe RetryPolicy -> Start)
-> Lens Start Start (Maybe RetryPolicy) (Maybe RetryPolicy)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Maybe RetryPolicy
_Start'retryPolicy (\ Start
x__ Maybe RetryPolicy
y__ -> Start
x__ {_Start'retryPolicy = y__}))
        (Maybe RetryPolicy -> f (Maybe RetryPolicy))
-> Maybe RetryPolicy -> f (Maybe RetryPolicy)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start "isLocal" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "isLocal" -> (Bool -> f Bool) -> Start -> f Start
fieldOf Proxy# "isLocal"
_
    = ((Bool -> f Bool) -> Start -> f Start)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> Start
-> f Start
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start -> Bool)
-> (Start -> Bool -> Start) -> Lens Start Start Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start -> Bool
_Start'isLocal (\ Start
x__ Bool
y__ -> Start
x__ {_Start'isLocal = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Start where
  messageName :: Proxy Start -> Text
messageName Proxy Start
_ = String -> Text
Data.Text.pack String
"coresdk.activity_task.Start"
  packedMessageDescriptor :: Proxy Start -> ByteString
packedMessageDescriptor Proxy Start
_
    = ByteString
"\n\
      \\ENQStart\DC2-\n\
      \\DC2workflow_namespace\CAN\SOH \SOH(\tR\DC1workflowNamespace\DC2#\n\
      \\rworkflow_type\CAN\STX \SOH(\tR\fworkflowType\DC2X\n\
      \\DC2workflow_execution\CAN\ETX \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2\US\n\
      \\vactivity_id\CAN\EOT \SOH(\tR\n\
      \activityId\DC2#\n\
      \\ractivity_type\CAN\ENQ \SOH(\tR\factivityType\DC2S\n\
      \\rheader_fields\CAN\ACK \ETX(\v2..coresdk.activity_task.Start.HeaderFieldsEntryR\fheaderFields\DC25\n\
      \\ENQinput\CAN\a \ETX(\v2\US.temporal.api.common.v1.PayloadR\ENQinput\DC2L\n\
      \\DC1heartbeat_details\CAN\b \ETX(\v2\US.temporal.api.common.v1.PayloadR\DLEheartbeatDetails\DC2A\n\
      \\SOscheduled_time\CAN\t \SOH(\v2\SUB.google.protobuf.TimestampR\rscheduledTime\DC2_\n\
      \\RScurrent_attempt_scheduled_time\CAN\n\
      \ \SOH(\v2\SUB.google.protobuf.TimestampR\ESCcurrentAttemptScheduledTime\DC2=\n\
      \\fstarted_time\CAN\v \SOH(\v2\SUB.google.protobuf.TimestampR\vstartedTime\DC2\CAN\n\
      \\aattempt\CAN\f \SOH(\rR\aattempt\DC2T\n\
      \\EMschedule_to_close_timeout\CAN\r \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToCloseTimeout\DC2N\n\
      \\SYNstart_to_close_timeout\CAN\SO \SOH(\v2\EM.google.protobuf.DurationR\DC3startToCloseTimeout\DC2F\n\
      \\DC1heartbeat_timeout\CAN\SI \SOH(\v2\EM.google.protobuf.DurationR\DLEheartbeatTimeout\DC2F\n\
      \\fretry_policy\CAN\DLE \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC2\EM\n\
      \\bis_local\CAN\DC1 \SOH(\bR\aisLocal\SUB`\n\
      \\DC1HeaderFieldsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
      \\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy Start -> ByteString
packedFileDescriptor Proxy Start
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Start)
fieldsByTag
    = let
        workflowNamespace__field_descriptor :: FieldDescriptor Start
workflowNamespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Start Text
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_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 Start Start Text Text -> FieldAccessor Start 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 @"workflowNamespace")) ::
              Data.ProtoLens.FieldDescriptor Start
        workflowType__field_descriptor :: FieldDescriptor Start
workflowType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Start Text
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_type"
              (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 Start Start Text Text -> FieldAccessor Start 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 @"workflowType")) ::
              Data.ProtoLens.FieldDescriptor Start
        workflowExecution__field_descriptor :: FieldDescriptor Start
workflowExecution__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor Start WorkflowExecution
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"workflow_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
  Start Start (Maybe WorkflowExecution) (Maybe WorkflowExecution)
-> FieldAccessor Start 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'workflowExecution")) ::
              Data.ProtoLens.FieldDescriptor Start
        activityId__field_descriptor :: FieldDescriptor Start
activityId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Start Text
-> FieldDescriptor Start
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 Start Start Text Text -> FieldAccessor Start 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 Start
        activityType__field_descriptor :: FieldDescriptor Start
activityType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Start Text
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"activity_type"
              (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 Start Start Text Text -> FieldAccessor Start 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 @"activityType")) ::
              Data.ProtoLens.FieldDescriptor Start
        headerFields__field_descriptor :: FieldDescriptor Start
headerFields__field_descriptor
          = String
-> FieldTypeDescriptor Start'HeaderFieldsEntry
-> FieldAccessor Start Start'HeaderFieldsEntry
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header_fields"
              (MessageOrGroup -> FieldTypeDescriptor Start'HeaderFieldsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Start'HeaderFieldsEntry)
              (Lens' Start'HeaderFieldsEntry Text
-> Lens' Start'HeaderFieldsEntry Payload
-> Lens Start Start (Map Text Payload) (Map Text Payload)
-> FieldAccessor Start Start'HeaderFieldsEntry
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 @"headerFields")) ::
              Data.ProtoLens.FieldDescriptor Start
        input__field_descriptor :: FieldDescriptor Start
input__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor Start Payload
-> FieldDescriptor Start
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)
              (Packing -> Lens' Start [Payload] -> FieldAccessor Start Payload
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"input")) ::
              Data.ProtoLens.FieldDescriptor Start
        heartbeatDetails__field_descriptor :: FieldDescriptor Start
heartbeatDetails__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor Start Payload
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"heartbeat_details"
              (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)
              (Packing -> Lens' Start [Payload] -> FieldAccessor Start Payload
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"heartbeatDetails")) ::
              Data.ProtoLens.FieldDescriptor Start
        scheduledTime__field_descriptor :: FieldDescriptor Start
scheduledTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor Start Timestamp
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"scheduled_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor Start Timestamp
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'scheduledTime")) ::
              Data.ProtoLens.FieldDescriptor Start
        currentAttemptScheduledTime__field_descriptor :: FieldDescriptor Start
currentAttemptScheduledTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor Start Timestamp
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"current_attempt_scheduled_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor Start Timestamp
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'currentAttemptScheduledTime")) ::
              Data.ProtoLens.FieldDescriptor Start
        startedTime__field_descriptor :: FieldDescriptor Start
startedTime__field_descriptor
          = String
-> FieldTypeDescriptor Timestamp
-> FieldAccessor Start Timestamp
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"started_time"
              (MessageOrGroup -> FieldTypeDescriptor Timestamp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Timestamp.Timestamp)
              (Lens Start Start (Maybe Timestamp) (Maybe Timestamp)
-> FieldAccessor Start Timestamp
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'startedTime")) ::
              Data.ProtoLens.FieldDescriptor Start
        attempt__field_descriptor :: FieldDescriptor Start
attempt__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor Start Word32
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"attempt"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens Start Start Word32 Word32 -> FieldAccessor Start Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attempt")) ::
              Data.ProtoLens.FieldDescriptor Start
        scheduleToCloseTimeout__field_descriptor :: FieldDescriptor Start
scheduleToCloseTimeout__field_descriptor
          = String
-> FieldTypeDescriptor Duration
-> FieldAccessor Start Duration
-> FieldDescriptor Start
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 Start Start (Maybe Duration) (Maybe Duration)
-> FieldAccessor Start 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 Start
        startToCloseTimeout__field_descriptor :: FieldDescriptor Start
startToCloseTimeout__field_descriptor
          = String
-> FieldTypeDescriptor Duration
-> FieldAccessor Start Duration
-> FieldDescriptor Start
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 Start Start (Maybe Duration) (Maybe Duration)
-> FieldAccessor Start 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 Start
        heartbeatTimeout__field_descriptor :: FieldDescriptor Start
heartbeatTimeout__field_descriptor
          = String
-> FieldTypeDescriptor Duration
-> FieldAccessor Start Duration
-> FieldDescriptor Start
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 Start Start (Maybe Duration) (Maybe Duration)
-> FieldAccessor Start 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 Start
        retryPolicy__field_descriptor :: FieldDescriptor Start
retryPolicy__field_descriptor
          = String
-> FieldTypeDescriptor RetryPolicy
-> FieldAccessor Start RetryPolicy
-> FieldDescriptor Start
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 Start Start (Maybe RetryPolicy) (Maybe RetryPolicy)
-> FieldAccessor Start 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 Start
        isLocal__field_descriptor :: FieldDescriptor Start
isLocal__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor Start Bool
-> FieldDescriptor Start
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"is_local"
              (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 Start Start Bool Bool -> FieldAccessor Start 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 @"isLocal")) ::
              Data.ProtoLens.FieldDescriptor Start
      in
        [(Tag, FieldDescriptor Start)] -> Map Tag (FieldDescriptor Start)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Start
workflowNamespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Start
workflowType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Start
workflowExecution__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Start
activityId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Start
activityType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Start
headerFields__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor Start
input__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor Start
heartbeatDetails__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor Start
scheduledTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, 
            FieldDescriptor Start
currentAttemptScheduledTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor Start
startedTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor Start
attempt__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor Start
scheduleToCloseTimeout__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
14, FieldDescriptor Start
startToCloseTimeout__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
15, FieldDescriptor Start
heartbeatTimeout__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
16, FieldDescriptor Start
retryPolicy__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
17, FieldDescriptor Start
isLocal__field_descriptor)]
  unknownFields :: Lens' Start FieldSet
unknownFields
    = (Start -> FieldSet)
-> (Start -> FieldSet -> Start) -> Lens' Start FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Start -> FieldSet
_Start'_unknownFields
        (\ Start
x__ FieldSet
y__ -> Start
x__ {_Start'_unknownFields = y__})
  defMessage :: Start
defMessage
    = Start'_constructor
        {_Start'workflowNamespace :: Text
_Start'workflowNamespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Start'workflowType :: Text
_Start'workflowType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Start'workflowExecution :: Maybe WorkflowExecution
_Start'workflowExecution = Maybe WorkflowExecution
forall a. Maybe a
Prelude.Nothing,
         _Start'activityId :: Text
_Start'activityId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Start'activityType :: Text
_Start'activityType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Start'headerFields :: Map Text Payload
_Start'headerFields = Map Text Payload
forall k a. Map k a
Data.Map.empty,
         _Start'input :: Vector Payload
_Start'input = Vector Payload
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Start'heartbeatDetails :: Vector Payload
_Start'heartbeatDetails = Vector Payload
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Start'scheduledTime :: Maybe Timestamp
_Start'scheduledTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _Start'currentAttemptScheduledTime :: Maybe Timestamp
_Start'currentAttemptScheduledTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _Start'startedTime :: Maybe Timestamp
_Start'startedTime = Maybe Timestamp
forall a. Maybe a
Prelude.Nothing,
         _Start'attempt :: Word32
_Start'attempt = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Start'scheduleToCloseTimeout :: Maybe Duration
_Start'scheduleToCloseTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
         _Start'startToCloseTimeout :: Maybe Duration
_Start'startToCloseTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
         _Start'heartbeatTimeout :: Maybe Duration
_Start'heartbeatTimeout = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
         _Start'retryPolicy :: Maybe RetryPolicy
_Start'retryPolicy = Maybe RetryPolicy
forall a. Maybe a
Prelude.Nothing,
         _Start'isLocal :: Bool
_Start'isLocal = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Start'_unknownFields :: FieldSet
_Start'_unknownFields = []}
  parseMessage :: Parser Start
parseMessage
    = let
        loop ::
          Start
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Api.Common.V1.Message.Payload
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Api.Common.V1.Message.Payload
                -> Data.ProtoLens.Encoding.Bytes.Parser Start
        loop :: Start
-> Growing Vector RealWorld Payload
-> Growing Vector RealWorld Payload
-> Parser Start
loop Start
x Growing Vector RealWorld Payload
mutable'heartbeatDetails Growing Vector RealWorld Payload
mutable'input
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'heartbeatDetails <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                   (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                      mutable'heartbeatDetails)
                      frozen'input <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'input)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'heartbeatDetails")
                              frozen'heartbeatDetails
                              (Lens.Family2.set
                                 (Data.ProtoLens.Field.field @"vec'input") frozen'input x)))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"workflow_namespace"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"workflowNamespace") y x)
                                  mutable'heartbeatDetails mutable'input
                        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_type"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"workflowType") y x)
                                  mutable'heartbeatDetails mutable'input
                        Word64
26
                          -> 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
"workflow_execution"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"workflowExecution") y x)
                                  mutable'heartbeatDetails mutable'input
                        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
"activity_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"activityId") y x)
                                  mutable'heartbeatDetails mutable'input
                        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
"activity_type"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"activityType") y x)
                                  mutable'heartbeatDetails mutable'input
                        Word64
50
                          -> do !(entry :: Start'HeaderFieldsEntry) <- Parser Start'HeaderFieldsEntry
-> String -> Parser Start'HeaderFieldsEntry
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_fields"
                                (let
                                   key = FoldLike
  Text Start'HeaderFieldsEntry Start'HeaderFieldsEntry Text Text
-> Start'HeaderFieldsEntry -> 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") Start'HeaderFieldsEntry
entry
                                   value
                                     = FoldLike
  Payload
  Start'HeaderFieldsEntry
  Start'HeaderFieldsEntry
  Payload
  Payload
-> Start'HeaderFieldsEntry -> Payload
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Start'HeaderFieldsEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"headerFields")
                                        (\ !Map Text Payload
t -> Text -> Payload -> Map Text Payload -> Map Text Payload
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Payload
value Map Text Payload
t) x)
                                     mutable'heartbeatDetails mutable'input)
                        Word64
58
                          -> 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"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'input y)
                                loop x mutable'heartbeatDetails v
                        Word64
66
                          -> 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
"heartbeat_details"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'heartbeatDetails y)
                                loop x v mutable'input
                        Word64
74
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
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
"scheduled_time"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"scheduledTime") y x)
                                  mutable'heartbeatDetails mutable'input
                        Word64
82
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
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
"current_attempt_scheduled_time"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"currentAttemptScheduledTime") y
                                     x)
                                  mutable'heartbeatDetails mutable'input
                        Word64
90
                          -> do y <- Parser Timestamp -> String -> Parser Timestamp
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
"started_time"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"startedTime") y x)
                                  mutable'heartbeatDetails mutable'input
                        Word64
96
                          -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"attempt"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"attempt") y x)
                                  mutable'heartbeatDetails mutable'input
                        Word64
106
                          -> 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)
                                  mutable'heartbeatDetails mutable'input
                        Word64
114
                          -> 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)
                                  mutable'heartbeatDetails mutable'input
                        Word64
122
                          -> 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)
                                  mutable'heartbeatDetails mutable'input
                        Word64
130
                          -> 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)
                                  mutable'heartbeatDetails mutable'input
                        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
"is_local"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"isLocal") y x)
                                  mutable'heartbeatDetails mutable'input
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'heartbeatDetails mutable'input
      in
        Parser Start -> String -> Parser Start
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'heartbeatDetails <- IO (Growing Vector RealWorld Payload)
-> Parser (Growing Vector RealWorld Payload)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            IO (Growing Vector RealWorld Payload)
IO (Growing Vector (PrimState IO) Payload)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              mutable'input <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 Data.ProtoLens.Encoding.Growing.new
              loop
                Data.ProtoLens.defMessage mutable'heartbeatDetails mutable'input)
          String
"Start"
  buildMessage :: Start -> Builder
buildMessage
    = \ Start
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike Text Start Start Text Text -> Start -> 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 @"workflowNamespace") Start
_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 Start Start Text Text -> Start -> 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 @"workflowType") Start
_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 WorkflowExecution)
  Start
  Start
  (Maybe WorkflowExecution)
  (Maybe WorkflowExecution)
-> Start -> 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'workflowExecution") Start
_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
26)
                             ((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 Start Start Text Text -> Start -> 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") Start
_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 :: Text
_v
                              = FoldLike Text Start Start Text Text -> Start -> 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 @"activityType") Start
_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.<>)
                            ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                               (((Text, Payload) -> Builder) -> [(Text, Payload)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                                  (\ (Text, Payload)
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                                          ((ByteString -> Builder)
-> (Start'HeaderFieldsEntry -> ByteString)
-> Start'HeaderFieldsEntry
-> 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))
                                             Start'HeaderFieldsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             (Setter Start'HeaderFieldsEntry Start'HeaderFieldsEntry Text Text
-> Text -> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Payload) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Payload)
_v)
                                                (Setter
  Start'HeaderFieldsEntry Start'HeaderFieldsEntry Payload Payload
-> Payload -> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                                   ((Text, Payload) -> Payload
forall a b. (a, b) -> b
Prelude.snd (Text, Payload)
_v)
                                                   (Start'HeaderFieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                      Start'HeaderFieldsEntry)))))
                                  (Map Text Payload -> [(Text, Payload)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                     (FoldLike
  (Map Text Payload)
  Start
  Start
  (Map Text Payload)
  (Map Text Payload)
-> Start -> Map Text Payload
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                        (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"headerFields") Start
_x))))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((Payload -> Builder) -> Vector Payload -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ Payload
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                          ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
                                  (FoldLike
  (Vector Payload) Start Start (Vector Payload) (Vector Payload)
-> Start -> Vector Payload
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'input") Start
_x))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  ((Payload -> Builder) -> Vector Payload -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     (\ Payload
_v
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                             ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                (\ ByteString
bs
                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                              (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                                Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
                                     (FoldLike
  (Vector Payload) Start Start (Vector Payload) (Vector Payload)
-> Start -> Vector Payload
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                        (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'heartbeatDetails") Start
_x))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (case
                                          FoldLike
  (Maybe Timestamp) Start Start (Maybe Timestamp) (Maybe Timestamp)
-> Start -> Maybe Timestamp
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'scheduledTime") Start
_x
                                      of
                                        Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                        (Prelude.Just Timestamp
_v)
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
                                               ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
                                                  Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (case
                                             FoldLike
  (Maybe Timestamp) Start Start (Maybe Timestamp) (Maybe Timestamp)
-> Start -> Maybe Timestamp
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'currentAttemptScheduledTime")
                                               Start
_x
                                         of
                                           Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                           (Prelude.Just Timestamp
_v)
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
                                                  ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
                                                     Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (case
                                                FoldLike
  (Maybe Timestamp) Start Start (Maybe Timestamp) (Maybe Timestamp)
-> Start -> Maybe Timestamp
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'startedTime")
                                                  Start
_x
                                            of
                                              Maybe Timestamp
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                              (Prelude.Just Timestamp
_v)
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
                                                     ((ByteString -> Builder)
-> (Timestamp -> ByteString) -> Timestamp -> 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))
                                                        Timestamp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Timestamp
_v))
                                           (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (let
                                                 _v :: Word32
_v
                                                   = FoldLike Word32 Start Start Word32 Word32 -> Start -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attempt") Start
_x
                                               in
                                                 if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                                     Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                 else
                                                     Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
96)
                                                       ((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                          Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
                                              (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                 (case
                                                      FoldLike
  (Maybe Duration) Start Start (Maybe Duration) (Maybe Duration)
-> Start -> 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")
                                                        Start
_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
106)
                                                           ((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) Start Start (Maybe Duration) (Maybe Duration)
-> Start -> 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")
                                                           Start
_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
114)
                                                              ((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) Start Start (Maybe Duration) (Maybe Duration)
-> Start -> 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")
                                                              Start
_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
122)
                                                                 ((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)
  Start
  Start
  (Maybe RetryPolicy)
  (Maybe RetryPolicy)
-> Start -> 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")
                                                                 Start
_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
130)
                                                                    ((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 Start Start Bool Bool -> Start -> 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
                                                                         @"isLocal")
                                                                      Start
_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 Start Start FieldSet FieldSet
-> Start -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                   FoldLike FieldSet Start Start FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Start FieldSet
Data.ProtoLens.unknownFields
                                                                   Start
_x))))))))))))))))))
instance Control.DeepSeq.NFData Start where
  rnf :: Start -> ()
rnf
    = \ Start
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Start -> FieldSet
_Start'_unknownFields Start
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Start -> Text
_Start'workflowNamespace Start
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Start -> Text
_Start'workflowType Start
x__)
                   (Maybe WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Start -> Maybe WorkflowExecution
_Start'workflowExecution Start
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (Start -> Text
_Start'activityId Start
x__)
                         (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (Start -> Text
_Start'activityType Start
x__)
                            (Map Text Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (Start -> Map Text Payload
_Start'headerFields Start
x__)
                               (Vector Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (Start -> Vector Payload
_Start'input Start
x__)
                                  (Vector Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (Start -> Vector Payload
_Start'heartbeatDetails Start
x__)
                                     (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (Start -> Maybe Timestamp
_Start'scheduledTime Start
x__)
                                        (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (Start -> Maybe Timestamp
_Start'currentAttemptScheduledTime Start
x__)
                                           (Maybe Timestamp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (Start -> Maybe Timestamp
_Start'startedTime Start
x__)
                                              (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (Start -> Word32
_Start'attempt Start
x__)
                                                 (Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                    (Start -> Maybe Duration
_Start'scheduleToCloseTimeout Start
x__)
                                                    (Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                       (Start -> Maybe Duration
_Start'startToCloseTimeout Start
x__)
                                                       (Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                          (Start -> Maybe Duration
_Start'heartbeatTimeout Start
x__)
                                                          (Maybe RetryPolicy -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                             (Start -> Maybe RetryPolicy
_Start'retryPolicy Start
x__)
                                                             (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                (Start -> Bool
_Start'isLocal Start
x__)
                                                                ())))))))))))))))))
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.key' @:: Lens' Start'HeaderFieldsEntry Data.Text.Text@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.value' @:: Lens' Start'HeaderFieldsEntry Proto.Temporal.Api.Common.V1.Message.Payload@
         * 'Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask_Fields.maybe'value' @:: Lens' Start'HeaderFieldsEntry (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload)@ -}
data Start'HeaderFieldsEntry
  = Start'HeaderFieldsEntry'_constructor {Start'HeaderFieldsEntry -> Text
_Start'HeaderFieldsEntry'key :: !Data.Text.Text,
                                          Start'HeaderFieldsEntry -> Maybe Payload
_Start'HeaderFieldsEntry'value :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
                                          Start'HeaderFieldsEntry -> FieldSet
_Start'HeaderFieldsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
(Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool)
-> (Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool)
-> Eq Start'HeaderFieldsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
== :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
$c/= :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
/= :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
Prelude.Eq, Eq Start'HeaderFieldsEntry
Eq Start'HeaderFieldsEntry =>
(Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Ordering)
-> (Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool)
-> (Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool)
-> (Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool)
-> (Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool)
-> (Start'HeaderFieldsEntry
    -> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry)
-> (Start'HeaderFieldsEntry
    -> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry)
-> Ord Start'HeaderFieldsEntry
Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Ordering
Start'HeaderFieldsEntry
-> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry
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 :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Ordering
compare :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Ordering
$c< :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
< :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
$c<= :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
<= :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
$c> :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
> :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
$c>= :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
>= :: Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry -> Bool
$cmax :: Start'HeaderFieldsEntry
-> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry
max :: Start'HeaderFieldsEntry
-> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry
$cmin :: Start'HeaderFieldsEntry
-> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry
min :: Start'HeaderFieldsEntry
-> Start'HeaderFieldsEntry -> Start'HeaderFieldsEntry
Prelude.Ord)
instance Prelude.Show Start'HeaderFieldsEntry where
  showsPrec :: Int -> Start'HeaderFieldsEntry -> ShowS
showsPrec Int
_ Start'HeaderFieldsEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Start'HeaderFieldsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Start'HeaderFieldsEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Start'HeaderFieldsEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> Start'HeaderFieldsEntry
-> f Start'HeaderFieldsEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> Start'HeaderFieldsEntry -> f Start'HeaderFieldsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Start'HeaderFieldsEntry
-> f Start'HeaderFieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start'HeaderFieldsEntry -> Text)
-> (Start'HeaderFieldsEntry -> Text -> Start'HeaderFieldsEntry)
-> Lens' Start'HeaderFieldsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start'HeaderFieldsEntry -> Text
_Start'HeaderFieldsEntry'key
           (\ Start'HeaderFieldsEntry
x__ Text
y__ -> Start'HeaderFieldsEntry
x__ {_Start'HeaderFieldsEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Start'HeaderFieldsEntry "value" Proto.Temporal.Api.Common.V1.Message.Payload where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Payload -> f Payload)
-> Start'HeaderFieldsEntry
-> f Start'HeaderFieldsEntry
fieldOf Proxy# "value"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> Start'HeaderFieldsEntry -> f Start'HeaderFieldsEntry)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> Start'HeaderFieldsEntry
-> f Start'HeaderFieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start'HeaderFieldsEntry -> Maybe Payload)
-> (Start'HeaderFieldsEntry
    -> Maybe Payload -> Start'HeaderFieldsEntry)
-> Lens
     Start'HeaderFieldsEntry
     Start'HeaderFieldsEntry
     (Maybe Payload)
     (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start'HeaderFieldsEntry -> Maybe Payload
_Start'HeaderFieldsEntry'value
           (\ Start'HeaderFieldsEntry
x__ Maybe Payload
y__ -> Start'HeaderFieldsEntry
x__ {_Start'HeaderFieldsEntry'value = y__}))
        (Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Start'HeaderFieldsEntry "maybe'value" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe Payload -> f (Maybe Payload))
-> Start'HeaderFieldsEntry
-> f Start'HeaderFieldsEntry
fieldOf Proxy# "maybe'value"
_
    = ((Maybe Payload -> f (Maybe Payload))
 -> Start'HeaderFieldsEntry -> f Start'HeaderFieldsEntry)
-> ((Maybe Payload -> f (Maybe Payload))
    -> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> Start'HeaderFieldsEntry
-> f Start'HeaderFieldsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Start'HeaderFieldsEntry -> Maybe Payload)
-> (Start'HeaderFieldsEntry
    -> Maybe Payload -> Start'HeaderFieldsEntry)
-> Lens
     Start'HeaderFieldsEntry
     Start'HeaderFieldsEntry
     (Maybe Payload)
     (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Start'HeaderFieldsEntry -> Maybe Payload
_Start'HeaderFieldsEntry'value
           (\ Start'HeaderFieldsEntry
x__ Maybe Payload
y__ -> Start'HeaderFieldsEntry
x__ {_Start'HeaderFieldsEntry'value = y__}))
        (Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Start'HeaderFieldsEntry where
  messageName :: Proxy Start'HeaderFieldsEntry -> Text
messageName Proxy Start'HeaderFieldsEntry
_
    = String -> Text
Data.Text.pack String
"coresdk.activity_task.Start.HeaderFieldsEntry"
  packedMessageDescriptor :: Proxy Start'HeaderFieldsEntry -> ByteString
packedMessageDescriptor Proxy Start'HeaderFieldsEntry
_
    = ByteString
"\n\
      \\DC1HeaderFieldsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
      \\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy Start'HeaderFieldsEntry -> ByteString
packedFileDescriptor Proxy Start'HeaderFieldsEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Start'HeaderFieldsEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor Start'HeaderFieldsEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Start'HeaderFieldsEntry Text
-> FieldDescriptor Start'HeaderFieldsEntry
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' Start'HeaderFieldsEntry Text
-> FieldAccessor Start'HeaderFieldsEntry 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 Start'HeaderFieldsEntry
        value__field_descriptor :: FieldDescriptor Start'HeaderFieldsEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor Start'HeaderFieldsEntry Payload
-> FieldDescriptor Start'HeaderFieldsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payload)
              (Lens
  Start'HeaderFieldsEntry
  Start'HeaderFieldsEntry
  (Maybe Payload)
  (Maybe Payload)
-> FieldAccessor Start'HeaderFieldsEntry Payload
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value")) ::
              Data.ProtoLens.FieldDescriptor Start'HeaderFieldsEntry
      in
        [(Tag, FieldDescriptor Start'HeaderFieldsEntry)]
-> Map Tag (FieldDescriptor Start'HeaderFieldsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Start'HeaderFieldsEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Start'HeaderFieldsEntry
value__field_descriptor)]
  unknownFields :: Lens' Start'HeaderFieldsEntry FieldSet
unknownFields
    = (Start'HeaderFieldsEntry -> FieldSet)
-> (Start'HeaderFieldsEntry -> FieldSet -> Start'HeaderFieldsEntry)
-> Lens' Start'HeaderFieldsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Start'HeaderFieldsEntry -> FieldSet
_Start'HeaderFieldsEntry'_unknownFields
        (\ Start'HeaderFieldsEntry
x__ FieldSet
y__ -> Start'HeaderFieldsEntry
x__ {_Start'HeaderFieldsEntry'_unknownFields = y__})
  defMessage :: Start'HeaderFieldsEntry
defMessage
    = Start'HeaderFieldsEntry'_constructor
        {_Start'HeaderFieldsEntry'key :: Text
_Start'HeaderFieldsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Start'HeaderFieldsEntry'value :: Maybe Payload
_Start'HeaderFieldsEntry'value = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
         _Start'HeaderFieldsEntry'_unknownFields :: FieldSet
_Start'HeaderFieldsEntry'_unknownFields = []}
  parseMessage :: Parser Start'HeaderFieldsEntry
parseMessage
    = let
        loop ::
          Start'HeaderFieldsEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser Start'HeaderFieldsEntry
        loop :: Start'HeaderFieldsEntry -> Parser Start'HeaderFieldsEntry
loop Start'HeaderFieldsEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
18
                          -> do y <- Parser Payload -> String -> Parser Payload
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Start'HeaderFieldsEntry
-> String -> Parser Start'HeaderFieldsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Start'HeaderFieldsEntry -> Parser Start'HeaderFieldsEntry
loop Start'HeaderFieldsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HeaderFieldsEntry"
  buildMessage :: Start'HeaderFieldsEntry -> Builder
buildMessage
    = \ Start'HeaderFieldsEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text Start'HeaderFieldsEntry Start'HeaderFieldsEntry Text Text
-> Start'HeaderFieldsEntry -> 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") Start'HeaderFieldsEntry
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Payload)
  Start'HeaderFieldsEntry
  Start'HeaderFieldsEntry
  (Maybe Payload)
  (Maybe Payload)
-> Start'HeaderFieldsEntry -> Maybe Payload
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") Start'HeaderFieldsEntry
_x
                 of
                   Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Payload
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  Start'HeaderFieldsEntry
  Start'HeaderFieldsEntry
  FieldSet
  FieldSet
-> Start'HeaderFieldsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  Start'HeaderFieldsEntry
  Start'HeaderFieldsEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Start'HeaderFieldsEntry FieldSet
Data.ProtoLens.unknownFields Start'HeaderFieldsEntry
_x)))
instance Control.DeepSeq.NFData Start'HeaderFieldsEntry where
  rnf :: Start'HeaderFieldsEntry -> ()
rnf
    = \ Start'HeaderFieldsEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Start'HeaderFieldsEntry -> FieldSet
_Start'HeaderFieldsEntry'_unknownFields Start'HeaderFieldsEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Start'HeaderFieldsEntry -> Text
_Start'HeaderFieldsEntry'key Start'HeaderFieldsEntry
x__)
                (Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Start'HeaderFieldsEntry -> Maybe Payload
_Start'HeaderFieldsEntry'value Start'HeaderFieldsEntry
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \3temporal/sdk/core/activity_task/activity_task.proto\DC2\NAKcoresdk.activity_task\SUB\RSgoogle/protobuf/duration.proto\SUB\USgoogle/protobuf/timestamp.proto\SUB$temporal/api/common/v1/message.proto\SUB%temporal/sdk/core/common/common.proto\"\167\SOH\n\
    \\fActivityTask\DC2\GS\n\
    \\n\
    \task_token\CAN\SOH \SOH(\fR\ttaskToken\DC24\n\
    \\ENQstart\CAN\ETX \SOH(\v2\FS.coresdk.activity_task.StartH\NULR\ENQstart\DC27\n\
    \\ACKcancel\CAN\EOT \SOH(\v2\GS.coresdk.activity_task.CancelH\NULR\ACKcancelB\t\n\
    \\avariant\"\133\t\n\
    \\ENQStart\DC2-\n\
    \\DC2workflow_namespace\CAN\SOH \SOH(\tR\DC1workflowNamespace\DC2#\n\
    \\rworkflow_type\CAN\STX \SOH(\tR\fworkflowType\DC2X\n\
    \\DC2workflow_execution\CAN\ETX \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2\US\n\
    \\vactivity_id\CAN\EOT \SOH(\tR\n\
    \activityId\DC2#\n\
    \\ractivity_type\CAN\ENQ \SOH(\tR\factivityType\DC2S\n\
    \\rheader_fields\CAN\ACK \ETX(\v2..coresdk.activity_task.Start.HeaderFieldsEntryR\fheaderFields\DC25\n\
    \\ENQinput\CAN\a \ETX(\v2\US.temporal.api.common.v1.PayloadR\ENQinput\DC2L\n\
    \\DC1heartbeat_details\CAN\b \ETX(\v2\US.temporal.api.common.v1.PayloadR\DLEheartbeatDetails\DC2A\n\
    \\SOscheduled_time\CAN\t \SOH(\v2\SUB.google.protobuf.TimestampR\rscheduledTime\DC2_\n\
    \\RScurrent_attempt_scheduled_time\CAN\n\
    \ \SOH(\v2\SUB.google.protobuf.TimestampR\ESCcurrentAttemptScheduledTime\DC2=\n\
    \\fstarted_time\CAN\v \SOH(\v2\SUB.google.protobuf.TimestampR\vstartedTime\DC2\CAN\n\
    \\aattempt\CAN\f \SOH(\rR\aattempt\DC2T\n\
    \\EMschedule_to_close_timeout\CAN\r \SOH(\v2\EM.google.protobuf.DurationR\SYNscheduleToCloseTimeout\DC2N\n\
    \\SYNstart_to_close_timeout\CAN\SO \SOH(\v2\EM.google.protobuf.DurationR\DC3startToCloseTimeout\DC2F\n\
    \\DC1heartbeat_timeout\CAN\SI \SOH(\v2\EM.google.protobuf.DurationR\DLEheartbeatTimeout\DC2F\n\
    \\fretry_policy\CAN\DLE \SOH(\v2#.temporal.api.common.v1.RetryPolicyR\vretryPolicy\DC2\EM\n\
    \\bis_local\CAN\DC1 \SOH(\bR\aisLocal\SUB`\n\
    \\DC1HeaderFieldsEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC25\n\
    \\ENQvalue\CAN\STX \SOH(\v2\US.temporal.api.common.v1.PayloadR\ENQvalue:\STX8\SOH\"M\n\
    \\ACKCancel\DC2C\n\
    \\ACKreason\CAN\SOH \SOH(\SO2+.coresdk.activity_task.ActivityCancelReasonR\ACKreason*X\n\
    \\DC4ActivityCancelReason\DC2\r\n\
    \\tNOT_FOUND\DLE\NUL\DC2\r\n\
    \\tCANCELLED\DLE\SOH\DC2\r\n\
    \\tTIMED_OUT\DLE\STX\DC2\DC3\n\
    \\SIWORKER_SHUTDOWN\DLE\ETXB(\234\STX%Temporalio::Bridge::Api::ActivityTaskJ\254\ETB\n\
    \\ACK\DC2\EOT\NUL\NULO\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \a\n\
    \\SOH\STX\DC2\ETX\ENQ\NUL\RS\SUBW*\n\
    \ Definitions of the different activity tasks returned from [crate::Core::poll_task].\n\
    \\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ACK\NUL>\n\
    \\t\n\
    \\STX\b-\DC2\ETX\ACK\NUL>\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\b\NUL(\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\t\NUL)\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX\n\
    \\NUL.\n\
    \\t\n\
    \\STX\ETX\ETX\DC2\ETX\v\NUL/\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\r\NUL\SYN\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\r\b\DC4\n\
    \0\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\EOT\EM\SUB# A unique identifier for this task\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SI\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\n\
    \\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\ETB\CAN\n\
    \\f\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT\DLE\EOT\NAK\ENQ\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\DLE\n\
    \\DC1\n\
    \(\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC2\b\CAN\SUB\ESC Start activity execution.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\DC2\b\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC2\SO\DC3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC2\SYN\ETB\n\
    \4\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\DC4\b\SUB\SUB' Attempt to cancel activity execution.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\DC4\b\SO\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\DC4\SI\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\DC4\CAN\EM\n\
    \)\n\
    \\STX\EOT\SOH\DC2\EOT\EM\NUL?\SOH\SUB\GS Begin executing an activity\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\EM\b\r\n\
    \2\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\ESC\EOT\"\SUB% The namespace the workflow lives in\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\ESC\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\ESC\v\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\ESC !\n\
    \>\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\GS\EOT\GS\SUB1 The workflow's type name or function identifier\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\GS\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\GS\v\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\GS\ESC\FS\n\
    \C\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX\US\EOTD\SUB6 The workflow execution which requested this activity\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\US\EOT,\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\US-?\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\USBC\n\
    \ \n\
    \\EOT\EOT\SOH\STX\ETX\DC2\ETX!\EOT\ESC\SUB\DC3 The activity's ID\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETX!\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX!\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX!\EM\SUB\n\
    \>\n\
    \\EOT\EOT\SOH\STX\EOT\DC2\ETX#\EOT\GS\SUB1 The activity's type name or function identifier\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\EOT\ENQ\DC2\ETX#\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\EOT\SOH\DC2\ETX#\v\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\EOT\ETX\DC2\ETX#\ESC\FS\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\ENQ\DC2\ETX$\EOTB\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ENQ\ACK\DC2\ETX$\EOT/\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\ETX$0=\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\ETX$@A\n\
    \(\n\
    \\EOT\EOT\SOH\STX\ACK\DC2\ETX&\EOT6\SUB\ESC Arguments to the activity\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ACK\EOT\DC2\ETX&\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ACK\ACK\DC2\ETX&\r+\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ACK\SOH\DC2\ETX&,1\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ACK\ETX\DC2\ETX&45\n\
    \^\n\
    \\EOT\EOT\SOH\STX\a\DC2\ETX(\EOTB\SUBQ The last details that were recorded by a heartbeat when this task was generated\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\a\EOT\DC2\ETX(\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\a\ACK\DC2\ETX(\r+\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\a\SOH\DC2\ETX(,=\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\a\ETX\DC2\ETX(@A\n\
    \2\n\
    \\EOT\EOT\SOH\STX\b\DC2\ETX*\EOT1\SUB% When the task was *first* scheduled\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\b\ACK\DC2\ETX*\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\b\SOH\DC2\ETX*\RS,\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\b\ETX\DC2\ETX*/0\n\
    \B\n\
    \\EOT\EOT\SOH\STX\t\DC2\ETX,\EOTB\SUB5 When this current attempt at the task was scheduled\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\t\ACK\DC2\ETX,\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\t\SOH\DC2\ETX,\RS<\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\t\ETX\DC2\ETX,?A\n\
    \_\n\
    \\EOT\EOT\SOH\STX\n\
    \\DC2\ETX.\EOT0\SUBR When this attempt was started, which is to say when core received it by polling.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\n\
    \\ACK\DC2\ETX.\EOT\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\n\
    \\SOH\DC2\ETX.\RS*\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\n\
    \\ETX\DC2\ETX.-/\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\v\DC2\ETX/\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\v\ENQ\DC2\ETX/\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\v\SOH\DC2\ETX/\v\DC2\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\v\ETX\DC2\ETX/\NAK\ETB\n\
    \A\n\
    \\EOT\EOT\SOH\STX\f\DC2\ETX2\EOT<\SUB4 Timeout from the first schedule time to completion\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\f\ACK\DC2\ETX2\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\f\SOH\DC2\ETX2\GS6\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\f\ETX\DC2\ETX29;\n\
    \G\n\
    \\EOT\EOT\SOH\STX\r\DC2\ETX4\EOT9\SUB: Timeout from starting an attempt to reporting its result\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\r\ACK\DC2\ETX4\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\r\SOH\DC2\ETX4\GS3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\r\ETX\DC2\ETX468\n\
    \G\n\
    \\EOT\EOT\SOH\STX\SO\DC2\ETX6\EOT4\SUB: If set a heartbeat must be reported within this interval\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SO\ACK\DC2\ETX6\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SO\SOH\DC2\ETX6\GS.\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SO\ETX\DC2\ETX613\n\
    \\134\STX\n\
    \\EOT\EOT\SOH\STX\SI\DC2\ETX:\EOT9\SUB\248\SOH This is an actual retry policy the service uses. It can be different from the one provided\n\
    \ (or not) during activity scheduling as the service can override the provided one in case its\n\
    \ values are not specified or exceed configured system limits.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SI\ACK\DC2\ETX:\EOT&\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SI\SOH\DC2\ETX:'3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SI\ETX\DC2\ETX:68\n\
    \s\n\
    \\EOT\EOT\SOH\STX\DLE\DC2\ETX>\EOT\ETB\SUBf Set to true if this is a local activity. Note that heartbeating does not apply to local\n\
    \ activities.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\DLE\ENQ\DC2\ETX>\EOT\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\DLE\SOH\DC2\ETX>\t\DC1\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\DLE\ETX\DC2\ETX>\DC4\SYN\n\
    \2\n\
    \\STX\EOT\STX\DC2\EOTB\NULD\SOH\SUB& Attempt to cancel a running activity\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETXB\b\SO\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXC\EOT$\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXC\EOT\CAN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXC\EM\US\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXC\"#\n\
    \\n\
    \\n\
    \\STX\ENQ\NUL\DC2\EOTF\NULO\SOH\n\
    \\n\
    \\n\
    \\ETX\ENQ\NUL\SOH\DC2\ETXF\ENQ\EM\n\
    \[\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\ETXH\EOT\DC2\SUBN The activity no longer exists according to server (may be already completed)\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETXH\EOT\r\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETXH\DLE\DC1\n\
    \0\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\ETXJ\EOT\DC2\SUB# Activity was explicitly cancelled\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETXJ\EOT\r\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETXJ\DLE\DC1\n\
    \!\n\
    \\EOT\ENQ\NUL\STX\STX\DC2\ETXL\EOT\DC2\SUB\DC4 Activity timed out\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETXL\EOT\r\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETXL\DLE\DC1\n\
    \I\n\
    \\EOT\ENQ\NUL\STX\ETX\DC2\ETXN\EOT\CAN\SUB< Core is shutting down and the graceful timeout has elapsed\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETXN\EOT\DC3\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETXN\SYN\ETBb\ACKproto3"