{- This file was auto-generated from temporal/sdk/core/core_interface.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.CoreInterface (
        ActivityHeartbeat(), ActivityTaskCompletion()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Duration
import qualified Proto.Google.Protobuf.Empty
import qualified Proto.Google.Protobuf.Timestamp
import qualified Proto.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult
import qualified Proto.Temporal.Sdk.Core.ActivityTask.ActivityTask
import qualified Proto.Temporal.Sdk.Core.Common.Common
import qualified Proto.Temporal.Sdk.Core.ExternalData.ExternalData
import qualified Proto.Temporal.Sdk.Core.WorkflowActivation.WorkflowActivation
import qualified Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands
import qualified Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.CoreInterface_Fields.taskToken' @:: Lens' ActivityHeartbeat Data.ByteString.ByteString@
         * 'Proto.Temporal.Sdk.Core.CoreInterface_Fields.details' @:: Lens' ActivityHeartbeat [Proto.Temporal.Api.Common.V1.Message.Payload]@
         * 'Proto.Temporal.Sdk.Core.CoreInterface_Fields.vec'details' @:: Lens' ActivityHeartbeat (Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload)@ -}
data ActivityHeartbeat
  = ActivityHeartbeat'_constructor {ActivityHeartbeat -> ByteString
_ActivityHeartbeat'taskToken :: !Data.ByteString.ByteString,
                                    ActivityHeartbeat -> Vector Payload
_ActivityHeartbeat'details :: !(Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload),
                                    ActivityHeartbeat -> FieldSet
_ActivityHeartbeat'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ActivityHeartbeat -> ActivityHeartbeat -> Bool
(ActivityHeartbeat -> ActivityHeartbeat -> Bool)
-> (ActivityHeartbeat -> ActivityHeartbeat -> Bool)
-> Eq ActivityHeartbeat
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
== :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
$c/= :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
/= :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
Prelude.Eq, Eq ActivityHeartbeat
Eq ActivityHeartbeat =>
(ActivityHeartbeat -> ActivityHeartbeat -> Ordering)
-> (ActivityHeartbeat -> ActivityHeartbeat -> Bool)
-> (ActivityHeartbeat -> ActivityHeartbeat -> Bool)
-> (ActivityHeartbeat -> ActivityHeartbeat -> Bool)
-> (ActivityHeartbeat -> ActivityHeartbeat -> Bool)
-> (ActivityHeartbeat -> ActivityHeartbeat -> ActivityHeartbeat)
-> (ActivityHeartbeat -> ActivityHeartbeat -> ActivityHeartbeat)
-> Ord ActivityHeartbeat
ActivityHeartbeat -> ActivityHeartbeat -> Bool
ActivityHeartbeat -> ActivityHeartbeat -> Ordering
ActivityHeartbeat -> ActivityHeartbeat -> ActivityHeartbeat
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 :: ActivityHeartbeat -> ActivityHeartbeat -> Ordering
compare :: ActivityHeartbeat -> ActivityHeartbeat -> Ordering
$c< :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
< :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
$c<= :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
<= :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
$c> :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
> :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
$c>= :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
>= :: ActivityHeartbeat -> ActivityHeartbeat -> Bool
$cmax :: ActivityHeartbeat -> ActivityHeartbeat -> ActivityHeartbeat
max :: ActivityHeartbeat -> ActivityHeartbeat -> ActivityHeartbeat
$cmin :: ActivityHeartbeat -> ActivityHeartbeat -> ActivityHeartbeat
min :: ActivityHeartbeat -> ActivityHeartbeat -> ActivityHeartbeat
Prelude.Ord)
instance Prelude.Show ActivityHeartbeat where
  showsPrec :: Int -> ActivityHeartbeat -> ShowS
showsPrec Int
_ ActivityHeartbeat
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ActivityHeartbeat -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ActivityHeartbeat
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ActivityHeartbeat "taskToken" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskToken"
-> (ByteString -> f ByteString)
-> ActivityHeartbeat
-> f ActivityHeartbeat
fieldOf Proxy# "taskToken"
_
    = ((ByteString -> f ByteString)
 -> ActivityHeartbeat -> f ActivityHeartbeat)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ActivityHeartbeat
