{- This file was auto-generated from temporal/sdk/core/workflow_completion/workflow_completion.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.WorkflowCompletion.WorkflowCompletion (
        Failure(), Success(), WorkflowActivationCompletion(),
        WorkflowActivationCompletion'Status(..),
        _WorkflowActivationCompletion'Successful,
        _WorkflowActivationCompletion'Failed
    ) 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.Temporal.Api.Enums.V1.FailedCause
import qualified Proto.Temporal.Api.Failure.V1.Message
import qualified Proto.Temporal.Sdk.Core.Common.Common
import qualified Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.failure' @:: Lens' Failure Proto.Temporal.Api.Failure.V1.Message.Failure@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.maybe'failure' @:: Lens' Failure (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure)@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.forceCause' @:: Lens' Failure Proto.Temporal.Api.Enums.V1.FailedCause.WorkflowTaskFailedCause@ -}
data Failure
  = Failure'_constructor {Failure -> Maybe Failure
_Failure'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
                          Failure -> WorkflowTaskFailedCause
_Failure'forceCause :: !Proto.Temporal.Api.Enums.V1.FailedCause.WorkflowTaskFailedCause,
                          Failure -> FieldSet
_Failure'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Failure -> Failure -> Bool
(Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool) -> Eq Failure
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Failure -> Failure -> Bool
== :: Failure -> Failure -> Bool
$c/= :: Failure -> Failure -> Bool
/= :: Failure -> Failure -> Bool
Prelude.Eq, Eq Failure
Eq Failure =>
(Failure -> Failure -> Ordering)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Bool)
-> (Failure -> Failure -> Failure)
-> (Failure -> Failure -> Failure)
-> Ord Failure
Failure -> Failure -> Bool
Failure -> Failure -> Ordering
Failure -> Failure -> Failure
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 :: Failure -> Failure -> Ordering
compare :: Failure -> Failure -> Ordering
$c< :: Failure -> Failure -> Bool
< :: Failure -> Failure -> Bool
$c<= :: Failure -> Failure -> Bool
<= :: Failure -> Failure -> Bool
$c> :: Failure -> Failure -> Bool
> :: Failure -> Failure -> Bool
$c>= :: Failure -> Failure -> Bool
>= :: Failure -> Failure -> Bool
$cmax :: Failure -> Failure -> Failure
max :: Failure -> Failure -> Failure
$cmin :: Failure -> Failure -> Failure
min :: Failure -> Failure -> Failure
Prelude.Ord)
instance Prelude.Show Failure where
  showsPrec :: Int -> Failure -> ShowS
showsPrec Int
_ Failure
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Failure -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Failure
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Failure "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure" -> (Failure -> f Failure) -> Failure -> f Failure
fieldOf Proxy# "failure"
_
    = ((Maybe Failure -> f (Maybe Failure)) -> Failure -> f Failure)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> Maybe Failure)
-> (Failure -> Maybe Failure -> Failure)
-> Lens Failure Failure (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> Maybe Failure
_Failure'failure (\ Failure
x__ Maybe Failure
y__ -> Failure
x__ {_Failure'failure = y__}))
        (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Failure "maybe'failure" (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failure"
-> (Maybe Failure -> f (Maybe Failure)) -> Failure -> f Failure
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Failure -> f (Maybe Failure)) -> Failure -> f Failure)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> Maybe Failure)
-> (Failure -> Maybe Failure -> Failure)
-> Lens Failure Failure (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> Maybe Failure
_Failure'failure (\ Failure
x__ Maybe Failure
y__ -> Failure
x__ {_Failure'failure = y__}))
        (Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "forceCause" Proto.Temporal.Api.Enums.V1.FailedCause.WorkflowTaskFailedCause where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "forceCause"
-> (WorkflowTaskFailedCause -> f WorkflowTaskFailedCause)
-> Failure
-> f Failure
fieldOf Proxy# "forceCause"
_
    = ((WorkflowTaskFailedCause -> f WorkflowTaskFailedCause)
 -> Failure -> f Failure)
-> ((WorkflowTaskFailedCause -> f WorkflowTaskFailedCause)
    -> WorkflowTaskFailedCause -> f WorkflowTaskFailedCause)
-> (WorkflowTaskFailedCause -> f WorkflowTaskFailedCause)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Failure -> WorkflowTaskFailedCause)
-> (Failure -> WorkflowTaskFailedCause -> Failure)
-> Lens
     Failure Failure WorkflowTaskFailedCause WorkflowTaskFailedCause
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Failure -> WorkflowTaskFailedCause
_Failure'forceCause (\ Failure
x__ WorkflowTaskFailedCause
y__ -> Failure
x__ {_Failure'forceCause = y__}))
        (WorkflowTaskFailedCause -> f WorkflowTaskFailedCause)
-> WorkflowTaskFailedCause -> f WorkflowTaskFailedCause
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Failure where
  messageName :: Proxy Failure -> Text
messageName Proxy Failure
_
    = String -> Text
Data.Text.pack String
"coresdk.workflow_completion.Failure"
  packedMessageDescriptor :: Proxy Failure -> ByteString
packedMessageDescriptor Proxy Failure
_
    = ByteString
"\n\
      \\aFailure\DC2:\n\
      \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\DC2O\n\
      \\vforce_cause\CAN\STX \SOH(\SO2..temporal.api.enums.v1.WorkflowTaskFailedCauseR\n\
      \forceCause"
  packedFileDescriptor :: Proxy Failure -> ByteString
packedFileDescriptor Proxy Failure
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Failure)
fieldsByTag
    = let
        failure__field_descriptor :: FieldDescriptor Failure
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor Failure Failure
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failure"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Failure.V1.Message.Failure)
              (Lens Failure Failure (Maybe Failure) (Maybe Failure)
-> FieldAccessor Failure Failure
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failure")) ::
              Data.ProtoLens.FieldDescriptor Failure
        forceCause__field_descriptor :: FieldDescriptor Failure
forceCause__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowTaskFailedCause
-> FieldAccessor Failure WorkflowTaskFailedCause
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"force_cause"
              (ScalarField WorkflowTaskFailedCause
-> FieldTypeDescriptor WorkflowTaskFailedCause
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField WorkflowTaskFailedCause
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.FailedCause.WorkflowTaskFailedCause)
              (WireDefault WorkflowTaskFailedCause
-> Lens
     Failure Failure WorkflowTaskFailedCause WorkflowTaskFailedCause
-> FieldAccessor Failure WorkflowTaskFailedCause
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault WorkflowTaskFailedCause
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 @"forceCause")) ::
              Data.ProtoLens.FieldDescriptor Failure
      in
        [(Tag, FieldDescriptor Failure)]
-> Map Tag (FieldDescriptor Failure)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Failure
failure__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Failure
forceCause__field_descriptor)]
  unknownFields :: Lens' Failure FieldSet
unknownFields
    = (Failure -> FieldSet)
-> (Failure -> FieldSet -> Failure) -> Lens' Failure FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Failure -> FieldSet
_Failure'_unknownFields
        (\ Failure
x__ FieldSet
y__ -> Failure
x__ {_Failure'_unknownFields = y__})
  defMessage :: Failure
defMessage
    = Failure'_constructor
        {_Failure'failure :: Maybe Failure
_Failure'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
         _Failure'forceCause :: WorkflowTaskFailedCause
_Failure'forceCause = WorkflowTaskFailedCause
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Failure'_unknownFields :: FieldSet
_Failure'_unknownFields = []}
  parseMessage :: Parser Failure
parseMessage
    = let
        loop :: Failure -> Data.ProtoLens.Encoding.Bytes.Parser Failure
        loop :: Failure -> Parser Failure
loop Failure
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"failure"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x)
                        Word64
16
                          -> do y <- Parser WorkflowTaskFailedCause
-> String -> Parser WorkflowTaskFailedCause
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> WorkflowTaskFailedCause)
-> Parser Int -> Parser WorkflowTaskFailedCause
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> WorkflowTaskFailedCause
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
"force_cause"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"forceCause") 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 Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Failure -> Parser Failure
loop Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Failure"
  buildMessage :: Failure -> Builder
buildMessage
    = \ Failure
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Failure) Failure Failure (Maybe Failure) (Maybe Failure)
-> Failure -> Maybe Failure
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failure") Failure
_x
              of
                Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Failure
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: WorkflowTaskFailedCause
_v
                     = FoldLike
  WorkflowTaskFailedCause
  Failure
  Failure
  WorkflowTaskFailedCause
  WorkflowTaskFailedCause
