{- This file was auto-generated from temporal/sdk/core/child_workflow/child_workflow.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.ChildWorkflow.ChildWorkflow (
        Cancellation(), ChildWorkflowCancellationType(..),
        ChildWorkflowCancellationType(),
        ChildWorkflowCancellationType'UnrecognizedValue,
        ChildWorkflowResult(), ChildWorkflowResult'Status(..),
        _ChildWorkflowResult'Completed, _ChildWorkflowResult'Failed,
        _ChildWorkflowResult'Cancelled, Failure(), ParentClosePolicy(..),
        ParentClosePolicy(), ParentClosePolicy'UnrecognizedValue,
        StartChildWorkflowExecutionFailedCause(..),
        StartChildWorkflowExecutionFailedCause(),
        StartChildWorkflowExecutionFailedCause'UnrecognizedValue, Success()
    ) 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.Common.V1.Message
import qualified Proto.Temporal.Api.Failure.V1.Message
import qualified Proto.Temporal.Sdk.Core.Common.Common
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.failure' @:: Lens' Cancellation Proto.Temporal.Api.Failure.V1.Message.Failure@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.maybe'failure' @:: Lens' Cancellation (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure)@ -}
data Cancellation
  = Cancellation'_constructor {Cancellation -> Maybe Failure
_Cancellation'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
                               Cancellation -> FieldSet
_Cancellation'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Cancellation -> Cancellation -> Bool
(Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool) -> Eq Cancellation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Cancellation -> Cancellation -> Bool
== :: Cancellation -> Cancellation -> Bool
$c/= :: Cancellation -> Cancellation -> Bool
/= :: Cancellation -> Cancellation -> Bool
Prelude.Eq, Eq Cancellation
Eq Cancellation =>
(Cancellation -> Cancellation -> Ordering)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Bool)
-> (Cancellation -> Cancellation -> Cancellation)
-> (Cancellation -> Cancellation -> Cancellation)
-> Ord Cancellation
Cancellation -> Cancellation -> Bool
Cancellation -> Cancellation -> Ordering
Cancellation -> Cancellation -> Cancellation
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 :: Cancellation -> Cancellation -> Ordering
compare :: Cancellation -> Cancellation -> Ordering
$c< :: Cancellation -> Cancellation -> Bool
< :: Cancellation -> Cancellation -> Bool
$c<= :: Cancellation -> Cancellation -> Bool
<= :: Cancellation -> Cancellation -> Bool
$c> :: Cancellation -> Cancellation -> Bool
> :: Cancellation -> Cancellation -> Bool
$c>= :: Cancellation -> Cancellation -> Bool
>= :: Cancellation -> Cancellation -> Bool
$cmax :: Cancellation -> Cancellation -> Cancellation
max :: Cancellation -> Cancellation -> Cancellation
$cmin :: Cancellation -> Cancellation -> Cancellation
min :: Cancellation -> Cancellation -> Cancellation
Prelude.Ord)
instance Prelude.Show Cancellation where
  showsPrec :: Int -> Cancellation -> ShowS