-> f ActivityHeartbeat
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityHeartbeat -> ByteString)
-> (ActivityHeartbeat -> ByteString -> ActivityHeartbeat)
-> Lens ActivityHeartbeat ActivityHeartbeat ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityHeartbeat -> ByteString
_ActivityHeartbeat'taskToken
           (\ ActivityHeartbeat
x__ ByteString
y__ -> ActivityHeartbeat
x__ {_ActivityHeartbeat'taskToken = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityHeartbeat "details" [Proto.Temporal.Api.Common.V1.Message.Payload] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details"
-> ([Payload] -> f [Payload])
-> ActivityHeartbeat
-> f ActivityHeartbeat
fieldOf Proxy# "details"
_
    = ((Vector Payload -> f (Vector Payload))
 -> ActivityHeartbeat -> f ActivityHeartbeat)
-> (([Payload] -> f [Payload])
    -> Vector Payload -> f (Vector Payload))
-> ([Payload] -> f [Payload])
-> ActivityHeartbeat
-> f ActivityHeartbeat
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityHeartbeat -> Vector Payload)
-> (ActivityHeartbeat -> Vector Payload -> ActivityHeartbeat)
-> Lens
     ActivityHeartbeat
     ActivityHeartbeat
     (Vector Payload)
     (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityHeartbeat -> Vector Payload
_ActivityHeartbeat'details
           (\ ActivityHeartbeat
x__ Vector Payload
y__ -> ActivityHeartbeat
x__ {_ActivityHeartbeat'details = 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 ActivityHeartbeat "vec'details" (Data.Vector.Vector Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'details"
-> (Vector Payload -> f (Vector Payload))
-> ActivityHeartbeat
-> f ActivityHeartbeat
fieldOf Proxy# "vec'details"
_
    = ((Vector Payload -> f (Vector Payload))
 -> ActivityHeartbeat -> f ActivityHeartbeat)
-> ((Vector Payload -> f (Vector Payload))
    -> Vector Payload -> f (Vector Payload))
-> (Vector Payload -> f (Vector Payload))
-> ActivityHeartbeat
-> f ActivityHeartbeat
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityHeartbeat -> Vector Payload)
-> (ActivityHeartbeat -> Vector Payload -> ActivityHeartbeat)
-> Lens
     ActivityHeartbeat
     ActivityHeartbeat
     (Vector Payload)
     (Vector Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityHeartbeat -> Vector Payload
_ActivityHeartbeat'details
           (\ ActivityHeartbeat
x__ Vector Payload
y__ -> ActivityHeartbeat
x__ {_ActivityHeartbeat'details = y__}))
        (Vector Payload -> f (Vector Payload))
-> Vector Payload -> f (Vector Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ActivityHeartbeat where
  messageName :: Proxy ActivityHeartbeat -> Text
messageName Proxy ActivityHeartbeat
_ = String -> Text
Data.Text.pack String
"coresdk.ActivityHeartbeat"
  packedMessageDescriptor :: Proxy ActivityHeartbeat -> ByteString
packedMessageDescriptor Proxy ActivityHeartbeat
_
    = ByteString
"\n\
      \\DC1ActivityHeartbeat\DC2\GS\n\
      \\n\
      \task_token\CAN\SOH \SOH(\fR\ttaskToken\DC29\n\
      \\adetails\CAN\STX \ETX(\v2\US.temporal.api.common.v1.PayloadR\adetails"
  packedFileDescriptor :: Proxy ActivityHeartbeat -> ByteString
packedFileDescriptor Proxy ActivityHeartbeat
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ActivityHeartbeat)
fieldsByTag
    = let
        taskToken__field_descriptor :: FieldDescriptor ActivityHeartbeat
taskToken__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ActivityHeartbeat ByteString
-> FieldDescriptor ActivityHeartbeat
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 ActivityHeartbeat ActivityHeartbeat ByteString ByteString
-> FieldAccessor ActivityHeartbeat 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 ActivityHeartbeat
        details__field_descriptor :: FieldDescriptor ActivityHeartbeat
details__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor ActivityHeartbeat Payload
-> FieldDescriptor ActivityHeartbeat
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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' ActivityHeartbeat [Payload]
-> FieldAccessor ActivityHeartbeat 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 @"details")) ::
              Data.ProtoLens.FieldDescriptor ActivityHeartbeat
      in
        [(Tag, FieldDescriptor ActivityHeartbeat)]
-> Map Tag (FieldDescriptor ActivityHeartbeat)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ActivityHeartbeat
taskToken__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ActivityHeartbeat
details__field_descriptor)]
  unknownFields :: Lens' ActivityHeartbeat FieldSet
unknownFields
    = (ActivityHeartbeat -> FieldSet)
-> (ActivityHeartbeat -> FieldSet -> ActivityHeartbeat)
-> Lens' ActivityHeartbeat FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ActivityHeartbeat -> FieldSet
_ActivityHeartbeat'_unknownFields
        (\ ActivityHeartbeat
x__ FieldSet
y__ -> ActivityHeartbeat
x__ {_ActivityHeartbeat'_unknownFields = y__})
  defMessage :: ActivityHeartbeat
defMessage
    = ActivityHeartbeat'_constructor
        {_ActivityHeartbeat'taskToken :: ByteString
_ActivityHeartbeat'taskToken = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ActivityHeartbeat'details :: Vector Payload
_ActivityHeartbeat'details = Vector Payload
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ActivityHeartbeat'_unknownFields :: FieldSet
_ActivityHeartbeat'_unknownFields = []}
  parseMessage :: Parser ActivityHeartbeat
parseMessage
    = let
        loop ::
          ActivityHeartbeat
          -> 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 ActivityHeartbeat
        loop :: ActivityHeartbeat
-> Growing Vector RealWorld Payload -> Parser ActivityHeartbeat
loop ActivityHeartbeat
x Growing Vector RealWorld Payload
mutable'details
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'details <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'details)
                      (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'details") frozen'details 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)
                                  mutable'details
                        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
"details"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'details y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'details
      in
        Parser ActivityHeartbeat -> String -> Parser ActivityHeartbeat
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'details <- IO (Growing Vector RealWorld Payload)
-> Parser (Growing Vector RealWorld Payload)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Payload)
IO (Growing Vector (PrimState IO) Payload)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'details)
          String
"ActivityHeartbeat"
  buildMessage :: ActivityHeartbeat -> Builder
buildMessage
    = \ ActivityHeartbeat
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v = FoldLike
  ByteString
  ActivityHeartbeat
  ActivityHeartbeat
  ByteString
  ByteString
-> ActivityHeartbeat -> 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") ActivityHeartbeat
_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.<>)
                ((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
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))
                   (FoldLike
  (Vector Payload)
  ActivityHeartbeat
  ActivityHeartbeat
  (Vector Payload)
  (Vector Payload)
-> ActivityHeartbeat -> 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'details") ActivityHeartbeat
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet ActivityHeartbeat ActivityHeartbeat FieldSet FieldSet
-> ActivityHeartbeat -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ActivityHeartbeat ActivityHeartbeat FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ActivityHeartbeat FieldSet
Data.ProtoLens.unknownFields ActivityHeartbeat
_x)))
instance Control.DeepSeq.NFData ActivityHeartbeat where
  rnf :: ActivityHeartbeat -> ()