-> Failure -> WorkflowTaskFailedCause
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 @"forceCause") Failure
_x
                 in
                   if WorkflowTaskFailedCause -> WorkflowTaskFailedCause -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) WorkflowTaskFailedCause
_v WorkflowTaskFailedCause
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
                         ((Int -> Builder)
-> (WorkflowTaskFailedCause -> Int)
-> WorkflowTaskFailedCause
-> 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)
                            WorkflowTaskFailedCause -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum WorkflowTaskFailedCause
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Failure Failure FieldSet FieldSet
-> Failure -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Failure Failure FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Failure FieldSet
Data.ProtoLens.unknownFields Failure
_x)))
instance Control.DeepSeq.NFData Failure where
  rnf :: Failure -> ()
rnf
    = \ Failure
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Failure -> FieldSet
_Failure'_unknownFields Failure
x__)
             (Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Failure -> Maybe Failure
_Failure'failure Failure
x__)
                (WorkflowTaskFailedCause -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Failure -> WorkflowTaskFailedCause
_Failure'forceCause Failure
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.commands' @:: Lens' Success [Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands.WorkflowCommand]@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.vec'commands' @:: Lens' Success (Data.Vector.Vector Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands.WorkflowCommand)@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.usedInternalFlags' @:: Lens' Success [Data.Word.Word32]@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.vec'usedInternalFlags' @:: Lens' Success (Data.Vector.Unboxed.Vector Data.Word.Word32)@ -}
data Success
  = Success'_constructor {Success -> Vector WorkflowCommand
_Success'commands :: !(Data.Vector.Vector Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands.WorkflowCommand),
                          Success -> Vector Word32
_Success'usedInternalFlags :: !(Data.Vector.Unboxed.Vector Data.Word.Word32),
                          Success -> FieldSet
_Success'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Success -> Success -> Bool
(Success -> Success -> Bool)
-> (Success -> Success -> Bool) -> Eq Success
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Success -> Success -> Bool
== :: Success -> Success -> Bool
$c/= :: Success -> Success -> Bool
/= :: Success -> Success -> Bool
Prelude.Eq, Eq Success
Eq Success =>
(Success -> Success -> Ordering)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Bool)
-> (Success -> Success -> Success)
-> (Success -> Success -> Success)
-> Ord Success
Success -> Success -> Bool
Success -> Success -> Ordering
Success -> Success -> Success
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 :: Success -> Success -> Ordering
compare :: Success -> Success -> Ordering
$c< :: Success -> Success -> Bool
< :: Success -> Success -> Bool
$c<= :: Success -> Success -> Bool
<= :: Success -> Success -> Bool
$c> :: Success -> Success -> Bool
> :: Success -> Success -> Bool
$c>= :: Success -> Success -> Bool
>= :: Success -> Success -> Bool
$cmax :: Success -> Success -> Success
max :: Success -> Success -> Success
$cmin :: Success -> Success -> Success
min :: Success -> Success -> Success
Prelude.Ord)
instance Prelude.Show Success where
  showsPrec :: Int -> Success -> ShowS
showsPrec Int
_ Success
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Success -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Success
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Success "commands" [Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands.WorkflowCommand] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "commands"
-> ([WorkflowCommand] -> f [WorkflowCommand])
-> Success
-> f Success
fieldOf Proxy# "commands"
_
    = ((Vector WorkflowCommand -> f (Vector WorkflowCommand))
 -> Success -> f Success)
-> (([WorkflowCommand] -> f [WorkflowCommand])
    -> Vector WorkflowCommand -> f (Vector WorkflowCommand))
-> ([WorkflowCommand] -> f [WorkflowCommand])
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Vector WorkflowCommand)
-> (Success -> Vector WorkflowCommand -> Success)
-> Lens
     Success Success (Vector WorkflowCommand) (Vector WorkflowCommand)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Vector WorkflowCommand