showsPrec Int
_ Cancellation
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Cancellation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Cancellation
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Cancellation "failure" Proto.Temporal.Api.Failure.V1.Message.Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> (Failure -> f Failure) -> Cancellation -> f Cancellation
fieldOf Proxy# "failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> Cancellation -> f Cancellation)
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Cancellation
-> f Cancellation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Cancellation -> Maybe Failure)
-> (Cancellation -> Maybe Failure -> Cancellation)
-> Lens Cancellation Cancellation (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Cancellation -> Maybe Failure
_Cancellation'failure
           (\ Cancellation
x__ Maybe Failure
y__ -> Cancellation
x__ {_Cancellation'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 Cancellation "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))
-> Cancellation
-> f Cancellation
fieldOf Proxy# "maybe'failure"
_
    = ((Maybe Failure -> f (Maybe Failure))
 -> Cancellation -> f Cancellation)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe Failure -> f (Maybe Failure))
-> (Maybe Failure -> f (Maybe Failure))
-> Cancellation
-> f Cancellation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Cancellation -> Maybe Failure)
-> (Cancellation -> Maybe Failure -> Cancellation)
-> Lens Cancellation Cancellation (Maybe Failure) (Maybe Failure)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Cancellation -> Maybe Failure
_Cancellation'failure
           (\ Cancellation
x__ Maybe Failure
y__ -> Cancellation
x__ {_Cancellation'failure = y__}))
        (Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Cancellation where
  messageName :: Proxy Cancellation -> Text
messageName Proxy Cancellation
_
    = String -> Text
Data.Text.pack String
"coresdk.child_workflow.Cancellation"
  packedMessageDescriptor :: Proxy Cancellation -> ByteString
packedMessageDescriptor Proxy Cancellation
_
    = ByteString
"\n\
      \\fCancellation\DC2:\n\
      \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure"
  packedFileDescriptor :: Proxy Cancellation -> ByteString
packedFileDescriptor Proxy Cancellation
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Cancellation)
fieldsByTag
    = let
        failure__field_descriptor :: FieldDescriptor Cancellation
failure__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor Cancellation Failure
-> FieldDescriptor Cancellation
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 Cancellation Cancellation (Maybe Failure) (Maybe Failure)
-> FieldAccessor Cancellation 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 Cancellation
      in
        [(Tag, FieldDescriptor Cancellation)]
-> Map Tag (FieldDescriptor Cancellation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Cancellation
failure__field_descriptor)]
  unknownFields :: Lens' Cancellation FieldSet
unknownFields
    = (Cancellation -> FieldSet)
-> (Cancellation -> FieldSet -> Cancellation)
-> Lens' Cancellation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Cancellation -> FieldSet
_Cancellation'_unknownFields
        (\ Cancellation
x__ FieldSet
y__ -> Cancellation
x__ {_Cancellation'_unknownFields = y__})
  defMessage :: Cancellation
defMessage
    = Cancellation'_constructor
        {_Cancellation'failure :: Maybe Failure
_Cancellation'failure = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
         _Cancellation'_unknownFields :: FieldSet
_Cancellation'_unknownFields = []}
  parseMessage :: Parser Cancellation
parseMessage
    = let
        loop ::
          Cancellation -> Data.ProtoLens.Encoding.Bytes.Parser Cancellation
        loop :: Cancellation -> Parser Cancellation
loop Cancellation
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"failure"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"failure") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Cancellation -> String -> Parser Cancellation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Cancellation -> Parser Cancellation
loop Cancellation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Cancellation"
  buildMessage :: Cancellation -> Builder
buildMessage
    = \ Cancellation
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Failure)
  Cancellation
  Cancellation
  (Maybe Failure)
  (Maybe Failure)
-> Cancellation -> 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") Cancellation
_x
              of
                Maybe Failure
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Failure
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet Cancellation Cancellation FieldSet FieldSet
-> Cancellation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Cancellation Cancellation FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Cancellation FieldSet
Data.ProtoLens.unknownFields Cancellation
_x))
instance Control.DeepSeq.NFData Cancellation where
  rnf :: Cancellation -> ()
rnf
    = \ Cancellation
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Cancellation -> FieldSet
_Cancellation'_unknownFields Cancellation
x__)
             (Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Cancellation -> Maybe Failure
_Cancellation'failure Cancellation
x__) ())
newtype ChildWorkflowCancellationType'UnrecognizedValue
  = ChildWorkflowCancellationType'UnrecognizedValue Data.Int.Int32
  deriving stock (ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
(ChildWorkflowCancellationType'UnrecognizedValue
 -> ChildWorkflowCancellationType'UnrecognizedValue -> Bool)
-> (ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue -> Bool)
-> Eq ChildWorkflowCancellationType'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
== :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
$c/= :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
/= :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
Prelude.Eq, Eq ChildWorkflowCancellationType'UnrecognizedValue
Eq ChildWorkflowCancellationType'UnrecognizedValue =>
(ChildWorkflowCancellationType'UnrecognizedValue
 -> ChildWorkflowCancellationType'UnrecognizedValue -> Ordering)
-> (ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue -> Bool)
-> (ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue -> Bool)
-> (ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue -> Bool)
-> (ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue -> Bool)
-> (ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue)
-> (ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue
    -> ChildWorkflowCancellationType'UnrecognizedValue)
-> Ord ChildWorkflowCancellationType'UnrecognizedValue
ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Ordering
ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Ordering
compare :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Ordering
$c< :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
< :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
$c<= :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
<= :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
$c> :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
> :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
$c>= :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
>= :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue -> Bool
$cmax :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
max :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
$cmin :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
min :: ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType'UnrecognizedValue
Prelude.Ord, Int -> ChildWorkflowCancellationType'UnrecognizedValue -> ShowS
[ChildWorkflowCancellationType'UnrecognizedValue] -> ShowS
ChildWorkflowCancellationType'UnrecognizedValue -> String
(Int -> ChildWorkflowCancellationType'UnrecognizedValue -> ShowS)
-> (ChildWorkflowCancellationType'UnrecognizedValue -> String)
-> ([ChildWorkflowCancellationType'UnrecognizedValue] -> ShowS)
-> Show ChildWorkflowCancellationType'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ChildWorkflowCancellationType'UnrecognizedValue -> ShowS
showsPrec :: Int -> ChildWorkflowCancellationType'UnrecognizedValue -> ShowS
$cshow :: ChildWorkflowCancellationType'UnrecognizedValue -> String
show :: ChildWorkflowCancellationType'UnrecognizedValue -> String
$cshowList :: [ChildWorkflowCancellationType'UnrecognizedValue] -> ShowS
showList :: [ChildWorkflowCancellationType'UnrecognizedValue] -> ShowS
Prelude.Show)
data ChildWorkflowCancellationType
  = ABANDON |
    TRY_CANCEL |
    WAIT_CANCELLATION_COMPLETED |
    WAIT_CANCELLATION_REQUESTED |
    ChildWorkflowCancellationType'Unrecognized !ChildWorkflowCancellationType'UnrecognizedValue
  deriving stock (Int -> ChildWorkflowCancellationType -> ShowS
[ChildWorkflowCancellationType] -> ShowS
ChildWorkflowCancellationType -> String
(Int -> ChildWorkflowCancellationType -> ShowS)
-> (ChildWorkflowCancellationType -> String)
-> ([ChildWorkflowCancellationType] -> ShowS)
-> Show ChildWorkflowCancellationType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ChildWorkflowCancellationType -> ShowS
showsPrec :: Int -> ChildWorkflowCancellationType -> ShowS
$cshow :: ChildWorkflowCancellationType -> String
show :: ChildWorkflowCancellationType -> String
$cshowList :: [ChildWorkflowCancellationType] -> ShowS
showList :: [ChildWorkflowCancellationType] -> ShowS
Prelude.Show, ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
(ChildWorkflowCancellationType
 -> ChildWorkflowCancellationType -> Bool)
-> (ChildWorkflowCancellationType
    -> ChildWorkflowCancellationType -> Bool)
-> Eq ChildWorkflowCancellationType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
== :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
$c/= :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
/= :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
Prelude.Eq, Eq ChildWorkflowCancellationType
Eq ChildWorkflowCancellationType =>
(ChildWorkflowCancellationType
 -> ChildWorkflowCancellationType -> Ordering)
-> (ChildWorkflowCancellationType
    -> ChildWorkflowCancellationType -> Bool)
-> (ChildWorkflowCancellationType
    -> ChildWorkflowCancellationType -> Bool)
-> (ChildWorkflowCancellationType
    -> ChildWorkflowCancellationType -> Bool)
-> (ChildWorkflowCancellationType
    -> ChildWorkflowCancellationType -> Bool)
-> (ChildWorkflowCancellationType
    -> ChildWorkflowCancellationType -> ChildWorkflowCancellationType)
-> (ChildWorkflowCancellationType
    -> ChildWorkflowCancellationType -> ChildWorkflowCancellationType)
-> Ord ChildWorkflowCancellationType
ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Ordering
ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> ChildWorkflowCancellationType
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 :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Ordering
compare :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Ordering
$c< :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
< :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
$c<= :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
<= :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
$c> :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
> :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
$c>= :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
>= :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> Bool
$cmax :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> ChildWorkflowCancellationType
max :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> ChildWorkflowCancellationType
$cmin :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> ChildWorkflowCancellationType
min :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> ChildWorkflowCancellationType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum ChildWorkflowCancellationType where
  maybeToEnum :: Int -> Maybe ChildWorkflowCancellationType
maybeToEnum Int
0 = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
ABANDON
  maybeToEnum Int
1 = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
TRY_CANCEL
  maybeToEnum Int
2 = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED
  maybeToEnum Int
3 = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED
  maybeToEnum Int
k
    = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just
        (ChildWorkflowCancellationType'UnrecognizedValue
-> ChildWorkflowCancellationType
ChildWorkflowCancellationType'Unrecognized
           (Int32 -> ChildWorkflowCancellationType'UnrecognizedValue
ChildWorkflowCancellationType'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: ChildWorkflowCancellationType -> String
showEnum ChildWorkflowCancellationType
ABANDON = String
"ABANDON"
  showEnum ChildWorkflowCancellationType
TRY_CANCEL = String
"TRY_CANCEL"
  showEnum ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED
    = String
"WAIT_CANCELLATION_COMPLETED"
  showEnum ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED
    = String
"WAIT_CANCELLATION_REQUESTED"
  showEnum
    (ChildWorkflowCancellationType'Unrecognized (ChildWorkflowCancellationType'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe ChildWorkflowCancellationType
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"ABANDON" = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
ABANDON
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"TRY_CANCEL" = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
TRY_CANCEL
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"WAIT_CANCELLATION_COMPLETED"
    = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"WAIT_CANCELLATION_REQUESTED"
    = ChildWorkflowCancellationType
-> Maybe ChildWorkflowCancellationType
forall a. a -> Maybe a
Prelude.Just ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe ChildWorkflowCancellationType)
-> Maybe ChildWorkflowCancellationType
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe ChildWorkflowCancellationType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded ChildWorkflowCancellationType where
  minBound :: ChildWorkflowCancellationType
minBound = ChildWorkflowCancellationType
ABANDON
  maxBound :: ChildWorkflowCancellationType
maxBound = ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED
instance Prelude.Enum ChildWorkflowCancellationType where
  toEnum :: Int -> ChildWorkflowCancellationType
toEnum Int
k__
    = ChildWorkflowCancellationType
-> (ChildWorkflowCancellationType -> ChildWorkflowCancellationType)
-> Maybe ChildWorkflowCancellationType
-> ChildWorkflowCancellationType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> ChildWorkflowCancellationType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum ChildWorkflowCancellationType: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        ChildWorkflowCancellationType -> ChildWorkflowCancellationType
forall a. a -> a
Prelude.id (Int -> Maybe ChildWorkflowCancellationType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: ChildWorkflowCancellationType -> Int
fromEnum ChildWorkflowCancellationType
ABANDON = Int
0
  fromEnum ChildWorkflowCancellationType
TRY_CANCEL = Int
1
  fromEnum ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED = Int
2
  fromEnum ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED = Int
3
  fromEnum
    (ChildWorkflowCancellationType'Unrecognized (ChildWorkflowCancellationType'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: ChildWorkflowCancellationType -> ChildWorkflowCancellationType
succ ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED
    = String -> ChildWorkflowCancellationType
forall a. HasCallStack => String -> a
Prelude.error
        String
"ChildWorkflowCancellationType.succ: bad argument WAIT_CANCELLATION_REQUESTED. This value would be out of bounds."
  succ ChildWorkflowCancellationType
ABANDON = ChildWorkflowCancellationType
TRY_CANCEL
  succ ChildWorkflowCancellationType
TRY_CANCEL = ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED
  succ ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED = ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED
  succ (ChildWorkflowCancellationType'Unrecognized ChildWorkflowCancellationType'UnrecognizedValue
_)
    = String -> ChildWorkflowCancellationType
forall a. HasCallStack => String -> a
Prelude.error
        String
"ChildWorkflowCancellationType.succ: bad argument: unrecognized value"
  pred :: ChildWorkflowCancellationType -> ChildWorkflowCancellationType
pred ChildWorkflowCancellationType
ABANDON
    = String -> ChildWorkflowCancellationType
forall a. HasCallStack => String -> a
Prelude.error
        String
"ChildWorkflowCancellationType.pred: bad argument ABANDON. This value would be out of bounds."
  pred ChildWorkflowCancellationType
TRY_CANCEL = ChildWorkflowCancellationType
ABANDON
  pred ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED = ChildWorkflowCancellationType
TRY_CANCEL
  pred ChildWorkflowCancellationType
WAIT_CANCELLATION_REQUESTED = ChildWorkflowCancellationType
WAIT_CANCELLATION_COMPLETED
  pred (ChildWorkflowCancellationType'Unrecognized ChildWorkflowCancellationType'UnrecognizedValue
_)
    = String -> ChildWorkflowCancellationType
forall a. HasCallStack => String -> a
Prelude.error
        String
"ChildWorkflowCancellationType.pred: bad argument: unrecognized value"
  enumFrom :: ChildWorkflowCancellationType -> [ChildWorkflowCancellationType]
enumFrom = ChildWorkflowCancellationType -> [ChildWorkflowCancellationType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> [ChildWorkflowCancellationType]
enumFromTo = ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> [ChildWorkflowCancellationType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> [ChildWorkflowCancellationType]
enumFromThen = ChildWorkflowCancellationType
-> ChildWorkflowCancellationType -> [ChildWorkflowCancellationType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: ChildWorkflowCancellationType
-> ChildWorkflowCancellationType
-> ChildWorkflowCancellationType
-> [ChildWorkflowCancellationType]
enumFromThenTo = ChildWorkflowCancellationType
-> ChildWorkflowCancellationType
-> ChildWorkflowCancellationType
-> [ChildWorkflowCancellationType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault ChildWorkflowCancellationType where
  fieldDefault :: ChildWorkflowCancellationType
fieldDefault = ChildWorkflowCancellationType
ABANDON
instance Control.DeepSeq.NFData ChildWorkflowCancellationType where
  rnf :: ChildWorkflowCancellationType -> ()
rnf ChildWorkflowCancellationType
x__ = ChildWorkflowCancellationType -> () -> ()
forall a b. a -> b -> b
Prelude.seq ChildWorkflowCancellationType
x__ ()
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.maybe'status' @:: Lens' ChildWorkflowResult (Prelude.Maybe ChildWorkflowResult'Status)@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.maybe'completed' @:: Lens' ChildWorkflowResult (Prelude.Maybe Success)@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.completed' @:: Lens' ChildWorkflowResult Success@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.maybe'failed' @:: Lens' ChildWorkflowResult (Prelude.Maybe Failure)@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.failed' @:: Lens' ChildWorkflowResult Failure@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.maybe'cancelled' @:: Lens' ChildWorkflowResult (Prelude.Maybe Cancellation)@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.cancelled' @:: Lens' ChildWorkflowResult Cancellation@ -}
data ChildWorkflowResult
  = ChildWorkflowResult'_constructor {ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status :: !(Prelude.Maybe ChildWorkflowResult'Status),
                                      ChildWorkflowResult -> FieldSet
_ChildWorkflowResult'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ChildWorkflowResult -> ChildWorkflowResult -> Bool
(ChildWorkflowResult -> ChildWorkflowResult -> Bool)
-> (ChildWorkflowResult -> ChildWorkflowResult -> Bool)
-> Eq ChildWorkflowResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
== :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
$c/= :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
/= :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
Prelude.Eq, Eq ChildWorkflowResult
Eq ChildWorkflowResult =>
(ChildWorkflowResult -> ChildWorkflowResult -> Ordering)
-> (ChildWorkflowResult -> ChildWorkflowResult -> Bool)
-> (ChildWorkflowResult -> ChildWorkflowResult -> Bool)
-> (ChildWorkflowResult -> ChildWorkflowResult -> Bool)
-> (ChildWorkflowResult -> ChildWorkflowResult -> Bool)
-> (ChildWorkflowResult
    -> ChildWorkflowResult -> ChildWorkflowResult)
-> (ChildWorkflowResult
    -> ChildWorkflowResult -> ChildWorkflowResult)
-> Ord ChildWorkflowResult
ChildWorkflowResult -> ChildWorkflowResult -> Bool
ChildWorkflowResult -> ChildWorkflowResult -> Ordering
ChildWorkflowResult -> ChildWorkflowResult -> ChildWorkflowResult
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 :: ChildWorkflowResult -> ChildWorkflowResult -> Ordering
compare :: ChildWorkflowResult -> ChildWorkflowResult -> Ordering
$c< :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
< :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
$c<= :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
<= :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
$c> :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
> :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
$c>= :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
>= :: ChildWorkflowResult -> ChildWorkflowResult -> Bool
$cmax :: ChildWorkflowResult -> ChildWorkflowResult -> ChildWorkflowResult
max :: ChildWorkflowResult -> ChildWorkflowResult -> ChildWorkflowResult
$cmin :: ChildWorkflowResult -> ChildWorkflowResult -> ChildWorkflowResult
min :: ChildWorkflowResult -> ChildWorkflowResult -> ChildWorkflowResult
Prelude.Ord)
instance Prelude.Show ChildWorkflowResult where
  showsPrec :: Int -> ChildWorkflowResult -> ShowS
showsPrec Int
_ ChildWorkflowResult
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ChildWorkflowResult -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ChildWorkflowResult
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ChildWorkflowResult'Status
  = ChildWorkflowResult'Completed !Success |
    ChildWorkflowResult'Failed !Failure |
    ChildWorkflowResult'Cancelled !Cancellation
  deriving stock (Int -> ChildWorkflowResult'Status -> ShowS
[ChildWorkflowResult'Status] -> ShowS
ChildWorkflowResult'Status -> String
(Int -> ChildWorkflowResult'Status -> ShowS)
-> (ChildWorkflowResult'Status -> String)
-> ([ChildWorkflowResult'Status] -> ShowS)
-> Show ChildWorkflowResult'Status
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ChildWorkflowResult'Status -> ShowS
showsPrec :: Int -> ChildWorkflowResult'Status -> ShowS
$cshow :: ChildWorkflowResult'Status -> String
show :: ChildWorkflowResult'Status -> String
$cshowList :: [ChildWorkflowResult'Status] -> ShowS
showList :: [ChildWorkflowResult'Status] -> ShowS
Prelude.Show, ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
(ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool)
-> (ChildWorkflowResult'Status
    -> ChildWorkflowResult'Status -> Bool)
-> Eq ChildWorkflowResult'Status
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
== :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
$c/= :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
/= :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
Prelude.Eq, Eq ChildWorkflowResult'Status
Eq ChildWorkflowResult'Status =>
(ChildWorkflowResult'Status
 -> ChildWorkflowResult'Status -> Ordering)
-> (ChildWorkflowResult'Status
    -> ChildWorkflowResult'Status -> Bool)
-> (ChildWorkflowResult'Status
    -> ChildWorkflowResult'Status -> Bool)
-> (ChildWorkflowResult'Status
    -> ChildWorkflowResult'Status -> Bool)
-> (ChildWorkflowResult'Status
    -> ChildWorkflowResult'Status -> Bool)
-> (ChildWorkflowResult'Status
    -> ChildWorkflowResult'Status -> ChildWorkflowResult'Status)
-> (ChildWorkflowResult'Status
    -> ChildWorkflowResult'Status -> ChildWorkflowResult'Status)
-> Ord ChildWorkflowResult'Status
ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> Ordering
ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> ChildWorkflowResult'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 :: ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> Ordering
compare :: ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> Ordering
$c< :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
< :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
$c<= :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
<= :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
$c> :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
> :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
$c>= :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
>= :: ChildWorkflowResult'Status -> ChildWorkflowResult'Status -> Bool
$cmax :: ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> ChildWorkflowResult'Status
max :: ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> ChildWorkflowResult'Status
$cmin :: ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> ChildWorkflowResult'Status
min :: ChildWorkflowResult'Status
-> ChildWorkflowResult'Status -> ChildWorkflowResult'Status
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ChildWorkflowResult "maybe'status" (Prelude.Maybe ChildWorkflowResult'Status) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'status"
-> (Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> ChildWorkflowResult
-> f ChildWorkflowResult
fieldOf Proxy# "maybe'status"
_
    = ((Maybe ChildWorkflowResult'Status
  -> f (Maybe ChildWorkflowResult'Status))
 -> ChildWorkflowResult -> f ChildWorkflowResult)
-> ((Maybe ChildWorkflowResult'Status
     -> f (Maybe ChildWorkflowResult'Status))
    -> Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> (Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> ChildWorkflowResult
-> f ChildWorkflowResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ChildWorkflowResult -> Maybe ChildWorkflowResult'Status)
-> (ChildWorkflowResult
    -> Maybe ChildWorkflowResult'Status -> ChildWorkflowResult)
-> Lens
     ChildWorkflowResult
     ChildWorkflowResult
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status
           (\ ChildWorkflowResult
x__ Maybe ChildWorkflowResult'Status
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'status = y__}))
        (Maybe ChildWorkflowResult'Status
 -> f (Maybe ChildWorkflowResult'Status))
-> Maybe ChildWorkflowResult'Status
-> f (Maybe ChildWorkflowResult'Status)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChildWorkflowResult "maybe'completed" (Prelude.Maybe Success) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'completed"
-> (Maybe Success -> f (Maybe Success))
-> ChildWorkflowResult
-> f ChildWorkflowResult
fieldOf Proxy# "maybe'completed"
_
    = ((Maybe ChildWorkflowResult'Status
  -> f (Maybe ChildWorkflowResult'Status))
 -> ChildWorkflowResult -> f ChildWorkflowResult)
-> ((Maybe Success -> f (Maybe Success))
    -> Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> (Maybe Success -> f (Maybe Success))
-> ChildWorkflowResult
-> f ChildWorkflowResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ChildWorkflowResult -> Maybe ChildWorkflowResult'Status)
-> (ChildWorkflowResult
    -> Maybe ChildWorkflowResult'Status -> ChildWorkflowResult)
-> Lens
     ChildWorkflowResult
     ChildWorkflowResult
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status
           (\ ChildWorkflowResult
x__ Maybe ChildWorkflowResult'Status
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'status = y__}))
        ((Maybe ChildWorkflowResult'Status -> Maybe Success)
-> (Maybe ChildWorkflowResult'Status
    -> Maybe Success -> Maybe ChildWorkflowResult'Status)
-> Lens
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'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 ChildWorkflowResult'Status
x__
              -> case Maybe ChildWorkflowResult'Status
x__ of
                   (Prelude.Just (ChildWorkflowResult'Completed Success
x__val))
                     -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                   Maybe ChildWorkflowResult'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ChildWorkflowResult'Status
_ Maybe Success
y__ -> (Success -> ChildWorkflowResult'Status)
-> Maybe Success -> Maybe ChildWorkflowResult'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 -> ChildWorkflowResult'Status
ChildWorkflowResult'Completed Maybe Success
y__))
instance Data.ProtoLens.Field.HasField ChildWorkflowResult "completed" Success where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "completed"
-> (Success -> f Success)
-> ChildWorkflowResult
-> f ChildWorkflowResult
fieldOf Proxy# "completed"
_
    = ((Maybe ChildWorkflowResult'Status
  -> f (Maybe ChildWorkflowResult'Status))
 -> ChildWorkflowResult -> f ChildWorkflowResult)
-> ((Success -> f Success)
    -> Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> (Success -> f Success)
-> ChildWorkflowResult
-> f ChildWorkflowResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ChildWorkflowResult -> Maybe ChildWorkflowResult'Status)
-> (ChildWorkflowResult
    -> Maybe ChildWorkflowResult'Status -> ChildWorkflowResult)
-> Lens
     ChildWorkflowResult
     ChildWorkflowResult
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status
           (\ ChildWorkflowResult
x__ Maybe ChildWorkflowResult'Status
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'status = y__}))
        (((Maybe Success -> f (Maybe Success))
 -> Maybe ChildWorkflowResult'Status
 -> f (Maybe ChildWorkflowResult'Status))
-> ((Success -> f Success) -> Maybe Success -> f (Maybe Success))
-> (Success -> f Success)
-> Maybe ChildWorkflowResult'Status
-> f (Maybe ChildWorkflowResult'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ChildWorkflowResult'Status -> Maybe Success)
-> (Maybe ChildWorkflowResult'Status
    -> Maybe Success -> Maybe ChildWorkflowResult'Status)
-> Lens
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'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 ChildWorkflowResult'Status
x__
                 -> case Maybe ChildWorkflowResult'Status
x__ of
                      (Prelude.Just (ChildWorkflowResult'Completed Success
x__val))
                        -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
x__val
                      Maybe ChildWorkflowResult'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ChildWorkflowResult'Status
_ Maybe Success
y__ -> (Success -> ChildWorkflowResult'Status)
-> Maybe Success -> Maybe ChildWorkflowResult'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 -> ChildWorkflowResult'Status
ChildWorkflowResult'Completed 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 ChildWorkflowResult "maybe'failed" (Prelude.Maybe Failure) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failed"
-> (Maybe Failure -> f (Maybe Failure))
-> ChildWorkflowResult
-> f ChildWorkflowResult
fieldOf Proxy# "maybe'failed"
_
    = ((Maybe ChildWorkflowResult'Status
  -> f (Maybe ChildWorkflowResult'Status))
 -> ChildWorkflowResult -> f ChildWorkflowResult)
-> ((Maybe Failure -> f (Maybe Failure))
    -> Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> (Maybe Failure -> f (Maybe Failure))
-> ChildWorkflowResult
-> f ChildWorkflowResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ChildWorkflowResult -> Maybe ChildWorkflowResult'Status)
-> (ChildWorkflowResult
    -> Maybe ChildWorkflowResult'Status -> ChildWorkflowResult)
-> Lens
     ChildWorkflowResult
     ChildWorkflowResult
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status
           (\ ChildWorkflowResult
x__ Maybe ChildWorkflowResult'Status
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'status = y__}))
        ((Maybe ChildWorkflowResult'Status -> Maybe Failure)
-> (Maybe ChildWorkflowResult'Status
    -> Maybe Failure -> Maybe ChildWorkflowResult'Status)
-> Lens
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'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 ChildWorkflowResult'Status
x__
              -> case Maybe ChildWorkflowResult'Status
x__ of
                   (Prelude.Just (ChildWorkflowResult'Failed Failure
x__val))
                     -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                   Maybe ChildWorkflowResult'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ChildWorkflowResult'Status
_ Maybe Failure
y__ -> (Failure -> ChildWorkflowResult'Status)
-> Maybe Failure -> Maybe ChildWorkflowResult'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 -> ChildWorkflowResult'Status
ChildWorkflowResult'Failed Maybe Failure
y__))
instance Data.ProtoLens.Field.HasField ChildWorkflowResult "failed" Failure where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failed"
-> (Failure -> f Failure)
-> ChildWorkflowResult
-> f ChildWorkflowResult
fieldOf Proxy# "failed"
_
    = ((Maybe ChildWorkflowResult'Status
  -> f (Maybe ChildWorkflowResult'Status))
 -> ChildWorkflowResult -> f ChildWorkflowResult)
-> ((Failure -> f Failure)
    -> Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> (Failure -> f Failure)
-> ChildWorkflowResult
-> f ChildWorkflowResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ChildWorkflowResult -> Maybe ChildWorkflowResult'Status)
-> (ChildWorkflowResult
    -> Maybe ChildWorkflowResult'Status -> ChildWorkflowResult)
-> Lens
     ChildWorkflowResult
     ChildWorkflowResult
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status
           (\ ChildWorkflowResult
x__ Maybe ChildWorkflowResult'Status
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'status = y__}))
        (((Maybe Failure -> f (Maybe Failure))
 -> Maybe ChildWorkflowResult'Status
 -> f (Maybe ChildWorkflowResult'Status))
-> ((Failure -> f Failure) -> Maybe Failure -> f (Maybe Failure))
-> (Failure -> f Failure)
-> Maybe ChildWorkflowResult'Status
-> f (Maybe ChildWorkflowResult'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ChildWorkflowResult'Status -> Maybe Failure)
-> (Maybe ChildWorkflowResult'Status
    -> Maybe Failure -> Maybe ChildWorkflowResult'Status)
-> Lens
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'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 ChildWorkflowResult'Status
x__
                 -> case Maybe ChildWorkflowResult'Status
x__ of
                      (Prelude.Just (ChildWorkflowResult'Failed Failure
x__val))
                        -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
x__val
                      Maybe ChildWorkflowResult'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ChildWorkflowResult'Status
_ Maybe Failure
y__ -> (Failure -> ChildWorkflowResult'Status)
-> Maybe Failure -> Maybe ChildWorkflowResult'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 -> ChildWorkflowResult'Status
ChildWorkflowResult'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.Field.HasField ChildWorkflowResult "maybe'cancelled" (Prelude.Maybe Cancellation) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelled"
-> (Maybe Cancellation -> f (Maybe Cancellation))
-> ChildWorkflowResult
-> f ChildWorkflowResult
fieldOf Proxy# "maybe'cancelled"
_
    = ((Maybe ChildWorkflowResult'Status
  -> f (Maybe ChildWorkflowResult'Status))
 -> ChildWorkflowResult -> f ChildWorkflowResult)
-> ((Maybe Cancellation -> f (Maybe Cancellation))
    -> Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> (Maybe Cancellation -> f (Maybe Cancellation))
-> ChildWorkflowResult
-> f ChildWorkflowResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ChildWorkflowResult -> Maybe ChildWorkflowResult'Status)
-> (ChildWorkflowResult
    -> Maybe ChildWorkflowResult'Status -> ChildWorkflowResult)
-> Lens
     ChildWorkflowResult
     ChildWorkflowResult
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status
           (\ ChildWorkflowResult
x__ Maybe ChildWorkflowResult'Status
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'status = y__}))
        ((Maybe ChildWorkflowResult'Status -> Maybe Cancellation)
-> (Maybe ChildWorkflowResult'Status
    -> Maybe Cancellation -> Maybe ChildWorkflowResult'Status)
-> Lens
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
     (Maybe Cancellation)
     (Maybe Cancellation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ChildWorkflowResult'Status
x__
              -> case Maybe ChildWorkflowResult'Status
x__ of
                   (Prelude.Just (ChildWorkflowResult'Cancelled Cancellation
x__val))
                     -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
x__val
                   Maybe ChildWorkflowResult'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ChildWorkflowResult'Status
_ Maybe Cancellation
y__ -> (Cancellation -> ChildWorkflowResult'Status)
-> Maybe Cancellation -> Maybe ChildWorkflowResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancellation -> ChildWorkflowResult'Status
ChildWorkflowResult'Cancelled Maybe Cancellation
y__))
instance Data.ProtoLens.Field.HasField ChildWorkflowResult "cancelled" Cancellation where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelled"
-> (Cancellation -> f Cancellation)
-> ChildWorkflowResult
-> f ChildWorkflowResult
fieldOf Proxy# "cancelled"
_
    = ((Maybe ChildWorkflowResult'Status
  -> f (Maybe ChildWorkflowResult'Status))
 -> ChildWorkflowResult -> f ChildWorkflowResult)
-> ((Cancellation -> f Cancellation)
    -> Maybe ChildWorkflowResult'Status
    -> f (Maybe ChildWorkflowResult'Status))
-> (Cancellation -> f Cancellation)
-> ChildWorkflowResult
-> f ChildWorkflowResult
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ChildWorkflowResult -> Maybe ChildWorkflowResult'Status)
-> (ChildWorkflowResult
    -> Maybe ChildWorkflowResult'Status -> ChildWorkflowResult)
-> Lens
     ChildWorkflowResult
     ChildWorkflowResult
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status
           (\ ChildWorkflowResult
x__ Maybe ChildWorkflowResult'Status
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'status = y__}))
        (((Maybe Cancellation -> f (Maybe Cancellation))
 -> Maybe ChildWorkflowResult'Status
 -> f (Maybe ChildWorkflowResult'Status))
-> ((Cancellation -> f Cancellation)
    -> Maybe Cancellation -> f (Maybe Cancellation))
-> (Cancellation -> f Cancellation)
-> Maybe ChildWorkflowResult'Status
-> f (Maybe ChildWorkflowResult'Status)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ChildWorkflowResult'Status -> Maybe Cancellation)
-> (Maybe ChildWorkflowResult'Status
    -> Maybe Cancellation -> Maybe ChildWorkflowResult'Status)
-> Lens
     (Maybe ChildWorkflowResult'Status)
     (Maybe ChildWorkflowResult'Status)
     (Maybe Cancellation)
     (Maybe Cancellation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ChildWorkflowResult'Status
x__
                 -> case Maybe ChildWorkflowResult'Status
x__ of
                      (Prelude.Just (ChildWorkflowResult'Cancelled Cancellation
x__val))
                        -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
x__val
                      Maybe ChildWorkflowResult'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ChildWorkflowResult'Status
_ Maybe Cancellation
y__ -> (Cancellation -> ChildWorkflowResult'Status)
-> Maybe Cancellation -> Maybe ChildWorkflowResult'Status
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Cancellation -> ChildWorkflowResult'Status
ChildWorkflowResult'Cancelled Maybe Cancellation
y__))
           (Cancellation -> Lens' (Maybe Cancellation) Cancellation
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Cancellation
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ChildWorkflowResult where
  messageName :: Proxy ChildWorkflowResult -> Text
messageName Proxy ChildWorkflowResult
_
    = String -> Text
Data.Text.pack String
"coresdk.child_workflow.ChildWorkflowResult"
  packedMessageDescriptor :: Proxy ChildWorkflowResult -> ByteString
packedMessageDescriptor Proxy ChildWorkflowResult
_
    = ByteString
"\n\
      \\DC3ChildWorkflowResult\DC2?\n\
      \\tcompleted\CAN\SOH \SOH(\v2\US.coresdk.child_workflow.SuccessH\NULR\tcompleted\DC29\n\
      \\ACKfailed\CAN\STX \SOH(\v2\US.coresdk.child_workflow.FailureH\NULR\ACKfailed\DC2D\n\
      \\tcancelled\CAN\ETX \SOH(\v2$.coresdk.child_workflow.CancellationH\NULR\tcancelledB\b\n\
      \\ACKstatus"
  packedFileDescriptor :: Proxy ChildWorkflowResult -> ByteString
packedFileDescriptor Proxy ChildWorkflowResult
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ChildWorkflowResult)
fieldsByTag
    = let
        completed__field_descriptor :: FieldDescriptor ChildWorkflowResult
completed__field_descriptor
          = String
-> FieldTypeDescriptor Success
-> FieldAccessor ChildWorkflowResult Success
-> FieldDescriptor ChildWorkflowResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"completed"
              (MessageOrGroup -> FieldTypeDescriptor Success
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Success)
              (Lens' ChildWorkflowResult (Maybe Success)
-> FieldAccessor ChildWorkflowResult 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'completed")) ::
              Data.ProtoLens.FieldDescriptor ChildWorkflowResult
        failed__field_descriptor :: FieldDescriptor ChildWorkflowResult
failed__field_descriptor
          = String
-> FieldTypeDescriptor Failure
-> FieldAccessor ChildWorkflowResult Failure
-> FieldDescriptor ChildWorkflowResult
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' ChildWorkflowResult (Maybe Failure)
-> FieldAccessor ChildWorkflowResult 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 ChildWorkflowResult
        cancelled__field_descriptor :: FieldDescriptor ChildWorkflowResult
cancelled__field_descriptor
          = String
-> FieldTypeDescriptor Cancellation
-> FieldAccessor ChildWorkflowResult Cancellation
-> FieldDescriptor ChildWorkflowResult
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancelled"
              (MessageOrGroup -> FieldTypeDescriptor Cancellation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Cancellation)
              (Lens' ChildWorkflowResult (Maybe Cancellation)
-> FieldAccessor ChildWorkflowResult Cancellation
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'cancelled")) ::
              Data.ProtoLens.FieldDescriptor ChildWorkflowResult
      in
        [(Tag, FieldDescriptor ChildWorkflowResult)]
-> Map Tag (FieldDescriptor ChildWorkflowResult)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ChildWorkflowResult
completed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ChildWorkflowResult
failed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ChildWorkflowResult
cancelled__field_descriptor)]
  unknownFields :: Lens' ChildWorkflowResult FieldSet
unknownFields
    = (ChildWorkflowResult -> FieldSet)
-> (ChildWorkflowResult -> FieldSet -> ChildWorkflowResult)
-> Lens' ChildWorkflowResult FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ChildWorkflowResult -> FieldSet
_ChildWorkflowResult'_unknownFields
        (\ ChildWorkflowResult
x__ FieldSet
y__ -> ChildWorkflowResult
x__ {_ChildWorkflowResult'_unknownFields = y__})
  defMessage :: ChildWorkflowResult
defMessage
    = ChildWorkflowResult'_constructor
        {_ChildWorkflowResult'status :: Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status = Maybe ChildWorkflowResult'Status
forall a. Maybe a
Prelude.Nothing,
         _ChildWorkflowResult'_unknownFields :: FieldSet
_ChildWorkflowResult'_unknownFields = []}
  parseMessage :: Parser ChildWorkflowResult
parseMessage
    = let
        loop ::
          ChildWorkflowResult
          -> Data.ProtoLens.Encoding.Bytes.Parser ChildWorkflowResult
        loop :: ChildWorkflowResult -> Parser ChildWorkflowResult
loop ChildWorkflowResult
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 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
"completed"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"completed") y x)
                        Word64
18
                          -> 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
26
                          -> do y <- Parser Cancellation -> String -> Parser Cancellation
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
"cancelled"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"cancelled") 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 ChildWorkflowResult -> String -> Parser ChildWorkflowResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ChildWorkflowResult -> Parser ChildWorkflowResult
loop ChildWorkflowResult
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ChildWorkflowResult"
  buildMessage :: ChildWorkflowResult -> Builder
buildMessage
    = \ ChildWorkflowResult
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ChildWorkflowResult'Status)
  ChildWorkflowResult
  ChildWorkflowResult
  (Maybe ChildWorkflowResult'Status)
  (Maybe ChildWorkflowResult'Status)
-> ChildWorkflowResult -> Maybe ChildWorkflowResult'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") ChildWorkflowResult
_x
              of
                Maybe ChildWorkflowResult'Status
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (ChildWorkflowResult'Completed Success
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((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 (ChildWorkflowResult'Failed Failure
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((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)
                (Prelude.Just (ChildWorkflowResult'Cancelled Cancellation
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (Cancellation -> ByteString) -> Cancellation -> 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))
                          Cancellation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Cancellation
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet ChildWorkflowResult ChildWorkflowResult FieldSet FieldSet
-> ChildWorkflowResult -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ChildWorkflowResult ChildWorkflowResult FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ChildWorkflowResult FieldSet
Data.ProtoLens.unknownFields ChildWorkflowResult
_x))
instance Control.DeepSeq.NFData ChildWorkflowResult where
  rnf :: ChildWorkflowResult -> ()
rnf
    = \ ChildWorkflowResult
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ChildWorkflowResult -> FieldSet
_ChildWorkflowResult'_unknownFields ChildWorkflowResult
x__)
             (Maybe ChildWorkflowResult'Status -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ChildWorkflowResult -> Maybe ChildWorkflowResult'Status
_ChildWorkflowResult'status ChildWorkflowResult
x__) ())
instance Control.DeepSeq.NFData ChildWorkflowResult'Status where
  rnf :: ChildWorkflowResult'Status -> ()
rnf (ChildWorkflowResult'Completed Success
x__) = Success -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Success
x__
  rnf (ChildWorkflowResult'Failed Failure
x__) = Failure -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Failure
x__
  rnf (ChildWorkflowResult'Cancelled Cancellation
x__) = Cancellation -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Cancellation
x__
_ChildWorkflowResult'Completed ::
  Data.ProtoLens.Prism.Prism' ChildWorkflowResult'Status Success
_ChildWorkflowResult'Completed :: Prism' ChildWorkflowResult'Status Success
_ChildWorkflowResult'Completed
  = (Success -> ChildWorkflowResult'Status)
-> (ChildWorkflowResult'Status -> Maybe Success)
-> Prism' ChildWorkflowResult'Status Success
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Success -> ChildWorkflowResult'Status
ChildWorkflowResult'Completed
      (\ ChildWorkflowResult'Status
p__
         -> case ChildWorkflowResult'Status
p__ of
              (ChildWorkflowResult'Completed Success
p__val) -> Success -> Maybe Success
forall a. a -> Maybe a
Prelude.Just Success
p__val
              ChildWorkflowResult'Status
_otherwise -> Maybe Success
forall a. Maybe a
Prelude.Nothing)
_ChildWorkflowResult'Failed ::
  Data.ProtoLens.Prism.Prism' ChildWorkflowResult'Status Failure
_ChildWorkflowResult'Failed :: Prism' ChildWorkflowResult'Status Failure
_ChildWorkflowResult'Failed
  = (Failure -> ChildWorkflowResult'Status)
-> (ChildWorkflowResult'Status -> Maybe Failure)
-> Prism' ChildWorkflowResult'Status Failure
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Failure -> ChildWorkflowResult'Status
ChildWorkflowResult'Failed
      (\ ChildWorkflowResult'Status
p__
         -> case ChildWorkflowResult'Status
p__ of
              (ChildWorkflowResult'Failed Failure
p__val) -> Failure -> Maybe Failure
forall a. a -> Maybe a
Prelude.Just Failure
p__val
              ChildWorkflowResult'Status
_otherwise -> Maybe Failure
forall a. Maybe a
Prelude.Nothing)
_ChildWorkflowResult'Cancelled ::
  Data.ProtoLens.Prism.Prism' ChildWorkflowResult'Status Cancellation
_ChildWorkflowResult'Cancelled :: Prism' ChildWorkflowResult'Status Cancellation
_ChildWorkflowResult'Cancelled
  = (Cancellation -> ChildWorkflowResult'Status)
-> (ChildWorkflowResult'Status -> Maybe Cancellation)
-> Prism' ChildWorkflowResult'Status Cancellation
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Cancellation -> ChildWorkflowResult'Status
ChildWorkflowResult'Cancelled
      (\ ChildWorkflowResult'Status
p__
         -> case ChildWorkflowResult'Status
p__ of
              (ChildWorkflowResult'Cancelled Cancellation
p__val) -> Cancellation -> Maybe Cancellation
forall a. a -> Maybe a
Prelude.Just Cancellation
p__val
              ChildWorkflowResult'Status
_otherwise -> Maybe Cancellation
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.failure' @:: Lens' Failure Proto.Temporal.Api.Failure.V1.Message.Failure@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.maybe'failure' @:: Lens' Failure (Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure)@ -}
data Failure
  = Failure'_constructor {Failure -> Maybe Failure
_Failure'failure :: !(Prelude.Maybe Proto.Temporal.Api.Failure.V1.Message.Failure),
                          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.Message Failure where
  messageName :: Proxy Failure -> Text
messageName Proxy Failure
_ = String -> Text
Data.Text.pack String
"coresdk.child_workflow.Failure"
  packedMessageDescriptor :: Proxy Failure -> ByteString
packedMessageDescriptor Proxy Failure
_
    = ByteString
"\n\
      \\aFailure\DC2:\n\
      \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure"
  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
      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)]
  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'_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
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))
             (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__) ())
newtype ParentClosePolicy'UnrecognizedValue
  = ParentClosePolicy'UnrecognizedValue Data.Int.Int32
  deriving stock (ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
(ParentClosePolicy'UnrecognizedValue
 -> ParentClosePolicy'UnrecognizedValue -> Bool)
-> (ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue -> Bool)
-> Eq ParentClosePolicy'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
== :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
$c/= :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
/= :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
Prelude.Eq, Eq ParentClosePolicy'UnrecognizedValue
Eq ParentClosePolicy'UnrecognizedValue =>
(ParentClosePolicy'UnrecognizedValue
 -> ParentClosePolicy'UnrecognizedValue -> Ordering)
-> (ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue -> Bool)
-> (ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue -> Bool)
-> (ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue -> Bool)
-> (ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue -> Bool)
-> (ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue)
-> (ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue
    -> ParentClosePolicy'UnrecognizedValue)
-> Ord ParentClosePolicy'UnrecognizedValue
ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Ordering
ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Ordering
compare :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Ordering
$c< :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
< :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
$c<= :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
<= :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
$c> :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
> :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
$c>= :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
>= :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue -> Bool
$cmax :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
max :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
$cmin :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
min :: ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
-> ParentClosePolicy'UnrecognizedValue
Prelude.Ord, Int -> ParentClosePolicy'UnrecognizedValue -> ShowS
[ParentClosePolicy'UnrecognizedValue] -> ShowS
ParentClosePolicy'UnrecognizedValue -> String
(Int -> ParentClosePolicy'UnrecognizedValue -> ShowS)
-> (ParentClosePolicy'UnrecognizedValue -> String)
-> ([ParentClosePolicy'UnrecognizedValue] -> ShowS)
-> Show ParentClosePolicy'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ParentClosePolicy'UnrecognizedValue -> ShowS
showsPrec :: Int -> ParentClosePolicy'UnrecognizedValue -> ShowS
$cshow :: ParentClosePolicy'UnrecognizedValue -> String
show :: ParentClosePolicy'UnrecognizedValue -> String
$cshowList :: [ParentClosePolicy'UnrecognizedValue] -> ShowS
showList :: [ParentClosePolicy'UnrecognizedValue] -> ShowS
Prelude.Show)
data ParentClosePolicy
  = PARENT_CLOSE_POLICY_UNSPECIFIED |
    PARENT_CLOSE_POLICY_TERMINATE |
    PARENT_CLOSE_POLICY_ABANDON |
    PARENT_CLOSE_POLICY_REQUEST_CANCEL |
    ParentClosePolicy'Unrecognized !ParentClosePolicy'UnrecognizedValue
  deriving stock (Int -> ParentClosePolicy -> ShowS
[ParentClosePolicy] -> ShowS
ParentClosePolicy -> String
(Int -> ParentClosePolicy -> ShowS)
-> (ParentClosePolicy -> String)
-> ([ParentClosePolicy] -> ShowS)
-> Show ParentClosePolicy
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ParentClosePolicy -> ShowS
showsPrec :: Int -> ParentClosePolicy -> ShowS
$cshow :: ParentClosePolicy -> String
show :: ParentClosePolicy -> String
$cshowList :: [ParentClosePolicy] -> ShowS
showList :: [ParentClosePolicy] -> ShowS
Prelude.Show, ParentClosePolicy -> ParentClosePolicy -> Bool
(ParentClosePolicy -> ParentClosePolicy -> Bool)
-> (ParentClosePolicy -> ParentClosePolicy -> Bool)
-> Eq ParentClosePolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ParentClosePolicy -> ParentClosePolicy -> Bool
== :: ParentClosePolicy -> ParentClosePolicy -> Bool
$c/= :: ParentClosePolicy -> ParentClosePolicy -> Bool
/= :: ParentClosePolicy -> ParentClosePolicy -> Bool
Prelude.Eq, Eq ParentClosePolicy
Eq ParentClosePolicy =>
(ParentClosePolicy -> ParentClosePolicy -> Ordering)
-> (ParentClosePolicy -> ParentClosePolicy -> Bool)
-> (ParentClosePolicy -> ParentClosePolicy -> Bool)
-> (ParentClosePolicy -> ParentClosePolicy -> Bool)
-> (ParentClosePolicy -> ParentClosePolicy -> Bool)
-> (ParentClosePolicy -> ParentClosePolicy -> ParentClosePolicy)
-> (ParentClosePolicy -> ParentClosePolicy -> ParentClosePolicy)
-> Ord ParentClosePolicy
ParentClosePolicy -> ParentClosePolicy -> Bool
ParentClosePolicy -> ParentClosePolicy -> Ordering
ParentClosePolicy -> ParentClosePolicy -> ParentClosePolicy
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 :: ParentClosePolicy -> ParentClosePolicy -> Ordering
compare :: ParentClosePolicy -> ParentClosePolicy -> Ordering
$c< :: ParentClosePolicy -> ParentClosePolicy -> Bool
< :: ParentClosePolicy -> ParentClosePolicy -> Bool
$c<= :: ParentClosePolicy -> ParentClosePolicy -> Bool
<= :: ParentClosePolicy -> ParentClosePolicy -> Bool
$c> :: ParentClosePolicy -> ParentClosePolicy -> Bool
> :: ParentClosePolicy -> ParentClosePolicy -> Bool
$c>= :: ParentClosePolicy -> ParentClosePolicy -> Bool
>= :: ParentClosePolicy -> ParentClosePolicy -> Bool
$cmax :: ParentClosePolicy -> ParentClosePolicy -> ParentClosePolicy
max :: ParentClosePolicy -> ParentClosePolicy -> ParentClosePolicy
$cmin :: ParentClosePolicy -> ParentClosePolicy -> ParentClosePolicy
min :: ParentClosePolicy -> ParentClosePolicy -> ParentClosePolicy
Prelude.Ord)
instance Data.ProtoLens.MessageEnum ParentClosePolicy where
  maybeToEnum :: Int -> Maybe ParentClosePolicy
maybeToEnum Int
0 = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
  maybeToEnum Int
1 = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE
  maybeToEnum Int
2 = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON
  maybeToEnum Int
3 = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL
  maybeToEnum Int
k
    = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just
        (ParentClosePolicy'UnrecognizedValue -> ParentClosePolicy
ParentClosePolicy'Unrecognized
           (Int32 -> ParentClosePolicy'UnrecognizedValue
ParentClosePolicy'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: ParentClosePolicy -> String
showEnum ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
    = String
"PARENT_CLOSE_POLICY_UNSPECIFIED"
  showEnum ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE
    = String
"PARENT_CLOSE_POLICY_TERMINATE"
  showEnum ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON
    = String
"PARENT_CLOSE_POLICY_ABANDON"
  showEnum ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL
    = String
"PARENT_CLOSE_POLICY_REQUEST_CANCEL"
  showEnum
    (ParentClosePolicy'Unrecognized (ParentClosePolicy'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe ParentClosePolicy
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"PARENT_CLOSE_POLICY_UNSPECIFIED"
    = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"PARENT_CLOSE_POLICY_TERMINATE"
    = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"PARENT_CLOSE_POLICY_ABANDON"
    = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"PARENT_CLOSE_POLICY_REQUEST_CANCEL"
    = ParentClosePolicy -> Maybe ParentClosePolicy
forall a. a -> Maybe a
Prelude.Just ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe ParentClosePolicy) -> Maybe ParentClosePolicy
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe ParentClosePolicy
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded ParentClosePolicy where
  minBound :: ParentClosePolicy
minBound = ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
  maxBound :: ParentClosePolicy
maxBound = ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL
instance Prelude.Enum ParentClosePolicy where
  toEnum :: Int -> ParentClosePolicy
toEnum Int
k__
    = ParentClosePolicy
-> (ParentClosePolicy -> ParentClosePolicy)
-> Maybe ParentClosePolicy
-> ParentClosePolicy
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> ParentClosePolicy
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum ParentClosePolicy: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        ParentClosePolicy -> ParentClosePolicy
forall a. a -> a
Prelude.id (Int -> Maybe ParentClosePolicy
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: ParentClosePolicy -> Int
fromEnum ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED = Int
0
  fromEnum ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE = Int
1
  fromEnum ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON = Int
2
  fromEnum ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL = Int
3
  fromEnum
    (ParentClosePolicy'Unrecognized (ParentClosePolicy'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: ParentClosePolicy -> ParentClosePolicy
succ ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL
    = String -> ParentClosePolicy
forall a. HasCallStack => String -> a
Prelude.error
        String
"ParentClosePolicy.succ: bad argument PARENT_CLOSE_POLICY_REQUEST_CANCEL. This value would be out of bounds."
  succ ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
    = ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE
  succ ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE = ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON
  succ ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON
    = ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL
  succ (ParentClosePolicy'Unrecognized ParentClosePolicy'UnrecognizedValue
_)
    = String -> ParentClosePolicy
forall a. HasCallStack => String -> a
Prelude.error
        String
"ParentClosePolicy.succ: bad argument: unrecognized value"
  pred :: ParentClosePolicy -> ParentClosePolicy
pred ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
    = String -> ParentClosePolicy
forall a. HasCallStack => String -> a
Prelude.error
        String
"ParentClosePolicy.pred: bad argument PARENT_CLOSE_POLICY_UNSPECIFIED. This value would be out of bounds."
  pred ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE
    = ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
  pred ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON = ParentClosePolicy
PARENT_CLOSE_POLICY_TERMINATE
  pred ParentClosePolicy
PARENT_CLOSE_POLICY_REQUEST_CANCEL
    = ParentClosePolicy
PARENT_CLOSE_POLICY_ABANDON
  pred (ParentClosePolicy'Unrecognized ParentClosePolicy'UnrecognizedValue
_)
    = String -> ParentClosePolicy
forall a. HasCallStack => String -> a
Prelude.error
        String
"ParentClosePolicy.pred: bad argument: unrecognized value"
  enumFrom :: ParentClosePolicy -> [ParentClosePolicy]
enumFrom = ParentClosePolicy -> [ParentClosePolicy]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: ParentClosePolicy -> ParentClosePolicy -> [ParentClosePolicy]
enumFromTo = ParentClosePolicy -> ParentClosePolicy -> [ParentClosePolicy]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: ParentClosePolicy -> ParentClosePolicy -> [ParentClosePolicy]
enumFromThen = ParentClosePolicy -> ParentClosePolicy -> [ParentClosePolicy]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: ParentClosePolicy
-> ParentClosePolicy -> ParentClosePolicy -> [ParentClosePolicy]
enumFromThenTo = ParentClosePolicy
-> ParentClosePolicy -> ParentClosePolicy -> [ParentClosePolicy]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault ParentClosePolicy where
  fieldDefault :: ParentClosePolicy
fieldDefault = ParentClosePolicy
PARENT_CLOSE_POLICY_UNSPECIFIED
instance Control.DeepSeq.NFData ParentClosePolicy where
  rnf :: ParentClosePolicy -> ()
rnf ParentClosePolicy
x__ = ParentClosePolicy -> () -> ()
forall a b. a -> b -> b
Prelude.seq ParentClosePolicy
x__ ()
newtype StartChildWorkflowExecutionFailedCause'UnrecognizedValue
  = StartChildWorkflowExecutionFailedCause'UnrecognizedValue Data.Int.Int32
  deriving stock (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
(StartChildWorkflowExecutionFailedCause'UnrecognizedValue
 -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
 -> Bool)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> Bool)
-> Eq StartChildWorkflowExecutionFailedCause'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
== :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
$c/= :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
/= :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
Prelude.Eq, Eq StartChildWorkflowExecutionFailedCause'UnrecognizedValue
Eq StartChildWorkflowExecutionFailedCause'UnrecognizedValue =>
(StartChildWorkflowExecutionFailedCause'UnrecognizedValue
 -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
 -> Ordering)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> Bool)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> Bool)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> Bool)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> Bool)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue)
-> Ord StartChildWorkflowExecutionFailedCause'UnrecognizedValue
StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> Ordering
StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> Ordering
compare :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> Ordering
$c< :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
< :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
$c<= :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
<= :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
$c> :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
> :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
$c>= :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
>= :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> Bool
$cmax :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
max :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
$cmin :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
min :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
Prelude.Ord, Int
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> ShowS
[StartChildWorkflowExecutionFailedCause'UnrecognizedValue] -> ShowS
StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> String
(Int
 -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
 -> ShowS)
-> (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
    -> String)
-> ([StartChildWorkflowExecutionFailedCause'UnrecognizedValue]
    -> ShowS)
-> Show StartChildWorkflowExecutionFailedCause'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> ShowS
showsPrec :: Int
-> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> ShowS
$cshow :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> String
show :: StartChildWorkflowExecutionFailedCause'UnrecognizedValue -> String
$cshowList :: [StartChildWorkflowExecutionFailedCause'UnrecognizedValue] -> ShowS
showList :: [StartChildWorkflowExecutionFailedCause'UnrecognizedValue] -> ShowS
Prelude.Show)
data StartChildWorkflowExecutionFailedCause
  = START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED |
    START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS |
    StartChildWorkflowExecutionFailedCause'Unrecognized !StartChildWorkflowExecutionFailedCause'UnrecognizedValue
  deriving stock (Int -> StartChildWorkflowExecutionFailedCause -> ShowS
[StartChildWorkflowExecutionFailedCause] -> ShowS
StartChildWorkflowExecutionFailedCause -> String
(Int -> StartChildWorkflowExecutionFailedCause -> ShowS)
-> (StartChildWorkflowExecutionFailedCause -> String)
-> ([StartChildWorkflowExecutionFailedCause] -> ShowS)
-> Show StartChildWorkflowExecutionFailedCause
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StartChildWorkflowExecutionFailedCause -> ShowS
showsPrec :: Int -> StartChildWorkflowExecutionFailedCause -> ShowS
$cshow :: StartChildWorkflowExecutionFailedCause -> String
show :: StartChildWorkflowExecutionFailedCause -> String
$cshowList :: [StartChildWorkflowExecutionFailedCause] -> ShowS
showList :: [StartChildWorkflowExecutionFailedCause] -> ShowS
Prelude.Show, StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
(StartChildWorkflowExecutionFailedCause
 -> StartChildWorkflowExecutionFailedCause -> Bool)
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause -> Bool)
-> Eq StartChildWorkflowExecutionFailedCause
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
== :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
$c/= :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
/= :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
Prelude.Eq, Eq StartChildWorkflowExecutionFailedCause
Eq StartChildWorkflowExecutionFailedCause =>
(StartChildWorkflowExecutionFailedCause
 -> StartChildWorkflowExecutionFailedCause -> Ordering)
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause -> Bool)
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause -> Bool)
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause -> Bool)
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause -> Bool)
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause)
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause)
-> Ord StartChildWorkflowExecutionFailedCause
StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Ordering
StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
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 :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Ordering
compare :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Ordering
$c< :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
< :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
$c<= :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
<= :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
$c> :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
> :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
$c>= :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
>= :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause -> Bool
$cmax :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
max :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
$cmin :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
min :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
Prelude.Ord)
instance Data.ProtoLens.MessageEnum StartChildWorkflowExecutionFailedCause where
  maybeToEnum :: Int -> Maybe StartChildWorkflowExecutionFailedCause
maybeToEnum Int
0
    = StartChildWorkflowExecutionFailedCause
-> Maybe StartChildWorkflowExecutionFailedCause
forall a. a -> Maybe a
Prelude.Just
        StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
  maybeToEnum Int
1
    = StartChildWorkflowExecutionFailedCause
-> Maybe StartChildWorkflowExecutionFailedCause
forall a. a -> Maybe a
Prelude.Just
        StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
  maybeToEnum Int
k
    = StartChildWorkflowExecutionFailedCause
-> Maybe StartChildWorkflowExecutionFailedCause
forall a. a -> Maybe a
Prelude.Just
        (StartChildWorkflowExecutionFailedCause'UnrecognizedValue
-> StartChildWorkflowExecutionFailedCause
StartChildWorkflowExecutionFailedCause'Unrecognized
           (Int32 -> StartChildWorkflowExecutionFailedCause'UnrecognizedValue
StartChildWorkflowExecutionFailedCause'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: StartChildWorkflowExecutionFailedCause -> String
showEnum StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
    = String
"START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED"
  showEnum
    StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
    = String
"START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS"
  showEnum
    (StartChildWorkflowExecutionFailedCause'Unrecognized (StartChildWorkflowExecutionFailedCause'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe StartChildWorkflowExecutionFailedCause
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==)
        String
k String
"START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED"
    = StartChildWorkflowExecutionFailedCause
-> Maybe StartChildWorkflowExecutionFailedCause
forall a. a -> Maybe a
Prelude.Just
        StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==)
        String
k
        String
"START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS"
    = StartChildWorkflowExecutionFailedCause
-> Maybe StartChildWorkflowExecutionFailedCause
forall a. a -> Maybe a
Prelude.Just
        StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe StartChildWorkflowExecutionFailedCause)
-> Maybe StartChildWorkflowExecutionFailedCause
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe StartChildWorkflowExecutionFailedCause
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded StartChildWorkflowExecutionFailedCause where
  minBound :: StartChildWorkflowExecutionFailedCause
minBound = StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
  maxBound :: StartChildWorkflowExecutionFailedCause
maxBound
    = StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
instance Prelude.Enum StartChildWorkflowExecutionFailedCause where
  toEnum :: Int -> StartChildWorkflowExecutionFailedCause
toEnum Int
k__
    = StartChildWorkflowExecutionFailedCause
-> (StartChildWorkflowExecutionFailedCause
    -> StartChildWorkflowExecutionFailedCause)
-> Maybe StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> StartChildWorkflowExecutionFailedCause
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum StartChildWorkflowExecutionFailedCause: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
forall a. a -> a
Prelude.id (Int -> Maybe StartChildWorkflowExecutionFailedCause
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: StartChildWorkflowExecutionFailedCause -> Int
fromEnum StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
    = Int
0
  fromEnum
    StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
    = Int
1
  fromEnum
    (StartChildWorkflowExecutionFailedCause'Unrecognized (StartChildWorkflowExecutionFailedCause'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
succ
    StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
    = String -> StartChildWorkflowExecutionFailedCause
forall a. HasCallStack => String -> a
Prelude.error
        String
"StartChildWorkflowExecutionFailedCause.succ: bad argument START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS. This value would be out of bounds."
  succ StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
    = StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
  succ (StartChildWorkflowExecutionFailedCause'Unrecognized StartChildWorkflowExecutionFailedCause'UnrecognizedValue
_)
    = String -> StartChildWorkflowExecutionFailedCause
forall a. HasCallStack => String -> a
Prelude.error
        String
"StartChildWorkflowExecutionFailedCause.succ: bad argument: unrecognized value"
  pred :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
pred StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
    = String -> StartChildWorkflowExecutionFailedCause
forall a. HasCallStack => String -> a
Prelude.error
        String
"StartChildWorkflowExecutionFailedCause.pred: bad argument START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED. This value would be out of bounds."
  pred
    StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS
    = StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
  pred (StartChildWorkflowExecutionFailedCause'Unrecognized StartChildWorkflowExecutionFailedCause'UnrecognizedValue
_)
    = String -> StartChildWorkflowExecutionFailedCause
forall a. HasCallStack => String -> a
Prelude.error
        String
"StartChildWorkflowExecutionFailedCause.pred: bad argument: unrecognized value"
  enumFrom :: StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
enumFrom = StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
enumFromTo = StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
enumFromThen = StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
enumFromThenTo = StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> StartChildWorkflowExecutionFailedCause
-> [StartChildWorkflowExecutionFailedCause]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault StartChildWorkflowExecutionFailedCause where
  fieldDefault :: StartChildWorkflowExecutionFailedCause
fieldDefault
    = StartChildWorkflowExecutionFailedCause
START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED
instance Control.DeepSeq.NFData StartChildWorkflowExecutionFailedCause where
  rnf :: StartChildWorkflowExecutionFailedCause -> ()
rnf StartChildWorkflowExecutionFailedCause
x__ = StartChildWorkflowExecutionFailedCause -> () -> ()
forall a b. a -> b -> b
Prelude.seq StartChildWorkflowExecutionFailedCause
x__ ()
{- | Fields :
     
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.result' @:: Lens' Success Proto.Temporal.Api.Common.V1.Message.Payload@
         * 'Proto.Temporal.Sdk.Core.ChildWorkflow.ChildWorkflow_Fields.maybe'result' @:: Lens' Success (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload)@ -}
data Success
  = Success'_constructor {Success -> Maybe Payload
_Success'result :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
                          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 "result" Proto.Temporal.Api.Common.V1.Message.Payload where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "result" -> (Payload -> f Payload) -> Success -> f Success
fieldOf Proxy# "result"
_
    = ((Maybe Payload -> f (Maybe Payload)) -> Success -> f Success)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Maybe Payload)
-> (Success -> Maybe Payload -> Success)
-> Lens Success Success (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Maybe Payload
_Success'result (\ Success
x__ Maybe Payload
y__ -> Success
x__ {_Success'result = y__}))
        (Payload -> Lens' (Maybe Payload) Payload
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payload
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField Success "maybe'result" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'result"
-> (Maybe Payload -> f (Maybe Payload)) -> Success -> f Success
fieldOf Proxy# "maybe'result"
_
    = ((Maybe Payload -> f (Maybe Payload)) -> Success -> f Success)
-> ((Maybe Payload -> f (Maybe Payload))
    -> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> Success
-> f Success
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Success -> Maybe Payload)
-> (Success -> Maybe Payload -> Success)
-> Lens Success Success (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Success -> Maybe Payload
_Success'result (\ Success
x__ Maybe Payload
y__ -> Success
x__ {_Success'result = y__}))
        (Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
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.child_workflow.Success"
  packedMessageDescriptor :: Proxy Success -> ByteString
packedMessageDescriptor Proxy Success
_
    = ByteString
"\n\
      \\aSuccess\DC27\n\
      \\ACKresult\CAN\SOH \SOH(\v2\US.temporal.api.common.v1.PayloadR\ACKresult"
  packedFileDescriptor :: Proxy Success -> ByteString
packedFileDescriptor Proxy Success
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Success)
fieldsByTag
    = let
        result__field_descriptor :: FieldDescriptor Success
result__field_descriptor
          = String
-> FieldTypeDescriptor Payload
-> FieldAccessor Success Payload
-> FieldDescriptor Success
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"result"
              (MessageOrGroup -> FieldTypeDescriptor Payload
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payload)
              (Lens Success Success (Maybe Payload) (Maybe Payload)
-> FieldAccessor Success Payload
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'result")) ::
              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
result__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'result :: Maybe Payload
_Success'result = Maybe Payload
forall a. Maybe a
Prelude.Nothing, _Success'_unknownFields :: FieldSet
_Success'_unknownFields = []}
  parseMessage :: Parser Success
parseMessage
    = let
        loop :: Success -> Data.ProtoLens.Encoding.Bytes.Parser Success
        loop :: Success -> Parser Success
loop Success
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 Payload -> String -> Parser Payload
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"result"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"result") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser Success -> String -> Parser Success
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Success -> Parser Success
loop Success
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Success"
  buildMessage :: Success -> Builder
buildMessage
    = \ Success
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Payload) Success Success (Maybe Payload) (Maybe Payload)
-> Success -> Maybe Payload
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'result") Success
_x
              of
                Maybe Payload
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just Payload
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
             (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__)
             (Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Success -> Maybe Payload
_Success'result Success
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \5temporal/sdk/core/child_workflow/child_workflow.proto\DC2\SYNcoresdk.child_workflow\SUB$temporal/api/common/v1/message.proto\SUB%temporal/api/failure/v1/message.proto\SUB%temporal/sdk/core/common/common.proto\"\225\SOH\n\
    \\DC3ChildWorkflowResult\DC2?\n\
    \\tcompleted\CAN\SOH \SOH(\v2\US.coresdk.child_workflow.SuccessH\NULR\tcompleted\DC29\n\
    \\ACKfailed\CAN\STX \SOH(\v2\US.coresdk.child_workflow.FailureH\NULR\ACKfailed\DC2D\n\
    \\tcancelled\CAN\ETX \SOH(\v2$.coresdk.child_workflow.CancellationH\NULR\tcancelledB\b\n\
    \\ACKstatus\"B\n\
    \\aSuccess\DC27\n\
    \\ACKresult\CAN\SOH \SOH(\v2\US.temporal.api.common.v1.PayloadR\ACKresult\"E\n\
    \\aFailure\DC2:\n\
    \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure\"J\n\
    \\fCancellation\DC2:\n\
    \\afailure\CAN\SOH \SOH(\v2 .temporal.api.failure.v1.FailureR\afailure*\164\SOH\n\
    \\DC1ParentClosePolicy\DC2#\n\
    \\USPARENT_CLOSE_POLICY_UNSPECIFIED\DLE\NUL\DC2!\n\
    \\GSPARENT_CLOSE_POLICY_TERMINATE\DLE\SOH\DC2\US\n\
    \\ESCPARENT_CLOSE_POLICY_ABANDON\DLE\STX\DC2&\n\
    \\"PARENT_CLOSE_POLICY_REQUEST_CANCEL\DLE\ETX*\174\SOH\n\
    \&StartChildWorkflowExecutionFailedCause\DC2;\n\
    \7START_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_UNSPECIFIED\DLE\NUL\DC2G\n\
    \CSTART_CHILD_WORKFLOW_EXECUTION_FAILED_CAUSE_WORKFLOW_ALREADY_EXISTS\DLE\SOH*~\n\
    \\GSChildWorkflowCancellationType\DC2\v\n\
    \\aABANDON\DLE\NUL\DC2\SO\n\
    \\n\
    \TRY_CANCEL\DLE\SOH\DC2\US\n\
    \\ESCWAIT_CANCELLATION_COMPLETED\DLE\STX\DC2\US\n\
    \\ESCWAIT_CANCELLATION_REQUESTED\DLE\ETXB)\234\STX&Temporalio::Bridge::Api::ChildWorkflowJ\227\DLE\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\US\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETX\NUL?\n\
    \\t\n\
    \\STX\b-\DC2\ETX\ETX\NUL?\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ENQ\NUL.\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\ACK\NUL/\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX\a\NUL/\n\
    \@\n\
    \\STX\EOT\NUL\DC2\EOT\n\
    \\NUL\DLE\SOH\SUB4 Used by core to resolve child workflow executions.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\n\
    \\b\ESC\n\
    \\f\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT\v\EOT\SI\ENQ\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\v\n\
    \\DLE\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\f\b\RS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\f\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\f\DLE\EM\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\f\FS\GS\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\r\b\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\r\b\SI\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\r\DLE\SYN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\r\EM\SUB\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\SO\b#\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX\SO\b\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\SO\NAK\RS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\SO!\"\n\
    \J\n\
    \\STX\EOT\SOH\DC2\EOT\DC3\NUL\NAK\SOH\SUB> Used in ChildWorkflowResult to report successful completion.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\DC3\b\SI\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\DC4\EOT.\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\DC4\EOT\"\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\DC4#)\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\DC4,-\n\
    \\150\SOH\n\
    \\STX\EOT\STX\DC2\EOT\EM\NUL\ESC\SOH\SUB\137\SOH Used in ChildWorkflowResult to report non successful outcomes such as\n\
    \ application failures, timeouts, terminations, and cancellations.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX\EM\b\SI\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX\SUB\EOT0\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX\SUB\EOT#\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX\SUB$+\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX\SUB./\n\
    \\135\SOH\n\
    \\STX\EOT\ETX\DC2\EOT\US\NUL!\SOH\SUB{ Used in ChildWorkflowResult to report cancellation.\n\
    \ Failure should be ChildWorkflowFailure with a CanceledFailure cause.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETX\US\b\DC4\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETX \EOT0\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX \EOT#\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX $+\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX ./\n\
    \j\n\
    \\STX\ENQ\NUL\DC2\EOT%\NUL.\SOH\SUB^ Used by the service to determine the fate of a child workflow\n\
    \ in case its parent is closed.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ENQ\NUL\SOH\DC2\ETX%\ENQ\SYN\n\
    \0\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\ETX'\EOT(\SUB# Let's the server set the default.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX'\EOT#\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX'&'\n\
    \>\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\ETX)\EOT&\SUB1 Terminate means terminating the child workflow.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\ETX)\EOT!\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\ETX)$%\n\
    \F\n\
    \\EOT\ENQ\NUL\STX\STX\DC2\ETX+\EOT$\SUB9 Abandon means not doing anything on the child workflow.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\ETX+\EOT\US\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\ETX+\"#\n\
    \J\n\
    \\EOT\ENQ\NUL\STX\ETX\DC2\ETX-\EOT+\SUB= Cancel means requesting cancellation on the child workflow.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\SOH\DC2\ETX-\EOT&\n\
    \\f\n\
    \\ENQ\ENQ\NUL\STX\ETX\STX\DC2\ETX-)*\n\
    \B\n\
    \\STX\ENQ\SOH\DC2\EOT1\NUL4\SOH\SUB6 Possible causes of failure to start a child workflow\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ENQ\SOH\SOH\DC2\ETX1\ENQ+\n\
    \\v\n\
    \\EOT\ENQ\SOH\STX\NUL\DC2\ETX2\EOT@\n\
    \\f\n\
    \\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\ETX2\EOT;\n\
    \\f\n\
    \\ENQ\ENQ\SOH\STX\NUL\STX\DC2\ETX2>?\n\
    \\v\n\
    \\EOT\ENQ\SOH\STX\SOH\DC2\ETX3\EOTL\n\
    \\f\n\
    \\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\ETX3\EOTG\n\
    \\f\n\
    \\ENQ\ENQ\SOH\STX\SOH\STX\DC2\ETX3JK\n\
    \_\n\
    \\STX\ENQ\STX\DC2\EOT7\NUL@\SOH\SUBS Controls at which point to report back to lang when a child workflow is cancelled\n\
    \\n\
    \\n\
    \\n\
    \\ETX\ENQ\STX\SOH\DC2\ETX7\ENQ\"\n\
    \U\n\
    \\EOT\ENQ\STX\STX\NUL\DC2\ETX9\EOT\DLE\SUBH Do not request cancellation of the child workflow if already scheduled\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\NUL\SOH\DC2\ETX9\EOT\v\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\NUL\STX\DC2\ETX9\SO\SI\n\
    \a\n\
    \\EOT\ENQ\STX\STX\SOH\DC2\ETX;\EOT\DC3\SUBT Initiate a cancellation request and immediately report cancellation to the parent.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\SOH\SOH\DC2\ETX;\EOT\SO\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\SOH\STX\DC2\ETX;\DC1\DC2\n\
    \6\n\
    \\EOT\ENQ\STX\STX\STX\DC2\ETX=\EOT$\SUB) Wait for child cancellation completion.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\STX\SOH\DC2\ETX=\EOT\US\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\STX\STX\DC2\ETX=\"#\n\
    \i\n\
    \\EOT\ENQ\STX\STX\ETX\DC2\ETX?\EOT$\SUB\\ Request cancellation of the child and wait for confirmation that the request was received.\n\
    \\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\ETX\SOH\DC2\ETX?\EOT\US\n\
    \\f\n\
    \\ENQ\ENQ\STX\STX\ETX\STX\DC2\ETX?\"#b\ACKproto3"