rnf
    = \ ActivityHeartbeat
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ActivityHeartbeat -> FieldSet
_ActivityHeartbeat'_unknownFields ActivityHeartbeat
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ActivityHeartbeat -> ByteString
_ActivityHeartbeat'taskToken ActivityHeartbeat
x__)
                (Vector Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ActivityHeartbeat -> Vector Payload
_ActivityHeartbeat'details ActivityHeartbeat
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.CoreInterface_Fields.taskToken' @:: Lens' ActivityTaskCompletion Data.ByteString.ByteString@
         * 'Proto.Temporal.Sdk.Core.CoreInterface_Fields.result' @:: Lens' ActivityTaskCompletion Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult.ActivityExecutionResult@
         * 'Proto.Temporal.Sdk.Core.CoreInterface_Fields.maybe'result' @:: Lens' ActivityTaskCompletion (Prelude.Maybe Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult.ActivityExecutionResult)@ -}
data ActivityTaskCompletion
  = ActivityTaskCompletion'_constructor {ActivityTaskCompletion -> ByteString
_ActivityTaskCompletion'taskToken :: !Data.ByteString.ByteString,
                                         ActivityTaskCompletion -> Maybe ActivityExecutionResult
_ActivityTaskCompletion'result :: !(Prelude.Maybe Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult.ActivityExecutionResult),
                                         ActivityTaskCompletion -> FieldSet