_Success'commands (\ Success
x__ Vector WorkflowCommand
y__ -> Success
x__ {_Success'commands = y__}))
        ((Vector WorkflowCommand -> [WorkflowCommand])
-> (Vector WorkflowCommand
    -> [WorkflowCommand] -> Vector WorkflowCommand)
-> Lens
     (Vector WorkflowCommand)
     (Vector WorkflowCommand)
     [WorkflowCommand]
     [WorkflowCommand]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector WorkflowCommand -> [WorkflowCommand]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector WorkflowCommand
_ [WorkflowCommand]
y__ -> [WorkflowCommand] -> Vector WorkflowCommand
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [WorkflowCommand]
y__))
instance Data.ProtoLens.Field.HasField Success "vec'commands" (Data.Vector.Vector Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands.WorkflowCommand) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'commands"
-> (Vector WorkflowCommand -> f (Vector WorkflowCommand))
-> Success
-> f Success
fieldOf Proxy# "vec'commands"
_
    = ((Vector WorkflowCommand -> f (Vector WorkflowCommand))
 -> Success -> f Success)
-> ((Vector WorkflowCommand -> f (Vector WorkflowCommand))
    -> Vector WorkflowCommand -> f (Vector WorkflowCommand))
-> (Vector WorkflowCommand -> f (Vector WorkflowCommand))
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Vector WorkflowCommand)
-> (Success -> Vector WorkflowCommand -> Success)
-> Lens
     Success Success (Vector WorkflowCommand) (Vector WorkflowCommand)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Vector WorkflowCommand
_Success'commands (\ Success
x__ Vector WorkflowCommand
y__ -> Success
x__ {_Success'commands = y__}))
        (Vector WorkflowCommand -> f (Vector WorkflowCommand))
-> Vector WorkflowCommand -> f (Vector WorkflowCommand)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Success "usedInternalFlags" [Data.Word.Word32] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "usedInternalFlags"
-> ([Word32] -> f [Word32]) -> Success -> f Success
fieldOf Proxy# "usedInternalFlags"
_
    = ((Vector Word32 -> f (Vector Word32)) -> Success -> f Success)
-> (([Word32] -> f [Word32]) -> Vector Word32 -> f (Vector Word32))
-> ([Word32] -> f [Word32])
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Vector Word32)
-> (Success -> Vector Word32 -> Success)
-> Lens Success Success (Vector Word32) (Vector Word32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Vector Word32
_Success'usedInternalFlags
           (\ Success
x__ Vector Word32
y__ -> Success
x__ {_Success'usedInternalFlags = y__}))
        ((Vector Word32 -> [Word32])
-> (Vector Word32 -> [Word32] -> Vector Word32)
-> Lens (Vector Word32) (Vector Word32) [Word32] [Word32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Word32 -> [Word32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Word32
_ [Word32]
y__ -> [Word32] -> Vector Word32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Word32]
y__))
instance Data.ProtoLens.Field.HasField Success "vec'usedInternalFlags" (Data.Vector.Unboxed.Vector Data.Word.Word32) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'usedInternalFlags"
-> (Vector Word32 -> f (Vector Word32)) -> Success -> f Success
fieldOf Proxy# "vec'usedInternalFlags"
_
    = ((Vector Word32 -> f (Vector Word32)) -> Success -> f Success)
-> ((Vector Word32 -> f (Vector Word32))
    -> Vector Word32 -> f (Vector Word32))
-> (Vector Word32 -> f (Vector Word32))
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Vector Word32)
-> (Success -> Vector Word32 -> Success)
-> Lens Success Success (Vector Word32) (Vector Word32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Vector Word32
_Success'usedInternalFlags
           (\ Success
x__ Vector Word32
y__ -> Success
x__ {_Success'usedInternalFlags = y__}))
        (Vector Word32 -> f (Vector Word32))
-> Vector Word32 -> f (Vector Word32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Success where
  messageName :: Proxy Success -> Text
messageName Proxy Success
_
    = String -> Text
Data.Text.pack String
"coresdk.workflow_completion.Success"
  packedMessageDescriptor :: Proxy Success -> ByteString
packedMessageDescriptor Proxy Success
_
    = ByteString
"\n\
      \\aSuccess\DC2F\n\
      \\bcommands\CAN\SOH \ETX(\v2*.coresdk.workflow_commands.WorkflowCommandR\bcommands\DC2.\n\
      \\DC3used_internal_flags\CAN\ACK \ETX(\rR\DC1usedInternalFlags"
  packedFileDescriptor :: Proxy Success -> ByteString
packedFileDescriptor Proxy Success
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Success)
fieldsByTag
    = let
        commands__field_descriptor :: FieldDescriptor Success
commands__field_descriptor
          = String
-> FieldTypeDescriptor WorkflowCommand
-> FieldAccessor Success WorkflowCommand
-> FieldDescriptor Success
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"commands"
              (MessageOrGroup -> FieldTypeDescriptor WorkflowCommand
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands.WorkflowCommand)
              (Packing
-> Lens' Success [WorkflowCommand]
-> FieldAccessor Success WorkflowCommand
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 @"commands")) ::
              Data.ProtoLens.FieldDescriptor Success
        usedInternalFlags__field_descriptor :: FieldDescriptor Success
usedInternalFlags__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor Success Word32
-> FieldDescriptor Success
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"used_internal_flags"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (Packing -> Lens' Success [Word32] -> FieldAccessor Success Word32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"usedInternalFlags")) ::
              Data.ProtoLens.FieldDescriptor Success
      in
        [(Tag, FieldDescriptor Success)]
-> Map Tag (FieldDescriptor Success)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Success
commands__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Success
usedInternalFlags__field_descriptor)]
  unknownFields :: Lens' Success FieldSet
unknownFields
    = (Success -> FieldSet)
-> (Success -> FieldSet -> Success) -> Lens' Success FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Success -> FieldSet
_Success'_unknownFields
        (\ Success
x__ FieldSet
y__ -> Success
x__ {_Success'_unknownFields = y__})
  defMessage :: Success
defMessage
    = Success'_constructor
        {_Success'commands :: Vector WorkflowCommand
_Success'commands = Vector WorkflowCommand
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Success'usedInternalFlags :: Vector Word32
_Success'usedInternalFlags = Vector Word32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Success'_unknownFields :: FieldSet
_Success'_unknownFields = []}
  parseMessage :: Parser Success
parseMessage
    = let
        loop ::
          Success
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands.WorkflowCommand
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Word.Word32
                -> Data.ProtoLens.Encoding.Bytes.Parser Success
        loop :: Success
-> Growing Vector RealWorld WorkflowCommand
-> Growing Vector RealWorld Word32
-> Parser Success
loop Success
x Growing Vector RealWorld WorkflowCommand
mutable'commands Growing Vector RealWorld Word32
mutable'usedInternalFlags
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'commands <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'commands)
                      frozen'usedInternalFlags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                    (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                       mutable'usedInternalFlags)
                      (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'commands") frozen'commands
                              (Lens.Family2.set
                                 (Data.ProtoLens.Field.field @"vec'usedInternalFlags")
                                 frozen'usedInternalFlags x)))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser WorkflowCommand -> String -> Parser WorkflowCommand
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
"commands"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'commands y)
                                loop x v mutable'usedInternalFlags
                        Word64
48
                          -> 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
"used_internal_flags"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'usedInternalFlags y)
                                loop x mutable'commands v
                        Word64
50
                          -> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Data.ProtoLens.Encoding.Bytes.isolate
                                          (Prelude.fromIntegral len)
                                          ((let
                                              ploop Growing v RealWorld a
qs
                                                = do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if packedEnd then
                                                         Prelude.return qs
                                                     else
                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    (Prelude.fmap
                                                                       Prelude.fromIntegral
                                                                       Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "used_internal_flags"
                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Data.ProtoLens.Encoding.Growing.append
                                                                        qs q)
                                                            ploop qs'
                                            in ploop)
                                             mutable'usedInternalFlags)
                                loop x mutable'commands y
                        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'commands mutable'usedInternalFlags
      in
        Parser Success -> String -> Parser Success
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'commands <- IO (Growing Vector RealWorld WorkflowCommand)
-> Parser (Growing Vector RealWorld WorkflowCommand)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld WorkflowCommand)
IO (Growing Vector (PrimState IO) WorkflowCommand)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              mutable'usedInternalFlags <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             Data.ProtoLens.Encoding.Growing.new
              loop
                Data.ProtoLens.defMessage mutable'commands
                mutable'usedInternalFlags)
          String
"Success"
  buildMessage :: Success -> Builder
buildMessage
    = \ Success
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((WorkflowCommand -> Builder) -> Vector WorkflowCommand -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ WorkflowCommand
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (WorkflowCommand -> ByteString) -> WorkflowCommand -> 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))
                           WorkflowCommand -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowCommand
_v))
                (FoldLike
  (Vector WorkflowCommand)
  Success
  Success
  (Vector WorkflowCommand)
  (Vector WorkflowCommand)
-> Success -> Vector WorkflowCommand
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'commands") Success
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   p :: Vector Word32
p = FoldLike
  (Vector Word32) Success Success (Vector Word32) (Vector Word32)
-> Success -> Vector 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 @"vec'usedInternalFlags") Success
_x
                 in
                   if Vector Word32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Word32
p then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                         ((\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                               ((Word32 -> Builder) -> Vector Word32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  ((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)
                                  Vector Word32
p))))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet Success Success FieldSet FieldSet
-> Success -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Success Success FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Success FieldSet
Data.ProtoLens.unknownFields Success
_x)))
instance Control.DeepSeq.NFData Success where
  rnf :: Success -> ()
