{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Temporal.Api.Failure.V1.Message (
ActivityFailureInfo(), ApplicationFailureInfo(),
CanceledFailureInfo(), ChildWorkflowExecutionFailureInfo(),
Failure(), Failure'FailureInfo(..),
_Failure'ApplicationFailureInfo, _Failure'TimeoutFailureInfo,
_Failure'CanceledFailureInfo, _Failure'TerminatedFailureInfo,
_Failure'ServerFailureInfo, _Failure'ResetWorkflowFailureInfo,
_Failure'ActivityFailureInfo,
_Failure'ChildWorkflowExecutionFailureInfo,
_Failure'NexusOperationExecutionFailureInfo,
MultiOperationExecutionAborted(), NexusOperationFailureInfo(),
ResetWorkflowFailureInfo(), ServerFailureInfo(),
TerminatedFailureInfo(), TimeoutFailureInfo()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Duration
import qualified Proto.Temporal.Api.Common.V1.Message
import qualified Proto.Temporal.Api.Enums.V1.Workflow
data ActivityFailureInfo
= ActivityFailureInfo'_constructor {ActivityFailureInfo -> Int64
_ActivityFailureInfo'scheduledEventId :: !Data.Int.Int64,
ActivityFailureInfo -> Int64
_ActivityFailureInfo'startedEventId :: !Data.Int.Int64,
ActivityFailureInfo -> Text
_ActivityFailureInfo'identity :: !Data.Text.Text,
ActivityFailureInfo -> Maybe ActivityType
_ActivityFailureInfo'activityType :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.ActivityType),
ActivityFailureInfo -> Text
_ActivityFailureInfo'activityId :: !Data.Text.Text,
ActivityFailureInfo -> RetryState
_ActivityFailureInfo'retryState :: !Proto.Temporal.Api.Enums.V1.Workflow.RetryState,
ActivityFailureInfo -> FieldSet
_ActivityFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ActivityFailureInfo -> ActivityFailureInfo -> Bool
(ActivityFailureInfo -> ActivityFailureInfo -> Bool)
-> (ActivityFailureInfo -> ActivityFailureInfo -> Bool)
-> Eq ActivityFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
== :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
$c/= :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
/= :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
Prelude.Eq, Eq ActivityFailureInfo
Eq ActivityFailureInfo =>
(ActivityFailureInfo -> ActivityFailureInfo -> Ordering)
-> (ActivityFailureInfo -> ActivityFailureInfo -> Bool)
-> (ActivityFailureInfo -> ActivityFailureInfo -> Bool)
-> (ActivityFailureInfo -> ActivityFailureInfo -> Bool)
-> (ActivityFailureInfo -> ActivityFailureInfo -> Bool)
-> (ActivityFailureInfo
-> ActivityFailureInfo -> ActivityFailureInfo)
-> (ActivityFailureInfo
-> ActivityFailureInfo -> ActivityFailureInfo)
-> Ord ActivityFailureInfo
ActivityFailureInfo -> ActivityFailureInfo -> Bool
ActivityFailureInfo -> ActivityFailureInfo -> Ordering
ActivityFailureInfo -> ActivityFailureInfo -> ActivityFailureInfo
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 :: ActivityFailureInfo -> ActivityFailureInfo -> Ordering
compare :: ActivityFailureInfo -> ActivityFailureInfo -> Ordering
$c< :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
< :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
$c<= :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
<= :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
$c> :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
> :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
$c>= :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
>= :: ActivityFailureInfo -> ActivityFailureInfo -> Bool
$cmax :: ActivityFailureInfo -> ActivityFailureInfo -> ActivityFailureInfo
max :: ActivityFailureInfo -> ActivityFailureInfo -> ActivityFailureInfo
$cmin :: ActivityFailureInfo -> ActivityFailureInfo -> ActivityFailureInfo
min :: ActivityFailureInfo -> ActivityFailureInfo -> ActivityFailureInfo
Prelude.Ord)
instance Prelude.Show ActivityFailureInfo where
showsPrec :: Int -> ActivityFailureInfo -> ShowS
showsPrec Int
_ ActivityFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ActivityFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ActivityFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ActivityFailureInfo "scheduledEventId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduledEventId"
-> (Int64 -> f Int64)
-> ActivityFailureInfo
-> f ActivityFailureInfo
fieldOf Proxy# "scheduledEventId"
_
= ((Int64 -> f Int64)
-> ActivityFailureInfo -> f ActivityFailureInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ActivityFailureInfo
-> f ActivityFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityFailureInfo -> Int64)
-> (ActivityFailureInfo -> Int64 -> ActivityFailureInfo)
-> Lens ActivityFailureInfo ActivityFailureInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> Int64
_ActivityFailureInfo'scheduledEventId
(\ ActivityFailureInfo
x__ Int64
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'scheduledEventId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityFailureInfo "startedEventId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startedEventId"
-> (Int64 -> f Int64)
-> ActivityFailureInfo
-> f ActivityFailureInfo
fieldOf Proxy# "startedEventId"
_
= ((Int64 -> f Int64)
-> ActivityFailureInfo -> f ActivityFailureInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ActivityFailureInfo
-> f ActivityFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityFailureInfo -> Int64)
-> (ActivityFailureInfo -> Int64 -> ActivityFailureInfo)
-> Lens ActivityFailureInfo ActivityFailureInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> Int64
_ActivityFailureInfo'startedEventId
(\ ActivityFailureInfo
x__ Int64
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'startedEventId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityFailureInfo "identity" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "identity"
-> (Text -> f Text) -> ActivityFailureInfo -> f ActivityFailureInfo
fieldOf Proxy# "identity"
_
= ((Text -> f Text) -> ActivityFailureInfo -> f ActivityFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ActivityFailureInfo
-> f ActivityFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityFailureInfo -> Text)
-> (ActivityFailureInfo -> Text -> ActivityFailureInfo)
-> Lens ActivityFailureInfo ActivityFailureInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> Text
_ActivityFailureInfo'identity
(\ ActivityFailureInfo
x__ Text
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'identity = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityFailureInfo "activityType" Proto.Temporal.Api.Common.V1.Message.ActivityType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activityType"
-> (ActivityType -> f ActivityType)
-> ActivityFailureInfo
-> f ActivityFailureInfo
fieldOf Proxy# "activityType"
_
= ((Maybe ActivityType -> f (Maybe ActivityType))
-> ActivityFailureInfo -> f ActivityFailureInfo)
-> ((ActivityType -> f ActivityType)
-> Maybe ActivityType -> f (Maybe ActivityType))
-> (ActivityType -> f ActivityType)
-> ActivityFailureInfo
-> f ActivityFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityFailureInfo -> Maybe ActivityType)
-> (ActivityFailureInfo
-> Maybe ActivityType -> ActivityFailureInfo)
-> Lens
ActivityFailureInfo
ActivityFailureInfo
(Maybe ActivityType)
(Maybe ActivityType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> Maybe ActivityType
_ActivityFailureInfo'activityType
(\ ActivityFailureInfo
x__ Maybe ActivityType
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'activityType = y__}))
(ActivityType -> Lens' (Maybe ActivityType) ActivityType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ActivityType
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ActivityFailureInfo "maybe'activityType" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.ActivityType) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'activityType"
-> (Maybe ActivityType -> f (Maybe ActivityType))
-> ActivityFailureInfo
-> f ActivityFailureInfo
fieldOf Proxy# "maybe'activityType"
_
= ((Maybe ActivityType -> f (Maybe ActivityType))
-> ActivityFailureInfo -> f ActivityFailureInfo)
-> ((Maybe ActivityType -> f (Maybe ActivityType))
-> Maybe ActivityType -> f (Maybe ActivityType))
-> (Maybe ActivityType -> f (Maybe ActivityType))
-> ActivityFailureInfo
-> f ActivityFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityFailureInfo -> Maybe ActivityType)
-> (ActivityFailureInfo
-> Maybe ActivityType -> ActivityFailureInfo)
-> Lens
ActivityFailureInfo
ActivityFailureInfo
(Maybe ActivityType)
(Maybe ActivityType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> Maybe ActivityType
_ActivityFailureInfo'activityType
(\ ActivityFailureInfo
x__ Maybe ActivityType
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'activityType = y__}))
(Maybe ActivityType -> f (Maybe ActivityType))
-> Maybe ActivityType -> f (Maybe ActivityType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityFailureInfo "activityId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activityId"
-> (Text -> f Text) -> ActivityFailureInfo -> f ActivityFailureInfo
fieldOf Proxy# "activityId"
_
= ((Text -> f Text) -> ActivityFailureInfo -> f ActivityFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ActivityFailureInfo
-> f ActivityFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityFailureInfo -> Text)
-> (ActivityFailureInfo -> Text -> ActivityFailureInfo)
-> Lens ActivityFailureInfo ActivityFailureInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> Text
_ActivityFailureInfo'activityId
(\ ActivityFailureInfo
x__ Text
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'activityId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ActivityFailureInfo "retryState" Proto.Temporal.Api.Enums.V1.Workflow.RetryState where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "retryState"
-> (RetryState -> f RetryState)
-> ActivityFailureInfo
-> f ActivityFailureInfo
fieldOf Proxy# "retryState"
_
= ((RetryState -> f RetryState)
-> ActivityFailureInfo -> f ActivityFailureInfo)
-> ((RetryState -> f RetryState) -> RetryState -> f RetryState)
-> (RetryState -> f RetryState)
-> ActivityFailureInfo
-> f ActivityFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ActivityFailureInfo -> RetryState)
-> (ActivityFailureInfo -> RetryState -> ActivityFailureInfo)
-> Lens
ActivityFailureInfo ActivityFailureInfo RetryState RetryState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> RetryState
_ActivityFailureInfo'retryState
(\ ActivityFailureInfo
x__ RetryState
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'retryState = y__}))
(RetryState -> f RetryState) -> RetryState -> f RetryState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ActivityFailureInfo where
messageName :: Proxy ActivityFailureInfo -> Text
messageName Proxy ActivityFailureInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.failure.v1.ActivityFailureInfo"
packedMessageDescriptor :: Proxy ActivityFailureInfo -> ByteString
packedMessageDescriptor Proxy ActivityFailureInfo
_
= ByteString
"\n\
\\DC3ActivityFailureInfo\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId\DC2(\n\
\\DLEstarted_event_id\CAN\STX \SOH(\ETXR\SOstartedEventId\DC2\SUB\n\
\\bidentity\CAN\ETX \SOH(\tR\bidentity\DC2I\n\
\\ractivity_type\CAN\EOT \SOH(\v2$.temporal.api.common.v1.ActivityTypeR\factivityType\DC2\US\n\
\\vactivity_id\CAN\ENQ \SOH(\tR\n\
\activityId\DC2B\n\
\\vretry_state\CAN\ACK \SOH(\SO2!.temporal.api.enums.v1.RetryStateR\n\
\retryState"
packedFileDescriptor :: Proxy ActivityFailureInfo -> ByteString
packedFileDescriptor Proxy ActivityFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ActivityFailureInfo)
fieldsByTag
= let
scheduledEventId__field_descriptor :: FieldDescriptor ActivityFailureInfo
scheduledEventId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ActivityFailureInfo Int64
-> FieldDescriptor ActivityFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"scheduled_event_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens ActivityFailureInfo ActivityFailureInfo Int64 Int64
-> FieldAccessor ActivityFailureInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledEventId")) ::
Data.ProtoLens.FieldDescriptor ActivityFailureInfo
startedEventId__field_descriptor :: FieldDescriptor ActivityFailureInfo
startedEventId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ActivityFailureInfo Int64
-> FieldDescriptor ActivityFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"started_event_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens ActivityFailureInfo ActivityFailureInfo Int64 Int64
-> FieldAccessor ActivityFailureInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startedEventId")) ::
Data.ProtoLens.FieldDescriptor ActivityFailureInfo
identity__field_descriptor :: FieldDescriptor ActivityFailureInfo
identity__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ActivityFailureInfo Text
-> FieldDescriptor ActivityFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"identity"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens ActivityFailureInfo ActivityFailureInfo Text Text
-> FieldAccessor ActivityFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"identity")) ::
Data.ProtoLens.FieldDescriptor ActivityFailureInfo
activityType__field_descriptor :: FieldDescriptor ActivityFailureInfo
activityType__field_descriptor
= String
-> FieldTypeDescriptor ActivityType
-> FieldAccessor ActivityFailureInfo ActivityType
-> FieldDescriptor ActivityFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"activity_type"
(MessageOrGroup -> FieldTypeDescriptor ActivityType
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.ActivityType)
(Lens
ActivityFailureInfo
ActivityFailureInfo
(Maybe ActivityType)
(Maybe ActivityType)
-> FieldAccessor ActivityFailureInfo ActivityType
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'activityType")) ::
Data.ProtoLens.FieldDescriptor ActivityFailureInfo
activityId__field_descriptor :: FieldDescriptor ActivityFailureInfo
activityId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ActivityFailureInfo Text
-> FieldDescriptor ActivityFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"activity_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens ActivityFailureInfo ActivityFailureInfo Text Text
-> FieldAccessor ActivityFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"activityId")) ::
Data.ProtoLens.FieldDescriptor ActivityFailureInfo
retryState__field_descriptor :: FieldDescriptor ActivityFailureInfo
retryState__field_descriptor
= String
-> FieldTypeDescriptor RetryState
-> FieldAccessor ActivityFailureInfo RetryState
-> FieldDescriptor ActivityFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"retry_state"
(ScalarField RetryState -> FieldTypeDescriptor RetryState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField RetryState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Workflow.RetryState)
(WireDefault RetryState
-> Lens
ActivityFailureInfo ActivityFailureInfo RetryState RetryState
-> FieldAccessor ActivityFailureInfo RetryState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault RetryState
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"retryState")) ::
Data.ProtoLens.FieldDescriptor ActivityFailureInfo
in
[(Tag, FieldDescriptor ActivityFailureInfo)]
-> Map Tag (FieldDescriptor ActivityFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ActivityFailureInfo
scheduledEventId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ActivityFailureInfo
startedEventId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ActivityFailureInfo
identity__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ActivityFailureInfo
activityType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ActivityFailureInfo
activityId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ActivityFailureInfo
retryState__field_descriptor)]
unknownFields :: Lens' ActivityFailureInfo FieldSet
unknownFields
= (ActivityFailureInfo -> FieldSet)
-> (ActivityFailureInfo -> FieldSet -> ActivityFailureInfo)
-> Lens' ActivityFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ActivityFailureInfo -> FieldSet
_ActivityFailureInfo'_unknownFields
(\ ActivityFailureInfo
x__ FieldSet
y__ -> ActivityFailureInfo
x__ {_ActivityFailureInfo'_unknownFields = y__})
defMessage :: ActivityFailureInfo
defMessage
= ActivityFailureInfo'_constructor
{_ActivityFailureInfo'scheduledEventId :: Int64
_ActivityFailureInfo'scheduledEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ActivityFailureInfo'startedEventId :: Int64
_ActivityFailureInfo'startedEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ActivityFailureInfo'identity :: Text
_ActivityFailureInfo'identity = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ActivityFailureInfo'activityType :: Maybe ActivityType
_ActivityFailureInfo'activityType = Maybe ActivityType
forall a. Maybe a
Prelude.Nothing,
_ActivityFailureInfo'activityId :: Text
_ActivityFailureInfo'activityId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ActivityFailureInfo'retryState :: RetryState
_ActivityFailureInfo'retryState = RetryState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ActivityFailureInfo'_unknownFields :: FieldSet
_ActivityFailureInfo'_unknownFields = []}
parseMessage :: Parser ActivityFailureInfo
parseMessage
= let
loop ::
ActivityFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser ActivityFailureInfo
loop :: ActivityFailureInfo -> Parser ActivityFailureInfo
loop ActivityFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"scheduled_event_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduledEventId") y x)
Word64
16
-> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"started_event_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"startedEventId") y x)
Word64
26
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"identity"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"identity") y x)
Word64
34
-> do y <- Parser ActivityType -> String -> Parser ActivityType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"activity_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"activityType") y x)
Word64
42
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"activity_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"activityId") y x)
Word64
48
-> do y <- Parser RetryState -> String -> Parser RetryState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> RetryState) -> Parser Int -> Parser RetryState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> RetryState
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"retry_state"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"retryState") 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 ActivityFailureInfo -> String -> Parser ActivityFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ActivityFailureInfo -> Parser ActivityFailureInfo
loop ActivityFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ActivityFailureInfo"
buildMessage :: ActivityFailureInfo -> Builder
buildMessage
= \ ActivityFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 ActivityFailureInfo ActivityFailureInfo Int64 Int64
-> ActivityFailureInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledEventId") ActivityFailureInfo
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 ActivityFailureInfo ActivityFailureInfo Int64 Int64
-> ActivityFailureInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startedEventId") ActivityFailureInfo
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text ActivityFailureInfo ActivityFailureInfo Text Text
-> ActivityFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"identity") ActivityFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe ActivityType)
ActivityFailureInfo
ActivityFailureInfo
(Maybe ActivityType)
(Maybe ActivityType)
-> ActivityFailureInfo -> Maybe ActivityType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'activityType") ActivityFailureInfo
_x
of
Maybe ActivityType
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just ActivityType
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (ActivityType -> ByteString) -> ActivityType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
ActivityType -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ActivityType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text ActivityFailureInfo ActivityFailureInfo Text Text
-> ActivityFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"activityId") ActivityFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: RetryState
_v
= FoldLike
RetryState
ActivityFailureInfo
ActivityFailureInfo
RetryState
RetryState
-> ActivityFailureInfo -> RetryState
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 @"retryState") ActivityFailureInfo
_x
in
if RetryState -> RetryState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) RetryState
_v RetryState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
((Int -> Builder) -> (RetryState -> Int) -> RetryState -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
RetryState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum RetryState
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet ActivityFailureInfo ActivityFailureInfo FieldSet FieldSet
-> ActivityFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ActivityFailureInfo ActivityFailureInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ActivityFailureInfo FieldSet
Data.ProtoLens.unknownFields ActivityFailureInfo
_x)))))))
instance Control.DeepSeq.NFData ActivityFailureInfo where
rnf :: ActivityFailureInfo -> ()
rnf
= \ ActivityFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityFailureInfo -> FieldSet
_ActivityFailureInfo'_unknownFields ActivityFailureInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityFailureInfo -> Int64
_ActivityFailureInfo'scheduledEventId ActivityFailureInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityFailureInfo -> Int64
_ActivityFailureInfo'startedEventId ActivityFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityFailureInfo -> Text
_ActivityFailureInfo'identity ActivityFailureInfo
x__)
(Maybe ActivityType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityFailureInfo -> Maybe ActivityType
_ActivityFailureInfo'activityType ActivityFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityFailureInfo -> Text
_ActivityFailureInfo'activityId ActivityFailureInfo
x__)
(RetryState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ActivityFailureInfo -> RetryState
_ActivityFailureInfo'retryState ActivityFailureInfo
x__) ()))))))
data ApplicationFailureInfo
= ApplicationFailureInfo'_constructor {ApplicationFailureInfo -> Text
_ApplicationFailureInfo'type' :: !Data.Text.Text,
ApplicationFailureInfo -> Bool
_ApplicationFailureInfo'nonRetryable :: !Prelude.Bool,
ApplicationFailureInfo -> Maybe Payloads
_ApplicationFailureInfo'details :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
ApplicationFailureInfo -> Maybe Duration
_ApplicationFailureInfo'nextRetryDelay :: !(Prelude.Maybe Proto.Google.Protobuf.Duration.Duration),
ApplicationFailureInfo -> FieldSet
_ApplicationFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
(ApplicationFailureInfo -> ApplicationFailureInfo -> Bool)
-> (ApplicationFailureInfo -> ApplicationFailureInfo -> Bool)
-> Eq ApplicationFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
== :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
$c/= :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
/= :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
Prelude.Eq, Eq ApplicationFailureInfo
Eq ApplicationFailureInfo =>
(ApplicationFailureInfo -> ApplicationFailureInfo -> Ordering)
-> (ApplicationFailureInfo -> ApplicationFailureInfo -> Bool)
-> (ApplicationFailureInfo -> ApplicationFailureInfo -> Bool)
-> (ApplicationFailureInfo -> ApplicationFailureInfo -> Bool)
-> (ApplicationFailureInfo -> ApplicationFailureInfo -> Bool)
-> (ApplicationFailureInfo
-> ApplicationFailureInfo -> ApplicationFailureInfo)
-> (ApplicationFailureInfo
-> ApplicationFailureInfo -> ApplicationFailureInfo)
-> Ord ApplicationFailureInfo
ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
ApplicationFailureInfo -> ApplicationFailureInfo -> Ordering
ApplicationFailureInfo
-> ApplicationFailureInfo -> ApplicationFailureInfo
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 :: ApplicationFailureInfo -> ApplicationFailureInfo -> Ordering
compare :: ApplicationFailureInfo -> ApplicationFailureInfo -> Ordering
$c< :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
< :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
$c<= :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
<= :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
$c> :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
> :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
$c>= :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
>= :: ApplicationFailureInfo -> ApplicationFailureInfo -> Bool
$cmax :: ApplicationFailureInfo
-> ApplicationFailureInfo -> ApplicationFailureInfo
max :: ApplicationFailureInfo
-> ApplicationFailureInfo -> ApplicationFailureInfo
$cmin :: ApplicationFailureInfo
-> ApplicationFailureInfo -> ApplicationFailureInfo
min :: ApplicationFailureInfo
-> ApplicationFailureInfo -> ApplicationFailureInfo
Prelude.Ord)
instance Prelude.Show ApplicationFailureInfo where
showsPrec :: Int -> ApplicationFailureInfo -> ShowS
showsPrec Int
_ ApplicationFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ApplicationFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ApplicationFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ApplicationFailureInfo "type'" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "type'"
-> (Text -> f Text)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
fieldOf Proxy# "type'"
_
= ((Text -> f Text)
-> ApplicationFailureInfo -> f ApplicationFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ApplicationFailureInfo -> Text)
-> (ApplicationFailureInfo -> Text -> ApplicationFailureInfo)
-> Lens ApplicationFailureInfo ApplicationFailureInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ApplicationFailureInfo -> Text
_ApplicationFailureInfo'type'
(\ ApplicationFailureInfo
x__ Text
y__ -> ApplicationFailureInfo
x__ {_ApplicationFailureInfo'type' = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ApplicationFailureInfo "nonRetryable" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nonRetryable"
-> (Bool -> f Bool)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
fieldOf Proxy# "nonRetryable"
_
= ((Bool -> f Bool)
-> ApplicationFailureInfo -> f ApplicationFailureInfo)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ApplicationFailureInfo -> Bool)
-> (ApplicationFailureInfo -> Bool -> ApplicationFailureInfo)
-> Lens ApplicationFailureInfo ApplicationFailureInfo Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ApplicationFailureInfo -> Bool
_ApplicationFailureInfo'nonRetryable
(\ ApplicationFailureInfo
x__ Bool
y__ -> ApplicationFailureInfo
x__ {_ApplicationFailureInfo'nonRetryable = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ApplicationFailureInfo "details" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details"
-> (Payloads -> f Payloads)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
fieldOf Proxy# "details"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ApplicationFailureInfo -> f ApplicationFailureInfo)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ApplicationFailureInfo -> Maybe Payloads)
-> (ApplicationFailureInfo
-> Maybe Payloads -> ApplicationFailureInfo)
-> Lens
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ApplicationFailureInfo -> Maybe Payloads
_ApplicationFailureInfo'details
(\ ApplicationFailureInfo
x__ Maybe Payloads
y__ -> ApplicationFailureInfo
x__ {_ApplicationFailureInfo'details = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ApplicationFailureInfo "maybe'details" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'details"
-> (Maybe Payloads -> f (Maybe Payloads))
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
fieldOf Proxy# "maybe'details"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ApplicationFailureInfo -> f ApplicationFailureInfo)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ApplicationFailureInfo -> Maybe Payloads)
-> (ApplicationFailureInfo
-> Maybe Payloads -> ApplicationFailureInfo)
-> Lens
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ApplicationFailureInfo -> Maybe Payloads
_ApplicationFailureInfo'details
(\ ApplicationFailureInfo
x__ Maybe Payloads
y__ -> ApplicationFailureInfo
x__ {_ApplicationFailureInfo'details = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ApplicationFailureInfo "nextRetryDelay" Proto.Google.Protobuf.Duration.Duration where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nextRetryDelay"
-> (Duration -> f Duration)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
fieldOf Proxy# "nextRetryDelay"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ApplicationFailureInfo -> f ApplicationFailureInfo)
-> ((Duration -> f Duration)
-> Maybe Duration -> f (Maybe Duration))
-> (Duration -> f Duration)
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ApplicationFailureInfo -> Maybe Duration)
-> (ApplicationFailureInfo
-> Maybe Duration -> ApplicationFailureInfo)
-> Lens
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ApplicationFailureInfo -> Maybe Duration
_ApplicationFailureInfo'nextRetryDelay
(\ ApplicationFailureInfo
x__ Maybe Duration
y__ -> ApplicationFailureInfo
x__ {_ApplicationFailureInfo'nextRetryDelay = y__}))
(Duration -> Lens' (Maybe Duration) Duration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Duration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ApplicationFailureInfo "maybe'nextRetryDelay" (Prelude.Maybe Proto.Google.Protobuf.Duration.Duration) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nextRetryDelay"
-> (Maybe Duration -> f (Maybe Duration))
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
fieldOf Proxy# "maybe'nextRetryDelay"
_
= ((Maybe Duration -> f (Maybe Duration))
-> ApplicationFailureInfo -> f ApplicationFailureInfo)
-> ((Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration))
-> (Maybe Duration -> f (Maybe Duration))
-> ApplicationFailureInfo
-> f ApplicationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ApplicationFailureInfo -> Maybe Duration)
-> (ApplicationFailureInfo
-> Maybe Duration -> ApplicationFailureInfo)
-> Lens
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Duration)
(Maybe Duration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ApplicationFailureInfo -> Maybe Duration
_ApplicationFailureInfo'nextRetryDelay
(\ ApplicationFailureInfo
x__ Maybe Duration
y__ -> ApplicationFailureInfo
x__ {_ApplicationFailureInfo'nextRetryDelay = y__}))
(Maybe Duration -> f (Maybe Duration))
-> Maybe Duration -> f (Maybe Duration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ApplicationFailureInfo where
messageName :: Proxy ApplicationFailureInfo -> Text
messageName Proxy ApplicationFailureInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.failure.v1.ApplicationFailureInfo"
packedMessageDescriptor :: Proxy ApplicationFailureInfo -> ByteString
packedMessageDescriptor Proxy ApplicationFailureInfo
_
= ByteString
"\n\
\\SYNApplicationFailureInfo\DC2\DC2\n\
\\EOTtype\CAN\SOH \SOH(\tR\EOTtype\DC2#\n\
\\rnon_retryable\CAN\STX \SOH(\bR\fnonRetryable\DC2:\n\
\\adetails\CAN\ETX \SOH(\v2 .temporal.api.common.v1.PayloadsR\adetails\DC2C\n\
\\DLEnext_retry_delay\CAN\EOT \SOH(\v2\EM.google.protobuf.DurationR\SOnextRetryDelay"
packedFileDescriptor :: Proxy ApplicationFailureInfo -> ByteString
packedFileDescriptor Proxy ApplicationFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ApplicationFailureInfo)
fieldsByTag
= let
type'__field_descriptor :: FieldDescriptor ApplicationFailureInfo
type'__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ApplicationFailureInfo Text
-> FieldDescriptor ApplicationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"type"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens ApplicationFailureInfo ApplicationFailureInfo Text Text
-> FieldAccessor ApplicationFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'")) ::
Data.ProtoLens.FieldDescriptor ApplicationFailureInfo
nonRetryable__field_descriptor :: FieldDescriptor ApplicationFailureInfo
nonRetryable__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ApplicationFailureInfo Bool
-> FieldDescriptor ApplicationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"non_retryable"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens ApplicationFailureInfo ApplicationFailureInfo Bool Bool
-> FieldAccessor ApplicationFailureInfo Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nonRetryable")) ::
Data.ProtoLens.FieldDescriptor ApplicationFailureInfo
details__field_descriptor :: FieldDescriptor ApplicationFailureInfo
details__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor ApplicationFailureInfo Payloads
-> FieldDescriptor ApplicationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"details"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor ApplicationFailureInfo Payloads
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'details")) ::
Data.ProtoLens.FieldDescriptor ApplicationFailureInfo
nextRetryDelay__field_descriptor :: FieldDescriptor ApplicationFailureInfo
nextRetryDelay__field_descriptor
= String
-> FieldTypeDescriptor Duration
-> FieldAccessor ApplicationFailureInfo Duration
-> FieldDescriptor ApplicationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"next_retry_delay"
(MessageOrGroup -> FieldTypeDescriptor Duration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Duration.Duration)
(Lens
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Duration)
(Maybe Duration)
-> FieldAccessor ApplicationFailureInfo Duration
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nextRetryDelay")) ::
Data.ProtoLens.FieldDescriptor ApplicationFailureInfo
in
[(Tag, FieldDescriptor ApplicationFailureInfo)]
-> Map Tag (FieldDescriptor ApplicationFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ApplicationFailureInfo
type'__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ApplicationFailureInfo
nonRetryable__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ApplicationFailureInfo
details__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ApplicationFailureInfo
nextRetryDelay__field_descriptor)]
unknownFields :: Lens' ApplicationFailureInfo FieldSet
unknownFields
= (ApplicationFailureInfo -> FieldSet)
-> (ApplicationFailureInfo -> FieldSet -> ApplicationFailureInfo)
-> Lens' ApplicationFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ApplicationFailureInfo -> FieldSet
_ApplicationFailureInfo'_unknownFields
(\ ApplicationFailureInfo
x__ FieldSet
y__ -> ApplicationFailureInfo
x__ {_ApplicationFailureInfo'_unknownFields = y__})
defMessage :: ApplicationFailureInfo
defMessage
= ApplicationFailureInfo'_constructor
{_ApplicationFailureInfo'type' :: Text
_ApplicationFailureInfo'type' = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ApplicationFailureInfo'nonRetryable :: Bool
_ApplicationFailureInfo'nonRetryable = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ApplicationFailureInfo'details :: Maybe Payloads
_ApplicationFailureInfo'details = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_ApplicationFailureInfo'nextRetryDelay :: Maybe Duration
_ApplicationFailureInfo'nextRetryDelay = Maybe Duration
forall a. Maybe a
Prelude.Nothing,
_ApplicationFailureInfo'_unknownFields :: FieldSet
_ApplicationFailureInfo'_unknownFields = []}
parseMessage :: Parser ApplicationFailureInfo
parseMessage
= let
loop ::
ApplicationFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser ApplicationFailureInfo
loop :: ApplicationFailureInfo -> Parser ApplicationFailureInfo
loop ApplicationFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"type"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x)
Word64
16
-> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"non_retryable"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"nonRetryable") y x)
Word64
26
-> do y <- Parser Payloads -> String -> Parser Payloads
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"details"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"details") y x)
Word64
34
-> do y <- Parser Duration -> String -> Parser Duration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"next_retry_delay"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"nextRetryDelay") 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 ApplicationFailureInfo
-> String -> Parser ApplicationFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ApplicationFailureInfo -> Parser ApplicationFailureInfo
loop ApplicationFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ApplicationFailureInfo"
buildMessage :: ApplicationFailureInfo -> Builder
buildMessage
= \ ApplicationFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text ApplicationFailureInfo ApplicationFailureInfo Text Text
-> ApplicationFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") ApplicationFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool ApplicationFailureInfo ApplicationFailureInfo Bool Bool
-> ApplicationFailureInfo -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nonRetryable") ApplicationFailureInfo
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
16)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> ApplicationFailureInfo -> Maybe Payloads
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'details") ApplicationFailureInfo
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Duration)
ApplicationFailureInfo
ApplicationFailureInfo
(Maybe Duration)
(Maybe Duration)
-> ApplicationFailureInfo -> Maybe Duration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'nextRetryDelay") ApplicationFailureInfo
_x
of
Maybe Duration
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Duration
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder)
-> (Duration -> ByteString) -> Duration -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Duration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Duration
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ApplicationFailureInfo
ApplicationFailureInfo
FieldSet
FieldSet
-> ApplicationFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ApplicationFailureInfo
ApplicationFailureInfo
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ApplicationFailureInfo FieldSet
Data.ProtoLens.unknownFields ApplicationFailureInfo
_x)))))
instance Control.DeepSeq.NFData ApplicationFailureInfo where
rnf :: ApplicationFailureInfo -> ()
rnf
= \ ApplicationFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ApplicationFailureInfo -> FieldSet
_ApplicationFailureInfo'_unknownFields ApplicationFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ApplicationFailureInfo -> Text
_ApplicationFailureInfo'type' ApplicationFailureInfo
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ApplicationFailureInfo -> Bool
_ApplicationFailureInfo'nonRetryable ApplicationFailureInfo
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ApplicationFailureInfo -> Maybe Payloads
_ApplicationFailureInfo'details ApplicationFailureInfo
x__)
(Maybe Duration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ApplicationFailureInfo -> Maybe Duration
_ApplicationFailureInfo'nextRetryDelay ApplicationFailureInfo
x__) ()))))
data CanceledFailureInfo
= CanceledFailureInfo'_constructor {CanceledFailureInfo -> Maybe Payloads
_CanceledFailureInfo'details :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
CanceledFailureInfo -> FieldSet
_CanceledFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CanceledFailureInfo -> CanceledFailureInfo -> Bool
(CanceledFailureInfo -> CanceledFailureInfo -> Bool)
-> (CanceledFailureInfo -> CanceledFailureInfo -> Bool)
-> Eq CanceledFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
== :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
$c/= :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
/= :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
Prelude.Eq, Eq CanceledFailureInfo
Eq CanceledFailureInfo =>
(CanceledFailureInfo -> CanceledFailureInfo -> Ordering)
-> (CanceledFailureInfo -> CanceledFailureInfo -> Bool)
-> (CanceledFailureInfo -> CanceledFailureInfo -> Bool)
-> (CanceledFailureInfo -> CanceledFailureInfo -> Bool)
-> (CanceledFailureInfo -> CanceledFailureInfo -> Bool)
-> (CanceledFailureInfo
-> CanceledFailureInfo -> CanceledFailureInfo)
-> (CanceledFailureInfo
-> CanceledFailureInfo -> CanceledFailureInfo)
-> Ord CanceledFailureInfo
CanceledFailureInfo -> CanceledFailureInfo -> Bool
CanceledFailureInfo -> CanceledFailureInfo -> Ordering
CanceledFailureInfo -> CanceledFailureInfo -> CanceledFailureInfo
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 :: CanceledFailureInfo -> CanceledFailureInfo -> Ordering
compare :: CanceledFailureInfo -> CanceledFailureInfo -> Ordering
$c< :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
< :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
$c<= :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
<= :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
$c> :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
> :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
$c>= :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
>= :: CanceledFailureInfo -> CanceledFailureInfo -> Bool
$cmax :: CanceledFailureInfo -> CanceledFailureInfo -> CanceledFailureInfo
max :: CanceledFailureInfo -> CanceledFailureInfo -> CanceledFailureInfo
$cmin :: CanceledFailureInfo -> CanceledFailureInfo -> CanceledFailureInfo
min :: CanceledFailureInfo -> CanceledFailureInfo -> CanceledFailureInfo
Prelude.Ord)
instance Prelude.Show CanceledFailureInfo where
showsPrec :: Int -> CanceledFailureInfo -> ShowS
showsPrec Int
_ CanceledFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(CanceledFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CanceledFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CanceledFailureInfo "details" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "details"
-> (Payloads -> f Payloads)
-> CanceledFailureInfo
-> f CanceledFailureInfo
fieldOf Proxy# "details"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> CanceledFailureInfo -> f CanceledFailureInfo)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> CanceledFailureInfo
-> f CanceledFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CanceledFailureInfo -> Maybe Payloads)
-> (CanceledFailureInfo -> Maybe Payloads -> CanceledFailureInfo)
-> Lens
CanceledFailureInfo
CanceledFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CanceledFailureInfo -> Maybe Payloads
_CanceledFailureInfo'details
(\ CanceledFailureInfo
x__ Maybe Payloads
y__ -> CanceledFailureInfo
x__ {_CanceledFailureInfo'details = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CanceledFailureInfo "maybe'details" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'details"
-> (Maybe Payloads -> f (Maybe Payloads))
-> CanceledFailureInfo
-> f CanceledFailureInfo
fieldOf Proxy# "maybe'details"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> CanceledFailureInfo -> f CanceledFailureInfo)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> CanceledFailureInfo
-> f CanceledFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CanceledFailureInfo -> Maybe Payloads)
-> (CanceledFailureInfo -> Maybe Payloads -> CanceledFailureInfo)
-> Lens
CanceledFailureInfo
CanceledFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CanceledFailureInfo -> Maybe Payloads
_CanceledFailureInfo'details
(\ CanceledFailureInfo
x__ Maybe Payloads
y__ -> CanceledFailureInfo
x__ {_CanceledFailureInfo'details = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CanceledFailureInfo where
messageName :: Proxy CanceledFailureInfo -> Text
messageName Proxy CanceledFailureInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.failure.v1.CanceledFailureInfo"
packedMessageDescriptor :: Proxy CanceledFailureInfo -> ByteString
packedMessageDescriptor Proxy CanceledFailureInfo
_
= ByteString
"\n\
\\DC3CanceledFailureInfo\DC2:\n\
\\adetails\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\adetails"
packedFileDescriptor :: Proxy CanceledFailureInfo -> ByteString
packedFileDescriptor Proxy CanceledFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CanceledFailureInfo)
fieldsByTag
= let
details__field_descriptor :: FieldDescriptor CanceledFailureInfo
details__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor CanceledFailureInfo Payloads
-> FieldDescriptor CanceledFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"details"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
CanceledFailureInfo
CanceledFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor CanceledFailureInfo Payloads
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'details")) ::
Data.ProtoLens.FieldDescriptor CanceledFailureInfo
in
[(Tag, FieldDescriptor CanceledFailureInfo)]
-> Map Tag (FieldDescriptor CanceledFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CanceledFailureInfo
details__field_descriptor)]
unknownFields :: Lens' CanceledFailureInfo FieldSet
unknownFields
= (CanceledFailureInfo -> FieldSet)
-> (CanceledFailureInfo -> FieldSet -> CanceledFailureInfo)
-> Lens' CanceledFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CanceledFailureInfo -> FieldSet
_CanceledFailureInfo'_unknownFields
(\ CanceledFailureInfo
x__ FieldSet
y__ -> CanceledFailureInfo
x__ {_CanceledFailureInfo'_unknownFields = y__})
defMessage :: CanceledFailureInfo
defMessage
= CanceledFailureInfo'_constructor
{_CanceledFailureInfo'details :: Maybe Payloads
_CanceledFailureInfo'details = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_CanceledFailureInfo'_unknownFields :: FieldSet
_CanceledFailureInfo'_unknownFields = []}
parseMessage :: Parser CanceledFailureInfo
parseMessage
= let
loop ::
CanceledFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser CanceledFailureInfo
loop :: CanceledFailureInfo -> Parser CanceledFailureInfo
loop CanceledFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Payloads -> String -> Parser Payloads
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"details"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"details") y x)
Word64
wire
-> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
loop
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
in
Parser CanceledFailureInfo -> String -> Parser CanceledFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CanceledFailureInfo -> Parser CanceledFailureInfo
loop CanceledFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CanceledFailureInfo"
buildMessage :: CanceledFailureInfo -> Builder
buildMessage
= \ CanceledFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
CanceledFailureInfo
CanceledFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> CanceledFailureInfo -> Maybe Payloads
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'details") CanceledFailureInfo
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet CanceledFailureInfo CanceledFailureInfo FieldSet FieldSet
-> CanceledFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet CanceledFailureInfo CanceledFailureInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CanceledFailureInfo FieldSet
Data.ProtoLens.unknownFields CanceledFailureInfo
_x))
instance Control.DeepSeq.NFData CanceledFailureInfo where
rnf :: CanceledFailureInfo -> ()
rnf
= \ CanceledFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CanceledFailureInfo -> FieldSet
_CanceledFailureInfo'_unknownFields CanceledFailureInfo
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CanceledFailureInfo -> Maybe Payloads
_CanceledFailureInfo'details CanceledFailureInfo
x__) ())
data ChildWorkflowExecutionFailureInfo
= ChildWorkflowExecutionFailureInfo'_constructor {ChildWorkflowExecutionFailureInfo -> Text
_ChildWorkflowExecutionFailureInfo'namespace :: !Data.Text.Text,
ChildWorkflowExecutionFailureInfo -> Maybe WorkflowExecution
_ChildWorkflowExecutionFailureInfo'workflowExecution :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution),
ChildWorkflowExecutionFailureInfo -> Maybe WorkflowType
_ChildWorkflowExecutionFailureInfo'workflowType :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType),
ChildWorkflowExecutionFailureInfo -> Int64
_ChildWorkflowExecutionFailureInfo'initiatedEventId :: !Data.Int.Int64,
ChildWorkflowExecutionFailureInfo -> Int64
_ChildWorkflowExecutionFailureInfo'startedEventId :: !Data.Int.Int64,
ChildWorkflowExecutionFailureInfo -> RetryState
_ChildWorkflowExecutionFailureInfo'retryState :: !Proto.Temporal.Api.Enums.V1.Workflow.RetryState,
ChildWorkflowExecutionFailureInfo -> FieldSet
_ChildWorkflowExecutionFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
(ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool)
-> (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool)
-> Eq ChildWorkflowExecutionFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
== :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
$c/= :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
/= :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
Prelude.Eq, Eq ChildWorkflowExecutionFailureInfo
Eq ChildWorkflowExecutionFailureInfo =>
(ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Ordering)
-> (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool)
-> (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool)
-> (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool)
-> (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool)
-> (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo)
-> (ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo)
-> Ord ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Ordering
ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
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 :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Ordering
compare :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Ordering
$c< :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
< :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
$c<= :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
<= :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
$c> :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
> :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
$c>= :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
>= :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo -> Bool
$cmax :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
max :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
$cmin :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
min :: ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
-> ChildWorkflowExecutionFailureInfo
Prelude.Ord)
instance Prelude.Show ChildWorkflowExecutionFailureInfo where
showsPrec :: Int -> ChildWorkflowExecutionFailureInfo -> ShowS
showsPrec Int
_ ChildWorkflowExecutionFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ChildWorkflowExecutionFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ChildWorkflowExecutionFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "namespace" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namespace"
-> (Text -> f Text)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "namespace"
_
= ((Text -> f Text)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> Text)
-> (ChildWorkflowExecutionFailureInfo
-> Text -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> Text
_ChildWorkflowExecutionFailureInfo'namespace
(\ ChildWorkflowExecutionFailureInfo
x__ Text
y__
-> ChildWorkflowExecutionFailureInfo
x__ {_ChildWorkflowExecutionFailureInfo'namespace = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "workflowExecution" Proto.Temporal.Api.Common.V1.Message.WorkflowExecution where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowExecution"
-> (WorkflowExecution -> f WorkflowExecution)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "workflowExecution"
_
= ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((WorkflowExecution -> f WorkflowExecution)
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (WorkflowExecution -> f WorkflowExecution)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> Maybe WorkflowExecution)
-> (ChildWorkflowExecutionFailureInfo
-> Maybe WorkflowExecution -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> Maybe WorkflowExecution
_ChildWorkflowExecutionFailureInfo'workflowExecution
(\ ChildWorkflowExecutionFailureInfo
x__ Maybe WorkflowExecution
y__
-> ChildWorkflowExecutionFailureInfo
x__
{_ChildWorkflowExecutionFailureInfo'workflowExecution = y__}))
(WorkflowExecution
-> Lens' (Maybe WorkflowExecution) WorkflowExecution
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowExecution
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "maybe'workflowExecution" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowExecution) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowExecution"
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "maybe'workflowExecution"
_
= ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> (Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> Maybe WorkflowExecution)
-> (ChildWorkflowExecutionFailureInfo
-> Maybe WorkflowExecution -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> Maybe WorkflowExecution
_ChildWorkflowExecutionFailureInfo'workflowExecution
(\ ChildWorkflowExecutionFailureInfo
x__ Maybe WorkflowExecution
y__
-> ChildWorkflowExecutionFailureInfo
x__
{_ChildWorkflowExecutionFailureInfo'workflowExecution = y__}))
(Maybe WorkflowExecution -> f (Maybe WorkflowExecution))
-> Maybe WorkflowExecution -> f (Maybe WorkflowExecution)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "workflowType" Proto.Temporal.Api.Common.V1.Message.WorkflowType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "workflowType"
-> (WorkflowType -> f WorkflowType)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((WorkflowType -> f WorkflowType)
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (WorkflowType -> f WorkflowType)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> Maybe WorkflowType)
-> (ChildWorkflowExecutionFailureInfo
-> Maybe WorkflowType -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> Maybe WorkflowType
_ChildWorkflowExecutionFailureInfo'workflowType
(\ ChildWorkflowExecutionFailureInfo
x__ Maybe WorkflowType
y__
-> ChildWorkflowExecutionFailureInfo
x__ {_ChildWorkflowExecutionFailureInfo'workflowType = y__}))
(WorkflowType -> Lens' (Maybe WorkflowType) WorkflowType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WorkflowType
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "maybe'workflowType" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.WorkflowType) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'workflowType"
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "maybe'workflowType"
_
= ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType))
-> (Maybe WorkflowType -> f (Maybe WorkflowType))
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> Maybe WorkflowType)
-> (ChildWorkflowExecutionFailureInfo
-> Maybe WorkflowType -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> Maybe WorkflowType
_ChildWorkflowExecutionFailureInfo'workflowType
(\ ChildWorkflowExecutionFailureInfo
x__ Maybe WorkflowType
y__
-> ChildWorkflowExecutionFailureInfo
x__ {_ChildWorkflowExecutionFailureInfo'workflowType = y__}))
(Maybe WorkflowType -> f (Maybe WorkflowType))
-> Maybe WorkflowType -> f (Maybe WorkflowType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "initiatedEventId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "initiatedEventId"
-> (Int64 -> f Int64)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "initiatedEventId"
_
= ((Int64 -> f Int64)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> Int64)
-> (ChildWorkflowExecutionFailureInfo
-> Int64 -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Int64
Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> Int64
_ChildWorkflowExecutionFailureInfo'initiatedEventId
(\ ChildWorkflowExecutionFailureInfo
x__ Int64
y__
-> ChildWorkflowExecutionFailureInfo
x__
{_ChildWorkflowExecutionFailureInfo'initiatedEventId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "startedEventId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startedEventId"
-> (Int64 -> f Int64)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "startedEventId"
_
= ((Int64 -> f Int64)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> Int64)
-> (ChildWorkflowExecutionFailureInfo
-> Int64 -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Int64
Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> Int64
_ChildWorkflowExecutionFailureInfo'startedEventId
(\ ChildWorkflowExecutionFailureInfo
x__ Int64
y__
-> ChildWorkflowExecutionFailureInfo
x__ {_ChildWorkflowExecutionFailureInfo'startedEventId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ChildWorkflowExecutionFailureInfo "retryState" Proto.Temporal.Api.Enums.V1.Workflow.RetryState where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "retryState"
-> (RetryState -> f RetryState)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
fieldOf Proxy# "retryState"
_
= ((RetryState -> f RetryState)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> ((RetryState -> f RetryState) -> RetryState -> f RetryState)
-> (RetryState -> f RetryState)
-> ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ChildWorkflowExecutionFailureInfo -> RetryState)
-> (ChildWorkflowExecutionFailureInfo
-> RetryState -> ChildWorkflowExecutionFailureInfo)
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
RetryState
RetryState
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> RetryState
_ChildWorkflowExecutionFailureInfo'retryState
(\ ChildWorkflowExecutionFailureInfo
x__ RetryState
y__
-> ChildWorkflowExecutionFailureInfo
x__ {_ChildWorkflowExecutionFailureInfo'retryState = y__}))
(RetryState -> f RetryState) -> RetryState -> f RetryState
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ChildWorkflowExecutionFailureInfo where
messageName :: Proxy ChildWorkflowExecutionFailureInfo -> Text
messageName Proxy ChildWorkflowExecutionFailureInfo
_
= String -> Text
Data.Text.pack
String
"temporal.api.failure.v1.ChildWorkflowExecutionFailureInfo"
packedMessageDescriptor :: Proxy ChildWorkflowExecutionFailureInfo -> ByteString
packedMessageDescriptor Proxy ChildWorkflowExecutionFailureInfo
_
= ByteString
"\n\
\!ChildWorkflowExecutionFailureInfo\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2X\n\
\\DC2workflow_execution\CAN\STX \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2I\n\
\\rworkflow_type\CAN\ETX \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2,\n\
\\DC2initiated_event_id\CAN\EOT \SOH(\ETXR\DLEinitiatedEventId\DC2(\n\
\\DLEstarted_event_id\CAN\ENQ \SOH(\ETXR\SOstartedEventId\DC2B\n\
\\vretry_state\CAN\ACK \SOH(\SO2!.temporal.api.enums.v1.RetryStateR\n\
\retryState"
packedFileDescriptor :: Proxy ChildWorkflowExecutionFailureInfo -> ByteString
packedFileDescriptor Proxy ChildWorkflowExecutionFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ChildWorkflowExecutionFailureInfo)
fieldsByTag
= let
namespace__field_descriptor :: FieldDescriptor ChildWorkflowExecutionFailureInfo
namespace__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ChildWorkflowExecutionFailureInfo Text
-> FieldDescriptor ChildWorkflowExecutionFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"namespace"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Text
Text
-> FieldAccessor ChildWorkflowExecutionFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namespace")) ::
Data.ProtoLens.FieldDescriptor ChildWorkflowExecutionFailureInfo
workflowExecution__field_descriptor :: FieldDescriptor ChildWorkflowExecutionFailureInfo
workflowExecution__field_descriptor
= String
-> FieldTypeDescriptor WorkflowExecution
-> FieldAccessor
ChildWorkflowExecutionFailureInfo WorkflowExecution
-> FieldDescriptor ChildWorkflowExecutionFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_execution"
(MessageOrGroup -> FieldTypeDescriptor WorkflowExecution
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowExecution)
(Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
-> FieldAccessor
ChildWorkflowExecutionFailureInfo WorkflowExecution
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workflowExecution")) ::
Data.ProtoLens.FieldDescriptor ChildWorkflowExecutionFailureInfo
workflowType__field_descriptor :: FieldDescriptor ChildWorkflowExecutionFailureInfo
workflowType__field_descriptor
= String
-> FieldTypeDescriptor WorkflowType
-> FieldAccessor ChildWorkflowExecutionFailureInfo WorkflowType
-> FieldDescriptor ChildWorkflowExecutionFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"workflow_type"
(MessageOrGroup -> FieldTypeDescriptor WorkflowType
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.WorkflowType)
(Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
-> FieldAccessor ChildWorkflowExecutionFailureInfo WorkflowType
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workflowType")) ::
Data.ProtoLens.FieldDescriptor ChildWorkflowExecutionFailureInfo
initiatedEventId__field_descriptor :: FieldDescriptor ChildWorkflowExecutionFailureInfo
initiatedEventId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ChildWorkflowExecutionFailureInfo Int64
-> FieldDescriptor ChildWorkflowExecutionFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"initiated_event_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Int64
Int64
-> FieldAccessor ChildWorkflowExecutionFailureInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"initiatedEventId")) ::
Data.ProtoLens.FieldDescriptor ChildWorkflowExecutionFailureInfo
startedEventId__field_descriptor :: FieldDescriptor ChildWorkflowExecutionFailureInfo
startedEventId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor ChildWorkflowExecutionFailureInfo Int64
-> FieldDescriptor ChildWorkflowExecutionFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"started_event_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Int64
Int64
-> FieldAccessor ChildWorkflowExecutionFailureInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startedEventId")) ::
Data.ProtoLens.FieldDescriptor ChildWorkflowExecutionFailureInfo
retryState__field_descriptor :: FieldDescriptor ChildWorkflowExecutionFailureInfo
retryState__field_descriptor
= String
-> FieldTypeDescriptor RetryState
-> FieldAccessor ChildWorkflowExecutionFailureInfo RetryState
-> FieldDescriptor ChildWorkflowExecutionFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"retry_state"
(ScalarField RetryState -> FieldTypeDescriptor RetryState
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField RetryState
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Workflow.RetryState)
(WireDefault RetryState
-> Lens
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
RetryState
RetryState
-> FieldAccessor ChildWorkflowExecutionFailureInfo RetryState
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault RetryState
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"retryState")) ::
Data.ProtoLens.FieldDescriptor ChildWorkflowExecutionFailureInfo
in
[(Tag, FieldDescriptor ChildWorkflowExecutionFailureInfo)]
-> Map Tag (FieldDescriptor ChildWorkflowExecutionFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ChildWorkflowExecutionFailureInfo
namespace__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ChildWorkflowExecutionFailureInfo
workflowExecution__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ChildWorkflowExecutionFailureInfo
workflowType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ChildWorkflowExecutionFailureInfo
initiatedEventId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ChildWorkflowExecutionFailureInfo
startedEventId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ChildWorkflowExecutionFailureInfo
retryState__field_descriptor)]
unknownFields :: Lens' ChildWorkflowExecutionFailureInfo FieldSet
unknownFields
= (ChildWorkflowExecutionFailureInfo -> FieldSet)
-> (ChildWorkflowExecutionFailureInfo
-> FieldSet -> ChildWorkflowExecutionFailureInfo)
-> Lens' ChildWorkflowExecutionFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ChildWorkflowExecutionFailureInfo -> FieldSet
_ChildWorkflowExecutionFailureInfo'_unknownFields
(\ ChildWorkflowExecutionFailureInfo
x__ FieldSet
y__
-> ChildWorkflowExecutionFailureInfo
x__ {_ChildWorkflowExecutionFailureInfo'_unknownFields = y__})
defMessage :: ChildWorkflowExecutionFailureInfo
defMessage
= ChildWorkflowExecutionFailureInfo'_constructor
{_ChildWorkflowExecutionFailureInfo'namespace :: Text
_ChildWorkflowExecutionFailureInfo'namespace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChildWorkflowExecutionFailureInfo'workflowExecution :: Maybe WorkflowExecution
_ChildWorkflowExecutionFailureInfo'workflowExecution = Maybe WorkflowExecution
forall a. Maybe a
Prelude.Nothing,
_ChildWorkflowExecutionFailureInfo'workflowType :: Maybe WorkflowType
_ChildWorkflowExecutionFailureInfo'workflowType = Maybe WorkflowType
forall a. Maybe a
Prelude.Nothing,
_ChildWorkflowExecutionFailureInfo'initiatedEventId :: Int64
_ChildWorkflowExecutionFailureInfo'initiatedEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChildWorkflowExecutionFailureInfo'startedEventId :: Int64
_ChildWorkflowExecutionFailureInfo'startedEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChildWorkflowExecutionFailureInfo'retryState :: RetryState
_ChildWorkflowExecutionFailureInfo'retryState = RetryState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ChildWorkflowExecutionFailureInfo'_unknownFields :: FieldSet
_ChildWorkflowExecutionFailureInfo'_unknownFields = []}
parseMessage :: Parser ChildWorkflowExecutionFailureInfo
parseMessage
= let
loop ::
ChildWorkflowExecutionFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser ChildWorkflowExecutionFailureInfo
loop :: ChildWorkflowExecutionFailureInfo
-> Parser ChildWorkflowExecutionFailureInfo
loop ChildWorkflowExecutionFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"namespace"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"namespace") y x)
Word64
18
-> do y <- Parser WorkflowExecution -> String -> Parser WorkflowExecution
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"workflow_execution"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowExecution") y x)
Word64
26
-> do y <- Parser WorkflowType -> String -> Parser WorkflowType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"workflow_type"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"workflowType") y x)
Word64
32
-> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"initiated_event_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"initiatedEventId") y x)
Word64
40
-> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"started_event_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"startedEventId") y x)
Word64
48
-> do y <- Parser RetryState -> String -> Parser RetryState
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> RetryState) -> Parser Int -> Parser RetryState
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> RetryState
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"retry_state"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"retryState") 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 ChildWorkflowExecutionFailureInfo
-> String -> Parser ChildWorkflowExecutionFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ChildWorkflowExecutionFailureInfo
-> Parser ChildWorkflowExecutionFailureInfo
loop ChildWorkflowExecutionFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"ChildWorkflowExecutionFailureInfo"
buildMessage :: ChildWorkflowExecutionFailureInfo -> Builder
buildMessage
= \ ChildWorkflowExecutionFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Text
Text
-> ChildWorkflowExecutionFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namespace") ChildWorkflowExecutionFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WorkflowExecution)
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowExecution)
(Maybe WorkflowExecution)
-> ChildWorkflowExecutionFailureInfo -> Maybe WorkflowExecution
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workflowExecution") ChildWorkflowExecutionFailureInfo
_x
of
Maybe WorkflowExecution
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkflowExecution
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (WorkflowExecution -> ByteString)
-> WorkflowExecution
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
WorkflowExecution -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowExecution
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe WorkflowType)
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
(Maybe WorkflowType)
(Maybe WorkflowType)
-> ChildWorkflowExecutionFailureInfo -> Maybe WorkflowType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'workflowType") ChildWorkflowExecutionFailureInfo
_x
of
Maybe WorkflowType
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just WorkflowType
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder)
-> (WorkflowType -> ByteString) -> WorkflowType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
WorkflowType -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WorkflowType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Int64
Int64
-> ChildWorkflowExecutionFailureInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"initiatedEventId") ChildWorkflowExecutionFailureInfo
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
32)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
Int64
Int64
-> ChildWorkflowExecutionFailureInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startedEventId") ChildWorkflowExecutionFailureInfo
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
40)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: RetryState
_v
= FoldLike
RetryState
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
RetryState
RetryState
-> ChildWorkflowExecutionFailureInfo -> RetryState
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 @"retryState") ChildWorkflowExecutionFailureInfo
_x
in
if RetryState -> RetryState -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) RetryState
_v RetryState
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
48)
((Int -> Builder) -> (RetryState -> Int) -> RetryState -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
RetryState -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum RetryState
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
FieldSet
FieldSet
-> ChildWorkflowExecutionFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ChildWorkflowExecutionFailureInfo
ChildWorkflowExecutionFailureInfo
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ChildWorkflowExecutionFailureInfo FieldSet
Data.ProtoLens.unknownFields ChildWorkflowExecutionFailureInfo
_x)))))))
instance Control.DeepSeq.NFData ChildWorkflowExecutionFailureInfo where
rnf :: ChildWorkflowExecutionFailureInfo -> ()
rnf
= \ ChildWorkflowExecutionFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChildWorkflowExecutionFailureInfo -> FieldSet
_ChildWorkflowExecutionFailureInfo'_unknownFields ChildWorkflowExecutionFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChildWorkflowExecutionFailureInfo -> Text
_ChildWorkflowExecutionFailureInfo'namespace ChildWorkflowExecutionFailureInfo
x__)
(Maybe WorkflowExecution -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChildWorkflowExecutionFailureInfo -> Maybe WorkflowExecution
_ChildWorkflowExecutionFailureInfo'workflowExecution ChildWorkflowExecutionFailureInfo
x__)
(Maybe WorkflowType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChildWorkflowExecutionFailureInfo -> Maybe WorkflowType
_ChildWorkflowExecutionFailureInfo'workflowType ChildWorkflowExecutionFailureInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChildWorkflowExecutionFailureInfo -> Int64
_ChildWorkflowExecutionFailureInfo'initiatedEventId ChildWorkflowExecutionFailureInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChildWorkflowExecutionFailureInfo -> Int64
_ChildWorkflowExecutionFailureInfo'startedEventId ChildWorkflowExecutionFailureInfo
x__)
(RetryState -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ChildWorkflowExecutionFailureInfo -> RetryState
_ChildWorkflowExecutionFailureInfo'retryState ChildWorkflowExecutionFailureInfo
x__) ()))))))
data Failure
= Failure'_constructor {Failure -> Text
_Failure'message :: !Data.Text.Text,
Failure -> Text
_Failure'source :: !Data.Text.Text,
Failure -> Text
_Failure'stackTrace :: !Data.Text.Text,
Failure -> Maybe Payload
_Failure'encodedAttributes :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload),
Failure -> Maybe Failure
_Failure'cause :: !(Prelude.Maybe Failure),
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo :: !(Prelude.Maybe Failure'FailureInfo),
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))
data Failure'FailureInfo
= Failure'ApplicationFailureInfo !ApplicationFailureInfo |
Failure'TimeoutFailureInfo !TimeoutFailureInfo |
Failure'CanceledFailureInfo !CanceledFailureInfo |
Failure'TerminatedFailureInfo !TerminatedFailureInfo |
Failure'ServerFailureInfo !ServerFailureInfo |
Failure'ResetWorkflowFailureInfo !ResetWorkflowFailureInfo |
Failure'ActivityFailureInfo !ActivityFailureInfo |
Failure'ChildWorkflowExecutionFailureInfo !ChildWorkflowExecutionFailureInfo |
Failure'NexusOperationExecutionFailureInfo !NexusOperationFailureInfo
deriving stock (Int -> Failure'FailureInfo -> ShowS
[Failure'FailureInfo] -> ShowS
Failure'FailureInfo -> String
(Int -> Failure'FailureInfo -> ShowS)
-> (Failure'FailureInfo -> String)
-> ([Failure'FailureInfo] -> ShowS)
-> Show Failure'FailureInfo
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Failure'FailureInfo -> ShowS
showsPrec :: Int -> Failure'FailureInfo -> ShowS
$cshow :: Failure'FailureInfo -> String
show :: Failure'FailureInfo -> String
$cshowList :: [Failure'FailureInfo] -> ShowS
showList :: [Failure'FailureInfo] -> ShowS
Prelude.Show, Failure'FailureInfo -> Failure'FailureInfo -> Bool
(Failure'FailureInfo -> Failure'FailureInfo -> Bool)
-> (Failure'FailureInfo -> Failure'FailureInfo -> Bool)
-> Eq Failure'FailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
== :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
$c/= :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
/= :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
Prelude.Eq, Eq Failure'FailureInfo
Eq Failure'FailureInfo =>
(Failure'FailureInfo -> Failure'FailureInfo -> Ordering)
-> (Failure'FailureInfo -> Failure'FailureInfo -> Bool)
-> (Failure'FailureInfo -> Failure'FailureInfo -> Bool)
-> (Failure'FailureInfo -> Failure'FailureInfo -> Bool)
-> (Failure'FailureInfo -> Failure'FailureInfo -> Bool)
-> (Failure'FailureInfo
-> Failure'FailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo
-> Failure'FailureInfo -> Failure'FailureInfo)
-> Ord Failure'FailureInfo
Failure'FailureInfo -> Failure'FailureInfo -> Bool
Failure'FailureInfo -> Failure'FailureInfo -> Ordering
Failure'FailureInfo -> Failure'FailureInfo -> Failure'FailureInfo
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'FailureInfo -> Failure'FailureInfo -> Ordering
compare :: Failure'FailureInfo -> Failure'FailureInfo -> Ordering
$c< :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
< :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
$c<= :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
<= :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
$c> :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
> :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
$c>= :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
>= :: Failure'FailureInfo -> Failure'FailureInfo -> Bool
$cmax :: Failure'FailureInfo -> Failure'FailureInfo -> Failure'FailureInfo
max :: Failure'FailureInfo -> Failure'FailureInfo -> Failure'FailureInfo
$cmin :: Failure'FailureInfo -> Failure'FailureInfo -> Failure'FailureInfo
min :: Failure'FailureInfo -> Failure'FailureInfo -> Failure'FailureInfo
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Failure "message" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "message" -> (Text -> f Text) -> Failure -> f Failure
fieldOf Proxy# "message"
_
= ((Text -> f Text) -> Failure -> f Failure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Text)
-> (Failure -> Text -> Failure) -> Lens Failure Failure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Text
_Failure'message (\ Failure
x__ Text
y__ -> Failure
x__ {_Failure'message = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "source" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "source" -> (Text -> f Text) -> Failure -> f Failure
fieldOf Proxy# "source"
_
= ((Text -> f Text) -> Failure -> f Failure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Text)
-> (Failure -> Text -> Failure) -> Lens Failure Failure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Text
_Failure'source (\ Failure
x__ Text
y__ -> Failure
x__ {_Failure'source = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "stackTrace" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "stackTrace" -> (Text -> f Text) -> Failure -> f Failure
fieldOf Proxy# "stackTrace"
_
= ((Text -> f Text) -> Failure -> f Failure)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Text)
-> (Failure -> Text -> Failure) -> Lens Failure Failure Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Text
_Failure'stackTrace (\ Failure
x__ Text
y__ -> Failure
x__ {_Failure'stackTrace = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "encodedAttributes" Proto.Temporal.Api.Common.V1.Message.Payload where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "encodedAttributes"
-> (Payload -> f Payload) -> Failure -> f Failure
fieldOf Proxy# "encodedAttributes"
_
= ((Maybe Payload -> f (Maybe Payload)) -> Failure -> f Failure)
-> ((Payload -> f Payload) -> Maybe Payload -> f (Maybe Payload))
-> (Payload -> f Payload)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Payload)
-> (Failure -> Maybe Payload -> Failure)
-> Lens Failure Failure (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Payload
_Failure'encodedAttributes
(\ Failure
x__ Maybe Payload
y__ -> Failure
x__ {_Failure'encodedAttributes = 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 Failure "maybe'encodedAttributes" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payload) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'encodedAttributes"
-> (Maybe Payload -> f (Maybe Payload)) -> Failure -> f Failure
fieldOf Proxy# "maybe'encodedAttributes"
_
= ((Maybe Payload -> f (Maybe Payload)) -> Failure -> f Failure)
-> ((Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload))
-> (Maybe Payload -> f (Maybe Payload))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Payload)
-> (Failure -> Maybe Payload -> Failure)
-> Lens Failure Failure (Maybe Payload) (Maybe Payload)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Payload
_Failure'encodedAttributes
(\ Failure
x__ Maybe Payload
y__ -> Failure
x__ {_Failure'encodedAttributes = y__}))
(Maybe Payload -> f (Maybe Payload))
-> Maybe Payload -> f (Maybe Payload)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "cause" Failure where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cause" -> (Failure -> f Failure) -> Failure -> f Failure
fieldOf Proxy# "cause"
_
= ((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'cause (\ Failure
x__ Maybe Failure
y__ -> Failure
x__ {_Failure'cause = 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'cause" (Prelude.Maybe Failure) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cause"
-> (Maybe Failure -> f (Maybe Failure)) -> Failure -> f Failure
fieldOf Proxy# "maybe'cause"
_
= ((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'cause (\ Failure
x__ Maybe Failure
y__ -> Failure
x__ {_Failure'cause = y__}))
(Maybe Failure -> f (Maybe Failure))
-> Maybe Failure -> f (Maybe Failure)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "maybe'failureInfo" (Prelude.Maybe Failure'FailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'failureInfo"
-> (Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'failureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Failure "maybe'applicationFailureInfo" (Prelude.Maybe ApplicationFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'applicationFailureInfo"
-> (Maybe ApplicationFailureInfo
-> f (Maybe ApplicationFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'applicationFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe ApplicationFailureInfo
-> f (Maybe ApplicationFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe ApplicationFailureInfo
-> f (Maybe ApplicationFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe ApplicationFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ApplicationFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ApplicationFailureInfo)
(Maybe ApplicationFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ApplicationFailureInfo ApplicationFailureInfo
x__val))
-> ApplicationFailureInfo -> Maybe ApplicationFailureInfo
forall a. a -> Maybe a
Prelude.Just ApplicationFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ApplicationFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ApplicationFailureInfo
y__ -> (ApplicationFailureInfo -> Failure'FailureInfo)
-> Maybe ApplicationFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ApplicationFailureInfo -> Failure'FailureInfo
Failure'ApplicationFailureInfo Maybe ApplicationFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "applicationFailureInfo" ApplicationFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "applicationFailureInfo"
-> (ApplicationFailureInfo -> f ApplicationFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "applicationFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((ApplicationFailureInfo -> f ApplicationFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (ApplicationFailureInfo -> f ApplicationFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe ApplicationFailureInfo -> f (Maybe ApplicationFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((ApplicationFailureInfo -> f ApplicationFailureInfo)
-> Maybe ApplicationFailureInfo
-> f (Maybe ApplicationFailureInfo))
-> (ApplicationFailureInfo -> f ApplicationFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe ApplicationFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ApplicationFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ApplicationFailureInfo)
(Maybe ApplicationFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ApplicationFailureInfo ApplicationFailureInfo
x__val))
-> ApplicationFailureInfo -> Maybe ApplicationFailureInfo
forall a. a -> Maybe a
Prelude.Just ApplicationFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ApplicationFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ApplicationFailureInfo
y__ -> (ApplicationFailureInfo -> Failure'FailureInfo)
-> Maybe ApplicationFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ApplicationFailureInfo -> Failure'FailureInfo
Failure'ApplicationFailureInfo Maybe ApplicationFailureInfo
y__))
(ApplicationFailureInfo
-> Lens' (Maybe ApplicationFailureInfo) ApplicationFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ApplicationFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'timeoutFailureInfo" (Prelude.Maybe TimeoutFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'timeoutFailureInfo"
-> (Maybe TimeoutFailureInfo -> f (Maybe TimeoutFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'timeoutFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe TimeoutFailureInfo -> f (Maybe TimeoutFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe TimeoutFailureInfo -> f (Maybe TimeoutFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe TimeoutFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe TimeoutFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe TimeoutFailureInfo)
(Maybe TimeoutFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'TimeoutFailureInfo TimeoutFailureInfo
x__val))
-> TimeoutFailureInfo -> Maybe TimeoutFailureInfo
forall a. a -> Maybe a
Prelude.Just TimeoutFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe TimeoutFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe TimeoutFailureInfo
y__ -> (TimeoutFailureInfo -> Failure'FailureInfo)
-> Maybe TimeoutFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TimeoutFailureInfo -> Failure'FailureInfo
Failure'TimeoutFailureInfo Maybe TimeoutFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "timeoutFailureInfo" TimeoutFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timeoutFailureInfo"
-> (TimeoutFailureInfo -> f TimeoutFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "timeoutFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((TimeoutFailureInfo -> f TimeoutFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (TimeoutFailureInfo -> f TimeoutFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe TimeoutFailureInfo -> f (Maybe TimeoutFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((TimeoutFailureInfo -> f TimeoutFailureInfo)
-> Maybe TimeoutFailureInfo -> f (Maybe TimeoutFailureInfo))
-> (TimeoutFailureInfo -> f TimeoutFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe TimeoutFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe TimeoutFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe TimeoutFailureInfo)
(Maybe TimeoutFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'TimeoutFailureInfo TimeoutFailureInfo
x__val))
-> TimeoutFailureInfo -> Maybe TimeoutFailureInfo
forall a. a -> Maybe a
Prelude.Just TimeoutFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe TimeoutFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe TimeoutFailureInfo
y__ -> (TimeoutFailureInfo -> Failure'FailureInfo)
-> Maybe TimeoutFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TimeoutFailureInfo -> Failure'FailureInfo
Failure'TimeoutFailureInfo Maybe TimeoutFailureInfo
y__))
(TimeoutFailureInfo
-> Lens' (Maybe TimeoutFailureInfo) TimeoutFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TimeoutFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'canceledFailureInfo" (Prelude.Maybe CanceledFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'canceledFailureInfo"
-> (Maybe CanceledFailureInfo -> f (Maybe CanceledFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'canceledFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe CanceledFailureInfo -> f (Maybe CanceledFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe CanceledFailureInfo -> f (Maybe CanceledFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe CanceledFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe CanceledFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe CanceledFailureInfo)
(Maybe CanceledFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'CanceledFailureInfo CanceledFailureInfo
x__val))
-> CanceledFailureInfo -> Maybe CanceledFailureInfo
forall a. a -> Maybe a
Prelude.Just CanceledFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe CanceledFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe CanceledFailureInfo
y__ -> (CanceledFailureInfo -> Failure'FailureInfo)
-> Maybe CanceledFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CanceledFailureInfo -> Failure'FailureInfo
Failure'CanceledFailureInfo Maybe CanceledFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "canceledFailureInfo" CanceledFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "canceledFailureInfo"
-> (CanceledFailureInfo -> f CanceledFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "canceledFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((CanceledFailureInfo -> f CanceledFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (CanceledFailureInfo -> f CanceledFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe CanceledFailureInfo -> f (Maybe CanceledFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((CanceledFailureInfo -> f CanceledFailureInfo)
-> Maybe CanceledFailureInfo -> f (Maybe CanceledFailureInfo))
-> (CanceledFailureInfo -> f CanceledFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe CanceledFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe CanceledFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe CanceledFailureInfo)
(Maybe CanceledFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'CanceledFailureInfo CanceledFailureInfo
x__val))
-> CanceledFailureInfo -> Maybe CanceledFailureInfo
forall a. a -> Maybe a
Prelude.Just CanceledFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe CanceledFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe CanceledFailureInfo
y__ -> (CanceledFailureInfo -> Failure'FailureInfo)
-> Maybe CanceledFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CanceledFailureInfo -> Failure'FailureInfo
Failure'CanceledFailureInfo Maybe CanceledFailureInfo
y__))
(CanceledFailureInfo
-> Lens' (Maybe CanceledFailureInfo) CanceledFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CanceledFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'terminatedFailureInfo" (Prelude.Maybe TerminatedFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'terminatedFailureInfo"
-> (Maybe TerminatedFailureInfo -> f (Maybe TerminatedFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'terminatedFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe TerminatedFailureInfo
-> f (Maybe TerminatedFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe TerminatedFailureInfo -> f (Maybe TerminatedFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe TerminatedFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe TerminatedFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe TerminatedFailureInfo)
(Maybe TerminatedFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'TerminatedFailureInfo TerminatedFailureInfo
x__val))
-> TerminatedFailureInfo -> Maybe TerminatedFailureInfo
forall a. a -> Maybe a
Prelude.Just TerminatedFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe TerminatedFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe TerminatedFailureInfo
y__ -> (TerminatedFailureInfo -> Failure'FailureInfo)
-> Maybe TerminatedFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TerminatedFailureInfo -> Failure'FailureInfo
Failure'TerminatedFailureInfo Maybe TerminatedFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "terminatedFailureInfo" TerminatedFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "terminatedFailureInfo"
-> (TerminatedFailureInfo -> f TerminatedFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "terminatedFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((TerminatedFailureInfo -> f TerminatedFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (TerminatedFailureInfo -> f TerminatedFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe TerminatedFailureInfo -> f (Maybe TerminatedFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((TerminatedFailureInfo -> f TerminatedFailureInfo)
-> Maybe TerminatedFailureInfo -> f (Maybe TerminatedFailureInfo))
-> (TerminatedFailureInfo -> f TerminatedFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe TerminatedFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe TerminatedFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe TerminatedFailureInfo)
(Maybe TerminatedFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'TerminatedFailureInfo TerminatedFailureInfo
x__val))
-> TerminatedFailureInfo -> Maybe TerminatedFailureInfo
forall a. a -> Maybe a
Prelude.Just TerminatedFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe TerminatedFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe TerminatedFailureInfo
y__ -> (TerminatedFailureInfo -> Failure'FailureInfo)
-> Maybe TerminatedFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TerminatedFailureInfo -> Failure'FailureInfo
Failure'TerminatedFailureInfo Maybe TerminatedFailureInfo
y__))
(TerminatedFailureInfo
-> Lens' (Maybe TerminatedFailureInfo) TerminatedFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TerminatedFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'serverFailureInfo" (Prelude.Maybe ServerFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'serverFailureInfo"
-> (Maybe ServerFailureInfo -> f (Maybe ServerFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'serverFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe ServerFailureInfo -> f (Maybe ServerFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe ServerFailureInfo -> f (Maybe ServerFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe ServerFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ServerFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ServerFailureInfo)
(Maybe ServerFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ServerFailureInfo ServerFailureInfo
x__val))
-> ServerFailureInfo -> Maybe ServerFailureInfo
forall a. a -> Maybe a
Prelude.Just ServerFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ServerFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ServerFailureInfo
y__ -> (ServerFailureInfo -> Failure'FailureInfo)
-> Maybe ServerFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ServerFailureInfo -> Failure'FailureInfo
Failure'ServerFailureInfo Maybe ServerFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "serverFailureInfo" ServerFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "serverFailureInfo"
-> (ServerFailureInfo -> f ServerFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "serverFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((ServerFailureInfo -> f ServerFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (ServerFailureInfo -> f ServerFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe ServerFailureInfo -> f (Maybe ServerFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((ServerFailureInfo -> f ServerFailureInfo)
-> Maybe ServerFailureInfo -> f (Maybe ServerFailureInfo))
-> (ServerFailureInfo -> f ServerFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe ServerFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ServerFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ServerFailureInfo)
(Maybe ServerFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ServerFailureInfo ServerFailureInfo
x__val))
-> ServerFailureInfo -> Maybe ServerFailureInfo
forall a. a -> Maybe a
Prelude.Just ServerFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ServerFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ServerFailureInfo
y__ -> (ServerFailureInfo -> Failure'FailureInfo)
-> Maybe ServerFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ServerFailureInfo -> Failure'FailureInfo
Failure'ServerFailureInfo Maybe ServerFailureInfo
y__))
(ServerFailureInfo
-> Lens' (Maybe ServerFailureInfo) ServerFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ServerFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'resetWorkflowFailureInfo" (Prelude.Maybe ResetWorkflowFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'resetWorkflowFailureInfo"
-> (Maybe ResetWorkflowFailureInfo
-> f (Maybe ResetWorkflowFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'resetWorkflowFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe ResetWorkflowFailureInfo
-> f (Maybe ResetWorkflowFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe ResetWorkflowFailureInfo
-> f (Maybe ResetWorkflowFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe ResetWorkflowFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ResetWorkflowFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ResetWorkflowFailureInfo)
(Maybe ResetWorkflowFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ResetWorkflowFailureInfo ResetWorkflowFailureInfo
x__val))
-> ResetWorkflowFailureInfo -> Maybe ResetWorkflowFailureInfo
forall a. a -> Maybe a
Prelude.Just ResetWorkflowFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ResetWorkflowFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ResetWorkflowFailureInfo
y__ -> (ResetWorkflowFailureInfo -> Failure'FailureInfo)
-> Maybe ResetWorkflowFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ResetWorkflowFailureInfo -> Failure'FailureInfo
Failure'ResetWorkflowFailureInfo Maybe ResetWorkflowFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "resetWorkflowFailureInfo" ResetWorkflowFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "resetWorkflowFailureInfo"
-> (ResetWorkflowFailureInfo -> f ResetWorkflowFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "resetWorkflowFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((ResetWorkflowFailureInfo -> f ResetWorkflowFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (ResetWorkflowFailureInfo -> f ResetWorkflowFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe ResetWorkflowFailureInfo
-> f (Maybe ResetWorkflowFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((ResetWorkflowFailureInfo -> f ResetWorkflowFailureInfo)
-> Maybe ResetWorkflowFailureInfo
-> f (Maybe ResetWorkflowFailureInfo))
-> (ResetWorkflowFailureInfo -> f ResetWorkflowFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe ResetWorkflowFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ResetWorkflowFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ResetWorkflowFailureInfo)
(Maybe ResetWorkflowFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ResetWorkflowFailureInfo ResetWorkflowFailureInfo
x__val))
-> ResetWorkflowFailureInfo -> Maybe ResetWorkflowFailureInfo
forall a. a -> Maybe a
Prelude.Just ResetWorkflowFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ResetWorkflowFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ResetWorkflowFailureInfo
y__ -> (ResetWorkflowFailureInfo -> Failure'FailureInfo)
-> Maybe ResetWorkflowFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ResetWorkflowFailureInfo -> Failure'FailureInfo
Failure'ResetWorkflowFailureInfo Maybe ResetWorkflowFailureInfo
y__))
(ResetWorkflowFailureInfo
-> Lens' (Maybe ResetWorkflowFailureInfo) ResetWorkflowFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResetWorkflowFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'activityFailureInfo" (Prelude.Maybe ActivityFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'activityFailureInfo"
-> (Maybe ActivityFailureInfo -> f (Maybe ActivityFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'activityFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe ActivityFailureInfo -> f (Maybe ActivityFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe ActivityFailureInfo -> f (Maybe ActivityFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe ActivityFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ActivityFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ActivityFailureInfo)
(Maybe ActivityFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ActivityFailureInfo ActivityFailureInfo
x__val))
-> ActivityFailureInfo -> Maybe ActivityFailureInfo
forall a. a -> Maybe a
Prelude.Just ActivityFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ActivityFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ActivityFailureInfo
y__ -> (ActivityFailureInfo -> Failure'FailureInfo)
-> Maybe ActivityFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ActivityFailureInfo -> Failure'FailureInfo
Failure'ActivityFailureInfo Maybe ActivityFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "activityFailureInfo" ActivityFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "activityFailureInfo"
-> (ActivityFailureInfo -> f ActivityFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "activityFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((ActivityFailureInfo -> f ActivityFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (ActivityFailureInfo -> f ActivityFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe ActivityFailureInfo -> f (Maybe ActivityFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((ActivityFailureInfo -> f ActivityFailureInfo)
-> Maybe ActivityFailureInfo -> f (Maybe ActivityFailureInfo))
-> (ActivityFailureInfo -> f ActivityFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe ActivityFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ActivityFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ActivityFailureInfo)
(Maybe ActivityFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ActivityFailureInfo ActivityFailureInfo
x__val))
-> ActivityFailureInfo -> Maybe ActivityFailureInfo
forall a. a -> Maybe a
Prelude.Just ActivityFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ActivityFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ActivityFailureInfo
y__ -> (ActivityFailureInfo -> Failure'FailureInfo)
-> Maybe ActivityFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ActivityFailureInfo -> Failure'FailureInfo
Failure'ActivityFailureInfo Maybe ActivityFailureInfo
y__))
(ActivityFailureInfo
-> Lens' (Maybe ActivityFailureInfo) ActivityFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ActivityFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'childWorkflowExecutionFailureInfo" (Prelude.Maybe ChildWorkflowExecutionFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'childWorkflowExecutionFailureInfo"
-> (Maybe ChildWorkflowExecutionFailureInfo
-> f (Maybe ChildWorkflowExecutionFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'childWorkflowExecutionFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe ChildWorkflowExecutionFailureInfo
-> f (Maybe ChildWorkflowExecutionFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe ChildWorkflowExecutionFailureInfo
-> f (Maybe ChildWorkflowExecutionFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo
-> Maybe ChildWorkflowExecutionFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ChildWorkflowExecutionFailureInfo
-> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ChildWorkflowExecutionFailureInfo)
(Maybe ChildWorkflowExecutionFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ChildWorkflowExecutionFailureInfo ChildWorkflowExecutionFailureInfo
x__val))
-> ChildWorkflowExecutionFailureInfo
-> Maybe ChildWorkflowExecutionFailureInfo
forall a. a -> Maybe a
Prelude.Just ChildWorkflowExecutionFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ChildWorkflowExecutionFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ChildWorkflowExecutionFailureInfo
y__
-> (ChildWorkflowExecutionFailureInfo -> Failure'FailureInfo)
-> Maybe ChildWorkflowExecutionFailureInfo
-> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ChildWorkflowExecutionFailureInfo -> Failure'FailureInfo
Failure'ChildWorkflowExecutionFailureInfo Maybe ChildWorkflowExecutionFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "childWorkflowExecutionFailureInfo" ChildWorkflowExecutionFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "childWorkflowExecutionFailureInfo"
-> (ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "childWorkflowExecutionFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe ChildWorkflowExecutionFailureInfo
-> f (Maybe ChildWorkflowExecutionFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> Maybe ChildWorkflowExecutionFailureInfo
-> f (Maybe ChildWorkflowExecutionFailureInfo))
-> (ChildWorkflowExecutionFailureInfo
-> f ChildWorkflowExecutionFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo
-> Maybe ChildWorkflowExecutionFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe ChildWorkflowExecutionFailureInfo
-> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe ChildWorkflowExecutionFailureInfo)
(Maybe ChildWorkflowExecutionFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'ChildWorkflowExecutionFailureInfo ChildWorkflowExecutionFailureInfo
x__val))
-> ChildWorkflowExecutionFailureInfo
-> Maybe ChildWorkflowExecutionFailureInfo
forall a. a -> Maybe a
Prelude.Just ChildWorkflowExecutionFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe ChildWorkflowExecutionFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe ChildWorkflowExecutionFailureInfo
y__
-> (ChildWorkflowExecutionFailureInfo -> Failure'FailureInfo)
-> Maybe ChildWorkflowExecutionFailureInfo
-> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ChildWorkflowExecutionFailureInfo -> Failure'FailureInfo
Failure'ChildWorkflowExecutionFailureInfo Maybe ChildWorkflowExecutionFailureInfo
y__))
(ChildWorkflowExecutionFailureInfo
-> Lens'
(Maybe ChildWorkflowExecutionFailureInfo)
ChildWorkflowExecutionFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ChildWorkflowExecutionFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField Failure "maybe'nexusOperationExecutionFailureInfo" (Prelude.Maybe NexusOperationFailureInfo) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'nexusOperationExecutionFailureInfo"
-> (Maybe NexusOperationFailureInfo
-> f (Maybe NexusOperationFailureInfo))
-> Failure
-> f Failure
fieldOf Proxy# "maybe'nexusOperationExecutionFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((Maybe NexusOperationFailureInfo
-> f (Maybe NexusOperationFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (Maybe NexusOperationFailureInfo
-> f (Maybe NexusOperationFailureInfo))
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
((Maybe Failure'FailureInfo -> Maybe NexusOperationFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe NexusOperationFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe NexusOperationFailureInfo)
(Maybe NexusOperationFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'NexusOperationExecutionFailureInfo NexusOperationFailureInfo
x__val))
-> NexusOperationFailureInfo -> Maybe NexusOperationFailureInfo
forall a. a -> Maybe a
Prelude.Just NexusOperationFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe NexusOperationFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe NexusOperationFailureInfo
y__
-> (NexusOperationFailureInfo -> Failure'FailureInfo)
-> Maybe NexusOperationFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NexusOperationFailureInfo -> Failure'FailureInfo
Failure'NexusOperationExecutionFailureInfo Maybe NexusOperationFailureInfo
y__))
instance Data.ProtoLens.Field.HasField Failure "nexusOperationExecutionFailureInfo" NexusOperationFailureInfo where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nexusOperationExecutionFailureInfo"
-> (NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> Failure
-> f Failure
fieldOf Proxy# "nexusOperationExecutionFailureInfo"
_
= ((Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> Failure -> f Failure)
-> ((NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> (NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> Failure
-> f Failure
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Failure -> Maybe Failure'FailureInfo)
-> (Failure -> Maybe Failure'FailureInfo -> Failure)
-> Lens
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo
(\ Failure
x__ Maybe Failure'FailureInfo
y__ -> Failure
x__ {_Failure'failureInfo = y__}))
(((Maybe NexusOperationFailureInfo
-> f (Maybe NexusOperationFailureInfo))
-> Maybe Failure'FailureInfo -> f (Maybe Failure'FailureInfo))
-> ((NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> Maybe NexusOperationFailureInfo
-> f (Maybe NexusOperationFailureInfo))
-> (NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> Maybe Failure'FailureInfo
-> f (Maybe Failure'FailureInfo)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe Failure'FailureInfo -> Maybe NexusOperationFailureInfo)
-> (Maybe Failure'FailureInfo
-> Maybe NexusOperationFailureInfo -> Maybe Failure'FailureInfo)
-> Lens
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
(Maybe NexusOperationFailureInfo)
(Maybe NexusOperationFailureInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ Maybe Failure'FailureInfo
x__
-> case Maybe Failure'FailureInfo
x__ of
(Prelude.Just (Failure'NexusOperationExecutionFailureInfo NexusOperationFailureInfo
x__val))
-> NexusOperationFailureInfo -> Maybe NexusOperationFailureInfo
forall a. a -> Maybe a
Prelude.Just NexusOperationFailureInfo
x__val
Maybe Failure'FailureInfo
_otherwise -> Maybe NexusOperationFailureInfo
forall a. Maybe a
Prelude.Nothing)
(\ Maybe Failure'FailureInfo
_ Maybe NexusOperationFailureInfo
y__
-> (NexusOperationFailureInfo -> Failure'FailureInfo)
-> Maybe NexusOperationFailureInfo -> Maybe Failure'FailureInfo
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap NexusOperationFailureInfo -> Failure'FailureInfo
Failure'NexusOperationExecutionFailureInfo Maybe NexusOperationFailureInfo
y__))
(NexusOperationFailureInfo
-> Lens'
(Maybe NexusOperationFailureInfo) NexusOperationFailureInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens NexusOperationFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message Failure where
messageName :: Proxy Failure -> Text
messageName Proxy Failure
_ = String -> Text
Data.Text.pack String
"temporal.api.failure.v1.Failure"
packedMessageDescriptor :: Proxy Failure -> ByteString
packedMessageDescriptor Proxy Failure
_
= ByteString
"\n\
\\aFailure\DC2\CAN\n\
\\amessage\CAN\SOH \SOH(\tR\amessage\DC2\SYN\n\
\\ACKsource\CAN\STX \SOH(\tR\ACKsource\DC2\US\n\
\\vstack_trace\CAN\ETX \SOH(\tR\n\
\stackTrace\DC2N\n\
\\DC2encoded_attributes\CAN\DC4 \SOH(\v2\US.temporal.api.common.v1.PayloadR\DC1encodedAttributes\DC26\n\
\\ENQcause\CAN\EOT \SOH(\v2 .temporal.api.failure.v1.FailureR\ENQcause\DC2k\n\
\\CANapplication_failure_info\CAN\ENQ \SOH(\v2/.temporal.api.failure.v1.ApplicationFailureInfoH\NULR\SYNapplicationFailureInfo\DC2_\n\
\\DC4timeout_failure_info\CAN\ACK \SOH(\v2+.temporal.api.failure.v1.TimeoutFailureInfoH\NULR\DC2timeoutFailureInfo\DC2b\n\
\\NAKcanceled_failure_info\CAN\a \SOH(\v2,.temporal.api.failure.v1.CanceledFailureInfoH\NULR\DC3canceledFailureInfo\DC2h\n\
\\ETBterminated_failure_info\CAN\b \SOH(\v2..temporal.api.failure.v1.TerminatedFailureInfoH\NULR\NAKterminatedFailureInfo\DC2\\\n\
\\DC3server_failure_info\CAN\t \SOH(\v2*.temporal.api.failure.v1.ServerFailureInfoH\NULR\DC1serverFailureInfo\DC2r\n\
\\ESCreset_workflow_failure_info\CAN\n\
\ \SOH(\v21.temporal.api.failure.v1.ResetWorkflowFailureInfoH\NULR\CANresetWorkflowFailureInfo\DC2b\n\
\\NAKactivity_failure_info\CAN\v \SOH(\v2,.temporal.api.failure.v1.ActivityFailureInfoH\NULR\DC3activityFailureInfo\DC2\142\SOH\n\
\%child_workflow_execution_failure_info\CAN\f \SOH(\v2:.temporal.api.failure.v1.ChildWorkflowExecutionFailureInfoH\NULR!childWorkflowExecutionFailureInfo\DC2\136\SOH\n\
\&nexus_operation_execution_failure_info\CAN\r \SOH(\v22.temporal.api.failure.v1.NexusOperationFailureInfoH\NULR\"nexusOperationExecutionFailureInfoB\SO\n\
\\ffailure_info"
packedFileDescriptor :: Proxy Failure -> ByteString
packedFileDescriptor Proxy Failure
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor Failure)
fieldsByTag
= let
message__field_descriptor :: FieldDescriptor Failure
message__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Failure Text
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"message"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Failure Failure Text Text -> FieldAccessor Failure Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"message")) ::
Data.ProtoLens.FieldDescriptor Failure
source__field_descriptor :: FieldDescriptor Failure
source__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Failure Text
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"source"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Failure Failure Text Text -> FieldAccessor Failure Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"source")) ::
Data.ProtoLens.FieldDescriptor Failure
stackTrace__field_descriptor :: FieldDescriptor Failure
stackTrace__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor Failure Text
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"stack_trace"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens Failure Failure Text Text -> FieldAccessor Failure Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stackTrace")) ::
Data.ProtoLens.FieldDescriptor Failure
encodedAttributes__field_descriptor :: FieldDescriptor Failure
encodedAttributes__field_descriptor
= String
-> FieldTypeDescriptor Payload
-> FieldAccessor Failure Payload
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"encoded_attributes"
(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 Failure Failure (Maybe Payload) (Maybe Payload)
-> FieldAccessor Failure 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'encodedAttributes")) ::
Data.ProtoLens.FieldDescriptor Failure
cause__field_descriptor :: FieldDescriptor Failure
cause__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
"cause"
(MessageOrGroup -> FieldTypeDescriptor Failure
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor 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'cause")) ::
Data.ProtoLens.FieldDescriptor Failure
applicationFailureInfo__field_descriptor :: FieldDescriptor Failure
applicationFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor ApplicationFailureInfo
-> FieldAccessor Failure ApplicationFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"application_failure_info"
(MessageOrGroup -> FieldTypeDescriptor ApplicationFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ApplicationFailureInfo)
(Lens' Failure (Maybe ApplicationFailureInfo)
-> FieldAccessor Failure ApplicationFailureInfo
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'applicationFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
timeoutFailureInfo__field_descriptor :: FieldDescriptor Failure
timeoutFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor TimeoutFailureInfo
-> FieldAccessor Failure TimeoutFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"timeout_failure_info"
(MessageOrGroup -> FieldTypeDescriptor TimeoutFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TimeoutFailureInfo)
(Lens' Failure (Maybe TimeoutFailureInfo)
-> FieldAccessor Failure TimeoutFailureInfo
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'timeoutFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
canceledFailureInfo__field_descriptor :: FieldDescriptor Failure
canceledFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor CanceledFailureInfo
-> FieldAccessor Failure CanceledFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"canceled_failure_info"
(MessageOrGroup -> FieldTypeDescriptor CanceledFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CanceledFailureInfo)
(Lens' Failure (Maybe CanceledFailureInfo)
-> FieldAccessor Failure CanceledFailureInfo
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'canceledFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
terminatedFailureInfo__field_descriptor :: FieldDescriptor Failure
terminatedFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor TerminatedFailureInfo
-> FieldAccessor Failure TerminatedFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"terminated_failure_info"
(MessageOrGroup -> FieldTypeDescriptor TerminatedFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TerminatedFailureInfo)
(Lens' Failure (Maybe TerminatedFailureInfo)
-> FieldAccessor Failure TerminatedFailureInfo
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'terminatedFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
serverFailureInfo__field_descriptor :: FieldDescriptor Failure
serverFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor ServerFailureInfo
-> FieldAccessor Failure ServerFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"server_failure_info"
(MessageOrGroup -> FieldTypeDescriptor ServerFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ServerFailureInfo)
(Lens' Failure (Maybe ServerFailureInfo)
-> FieldAccessor Failure ServerFailureInfo
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'serverFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
resetWorkflowFailureInfo__field_descriptor :: FieldDescriptor Failure
resetWorkflowFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor ResetWorkflowFailureInfo
-> FieldAccessor Failure ResetWorkflowFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"reset_workflow_failure_info"
(MessageOrGroup -> FieldTypeDescriptor ResetWorkflowFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ResetWorkflowFailureInfo)
(Lens' Failure (Maybe ResetWorkflowFailureInfo)
-> FieldAccessor Failure ResetWorkflowFailureInfo
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'resetWorkflowFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
activityFailureInfo__field_descriptor :: FieldDescriptor Failure
activityFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor ActivityFailureInfo
-> FieldAccessor Failure ActivityFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"activity_failure_info"
(MessageOrGroup -> FieldTypeDescriptor ActivityFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ActivityFailureInfo)
(Lens' Failure (Maybe ActivityFailureInfo)
-> FieldAccessor Failure ActivityFailureInfo
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'activityFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
childWorkflowExecutionFailureInfo__field_descriptor :: FieldDescriptor Failure
childWorkflowExecutionFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor ChildWorkflowExecutionFailureInfo
-> FieldAccessor Failure ChildWorkflowExecutionFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"child_workflow_execution_failure_info"
(MessageOrGroup
-> FieldTypeDescriptor ChildWorkflowExecutionFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ChildWorkflowExecutionFailureInfo)
(Lens' Failure (Maybe ChildWorkflowExecutionFailureInfo)
-> FieldAccessor Failure ChildWorkflowExecutionFailureInfo
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'childWorkflowExecutionFailureInfo")) ::
Data.ProtoLens.FieldDescriptor Failure
nexusOperationExecutionFailureInfo__field_descriptor :: FieldDescriptor Failure
nexusOperationExecutionFailureInfo__field_descriptor
= String
-> FieldTypeDescriptor NexusOperationFailureInfo
-> FieldAccessor Failure NexusOperationFailureInfo
-> FieldDescriptor Failure
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"nexus_operation_execution_failure_info"
(MessageOrGroup -> FieldTypeDescriptor NexusOperationFailureInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor NexusOperationFailureInfo)
(Lens' Failure (Maybe NexusOperationFailureInfo)
-> FieldAccessor Failure NexusOperationFailureInfo
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'nexusOperationExecutionFailureInfo")) ::
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
message__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Failure
source__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Failure
stackTrace__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
20, FieldDescriptor Failure
encodedAttributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Failure
cause__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Failure
applicationFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Failure
timeoutFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor Failure
canceledFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor Failure
terminatedFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor Failure
serverFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
10,
FieldDescriptor Failure
resetWorkflowFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor Failure
activityFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
12,
FieldDescriptor Failure
childWorkflowExecutionFailureInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
13,
FieldDescriptor Failure
nexusOperationExecutionFailureInfo__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'message :: Text
_Failure'message = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Failure'source :: Text
_Failure'source = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Failure'stackTrace :: Text
_Failure'stackTrace = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_Failure'encodedAttributes :: Maybe Payload
_Failure'encodedAttributes = Maybe Payload
forall a. Maybe a
Prelude.Nothing,
_Failure'cause :: Maybe Failure
_Failure'cause = Maybe Failure
forall a. Maybe a
Prelude.Nothing,
_Failure'failureInfo :: Maybe Failure'FailureInfo
_Failure'failureInfo = Maybe Failure'FailureInfo
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"message"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x)
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"source"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"source") y x)
Word64
26
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"stack_trace"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"stackTrace") y x)
Word64
162
-> 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
"encoded_attributes"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"encodedAttributes") y x)
Word64
34
-> do y <- Parser Failure -> String -> Parser Failure
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"cause"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"cause") y x)
Word64
42
-> do y <- Parser ApplicationFailureInfo
-> String -> Parser ApplicationFailureInfo
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
"application_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"applicationFailureInfo") y x)
Word64
50
-> do y <- Parser TimeoutFailureInfo -> String -> Parser TimeoutFailureInfo
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
"timeout_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"timeoutFailureInfo") y x)
Word64
58
-> do y <- Parser CanceledFailureInfo -> String -> Parser CanceledFailureInfo
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
"canceled_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"canceledFailureInfo") y x)
Word64
66
-> do y <- Parser TerminatedFailureInfo
-> String -> Parser TerminatedFailureInfo
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
"terminated_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"terminatedFailureInfo") y x)
Word64
74
-> do y <- Parser ServerFailureInfo -> String -> Parser ServerFailureInfo
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
"server_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"serverFailureInfo") y x)
Word64
82
-> do y <- Parser ResetWorkflowFailureInfo
-> String -> Parser ResetWorkflowFailureInfo
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
"reset_workflow_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"resetWorkflowFailureInfo") y x)
Word64
90
-> do y <- Parser ActivityFailureInfo -> String -> Parser ActivityFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"activity_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"activityFailureInfo") y x)
Word64
98
-> do y <- Parser ChildWorkflowExecutionFailureInfo
-> String -> Parser ChildWorkflowExecutionFailureInfo
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
"child_workflow_execution_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"childWorkflowExecutionFailureInfo")
y x)
Word64
106
-> do y <- Parser NexusOperationFailureInfo
-> String -> Parser NexusOperationFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"nexus_operation_execution_failure_info"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field
@"nexusOperationExecutionFailureInfo")
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.<>)
(let
_v :: Text
_v = FoldLike Text Failure Failure Text Text -> Failure -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"message") Failure
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text Failure Failure Text Text -> Failure -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"source") Failure
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text Failure Failure Text Text -> Failure -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stackTrace") Failure
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payload) Failure Failure (Maybe Payload) (Maybe Payload)
-> Failure -> 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'encodedAttributes") Failure
_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
162)
((ByteString -> Builder)
-> (Payload -> ByteString) -> Payload -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Payload -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payload
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe 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'cause") 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
34)
((ByteString -> Builder)
-> (Failure -> ByteString) -> Failure -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Failure -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Failure
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Failure'FailureInfo)
Failure
Failure
(Maybe Failure'FailureInfo)
(Maybe Failure'FailureInfo)
-> Failure -> Maybe Failure'FailureInfo
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'failureInfo") Failure
_x
of
Maybe Failure'FailureInfo
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (Failure'ApplicationFailureInfo ApplicationFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder)
-> (ApplicationFailureInfo -> ByteString)
-> ApplicationFailureInfo
-> 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))
ApplicationFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ApplicationFailureInfo
v)
(Prelude.Just (Failure'TimeoutFailureInfo TimeoutFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
((ByteString -> Builder)
-> (TimeoutFailureInfo -> ByteString)
-> TimeoutFailureInfo
-> 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))
TimeoutFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TimeoutFailureInfo
v)
(Prelude.Just (Failure'CanceledFailureInfo CanceledFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
((ByteString -> Builder)
-> (CanceledFailureInfo -> ByteString)
-> CanceledFailureInfo
-> 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))
CanceledFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage CanceledFailureInfo
v)
(Prelude.Just (Failure'TerminatedFailureInfo TerminatedFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
((ByteString -> Builder)
-> (TerminatedFailureInfo -> ByteString)
-> TerminatedFailureInfo
-> 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))
TerminatedFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TerminatedFailureInfo
v)
(Prelude.Just (Failure'ServerFailureInfo ServerFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
74)
((ByteString -> Builder)
-> (ServerFailureInfo -> ByteString)
-> ServerFailureInfo
-> 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))
ServerFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ServerFailureInfo
v)
(Prelude.Just (Failure'ResetWorkflowFailureInfo ResetWorkflowFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
82)
((ByteString -> Builder)
-> (ResetWorkflowFailureInfo -> ByteString)
-> ResetWorkflowFailureInfo
-> 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))
ResetWorkflowFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResetWorkflowFailureInfo
v)
(Prelude.Just (Failure'ActivityFailureInfo ActivityFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
((ByteString -> Builder)
-> (ActivityFailureInfo -> ByteString)
-> ActivityFailureInfo
-> 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))
ActivityFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ActivityFailureInfo
v)
(Prelude.Just (Failure'ChildWorkflowExecutionFailureInfo ChildWorkflowExecutionFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
98)
((ByteString -> Builder)
-> (ChildWorkflowExecutionFailureInfo -> ByteString)
-> ChildWorkflowExecutionFailureInfo
-> 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))
ChildWorkflowExecutionFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ChildWorkflowExecutionFailureInfo
v)
(Prelude.Just (Failure'NexusOperationExecutionFailureInfo NexusOperationFailureInfo
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
106)
((ByteString -> Builder)
-> (NexusOperationFailureInfo -> ByteString)
-> NexusOperationFailureInfo
-> 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))
NexusOperationFailureInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage NexusOperationFailureInfo
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__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Failure -> Text
_Failure'message Failure
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Failure -> Text
_Failure'source Failure
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Failure -> Text
_Failure'stackTrace Failure
x__)
(Maybe Payload -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Failure -> Maybe Payload
_Failure'encodedAttributes Failure
x__)
(Maybe Failure -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(Failure -> Maybe Failure
_Failure'cause Failure
x__)
(Maybe Failure'FailureInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Failure -> Maybe Failure'FailureInfo
_Failure'failureInfo Failure
x__) ()))))))
instance Control.DeepSeq.NFData Failure'FailureInfo where
rnf :: Failure'FailureInfo -> ()
rnf (Failure'ApplicationFailureInfo ApplicationFailureInfo
x__) = ApplicationFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ApplicationFailureInfo
x__
rnf (Failure'TimeoutFailureInfo TimeoutFailureInfo
x__) = TimeoutFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TimeoutFailureInfo
x__
rnf (Failure'CanceledFailureInfo CanceledFailureInfo
x__) = CanceledFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CanceledFailureInfo
x__
rnf (Failure'TerminatedFailureInfo TerminatedFailureInfo
x__) = TerminatedFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TerminatedFailureInfo
x__
rnf (Failure'ServerFailureInfo ServerFailureInfo
x__) = ServerFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ServerFailureInfo
x__
rnf (Failure'ResetWorkflowFailureInfo ResetWorkflowFailureInfo
x__)
= ResetWorkflowFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ResetWorkflowFailureInfo
x__
rnf (Failure'ActivityFailureInfo ActivityFailureInfo
x__) = ActivityFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ActivityFailureInfo
x__
rnf (Failure'ChildWorkflowExecutionFailureInfo ChildWorkflowExecutionFailureInfo
x__)
= ChildWorkflowExecutionFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ChildWorkflowExecutionFailureInfo
x__
rnf (Failure'NexusOperationExecutionFailureInfo NexusOperationFailureInfo
x__)
= NexusOperationFailureInfo -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf NexusOperationFailureInfo
x__
_Failure'ApplicationFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo ApplicationFailureInfo
_Failure'ApplicationFailureInfo :: Prism' Failure'FailureInfo ApplicationFailureInfo
_Failure'ApplicationFailureInfo
= (ApplicationFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe ApplicationFailureInfo)
-> Prism' Failure'FailureInfo ApplicationFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ApplicationFailureInfo -> Failure'FailureInfo
Failure'ApplicationFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'ApplicationFailureInfo ApplicationFailureInfo
p__val) -> ApplicationFailureInfo -> Maybe ApplicationFailureInfo
forall a. a -> Maybe a
Prelude.Just ApplicationFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe ApplicationFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'TimeoutFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo TimeoutFailureInfo
_Failure'TimeoutFailureInfo :: Prism' Failure'FailureInfo TimeoutFailureInfo
_Failure'TimeoutFailureInfo
= (TimeoutFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe TimeoutFailureInfo)
-> Prism' Failure'FailureInfo TimeoutFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TimeoutFailureInfo -> Failure'FailureInfo
Failure'TimeoutFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'TimeoutFailureInfo TimeoutFailureInfo
p__val) -> TimeoutFailureInfo -> Maybe TimeoutFailureInfo
forall a. a -> Maybe a
Prelude.Just TimeoutFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe TimeoutFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'CanceledFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo CanceledFailureInfo
_Failure'CanceledFailureInfo :: Prism' Failure'FailureInfo CanceledFailureInfo
_Failure'CanceledFailureInfo
= (CanceledFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe CanceledFailureInfo)
-> Prism' Failure'FailureInfo CanceledFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CanceledFailureInfo -> Failure'FailureInfo
Failure'CanceledFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'CanceledFailureInfo CanceledFailureInfo
p__val) -> CanceledFailureInfo -> Maybe CanceledFailureInfo
forall a. a -> Maybe a
Prelude.Just CanceledFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe CanceledFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'TerminatedFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo TerminatedFailureInfo
_Failure'TerminatedFailureInfo :: Prism' Failure'FailureInfo TerminatedFailureInfo
_Failure'TerminatedFailureInfo
= (TerminatedFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe TerminatedFailureInfo)
-> Prism' Failure'FailureInfo TerminatedFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TerminatedFailureInfo -> Failure'FailureInfo
Failure'TerminatedFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'TerminatedFailureInfo TerminatedFailureInfo
p__val) -> TerminatedFailureInfo -> Maybe TerminatedFailureInfo
forall a. a -> Maybe a
Prelude.Just TerminatedFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe TerminatedFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'ServerFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo ServerFailureInfo
_Failure'ServerFailureInfo :: Prism' Failure'FailureInfo ServerFailureInfo
_Failure'ServerFailureInfo
= (ServerFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe ServerFailureInfo)
-> Prism' Failure'FailureInfo ServerFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ServerFailureInfo -> Failure'FailureInfo
Failure'ServerFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'ServerFailureInfo ServerFailureInfo
p__val) -> ServerFailureInfo -> Maybe ServerFailureInfo
forall a. a -> Maybe a
Prelude.Just ServerFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe ServerFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'ResetWorkflowFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo ResetWorkflowFailureInfo
_Failure'ResetWorkflowFailureInfo :: Prism' Failure'FailureInfo ResetWorkflowFailureInfo
_Failure'ResetWorkflowFailureInfo
= (ResetWorkflowFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe ResetWorkflowFailureInfo)
-> Prism' Failure'FailureInfo ResetWorkflowFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ResetWorkflowFailureInfo -> Failure'FailureInfo
Failure'ResetWorkflowFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'ResetWorkflowFailureInfo ResetWorkflowFailureInfo
p__val) -> ResetWorkflowFailureInfo -> Maybe ResetWorkflowFailureInfo
forall a. a -> Maybe a
Prelude.Just ResetWorkflowFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe ResetWorkflowFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'ActivityFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo ActivityFailureInfo
_Failure'ActivityFailureInfo :: Prism' Failure'FailureInfo ActivityFailureInfo
_Failure'ActivityFailureInfo
= (ActivityFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe ActivityFailureInfo)
-> Prism' Failure'FailureInfo ActivityFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ActivityFailureInfo -> Failure'FailureInfo
Failure'ActivityFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'ActivityFailureInfo ActivityFailureInfo
p__val) -> ActivityFailureInfo -> Maybe ActivityFailureInfo
forall a. a -> Maybe a
Prelude.Just ActivityFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe ActivityFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'ChildWorkflowExecutionFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo ChildWorkflowExecutionFailureInfo
_Failure'ChildWorkflowExecutionFailureInfo :: Prism' Failure'FailureInfo ChildWorkflowExecutionFailureInfo
_Failure'ChildWorkflowExecutionFailureInfo
= (ChildWorkflowExecutionFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe ChildWorkflowExecutionFailureInfo)
-> Prism' Failure'FailureInfo ChildWorkflowExecutionFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
ChildWorkflowExecutionFailureInfo -> Failure'FailureInfo
Failure'ChildWorkflowExecutionFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'ChildWorkflowExecutionFailureInfo ChildWorkflowExecutionFailureInfo
p__val)
-> ChildWorkflowExecutionFailureInfo
-> Maybe ChildWorkflowExecutionFailureInfo
forall a. a -> Maybe a
Prelude.Just ChildWorkflowExecutionFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe ChildWorkflowExecutionFailureInfo
forall a. Maybe a
Prelude.Nothing)
_Failure'NexusOperationExecutionFailureInfo ::
Data.ProtoLens.Prism.Prism' Failure'FailureInfo NexusOperationFailureInfo
_Failure'NexusOperationExecutionFailureInfo :: Prism' Failure'FailureInfo NexusOperationFailureInfo
_Failure'NexusOperationExecutionFailureInfo
= (NexusOperationFailureInfo -> Failure'FailureInfo)
-> (Failure'FailureInfo -> Maybe NexusOperationFailureInfo)
-> Prism' Failure'FailureInfo NexusOperationFailureInfo
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
NexusOperationFailureInfo -> Failure'FailureInfo
Failure'NexusOperationExecutionFailureInfo
(\ Failure'FailureInfo
p__
-> case Failure'FailureInfo
p__ of
(Failure'NexusOperationExecutionFailureInfo NexusOperationFailureInfo
p__val)
-> NexusOperationFailureInfo -> Maybe NexusOperationFailureInfo
forall a. a -> Maybe a
Prelude.Just NexusOperationFailureInfo
p__val
Failure'FailureInfo
_otherwise -> Maybe NexusOperationFailureInfo
forall a. Maybe a
Prelude.Nothing)
data MultiOperationExecutionAborted
= MultiOperationExecutionAborted'_constructor {MultiOperationExecutionAborted -> FieldSet
_MultiOperationExecutionAborted'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
(MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool)
-> (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool)
-> Eq MultiOperationExecutionAborted
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
== :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
$c/= :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
/= :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
Prelude.Eq, Eq MultiOperationExecutionAborted
Eq MultiOperationExecutionAborted =>
(MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Ordering)
-> (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool)
-> (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool)
-> (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool)
-> (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool)
-> (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted
-> MultiOperationExecutionAborted)
-> (MultiOperationExecutionAborted
-> MultiOperationExecutionAborted
-> MultiOperationExecutionAborted)
-> Ord MultiOperationExecutionAborted
MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Ordering
MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> MultiOperationExecutionAborted
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 :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Ordering
compare :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Ordering
$c< :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
< :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
$c<= :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
<= :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
$c> :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
> :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
$c>= :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
>= :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> Bool
$cmax :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> MultiOperationExecutionAborted
max :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> MultiOperationExecutionAborted
$cmin :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> MultiOperationExecutionAborted
min :: MultiOperationExecutionAborted
-> MultiOperationExecutionAborted -> MultiOperationExecutionAborted
Prelude.Ord)
instance Prelude.Show MultiOperationExecutionAborted where
showsPrec :: Int -> MultiOperationExecutionAborted -> ShowS
showsPrec Int
_ MultiOperationExecutionAborted
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(MultiOperationExecutionAborted -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MultiOperationExecutionAborted
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message MultiOperationExecutionAborted where
messageName :: Proxy MultiOperationExecutionAborted -> Text
messageName Proxy MultiOperationExecutionAborted
_
= String -> Text
Data.Text.pack
String
"temporal.api.failure.v1.MultiOperationExecutionAborted"
packedMessageDescriptor :: Proxy MultiOperationExecutionAborted -> ByteString
packedMessageDescriptor Proxy MultiOperationExecutionAborted
_
= ByteString
"\n\
\\RSMultiOperationExecutionAborted"
packedFileDescriptor :: Proxy MultiOperationExecutionAborted -> ByteString
packedFileDescriptor Proxy MultiOperationExecutionAborted
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MultiOperationExecutionAborted)
fieldsByTag = let in [(Tag, FieldDescriptor MultiOperationExecutionAborted)]
-> Map Tag (FieldDescriptor MultiOperationExecutionAborted)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
unknownFields :: Lens' MultiOperationExecutionAborted FieldSet
unknownFields
= (MultiOperationExecutionAborted -> FieldSet)
-> (MultiOperationExecutionAborted
-> FieldSet -> MultiOperationExecutionAborted)
-> Lens' MultiOperationExecutionAborted FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MultiOperationExecutionAborted -> FieldSet
_MultiOperationExecutionAborted'_unknownFields
(\ MultiOperationExecutionAborted
x__ FieldSet
y__
-> MultiOperationExecutionAborted
x__ {_MultiOperationExecutionAborted'_unknownFields = y__})
defMessage :: MultiOperationExecutionAborted
defMessage
= MultiOperationExecutionAborted'_constructor
{_MultiOperationExecutionAborted'_unknownFields :: FieldSet
_MultiOperationExecutionAborted'_unknownFields = []}
parseMessage :: Parser MultiOperationExecutionAborted
parseMessage
= let
loop ::
MultiOperationExecutionAborted
-> Data.ProtoLens.Encoding.Bytes.Parser MultiOperationExecutionAborted
loop :: MultiOperationExecutionAborted
-> Parser MultiOperationExecutionAborted
loop MultiOperationExecutionAborted
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
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 MultiOperationExecutionAborted
-> String -> Parser MultiOperationExecutionAborted
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MultiOperationExecutionAborted
-> Parser MultiOperationExecutionAborted
loop MultiOperationExecutionAborted
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
String
"MultiOperationExecutionAborted"
buildMessage :: MultiOperationExecutionAborted -> Builder
buildMessage
= \ MultiOperationExecutionAborted
_x
-> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MultiOperationExecutionAborted
MultiOperationExecutionAborted
FieldSet
FieldSet
-> MultiOperationExecutionAborted -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MultiOperationExecutionAborted
MultiOperationExecutionAborted
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MultiOperationExecutionAborted FieldSet
Data.ProtoLens.unknownFields MultiOperationExecutionAborted
_x)
instance Control.DeepSeq.NFData MultiOperationExecutionAborted where
rnf :: MultiOperationExecutionAborted -> ()
rnf
= \ MultiOperationExecutionAborted
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MultiOperationExecutionAborted -> FieldSet
_MultiOperationExecutionAborted'_unknownFields MultiOperationExecutionAborted
x__) ()
data NexusOperationFailureInfo
= NexusOperationFailureInfo'_constructor {NexusOperationFailureInfo -> Int64
_NexusOperationFailureInfo'scheduledEventId :: !Data.Int.Int64,
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'endpoint :: !Data.Text.Text,
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'service :: !Data.Text.Text,
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'operation :: !Data.Text.Text,
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'operationId :: !Data.Text.Text,
NexusOperationFailureInfo -> FieldSet
_NexusOperationFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
(NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool)
-> (NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool)
-> Eq NexusOperationFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
== :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
$c/= :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
/= :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
Prelude.Eq, Eq NexusOperationFailureInfo
Eq NexusOperationFailureInfo =>
(NexusOperationFailureInfo
-> NexusOperationFailureInfo -> Ordering)
-> (NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool)
-> (NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool)
-> (NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool)
-> (NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool)
-> (NexusOperationFailureInfo
-> NexusOperationFailureInfo -> NexusOperationFailureInfo)
-> (NexusOperationFailureInfo
-> NexusOperationFailureInfo -> NexusOperationFailureInfo)
-> Ord NexusOperationFailureInfo
NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
NexusOperationFailureInfo -> NexusOperationFailureInfo -> Ordering
NexusOperationFailureInfo
-> NexusOperationFailureInfo -> NexusOperationFailureInfo
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 :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Ordering
compare :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Ordering
$c< :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
< :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
$c<= :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
<= :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
$c> :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
> :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
$c>= :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
>= :: NexusOperationFailureInfo -> NexusOperationFailureInfo -> Bool
$cmax :: NexusOperationFailureInfo
-> NexusOperationFailureInfo -> NexusOperationFailureInfo
max :: NexusOperationFailureInfo
-> NexusOperationFailureInfo -> NexusOperationFailureInfo
$cmin :: NexusOperationFailureInfo
-> NexusOperationFailureInfo -> NexusOperationFailureInfo
min :: NexusOperationFailureInfo
-> NexusOperationFailureInfo -> NexusOperationFailureInfo
Prelude.Ord)
instance Prelude.Show NexusOperationFailureInfo where
showsPrec :: Int -> NexusOperationFailureInfo -> ShowS
showsPrec Int
_ NexusOperationFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(NexusOperationFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NexusOperationFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField NexusOperationFailureInfo "scheduledEventId" Data.Int.Int64 where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "scheduledEventId"
-> (Int64 -> f Int64)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
fieldOf Proxy# "scheduledEventId"
_
= ((Int64 -> f Int64)
-> NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NexusOperationFailureInfo -> Int64)
-> (NexusOperationFailureInfo
-> Int64 -> NexusOperationFailureInfo)
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NexusOperationFailureInfo -> Int64
_NexusOperationFailureInfo'scheduledEventId
(\ NexusOperationFailureInfo
x__ Int64
y__
-> NexusOperationFailureInfo
x__ {_NexusOperationFailureInfo'scheduledEventId = y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NexusOperationFailureInfo "endpoint" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "endpoint"
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
fieldOf Proxy# "endpoint"
_
= ((Text -> f Text)
-> NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NexusOperationFailureInfo -> Text)
-> (NexusOperationFailureInfo -> Text -> NexusOperationFailureInfo)
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'endpoint
(\ NexusOperationFailureInfo
x__ Text
y__ -> NexusOperationFailureInfo
x__ {_NexusOperationFailureInfo'endpoint = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NexusOperationFailureInfo "service" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "service"
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
fieldOf Proxy# "service"
_
= ((Text -> f Text)
-> NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NexusOperationFailureInfo -> Text)
-> (NexusOperationFailureInfo -> Text -> NexusOperationFailureInfo)
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'service
(\ NexusOperationFailureInfo
x__ Text
y__ -> NexusOperationFailureInfo
x__ {_NexusOperationFailureInfo'service = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NexusOperationFailureInfo "operation" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operation"
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
fieldOf Proxy# "operation"
_
= ((Text -> f Text)
-> NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NexusOperationFailureInfo -> Text)
-> (NexusOperationFailureInfo -> Text -> NexusOperationFailureInfo)
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'operation
(\ NexusOperationFailureInfo
x__ Text
y__ -> NexusOperationFailureInfo
x__ {_NexusOperationFailureInfo'operation = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NexusOperationFailureInfo "operationId" Data.Text.Text where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "operationId"
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
fieldOf Proxy# "operationId"
_
= ((Text -> f Text)
-> NexusOperationFailureInfo -> f NexusOperationFailureInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NexusOperationFailureInfo
-> f NexusOperationFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NexusOperationFailureInfo -> Text)
-> (NexusOperationFailureInfo -> Text -> NexusOperationFailureInfo)
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'operationId
(\ NexusOperationFailureInfo
x__ Text
y__ -> NexusOperationFailureInfo
x__ {_NexusOperationFailureInfo'operationId = y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NexusOperationFailureInfo where
messageName :: Proxy NexusOperationFailureInfo -> Text
messageName Proxy NexusOperationFailureInfo
_
= String -> Text
Data.Text.pack
String
"temporal.api.failure.v1.NexusOperationFailureInfo"
packedMessageDescriptor :: Proxy NexusOperationFailureInfo -> ByteString
packedMessageDescriptor Proxy NexusOperationFailureInfo
_
= ByteString
"\n\
\\EMNexusOperationFailureInfo\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId\DC2\SUB\n\
\\bendpoint\CAN\STX \SOH(\tR\bendpoint\DC2\CAN\n\
\\aservice\CAN\ETX \SOH(\tR\aservice\DC2\FS\n\
\\toperation\CAN\EOT \SOH(\tR\toperation\DC2!\n\
\\foperation_id\CAN\ENQ \SOH(\tR\voperationId"
packedFileDescriptor :: Proxy NexusOperationFailureInfo -> ByteString
packedFileDescriptor Proxy NexusOperationFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor NexusOperationFailureInfo)
fieldsByTag
= let
scheduledEventId__field_descriptor :: FieldDescriptor NexusOperationFailureInfo
scheduledEventId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NexusOperationFailureInfo Int64
-> FieldDescriptor NexusOperationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"scheduled_event_id"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Int64 Int64
-> FieldAccessor NexusOperationFailureInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledEventId")) ::
Data.ProtoLens.FieldDescriptor NexusOperationFailureInfo
endpoint__field_descriptor :: FieldDescriptor NexusOperationFailureInfo
endpoint__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor NexusOperationFailureInfo Text
-> FieldDescriptor NexusOperationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"endpoint"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> FieldAccessor NexusOperationFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"endpoint")) ::
Data.ProtoLens.FieldDescriptor NexusOperationFailureInfo
service__field_descriptor :: FieldDescriptor NexusOperationFailureInfo
service__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor NexusOperationFailureInfo Text
-> FieldDescriptor NexusOperationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"service"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> FieldAccessor NexusOperationFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"service")) ::
Data.ProtoLens.FieldDescriptor NexusOperationFailureInfo
operation__field_descriptor :: FieldDescriptor NexusOperationFailureInfo
operation__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor NexusOperationFailureInfo Text
-> FieldDescriptor NexusOperationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"operation"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> FieldAccessor NexusOperationFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation")) ::
Data.ProtoLens.FieldDescriptor NexusOperationFailureInfo
operationId__field_descriptor :: FieldDescriptor NexusOperationFailureInfo
operationId__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor NexusOperationFailureInfo Text
-> FieldDescriptor NexusOperationFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"operation_id"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> FieldAccessor NexusOperationFailureInfo Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operationId")) ::
Data.ProtoLens.FieldDescriptor NexusOperationFailureInfo
in
[(Tag, FieldDescriptor NexusOperationFailureInfo)]
-> Map Tag (FieldDescriptor NexusOperationFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor NexusOperationFailureInfo
scheduledEventId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor NexusOperationFailureInfo
endpoint__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor NexusOperationFailureInfo
service__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor NexusOperationFailureInfo
operation__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor NexusOperationFailureInfo
operationId__field_descriptor)]
unknownFields :: Lens' NexusOperationFailureInfo FieldSet
unknownFields
= (NexusOperationFailureInfo -> FieldSet)
-> (NexusOperationFailureInfo
-> FieldSet -> NexusOperationFailureInfo)
-> Lens' NexusOperationFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NexusOperationFailureInfo -> FieldSet
_NexusOperationFailureInfo'_unknownFields
(\ NexusOperationFailureInfo
x__ FieldSet
y__
-> NexusOperationFailureInfo
x__ {_NexusOperationFailureInfo'_unknownFields = y__})
defMessage :: NexusOperationFailureInfo
defMessage
= NexusOperationFailureInfo'_constructor
{_NexusOperationFailureInfo'scheduledEventId :: Int64
_NexusOperationFailureInfo'scheduledEventId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NexusOperationFailureInfo'endpoint :: Text
_NexusOperationFailureInfo'endpoint = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NexusOperationFailureInfo'service :: Text
_NexusOperationFailureInfo'service = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NexusOperationFailureInfo'operation :: Text
_NexusOperationFailureInfo'operation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NexusOperationFailureInfo'operationId :: Text
_NexusOperationFailureInfo'operationId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NexusOperationFailureInfo'_unknownFields :: FieldSet
_NexusOperationFailureInfo'_unknownFields = []}
parseMessage :: Parser NexusOperationFailureInfo
parseMessage
= let
loop ::
NexusOperationFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser NexusOperationFailureInfo
loop :: NexusOperationFailureInfo -> Parser NexusOperationFailureInfo
loop NexusOperationFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"scheduled_event_id"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"scheduledEventId") y x)
Word64
18
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"endpoint"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"endpoint") y x)
Word64
26
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"service"
loop (Lens.Family2.set (Data.ProtoLens.Field.field @"service") y x)
Word64
34
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"operation"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"operation") y x)
Word64
42
-> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.getText
(Prelude.fromIntegral len))
String
"operation_id"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"operationId") 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 NexusOperationFailureInfo
-> String -> Parser NexusOperationFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do NexusOperationFailureInfo -> Parser NexusOperationFailureInfo
loop NexusOperationFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NexusOperationFailureInfo"
buildMessage :: NexusOperationFailureInfo -> Builder
buildMessage
= \ NexusOperationFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64
NexusOperationFailureInfo
NexusOperationFailureInfo
Int64
Int64
-> NexusOperationFailureInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledEventId") NexusOperationFailureInfo
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> NexusOperationFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"endpoint") NexusOperationFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> NexusOperationFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"service") NexusOperationFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> NexusOperationFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation") NexusOperationFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text NexusOperationFailureInfo NexusOperationFailureInfo Text Text
-> NexusOperationFailureInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operationId") NexusOperationFailureInfo
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
NexusOperationFailureInfo
NexusOperationFailureInfo
FieldSet
FieldSet
-> NexusOperationFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
NexusOperationFailureInfo
NexusOperationFailureInfo
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' NexusOperationFailureInfo FieldSet
Data.ProtoLens.unknownFields NexusOperationFailureInfo
_x))))))
instance Control.DeepSeq.NFData NexusOperationFailureInfo where
rnf :: NexusOperationFailureInfo -> ()
rnf
= \ NexusOperationFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NexusOperationFailureInfo -> FieldSet
_NexusOperationFailureInfo'_unknownFields NexusOperationFailureInfo
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NexusOperationFailureInfo -> Int64
_NexusOperationFailureInfo'scheduledEventId NexusOperationFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'endpoint NexusOperationFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'service NexusOperationFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'operation NexusOperationFailureInfo
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NexusOperationFailureInfo -> Text
_NexusOperationFailureInfo'operationId NexusOperationFailureInfo
x__) ())))))
data ResetWorkflowFailureInfo
= ResetWorkflowFailureInfo'_constructor {ResetWorkflowFailureInfo -> Maybe Payloads
_ResetWorkflowFailureInfo'lastHeartbeatDetails :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
ResetWorkflowFailureInfo -> FieldSet
_ResetWorkflowFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
(ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool)
-> (ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool)
-> Eq ResetWorkflowFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
== :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
$c/= :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
/= :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
Prelude.Eq, Eq ResetWorkflowFailureInfo
Eq ResetWorkflowFailureInfo =>
(ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Ordering)
-> (ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool)
-> (ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool)
-> (ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool)
-> (ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool)
-> (ResetWorkflowFailureInfo
-> ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo)
-> (ResetWorkflowFailureInfo
-> ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo)
-> Ord ResetWorkflowFailureInfo
ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Ordering
ResetWorkflowFailureInfo
-> ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo
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 :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Ordering
compare :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Ordering
$c< :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
< :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
$c<= :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
<= :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
$c> :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
> :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
$c>= :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
>= :: ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo -> Bool
$cmax :: ResetWorkflowFailureInfo
-> ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo
max :: ResetWorkflowFailureInfo
-> ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo
$cmin :: ResetWorkflowFailureInfo
-> ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo
min :: ResetWorkflowFailureInfo
-> ResetWorkflowFailureInfo -> ResetWorkflowFailureInfo
Prelude.Ord)
instance Prelude.Show ResetWorkflowFailureInfo where
showsPrec :: Int -> ResetWorkflowFailureInfo -> ShowS
showsPrec Int
_ ResetWorkflowFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ResetWorkflowFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ResetWorkflowFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ResetWorkflowFailureInfo "lastHeartbeatDetails" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lastHeartbeatDetails"
-> (Payloads -> f Payloads)
-> ResetWorkflowFailureInfo
-> f ResetWorkflowFailureInfo
fieldOf Proxy# "lastHeartbeatDetails"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ResetWorkflowFailureInfo -> f ResetWorkflowFailureInfo)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> ResetWorkflowFailureInfo
-> f ResetWorkflowFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetWorkflowFailureInfo -> Maybe Payloads)
-> (ResetWorkflowFailureInfo
-> Maybe Payloads -> ResetWorkflowFailureInfo)
-> Lens
ResetWorkflowFailureInfo
ResetWorkflowFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetWorkflowFailureInfo -> Maybe Payloads
_ResetWorkflowFailureInfo'lastHeartbeatDetails
(\ ResetWorkflowFailureInfo
x__ Maybe Payloads
y__
-> ResetWorkflowFailureInfo
x__ {_ResetWorkflowFailureInfo'lastHeartbeatDetails = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ResetWorkflowFailureInfo "maybe'lastHeartbeatDetails" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'lastHeartbeatDetails"
-> (Maybe Payloads -> f (Maybe Payloads))
-> ResetWorkflowFailureInfo
-> f ResetWorkflowFailureInfo
fieldOf Proxy# "maybe'lastHeartbeatDetails"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> ResetWorkflowFailureInfo -> f ResetWorkflowFailureInfo)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> ResetWorkflowFailureInfo
-> f ResetWorkflowFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ResetWorkflowFailureInfo -> Maybe Payloads)
-> (ResetWorkflowFailureInfo
-> Maybe Payloads -> ResetWorkflowFailureInfo)
-> Lens
ResetWorkflowFailureInfo
ResetWorkflowFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetWorkflowFailureInfo -> Maybe Payloads
_ResetWorkflowFailureInfo'lastHeartbeatDetails
(\ ResetWorkflowFailureInfo
x__ Maybe Payloads
y__
-> ResetWorkflowFailureInfo
x__ {_ResetWorkflowFailureInfo'lastHeartbeatDetails = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ResetWorkflowFailureInfo where
messageName :: Proxy ResetWorkflowFailureInfo -> Text
messageName Proxy ResetWorkflowFailureInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.failure.v1.ResetWorkflowFailureInfo"
packedMessageDescriptor :: Proxy ResetWorkflowFailureInfo -> ByteString
packedMessageDescriptor Proxy ResetWorkflowFailureInfo
_
= ByteString
"\n\
\\CANResetWorkflowFailureInfo\DC2V\n\
\\SYNlast_heartbeat_details\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\DC4lastHeartbeatDetails"
packedFileDescriptor :: Proxy ResetWorkflowFailureInfo -> ByteString
packedFileDescriptor Proxy ResetWorkflowFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ResetWorkflowFailureInfo)
fieldsByTag
= let
lastHeartbeatDetails__field_descriptor :: FieldDescriptor ResetWorkflowFailureInfo
lastHeartbeatDetails__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor ResetWorkflowFailureInfo Payloads
-> FieldDescriptor ResetWorkflowFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"last_heartbeat_details"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
ResetWorkflowFailureInfo
ResetWorkflowFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor ResetWorkflowFailureInfo Payloads
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastHeartbeatDetails")) ::
Data.ProtoLens.FieldDescriptor ResetWorkflowFailureInfo
in
[(Tag, FieldDescriptor ResetWorkflowFailureInfo)]
-> Map Tag (FieldDescriptor ResetWorkflowFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ResetWorkflowFailureInfo
lastHeartbeatDetails__field_descriptor)]
unknownFields :: Lens' ResetWorkflowFailureInfo FieldSet
unknownFields
= (ResetWorkflowFailureInfo -> FieldSet)
-> (ResetWorkflowFailureInfo
-> FieldSet -> ResetWorkflowFailureInfo)
-> Lens' ResetWorkflowFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ResetWorkflowFailureInfo -> FieldSet
_ResetWorkflowFailureInfo'_unknownFields
(\ ResetWorkflowFailureInfo
x__ FieldSet
y__ -> ResetWorkflowFailureInfo
x__ {_ResetWorkflowFailureInfo'_unknownFields = y__})
defMessage :: ResetWorkflowFailureInfo
defMessage
= ResetWorkflowFailureInfo'_constructor
{_ResetWorkflowFailureInfo'lastHeartbeatDetails :: Maybe Payloads
_ResetWorkflowFailureInfo'lastHeartbeatDetails = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_ResetWorkflowFailureInfo'_unknownFields :: FieldSet
_ResetWorkflowFailureInfo'_unknownFields = []}
parseMessage :: Parser ResetWorkflowFailureInfo
parseMessage
= let
loop ::
ResetWorkflowFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser ResetWorkflowFailureInfo
loop :: ResetWorkflowFailureInfo -> Parser ResetWorkflowFailureInfo
loop ResetWorkflowFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
10
-> do y <- Parser Payloads -> String -> Parser Payloads
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"last_heartbeat_details"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastHeartbeatDetails") 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 ResetWorkflowFailureInfo
-> String -> Parser ResetWorkflowFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ResetWorkflowFailureInfo -> Parser ResetWorkflowFailureInfo
loop ResetWorkflowFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ResetWorkflowFailureInfo"
buildMessage :: ResetWorkflowFailureInfo -> Builder
buildMessage
= \ ResetWorkflowFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
ResetWorkflowFailureInfo
ResetWorkflowFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> ResetWorkflowFailureInfo -> Maybe Payloads
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastHeartbeatDetails") ResetWorkflowFailureInfo
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ResetWorkflowFailureInfo
ResetWorkflowFailureInfo
FieldSet
FieldSet
-> ResetWorkflowFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ResetWorkflowFailureInfo
ResetWorkflowFailureInfo
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ResetWorkflowFailureInfo FieldSet
Data.ProtoLens.unknownFields ResetWorkflowFailureInfo
_x))
instance Control.DeepSeq.NFData ResetWorkflowFailureInfo where
rnf :: ResetWorkflowFailureInfo -> ()
rnf
= \ ResetWorkflowFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResetWorkflowFailureInfo -> FieldSet
_ResetWorkflowFailureInfo'_unknownFields ResetWorkflowFailureInfo
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ResetWorkflowFailureInfo -> Maybe Payloads
_ResetWorkflowFailureInfo'lastHeartbeatDetails ResetWorkflowFailureInfo
x__) ())
data ServerFailureInfo
= ServerFailureInfo'_constructor {ServerFailureInfo -> Bool
_ServerFailureInfo'nonRetryable :: !Prelude.Bool,
ServerFailureInfo -> FieldSet
_ServerFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ServerFailureInfo -> ServerFailureInfo -> Bool
(ServerFailureInfo -> ServerFailureInfo -> Bool)
-> (ServerFailureInfo -> ServerFailureInfo -> Bool)
-> Eq ServerFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServerFailureInfo -> ServerFailureInfo -> Bool
== :: ServerFailureInfo -> ServerFailureInfo -> Bool
$c/= :: ServerFailureInfo -> ServerFailureInfo -> Bool
/= :: ServerFailureInfo -> ServerFailureInfo -> Bool
Prelude.Eq, Eq ServerFailureInfo
Eq ServerFailureInfo =>
(ServerFailureInfo -> ServerFailureInfo -> Ordering)
-> (ServerFailureInfo -> ServerFailureInfo -> Bool)
-> (ServerFailureInfo -> ServerFailureInfo -> Bool)
-> (ServerFailureInfo -> ServerFailureInfo -> Bool)
-> (ServerFailureInfo -> ServerFailureInfo -> Bool)
-> (ServerFailureInfo -> ServerFailureInfo -> ServerFailureInfo)
-> (ServerFailureInfo -> ServerFailureInfo -> ServerFailureInfo)
-> Ord ServerFailureInfo
ServerFailureInfo -> ServerFailureInfo -> Bool
ServerFailureInfo -> ServerFailureInfo -> Ordering
ServerFailureInfo -> ServerFailureInfo -> ServerFailureInfo
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 :: ServerFailureInfo -> ServerFailureInfo -> Ordering
compare :: ServerFailureInfo -> ServerFailureInfo -> Ordering
$c< :: ServerFailureInfo -> ServerFailureInfo -> Bool
< :: ServerFailureInfo -> ServerFailureInfo -> Bool
$c<= :: ServerFailureInfo -> ServerFailureInfo -> Bool
<= :: ServerFailureInfo -> ServerFailureInfo -> Bool
$c> :: ServerFailureInfo -> ServerFailureInfo -> Bool
> :: ServerFailureInfo -> ServerFailureInfo -> Bool
$c>= :: ServerFailureInfo -> ServerFailureInfo -> Bool
>= :: ServerFailureInfo -> ServerFailureInfo -> Bool
$cmax :: ServerFailureInfo -> ServerFailureInfo -> ServerFailureInfo
max :: ServerFailureInfo -> ServerFailureInfo -> ServerFailureInfo
$cmin :: ServerFailureInfo -> ServerFailureInfo -> ServerFailureInfo
min :: ServerFailureInfo -> ServerFailureInfo -> ServerFailureInfo
Prelude.Ord)
instance Prelude.Show ServerFailureInfo where
showsPrec :: Int -> ServerFailureInfo -> ShowS
showsPrec Int
_ ServerFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(ServerFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ServerFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ServerFailureInfo "nonRetryable" Prelude.Bool where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "nonRetryable"
-> (Bool -> f Bool) -> ServerFailureInfo -> f ServerFailureInfo
fieldOf Proxy# "nonRetryable"
_
= ((Bool -> f Bool) -> ServerFailureInfo -> f ServerFailureInfo)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> ServerFailureInfo
-> f ServerFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ServerFailureInfo -> Bool)
-> (ServerFailureInfo -> Bool -> ServerFailureInfo)
-> Lens ServerFailureInfo ServerFailureInfo Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ServerFailureInfo -> Bool
_ServerFailureInfo'nonRetryable
(\ ServerFailureInfo
x__ Bool
y__ -> ServerFailureInfo
x__ {_ServerFailureInfo'nonRetryable = y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ServerFailureInfo where
messageName :: Proxy ServerFailureInfo -> Text
messageName Proxy ServerFailureInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.failure.v1.ServerFailureInfo"
packedMessageDescriptor :: Proxy ServerFailureInfo -> ByteString
packedMessageDescriptor Proxy ServerFailureInfo
_
= ByteString
"\n\
\\DC1ServerFailureInfo\DC2#\n\
\\rnon_retryable\CAN\SOH \SOH(\bR\fnonRetryable"
packedFileDescriptor :: Proxy ServerFailureInfo -> ByteString
packedFileDescriptor Proxy ServerFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ServerFailureInfo)
fieldsByTag
= let
nonRetryable__field_descriptor :: FieldDescriptor ServerFailureInfo
nonRetryable__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor ServerFailureInfo Bool
-> FieldDescriptor ServerFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"non_retryable"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens ServerFailureInfo ServerFailureInfo Bool Bool
-> FieldAccessor ServerFailureInfo Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nonRetryable")) ::
Data.ProtoLens.FieldDescriptor ServerFailureInfo
in
[(Tag, FieldDescriptor ServerFailureInfo)]
-> Map Tag (FieldDescriptor ServerFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ServerFailureInfo
nonRetryable__field_descriptor)]
unknownFields :: Lens' ServerFailureInfo FieldSet
unknownFields
= (ServerFailureInfo -> FieldSet)
-> (ServerFailureInfo -> FieldSet -> ServerFailureInfo)
-> Lens' ServerFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ServerFailureInfo -> FieldSet
_ServerFailureInfo'_unknownFields
(\ ServerFailureInfo
x__ FieldSet
y__ -> ServerFailureInfo
x__ {_ServerFailureInfo'_unknownFields = y__})
defMessage :: ServerFailureInfo
defMessage
= ServerFailureInfo'_constructor
{_ServerFailureInfo'nonRetryable :: Bool
_ServerFailureInfo'nonRetryable = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ServerFailureInfo'_unknownFields :: FieldSet
_ServerFailureInfo'_unknownFields = []}
parseMessage :: Parser ServerFailureInfo
parseMessage
= let
loop ::
ServerFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser ServerFailureInfo
loop :: ServerFailureInfo -> Parser ServerFailureInfo
loop ServerFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
String
"non_retryable"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"nonRetryable") 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 ServerFailureInfo -> String -> Parser ServerFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ServerFailureInfo -> Parser ServerFailureInfo
loop ServerFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ServerFailureInfo"
buildMessage :: ServerFailureInfo -> Builder
buildMessage
= \ ServerFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool ServerFailureInfo ServerFailureInfo Bool Bool
-> ServerFailureInfo -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nonRetryable") ServerFailureInfo
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet ServerFailureInfo ServerFailureInfo FieldSet FieldSet
-> ServerFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet ServerFailureInfo ServerFailureInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ServerFailureInfo FieldSet
Data.ProtoLens.unknownFields ServerFailureInfo
_x))
instance Control.DeepSeq.NFData ServerFailureInfo where
rnf :: ServerFailureInfo -> ()
rnf
= \ ServerFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ServerFailureInfo -> FieldSet
_ServerFailureInfo'_unknownFields ServerFailureInfo
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ServerFailureInfo -> Bool
_ServerFailureInfo'nonRetryable ServerFailureInfo
x__) ())
data TerminatedFailureInfo
= TerminatedFailureInfo'_constructor {TerminatedFailureInfo -> FieldSet
_TerminatedFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
(TerminatedFailureInfo -> TerminatedFailureInfo -> Bool)
-> (TerminatedFailureInfo -> TerminatedFailureInfo -> Bool)
-> Eq TerminatedFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
== :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
$c/= :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
/= :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
Prelude.Eq, Eq TerminatedFailureInfo
Eq TerminatedFailureInfo =>
(TerminatedFailureInfo -> TerminatedFailureInfo -> Ordering)
-> (TerminatedFailureInfo -> TerminatedFailureInfo -> Bool)
-> (TerminatedFailureInfo -> TerminatedFailureInfo -> Bool)
-> (TerminatedFailureInfo -> TerminatedFailureInfo -> Bool)
-> (TerminatedFailureInfo -> TerminatedFailureInfo -> Bool)
-> (TerminatedFailureInfo
-> TerminatedFailureInfo -> TerminatedFailureInfo)
-> (TerminatedFailureInfo
-> TerminatedFailureInfo -> TerminatedFailureInfo)
-> Ord TerminatedFailureInfo
TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
TerminatedFailureInfo -> TerminatedFailureInfo -> Ordering
TerminatedFailureInfo
-> TerminatedFailureInfo -> TerminatedFailureInfo
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 :: TerminatedFailureInfo -> TerminatedFailureInfo -> Ordering
compare :: TerminatedFailureInfo -> TerminatedFailureInfo -> Ordering
$c< :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
< :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
$c<= :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
<= :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
$c> :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
> :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
$c>= :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
>= :: TerminatedFailureInfo -> TerminatedFailureInfo -> Bool
$cmax :: TerminatedFailureInfo
-> TerminatedFailureInfo -> TerminatedFailureInfo
max :: TerminatedFailureInfo
-> TerminatedFailureInfo -> TerminatedFailureInfo
$cmin :: TerminatedFailureInfo
-> TerminatedFailureInfo -> TerminatedFailureInfo
min :: TerminatedFailureInfo
-> TerminatedFailureInfo -> TerminatedFailureInfo
Prelude.Ord)
instance Prelude.Show TerminatedFailureInfo where
showsPrec :: Int -> TerminatedFailureInfo -> ShowS
showsPrec Int
_ TerminatedFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TerminatedFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TerminatedFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message TerminatedFailureInfo where
messageName :: Proxy TerminatedFailureInfo -> Text
messageName Proxy TerminatedFailureInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.failure.v1.TerminatedFailureInfo"
packedMessageDescriptor :: Proxy TerminatedFailureInfo -> ByteString
packedMessageDescriptor Proxy TerminatedFailureInfo
_
= ByteString
"\n\
\\NAKTerminatedFailureInfo"
packedFileDescriptor :: Proxy TerminatedFailureInfo -> ByteString
packedFileDescriptor Proxy TerminatedFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TerminatedFailureInfo)
fieldsByTag = let in [(Tag, FieldDescriptor TerminatedFailureInfo)]
-> Map Tag (FieldDescriptor TerminatedFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
unknownFields :: Lens' TerminatedFailureInfo FieldSet
unknownFields
= (TerminatedFailureInfo -> FieldSet)
-> (TerminatedFailureInfo -> FieldSet -> TerminatedFailureInfo)
-> Lens' TerminatedFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TerminatedFailureInfo -> FieldSet
_TerminatedFailureInfo'_unknownFields
(\ TerminatedFailureInfo
x__ FieldSet
y__ -> TerminatedFailureInfo
x__ {_TerminatedFailureInfo'_unknownFields = y__})
defMessage :: TerminatedFailureInfo
defMessage
= TerminatedFailureInfo'_constructor
{_TerminatedFailureInfo'_unknownFields :: FieldSet
_TerminatedFailureInfo'_unknownFields = []}
parseMessage :: Parser TerminatedFailureInfo
parseMessage
= let
loop ::
TerminatedFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser TerminatedFailureInfo
loop :: TerminatedFailureInfo -> Parser TerminatedFailureInfo
loop TerminatedFailureInfo
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
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 TerminatedFailureInfo
-> String -> Parser TerminatedFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TerminatedFailureInfo -> Parser TerminatedFailureInfo
loop TerminatedFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TerminatedFailureInfo"
buildMessage :: TerminatedFailureInfo -> Builder
buildMessage
= \ TerminatedFailureInfo
_x
-> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TerminatedFailureInfo
TerminatedFailureInfo
FieldSet
FieldSet
-> TerminatedFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TerminatedFailureInfo
TerminatedFailureInfo
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TerminatedFailureInfo FieldSet
Data.ProtoLens.unknownFields TerminatedFailureInfo
_x)
instance Control.DeepSeq.NFData TerminatedFailureInfo where
rnf :: TerminatedFailureInfo -> ()
rnf
= \ TerminatedFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TerminatedFailureInfo -> FieldSet
_TerminatedFailureInfo'_unknownFields TerminatedFailureInfo
x__) ()
data TimeoutFailureInfo
= TimeoutFailureInfo'_constructor {TimeoutFailureInfo -> TimeoutType
_TimeoutFailureInfo'timeoutType :: !Proto.Temporal.Api.Enums.V1.Workflow.TimeoutType,
TimeoutFailureInfo -> Maybe Payloads
_TimeoutFailureInfo'lastHeartbeatDetails :: !(Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads),
TimeoutFailureInfo -> FieldSet
_TimeoutFailureInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
(TimeoutFailureInfo -> TimeoutFailureInfo -> Bool)
-> (TimeoutFailureInfo -> TimeoutFailureInfo -> Bool)
-> Eq TimeoutFailureInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
== :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
$c/= :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
/= :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
Prelude.Eq, Eq TimeoutFailureInfo
Eq TimeoutFailureInfo =>
(TimeoutFailureInfo -> TimeoutFailureInfo -> Ordering)
-> (TimeoutFailureInfo -> TimeoutFailureInfo -> Bool)
-> (TimeoutFailureInfo -> TimeoutFailureInfo -> Bool)
-> (TimeoutFailureInfo -> TimeoutFailureInfo -> Bool)
-> (TimeoutFailureInfo -> TimeoutFailureInfo -> Bool)
-> (TimeoutFailureInfo -> TimeoutFailureInfo -> TimeoutFailureInfo)
-> (TimeoutFailureInfo -> TimeoutFailureInfo -> TimeoutFailureInfo)
-> Ord TimeoutFailureInfo
TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
TimeoutFailureInfo -> TimeoutFailureInfo -> Ordering
TimeoutFailureInfo -> TimeoutFailureInfo -> TimeoutFailureInfo
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 :: TimeoutFailureInfo -> TimeoutFailureInfo -> Ordering
compare :: TimeoutFailureInfo -> TimeoutFailureInfo -> Ordering
$c< :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
< :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
$c<= :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
<= :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
$c> :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
> :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
$c>= :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
>= :: TimeoutFailureInfo -> TimeoutFailureInfo -> Bool
$cmax :: TimeoutFailureInfo -> TimeoutFailureInfo -> TimeoutFailureInfo
max :: TimeoutFailureInfo -> TimeoutFailureInfo -> TimeoutFailureInfo
$cmin :: TimeoutFailureInfo -> TimeoutFailureInfo -> TimeoutFailureInfo
min :: TimeoutFailureInfo -> TimeoutFailureInfo -> TimeoutFailureInfo
Prelude.Ord)
instance Prelude.Show TimeoutFailureInfo where
showsPrec :: Int -> TimeoutFailureInfo -> ShowS
showsPrec Int
_ TimeoutFailureInfo
__x String
__s
= Char -> ShowS
Prelude.showChar
Char
'{'
(String -> ShowS
Prelude.showString
(TimeoutFailureInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TimeoutFailureInfo
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TimeoutFailureInfo "timeoutType" Proto.Temporal.Api.Enums.V1.Workflow.TimeoutType where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "timeoutType"
-> (TimeoutType -> f TimeoutType)
-> TimeoutFailureInfo
-> f TimeoutFailureInfo
fieldOf Proxy# "timeoutType"
_
= ((TimeoutType -> f TimeoutType)
-> TimeoutFailureInfo -> f TimeoutFailureInfo)
-> ((TimeoutType -> f TimeoutType) -> TimeoutType -> f TimeoutType)
-> (TimeoutType -> f TimeoutType)
-> TimeoutFailureInfo
-> f TimeoutFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimeoutFailureInfo -> TimeoutType)
-> (TimeoutFailureInfo -> TimeoutType -> TimeoutFailureInfo)
-> Lens
TimeoutFailureInfo TimeoutFailureInfo TimeoutType TimeoutType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimeoutFailureInfo -> TimeoutType
_TimeoutFailureInfo'timeoutType
(\ TimeoutFailureInfo
x__ TimeoutType
y__ -> TimeoutFailureInfo
x__ {_TimeoutFailureInfo'timeoutType = y__}))
(TimeoutType -> f TimeoutType) -> TimeoutType -> f TimeoutType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TimeoutFailureInfo "lastHeartbeatDetails" Proto.Temporal.Api.Common.V1.Message.Payloads where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lastHeartbeatDetails"
-> (Payloads -> f Payloads)
-> TimeoutFailureInfo
-> f TimeoutFailureInfo
fieldOf Proxy# "lastHeartbeatDetails"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> TimeoutFailureInfo -> f TimeoutFailureInfo)
-> ((Payloads -> f Payloads)
-> Maybe Payloads -> f (Maybe Payloads))
-> (Payloads -> f Payloads)
-> TimeoutFailureInfo
-> f TimeoutFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimeoutFailureInfo -> Maybe Payloads)
-> (TimeoutFailureInfo -> Maybe Payloads -> TimeoutFailureInfo)
-> Lens
TimeoutFailureInfo
TimeoutFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimeoutFailureInfo -> Maybe Payloads
_TimeoutFailureInfo'lastHeartbeatDetails
(\ TimeoutFailureInfo
x__ Maybe Payloads
y__
-> TimeoutFailureInfo
x__ {_TimeoutFailureInfo'lastHeartbeatDetails = y__}))
(Payloads -> Lens' (Maybe Payloads) Payloads
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Payloads
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TimeoutFailureInfo "maybe'lastHeartbeatDetails" (Prelude.Maybe Proto.Temporal.Api.Common.V1.Message.Payloads) where
fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'lastHeartbeatDetails"
-> (Maybe Payloads -> f (Maybe Payloads))
-> TimeoutFailureInfo
-> f TimeoutFailureInfo
fieldOf Proxy# "maybe'lastHeartbeatDetails"
_
= ((Maybe Payloads -> f (Maybe Payloads))
-> TimeoutFailureInfo -> f TimeoutFailureInfo)
-> ((Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads))
-> (Maybe Payloads -> f (Maybe Payloads))
-> TimeoutFailureInfo
-> f TimeoutFailureInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TimeoutFailureInfo -> Maybe Payloads)
-> (TimeoutFailureInfo -> Maybe Payloads -> TimeoutFailureInfo)
-> Lens
TimeoutFailureInfo
TimeoutFailureInfo
(Maybe Payloads)
(Maybe Payloads)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimeoutFailureInfo -> Maybe Payloads
_TimeoutFailureInfo'lastHeartbeatDetails
(\ TimeoutFailureInfo
x__ Maybe Payloads
y__
-> TimeoutFailureInfo
x__ {_TimeoutFailureInfo'lastHeartbeatDetails = y__}))
(Maybe Payloads -> f (Maybe Payloads))
-> Maybe Payloads -> f (Maybe Payloads)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TimeoutFailureInfo where
messageName :: Proxy TimeoutFailureInfo -> Text
messageName Proxy TimeoutFailureInfo
_
= String -> Text
Data.Text.pack String
"temporal.api.failure.v1.TimeoutFailureInfo"
packedMessageDescriptor :: Proxy TimeoutFailureInfo -> ByteString
packedMessageDescriptor Proxy TimeoutFailureInfo
_
= ByteString
"\n\
\\DC2TimeoutFailureInfo\DC2E\n\
\\ftimeout_type\CAN\SOH \SOH(\SO2\".temporal.api.enums.v1.TimeoutTypeR\vtimeoutType\DC2V\n\
\\SYNlast_heartbeat_details\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\DC4lastHeartbeatDetails"
packedFileDescriptor :: Proxy TimeoutFailureInfo -> ByteString
packedFileDescriptor Proxy TimeoutFailureInfo
_ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TimeoutFailureInfo)
fieldsByTag
= let
timeoutType__field_descriptor :: FieldDescriptor TimeoutFailureInfo
timeoutType__field_descriptor
= String
-> FieldTypeDescriptor TimeoutType
-> FieldAccessor TimeoutFailureInfo TimeoutType
-> FieldDescriptor TimeoutFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"timeout_type"
(ScalarField TimeoutType -> FieldTypeDescriptor TimeoutType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField TimeoutType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Enums.V1.Workflow.TimeoutType)
(WireDefault TimeoutType
-> Lens
TimeoutFailureInfo TimeoutFailureInfo TimeoutType TimeoutType
-> FieldAccessor TimeoutFailureInfo TimeoutType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault TimeoutType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timeoutType")) ::
Data.ProtoLens.FieldDescriptor TimeoutFailureInfo
lastHeartbeatDetails__field_descriptor :: FieldDescriptor TimeoutFailureInfo
lastHeartbeatDetails__field_descriptor
= String
-> FieldTypeDescriptor Payloads
-> FieldAccessor TimeoutFailureInfo Payloads
-> FieldDescriptor TimeoutFailureInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
String
"last_heartbeat_details"
(MessageOrGroup -> FieldTypeDescriptor Payloads
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Temporal.Api.Common.V1.Message.Payloads)
(Lens
TimeoutFailureInfo
TimeoutFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> FieldAccessor TimeoutFailureInfo Payloads
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastHeartbeatDetails")) ::
Data.ProtoLens.FieldDescriptor TimeoutFailureInfo
in
[(Tag, FieldDescriptor TimeoutFailureInfo)]
-> Map Tag (FieldDescriptor TimeoutFailureInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TimeoutFailureInfo
timeoutType__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TimeoutFailureInfo
lastHeartbeatDetails__field_descriptor)]
unknownFields :: Lens' TimeoutFailureInfo FieldSet
unknownFields
= (TimeoutFailureInfo -> FieldSet)
-> (TimeoutFailureInfo -> FieldSet -> TimeoutFailureInfo)
-> Lens' TimeoutFailureInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TimeoutFailureInfo -> FieldSet
_TimeoutFailureInfo'_unknownFields
(\ TimeoutFailureInfo
x__ FieldSet
y__ -> TimeoutFailureInfo
x__ {_TimeoutFailureInfo'_unknownFields = y__})
defMessage :: TimeoutFailureInfo
defMessage
= TimeoutFailureInfo'_constructor
{_TimeoutFailureInfo'timeoutType :: TimeoutType
_TimeoutFailureInfo'timeoutType = TimeoutType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TimeoutFailureInfo'lastHeartbeatDetails :: Maybe Payloads
_TimeoutFailureInfo'lastHeartbeatDetails = Maybe Payloads
forall a. Maybe a
Prelude.Nothing,
_TimeoutFailureInfo'_unknownFields :: FieldSet
_TimeoutFailureInfo'_unknownFields = []}
parseMessage :: Parser TimeoutFailureInfo
parseMessage
= let
loop ::
TimeoutFailureInfo
-> Data.ProtoLens.Encoding.Bytes.Parser TimeoutFailureInfo
loop :: TimeoutFailureInfo -> Parser TimeoutFailureInfo
loop TimeoutFailureInfo
x
= do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if end then
do (let missing = []
in
if Prelude.null missing then
Prelude.return ()
else
Prelude.fail
((Prelude.++)
"Missing required fields: "
(Prelude.show (missing :: [Prelude.String]))))
Prelude.return
(Lens.Family2.over
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
else
do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
case tag of
Word64
8 -> do y <- Parser TimeoutType -> String -> Parser TimeoutType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> TimeoutType) -> Parser Int -> Parser TimeoutType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> TimeoutType
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
String
"timeout_type"
loop
(Lens.Family2.set (Data.ProtoLens.Field.field @"timeoutType") y x)
Word64
18
-> do y <- Parser Payloads -> String -> Parser Payloads
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Data.ProtoLens.Encoding.Bytes.isolate
(Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
String
"last_heartbeat_details"
loop
(Lens.Family2.set
(Data.ProtoLens.Field.field @"lastHeartbeatDetails") 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 TimeoutFailureInfo -> String -> Parser TimeoutFailureInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TimeoutFailureInfo -> Parser TimeoutFailureInfo
loop TimeoutFailureInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"TimeoutFailureInfo"
buildMessage :: TimeoutFailureInfo -> Builder
buildMessage
= \ TimeoutFailureInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: TimeoutType
_v
= FoldLike
TimeoutType
TimeoutFailureInfo
TimeoutFailureInfo
TimeoutType
TimeoutType
-> TimeoutFailureInfo -> TimeoutType
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 @"timeoutType") TimeoutFailureInfo
_x
in
if TimeoutType -> TimeoutType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) TimeoutType
_v TimeoutType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
8)
((Int -> Builder) -> (TimeoutType -> Int) -> TimeoutType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
TimeoutType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum TimeoutType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Payloads)
TimeoutFailureInfo
TimeoutFailureInfo
(Maybe Payloads)
(Maybe Payloads)
-> TimeoutFailureInfo -> Maybe Payloads
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lastHeartbeatDetails") TimeoutFailureInfo
_x
of
Maybe Payloads
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just Payloads
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
((ByteString -> Builder)
-> (Payloads -> ByteString) -> Payloads -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Payloads -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Payloads
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet TimeoutFailureInfo TimeoutFailureInfo FieldSet FieldSet
-> TimeoutFailureInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet TimeoutFailureInfo TimeoutFailureInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TimeoutFailureInfo FieldSet
Data.ProtoLens.unknownFields TimeoutFailureInfo
_x)))
instance Control.DeepSeq.NFData TimeoutFailureInfo where
rnf :: TimeoutFailureInfo -> ()
rnf
= \ TimeoutFailureInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimeoutFailureInfo -> FieldSet
_TimeoutFailureInfo'_unknownFields TimeoutFailureInfo
x__)
(TimeoutType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimeoutFailureInfo -> TimeoutType
_TimeoutFailureInfo'timeoutType TimeoutFailureInfo
x__)
(Maybe Payloads -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TimeoutFailureInfo -> Maybe Payloads
_TimeoutFailureInfo'lastHeartbeatDetails TimeoutFailureInfo
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= ByteString
"\n\
\%temporal/api/failure/v1/message.proto\DC2\ETBtemporal.api.failure.v1\SUB$temporal/api/common/v1/message.proto\SUB$temporal/api/enums/v1/workflow.proto\SUB\RSgoogle/protobuf/duration.proto\"\210\SOH\n\
\\SYNApplicationFailureInfo\DC2\DC2\n\
\\EOTtype\CAN\SOH \SOH(\tR\EOTtype\DC2#\n\
\\rnon_retryable\CAN\STX \SOH(\bR\fnonRetryable\DC2:\n\
\\adetails\CAN\ETX \SOH(\v2 .temporal.api.common.v1.PayloadsR\adetails\DC2C\n\
\\DLEnext_retry_delay\CAN\EOT \SOH(\v2\EM.google.protobuf.DurationR\SOnextRetryDelay\"\179\SOH\n\
\\DC2TimeoutFailureInfo\DC2E\n\
\\ftimeout_type\CAN\SOH \SOH(\SO2\".temporal.api.enums.v1.TimeoutTypeR\vtimeoutType\DC2V\n\
\\SYNlast_heartbeat_details\CAN\STX \SOH(\v2 .temporal.api.common.v1.PayloadsR\DC4lastHeartbeatDetails\"Q\n\
\\DC3CanceledFailureInfo\DC2:\n\
\\adetails\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\adetails\"\ETB\n\
\\NAKTerminatedFailureInfo\"8\n\
\\DC1ServerFailureInfo\DC2#\n\
\\rnon_retryable\CAN\SOH \SOH(\bR\fnonRetryable\"r\n\
\\CANResetWorkflowFailureInfo\DC2V\n\
\\SYNlast_heartbeat_details\CAN\SOH \SOH(\v2 .temporal.api.common.v1.PayloadsR\DC4lastHeartbeatDetails\"\185\STX\n\
\\DC3ActivityFailureInfo\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId\DC2(\n\
\\DLEstarted_event_id\CAN\STX \SOH(\ETXR\SOstartedEventId\DC2\SUB\n\
\\bidentity\CAN\ETX \SOH(\tR\bidentity\DC2I\n\
\\ractivity_type\CAN\EOT \SOH(\v2$.temporal.api.common.v1.ActivityTypeR\factivityType\DC2\US\n\
\\vactivity_id\CAN\ENQ \SOH(\tR\n\
\activityId\DC2B\n\
\\vretry_state\CAN\ACK \SOH(\SO2!.temporal.api.enums.v1.RetryStateR\n\
\retryState\"\130\ETX\n\
\!ChildWorkflowExecutionFailureInfo\DC2\FS\n\
\\tnamespace\CAN\SOH \SOH(\tR\tnamespace\DC2X\n\
\\DC2workflow_execution\CAN\STX \SOH(\v2).temporal.api.common.v1.WorkflowExecutionR\DC1workflowExecution\DC2I\n\
\\rworkflow_type\CAN\ETX \SOH(\v2$.temporal.api.common.v1.WorkflowTypeR\fworkflowType\DC2,\n\
\\DC2initiated_event_id\CAN\EOT \SOH(\ETXR\DLEinitiatedEventId\DC2(\n\
\\DLEstarted_event_id\CAN\ENQ \SOH(\ETXR\SOstartedEventId\DC2B\n\
\\vretry_state\CAN\ACK \SOH(\SO2!.temporal.api.enums.v1.RetryStateR\n\
\retryState\"\192\SOH\n\
\\EMNexusOperationFailureInfo\DC2,\n\
\\DC2scheduled_event_id\CAN\SOH \SOH(\ETXR\DLEscheduledEventId\DC2\SUB\n\
\\bendpoint\CAN\STX \SOH(\tR\bendpoint\DC2\CAN\n\
\\aservice\CAN\ETX \SOH(\tR\aservice\DC2\FS\n\
\\toperation\CAN\EOT \SOH(\tR\toperation\DC2!\n\
\\foperation_id\CAN\ENQ \SOH(\tR\voperationId\"\226\t\n\
\\aFailure\DC2\CAN\n\
\\amessage\CAN\SOH \SOH(\tR\amessage\DC2\SYN\n\
\\ACKsource\CAN\STX \SOH(\tR\ACKsource\DC2\US\n\
\\vstack_trace\CAN\ETX \SOH(\tR\n\
\stackTrace\DC2N\n\
\\DC2encoded_attributes\CAN\DC4 \SOH(\v2\US.temporal.api.common.v1.PayloadR\DC1encodedAttributes\DC26\n\
\\ENQcause\CAN\EOT \SOH(\v2 .temporal.api.failure.v1.FailureR\ENQcause\DC2k\n\
\\CANapplication_failure_info\CAN\ENQ \SOH(\v2/.temporal.api.failure.v1.ApplicationFailureInfoH\NULR\SYNapplicationFailureInfo\DC2_\n\
\\DC4timeout_failure_info\CAN\ACK \SOH(\v2+.temporal.api.failure.v1.TimeoutFailureInfoH\NULR\DC2timeoutFailureInfo\DC2b\n\
\\NAKcanceled_failure_info\CAN\a \SOH(\v2,.temporal.api.failure.v1.CanceledFailureInfoH\NULR\DC3canceledFailureInfo\DC2h\n\
\\ETBterminated_failure_info\CAN\b \SOH(\v2..temporal.api.failure.v1.TerminatedFailureInfoH\NULR\NAKterminatedFailureInfo\DC2\\\n\
\\DC3server_failure_info\CAN\t \SOH(\v2*.temporal.api.failure.v1.ServerFailureInfoH\NULR\DC1serverFailureInfo\DC2r\n\
\\ESCreset_workflow_failure_info\CAN\n\
\ \SOH(\v21.temporal.api.failure.v1.ResetWorkflowFailureInfoH\NULR\CANresetWorkflowFailureInfo\DC2b\n\
\\NAKactivity_failure_info\CAN\v \SOH(\v2,.temporal.api.failure.v1.ActivityFailureInfoH\NULR\DC3activityFailureInfo\DC2\142\SOH\n\
\%child_workflow_execution_failure_info\CAN\f \SOH(\v2:.temporal.api.failure.v1.ChildWorkflowExecutionFailureInfoH\NULR!childWorkflowExecutionFailureInfo\DC2\136\SOH\n\
\&nexus_operation_execution_failure_info\CAN\r \SOH(\v22.temporal.api.failure.v1.NexusOperationFailureInfoH\NULR\"nexusOperationExecutionFailureInfoB\SO\n\
\\ffailure_info\" \n\
\\RSMultiOperationExecutionAbortedB\142\SOH\n\
\\SUBio.temporal.api.failure.v1B\fMessageProtoP\SOHZ%go.temporal.io/api/failure/v1;failure\170\STX\EMTemporalio.Api.Failure.V1\234\STX\FSTemporalio::Api::Failure::V1J\245*\n\
\\a\DC2\ENQ\SYN\NUL\138\SOH)\n\
\\241\b\n\
\\SOH\f\DC2\ETX\SYN\NUL\DC22\230\b The MIT License\n\
\\n\
\ Copyright (c) 2020 Temporal Technologies Inc. All rights reserved.\n\
\\n\
\ Permission is hereby granted, free of charge, to any person obtaining a copy\n\
\ of this software and associated documentation files (the \"Software\"), to deal\n\
\ in the Software without restriction, including without limitation the rights\n\
\ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell\n\
\ copies of the Software, and to permit persons to whom the Software is\n\
\ furnished to do so, subject to the following conditions:\n\
\\n\
\ The above copyright notice and this permission notice shall be included in\n\
\ all copies or substantial portions of the Software.\n\
\\n\
\ THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\n\
\ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\n\
\ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\n\
\ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\n\
\ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,\n\
\ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN\n\
\ THE SOFTWARE.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\CAN\NUL \n\
\\b\n\
\\SOH\b\DC2\ETX\SUB\NUL<\n\
\\t\n\
\\STX\b\v\DC2\ETX\SUB\NUL<\n\
\\b\n\
\\SOH\b\DC2\ETX\ESC\NUL3\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\ESC\NUL3\n\
\\b\n\
\\SOH\b\DC2\ETX\FS\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\FS\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\GS\NUL-\n\
\\t\n\
\\STX\b\b\DC2\ETX\GS\NUL-\n\
\\b\n\
\\SOH\b\DC2\ETX\RS\NUL5\n\
\\t\n\
\\STX\b-\DC2\ETX\RS\NUL5\n\
\\b\n\
\\SOH\b\DC2\ETX\US\NUL6\n\
\\t\n\
\\STX\b%\DC2\ETX\US\NUL6\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX!\NUL.\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\"\NUL.\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX$\NUL(\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT&\NUL1\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX&\b\RS\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX'\EOT\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX'\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX'\v\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX'\DC2\DC3\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX(\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX(\EOT\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX(\t\SYN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX(\EM\SUB\n\
\\v\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX)\EOT0\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETX)\EOT#\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX)$+\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX)./\n\
\\201\STX\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX0\EOT2\SUB\187\STX next_retry_delay can be used by the client to override the activity\n\
\ retry interval calculated by the retry policy. Retry attempts will\n\
\ still be subject to the maximum retries limit and total time limit\n\
\ defined by the policy.\n\
\ ATTENTION: this value will be ignored if set for failures produced by\n\
\ the workflow.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX0\EOT\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX0\GS-\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX001\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT3\NUL6\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX3\b\SUB\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX4\EOT7\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX4\EOT%\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX4&2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX456\n\
\\v\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX5\EOT?\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX5\EOT#\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX5$:\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX5=>\n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOT8\NUL:\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX8\b\ESC\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX9\EOT0\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX9\EOT#\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX9$+\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX9./\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOT<\NUL=\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX<\b\GS\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOT?\NULA\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX?\b\EM\n\
\\v\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX@\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX@\EOT\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX@\t\SYN\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX@\EM\SUB\n\
\\n\
\\n\
\\STX\EOT\ENQ\DC2\EOTC\NULE\SOH\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXC\b \n\
\\v\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXD\EOT?\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETXD\EOT#\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXD$:\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXD=>\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOTG\NULN\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXG\b\ESC\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXH\EOT!\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXH\EOT\t\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXH\n\
\\FS\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXH\US \n\
\\v\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETXI\EOT\US\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETXI\EOT\t\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETXI\n\
\\SUB\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETXI\GS\RS\n\
\\v\n\
\\EOT\EOT\ACK\STX\STX\DC2\ETXJ\EOT\CAN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETXJ\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETXJ\v\DC3\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETXJ\SYN\ETB\n\
\\v\n\
\\EOT\EOT\ACK\STX\ETX\DC2\ETXK\EOT:\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\ACK\DC2\ETXK\EOT'\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETXK(5\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETXK89\n\
\\v\n\
\\EOT\EOT\ACK\STX\EOT\DC2\ETXL\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\ACK\STX\EOT\ENQ\DC2\ETXL\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\EOT\SOH\DC2\ETXL\v\SYN\n\
\\f\n\
\\ENQ\EOT\ACK\STX\EOT\ETX\DC2\ETXL\EM\SUB\n\
\\v\n\
\\EOT\EOT\ACK\STX\ENQ\DC2\ETXM\EOT5\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ENQ\ACK\DC2\ETXM\EOT$\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ENQ\SOH\DC2\ETXM%0\n\
\\f\n\
\\ENQ\EOT\ACK\STX\ENQ\ETX\DC2\ETXM34\n\
\\n\
\\n\
\\STX\EOT\a\DC2\EOTP\NULW\SOH\n\
\\n\
\\n\
\\ETX\EOT\a\SOH\DC2\ETXP\b)\n\
\\v\n\
\\EOT\EOT\a\STX\NUL\DC2\ETXQ\EOT\EM\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXQ\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXQ\v\DC4\n\
\\f\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXQ\ETB\CAN\n\
\\v\n\
\\EOT\EOT\a\STX\SOH\DC2\ETXR\EOTD\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ACK\DC2\ETXR\EOT,\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXR-?\n\
\\f\n\
\\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXRBC\n\
\\v\n\
\\EOT\EOT\a\STX\STX\DC2\ETXS\EOT:\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ACK\DC2\ETXS\EOT'\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\SOH\DC2\ETXS(5\n\
\\f\n\
\\ENQ\EOT\a\STX\STX\ETX\DC2\ETXS89\n\
\\v\n\
\\EOT\EOT\a\STX\ETX\DC2\ETXT\EOT!\n\
\\f\n\
\\ENQ\EOT\a\STX\ETX\ENQ\DC2\ETXT\EOT\t\n\
\\f\n\
\\ENQ\EOT\a\STX\ETX\SOH\DC2\ETXT\n\
\\FS\n\
\\f\n\
\\ENQ\EOT\a\STX\ETX\ETX\DC2\ETXT\US \n\
\\v\n\
\\EOT\EOT\a\STX\EOT\DC2\ETXU\EOT\US\n\
\\f\n\
\\ENQ\EOT\a\STX\EOT\ENQ\DC2\ETXU\EOT\t\n\
\\f\n\
\\ENQ\EOT\a\STX\EOT\SOH\DC2\ETXU\n\
\\SUB\n\
\\f\n\
\\ENQ\EOT\a\STX\EOT\ETX\DC2\ETXU\GS\RS\n\
\\v\n\
\\EOT\EOT\a\STX\ENQ\DC2\ETXV\EOT5\n\
\\f\n\
\\ENQ\EOT\a\STX\ENQ\ACK\DC2\ETXV\EOT$\n\
\\f\n\
\\ENQ\EOT\a\STX\ENQ\SOH\DC2\ETXV%0\n\
\\f\n\
\\ENQ\EOT\a\STX\ENQ\ETX\DC2\ETXV34\n\
\\n\
\\n\
\\STX\EOT\b\DC2\EOTY\NULd\SOH\n\
\\n\
\\n\
\\ETX\EOT\b\SOH\DC2\ETXY\b!\n\
\4\n\
\\EOT\EOT\b\STX\NUL\DC2\ETX[\EOT!\SUB' The NexusOperationScheduled event ID.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETX[\EOT\t\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\ETX[\n\
\\FS\n\
\\f\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\ETX[\US \n\
\\GS\n\
\\EOT\EOT\b\STX\SOH\DC2\ETX]\EOT\CAN\SUB\DLE Endpoint name.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETX]\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\ETX]\v\DC3\n\
\\f\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\ETX]\SYN\ETB\n\
\\FS\n\
\\EOT\EOT\b\STX\STX\DC2\ETX_\EOT\ETB\SUB\SI Service name.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\STX\ENQ\DC2\ETX_\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\STX\SOH\DC2\ETX_\v\DC2\n\
\\f\n\
\\ENQ\EOT\b\STX\STX\ETX\DC2\ETX_\NAK\SYN\n\
\\RS\n\
\\EOT\EOT\b\STX\ETX\DC2\ETXa\EOT\EM\SUB\DC1 Operation name.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\ETX\ENQ\DC2\ETXa\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\ETX\SOH\DC2\ETXa\v\DC4\n\
\\f\n\
\\ENQ\EOT\b\STX\ETX\ETX\DC2\ETXa\ETB\CAN\n\
\T\n\
\\EOT\EOT\b\STX\EOT\DC2\ETXc\EOT\FS\SUBG Operation ID - may be empty if the operation completed synchronously.\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\EOT\ENQ\DC2\ETXc\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\b\STX\EOT\SOH\DC2\ETXc\v\ETB\n\
\\f\n\
\\ENQ\EOT\b\STX\EOT\ETX\DC2\ETXc\SUB\ESC\n\
\\v\n\
\\STX\EOT\t\DC2\ENQf\NUL\136\SOH\SOH\n\
\\n\
\\n\
\\ETX\EOT\t\SOH\DC2\ETXf\b\SI\n\
\\v\n\
\\EOT\EOT\t\STX\NUL\DC2\ETXg\EOT\ETB\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXg\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXg\v\DC2\n\
\\f\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXg\NAK\SYN\n\
\\165\SOH\n\
\\EOT\EOT\t\STX\SOH\DC2\ETXj\EOT\SYN\SUB\151\SOH The source this Failure originated in, e.g. TypeScriptSDK / JavaSDK\n\
\ In some SDKs this is used to rehydrate the stack trace into an exception object.\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXj\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXj\v\DC1\n\
\\f\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXj\DC4\NAK\n\
\\v\n\
\\EOT\EOT\t\STX\STX\DC2\ETXk\EOT\ESC\n\
\\f\n\
\\ENQ\EOT\t\STX\STX\ENQ\DC2\ETXk\EOT\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\STX\SOH\DC2\ETXk\v\SYN\n\
\\f\n\
\\ENQ\EOT\t\STX\STX\ETX\DC2\ETXk\EM\SUB\n\
\\252\a\n\
\\EOT\EOT\t\STX\ETX\DC2\ETX{\EOT;\SUB\238\a Alternative way to supply `message` and `stack_trace` and possibly other attributes, used for encryption of\n\
\ errors originating in user code which might contain sensitive information.\n\
\ The `encoded_attributes` Payload could represent any serializable object, e.g. JSON object or a `Failure` proto\n\
\ message.\n\
\\n\
\ SDK authors: \n\
\ - The SDK should provide a default `encodeFailureAttributes` and `decodeFailureAttributes` implementation that:\n\
\ - Uses a JSON object to represent `{ message, stack_trace }`.\n\
\ - Overwrites the original message with \"Encoded failure\" to indicate that more information could be extracted.\n\
\ - Overwrites the original stack_trace with an empty string.\n\
\ - The resulting JSON object is converted to Payload using the default PayloadConverter and should be processed\n\
\ by the user-provided PayloadCodec\n\
\\n\
\ - If there's demand, we could allow overriding the default SDK implementation to encode other opaque Failure attributes.\n\
\ (-- api-linter: core::0203::optional=disabled --)\n\
\\n\
\\f\n\
\\ENQ\EOT\t\STX\ETX\ACK\DC2\ETX{\EOT\"\n\
\\f\n\
\\ENQ\EOT\t\STX\ETX\SOH\DC2\ETX{#5\n\
\\f\n\
\\ENQ\EOT\t\STX\ETX\ETX\DC2\ETX{8:\n\
\\v\n\
\\EOT\EOT\t\STX\EOT\DC2\ETX|\EOT\SYN\n\
\\f\n\
\\ENQ\EOT\t\STX\EOT\ACK\DC2\ETX|\EOT\v\n\
\\f\n\
\\ENQ\EOT\t\STX\EOT\SOH\DC2\ETX|\f\DC1\n\
\\f\n\
\\ENQ\EOT\t\STX\EOT\ETX\DC2\ETX|\DC4\NAK\n\
\\r\n\
\\EOT\EOT\t\b\NUL\DC2\ENQ}\EOT\135\SOH\ENQ\n\
\\f\n\
\\ENQ\EOT\t\b\NUL\SOH\DC2\ETX}\n\
\\SYN\n\
\\v\n\
\\EOT\EOT\t\STX\ENQ\DC2\ETX~\b<\n\
\\f\n\
\\ENQ\EOT\t\STX\ENQ\ACK\DC2\ETX~\b\RS\n\
\\f\n\
\\ENQ\EOT\t\STX\ENQ\SOH\DC2\ETX~\US7\n\
\\f\n\
\\ENQ\EOT\t\STX\ENQ\ETX\DC2\ETX~:;\n\
\\v\n\
\\EOT\EOT\t\STX\ACK\DC2\ETX\DEL\b4\n\
\\f\n\
\\ENQ\EOT\t\STX\ACK\ACK\DC2\ETX\DEL\b\SUB\n\
\\f\n\
\\ENQ\EOT\t\STX\ACK\SOH\DC2\ETX\DEL\ESC/\n\
\\f\n\
\\ENQ\EOT\t\STX\ACK\ETX\DC2\ETX\DEL23\n\
\\f\n\
\\EOT\EOT\t\STX\a\DC2\EOT\128\SOH\b6\n\
\\r\n\
\\ENQ\EOT\t\STX\a\ACK\DC2\EOT\128\SOH\b\ESC\n\
\\r\n\
\\ENQ\EOT\t\STX\a\SOH\DC2\EOT\128\SOH\FS1\n\
\\r\n\
\\ENQ\EOT\t\STX\a\ETX\DC2\EOT\128\SOH45\n\
\\f\n\
\\EOT\EOT\t\STX\b\DC2\EOT\129\SOH\b:\n\
\\r\n\
\\ENQ\EOT\t\STX\b\ACK\DC2\EOT\129\SOH\b\GS\n\
\\r\n\
\\ENQ\EOT\t\STX\b\SOH\DC2\EOT\129\SOH\RS5\n\
\\r\n\
\\ENQ\EOT\t\STX\b\ETX\DC2\EOT\129\SOH89\n\
\\f\n\
\\EOT\EOT\t\STX\t\DC2\EOT\130\SOH\b2\n\
\\r\n\
\\ENQ\EOT\t\STX\t\ACK\DC2\EOT\130\SOH\b\EM\n\
\\r\n\
\\ENQ\EOT\t\STX\t\SOH\DC2\EOT\130\SOH\SUB-\n\
\\r\n\
\\ENQ\EOT\t\STX\t\ETX\DC2\EOT\130\SOH01\n\
\\f\n\
\\EOT\EOT\t\STX\n\
\\DC2\EOT\131\SOH\bB\n\
\\r\n\
\\ENQ\EOT\t\STX\n\
\\ACK\DC2\EOT\131\SOH\b \n\
\\r\n\
\\ENQ\EOT\t\STX\n\
\\SOH\DC2\EOT\131\SOH!<\n\
\\r\n\
\\ENQ\EOT\t\STX\n\
\\ETX\DC2\EOT\131\SOH?A\n\
\\f\n\
\\EOT\EOT\t\STX\v\DC2\EOT\132\SOH\b7\n\
\\r\n\
\\ENQ\EOT\t\STX\v\ACK\DC2\EOT\132\SOH\b\ESC\n\
\\r\n\
\\ENQ\EOT\t\STX\v\SOH\DC2\EOT\132\SOH\FS1\n\
\\r\n\
\\ENQ\EOT\t\STX\v\ETX\DC2\EOT\132\SOH46\n\
\\f\n\
\\EOT\EOT\t\STX\f\DC2\EOT\133\SOH\bU\n\
\\r\n\
\\ENQ\EOT\t\STX\f\ACK\DC2\EOT\133\SOH\b)\n\
\\r\n\
\\ENQ\EOT\t\STX\f\SOH\DC2\EOT\133\SOH*O\n\
\\r\n\
\\ENQ\EOT\t\STX\f\ETX\DC2\EOT\133\SOHRT\n\
\\f\n\
\\EOT\EOT\t\STX\r\DC2\EOT\134\SOH\bN\n\
\\r\n\
\\ENQ\EOT\t\STX\r\ACK\DC2\EOT\134\SOH\b!\n\
\\r\n\
\\ENQ\EOT\t\STX\r\SOH\DC2\EOT\134\SOH\"H\n\
\\r\n\
\\ENQ\EOT\t\STX\r\ETX\DC2\EOT\134\SOHKM\n\
\\n\
\\n\
\\STX\EOT\n\
\\DC2\EOT\138\SOH\NUL)\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\138\SOH\b&b\ACKproto3"