_ActivityTaskCompletion'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
(ActivityTaskCompletion -> ActivityTaskCompletion -> Bool)
-> (ActivityTaskCompletion -> ActivityTaskCompletion -> Bool)
-> Eq ActivityTaskCompletion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
== :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
$c/= :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
/= :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
Prelude.Eq, Eq ActivityTaskCompletion
Eq ActivityTaskCompletion =>
(ActivityTaskCompletion -> ActivityTaskCompletion -> Ordering)
-> (ActivityTaskCompletion -> ActivityTaskCompletion -> Bool)
-> (ActivityTaskCompletion -> ActivityTaskCompletion -> Bool)
-> (ActivityTaskCompletion -> ActivityTaskCompletion -> Bool)
-> (ActivityTaskCompletion -> ActivityTaskCompletion -> Bool)
-> (ActivityTaskCompletion
    -> ActivityTaskCompletion -> ActivityTaskCompletion)
-> (ActivityTaskCompletion
    -> ActivityTaskCompletion -> ActivityTaskCompletion)
-> Ord ActivityTaskCompletion
ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
ActivityTaskCompletion -> ActivityTaskCompletion -> Ordering
ActivityTaskCompletion
-> ActivityTaskCompletion -> ActivityTaskCompletion
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 :: ActivityTaskCompletion -> ActivityTaskCompletion -> Ordering
compare :: ActivityTaskCompletion -> ActivityTaskCompletion -> Ordering
$c< :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
< :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
$c<= :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
<= :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
$c> :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
> :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
$c>= :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
>= :: ActivityTaskCompletion -> ActivityTaskCompletion -> Bool
$cmax :: ActivityTaskCompletion
-> ActivityTaskCompletion -> ActivityTaskCompletion
max :: ActivityTaskCompletion
-> ActivityTaskCompletion -> ActivityTaskCompletion
$cmin :: ActivityTaskCompletion
-> ActivityTaskCompletion -> ActivityTaskCompletion
min :: ActivityTaskCompletion
-> ActivityTaskCompletion -> ActivityTaskCompletion
Prelude.Ord)
instance Prelude.Show ActivityTaskCompletion where
  showsPrec :: Int -> ActivityTaskCompletion -> ShowS
showsPrec Int
_ ActivityTaskCompletion
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ActivityTaskCompletion -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ActivityTaskCompletion
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ActivityTaskCompletion "taskToken" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "taskToken"
-> (ByteString -> f ByteString)
-> ActivityTaskCompletion
-> f ActivityTaskCompletion
fieldOf Proxy# "taskToken"
_
    = ((ByteString -> f ByteString)
 -> ActivityTaskCompletion -> f ActivityTaskCompletion)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> ActivityTaskCompletion
-> f ActivityTaskCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTaskCompletion -> ByteString)
-> (ActivityTaskCompletion -> ByteString -> ActivityTaskCompletion)
-> Lens
     ActivityTaskCompletion ActivityTaskCompletion ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTaskCompletion -> ByteString