rnf
    = \ Success
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Success -> FieldSet
_Success'_unknownFields Success
x__)
             (Vector WorkflowCommand -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Success -> Vector WorkflowCommand
_Success'commands Success
x__)
                (Vector Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Success -> Vector Word32
_Success'usedInternalFlags Success
x__) ()))
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.runId' @:: Lens' WorkflowActivationCompletion Data.Text.Text@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.maybe'status' @:: Lens' WorkflowActivationCompletion (Prelude.Maybe WorkflowActivationCompletion'Status)@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.maybe'successful' @:: Lens' WorkflowActivationCompletion (Prelude.Maybe Success)@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.successful' @:: Lens' WorkflowActivationCompletion Success@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.maybe'failed' @:: Lens' WorkflowActivationCompletion (Prelude.Maybe Failure)@
         * 'Proto.Temporal.Sdk.Core.WorkflowCompletion.WorkflowCompletion_Fields.failed' @:: Lens' WorkflowActivationCompletion Failure@ -}
data WorkflowActivationCompletion
  = WorkflowActivationCompletion'_constructor {WorkflowActivationCompletion -> Text
_WorkflowActivationCompletion'runId :: !Data.Text.Text,
                                               WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status :: !(Prelude.Maybe WorkflowActivationCompletion'Status),
                                               WorkflowActivationCompletion -> FieldSet
_WorkflowActivationCompletion'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
(WorkflowActivationCompletion
 -> WorkflowActivationCompletion -> Bool)
-> (WorkflowActivationCompletion
    -> WorkflowActivationCompletion -> Bool)
-> Eq WorkflowActivationCompletion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
== :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
$c/= :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
/= :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
Prelude.Eq, Eq WorkflowActivationCompletion
Eq WorkflowActivationCompletion =>
(WorkflowActivationCompletion
 -> WorkflowActivationCompletion -> Ordering)
-> (WorkflowActivationCompletion
    -> WorkflowActivationCompletion -> Bool)
-> (WorkflowActivationCompletion
    -> WorkflowActivationCompletion -> Bool)
-> (WorkflowActivationCompletion
    -> WorkflowActivationCompletion -> Bool)
-> (WorkflowActivationCompletion
    -> WorkflowActivationCompletion -> Bool)
-> (WorkflowActivationCompletion
    -> WorkflowActivationCompletion -> WorkflowActivationCompletion)
-> (WorkflowActivationCompletion
    -> WorkflowActivationCompletion -> WorkflowActivationCompletion)
-> Ord WorkflowActivationCompletion
WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Ordering
WorkflowActivationCompletion
-> WorkflowActivationCompletion -> WorkflowActivationCompletion
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 :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Ordering
compare :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Ordering
$c< :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
< :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
$c<= :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
<= :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
$c> :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
> :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
$c>= :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
>= :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> Bool
$cmax :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> WorkflowActivationCompletion
max :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> WorkflowActivationCompletion
$cmin :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> WorkflowActivationCompletion
min :: WorkflowActivationCompletion
-> WorkflowActivationCompletion -> WorkflowActivationCompletion
Prelude.Ord)
instance Prelude.Show WorkflowActivationCompletion where
  showsPrec :: Int -> WorkflowActivationCompletion -> ShowS