_ActivityTaskCompletion'taskToken
           (\ ActivityTaskCompletion
x__ ByteString
y__ -> ActivityTaskCompletion
x__ {_ActivityTaskCompletion'taskToken = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityTaskCompletion "result" Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult.ActivityExecutionResult where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "result"
-> (ActivityExecutionResult -> f ActivityExecutionResult)
-> ActivityTaskCompletion
-> f ActivityTaskCompletion
fieldOf Proxy# "result"
_
    = ((Maybe ActivityExecutionResult
  -> f (Maybe ActivityExecutionResult))
 -> ActivityTaskCompletion -> f ActivityTaskCompletion)
-> ((ActivityExecutionResult -> f ActivityExecutionResult)
    -> Maybe ActivityExecutionResult
    -> f (Maybe ActivityExecutionResult))
-> (ActivityExecutionResult -> f ActivityExecutionResult)
-> ActivityTaskCompletion
-> f ActivityTaskCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTaskCompletion -> Maybe ActivityExecutionResult)
-> (ActivityTaskCompletion
    -> Maybe ActivityExecutionResult -> ActivityTaskCompletion)
-> Lens
     ActivityTaskCompletion
     ActivityTaskCompletion
     (Maybe ActivityExecutionResult)
     (Maybe ActivityExecutionResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTaskCompletion -> Maybe ActivityExecutionResult
_ActivityTaskCompletion'result
           (\ ActivityTaskCompletion
x__ Maybe ActivityExecutionResult
y__ -> ActivityTaskCompletion
x__ {_ActivityTaskCompletion'result = y__}))
        (ActivityExecutionResult
-> Lens' (Maybe ActivityExecutionResult) ActivityExecutionResult
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ActivityExecutionResult
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ActivityTaskCompletion "maybe'result" (Prelude.Maybe Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult.ActivityExecutionResult) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'result"
-> (Maybe ActivityExecutionResult
    -> f (Maybe ActivityExecutionResult))
-> ActivityTaskCompletion
-> f ActivityTaskCompletion
fieldOf Proxy# "maybe'result"
_
    = ((Maybe ActivityExecutionResult
  -> f (Maybe ActivityExecutionResult))
 -> ActivityTaskCompletion -> f ActivityTaskCompletion)
-> ((Maybe ActivityExecutionResult
     -> f (Maybe ActivityExecutionResult))
    -> Maybe ActivityExecutionResult
    -> f (Maybe ActivityExecutionResult))
-> (Maybe ActivityExecutionResult
    -> f (Maybe ActivityExecutionResult))
-> ActivityTaskCompletion
-> f ActivityTaskCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ActivityTaskCompletion -> Maybe ActivityExecutionResult)
-> (ActivityTaskCompletion
    -> Maybe ActivityExecutionResult -> ActivityTaskCompletion)
-> Lens
     ActivityTaskCompletion
     ActivityTaskCompletion
     (Maybe ActivityExecutionResult)
     (Maybe ActivityExecutionResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ActivityTaskCompletion -> Maybe ActivityExecutionResult
_ActivityTaskCompletion'result
           (\ ActivityTaskCompletion
x__ Maybe ActivityExecutionResult
y__ -> ActivityTaskCompletion
x__ {_ActivityTaskCompletion'result = y__}))
        (Maybe ActivityExecutionResult
 -> f (Maybe ActivityExecutionResult))
-> Maybe ActivityExecutionResult
-> f (Maybe ActivityExecutionResult)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ActivityTaskCompletion where
  messageName :: Proxy ActivityTaskCompletion -> Text
messageName Proxy ActivityTaskCompletion
_ = String -> Text
Data.Text.pack String
"coresdk.ActivityTaskCompletion"
  packedMessageDescriptor :: Proxy ActivityTaskCompletion -> ByteString
packedMessageDescriptor Proxy ActivityTaskCompletion
_
    = ByteString
"\n\
      \\SYNActivityTaskCompletion\DC2\GS\n\
      \\n\
      \task_token\CAN\SOH \SOH(\fR\ttaskToken\DC2H\n\
      \\ACKresult\CAN\STX \SOH(\v20.coresdk.activity_result.ActivityExecutionResultR\ACKresult"
  packedFileDescriptor :: Proxy ActivityTaskCompletion -> ByteString
packedFileDescriptor Proxy ActivityTaskCompletion
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ActivityTaskCompletion)
fieldsByTag
    = let
        taskToken__field_descriptor :: FieldDescriptor ActivityTaskCompletion
taskToken__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor ActivityTaskCompletion ByteString
-> FieldDescriptor ActivityTaskCompletion
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
     ActivityTaskCompletion ActivityTaskCompletion ByteString ByteString
-> FieldAccessor ActivityTaskCompletion 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 ActivityTaskCompletion
        result__field_descriptor :: FieldDescriptor ActivityTaskCompletion
result__field_descriptor
          = String
-> FieldTypeDescriptor ActivityExecutionResult
-> FieldAccessor ActivityTaskCompletion ActivityExecutionResult
-> FieldDescriptor ActivityTaskCompletion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"result"
              (MessageOrGroup -> FieldTypeDescriptor ActivityExecutionResult
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Sdk.Core.ActivityResult.ActivityResult.ActivityExecutionResult)
              (Lens
  ActivityTaskCompletion
  ActivityTaskCompletion
  (Maybe ActivityExecutionResult)
  (Maybe ActivityExecutionResult)
-> FieldAccessor ActivityTaskCompletion ActivityExecutionResult
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'result")) ::
              Data.ProtoLens.FieldDescriptor ActivityTaskCompletion
      in
        [(Tag, FieldDescriptor ActivityTaskCompletion)]
-> Map Tag (FieldDescriptor ActivityTaskCompletion)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ActivityTaskCompletion
taskToken__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ActivityTaskCompletion
result__field_descriptor)]
  unknownFields :: Lens' ActivityTaskCompletion FieldSet
unknownFields
    = (ActivityTaskCompletion -> FieldSet)
-> (ActivityTaskCompletion -> FieldSet -> ActivityTaskCompletion)
-> Lens' ActivityTaskCompletion FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ActivityTaskCompletion -> FieldSet
_ActivityTaskCompletion'_unknownFields
        (\ ActivityTaskCompletion
x__ FieldSet
y__ -> ActivityTaskCompletion
x__ {_ActivityTaskCompletion'_unknownFields = y__})
  defMessage :: ActivityTaskCompletion
defMessage
    = ActivityTaskCompletion'_constructor
        {_ActivityTaskCompletion'taskToken :: ByteString
_ActivityTaskCompletion'taskToken = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ActivityTaskCompletion'result :: Maybe ActivityExecutionResult
_ActivityTaskCompletion'result = Maybe ActivityExecutionResult
forall a. Maybe a
Prelude.Nothing,
         _ActivityTaskCompletion'_unknownFields :: FieldSet
_ActivityTaskCompletion'_unknownFields = []}
  parseMessage :: Parser ActivityTaskCompletion
parseMessage
    = let
        loop ::
          ActivityTaskCompletion
          -> Data.ProtoLens.Encoding.Bytes.Parser ActivityTaskCompletion
        loop :: ActivityTaskCompletion -> Parser ActivityTaskCompletion
loop ActivityTaskCompletion
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
18
                          -> do y <- Parser ActivityExecutionResult
-> String -> Parser ActivityExecutionResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"result"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"result") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ActivityTaskCompletion
-> String -> Parser ActivityTaskCompletion
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ActivityTaskCompletion -> Parser ActivityTaskCompletion
loop ActivityTaskCompletion
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ActivityTaskCompletion"
  buildMessage :: ActivityTaskCompletion -> Builder
buildMessage
    = \ ActivityTaskCompletion
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: ByteString
_v = FoldLike
  ByteString
  ActivityTaskCompletion
  ActivityTaskCompletion
  ByteString
  ByteString
-> ActivityTaskCompletion -> 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") ActivityTaskCompletion
_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 ActivityExecutionResult)
  ActivityTaskCompletion
  ActivityTaskCompletion
  (Maybe ActivityExecutionResult)
  (Maybe ActivityExecutionResult)
-> ActivityTaskCompletion -> Maybe ActivityExecutionResult
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'result") ActivityTaskCompletion
_x
                 of
                   Maybe ActivityExecutionResult
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just ActivityExecutionResult
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (ActivityExecutionResult -> ByteString)
-> ActivityExecutionResult
-> 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))
                             ActivityExecutionResult -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ActivityExecutionResult
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ActivityTaskCompletion
  ActivityTaskCompletion
  FieldSet
  FieldSet
-> ActivityTaskCompletion -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ActivityTaskCompletion
  ActivityTaskCompletion
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ActivityTaskCompletion FieldSet
Data.ProtoLens.unknownFields ActivityTaskCompletion
_x)))
instance Control.DeepSeq.NFData ActivityTaskCompletion where
  rnf :: ActivityTaskCompletion -> ()
rnf
    = \ ActivityTaskCompletion
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ActivityTaskCompletion -> FieldSet
_ActivityTaskCompletion'_unknownFields ActivityTaskCompletion
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ActivityTaskCompletion -> ByteString
_ActivityTaskCompletion'taskToken ActivityTaskCompletion
x__)
                (Maybe ActivityExecutionResult -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ActivityTaskCompletion -> Maybe ActivityExecutionResult
_ActivityTaskCompletion'result ActivityTaskCompletion
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \&temporal/sdk/core/core_interface.proto\DC2\acoresdk\SUB\RSgoogle/protobuf/duration.proto\SUB\ESCgoogle/protobuf/empty.proto\SUB\USgoogle/protobuf/timestamp.proto\SUB$temporal/api/common/v1/message.proto\SUB7temporal/sdk/core/activity_result/activity_result.proto\SUB3temporal/sdk/core/activity_task/activity_task.proto\SUB%temporal/sdk/core/common/common.proto\SUB3temporal/sdk/core/external_data/external_data.proto\SUB?temporal/sdk/core/workflow_activation/workflow_activation.proto\SUB;temporal/sdk/core/workflow_commands/workflow_commands.proto\SUB?temporal/sdk/core/workflow_completion/workflow_completion.proto\"m\n\
    \\DC1ActivityHeartbeat\DC2\GS\n\
    \\n\
    \task_token\CAN\SOH \SOH(\fR\ttaskToken\DC29\n\
    \\adetails\CAN\STX \ETX(\v2\US.temporal.api.common.v1.PayloadR\adetails\"\129\SOH\n\
    \\SYNActivityTaskCompletion\DC2\GS\n\
    \\n\
    \task_token\CAN\SOH \SOH(\fR\ttaskToken\DC2H\n\
    \\ACKresult\CAN\STX \SOH(\v20.coresdk.activity_result.ActivityExecutionResultR\ACKresultB)\234\STX&Temporalio::Bridge::Api::CoreInterfaceJ\165\ACK\n\
    \\ACK\DC2\EOT\NUL\NUL\RS\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL\DLE\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETX\NUL?\n\
    \\t\n\
    \\STX\b-\DC2\ETX\ETX\NUL?\n\
    \\130\STX\n\
    \\STX\ETX\NUL\DC2\ETX\b\NUL(\SUB\246\SOH Note: Intellij will think the Google imports don't work because of the slightly odd nature of\n\
    \ the include paths. You can make it work by going to the \"Protobuf Support\" settings section\n\
    \ and adding the \"api_upstream\" subdir as an include path.\n\
    \\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\
    \\t\n\
    \\STX\ETX\EOT\DC2\ETX\f\NULA\n\
    \\t\n\
    \\STX\ETX\ENQ\DC2\ETX\r\NUL=\n\
    \\t\n\
    \\STX\ETX\ACK\DC2\ETX\SO\NUL/\n\
    \\t\n\
    \\STX\ETX\a\DC2\ETX\SI\NUL=\n\
    \\t\n\
    \\STX\ETX\b\DC2\ETX\DLE\NULI\n\
    \\t\n\
    \\STX\ETX\t\DC2\ETX\DC1\NULE\n\
    \\t\n\
    \\STX\ETX\n\
    \\DC2\ETX\DC2\NULI\n\
    \?\n\
    \\STX\EOT\NUL\DC2\EOT\NAK\NUL\CAN\SOH\SUB3 A request as given to `record_activity_heartbeat`\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\NAK\b\EM\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SYN\EOT\EM\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SYN\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SYN\n\
    \\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SYN\ETB\CAN\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\ETB\EOT8\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\EOT\DC2\ETX\ETB\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\ETB\r+\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\ETB,3\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\ETB67\n\
    \<\n\
    \\STX\EOT\SOH\DC2\EOT\ESC\NUL\RS\SOH\SUB0 A request as given to `complete_activity_task`\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\ESC\b\RS\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\FS\EOT\EM\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\FS\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\FS\n\
    \\DC4\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\FS\ETB\CAN\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\GS\EOT7\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX\GS\EOT+\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\GS,2\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\GS56b\ACKproto3"