showsPrec Int
_ WorkflowActivationCompletion
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WorkflowActivationCompletion -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WorkflowActivationCompletion
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data WorkflowActivationCompletion'Status
  = WorkflowActivationCompletion'Successful !Success |
    WorkflowActivationCompletion'Failed !Failure
  deriving stock (Int -> WorkflowActivationCompletion'Status -> ShowS
[WorkflowActivationCompletion'Status] -> ShowS
WorkflowActivationCompletion'Status -> String
(Int -> WorkflowActivationCompletion'Status -> ShowS)
-> (WorkflowActivationCompletion'Status -> String)
-> ([WorkflowActivationCompletion'Status] -> ShowS)
-> Show WorkflowActivationCompletion'Status
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WorkflowActivationCompletion'Status -> ShowS
showsPrec :: Int -> WorkflowActivationCompletion'Status -> ShowS
$cshow :: WorkflowActivationCompletion'Status -> String
show :: WorkflowActivationCompletion'Status -> String
$cshowList :: [WorkflowActivationCompletion'Status] -> ShowS
showList :: [WorkflowActivationCompletion'Status] -> ShowS
Prelude.Show, WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
(WorkflowActivationCompletion'Status
 -> WorkflowActivationCompletion'Status -> Bool)
-> (WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status -> Bool)
-> Eq WorkflowActivationCompletion'Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
== :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
$c/= :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
/= :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
Prelude.Eq, Eq WorkflowActivationCompletion'Status
Eq WorkflowActivationCompletion'Status =>
(WorkflowActivationCompletion'Status
 -> WorkflowActivationCompletion'Status -> Ordering)
-> (WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status -> Bool)
-> (WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status -> Bool)
-> (WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status -> Bool)
-> (WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status -> Bool)
-> (WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion'Status)
-> Ord WorkflowActivationCompletion'Status
WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Ordering
WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
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 :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Ordering
compare :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Ordering
$c< :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
< :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
$c<= :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
<= :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
$c> :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
> :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
$c>= :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
>= :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status -> Bool
$cmax :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
max :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
$cmin :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
min :: WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
-> WorkflowActivationCompletion'Status
Prelude.Ord)
instance Data.ProtoLens.Field.HasField WorkflowActivationCompletion "runId" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "runId"
-> (Text -> f Text)
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
fieldOf Proxy# "runId"
_
    = ((Text -> f Text)
 -> WorkflowActivationCompletion -> f WorkflowActivationCompletion)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowActivationCompletion -> Text)
-> (WorkflowActivationCompletion
    -> Text -> WorkflowActivationCompletion)
-> Lens
     WorkflowActivationCompletion WorkflowActivationCompletion Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowActivationCompletion -> Text
_WorkflowActivationCompletion'runId
           (\ WorkflowActivationCompletion
x__ Text
y__ -> WorkflowActivationCompletion
x__ {_WorkflowActivationCompletion'runId = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowActivationCompletion "maybe'status" (Prelude.Maybe WorkflowActivationCompletion'Status) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'status"
-> (Maybe WorkflowActivationCompletion'Status
    -> f (Maybe WorkflowActivationCompletion'Status))
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
fieldOf Proxy# "maybe'status"
_
    = ((Maybe WorkflowActivationCompletion'Status
  -> f (Maybe WorkflowActivationCompletion'Status))
 -> WorkflowActivationCompletion -> f WorkflowActivationCompletion)
-> ((Maybe WorkflowActivationCompletion'Status
     -> f (Maybe WorkflowActivationCompletion'Status))
    -> Maybe WorkflowActivationCompletion'Status
    -> f (Maybe WorkflowActivationCompletion'Status))
-> (Maybe WorkflowActivationCompletion'Status
    -> f (Maybe WorkflowActivationCompletion'Status))
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowActivationCompletion
 -> Maybe WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion
    -> Maybe WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion)
-> Lens
     WorkflowActivationCompletion
     WorkflowActivationCompletion
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status
           (\ WorkflowActivationCompletion
x__ Maybe WorkflowActivationCompletion'Status
y__ -> WorkflowActivationCompletion
x__ {_WorkflowActivationCompletion'status = y__}))
        (Maybe WorkflowActivationCompletion'Status
 -> f (Maybe WorkflowActivationCompletion'Status))
-> Maybe WorkflowActivationCompletion'Status
-> f (Maybe WorkflowActivationCompletion'Status)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WorkflowActivationCompletion "maybe'successful" (Prelude.Maybe Success) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'successful"
-> (Maybe Success -> f (Maybe Success))
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
fieldOf Proxy# "maybe'successful"
_
    = ((Maybe WorkflowActivationCompletion'Status
  -> f (Maybe WorkflowActivationCompletion'Status))
 -> WorkflowActivationCompletion -> f WorkflowActivationCompletion)
-> ((Maybe Success -> f (Maybe Success))
    -> Maybe WorkflowActivationCompletion'Status
    -> f (Maybe WorkflowActivationCompletion'Status))
-> (Maybe Success -> f (Maybe Success))
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowActivationCompletion
 -> Maybe WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion
    -> Maybe WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion)
-> Lens
     WorkflowActivationCompletion
     WorkflowActivationCompletion
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status
           (\ WorkflowActivationCompletion
x__ Maybe WorkflowActivationCompletion'Status
y__ -> WorkflowActivationCompletion
x__ {_WorkflowActivationCompletion'status = y__}))
        ((Maybe WorkflowActivationCompletion'Status -> Maybe Success)
-> (Maybe WorkflowActivationCompletion'Status
    -> Maybe Success -> Maybe WorkflowActivationCompletion'Status)
-> Lens
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe Success)
     (Maybe Success)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe WorkflowActivationCompletion'Status
x__
              -> case Maybe WorkflowActivationCompletion'Status
x__ of
                   (Prelude.Just (WorkflowActivationCompletion'Successful Success
x__val))
                     -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                   Maybe WorkflowActivationCompletion'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe WorkflowActivationCompletion'Status
_ Maybe Success
y__
              -> (Success -> WorkflowActivationCompletion'Status)
-> Maybe Success -> Maybe WorkflowActivationCompletion'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Success -> WorkflowActivationCompletion'Status
WorkflowActivationCompletion'Successful Maybe Success
y__))
instance Data.ProtoLens.Field.HasField WorkflowActivationCompletion "successful" Success where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "successful"
-> (Success -> f Success)
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
fieldOf Proxy# "successful"
_
    = ((Maybe WorkflowActivationCompletion'Status
  -> f (Maybe WorkflowActivationCompletion'Status))
 -> WorkflowActivationCompletion -> f WorkflowActivationCompletion)
-> ((Success -> f Success)
    -> Maybe WorkflowActivationCompletion'Status
    -> f (Maybe WorkflowActivationCompletion'Status))
-> (Success -> f Success)
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowActivationCompletion
 -> Maybe WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion
    -> Maybe WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion)
-> Lens
     WorkflowActivationCompletion
     WorkflowActivationCompletion
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status
           (\ WorkflowActivationCompletion
x__ Maybe WorkflowActivationCompletion'Status
y__ -> WorkflowActivationCompletion
x__ {_WorkflowActivationCompletion'status = y__}))
        (((Maybe Success -> f (Maybe Success))
 -> Maybe WorkflowActivationCompletion'Status
 -> f (Maybe WorkflowActivationCompletion'Status))
-> ((Success -> f Success) -> Maybe Success -> f (Maybe Success))
-> (Success -> f Success)
-> Maybe WorkflowActivationCompletion'Status
-> f (Maybe WorkflowActivationCompletion'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe WorkflowActivationCompletion'Status -> Maybe Success)
-> (Maybe WorkflowActivationCompletion'Status
    -> Maybe Success -> Maybe WorkflowActivationCompletion'Status)
-> Lens
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe Success)
     (Maybe Success)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe WorkflowActivationCompletion'Status
x__
                 -> case Maybe WorkflowActivationCompletion'Status
x__ of
                      (Prelude.Just (WorkflowActivationCompletion'Successful Success
x__val))
                        -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                      Maybe WorkflowActivationCompletion'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe WorkflowActivationCompletion'Status
_ Maybe Success
y__
                 -> (Success -> WorkflowActivationCompletion'Status)
-> Maybe Success -> Maybe WorkflowActivationCompletion'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Success -> WorkflowActivationCompletion'Status
WorkflowActivationCompletion'Successful Maybe Success
y__))
           (Success -> Lens' (Maybe Success) Success
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Success
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField WorkflowActivationCompletion "maybe'failed" (Prelude.Maybe Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failed"
-> (Maybe Failure -> f (Maybe Failure))
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
fieldOf Proxy# "maybe'failed"
_
    = ((Maybe WorkflowActivationCompletion'Status
  -> f (Maybe WorkflowActivationCompletion'Status))
 -> WorkflowActivationCompletion -> f WorkflowActivationCompletion)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe WorkflowActivationCompletion'Status
    -> f (Maybe WorkflowActivationCompletion'Status))
-> (Maybe Failure -> f (Maybe Failure))
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowActivationCompletion
 -> Maybe WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion
    -> Maybe WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion)
-> Lens
     WorkflowActivationCompletion
     WorkflowActivationCompletion
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status
           (\ WorkflowActivationCompletion
x__ Maybe WorkflowActivationCompletion'Status
y__ -> WorkflowActivationCompletion
x__ {_WorkflowActivationCompletion'status = y__}))
        ((Maybe WorkflowActivationCompletion'Status -> Maybe Failure)
-> (Maybe WorkflowActivationCompletion'Status
    -> Maybe Failure -> Maybe WorkflowActivationCompletion'Status)
-> Lens
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe WorkflowActivationCompletion'Status
x__
              -> case Maybe WorkflowActivationCompletion'Status
x__ of
                   (Prelude.Just (WorkflowActivationCompletion'Failed Failure
x__val))
                     -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                   Maybe WorkflowActivationCompletion'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe WorkflowActivationCompletion'Status
_ Maybe Failure
y__ -> (Failure -> WorkflowActivationCompletion'Status)
-> Maybe Failure -> Maybe WorkflowActivationCompletion'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> WorkflowActivationCompletion'Status
WorkflowActivationCompletion'Failed Maybe Failure
y__))
instance Data.ProtoLens.Field.HasField WorkflowActivationCompletion "failed" Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failed"
-> (Failure -> f Failure)
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
fieldOf Proxy# "failed"
_
    = ((Maybe WorkflowActivationCompletion'Status
  -> f (Maybe WorkflowActivationCompletion'Status))
 -> WorkflowActivationCompletion -> f WorkflowActivationCompletion)
-> ((Failure -> f Failure)
    -> Maybe WorkflowActivationCompletion'Status
    -> f (Maybe WorkflowActivationCompletion'Status))
-> (Failure -> f Failure)
-> WorkflowActivationCompletion
-> f WorkflowActivationCompletion
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WorkflowActivationCompletion
 -> Maybe WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion
    -> Maybe WorkflowActivationCompletion'Status
    -> WorkflowActivationCompletion)
-> Lens
     WorkflowActivationCompletion
     WorkflowActivationCompletion
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status
           (\ WorkflowActivationCompletion
x__ Maybe WorkflowActivationCompletion'Status
y__ -> WorkflowActivationCompletion
x__ {_WorkflowActivationCompletion'status = y__}))
        (((Maybe Failure -> f (Maybe Failure))
 -> Maybe WorkflowActivationCompletion'Status
 -> f (Maybe WorkflowActivationCompletion'Status))
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Maybe WorkflowActivationCompletion'Status
-> f (Maybe WorkflowActivationCompletion'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe WorkflowActivationCompletion'Status -> Maybe Failure)
-> (Maybe WorkflowActivationCompletion'Status
    -> Maybe Failure -> Maybe WorkflowActivationCompletion'Status)
-> Lens
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe WorkflowActivationCompletion'Status)
     (Maybe Failure)
     (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe WorkflowActivationCompletion'Status
x__
                 -> case Maybe WorkflowActivationCompletion'Status
x__ of
                      (Prelude.Just (WorkflowActivationCompletion'Failed Failure
x__val))
                        -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                      Maybe WorkflowActivationCompletion'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe WorkflowActivationCompletion'Status
_ Maybe Failure
y__ -> (Failure -> WorkflowActivationCompletion'Status)
-> Maybe Failure -> Maybe WorkflowActivationCompletion'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Failure -> WorkflowActivationCompletion'Status
WorkflowActivationCompletion'Failed Maybe Failure
y__))
           (Failure -> Lens' (Maybe Failure) Failure
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Failure
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message WorkflowActivationCompletion where
  messageName :: Proxy WorkflowActivationCompletion -> Text
messageName Proxy WorkflowActivationCompletion
_
    = String -> Text
Data.Text.pack
        String
"coresdk.workflow_completion.WorkflowActivationCompletion"
  packedMessageDescriptor :: Proxy WorkflowActivationCompletion -> ByteString
packedMessageDescriptor Proxy WorkflowActivationCompletion
_
    = ByteString
"\n\
      \\FSWorkflowActivationCompletion\DC2\NAK\n\
      \\ACKrun_id\CAN\SOH \SOH(\tR\ENQrunId\DC2F\n\
      \\n\
      \successful\CAN\STX \SOH(\v2$.coresdk.workflow_completion.SuccessH\NULR\n\
      \successful\DC2>\n\
      \\ACKfailed\CAN\ETX \SOH(\v2$.coresdk.workflow_completion.FailureH\NULR\ACKfailedB\b\n\
      \\ACKstatus"
  packedFileDescriptor :: Proxy WorkflowActivationCompletion -> ByteString
packedFileDescriptor Proxy WorkflowActivationCompletion
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WorkflowActivationCompletion)
fieldsByTag
    = let
        runId__field_descriptor :: FieldDescriptor WorkflowActivationCompletion
runId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WorkflowActivationCompletion Text
-> FieldDescriptor WorkflowActivationCompletion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"run_id"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     WorkflowActivationCompletion WorkflowActivationCompletion Text Text
-> FieldAccessor WorkflowActivationCompletion Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runId")) ::
              Data.ProtoLens.FieldDescriptor WorkflowActivationCompletion
        successful__field_descriptor :: FieldDescriptor WorkflowActivationCompletion
successful__field_descriptor
          = String
-> FieldTypeDescriptor Success
-> FieldAccessor WorkflowActivationCompletion Success
-> FieldDescriptor WorkflowActivationCompletion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"successful"
              (MessageOrGroup -> FieldTypeDescriptor Success
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Success)
              (Lens' WorkflowActivationCompletion (Maybe Success)
-> FieldAccessor WorkflowActivationCompletion Success
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'successful")) ::
              Data.ProtoLens.FieldDescriptor WorkflowActivationCompletion
        failed__field_descriptor :: FieldDescriptor WorkflowActivationCompletion
failed__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor WorkflowActivationCompletion Failure
-> FieldDescriptor WorkflowActivationCompletion
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failed"
              (MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Failure)
              (Lens' WorkflowActivationCompletion (Maybe Failure)
-> FieldAccessor WorkflowActivationCompletion Failure
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'failed")) ::
              Data.ProtoLens.FieldDescriptor WorkflowActivationCompletion
      in
        [(Tag, FieldDescriptor WorkflowActivationCompletion)]
-> Map Tag (FieldDescriptor WorkflowActivationCompletion)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WorkflowActivationCompletion
runId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WorkflowActivationCompletion
successful__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WorkflowActivationCompletion
failed__field_descriptor)]
  unknownFields :: Lens' WorkflowActivationCompletion FieldSet
unknownFields
    = (WorkflowActivationCompletion -> FieldSet)
-> (WorkflowActivationCompletion
    -> FieldSet -> WorkflowActivationCompletion)
-> Lens' WorkflowActivationCompletion FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WorkflowActivationCompletion -> FieldSet
_WorkflowActivationCompletion'_unknownFields
        (\ WorkflowActivationCompletion
x__ FieldSet
y__
           -> WorkflowActivationCompletion
x__ {_WorkflowActivationCompletion'_unknownFields = y__})
  defMessage :: WorkflowActivationCompletion
defMessage
    = WorkflowActivationCompletion'_constructor
        {_WorkflowActivationCompletion'runId :: Text
_WorkflowActivationCompletion'runId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WorkflowActivationCompletion'status :: Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status = Maybe WorkflowActivationCompletion'Status
forall a. Maybe a
Prelude.Nothing,
         _WorkflowActivationCompletion'_unknownFields :: FieldSet
_WorkflowActivationCompletion'_unknownFields = []}
  parseMessage :: Parser WorkflowActivationCompletion
parseMessage
    = let
        loop ::
          WorkflowActivationCompletion
          -> Data.ProtoLens.Encoding.Bytes.Parser WorkflowActivationCompletion
        loop :: WorkflowActivationCompletion -> Parser WorkflowActivationCompletion
loop WorkflowActivationCompletion
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
"run_id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"runId") y x)
                        Word64
18
                          -> do y <- Parser Success -> String -> Parser Success
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
"successful"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"successful") y x)
                        Word64
26
                          -> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"failed"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failed") 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 WorkflowActivationCompletion
-> String -> Parser WorkflowActivationCompletion
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WorkflowActivationCompletion -> Parser WorkflowActivationCompletion
loop WorkflowActivationCompletion
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WorkflowActivationCompletion"
  buildMessage :: WorkflowActivationCompletion -> Builder
buildMessage
    = \ WorkflowActivationCompletion
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text
  WorkflowActivationCompletion
  WorkflowActivationCompletion
  Text
  Text
-> WorkflowActivationCompletion -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runId") WorkflowActivationCompletion
_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 WorkflowActivationCompletion'Status)
  WorkflowActivationCompletion
  WorkflowActivationCompletion
  (Maybe WorkflowActivationCompletion'Status)
  (Maybe WorkflowActivationCompletion'Status)
-> WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
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'status") WorkflowActivationCompletion
_x
                 of
                   Maybe WorkflowActivationCompletion'Status
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just (WorkflowActivationCompletion'Successful Success
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Success -> ByteString) -> Success -> 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))
                             Success -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Success
v)
                   (Prelude.Just (WorkflowActivationCompletion'Failed Failure
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                          ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  WorkflowActivationCompletion
  WorkflowActivationCompletion
  FieldSet
  FieldSet
-> WorkflowActivationCompletion -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  WorkflowActivationCompletion
  WorkflowActivationCompletion
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WorkflowActivationCompletion FieldSet
Data.ProtoLens.unknownFields WorkflowActivationCompletion
_x)))
instance Control.DeepSeq.NFData WorkflowActivationCompletion where
  rnf :: WorkflowActivationCompletion -> ()
rnf
    = \ WorkflowActivationCompletion
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WorkflowActivationCompletion -> FieldSet
_WorkflowActivationCompletion'_unknownFields WorkflowActivationCompletion
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WorkflowActivationCompletion -> Text
_WorkflowActivationCompletion'runId WorkflowActivationCompletion
x__)
                (Maybe WorkflowActivationCompletion'Status -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (WorkflowActivationCompletion
-> Maybe WorkflowActivationCompletion'Status
_WorkflowActivationCompletion'status WorkflowActivationCompletion
x__) ()))
instance Control.DeepSeq.NFData WorkflowActivationCompletion'Status where
  rnf :: WorkflowActivationCompletion'Status -> ()
rnf (WorkflowActivationCompletion'Successful Success
x__)
    = Success -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Success
x__
  rnf (WorkflowActivationCompletion'Failed Failure
x__)
    = Failure -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Failure
x__
_WorkflowActivationCompletion'Successful ::
  Data.ProtoLens.Prism.Prism' WorkflowActivationCompletion'Status Success
_WorkflowActivationCompletion'Successful :: Prism' WorkflowActivationCompletion'Status Success
_WorkflowActivationCompletion'Successful
  = (Success -> WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion'Status -> Maybe Success)
-> Prism' WorkflowActivationCompletion'Status Success
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Success -> WorkflowActivationCompletion'Status
WorkflowActivationCompletion'Successful
      (\ WorkflowActivationCompletion'Status
p__
         -> case WorkflowActivationCompletion'Status
p__ of
              (WorkflowActivationCompletion'Successful Success
p__val)
                -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
p__val
              WorkflowActivationCompletion'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
_WorkflowActivationCompletion'Failed ::
  Data.ProtoLens.Prism.Prism' WorkflowActivationCompletion'Status Failure
_WorkflowActivationCompletion'Failed :: Prism' WorkflowActivationCompletion'Status Failure
_WorkflowActivationCompletion'Failed
  = (Failure -> WorkflowActivationCompletion'Status)
-> (WorkflowActivationCompletion'Status -> Maybe Failure)
-> Prism' WorkflowActivationCompletion'Status Failure
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Failure -> WorkflowActivationCompletion'Status
WorkflowActivationCompletion'Failed
      (\ WorkflowActivationCompletion'Status
p__
         -> case WorkflowActivationCompletion'Status
p__ of
              (WorkflowActivationCompletion'Failed Failure
p__val) -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
p__val
              WorkflowActivationCompletion'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \?temporal/sdk/core/workflow_completion/workflow_completion.proto\DC2\ESCcoresdk.workflow_completion\SUB%temporal/api/failure/v1/message.proto\SUB(temporal/api/enums/v1/failed_cause.proto\SUB%temporal/sdk/core/common/common.proto\SUB;temporal/sdk/core/workflow_commands/workflow_commands.proto\"\199\SOH\n\
    \\FSWorkflowActivationCompletion\DC2\NAK\n\
    \\ACKrun_id\CAN\SOH \SOH(\tR\ENQrunId\DC2F\n\
    \\n\
    \successful\CAN\STX \SOH(\v2$.coresdk.workflow_completion.SuccessH\NULR\n\
    \successful\DC2>\n\
    \\ACKfailed\CAN\ETX \SOH(\v2$.coresdk.workflow_completion.FailureH\NULR\ACKfailedB\b\n\
    \\ACKstatus\"\129\SOH\n\
    \\aSuccess\DC2F\n\
    \\bcommands\CAN\SOH \ETX(\v2*.coresdk.workflow_commands.WorkflowCommandR\bcommands\DC2.\n\
    \\DC3used_internal_flags\CAN\ACK \ETX(\rR\DC1usedInternalFlags\"\150\SOH\n\
    \\aFailure\DC2:\n\
    \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\DC2O\n\
    \\vforce_cause\CAN\STX \SOH(\SO2..temporal.api.enums.v1.WorkflowTaskFailedCauseR\n\
    \forceCauseB.\234\STX+Temporalio::Bridge::Api::WorkflowCompletionJ\165\b\n\
    \\ACK\DC2\EOT\NUL\NUL!\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL$\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETX\NULD\n\
    \\t\n\
    \\STX\b-\DC2\ETX\ETX\NULD\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ENQ\NUL/\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\ACK\NUL2\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX\a\NUL/\n\
    \\t\n\
    \\STX\ETX\ETX\DC2\ETX\b\NULE\n\
    \P\n\
    \\STX\EOT\NUL\DC2\EOT\v\NUL\DC2\SOH\SUBD Result of a single workflow activation, reported from lang to core\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\v\b$\n\
    \I\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\r\EOT\SYN\SUB< The run id from the workflow activation you are completing\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\r\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\r\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\r\DC4\NAK\n\
    \\f\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT\SO\EOT\DC1\ENQ\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\SO\n\
    \\DLE\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\SI\b\US\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\SI\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\SI\DLE\SUB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\SI\GS\RS\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\DLE\b\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\DLE\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\DLE\DLE\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\DLE\EM\SUB\n\
    \h\n\
    \\STX\EOT\SOH\DC2\EOT\NAK\NUL\SUB\SOH\SUB\\ Successful workflow activation with a list of commands generated by the workflow execution\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\NAK\b\SI\n\
    \E\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\ETB\EOT<\SUB8 A list of commands to send back to the temporal server\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX\ETB\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\ETB\r.\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\ETB/7\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\ETB:;\n\
    \^\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\EM\EOT,\SUBQ Any internal flags which the lang SDK used in the processing of this activation\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX\EM\EOT\f\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\EM\r\DC3\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\EM\DC4'\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\EM*+\n\
    \7\n\
    \\STX\EOT\STX\DC2\EOT\GS\NUL!\SOH\SUB+ Failure to activate or execute a workflow\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\GS\b\SI\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX\RS\EOT0\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\RS\EOT#\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\RS$+\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\RS./\n\
    \6\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX \EOTB\SUB) Forces overriding the WFT failure cause\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX \EOT1\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX 2=\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX @Ab\ACKproto3"